Source Code
5 REM "ZAP"
10 LET S=0
20 LET M=14
30 FOR I=1 TO 20
40 LET R=INT (RND*3)
50 LET P=13-(12 AND R=0)+(12 AND R=2)+INT (RND*5)
60 LET P$="P"+("+1" AND R)+("-1" AND R=2)
70 FOR H=4 TO 21
80 LET P=VAL P$
90 LET M=M+(INKEY$="8" AND M<29)-(INKEY$="5" AND M>1)
100 CLS
110 PRINT AT 21,M-1;"\.:\:.";AT H,P-1;"\.'\'.";AT 24-H,M;"*"
120 IF H=12 AND M>P-2 AND M<P+2 THEN GOTO 180
130 NEXT H
140 NEXT I
150 CLS
160 PRINT "LANDED:";20-5,"STOPPED:";S
170 STOP
180 LET S=S+1
190 PRINT AT H-1,P;"*";TAB P-1;"***";TAB P;"*"
200 GOTO 140
210 SAVE "1022%8"
220 RUN
