Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/09/26 19:49:09

MixJuice GET URL : kidspod.club/mj/630

落ちる~(BASIC BIG・1.2.2~)

詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。

SOURCE CODE

CLS

NEW

10 'Fall aka ORUCHUuuu
15 IF VER()>12233 VIDEO 3
20 CLS:X=7:S=0:Y=0
30 FOR Y=0 TO 11:GOSUB 170:NEXT
40 IF VPEEK(X,1) GOTO 130
50 GOSUB 170
60 LOCATE RND(11)+3,11:? "+"
70 LOCATE X,0:? CHR$(250);
80 WAIT 5
90 I=INKEY()
100 IF I=28 LET X,X-1
110 IF I=29 LET X,X+1
120 S=S+1:GOTO 40
130 LOCATE 0,11:?
140 LOCATE X,0:? CHR$(244);
150 LOCATE 0,10:? "SCORE:";S;" ";
160 END
170 LOCATE 2,Y:? CHR$(1);
180 LOCATE 14,Y:? CHR$(1);
190 RETURN

'OK

COMMENT