Moritz Strikes Back: MSB48k.B

  10 CLEAR VAL "25599"
  15 BORDER 0: PAPER 0: INK 7
  20 LOAD ""SCREEN$ 
  30 POKE 23739, 111
  40 LOAD ""CODE 
  65 PAUSE 0
  70 RANDOMIZE USR VAL "27060"
  80 RANDOMIZE USR VAL "33805"
  110 RANDOMIZE USR VAL "48000"
  115 CLS 
  116 IF PEEK (48429)= 0 THEN  GO TO 120
  117 IF PEEK (48429)> 0 THEN  GO TO 140
  120 PRINT AT 10,10; "GAME OVER"
  124 PAUSE 50
  125 RANDOMIZE USR 26840
  128 GO TO 70
  140 RANDOMIZE USR 30850
  150 GO TO 70