• IchigoJam
• Iwata

10 CLS
15 PLAY"T260$GRRA>C<GRRF2F2FG2F"
20 B=10:V=-2:A=B:S=0
30 LC 28,A:?" ";
40 LC 28,A-1:?" ";
41 LC 0,22:?"          ";
50 SCROLL 1
51 N=RND(2)
52 IF N=0 GOTO 57
53 Y=RND(22-1)
54 LC 0,Y:?CHR$(#E8)
55 LC 0,Y+1:?CHR$(#F2)
56 N=N-1:GOTO 52
57 C=VPEEK(28,B)
58 D=VPEEK(28,B-1)
59 IF (C=#E8)+(D=#E8) S=S+1
60 LC 28,B:?CHR$(#FD);
70 LC 28,B-1:?CHR$(#E8);
71 LC 0,22:?"SCORE:";S;
80 IF INKEY()=32 V=-2
90 V=V+1
100 A=B:B=B+V
110 IF 23<B END
120 WAIT15:GOTO 30

Pagetop