ZX81 Listing for slander.p

*SPACE LANDER*SLR/1983* (slander.p)

Move the lander and hope to find the best landing site!

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17459
VARS  : 17484
E-LINE: 17485
STKBOT: 17485
STKEND: 17485

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

   1 REM *SPACE LANDER*SLR/1983*
   5 LET A=6
  10 PRINT ,"SPACE LANDER"
  20 PRINT
  30 PRINT "PUSH 1 FOR LFT,2 FOR
 RIGHT,0 FORLAND"
  40 PAUSE 500
  50 SCROLL
  55 PRINT TAB 6;"X"
  60 LET B$=INKEY$
  70 IF B$="0" THEN GOTO 140
  75 IF B$="2" THEN GOTO 110
  80 LET A=A+1
  90 SCROLL
  95 PRINT TAB A;"X"
 100 GOTO 60
 110 LET A=A-1
 120 SCROLL
 125 PRINT TAB A;"X"
 130 GOTO 60
 140 CLS
 150 FOR T=1 TO 10
 160 PRINT TAB A;"X"
 170 NEXT T
 180 LET S=INT (2*RND)
 190 IF S=1 THEN GOTO 250
 200 IF S=2 THEN GOTO 300
 210 PRINT TAB A;"X"
 220 PRINT "<><><>------<><><><>
<><><><><><>"
 230 IF A<=6 OR A>=13 THEN GOTO
500
 240 GOTO 600
 250 REM LAND
 260 PRINT TAB A;"X"
 270 PRINT "<><><><><><>------<>
<><><><><><>"
 280 IF A<=12 OR A>=19 THEN
GOTO 500
 290 GOTO 600
 300 REM LAND
 310 PRINT TAB A;"X"
 320 PRINT "<><><><><><><><><><>
<>------<><>"
 330 IF A<=22 OR A>=29 THEN
GOTO 500
 340 GOTO 600
 500 PAUSE 500
 520 PRINT "CRASH****"
 530 PRINT ,,,,,,"LANDER DESTROY
ED**//**"
 540 GOTO 540
 600 PAUSE 500
 620 PRINT "LAND*****"
 630 PRINT ,,,,,,"LANDER MADE IT
***//***"
 640 GOTO 640
 700 SAVE "SLANDER"
 710 RUN