ZX81 Listing for spdk.p


ZX81 program listing for **SPACE DOCK**SLR/1984*

SYSTEM VARIABLES

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


LEGEND

9999 means line number
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;"± "
  50 NEXT A
  60 FOR A=13 TO 19
  70 PRINT AT A,11;"µ/"
  80 NEXT A
 100 PRINT AT 11,13;"±ô";AT 12,1
2;"±";AT 18,10;"· ";AT 19,9;"·¹ 
";AT 20,11;"·²·²"
 110 PRINT AT 20,15;"/¹O¹O²"
 120 LET A$=" ¹O¹O²"
 130 LET B$=" ¹0¹0²"
 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;"¹¹¹¹¹"
 215 GOSUB 400
 220 PRINT AT 21,27;"ººººº"
 225 GOSUB 400
 230 PRINT AT 20,27;"¹-¹-²"
 235 GOSUB 400
 240 PRINT AT 20,27;"¹ ¹ ²"
 250 PAUSE 100
 260 PRINT AT 20,27;"³³³³ô";AT 2
1,27;"¸¹¸¹¹"
 270 GOSUB 400
 280 PRINT AT 20,27;"     ";AT 2
1,27;"¹ ¹ ²"
 290 GOSUB 400
 300 PRINT AT 21,27;"³³³³ô"
 310 GOSUB 400
 320 PRINT AT 21,27;"     "
 330 PAUSE 100
 340 PRINT AT 21,27;"³³³³³"
 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;"!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!"
 435 GOSUB 400
 440 PRINT AT 21,0;"            
                    ";AT 21,11;"
!!!!"
 445 GOSUB 400
 450 FOR X=21 TO 0 STEP -1
 460 SCROLL
 470 PRINT AT 21,11;"!!!!"
 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;"=!!)"
 570 NEXT A
 580 PRINT AT 10,27;">"
 590 PRINT AT 15,1;" ´          
                              
                    ´  óóóóó    
                    ·///////ò   
                    ´òòòòòòòòò  
                    ·        ±  
                    "
 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