4 *FX14,6 5 MODE 1 7 DEFPROC FACE 10 MOVE 520,200 20 DRAW 540,300 30 DRAW 540,340 40 DRAW 560,400 50 DRAW 600,440 60 DRAW 660,500 70 DRAW 700,520 80 DRAW 720,600 90 DRAW 740,640 100 DRAW 800,660 110 DRAW 840,680 120 DRAW 900,700 130 DRAW 980,700 140 DRAW 1060,680 150 DRAW 1100,660 160 DRAW 1180,600 170 DRAW 1220,560 180 DRAW 1240,520 190 DRAW 1240,500 200 DRAW 1240,420 210 DRAW 1230,400 220 DRAW 1220,340 230 DRAW 1220,300 240 DRAW 1200,220 250 DRAW 1180,200 260 DRAW 1160,140 270 DRAW 1120,100 280 DRAW 1060,60 290 DRAW 980,40 300 DRAW 960,60 310 DRAW 900,100 320 DRAW 840,120 330 DRAW 780,140 340 DRAW 760,180 350 DRAW 740,260 360 DRAW 720,300 370 DRAW 700,310 380 DRAW 660,300 390 DRAW 600,220 400 DRAW 560,200 410 DRAW 520,200 420 MOVE 660,460 430 DRAW 680,480 440 DRAW 700,500 450 DRAW 740,520 460 DRAW 760,520 470 DRAW 800,500 480 DRAW 800,460 490 DRAW 780,440 500 DRAW 760,420 510 DRAW 680,440 520 DRAW 660,460 530 MOVE 940,380 540 DRAW 980,400 560 DRAW 1000,400 570 DRAW 1060,360 580 DRAW 1080,320 590 DRAW 1060,280 600 DRAW 1020,280 610 DRAW 1000,300 620 DRAW 980,320 630 DRAW 960,340 640 DRAW 940,360 650 DRAW 940,380 656 GCOL 0,9 660 MOVE 220,800 670 DRAW 240,840 680 DRAW 280,840 690 DRAW 280,880 700 DRAW 220,900 710 DRAW 240,860 720 DRAW 220,800 721 MOVE 320,800 724 DRAW 340,850 725 DRAW 380,850 728 MOVE 400,800 729 DRAW 380,840 730 MOVE 400,900 731 DRAW 380,850 732 MOVE 340,850 733 DRAW 320,900 740 MOVE 440,800 741 DRAW 420,860 742 DRAW 440,900 743 DRAW 480,900 744 DRAW 500,860 745 DRAW 480,800 746 MOVE 440,860 747 DRAW 480,860 748 MOVE 520,800 749 DRAW 540,840 750 DRAW 520,900 751 DRAW 580,840 752 DRAW 560,800 753 DRAW 600,840 754 DRAW 600,900 760 MOVE 680,800 765 DRAW 640,840 770 DRAW 660,900 775 DRAW 620,900 780 DRAW 700,900 785 MOVE 760,800 790 DRAW 720,840 795 DRAW 760,900 800 DRAW 800,840 805 DRAW 760,800 810 MOVE 820,800 820 DRAW 840,820 830 DRAW 820,900 840 DRAW 860,860 850 DRAW 900,900 860 DRAW 880,820 870 DRAW 900,800 875 GCOL 0,1 880 MOVE 360,700 890 DRAW 320,740 900 DRAW 360,800 910 DRAW 400,740 920 DRAW 360,700 930 MOVE 420,700 940 DRAW 420,780 950 DRAW 500,800 960 MOVE 420,740 970 DRAW 480,760 975 GCOL 0,5 980 MOVE 280,600 990 DRAW 240,640 1000 DRAW 260,700 1010 DRAW 300,700 1020 DRAW 220,700 1030 MOVE 320,600 1040 DRAW 340,650 1050 DRAW 380,650 1060 MOVE 400,600 1070 DRAW 380,640 1080 MOVE 400,700 1090 DRAW 380,650 1100 MOVE 340,650 1110 DRAW 320,700 1120 MOVE 420,680 1130 DRAW 500,700 1140 MOVE 420,680 1150 DRAW 420,620 1160 DRAW 500,600 1170 MOVE 420,650 1180 DRAW 480,650 1190 MOVE 120,540 1200 DRAW 160,600 1210 DRAW 200,540 1220 DRAW 160,500 1230 DRAW 120,540 1240 MOVE 220,500 1250 DRAW 240,540 1260 DRAW 240,560 1270 DRAW 220,600 1280 DRAW 280,580 1290 DRAW 280,540 1300 DRAW 240,540 1310 MOVE 400,500 1320 DRAW 320,520 1330 DRAW 320,580 1340 DRAW 400,600 1350 MOVE 320,550 1360 DRAW 380,550 1370 MOVE 420,500 1380 DRAW 440,540 1390 DRAW 420,600 1400 DRAW 500,580 1410 DRAW 500,540 1420 DRAW 440,540 1430 DRAW 500,500 1440 MOVE 540,500 1450 DRAW 520,560 1470 DRAW 540,600 1480 DRAW 580,600 1490 DRAW 600,560 1500 DRAW 580,500 1510 MOVE 540,560 1520 DRAW 580,560 1530 PROCoutline(" PARKES MCMXCI",7,30,1,2):CHAIN"PHAN" 1540 DEFPROCoutline(TEXT$,X,Y,C1,C2) 1550 GX=X*32:GY=1024-(Y*32):VDU 5 1560 GCOL 0,C1 1570 MOVE GX-4,GY:PRINT TEXT$ 1580 MOVE GX+4,GY:PRINT TEXT$ 1590 MOVE GX,GY-4:PRINT TEXT$ 1600 MOVE GX,GY+4:PRINT TEXT$ 1610 MOVE GX-4,GY-4:PRINT TEXT$ 1620 MOVE GX+4,GY-4:PRINT TEXT$ 1630 MOVE GX+4,GY+4:PRINT TEXT$ 1640 MOVE GX-4,GY+4:PRINT TEXT$ 1650 GCOL 0,C2:MOVE GX,GY:PRINT TEXT$ 1660 VDU 4:ENDPROC