ZX81 Programs


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

ZX81 Program Listing

PRINTER CAR (pc.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17699
VARS  : 18492
E-LINE: 18493
STKBOT: 18493
STKEND: 18493


LEGEND

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


PROGRAM LISTING

  10 REM PRINTER CAR
  20 REM BY:STEVEN REID
  25 LET LP=0
  30 LET S=0
  40 LET X=10
  50 LET Y=8
  60 FOR A=1 TO 100
  65 IF LP=0 THEN GOTO 260
  70 LPRINT TAB Y;("A" AND X>Y);
TAB X;"H";TAB Y+6;("A" AND X<Y+6
)
  75 LPRINT
  80 IF X<=Y OR X>=Y+6 THEN
GOTO 150
  90 GOSUB 190
 100 NEXT A
 105 IF LP=0 THEN GOTO 500
 110 LPRINT "HYOU MADEITYOU MADE
ITYOU MADEITH"
 120 LPRINT "YOUR SCORE IS:";S
 130 LPRINT "GAME OVER---"
 140 GOTO 400
 150 IF LP=0 THEN GOTO 600
 155 LPRINT "HCRASHCRASHCRASHCRA
SHCRASHCRASHH"
 160 LPRINT "YOUR SCORE IS:";S
 170 LPRINT "GAME OVER---"
 180 GOTO 400
 190 LET L$=INKEY$
 200 LET X=X-(L$="5" AND X>0)+(L
$="8" AND X<31)
 210 LET F=INT (RND*2)
 220 LET Y=Y-(F=0 AND Y>0)+(F
AND Y+6<31)
 230 LET S=S+1
 240 RETURN
 250 REM END
 260 SCROLL
 270 PRINT TAB Y;("A" AND X>Y);
AT 21,X;"H";AT 21,Y+6;("A" AND X
<Y+6)
 280 SCROLL
 290 GOTO 80
 300 SAVE "PC"
 310 PRINT AT 15,0;"DO YOU HAVE 
A PRINTER? (Y/N)";
 320 LET X$=INKEY$
 330 LET LP=-1+(1 AND X$="N")+(2
AND X$="Y")
 340 IF LP<0 THEN GOTO 320
 350 PRINT X$
 400 SCROLL
 410 PRINT "PRESS A KEY TO START
..."
 420 PAUSE 4E4
 430 CLS
 440 GOTO 30
 500 SCROLL
 510 PRINT "HYOU MADEITYOU MADEI
TYOU MADEITH"
 520 SCROLL
 530 PRINT "YOUR SCORE IS:";S
 540 SCROLL
 550 PRINT "GAME OVER---"
 560 GOTO 400
 600 SCROLL
 610 PRINT "HCRASHCRASHCRASHCRAS
HCRASHCRASHH"
 620 GOTO 520