BALLOON | FU-SEN fu-sen
π
fu-sen
/ CAL.BAS
Last active
April 19, 2025 02:40
γ«γ¬γ³γγΌ ( Calendar ) - 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-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
/ GIVEUP.BAS
Last active
April 19, 2025 02:40
GIVEUP! - 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 ' 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
/ GIVEUP.BAS
Last active
April 19, 2025 02:39
GIVE UP! | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/give-up/
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
| ' 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.bas
Last active
April 19, 2025 02:37
RANDOM screen | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E3%83%A9%E3%83%B3%E3%83%80%E3%83%A0%E7%94%BB%E9%9D%A2/
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
| ' 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
/ 256color.bas
Last active
April 19, 2025 02:37
MSX 256 colors | MSX-BASIC (MSX2 VRAM 128kb) https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/256-%E8%89%B2%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
| ' 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
/ main-changepcg.c
Last active
April 19, 2025 02:37
γγ©γ³γε€ζ΄ C θ¨θͺγ½γΌγΉ | C language for IchigoJam (c4ij, IchigoJam BASIC 1.3.2b13ο½) https://github.com/IchigoJam/c4ij https://15jamrecipe.jimdofree.com/basic/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E3%83%95%E3%82%A9%E3%83%B3%E3%83%88%E5%A4%89%E6%9B%B4/
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
| // 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
/ balloons.bas
Last active
April 19, 2025 02:34
ι’¨θΉ balloons - 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 ' 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
/ LOGO.BAS
Last active
April 19, 2025 02:33
POKE COM γγ΄ ( POKE COM logo ) - 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 ' 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";:' |
fu-sen
/ BALLDEMO.BAS
Last active
April 19, 2025 02:32
ι’¨θΉγγ’ ( balloons demo ) | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E9%A2%A8%E8%88%B9%E3%83%87%E3%83%A2/
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
| ' balloons demo | MSX-BASIC | |
| ' Copyright (c) 2012-2025 BALLOON | FU-SEN | |
| ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2012-2025 | |
| 100 COLOR ,1,1:SCREEN 1,1 | |
| 110 KEY OFF:WIDTH 30 | |
| 120 T=RND(-TIME):DEFINT A-Z:B=0 | |
| 130 DIM X(31),Y(31),C(31),M(31) | |
| 140 LOCATE 1,2:PRINT "MSX-BASIC DEMO" | |
| 150 H$=CHR$(14)+CHR$(29) | |
| 160 H$=H$+CHR$(31)+CHR$(31) |
fu-sen
/ PONGFU.BAS
Last active
April 19, 2025 02:32
γγ³ι’¨ ( picture of PONG screen ) | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E3%83%9D%E3%83%B3%E9%A2%A8/
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
| ' picture of PONG screen | MSX-BASIC | |
| ' Copyright (c) 2003-2024 BALLOON | FU-SEN | |
| ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2003-2024 | |
| 100 R=RND(-TIME)*1 | |
| 110 COLOR 15,1,1:SCREEN 3 | |
| 120 FOR Y=8 TO 191 STEP 32 | |
| 130 LINE (124,Y)-STEP(7,15),15,BF | |
| 140 NEXT Y | |
| 150 U1=(INT(RND(1)*160)/8)*8 | |
| 160 U2=(INT(RND(1)*160)/8)*8 |
NewerOlder