• IchigoJam
• game
• danbungames

10 A=17:X=0:Y=0:U=0:V=0:C=0:D=0
20 T=0:S=-1
30 IF U*(X<=0)+U*(30<=X) U=U*-1
40 IF V*(Y<=1) V=V*-1
50 IF U X=X+U:Y=Y+V
60 IF (Y=21)*(A-2<X)*(X<A+2) V=V*-1
70 IF V*(21<Y) X=0:Y=0:U=0:V=0
80 IF U*(Y=D)*(C-2<X)*(X<C+2) T=0
90 IF T=0 S=S+1
100 IF T%30=0 C=RND(29)+1:D=RND(17)+1
110 K=INKEY()
120 IF K=28 IF 1<A A=A-1
130 IF K=29 IF A<29 A=A+1
140 IF K=32 X=A:Y=21:U=1:V=-1
150 CLS
160 PRINT"SCORE:";S
170 LOCATE A-1,22:PRINT"==="
180 IF U LOCATE X,Y:PRINT"o"
190 LOCATE C-1,D:PRINT"###"
200 WAIT 2:T=T+1:GOTO 30

Pagetop