100 ' G30 T.WAKAMATSU
110 CLS:PI=3.14159!:C=3
120 FOR H=1 TO 2
130   READ V,W:DATA 6,1,5,3:C=W
140   FOR G=-22.5! TO 22.5! STEP .5!
150     FOR I=G TO 360+G  STEP 45
160       T=I/180*PI:U=(I+30)/180*PI
170       Z=COS(T*8)*50+110
180       S=Z*1.5!:F=2
190       X0=S*COS(U)+320:Y0=S*SIN(U)+239
200       Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
210       IF I+F=INT((I+F)/45)*45 THEN C=V-C
220       LINE(X0,Y0)-(X1,Y1),PSET,C
230     NEXT I
240   NEXT G
250 NEXT H
260 FOR D=1 TO 2000:NEXT D
270 FOR G=-22.5! TO 22.5! 
280   FOR I=G TO 360+G  STEP 45
290     T=I/180*PI:U=(I+30)/180*PI
300     Z=COS(T*8)*50+110
310     S=Z*1.5!:F=70
320     X0=S*COS(U)+320:Y0=S*SIN(U)+239
330     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
340     LINE(X0,Y0)-(X1,Y1),PSET,0
350   NEXT I
360 NEXT G
370 FOR G=-23 TO 23 
380   FOR I=G TO 360+G  STEP 45
390     T=I/180*PI:U=(I+30)/180*PI
400     Z=COS(T*8)*50+110
410     S=Z*1.5!:F=70
420     X0=S*COS(U)+320:Y0=S*SIN(U)+239
430     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
440     LINE(X0,Y0)-(X1,Y1),PSET,0
450   NEXT I
460 NEXT G