ZX81 Programs


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

ZX81 Program Listing

**SPACE DOCK**SLR/1984* (spdk.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18496
VARS  : 19289
E-LINE: 19290
STKBOT: 19290
STKEND: 19290


LEGEND

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


PROGRAM LISTING

  10 REM **SPACE DOCK**SLR/1984*
  20 PRINT AT 21,0;"            
                    "
  30 FOR A=12 TO 19
  40 PRINT AT A,13;"Q "
  50 NEXT A
  60 FOR A=13 TO 19
  70 PRINT AT A,11;"8/"
  80 NEXT A
 100 PRINT AT 11,13;"Q4";AT 12,1
2;"Q";AT 18,10;"E ";AT 19,9;"EG 
";AT 20,11;"EWEW"
 110 PRINT AT 20,15;"/GOGOW"
 120 LET A$=" GOGOW"
 130 LET B$=" G0G0W"
 140 PAUSE 100
 150 PRINT AT 20,15;A$
 160 PAUSE 20
 170 FOR A=15 TO 26
 180 IF A/2=INT (A/2) THEN
PRINT AT 20,A;B$
 190 IF A/2<>INT (A/2) THEN
PRINT AT 20,A;A$
 200 NEXT A
 205 GOSUB 400
 210 PRINT AT 21,27;"GGGGG"
 215 GOSUB 400
 220 PRINT AT 21,27;"FFFFF"
 225 GOSUB 400
 230 PRINT AT 20,27;"G-G-W"
 235 GOSUB 400
 240 PRINT AT 20,27;"G G W"
 250 PAUSE 100
 260 PRINT AT 20,27;"66664";AT 2
1,27;"HGHGG"
 270 GOSUB 400
 280 PRINT AT 20,27;"     ";AT 2
1,27;"G G W"
 290 GOSUB 400
 300 PRINT AT 21,27;"66664"
 310 GOSUB 400
 320 PRINT AT 21,27;"     "
 330 PAUSE 100
 340 PRINT AT 21,27;"66666"
 345 GOSUB 400
 350 PRINT AT 21,27;"     "
 360 GOSUB 400
 370 GOSUB 400
 380 GOSUB 400
 390 GOTO 430
 400 FOR A=1 TO 20
 410 NEXT A
 420 RETURN
 430 PRINT AT 21,0;"AAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAA"
 435 GOSUB 400
 440 PRINT AT 21,0;"            
                    ";AT 21,11;"
AAAA"
 445 GOSUB 400
 450 FOR X=21 TO 0 STEP -1
 460 SCROLL
 470 PRINT AT 21,11;"AAAA"
 480 GOSUB 400
 490 NEXT X
 500 PAUSE 200
 510 CLS
 520 FOR A=1 TO 22
 530 PRINT "                    
            "
 540 NEXT A
 550 FOR A=6 TO 15
 560 PRINT AT A,28;"=AA)"
 570 NEXT A
 580 PRINT AT 10,27;">"
 590 PRINT AT 15,1;" R          
                     AR         
                    R  77777    
                    E///////2   
                    R222222222  
                    E        Q  
                    "
 595 FOR X=1 TO 20
 600 PRINT AT 1,1;"BY  STEVEN RE
ID..."
 610 PRINT AT 1,1;"             
     "
 620 NEXT X
 630 CLS
 640 RUN
 700 SAVE "SPDK"
 710 RUN