• Ichigojam

5 CLV
10 CLS
20 X=16:Y=12:T=2:Z=10:LCX,Y:?"@":LC20,0:?"SCORE:";S:LC9,0:?"MAKURA:";Z
100 K=INKEY():U=X:V=Y:LC16,0:?Z;"  ":R=R+1:IF R=10 Z=Z+1:R=0
110 IF K=28 AND X>0 X=X-1:M=1
120 IF K=29 AND X<30 X=X+1:M=1
130 IF K=30 AND Y>1 Y=Y-1:M=1
140 IF K=31 AND Y<22 Y=Y+1:M=1
150 IF VPEEK(X,Y)=36 GOTO500
160 IF M LCX,Y:?"@";:LCU,V:?" ";:M=0
200 FOR I=0 TO T
210 IFK=56 AND N=0 AND Z>0 A=X:B=Y:N=1:P=0:Q=-1:Z=Z-1
215 IFK=50 AND N=0 AND Z>0 A=X:B=Y:N=1:P=0:Q=1:Z=Z-1
220 IF N AND A>-1 AND A<30 AND B>1 AND B<23 AND Z>0 A=A+P:B=B+Q:C=VPEEK(A,B):LCA,B:?"O";:LCA-P,B-Q:?" "; ELSE N=0:C=0:LCA,B:?" ";
222 IF X=A-P AND Y=B-Q:LCX,Y:?"@";
225 IFC=36S=S+1:Z=Z+1:LC20,0:?"SCORE:";S:N=0:M=1:BEEP
227 NEXT
230 IFL=0 D=RND(2)*30:E=Y+RND(3)-1:O=1-(D=30)*2:O=O*RND(3)+O:L=1
240 IFL AND D>-1 AND D<31 D=D+O:LCD,E:F=VPEEK(D,E):LCD,E:?"$"; ELSE L=0:F=0
250 IFF=64 GOTO500
310 M=0:GOTO100
500 LC10,16:?"GAME OVER":PLAY"C16R16C8R8A":END

Pagetop