Skip to content

Instantly share code, notes, and snippets.

View fu-sen's full-sized avatar
🎈
🎈😍

BALLOON | FU-SEN fu-sen

🎈
🎈😍
54 followers · 5 following
View GitHub Profile
@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/
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
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/
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
fu-sen / JYANKEN1.BAS
Last active February 12, 2021 12:31
ジャンケンポン！ ( Rock, Paper & Scissors! ) - 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/
1 ' ｼﾞｬﾝｹﾝﾎﾟﾝ! Rock, Paper & Scissors! | SHARP POCKET COMPUTER PC-E200 / G series BASIC
2 ' Copyright (c) 2006 Keiichi Shiga (BALLOON | FU-SEN)
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2006
10 PRINT "ｼﾞｬﾝｹﾝﾎﾟﾝ!"
20 IF INKEY$ <> "" GOTO 60
30 IF INKEY$ <> "" GOTO 70
40 IF INKEY$ <> "" GOTO 80
50 GOTO 20
60 PRINT "ｸﾞｰ":GOTO 90
70 PRINT "ﾁｮｷ":GOTO 90
@fu-sen
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/
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
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/
' 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
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/
' 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
@fu-sen
fu-sen / SQUASH.BAS
Last active April 19, 2025 02:32
いわゆるスカッシュ ( Squash ) | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E3%81%84%E3%82%8F%E3%82%86%E3%82%8B%E3%82%B9%E3%82%AB%E3%83%83%E3%82%B7%E3%83%A5/
' Squash | MSX-BASIC
' Copyright (c) 2003-2025 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2003-2025
10 SCREEN 1,1,0:KEY OFF:R=RND(-TIME)
20 SPRITE$(0)="8|"+STRING$(3,254)+"|8"
30 SPRITE$(1)=STRING$(2,255)
40 X=RND(1)*240:Y=0:CY=4:SS=0
50 IF X>127 THEN CX=4 ELSE CX=-4
60 XX=128:YY=186
70 PUT SPRITE 0,(X,Y),10,0
@fu-sen
fu-sen / 15.BAS
Last active April 19, 2025 02:32
15パズル ( 15 puzzle ) | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/15-%E3%83%91%E3%82%BA%E3%83%AB/
' 15 puzzle | MSX-BASIC
' Copyright (c) 2003-2025 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2003-2025
100 I$="123456789ABCDEF0":J$=I$:S=100
110 CLS:FOR L=S TO 1 STEP -1
120 U=INSTR(I$,"0"):R=RND(-TIME)*4+1
130 ON R GOSUB 280,290,300,310
140 IF C=U GOTO 120
150 GOSUB 330:GOSUB 220:NEXT L:S=0
160 GOSUB 220:PRINT:PRINT"COUNT ";S
@fu-sen
fu-sen / RUN
Last active April 19, 2025 02:31
RUN（プログラムローダ）( program loader, use: SHIFT+F2 -> F5 -> F5 ) | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/run-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%83%AD%E3%83%BC%E3%83%80/
' move cursor with a mouse | MSX-BASIC
' Copyright (c) 1991 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#1991
10 SCREEN0:KEYOFF:WIDTH40:FILES
20 X=POS(0):IFX<>0THENPRINT
30 J=CSRLIN-1:X=0:Y=0
40 LOCATEX*13,Y,1
50 IFSTRIG(0)+STRIG(1)=-1THEN110
60 S=STICK(0)+STICK(1):IFSMOD2=0THEN50
70 X=X+(S=3)*(X<2)-(S=7)*(X>0)
@fu-sen
fu-sen / BOOM.BAS
Last active April 19, 2025 02:31
BOOM! | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/boom/
' BOOM! | MSX-BASIC
' Copyright (c) 2003-2024 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2003-2024
100 T=RND(-TIME)
110 DEFINT A-Z:DIM B(32,23)
120 SCREEN 1:KEY OFF:WIDTH 32
130 COLOR ,4:CLS:INPUT"BOOM";B
140 COLOR ,12:CLS
150 FOR I=1 TO B
160 LOCATE 0,0,0:PRINT"WAIT";I;