100 ' G40 T.WAKAMATSU
110 CLS:N=6
120 R=239:PI=3.14159!:READ L,M,O:DATA 2,5,7
130 FOR K=0 TO 120 STEP 5
140   T1=K/180*PI
150   X=R*COS(T1)+320
160   Y=R*SIN(T1)+240
170   PSET(X,Y):L=M-L
180   FOR J=K TO K+360 STEP 60
190     T=J/180*PI
200     X=R*COS(T)+320
210     Y=R*SIN(T)+239
220     LINE-(X,Y),PSET,L
230   NEXT J
240   S=23/36*PI:T=PI/3
250   R=R/SIN(S)*SIN(T)
260 NEXT K
270 FOR D=1 TO 8400:NEXT D
280 R=239
290 FOR K=0 TO 120 STEP 5
300   T1=K/180*PI
310   X=R*COS(T1)+320
320   Y=R*SIN(T1)+240
330   PSET(X,Y)
340   FOR J=K TO K+360 STEP 60
350     T=J/180*PI
360     X=R*COS(T)+320
370     Y=R*SIN(T)+239
380     LINE-(X,Y),PSET,O
390   NEXT J
400   S=23/36*PI:T=PI/3
410   R=R/SIN(S)*SIN(T)
420 NEXT K
430 FOR D=1 TO 8400:NEXT D
440 R=239
450 FOR K=0 TO 120 STEP 5
460   T1=K/180*PI
470   X=R*COS(T1)+320
480   Y=R*SIN(T1)+240
490   PSET(X,Y)
500   FOR J=K TO K+360 STEP 60
510     T=J/180*PI
520     X=R*COS(T)+320
530     Y=R*SIN(T)+239
540     LINE-(X,Y),PSET,0
550   NEXT J
560   S=23/36*PI:T=PI/3
570   R=R/SIN(S)*SIN(T)
580 NEXT K