ZX81 Programs


Read about, play, run, or list games, animations, and more. These are my programs from the ’80s to today.

ZX81 Program Listing

**HIT MAN**SLR/1983**** (hm.p)


SYSTEM VARIABLES

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


LEGEND

A means INVERSE A
A means GRAPHICS A
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;"A";AT Z,D;"A"
;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;"W666Q";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