ZX81 Programs


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

ZX81 Program Listing

**3D IMAGE**SLR/1984*** (3dimage.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17339
VARS  : 18132
E-LINE: 18133
STKBOT: 18133
STKEND: 18133


LEGEND

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


PROGRAM LISTING

  10 REM **3D IMAGE**SLR/1984***
  20 FOR A=10 TO 0 STEP -1
  21 FOR G=1 TO 22
  22 PRINT "AAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAA"
  23 NEXT G
  30 FOR S=11-A/2+5 TO 10-A/2+5+
A
  40 PRINT AT S,10-A/2-.5;"     
     "( TO A)
  50 NEXT S
  60 FAST
  70 PAUSE 20
  80 IF A>0 THEN CLS
  90 NEXT A
 100 SLOW
 110 PRINT AT 0,0;"THE SUN CALLA
PSED IN THE LIGHT  OF DAY TO SUD
DENLY..."
 120 PAUSE 200
 125 CLS
 130 FOR A=1 TO 10
 140 FOR G=1 TO 22
 150 PRINT "AAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAA"
 160 NEXT G
 170 FOR S=11-A/2+5 TO 10-A/2+5+
A
 180 PRINT AT S,10-A/2-.5;" FGEW
FTR76"( TO A)
 190 NEXT S
 200 FAST
 205 PRINT AT 0,0;"THE SUN CALLA
PSED IN THE LIGHT  OF DAY TO SUD
DENLY..."
 210 PRINT AT 8,10;"EXPLODE"
 220 PAUSE 20
 230 IF A<10 THEN CLS
 240 NEXT A
 250 SLOW
 260 PAUSE 4E4
 270 CLS
 280 RUN
 300 SAVE "3DIMAGE"
 310 RUN