100 ' G26 T.WAKAMATSU
110 CLS:PI=3.14159!
120 C(1)=2:C(2)=3:C(3)=1:C(4)=0
130 FOR N=1 TO 4
140   FOR K=3 TO 15
150     F=360/K
160     V=370:W=478
170     FOR I=1 TO K
180       X=100*COS(F*I*PI/180)+V
190       Y=-100*SIN(F*I*PI/180)+W
200       LINE(X,Y)-(V,W),PSET,C(N)
210       V=X:W=Y
220     NEXT I
230   NEXT K
240   FOR D=1 TO 5000:NEXT D
250 NEXT N