100 ' G15 T.WAKAMATSU
110 CLS:CD PLAY 4,11
120 FOR N=3 TO 5
130   READ L,M,O:DATA 9,4,7,5,3,5,12,6,1
140   FOR K=0 TO 360/N STEP 2
150     T1=K/180*3.14159!
160     X=239*COS(T1)+320
170     Y=239*SIN(T1)+240
180     PSET(X,Y):M=L-M
190     FOR J=K TO K+360 STEP 360/N
200       T=J/180*3.14159!
210       X=239*COS(T)+320
220       Y=239*SIN(T)+240
230       LINE-(X,Y),PSET,M
240     NEXT J
250   NEXT K
260   FOR K=0 TO 360/N STEP 2
270     T1=K/180*3.14159!
280     X=239*COS(T1)+320
290     Y=239*SIN(T1)+240
300     PSET(X,Y)
310     FOR J=K TO K+360 STEP 360/N
320       T=J/180*3.14159!
330       X=239*COS(T)+320
340       Y=239*SIN(T)+240
350       LINE-(X,Y),PSET,O
360     NEXT J
370   NEXT K
380 NEXT N
390 FOR N=3 TO 5
410   FOR K=0 TO 360/N STEP 2
420     T1=K/180*3.14159!
430     X=239*COS(T1)+320
440     Y=239*SIN(T1)+240
450     PSET(X,Y)
460     FOR J=K TO K+360 STEP 360/N
470       T=J/180*3.14159!
480       X=239*COS(T)+320
490       Y=239*SIN(T)+240
500       LINE-(X,Y),PSET,0
510     NEXT J
520   NEXT K
530 NEXT N