ZX81 Listing for mi.p


ZX81 program listing for **MISSLER**SLR/1983****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16993
VARS  : 17786
E-LINE: 17787
STKBOT: 17787
STKEND: 17787

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  10 REM **MISSLER**SLR/1983****
  15 LET SC=0
  20 PRINT "MISSLER>...<"
  30 LET A=1
  40 LET B=INT (15*RND+1)
  50 LET C=1
  60 PRINT AT C,B;" "
  70 PRINT AT 20,A;" ! "
  75 LET L=SIN PI
  80 LET C=C+1
  90 LET D$=INKEY$
 100 IF D$="Z" THEN LET A=A-(A>0
)
 110 IF D$="." THEN LET A=A+(A<1
5)
 120 IF C>20 THEN GOTO 170
 130 IF D$="M" THEN GOTO 150
 140 GOTO 60
 150 IF A+1=B THEN GOTO 165
 160 GOTO 60
 165 CLS
 166 LET SC=SC+10+(20-C)
 167 GOTO 40
 170 PRINT "YOU DIED<><>SCORE:";
SC
 180 PAUSE 4E4
 190 CLS
 200 RUN
 300 SAVE "MI"
 310 RUN