• IchigoJam
• game
• danbungames

10 CLS:S=0:Y=21:Z=1:L=10:X=2:I=2
20 LOCATE L,I:PRINT"|  |":I=I+1
30 IF I<21 GOTO 20
40 IF S%Y=0 A=RND(2)+1:B=1
50 K=INKEY()
60 LOCATE X+L,20:PRINT" "
70 IF K=28 IF X>1 X=X-1
80 IF K=29 IF X<2 X=X+1
90 LOCATE X+L,20:PRINT"A"
100 IF B-Z<21 LOCATE L+A,B-Z:PRINT" "
110 IF B<21 LOCATE L+A,B:PRINT"V":B=B+Z
120 IF VPEEK(L+X,19)!=32 END
130 LOCATE 1,1:PRINT"SCORE:";S/10
140 S=S+1:GOTO 40

Pagetop