PROG : 16509
D-FILE: 17214
VARS : 18007
E-LINE: 18008
STKBOT: 18008
STKEND: 18008
9999 means line number
PRINT means treat as KEYWORD P
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