ZX81 Listing for lw.p


ZX81 program listing for **LIGHT WALLS**SLR/1983

**LIGHT WALLS**SLR/1983 (lw.p)

Use Z (left) and . (right) to avoid the walls.


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17601
VARS  : 18394
E-LINE: 18395
STKBOT: 18395
STKEND: 18395


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

   1 REM **LIGHT WALLS**SLR/1983
   5 LET S1=0
  10 FOR A=1 TO 20
  20 PRINT "                   "
  30 NEXT A
  40 LET B=INT (3*RND+1)
  50 IF B=1 THEN PRINT AT 5,1;"<
="
  60 IF B=2 THEN PRINT AT 5,17;"
=>"
  65 IF B=3 THEN PRINT AT 5,8;">
=<"
  70 PAUSE 50
  80 IF INKEY$="Z" THEN GOTO 100
  90 IF INKEY$="." THEN GOTO 200
  95 GOTO 400
 100 IF B=2 THEN GOTO 300
 105 IF B=3 THEN GOTO 300
 110 PRINT AT 5,1;"  "
 120 PRINT AT 10,9;"<"
 130 LET S1=S1+1
 140 PRINT AT 12,3;"SCORE:";S1
 150 PRINT AT 14,3;"LEFT  TURN"
 160 LET L=SIN PI
 180 GOTO 40
 200 IF B=1 OR B=3 THEN GOTO 300
 210 PRINT AT 5,17;"  "
 220 PRINT AT 10,9;">"
 230 LET S1=S1+1
 240 PRINT AT 12,3;"SCORE:";S1
 250 PRINT AT 14,3;"RIGHT TURN"
 260 LET L=SIN PI
 280 GOTO 40
 300 PRINT AT 12,3;"SCORE:";S1
 310 PRINT AT 14,3;"CRASH =--="
 320 PRINT AT 19,0;"PRESS ANY KE
Y."
 330 PAUSE 4E4
 340 CLS
 350 RUN
 400 IF B<3 THEN GOTO 300
 410 PRINT AT 5,8;"   "
 420 PRINT AT 10,9;"="
 430 LET S1=S1+1
 440 PRINT AT 12,3;"SCORE:";S1
 450 PRINT AT 14,3;"STRAIT WAY"
 460 LET L=SIN PI
 480 GOTO 40
 500 SAVE "LW"
 510 RUN