ZX81 Programs


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

ZX81 Program Listing

**REALITY**SLR/1985**** (re.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18830
VARS  : 19623
E-LINE: 19624
STKBOT: 19624
STKEND: 19624


LEGEND

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


PROGRAM LISTING

  10 REM **REALITY**SLR/1985****
  20 FOR A=0 TO 21
  30 PRINT "                    
            "
  40 NEXT A
  50 FOR A=1 TO 100
  60 PRINT AT INT (RND*22),INT (
RND*32);"."
  70 NEXT A
  80 FOR A=1 TO 20
  90 PRINT AT INT (RND*22),INT (
RND*32);"R"
 100 NEXT A
 110 PRINT AT 10,17;"7R";AT 11,1
5;"E 6 R";AT 12,14;"167 Y ";AT 1
3,13;"1666 TE";AT 14,12;"1T 777E
";AT 15,11;"E8  61Q";AT 16,11;"5
 77EQ";AT 17,12;"66"
 120 FOR G=1 TO 100
 130 NEXT G
 135 SCROLL
 140 PRINT "                    
            "
 150 SCROLL
 160 PRINT "                    
            "
 170 SCROLL
 180 PRINT "                    
            "
 190 SCROLL
 200 PRINT "AAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAA"
 210 SCROLL
 220 PRINT "AAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAA"
 230 SCROLL
 240 PRINT "AAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAA"
 250 SCROLL
 260 PRINT "AAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAA"
 270 SCROLL
 280 PRINT "AAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAA"
 290 SCROLL
 300 FOR G=11 TO 18
 310 SCROLL
 320 NEXT G
 330 LET A$="Q  W6     QW      8
8    666  E5      5 E Q    Q6 4 
88WEQ   W 85      WQ Q   5Q  65 
         W85                    
             "
 340 FOR G=1 TO 4
 350 PRINT A$((G-1)*32+1 TO G*32
)
 360 IF G<>4 THEN SCROLL
 370 NEXT G
 380 LET B$=" 4 Y"
 390 LET C$=" 7 R7"
 400 LET D$="   1"
 410 FOR G=0 TO 19
 420 PRINT AT 10,G;B$;AT 11,G;C$
;AT 12,G;D$
 430 IF G>=12 THEN PRINT AT G,12
;"*";AT G-1,12;" "
 440 IF G=12 THEN LET C$=" 27R7"
 450 NEXT G
 460 PRINT AT 17,0;"      AAAAAA
AAAAAAAAAAAA          AAAAAAAAAA
AAAAAAAAAAAAAAAAAA  AAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAA  AAAAAAAAAA
AAAAAAAAAAAAAAAAAA  "
 470 FOR G=16 TO 10 STEP -1
 480 PRINT AT G,11;"AAAAAAAA"
 490 NEXT G
 500 PRINT AT 10,0;"  DDDDAAAAAA
AAAAAAAAAAAAAADDDD  AAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAA  SSSSAAAAAA
AAAAAAAAAAAAAASSSS"
 510 FOR G=1 TO 300
 520 NEXT G
 530 DIM A$(2,32)
 540 LET A$(1)="12E 4  4  E 7 14
2  1 14E2 E 21 1"
 550 LET A$(2)=" 142 44E   14E 1
E21 1 E442  1 4"
 560 FOR A=1 TO 10
 570 FOR G=10 TO 20
 580 PRINT AT G,0;A$(INT (RND*2+
1))
 590 NEXT G
 600 NEXT A
 610 FOR G=10 TO 20
 620 PRINT AT G,0;"             
                   "
 630 NEXT G
 640 FOR G=1 TO 150
 650 PRINT AT 14,11;"**REALITY**
";AT 16,0;"GRAPHIC PROGRAM BY ST
EVEN REID.."
 660 PRINT AT 14,11;"**REALITY**
"
 670 NEXT G
 680 FOR A=1 TO 30
 690 SCROLL
 700 PRINT "                    
            "
 710 NEXT A
 720 PRINT AT 0,0;
 730 RUN
 800 SAVE "RE"
 810 RUN