BALLOON | FU-SEN fu-sen
🎈
fu-sen
/ rndscr.bas
Last active
April 19, 2025 02:15
RANDOM screen - SHARP POCKET COMPUTER PC-E200/G series BASIC https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 ' RANDOM screen | 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 RANDOMIZE | |
| 120 X= RND 24-1 | |
| 130 Y= RND 4-1 | |
| 140 C= RND 2 | |
| 150 LOCATE X,Y | |
| 160 IF C=1 PRINT CHR$ (32); |
fu-sen
/ klotski.bas
Last active
April 19, 2025 02:15
箱入り娘 (Klotski) - SHARP POCKET COMPUTER PC-G850 series BASIC https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 ' Calendar | SHARP POCKET COMPUTER PC-G850 series BASIC | |
| 2 ' Copyright (c) 2025 BALLOON | FU-SEN | |
| 3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025 | |
| 100 CLS :RESTORE :DIM P(19):PX=1:PY=4:C=0 | |
| 110 LINE (52,0)-(91,47),S,BF | |
| 120 LINE (55,3)-(88,44),R,BF | |
| 130 LINE (64,45)-(79,47),R,BF | |
| 140 FOR I=0 TO 19:READ P(I) | |
| 150 GCURSOR ((I MOD 4)*8+56, INT (I/4)*8+11) | |
| 160 BL=P(I):GOSUB 520:NEXT I |
fu-sen
/ klotski.bas
Last active
April 19, 2025 02:15
箱入り娘 Klotski | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E7%AE%B1%E5%85%A5%E3%82%8A%E5%A8%98/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ' Klotski | MSX-BASIC | |
| ' Copyright (c) 2025 BALLOON | FU-SEN | |
| ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025 | |
| 100 DEFINT A-Z | |
| 110 DIM P(19) | |
| 120 SCREEN 1,3 | |
| 130 KEY OFF | |
| 140 SPRITE$(0)=CHR$(0)+STRING$(14,127)+STRING$(2,0)+STRING$(14,254) | |
| 150 SPRITE$(4)=CHR$(0)+STRING$(14,127)+STRING$(2,0)+STRING$(14,255) | |
| 160 SPRITE$(5)=CHR$(0)+STRING$(14,255)+STRING$(2,0)+STRING$(14,254) |
fu-sen
/ 15puzzle.bas
Last active
April 19, 2025 02:15
15 Puzzle - SHARP POCKET COMPUTER PC-E200/G series BASIC https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 ' 15 Puzzle | 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 :RANDOMIZE :DIM D(16):S=100 | |
| 110 FOR I=1 TO 16:D(I)=I:NEXT I | |
| 120 FOR L=1 TO S:GOSUB 310 | |
| 130 R= RND 4 | |
| 140 ON R GOSUB 360,370,380,390 | |
| 150 IF C=U GOTO 130 | |
| 160 T=D(C):D(C)=D(U):D(U)=T |
fu-sen
/ calendar.bas
Last active
April 19, 2025 02:15
Calendar | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E3%82%AB%E3%83%AC%E3%83%B3%E3%83%80%E3%83%BC/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ' Calendar | MSX-BASIC | |
| ' Copyright (c) 2025 BALLOON | FU-SEN | |
| ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025 | |
| 100 DIM D(12) | |
| 110 INPUT "Year ";Y | |
| 120 INPUT "Month";M | |
| 130 FOR I=1 TO 12 | |
| 140 READ D(I) | |
| 150 NEXT I | |
| 160 IF Y MOD 4=0 AND (Y MOD 100<>0 OR Y MOD 400=0) THEN D(2)=D(2)+1 |
fu-sen
/ piboot.c
Last active
April 19, 2025 02:15
Pi Boot (Rainbow colored screen like Raspberry Pi boot) | MSX-BASIC 3.0+ (MSX2+/turbo R) / z88dk https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/yjk-%E8%A1%A8%E7%A4%BA/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* | |
| Pi Boot (Rainbow colored screen like Raspberry Pi boot) | MSX2+ / z88dk | |
| Copyright (c) 2019-2024 BALLOON | FU-SEN | |
| The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019-2024 | |
| zcc +msx -lndos -create-app -subtype=disk -bn piboot piboot.c | |
| --> BLOAD"PIBOOT.MSX",R | |
| */ | |
| void ldirvm(int addr, int vaddr, int size) |
fu-sen
/ japanese-ssh-hanzobbs.ttl
Created
December 19, 2024 10:13
TeraTerm Macro ssh 接続 はんぞーBBS ログイン - https://balloon-jp.vercel.app/%E3%83%91%E3%82%BD%E3%82%B3%E3%83%B3%E9%80%9A%E4%BF%A1/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| connect 'ktbbs.hanzou.jp:11111 /ssh /auth=password /user=ユーザー名 /passwd=パスワード' | |
| callmenu 54010 | |
| callmenu 54110 |
fu-sen
/ Japanese-telnet-bbs.ttl
Created
December 19, 2024 10:12
TeraTerm Macro Telnet 接続 草の根 BBS ログイン - https://balloon-jp.vercel.app/%E3%83%91%E3%82%BD%E3%82%B3%E3%83%B3%E9%80%9A%E4%BF%A1/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| connect 'サーバー名:23 /nossh /T=1' | |
| callmenu 54010 | |
| callmenu 54110 | |
| wait '=' | |
| sendln 'ユーザー名' | |
| wait '=' | |
| sendln 'パスワード' |
fu-sen
/ timerba3.bas
Last active
April 19, 2025 02:15
3 分タイマー風船 (3 minute timer balloon) | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/1-%E5%88%86%E3%82%BF%E3%82%A4%E3%83%9E%E3%83%BC%E9%A2%A8%E8%88%B9/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ' 3 minute timer balloon | MSX-BASIC | |
| ' Copyright (c) 2024 BALLOON | FU-SEN | |
| ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024 | |
| 100 DEFINT A-Z | |
| 110 M=3 | |
| 120 SCREEN 2 | |
| 130 TIME=0 | |
| 140 SOUND 6,3 | |
| 150 SOUND 7,135 | |
| 160 SOUND 8,5 |
fu-sen
/ piboot.bas
Last active
April 19, 2025 02:16
Pi Boot (Rainbow colored screen like Raspberry Pi boot) | MSX-BASIC version 3+ https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/yjk-%E8%A1%A8%E7%A4%BA/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ' Pi Boot (Rainbow colored screen like Raspberry Pi boot) | MSX-BASIC version 3+ | |
| ' Copyright (c) 2019-2024 BALLOON | FU-SEN | |
| ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019-2024 | |
| 100 DEFINT A-Z | |
| 110 C=15*8:'Y*8 | |
| 120 SCREEN 12 | |
| 130 COLOR 255,0,0 | |
| 140 CLS | |
| 150 FOR X=32 TO 223 STEP 4 | |
| 160 K=(X-32)*64/192-32 |