ZX81 Programs


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

ZX81 Program Listing

**SLOW DOWN**SLR/1985** (slowdown.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18177
VARS  : 18970
E-LINE: 18971
STKBOT: 18971
STKEND: 18971


LEGEND

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


PROGRAM LISTING

  10 REM **SLOW DOWN**SLR/1985**
  20 LET A$="0"
  30 PRINT AT 0,0;"E 4          
                    H           
                   2 1"
  35 LET L=VAL A$
  40 PRINT AT 0,0;"E 4          
                    H           
                   2 1"
  45 LET L=VAL A$
  50 PRINT AT 0,0;"E 4          
                    H           
                   2 1"
  55 LET L=VAL A$
  60 PRINT AT 0,0;"4GE          
                    F           
                   2 1"
  65 LET L=VAL A$
  70 PRINT AT 0,0;"THY          
                   R E          
                      "
  75 LET L=VAL A$
  80 PRINT AT 0,0;"5H8          
                   R E          
                   E74"
  85 LET L=VAL A$
  90 PRINT AT 0,0;"5H8          
                   R E          
                   E74"
  95 LET L=VAL A$
 100 PRINT AT 0,0;"5H8          
                   R E          
                   E74"
 105 LET L=VAL A$
 110 PRINT AT 0,0;"4HE          
                                
                   8 5"
 115 LET L=VAL A$
 120 PRINT AT 0,0;" H           
                                
                   R E"
 125 LET L=VAL A$
 130 PRINT AT 0,0;" H           
                                
                   R E"
 135 LET L=VAL A$
 140 PRINT AT 0,0;" H           
                                
                   R E"
 145 LET L=VAL A$
 150 PRINT AT 0,0;"4GE          
                    F           
                   2 1"
 155 LET L=VAL A$
 160 PRINT AT 0,0;"E 4          
                    H           
                   2 1"
 170 PRINT ,,,,,,"NORMAL TRANSFO
RMATION..." AND A$="0";"SLOWED D
OWN TRANSFORMATION..." AND A$<>"
0"
 180 FOR F=0 TO 100
 190 NEXT F
 200 CLS
 210 IF A$<>"0" THEN GOTO 20
 220 LET A$="SIN PI*SIN PI+TAN
PI"
 230 GOTO 30
 300 SAVE "SLOWDOWN"
 310 RUN