10 '
20 '     TO DISPLAY TEXT PART OF SCREEN
30 '     DURING ATTRACT MODE.
40 '
50 '     SEE LINE 420 FOR ADDITIONAL
60 '     COMMENTS.
70 '
80 CLS : KEY OFF : SCREEN 1,0
100 LINE (15,25-6)-(15+30,25-6)
110 DRAW "G30"
120 LINE (15,25-5)-(15+30,25-5)
130 DRAW "G30"
140 LINE (15,25+25)-(15+30,25+25)
150 LINE (15,25+26)-(15+30,25+26)
160 CIRCLE (15+50,25+13),16
170 CIRCLE (15+50,25+13),15
180 CIRCLE (15+92,25+13),16
190 CIRCLE (15+92,25+13),15
200 X=X+150 : Y=Y
210 CIRCLE (165,25),10,,,4
220 CIRCLE (165,25),9,,,4
230 CIRCLE (165,25+20),10,,3
240 CIRCLE (165,25+20),11,,3
250 LINE (165-5,25+7)-(165+10,25+20)
260 LINE (165-4,25+7)-(165+11,25+20)
270 CIRCLE (165+35,25+13),16
280 CIRCLE (165+35,25+13),15
290 PSET (165+65,25)
300 DRAW "D27"
310 PSET (165+66,25)
320 DRAW "D27"
330 CIRCLE (165+80,25+8),10,,1.5*22/7,.5*22/7
340 CIRCLE (165+80,25+8),9,,1.5*22/7,.5*22/7
350 PSET (165+66,25)
360 DRAW "R15D1L15"
370 DRAW "D15R15U1L15"
380 PSET (165+79,25+15)
390 DRAW "F12L1H12"
400 PSET (165+105,25)
410 DRAW "R32"
420 PSET (165+105,25+1)
430 DRAW "R32L15D27L1U27"
432 DDD=750
435 FOR I=1 TO 750 :NEXT I
440 LOCATE 11,15 : PRINT "Written by";
445 FOR I=1 TO 750 :NEXT I
450 LOCATE 15,11 : PRINT "Ehab E. Elmaghrabi";
455 FOR I=1 TO 750 :NEXT I
460 LOCATE 17,13 : PRINT "Mark C. Fabel";
465 FOR I=1 TO 750 :NEXT I
470 LOCATE 19,14 : PRINT "John Hagarty";
475 FOR I=1 TO 750 :NEXT I
480 LOCATE 24,10 : PRINT "One moment please...";
490 CHAIN "zoosort.bas"