ZX81 Listing for lander2.p


ZX81 program listing for **LANDER 2**SLR/1983***

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17584
VARS  : 18377
E-LINE: 18378
STKBOT: 18378
STKEND: 18378


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

   1 REM **LANDER 2**SLR/1983***
   2 LET S=0
   3 LET T=1
   4 REM HI SCORE=601
   5 LET C$=" ±²ö"
   6 LET D$="  õ!"
   7 LET E$=" ´÷¶"
  10 PRINT TAB 10;"SPACE LANDER"
  11 LET H=INT ((7*RND+5)-1)*3
  15 PRINT AT  9,H;">¸"
  16 PRINT AT 10,H;">¸"
  17 PRINT AT 11,H;">¸"
  20 LET B=0
  25 LET C=0
  30 INPUT A
  40 LET B=B+A
  50 FOR X=C TO B
  55 PRINT AT  9,X;C$
  56 PRINT AT 10,X;D$
  57 PRINT AT 11,X;E$
  58 NEXT X
  59 LET C=B
  60 IF B+4>=H THEN GOTO 80
  61 LET T=T+1
  70 GOTO 30
  80 IF B+4>H THEN GOTO 120
  90 PRINT AT 10,B-2;"¸óó"
 100 PRINT AT 13,9;"TOUCH DOWN"
 110 IF T=1 THEN LET S=S+INT (20
*RND+4)
 111 LET S=S+20-T
 112 IF T=2 THEN LET S=S+INT (15
*RND+3)
 113 IF T=3 THEN LET S=S+INT (10
*RND+2)
 114 IF T=4 THEN LET S=S+INT (5*
RND+1)
 115 PAUSE 100
 116 CLS
 117 GOTO 3
 120 LET C$=" ²÷!"
 130 LET D$=" öµ "
 140 LET E$=" ´±¶"
 150 PRINT AT  9,B;C$
 160 PRINT AT 10,B;D$
 170 PRINT AT 11,B;E$
 180 PRINT AT 13,9;"**CRASH***"
 185 PRINT ,,"SCORE=";S
 190 PRINT ,,,,,,"PRESS ENTER TO
 START"
 200 IF INKEY$="" THEN GOTO 200
 210 IF INKEY$=CHR$ 227 THEN
STOP
 215 IF INKEY$=CHR$ 0 THEN GOTO
200
 220 RAND
 230 CLS
 240 GOTO 1
 300 SAVE "LANDER2"
 310 RUN