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
View MIT-License-1991.txt
The MIT License (MIT)
Copyright (c) 1991 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:
@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 / 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 / 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 / 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 / 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
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;
@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 / 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)
@fu-sen
fu-sen / MOUSE.BAS
Last active Dec 27, 2015
マウスでうごかす ( move cursor with a mouse ) - MSX-BASIC http://msxjpn.jimdo.com/
View MOUSE.BAS
' move cursor with a mouse | 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 COLOR 15,4,7:SCREEN 1:KEY OFF
20 XX=128:YY=96
30 SPRITE$(0)=CHR$(224)+CHR$(192)+CHR$(128)
40 S=PAD(12)
50 XX=XX+PAD(13):YY=YY+PAD(14)
60 XX=(XX+256) MOD 256:YY=(YY+192) MOD 192
70 PUT SPRITE 0,(XX,YY),15,0
You can’t perform that action at this time.