ZX81 Programs


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

ZX81 Program Listing

*YARS REVENGE*SLR/1983* (yars.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17435
VARS  : 18228
E-LINE: 18293
STKBOT: 18293
STKEND: 18293


LEGEND

A means INVERSE A
A means GRAPHICS A
PRINT means treat as KEYWORD P


PROGRAM LISTING

   1 REM *YARS REVENGE*SLR/1983*
   4 LET M=6
   5 LET D=2
   6 LET E=10
   9 CLS
  10 FOR Z=0 TO 20
  20 PRINT "                    
            "
  30 NEXT Z
  40 PRINT AT 0,2;"YARS REVENGE"
  50 FOR C=1 TO 20
  60 PRINT AT C,6;"A5AAA8A"
  70 NEXT C
  80 PRINT AT D,E;"SS2"
  90 PRINT AT D+1,E;"DDE"
 100 PRINT AT 10,27;">HH**"
 110 LET F$=INKEY$
 120 LET E=E-(F$="5")+(F$="8")
 130 LET D=D-(F$="7")+(F$="6")
 160 IF F$="Z" THEN GOSUB 280
 170 IF M=0 THEN GOTO 310
 180 LET G=INT (RND*10)
 190 IF G>7 THEN GOTO 210
 200 GOTO 9
 210 IF G=10 THEN GOTO 230
 220 IF E<13 THEN GOTO 9
 230 IF D+1=10 THEN GOTO 250
 240 GOTO 9
 250 PRINT "YARS DEFEATED"
 260 PRINT AT D,E;"76767";AT D+1
,E;"67676"
 270 STOP
 280 IF D+1=10 OR D=10 THEN LET
M=M-1
 290 IF E>27 AND E<31 THEN LET M
=M-1
 300 RETURN
 310 PRINT 10,28;"HSWWSH"
 320 PRINT AT D,E;"D21D"
 330 PRINT AT D+1,E;"SE4S"
 340 PAUSE 1000
 350 IF INKEY$="A" THEN GOTO 370
 360 IF INKEY$<>"N" THEN GOTO 35
0
 365 STOP
 370 CLS
 380 GOTO 4
 400 SAVE "YR"
 410 RUN