ZX81 Programs


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

ZX81 Program Listing

**PHOTON**SLR/1985 (photon.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 19627
VARS  : 20420
E-LINE: 20439
STKBOT: 20449
STKEND: 20449


LEGEND

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


PROGRAM LISTING

  10 REM **PHOTON**SLR/1985
  20 FOR A=0 TO 21
  30 PRINT AT A,0;"             
                   ";AT 0,8;"E7"
;AT 1,7;"E  2";AT 2,1;"E771     
    777";AT 3,0;"HHHHHHHHHHHHHHH
HHH";AT 4,0;"   64         666";
AT 5,0;"  E    FHHF";AT 6,0;"  Q
      F";AT 7,0;"  ";AT 8,0;"HH8
                 7";AT 9,0;"HH8 
                  7777777";AT 10
,0;"Q";AT 10,17;"           777"
;AT 11,17;"  6666666666666";AT 1
2,0;"R                   7     7
";AT 13,0;"8                6666
666666 6";AT 14,0;"2GG";AT 15,0;
"8";AT 16,0;"8"
  40 PRINT AT 6,9;" "
  50 NEXT A
  60 PAUSE 300
  70 PRINT AT 7,2;" R";AT 8,2;"2
R";AT 9,2;"ER"
  80 PRINT AT 7,2;"  E";AT 8,2;"
8EQ";AT 9,2;"8A67";AT 10,4;"T"
  90 PRINT AT 7,3;"  E";AT 8,3;"
 EQ";AT 9,3;" A67";AT 10,3;"  T"
 100 PRINT AT 7,4;"  8";AT 8,4;"
 5E";AT 9,4;" AT";AT 10,4;" 5 Q"
 110 PRINT AT 7,5;"  8";AT 8,5;"
 5E";AT 9,5;" AT";AT 10,5;" 5 Q"
 120 PRINT AT 7,5;"  8";AT 8,5;"
  8Y";AT 9,5;"  A";AT 10,5;" EQ8
"
 130 PRINT AT 7,6;"  8";AT 8,6;"
  8Y";AT 9,6;"  A";AT 10,6;" EQ8
"
 140 PRINT AT 7,7;" 8";AT 8,7;" 
55";AT 9,7;"  A";AT 10,7;" Y5"
 150 PRINT AT 7,8;" 8";AT 8,8;" 
55";AT 9,8;"  A";AT 10,8;" Y5"
 160 PRINT AT 7,8;" E";AT 8,8;" 
 TT";AT 9,8;"  7A";AT 10,8;"   Y
"
 170 PRINT AT 7,9;" E";AT 8,9;" 
 TT";AT 9,9;"  7A";AT 10,9;"   Y
"
 180 PRINT AT 7,10;" E";AT 8,10;
"  T";AT 9,10;" 6 A";AT 10,10;" 
 Y"
 190 PRINT AT 7,11;" E";AT 8,11;
"  T";AT 9,11;" 6 A";AT 10,11;" 
 Y"
 200 PRINT AT 7,12;" E";AT 8,12;
"  T";AT 9,12;" 6 A";AT 10,12;" 
 Y"
 210 PRINT AT 7,13;" E";AT 8,13;
"  T";AT 9,13;" 6 A";AT 10,13;" 
 Y"
 220 PRINT AT 7,14;"  R";AT 8,14
;"  1";AT 9,14;"  1";AT 10,14;" 
 Y"
 230 PRINT AT 7,16;" ";AT 8,16;"
 ";AT 9,16;" ";AT 10,16;" "
 240 PAUSE 50
 250 PRINT AT 8,17;"HHHG";AT 9,1
7;"HHHHHGGGGGGG";AT 10,17;"HHHHH
HHHHHHGGG";AT 11,17;"HHFFFFFFFFF
FFFF";AT 12,17;"HHHG     G";AT 1
3,17;"FFFFFFFFFFHF"
 260 PAUSE 100
 270 FOR A=8 TO 13
 280 PRINT AT A,17;"HHHHHHHHHHHH
HHH"
 290 NEXT A
 300 FOR A=8 TO 13
 310 PRINT AT A,17;"AAAAAAAAAAAA
AAA"
 320 NEXT A
 330 FOR A=8 TO 13
 340 PRINT AT A,17;"TTTTTTTTTTTT
TTT"
 350 NEXT A
 360 FOR A=8 TO 13
 370 PRINT AT A,17;"            
   "
 380 NEXT A
 390 PAUSE 100
 400 LET A$="      BY: STEVEN RE
ID..."
 410 LET B$=""
 420 FOR A=24 TO 1 STEP -1
 430 LET B$=A$(A)+B$
 440 PRINT AT 9,2;B$
 450 NEXT A
 460 PRINT AT 9,3;B$
 470 PRINT AT 9,2;"8"
 480 PAUSE 1000
 490 CLS
 500 RUN