Skip to content

Instantly share code, notes, and snippets.

🎈
🎈😍

BALLOON a.k.a. Fu-sen. fu-sen

🎈
🎈😍
Block or report user

Report or block fu-sen

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@fu-sen
fu-sen / CAL.BAS
Last active Dec 27, 2015
カレンダー ( Calendar ) - SHARP POCKET COMPUTER PC-G850 series BASIC http://poke-com.jimdo.com/
View CAL.BAS
1 ' Calendar | SHARP POCKET COMPUTER PC-E200 / G series BASIC
2 ' Copyright (c) 2006-2009 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
3 ' The MIT License (MIT) - https://gist.github.com/fu-sen/5f79ca2dac44db4821d3
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 Dec 27, 2015
GIVEUP! - SHARP POCKET COMPUTER PC-G850 series BASIC http://poke-com.jimdo.com/
View GIVEUP.BAS
1 ' GIVEUP! | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 1995-2006 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
3 ' The MIT License (MIT) - https://gist.github.com/fu-sen/10528455cd83b49e7aa4
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 Dec 27, 2015
ジャンケンポン! ( Rock, Paper & Scissors! ) - SHARP POCKET COMPUTER PC-E200 / G series BASIC http://poke-com.jimdo.com/
View JYANKEN1.BAS
1 ' ジャンケンポン! Rock, Paper & Scissors! | SHARP POCKET COMPUTER PC-E200 / G series BASIC
2 ' Copyright (c) 2006 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
3 ' The MIT License (MIT) - https://gist.github.com/fu-sen/d996615c55144f0f8c73
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 Dec 27, 2015
POKE COM ロゴ ( POKE COM logo ) - SHARP POCKET COMPUTER PC-G850 series BASIC http://poke-com.jimdo.com/
View LOGO.BAS
1 ' POKE COM ロゴ ( POKE COM logo ) | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 2006-2011 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
3 ' The MIT License (MIT) - https://gist.github.com/fu-sen/607d44f54927e4471a9e
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 Jul 1, 2019
風船デモ ( balloons demo ) - MSX-BASIC http://msxjpn.jimdo.com/
View BALLDEMO.BAS
' balloons demo | MSX-BASIC
' Copyright (c) 2012-2019 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
' The MIT License (MIT) - https://gist.github.com/fu-sen/7314134099d262d4f2b4c46394ff9e94
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 Dec 27, 2015
ポン風 ( picture of PONG screen ) - MSX-BASIC http://msxjpn.jimdo.com/
View PONGFU.BAS
' picture of PONG screen | MSX-BASIC
' Copyright (c) 2003 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
' The MIT License (MIT) - https://gist.github.com/fu-sen/9878b809fc64383b8dfe
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=((RND(1)*160)\8)*8
160 U2=((RND(1)*160)\8)*8
@fu-sen
fu-sen / BALL.BAS
Last active Dec 27, 2015
いわゆるスカッシュ ( Squash ) - MSX-BASIC http://msxjpn.jimdo.com/
View BALL.BAS
' Squash | MSX-BASIC
' Copyright (c) 2003 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
' The MIT License (MIT) - https://gist.github.com/fu-sen/9878b809fc64383b8dfe
10 SCREEN 1,1,0:KEY OFF:R=RND(-TIME)
20 SPRITE$(0)="|"+STRING$(5,254)+"|"
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 Dec 27, 2015
15パズル ( 15 puzzle ) - MSX-BASIC http://msxjpn.jimdo.com/
View 15.BAS
' 15 puzzle | MSX-BASIC
' Copyright (c) 2003 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
' The MIT License (MIT) - https://gist.github.com/fu-sen/9878b809fc64383b8dfe
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 320:GOSUB 220:NEXT L:S=0
160 GOSUB 220:PRINT:PRINT"SCORE ";S
@fu-sen
fu-sen / RUN
Last active Dec 27, 2015
RUN(プログラムローダ)( program loader ) - MSX-BASIC http://msxjpn.jimdo.com/
View RUN
' move cursor with a mouse | MSX-BASIC
' Copyright (c) 1991 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
' The MIT License (MIT) - https://gist.github.com/fu-sen/01abc88293fd328b2b54
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)
View BOOM.BAS
' BOOM! | MSX-BASIC
' Copyright (c) 2003 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
' The MIT License (MIT) - https://gist.github.com/fu-sen/9878b809fc64383b8dfe
100 T=RND(-TIME)*1
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;
You can’t perform that action at this time.