ZX81 Listing for lander.p


ZX81 program listing for ****LANDER****SLR/1984

****LANDER****SLR/1984 (lander.p)

Can you land your ship without crashing? Use 5 and 8 to steer left and right.


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17484
VARS  : 18277
E-LINE: 18278
STKBOT: 18278
STKEND: 18278


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM   ****LANDER****       
        BY:STEVEN REID  1984
  20 FOR A=10 TO 20
  30 PRINT AT A,0;"             
                   "
  40 NEXT A
  50 DIM A$(2,8)
  60 LET Y1=1
  70 LET Y2=10
  80 LET ME=6
  90 LET A$(1)=" !!úú!! "
 100 LET A$(2)=" !!ùù!! "
 110 LET I=1
 120 PRINT AT Y1-1,0;"          
                      ";AT Y1,Y2
;"³¹³";AT 10,ME;A$(I)
 130 LET Y1=Y1+1
 140 LET Y2=Y2-(INKEY$="5" AND Y
2>0)+(INKEY$="8" AND Y2<28)
 150 GOSUB 280
 160 LET ME=ME+RND AND (ME>0
AND ME<28)
 170 LET I=I-(I=2)+(I=1)
 180 IF Y1=10 THEN GOTO 200
 190 GOTO 120
 200 PRINT AT 9,0;"             
                   "
 210 PRINT AT 10,ME;A$(I);AT 10,
Y2;"³¹³"
 220 IF Y2<ME+1 OR Y2+2>ME+6
THEN GOTO 250
 230 PRINT AT 12,3;"YOU DID IT<>
<>"
 240 GOTO 310
 250 PRINT AT 12,3;"BOOM***YOU C
RASHED..."
 260 PRINT AT 10,Y2;"öñö"
 270 GOTO 310
 280 LET RND=INT (RND*2)
 290 LET RND=RND-(RND=0)
 300 RETURN
 310 PAUSE 4E4
 320 IF INKEY$<>"N" THEN RUN
 330 STOP
 400 SAVE "LANDER"
 410 RUN