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/98** (photon98.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 19751
VARS  : 20544
E-LINE: 20569
STKBOT: 20569
STKEND: 20569


LEGEND

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


PROGRAM LISTING

  10 REM **PHOTON**SLR/1985/98**
  20 FOR A=0 TO 21
  30 PRINT AT A,0;"             
                   "
  40 NEXT A
  50 RAND 81
  60 FOR A=0 TO INT (RND*10+20)
  70 PRINT AT 21*RND,31*RND;"."
  80 NEXT A
  90 PRINT AT 0,8;"E7";AT 1,7;"E
  2";AT 2,1;"E771         777";
AT 3,0;"HHHHHHHHHHHHHHHHHH";AT 4
,0;"   64         666";AT 5,0;" 
 E    FHHF";AT 6,0;"  Q";AT 7,0;
"  ";AT 8,0;"HH8                
 7";AT 9,0;"HH8                 
  7777777";AT 10,0;"Q";AT 10,17;
"           777";AT 11,17;"  666
6666666666";AT 12,0;"R          
         7     7";AT 13,0;"8    
            6666666666 6";AT 14,
0;"2GG";AT 15,0;"8";AT 16,0;"8"
 100 REM **BEACON**
 110 FOR A=0 TO 20
 120 PRINT AT 6,9;"F"
 130 LET L=SIN PI
 140 PRINT AT 6,9;" "
 150 LET L=SIN PI*SIN PI
 160 NEXT A
 170 PAUSE 200
 200 REM **TORPEDO, AWAY**
 210 PRINT AT 7,2;" R";AT 8,2;"2
R";AT 9,2;"ER"
 220 PRINT AT 7,2;"  E";AT 8,2;"
8EQ";AT 9,2;"8A67";AT 10,4;"T"
 230 PRINT AT 7,3;"  E";AT 8,3;"
 EQ";AT 9,3;" A67";AT 10,3;"  T"
 240 PRINT AT 7,4;"  8";AT 8,4;"
 5E";AT 9,4;" AT";AT 10,4;" 5 Q"
 250 PRINT AT 7,5;"  8";AT 8,5;"
 5E";AT 9,5;" AT";AT 10,5;" 5 Q"
 260 PRINT AT 7,5;"  8";AT 8,5;"
  8Y";AT 9,5;"  A";AT 10,5;" EQ8
"
 270 PRINT AT 7,6;"  8";AT 8,6;"
  8Y";AT 9,6;"  A";AT 10,6;" EQ8
"
 280 PRINT AT 7,7;" 8";AT 8,7;" 
55";AT 9,7;"  A";AT 10,7;" Y5"
 290 PRINT AT 7,8;" 8";AT 8,8;" 
55";AT 9,8;"  A";AT 10,8;" Y5"
 300 PRINT AT 7,8;" E";AT 8,8;" 
 TT";AT 9,8;"  7A";AT 10,8;"   Y
"
 310 PRINT AT 7,9;" E";AT 8,9;" 
 TT";AT 9,9;"  7A";AT 10,9;"   Y
"
 320 PRINT AT 7,10;" E";AT 8,10;
"  T";AT 9,10;" 6 A";AT 10,10;" 
 Y"
 330 PRINT AT 7,11;" E";AT 8,11;
"  T";AT 9,11;" 6 A";AT 10,11;" 
 Y"
 340 PRINT AT 7,12;" E";AT 8,12;
"  T";AT 9,12;" 6 A";AT 10,12;" 
 Y"
 350 PRINT AT 7,13;" E";AT 8,13;
"  T";AT 9,13;" 6 A";AT 10,13;" 
 Y"
 360 PRINT AT 7,14;"  R";AT 8,14
;"  1";AT 9,14;"  1";AT 10,14;" 
 Y"
 370 PRINT AT 7,16;" ";AT 8,16;"
 ";AT 9,16;" ";AT 10,16;" "
 380 PAUSE 50
 400 REM **EXPLOSION**
 410 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"
 420 PAUSE 100
 430 LET A$="HHHHHHHHHHHHHHHAAAA
AAAAAAAAAAATTTTTTTTTTTTTTT      
         "
 440 FOR A=1 TO 60 STEP 15
 450 FOR B=8 TO 13
 460 PRINT AT B,17;A$(A TO A+14)
 470 NEXT B
 480 NEXT A
 490 PAUSE 200
 500 REM **ENDING**
 510 LET A$="8      BY: STEVEN R
EID..."
 520 FOR A=24 TO 1 STEP -1
 530 PRINT AT 9,2;A$(A TO )
 540 NEXT A
 550 PAUSE 1000
 560 GOTO 90
 600 REM **SAVE**
 610 SAVE "PHOTON98"
 620 RUN