ZX81 Listing for trenchrunner2.p


ZX81 program listing for *TRENCHRUNNER-V2*SLR/1984*

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17136
VARS  : 17929
E-LINE: 17930
STKBOT: 17930
STKEND: 17930

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

   5 REM *TRENCHRUNNER*SLR/1984*
  10 LET X=CODE "?"
  11 FOR A=X/X TO CODE "M"
  20 PRINT AT X-X,X-X;"         
 !!!!!!!!!!!!          "
  30 PRINT AT X/X,X-X;"!!!!!!!!!
!            !!!!!!!!!!"
  40 PRINT AT 2,X-X;"          !
!!!!!!!!!!!          "
  50 PRINT AT 3,X-X;"!!!!!!!!!! 
           !!!!!!!!!!"
  60 PRINT AT 4,X-X;"          !
!!!!!!!!!!!          "
  80 LET Y=INT (CODE "£"*RND)+
CODE "ú"
  90 FOR G=X-X TO CODE "ô"
 110 PRINT AT CODE "ô",X;"H";AT
G,Y;"O"
 120 LET X=X-(INKEY$="Z")+(
INKEY$=".")
 125 PRINT AT CODE "ô",X;
 130 LET P=PEEK (PEEK 16398+256*
PEEK 16399)
 140 IF P=CODE " " THEN GOTO
CODE "COS "
 150 IF P=CODE "O" THEN GOTO
CODE "COS "
 160 NEXT G
 170 NEXT A
 180 PRINT "YOU WIN"
 200 PRINT "SCORE:";A
 210 PRINT "...PRESS A KEY TO PL
AY AGAIN... "
 220 PAUSE 4E4
 230 CLS
 240 RUN
 300 SAVE "TR"
 310 RUN