Source Code
10 LET T=2
20 LET X=0
30 LET T=T+1
40 LET G=25
50 LET B=4
60 LET C=B
70 LET D=C
80 LET F$="\. "
90 LET E=25
100 LET B$="% % % % "
110 LET C$=B$
120 LET D$=B$
125 CLS
130 IF B=0 AND C=0 AND D=0 AND T>0 THEN GOTO 30
135 PRINT TAB 0;T;TAB 14;"\ :% ";TAB 25;X
140 PRINT AT 1,15;F$;AT 20,3;F$;AT 20,13;F$;AT 20,23;F$
150 PRINT AT 21,3;B$( TO B);AT 21,13;C$( TO C);AT 21,23;D$( TO D)
165 LET E=INT (RND*50)+1
170 FOR Z=40 TO 2 STEP -1
180 IF INKEY$="Z" THEN LET E=E-1
190 IF INKEY$="M" THEN LET E=E+1
200 PLOT E,Z
210 NEXT Z
230 IF E=6 THEN LET B=B-1
240 IF E=26 THEN LET C=C-1
250 IF E=46 THEN LET D=D-1
255 IF B=-1 OR C=-1 OR D=-1 THEN GOTO 325
260 IF E=6 OR E=26 OR E=46 THEN GOTO 263
262 GOTO 330
263 LET G=INT (RND*50)+1
265 FOR Y=2 TO 40
270 IF INKEY$="Z" THEN LET G=G-1
280 IF INKEY$="M" THEN LET G=G+1
290 PLOT G,Y
295 NEXT Y
300 IF G=30 THEN GOTO 315
310 GOTO 330
315 LET X=X+1
320 GOTO 125
325 IF B=-1 THEN LET B=0
326 IF C=-1 THEN LET C=0
327 IF D=-1 THEN LET D=0
330 PRINT AT 10,16;"CRASH"
341 LET T=T-1
343 FOR P=1 TO 50
344 NEXT P
346 IF T=0 THEN CLS
351 IF T=0 THEN PRINT "GAME ENDED. SCORE= ";X
353 IF T=0 THEN GOTO 1000
360 GOTO 125
\n1000 PRINT "AGAIN (Y/N)"
\n1020 LET Q$=INKEY$
\n1030 IF Q$="N" THEN STOP
\n1040 IF Q$="" THEN GOTO 1020
\n1050 RUN
\n1060 CLEAR
\n1070 SAVE "1025%6"
\n1080 RUN
