ZX81 Programs


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

ZX81 Program Listing

**WATER BUG DEMO** (wbiidemo.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17743
VARS  : 18536
E-LINE: 19240
STKBOT: 19252
STKEND: 19252


LEGEND

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


PROGRAM LISTING

  10 REM **WATER BUG DEMO**
  20 PRINT AT 4,3;"5    8       
8E7  75            2485E1865    
8E   E1             8585 5 8    
8W6  26";AT 9,2;"       ER4     
E77               WY    WQ1     
 E6               6EQ   E7R R E 
R6Q               WW    W6T     
         ";TAB 23;"   ";TAB 23;"
   ";
  30 PRINT TAB 22;"     "
  40 LET A$=" T7R774  E77R7W   E
W24T2 1T7 677 2Y87  778 68 1865 
1 W5   5   7Y YT86    26T826T Y 
  E5E 4Y68  8     Y666     66666
661Y66666 771         EW8 5E    
                      EY        
                      WQ   2    
                                
                 T7 RE878 5E1W8 
 EW872 1EW       7R 85818 5E    
  181   58       WQ 8586   W45R 
 5Y86E 4WE   "
  50 LET A$=A$+"                
                    TEEY24 Q QR 
TY E5               585  5 8 2R 
TYEWW               Y2WTE1 Q4 8 
YT  5           "
  55 LET A$=A$+"                
                "
  60 DIM B$(128)
  70 LET B$=A$( TO 128)
  80 PRINT AT 17,0;B$
  90 FOR A=1 TO 100
 100 NEXT A
 110 FOR G=1 TO 11 STEP 4
 111 FOR F=1 TO 4
 120 LET A$=A$(33 TO )+A$( TO 32
)
 130 LET B$=A$( TO 128)
 140 PRINT AT 17,0;B$
 150 FOR A=1 TO 10
 160 NEXT A
 165 NEXT F
 168 FOR A=1 TO 50
 169 NEXT A
 170 NEXT G
 180 FOR A=1 TO 100
 190 NEXT A
 200 RUN