10 MEMSET&HB00:CLS
20 FORI=3TO6:READJ:PSET(0,16),1::FORX=0TO120STEPI
30 Y=SQR(J*(1-(X-60)^2/3601))+16:LINE-(X,Y),PSET:NEXTX,I
40 FORI=6TO3STEP-1:READJ:PSET(0,16),1::FORX=0TO120STEPI
50 Y=-SQR(J*(1-(X-60)^2/3601))+16:LINE-(X,Y),PSET:NEXTX,I
60 DATA 255,168,80,15,15,80,168,255
70 PSET(112,7),1:LINE-(119,0),PSET:LINE-(119,31),PSET:LINE-(112,24),PSET
80 FORI=0TO89:READJ$:J=VAL("&H"+J$)
90 POKEI+2624,J:POKEI+2714,J:NEXT
100 POKE&H11E,10:FORI=64TO153:POKE&H11F,I
110 LOCATE3,2,0:PRINT"";:NEXT:GOTO100
120 DATA 3C,7E,FF,C3,81,99,F9,F8,0,0,3C,7E,FF,81,81,FF,7E,3C,0,0
130 DATA 3C,7E,FF,81,81,FF,7E,3C,0,0,C3,FF,FF,81,81,FF,7E,3C,0,0
140 DATA 7,F,98,F0,F0,98,F,7,0,0,81,FF,FF,99,BD,81,C3,C3,0,0
150 DATA F8,FC,26,23,23,26,FC,F8,0,0,83,FF,FF,91,31,7F,DF,8E,0,0
160 DATA 0,0,0,0,0,0,0,0,0,0





