ZX81 Programs


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

ZX81 Program Listing

catanim (catanim.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 19391
VARS  : 20184
E-LINE: 20185
STKBOT: 20185
STKEND: 20185


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM *****CAT ANIMATION*****
  11 REM **KEITH S. REID-GREEN**
  12 REM *ZX81 VER. BY SLR/2023*
  20 CLS
  30 PRINT AT 13,0;"úúúúúúúúúúúú
úúúúúúúúúúúúúúúúúúúú"
  40 DIM A$(6,416)
  50 LET A$(1)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
  60 LET A$(2)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
  70 LET A$(3)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
  80 LET A$(4)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
  90 LET A$(5)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
 100 LET A$(6)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
 110 FOR I=1 TO 6
 120 PRINT AT 0,0;A$(I)
 130 NEXT I
 140 GOTO 110
 150 SAVE "CATANIM"
 160 RUN