30 DIM X$(40)›40 I=65:RESTORE 60›50 GRAPHICS 23:SETCOLOR 4,0,0:SETCOLOR 1,0,14:COLOR 2:SETCOLOR 0,0,0›60 DATA 49,55,61,76,81,87,93,104,0›70 DATA 48,56,61,76,80,88,93,105,0›80 DATA 47,57,61,76,79,89,93,106,0›90 DATA 46,58,61,76,78,90,93,107,0›100 DATA 45,50,54,59,67,70,77,82,86,91,93,96,103,108,0›110 DATA 45,49,55,59,67,70,77,81,87,91,93,96,104,108,0›120 DATA 45,48,56,59,67,70,77,80,88,91,93,96,104,108,0›130 DATA 45,48,56,59,67,70,77,80,88,91,93,96,104,108,0›140 DATA 45,48,56,59,67,70,77,80,88,91,93,96,104,108,0›150 DATA 45,48,56,59,67,70,77,80,88,91,93,96,103,108,0›160 DATA 45,59,67,70,77,91,93,107,0›170 DATA 45,59,67,70,77,91,93,106,0›180 DATA 45,59,67,70,77,91,93,105,0›190 DATA 45,59,67,70,77,91,93,104,0›200 DATA 45,59,67,70,77,91,93,104,0›210 DATA 45,48,56,59,67,70,77,80,88,91,93,96,100,105,0›220 DATA 45,48,56,59,67,70,77,80,88,91,93,96,101,106,0›230 DATA 45,48,56,59,67,70,77,80,88,91,93,96,102,107,0›240 DATA 45,48,56,59,67,70,77,80,88,91,93,96,103,108,0›250 DATA 45,48,56,59,67,70,77,80,88,91,93,96,104,109,0›260 DATA 45,48,56,59,67,70,77,80,88,91,93,96,105,109,0›270 DATA 1,1›280 I=I+1›290 READ X:IF X=0 THEN X=112:Y=115:GOTO 330›300 READ Y›310 IF X=1 AND Y=1 THEN 370›320 COLOR 1›330 PLOT X,I:DRAWTO Y,I›340 IF X=112 THEN 360›350 GOTO 290›360 GOTO 280›370 REM LOGO›380 COLOR 2›390 T=5:B=61:FOR R=80 TO 84›400 PLOT R,T:DRAWTO R,B:PLOT 160-R,T:DRAWTO 160-R,B:NEXT R›410 FOR R=86 TO 115:IF R>90 THEN T=28+SQR(626-(116-R)*(116-R))›420 B=30+SQR(962-(116-R)*(116-R))›430 PLOT R,T:DRAWTO R,B:PLOT 160-R,T:DRAWTO 160-R,B:NEXT R›440 SETCOLOR 0,0,14›450 POKE 1664,232:POKE 1665,142:POKE 1666,10:POKE 1667,212:POKE 1668,142:POKE 1669,23:POKE 1670,208›460 POKE 1671,76:POKE 1672,128:POKE 1673,6›470 PRINT USR(1664)›480 END ›