fu-sen

# twtxt-active-users.txt
# https://balloon.oldcities.org/twtxt-active-users.txt
# https://gist.github.com/fu-sen/d5850332019758384d85ec96f096ade4
# Last updated 2026-07-21 (UTC+9)
# Maked by BALLOON | FU-SEN (github @fu-sen https://github.com/fu-sen )
@marado@ciberlandia.pt https://ciberlandia.pt/@marado.txt
0xe9 https://0xe9.net/twtxt.txt
aelaraji https://aelaraji.com/twtxt.txt
akkartik https://akkartik.name/twtxt.txt
al4xs https://vaporhole.xyz/~al4xs/twtxt.txt

fu-sen

#!/usr/bin/bash

# install algia ( https://github.com/mattn/algia )
# mv config-anko.json ~/.config/algia/
#    (or MOVE config-anko.json ~\AppData\Roaming\algia\)
# ( config.json の詳細は https://gist.github.com/fu-sen/360d6d08ebffdb97e1472859ab242cf8 )
# crontab -e
#    0 * * * * ～～～/nostr-anko.sh (毎時 0 分)

ANKO=(

fu-sen

1 ' Calendar | SHARP POCKET COMPUTER PC-E200 / G series BASIC
2 ' Copyright (c) 2006-2009 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2006-2009
100 DIM D(12)
110 INPUT "ﾈﾝ = ";Y
120 INPUT "ﾂｷ = ";M
130 FOR I=1 TO 12:READ D(I):NEXT I
140 IF Y MOD 4=0 AND (Y MOD 100<>0 OR Y MOD 400=0 ) LET D(2)=D(2)+1
150 IF M<3 LET Y=Y-1:M=M+12
160 O = INT (Y+ INT (Y/4)- INT (Y/100)+ INT (Y/400)+ INT ((13*M+8)/5)+1) MOD 7

fu-sen

1 ' GIVEUP! | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 1995-2006 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#1995-2006
10 H=0:RANDOMIZE
20 CLS :LOCATE 17,0:PRINT "SCORE"
30 LOCATE 17,2:PRINT "HIGH"
40 LOCATE 18,3:PRINT H
50 LINE (0,0)-(99,47),S,B
60 X=50:Y=24:S=0:XX=0:YY=1
70 LOCATE 18,1:PRINT S:PSET (X,Y)

fu-sen

' GIVE UP! | MSX-BASIC
' Copyright (c) 1995 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#1995
10 COLOR15,4,4:SCREEN5:OPEN"GRP:"AS#1
20 DEFINTA-Z:I=RND(-TIME):H=0
30 SETPAGE0,0:LINE(0,0)-(255,211),14,BF
40 LINE(20,20)-(235,191),1,BF
50 S=0:X=128:Y=106:TT=5
60 IFPOINT(X,Y)<>1GOTO180
70 PSET(X,Y),15:S=S+1

fu-sen

' RANDOM screen | MSX JAPAN top page program 23 May, 2019 | MSX-BASIC
' Copyright (c) 2019 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019
10 DEFINT A-Z
20 COLOR 15,1,1
30 SCREEN 3
40 X=RND(1)*256
50 Y=RND(1)*192
60 C=RND(1)*15+1
70 PSET(X,Y),C

fu-sen

' MSX 256 colors | MSX-BASIC
' Copyright (c) 2019 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019
10 DEFINT A-Z
20 SCREEN 8
30 COLOR 255,0,0
40 FOR Y=0 TO 7
50 FOR X=0 TO 31
60 LINE(X*8,Y*27)-STEP(7,26),Y*32+X,BF
70 NEXT

fu-sen

// Change to font #A0-#DF  | C language for IchigoJam (c4ij, IchigoJam BASIC 1.3.2b13+)
// Original https://github.com/IchigoJam/c4ij/blob/master/src/main-exkbd.c
// Copyright (c) 2019 Taisuke Fukuno / BALLOON | FU-SEN
// The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019

#include <std15.h>

__attribute__ ((section(".main")))
int main(int param, int ram, int rom, int (*divfunc)()) {
	int res;

fu-sen

1 ' Balloons | SHARP POCKET COMPUTER PC-E200 / G series BASIC
2 ' Copyright (c) 2025 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
100 CLS
110 R= RND 24-1
120 LOCATE R,3
130 PRINT CHR$ (236)
140 WAIT 3
150 PRINT
160 LOCATE R,3

fu-sen

1 ' POKE COM ﾛｺﾞ ( POKE COM logo ) | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 2006-2011 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2006-2011
100 CLS
110 GCURSOR (0,7)
120 GPRINT "FFFFFF070707070707070707F8F8F8000000";:' P
130 GPRINT "F8F8F8070707070707070707F8F8F8000000";:' O
140 GPRINT "FFFFFF000000C0C0C0383838070707000000";:' K
150 GPRINT "FFFFFF070707070707070707070707000000";:' E
160 GPRINT "000000000000000000000000000000000000";:'