ZX81 Listing for boff.p


ZX81 program listing for **BLAST OFF**SLR/1985**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17224
VARS  : 18017
E-LINE: 18018
STKBOT: 18018
STKEND: 18018


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **BLAST OFF**SLR/1985**
  20 PRINT "BLAST OFF****BY STEV
EN REID**   BEFORE LIFT OFF, YOU
 MUST ENTER IN THE ENGINE IGNITI
ON CODE..."
  30 DIM A$(32)
  40 LET SP=100
  50 FOR A=1 TO 32
  60 LET A$(A)=CHR$ (INT (RND*26
+166))
  70 NEXT A
  80 PRINT "BEGIN..."
  90 PRINT AT 10,0;A$
 100 FOR G=1 TO 32
 110 LET B$=CHR$ (CODE (A$(G))-1
28)
 120 PRINT AT 10,G-1;B$
 130 PAUSE SP
 140 LET L$=INKEY$
 150 IF L$=B$ THEN GOTO 170
 160 GOTO 230
 170 PRINT AT 10,G-1;"*"
 180 LET SP=SP-1.5
 190 NEXT G
 200 PRINT ,,,,"YOU DID IT...BLA
ST OFF**********"
 210 GOTO 240
 230 PRINT ,,,,"WRONG CODE...TOO
 BAD...STOPPED  AT CODE NUMBER "
;G;"."
 240 PRINT AT 20,0;"**PRESS ANY 
KEY TO PLAY AGAIN **"
 250 IF INKEY$<>"" THEN GOTO 250
 260 IF INKEY$="" THEN GOTO 260
 270 CLS
 280 RUN
 300 SAVE "BOFF"
 310 RUN