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

9999 means line number
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;"÷ó"
;AT 1,7;"÷  ò";AT 2,1;"÷óóñ     
    óóó";AT 3,0;"¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸";AT 4,0;"   ³ô         ³³³";
AT 5,0;"  ·    º¸¸º";AT 6,0;"  ±
      º";AT 7,0;"  ";AT 8,0;"¸¸µ
                 ó";AT 9,0;"¸¸µ 
                  óóóóóóó";AT 10
,0;"±";AT 10,17;"           óóó"
;AT 11,17;"  ³³³³³³³³³³³³³";AT 1
2,0;"´                   ó     ó
";AT 13,0;"µ                ³³³³
³³³³³³ ³";AT 14,0;"ò¹¹";AT 15,0;
"µ";AT 16,0;"µ"
  40 PRINT AT 6,9;" "
  50 NEXT A
  60 PAUSE 300
  70 PRINT AT 7,2;" ´";AT 8,2;"ò
´";AT 9,2;"·´"
  80 PRINT AT 7,2;"  ÷";AT 8,2;"
µ÷±";AT 9,2;"µ!³ó";AT 10,4;"ö"
  90 PRINT AT 7,3;"  ÷";AT 8,3;"
 ÷±";AT 9,3;" !³ó";AT 10,3;"  ö"
 100 PRINT AT 7,4;"  µ";AT 8,4;"
 õ÷";AT 9,4;" !ö";AT 10,4;" õ ±"
 110 PRINT AT 7,5;"  µ";AT 8,5;"
 õ÷";AT 9,5;" !ö";AT 10,5;" õ ±"
 120 PRINT AT 7,5;"  µ";AT 8,5;"
  µ¶";AT 9,5;"  !";AT 10,5;" ÷±µ
"
 130 PRINT AT 7,6;"  µ";AT 8,6;"
  µ¶";AT 9,6;"  !";AT 10,6;" ÷±µ
"
 140 PRINT AT 7,7;" µ";AT 8,7;" 
õõ";AT 9,7;"  !";AT 10,7;" ¶õ"
 150 PRINT AT 7,8;" µ";AT 8,8;" 
õõ";AT 9,8;"  !";AT 10,8;" ¶õ"
 160 PRINT AT 7,8;" ÷";AT 8,8;" 
 öö";AT 9,8;"  ó!";AT 10,8;"   
"
 170 PRINT AT 7,9;" ÷";AT 8,9;" 
 öö";AT 9,9;"  ó!";AT 10,9;"   
"
 180 PRINT AT 7,10;" ÷";AT 8,10;
"  ö";AT 9,10;" ³ !";AT 10,10;" 
 ¶"
 190 PRINT AT 7,11;" ÷";AT 8,11;
"  ö";AT 9,11;" ³ !";AT 10,11;" 
 ¶"
 200 PRINT AT 7,12;" ÷";AT 8,12;
"  ö";AT 9,12;" ³ !";AT 10,12;" 
 ¶"
 210 PRINT AT 7,13;" ÷";AT 8,13;
"  ö";AT 9,13;" ³ !";AT 10,13;" 
 ¶"
 220 PRINT AT 7,14;"  ´";AT 8,14
;"  ñ";AT 9,14;"  ñ";AT 10,14;" 
 ¶"
 230 PRINT AT 7,16;" ";AT 8,16;"
 ";AT 9,16;" ";AT 10,16;" "
 240 PAUSE 50
 250 PRINT AT 8,17;"¸¸¸¹";AT 9,1
7;"¸¸¸¸¸¹¹¹¹¹¹¹";AT 10,17;"¸¸¸¸¸
¸¸¸¸¸¸¹¹¹";AT 11,17;"¸¸ººººººººº
ºººº";AT 12,17;"¸¸¸¹     ¹";AT 1
3,17;"ºººººººººº¸º"
 260 PAUSE 100
 270 FOR A=8 TO 13
 280 PRINT AT A,17;"¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸"
 290 NEXT A
 300 FOR A=8 TO 13
 310 PRINT AT A,17;"!!!!!!!!!!!!
!!!"
 320 NEXT A
 330 FOR A=8 TO 13
 340 PRINT AT A,17;"öööööööööööö
ööö"
 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;"µ"
 480 PAUSE 1000
 490 CLS
 500 RUN