PROG : 16509
D-FILE: 18496
VARS : 19289
E-LINE: 19290
STKBOT: 19290
STKEND: 19290
9999 means line number
PRINT means treat as KEYWORD P
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