Stop the Express: STE.B

  5 BORDER 0: PAPER 0: CLS 
  6 POKE 23606,48: POKE 23607,116
  10 RANDOMIZE USR 15619: REM : LOAD "STE3"CODE 16384
  12 RANDOMIZE USR 15619: REM : LOAD  "STE2"CODE  30000
  14 RANDOMIZE USR 15619: REM : LOAD   "STE1"CODE   40000
  15 RANDOMIZE USR 15619: REM : LOAD    "STE4"CODE    50000
  30 PRINT AT 5,7; INK 4;"STOP THE EXPRESS!!"
  32 PRINT AT 21,7; INK 6;"LAST GAME TRACE:";PEEK 29999
  34 RANDOMIZE USR 40000
  38 CLS : FOR F=1 TO 31: PRINT AT 11,F; INK 3; PAPER 4;"m": NEXT F
  39 FOR F=30 TO 1 STEP -1: PRINT AT 10,F; INK 1;"kl": BEEP F/90,60: NEXT F: PRINT AT 10,1; INK 1;"l"
  40 FOR F=30 TO 1 STEP -1: PRINT AT 10,F; INK 1;"l ": BEEP .1 TO /F,60: NEXT F: PRINT AT 10,1; INK 1;" "
  41 FOR F=30 TO 1 STEP -1: PRINT AT 10,F; INK 6;". ": NEXT F: PRINT AT 10,1; INK 1;" "
  42 FOR F=30 TO 1 STEP -1: PRINT AT 10,F; INK 2;". ": NEXT F: PRINT AT 10,1; INK 1;" "
  43 CLS : LET PUL=0: LET PUL1=0
  44 LET P=30: LET TR=0: LET P1=30
  45 PRINT AT 21,26; INK 7; PAPER 5;"     "
  48 FOR F=30 TO 0 STEP -1: PRINT AT 20,F; INK 1;"c": NEXT F
  60 LET V=0: LET R=0: LET A=0: LET Q=0: LET Q1=0: LET C=0: LET PR=0
  70 FOR J=1 TO 2: PRINT AT 20,A; INK 1;"cb  a"
  72 PRINT AT 21,0; INK 7; PAPER 5;"STOP THE EXPRESS!!! TRACE:";TR
  73 IF PR<2 THEN  LET A=A+1
  75 IF A=26 THEN  PRINT AT 20,A; INK 1;"ccccc": LET TR=TR+1: LET A=0
  78 IF PR=0 THEN  PRINT AT 18,15; INK 6;"d"
  79 IF PR=0 AND J=1 THEN  PRINT AT 19,15; INK 6;"e"
  80 IF PR=0 AND J=2 THEN  PRINT AT 19,15; INK 6;"f"
  81 IF PR=1 THEN  PRINT AT 18,15; INK 6;"g": PRINT AT 17,15; INK 6;"d": LET C=C+1
  82 IF PR=2 THEN  PRINT AT 19,15; INK 6;"hi"
  85 IF INKEY$="m" AND PR=0 THEN  BEEP .001[H],60: LET R=C: LET PR=1: PRINT AT 19,15;" "
  89 IF PR=1 AND C=R+4 THEN  BEEP .001[H],20: PRINT AT 17,15;" ": LET C=0: LET PR=0
  100 IF INKEY$="n" AND PR=0 THEN  BEEP .001[H],30: PRINT AT 18,15;" ": LET PR=2
  103 IF INKEY$="m" AND PR=2 THEN  BEEP .001[H],60: PRINT AT 19,16;" ": LET PR=0
  104 IF TR=15 THEN  GO TO 500
  105 IF PUL=0 THEN  LET Q=INT (RND*50)
  106 IF PUL1=0 THEN  LET Q1=INT (RND*50)
  110 IF Q=10 THEN  LET PUL=1
  115 IF Q1=40 THEN  LET PUL1=1
  120 IF PUL=1 THEN  PRINT AT 18,P; INK 2;"j ": LET P=P-1
  122 IF PUL1=1 THEN  PRINT AT 19,P1; INK 2;"j ": LET P1=P1-1
  127 IF PUL=1 AND P=0 THEN  PRINT AT 18,1;" ": LET PUL=0: LET P=31
  130 IF PUL1=1 AND P1=0 THEN  PRINT AT 19,1;" ": LET PUL1=0: LET P1=31
  140 IF PUL=1 THEN  GO SUB 150
  142 IF PUL1=1 THEN  GO SUB 155
  145 GO TO 160
  150 IF PR=0 AND P=15 THEN  LET V=18: GO TO 300
  155 IF PR=0 AND P1=15 THEN  LET V=19: GO TO 300
  156 IF PR=2 AND P1=15 THEN  LET V=19: GO TO 300
  157 IF PR=1 AND P=15 THEN  LET V=18: GO TO 300
  159 RETURN 
  160 IF PR=0 AND A+1=15 THEN  LET V=0: GO TO 300
  162 IF PR=0 AND A+2=15 THEN  LET V=0: GO TO 300
  170 NEXT J: GO TO 70
  300 IF V=0 THEN  GO TO 350
  301 PRINT AT 17,15;" ": BEEP .1 TO ,-20: FOR F=P TO 0 STEP -1
  302 PRINT AT 18,F; INK 2;"j "
  305 PRINT AT 18,0;" ": NEXT F
  308 FOR F=P1 TO 0 STEP -1
  309 PRINT AT 19,F; INK 2;"j "
  310 PRINT AT 19,0;" ": NEXT F
  320 FOR F=1 TO 10: BEEP .001[H],40-F
  323 PRINT AT 19,15; INK 6;"hi"
  324 BEEP .001[H],40+f
  326 PRINT AT 19,15; INK 7;"pp"
  348 NEXT f
  349 FOR f=0 TO 31: PRINT AT 19,f;" ": NEXT f: GO TO 400
  350 PRINT AT 18,15;" ": PRINT AT 19,15; INK 6;"d": BEEP .1 TO ,3
  352 PRINT AT 19,15;" ": PRINT AT 20,15; INK 6;"d": BEEP .1 TO ,0
  353 PRINT AT 20,15; INK 0;"d": BEEP .1 TO ,-3
  400 PRINT AT 5,5; INK 5;"GAME OVER": BEEP .1 TO ,1
  405 PRINT AT 8,5; INK 5;"TRACE:";TR: BEEP .1 TO ,2: BEEP 2,-60
  410 CLS 
  412 PRINT AT 5,5; INK 5;"GAME OVER"
  413 PRINT AT 8,5; INK 5;"TRACE:";TR: POKE 29999,TR: BEEP 3,-60
  420 RUN 
  500 BEEP .3[J],65: FOR F=0 TO 31: PRINT AT 18,F;" ": NEXT F
  503 FOR F=0 TO 31: PRINT AT 19,F;" ": NEXT F
  510 FOR F=14 TO 0 STEP -1: PRINT AT 18,F; INK 6;"d ": PRINT AT 19,F; INK 6;"f ": NEXT F
  513 PRINT AT 18,0; INK 0;"d ": PRINT AT 19,0; INK 0;"f "
  515 FOR F=31 TO 14 STEP -1: PRINT AT 18,F; INK 2;"d ": PRINT AT 19,F; INK 2;"f ": NEXT F
  520 BEEP .1 TO ,20: FOR F=10 TO 0 STEP -1: BEEP .001[H],f+40: PRINT AT 18,F; INK 2;"j  ": NEXT F
  524 PRINT AT 18,0; INK 0;"d ": PRINT AT 19,0; INK 0;"f "
  528 FOR F=13 TO 0 STEP -1: PRINT AT 18,F; INK 2;"d ": PRINT AT 19,F; INK 2;"f ": NEXT F
  530 CLS 
  540 PRINT AT 15,15; INK 6;"d ": PRINT AT 16,15; INK 6;"f "
  543 PRINT AT 15,14; INK 4;"n"
  550 FOR f=1 TO 10: BEEP .01=,1: PAUSE 5: BEEP .01=,2: PAUSE 20: NEXT f
  556 PRINT AT 15,15; INK 6;"d ": PRINT AT 16,15; INK 6;"e "
  558 PRINT AT 15,14; INK 6;"-": BEEP .004[H],50: BEEP .003 READ ,40
  559 PRINT AT 15,14; INK 4;"o"
  560 FOR f=1 TO 10: BEEP .01=,1: PAUSE 5: BEEP .01=,2: PAUSE 20+(f*2): NEXT f
  563 FOR f=1 TO 10: BEEP f/16,2: NEXT f
  580 PRINT AT 10,8; INK 7;"MISSION COMPLETE"
  581 FOR f=1 TO 80 STEP 8: BEEP .004[H],20: PAUSE f: NEXT f
  590 RANDOMIZE USR 50000: RUN 
  600 BORDER 0: PAPER 0: CLS : PAPER 4: CLS : PAPER 0: CLS 
  610 PRINT AT 1,1; INK 4;"STOP THE EXPRESS": BEEP .004[H],60
  612 PRINT AT 2,1; INK 4;"IS LOADING": BEEP .004[H],60
  615 PRINT AT 3,1; INK 4;"CONTROL - N-DOWN,M-JUMP": BEEP .004[H],60
  620 PRINT AT 5,1; INK 3;"RUN OUT TERRORIST AND": BEEP .004[H],60
  622 PRINT AT 6,1; INK 3;"STOP EXPRESS!!": BEEP .004[H],60
  630 PRINT AT 7,1; INK 3;"SAVE IN EXPRESS PEOPLE!!": BEEP .004[H],60
  635 IF INKEY$=" " THEN  PAPER 2: CLS : GO TO 1
  640 PRINT AT 21,1; INK 1+(RND*7);"PRESS SPACE"
  645 GO TO 635
  58880&