• IchigoJam
• BASIC
• スキー
• ふうせんFU-SEN

CLS:'

NEW

10 'Ski
20 CLS:CLV:GOSUB 180
30 S=0:X=15:W=5:U=50
40 IF BTN(28) AND X>0 X=X-1
50 IF BTN(29) AND X<29 X=X+1
60 LOCATE X,23:PRINT "||";
70 IF VPEEK(0,22)=0 GOTO 170
80 C=0:IF VPEEK(X,22)=128 C=1
90 IF VPEEK(X+1,22)=128 C=C+1
100 IF C=2 GOTO 140
110 SCROLL 2:LOCATE X,23
120 PRINT CHR$(244,244)
130 PRINT "SCORE ";S;" ";:END
140 S=S+1
150 IF S%U=0 AND W>1 W=W-1
160 GOSUB 180
170 WAIT W:SCROLL 2:GOTO 40
180 LOCATE RND(15)+5,0
190 PRINT CHR$(233,128,128);
200 PRINT CHR$(128,128,233)
210 LOCATE 0,0:PRINT CHR$(128)
220 RETURN

'OK

Pagetop