• Ichigojam

5 CLV
10 CLS:FOR I=0 TO 29:FOR J=5 TO 22:IF RND(20)=1 LCI,J:?"$":Z=Z+1
15 NEXT:NEXT
20 X=16:Y=1:R=1:LCX,Y:?"@":LC20,0:?"SCORE:";S
100 K=INKEY():U=X:V=Y
110 IF K=28 AND X>0 X=X-1:M=1
120 IF K=29 AND X<29 X=X+1:M=1
130 IF K=30 AND Y>0 Y=Y-1:M=1
140 R=R+R+1:IFR>5AND Y<22 Y=Y+1:M=1:R=0 ELSE IF Y=22 R=0
150 IF VPEEK(X,Y)=36 LC10,16:?"GAME OVER":PLAY"C16R16C8R8A":END ELSE IF M LCX,Y:?"@";:LCU,V:?" ";
200 FOR I=0 TO T
210 IFK=54 AND N=0 A=X:B=Y:N=1:P=1:Q=0:LCA,B:M=1
215 IFK=52 AND N=0 A=X:B=Y:N=1:P=-1:Q=0:LCA,B:M=1
220 IF N AND A>-1 AND A<30 AND B>0 AND B<24 A=A+P:B=B+Q:C=VPEEK(A,B):LCA,B:?"O";:LCA-P,B-Q:?" "; ELSE N=0:C=0:IF A=30 OR A=0 LCA,B:?" ";
225 IFC=36S=S+1:LC20,0:?"SCORE:";S:N=0:Z=Z-1:LCX,Y:?" ":LCA,B:?"@":X=A:Y=B:M=1:BEEP
230 NEXT
310 M=0:IFZ=0GOTO10ELSEGOTO100

Pagetop