100 ' G08 T.WAKAMATSU
110 CLS:PI=3.14159!
120 FOR C=1 TO 3
130   READ D,E:DATA 5,3,6,1,0,0
140   FOR K=-30 TO 30 STEP .5!
150     FOR I=K TO K+360 STEP 60
160       T=I/180*PI:U=(I+30)/180*PI
170       Z=COS(T*6)*110+120
180       S=COS(T*6)*110+120
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=INT(I/60)*60 THEN E=D-E
220       LINE(X0,Y0)-(X1,Y1),PSET,E
230     NEXT I
240   NEXT K
250   FOR J=1 TO 3000:NEXT J
260 NEXT C