Crash

Gallery

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
1000 PRINT "AGAIN (Y/N)"
1020 LET Q$=INKEY$
1030 IF Q$="N" THEN STOP 
1040 IF Q$="" THEN GOTO 1020
1050 RUN 
1060 CLEAR 
1070 SAVE "1025%6"
1080 RUN