ZX81 Programs


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

ZX81 Program Listing

**USA FLAG**SLR/1984*** (usflag.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17769
VARS  : 18562
E-LINE: 18563
STKBOT: 18563
STKEND: 18563


LEGEND

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


PROGRAM LISTING

   1 REM **USA FLAG**SLR/1984***
  10 PRINT "E7777777777777777777
77777777777R"
  20 FOR A=1 TO 6
  30 PRINT "5AAAAAAAAAAAAAAAAAAA
AAAAAAAAAAA85                   
           8"
  40 NEXT A
  50 PRINT "5AAAAAAAAAAAAAAAAAAA
AAAAAAAAAAA8W6666666666666666666
66666666666Q"
  60 FOR A=1 TO 7 STEP 2
  70 PRINT AT A,1;"* * * * * * *
 * "
  80 NEXT A
  90 FOR A=2 TO 6 STEP 2
 100 PRINT AT A,1;" * * * * * * 
* *"
 110 NEXT A
 120 PRINT AT 15,0;"5 8  Q77  E7
4    E7    QW TY    5 8  27Y  86
5    E1    WQ 56    Y6TE Y6TE 8 
5E   5     58 YT
 130 PRINT ,,"BY  Q77       E7W 
E77     EY        27Y       W6E 
E1      5 5       Y6TE    E 5Y4 
W66     WT"
 140 FOR A=0 TO 100
 150 LET L=SIN PI+COS PI
 160 IF RND>.9 THEN GOSUB 250
 170 NEXT A
 180 CLS
 190 RUN
 200 SAVE "USFLAG"
 210 RUN
 250 LET B=INT (RND*3)
 260 LET X=(15 AND B=0)+(19 AND
B=1)+(17 AND B=2)
 270 LET Y=(13 AND B=0)+(1 AND B
=1)+(28 AND B=2)
 280 PRINT AT X+1,Y+1;"E"
 290 LET L=SIN PI+COS PI+SIN PI
 300 PRINT AT X+1,Y+1;"Q4";AT X+
2,Y+1;"2"
 310 LET L=SIN PI+COS PI+SIN PI
 320 PRINT AT X,Y+1;"E";AT X+1,Y
;"EQ6";AT X+2,Y+1;"8"
 330 LET L=SIN PI+COS PI+SIN PI
 340 PRINT AT X,Y+1;" ";AT X+1,Y
;" Q4";AT X+2,Y+1;"2"
 350 LET L=SIN PI+COS PI+SIN PI
 360 PRINT AT X+1,Y+1;"E ";AT X+
2,Y+1;" "
 370 LET L=SIN PI+COS PI+SIN PI
 380 PRINT AT X+1,Y+1;" "
 390 RETURN