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
90 X=15 : Y=25 : PI=22/7
100 LINE (X,Y-6)-(X+30,Y-6)
110 DRAW "G30"
120 LINE (X,Y-5)-(X+30,Y-5)
130 DRAW "G30"
140 LINE (X,Y+25)-(X+30,Y+25)
150 LINE (X,Y+26)-(X+30,Y+26)
160 CIRCLE (X+50,Y+13),16
170 CIRCLE (X+50,Y+13),15
180 CIRCLE (X+92,Y+13),16
190 CIRCLE (X+92,Y+13),15
200 X=X+150 : Y=Y
210 CIRCLE (X,Y),10,,,4
220 CIRCLE (X,Y),9,,,4
230 CIRCLE (X,Y+20),10,,3
240 CIRCLE (X,Y+20),11,,3
250 LINE (X-5,Y+7)-(X+10,Y+20)
260 LINE (X-4,Y+7)-(X+11,Y+20)
270 CIRCLE (X+35,Y+13),16
280 CIRCLE (X+35,Y+13),15
290 PSET (X+65,Y)
300 DRAW "D27"
310 PSET (X+66,Y)
320 DRAW "D27"
330 CIRCLE (X+80,Y+8),10,,1.5*PI,.5*PI
340 CIRCLE (X+80,Y+8),9,,1.5*PI,.5*PI
350 PSET (X+66,Y)
360 DRAW "R15D1L15"
370 DRAW "D15R15U1L15"
380 PSET (X+79,Y+15)
390 DRAW "F12L1H12"
400 PSET (X+105,Y)
410 DRAW "R32"
420 PSET (X+105,Y+1)
430 DRAW "R32L15D27L1U27"
432 DDD=750
435 FOR I=1 TO DDD :NEXT I
440 LOCATE 11,15 : PRINT "Writen by";
445 FOR I=1 TO DDD :NEXT I
450 LOCATE 15,11 : PRINT "Ehab E. Elmaghrabi";
455 FOR I=1 TO DDD :NEXT I
460 LOCATE 17,13 : PRINT "Mark C. Fabel";
465 FOR I=1 TO DDD :NEXT I
470 LOCATE 19,14 : PRINT "John Hagarty";
475 FOR I=1 TO DDD :NEXT I
480 LOCATE 24,10 : PRINT "One moment please...";
490 '
500 '   TO ACCEPT ANY KEY
510 '
520 X$=INKEY$ : IF X$="" THEN 520
530 CLS : PRINT "HERE WOULD BE A GOTO STATEMENT TO CREATE PROGRAM";
ACCEPT ANY KEY
510 '
520 X$=INKEY$ : IF X$="" THEN 520
530 CLS : PRINT "HERE WOULD BE A GOTO S