ZX81 Listing for hm.p


ZX81 program listing for **HIT MAN**SLR/1983****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17214
VARS  : 18007
E-LINE: 18008
STKBOT: 18008
STKEND: 18008


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **HIT MAN**SLR/1983****
  20 LET A=0
  30 LET B=6
  40 LET C=4
  50 LET D=8
  60 PRINT "           **HIT.MAN
**"
  70 FOR Z=1 TO 19
  80 PRINT AT Z,C;"!";AT Z,D;"!"
;AT Z,B;" "
  90 IF B>=D OR B<=C THEN GOTO 2
80
 100 IF INKEY$="Z" THEN LET B=B-
1
 110 IF INKEY$="." THEN LET B=B+
1
 120 LET E=INT (RND*3+1)
 130 IF E=3 THEN GOTO 200
 140 IF E=2 THEN GOTO 180
 150 LET D=D-(C>0)
 160 LET C=C-(C>0)
 170 GOTO 200
 180 LET C=C+(D<31)
 190 LET D=D+(D<31)
 200 LET A=A+1
 210 NEXT Z
 220 PRINT AT Z,C;"²³³³±";AT 21,
0;"PRESS ENTER TO CONTINUE......
..."
 230 LET G=INT (RND*50+1)
 240 LET A=A+G
 250 PAUSE 4E4
 260 CLS
 270 GOTO 30
 280 PRINT "SCORE:";A;AT 0,0;"GA
ME OVER...PRESS ENTER START..."
 290 PAUSE 4E4
 300 CLS
 310 RUN
 400 SAVE "HM"
 410 RUN