ZX81 Programs


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

ZX81 Program Listing

*CODE SEARCHER*SLR/1984 (codes.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16926
VARS  : 17719
E-LINE: 17720
STKBOT: 17720
STKEND: 17720


LEGEND

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


PROGRAM LISTING

  10 REM *CODE SEARCHER*SLR/1984
  20 DIM A$(4)
  30 LET B$="...."
  40 PRINT "ENTER A NUMBER WORD"
  50 INPUT A$
  60 LET K$="0123456789"
  70 FOR A=1 TO 10
  80 SCROLL
  90 PRINT B$
 100 FOR B=1 TO 4
 110 IF K$(A)=A$(B) THEN LET B$(
B)=K$(A)
 120 NEXT B
 130 NEXT A
 140 SCROLL
 144 PRINT B$
 148 SCROLL
 150 IF A$=B$ THEN PRINT "I GOT 
IT***"
 160 IF NOT A$=B$ THEN PRINT "YO
U CHEATED..."
 170 FOR A=1 TO 10
 180 SCROLL
 190 NEXT A
 200 PRINT "PRESS A KEY TO START
 AGAIN..."
 210 PAUSE 4E4
 220 CLS
 230 RUN
 300 SAVE "CODES"
 310 RUN