100 ' G37 T.WAKAMATSU
110 DIM H(20),X(20),Y(20)
120 FOR I=1 TO 8:READ H(I):NEXT I
130 DATA 2,3,4,5,6,7,8,1
140 PI=3.14159!:CLS
150 K=45:F=0
160 FOR L=0 TO 270 STEP 4
170   N=0:J=F:F=F+2
180   FOR I=L TO 360+L STEP K
190     J=100-J:M=I+J
200     T=M/180*PI
210     N=N+1
220     X(N)=239*COS(T)+320
230     Y(N)=239*SIN(T)+240
240   NEXT I
250   PSET(X(1),Y(1))
260   FOR I=1 TO 8
270     LINE-(X(H(I)),Y(H(I))),PSET,7
280   NEXT I
290   FOR D=1 TO 10:NEXT D
300 NEXT L
310 FOR P=1 TO 3
320   READ A,B:DATA 5,2,6,1,0,0
330   K=45:F=0
340   FOR L=0 TO 270 STEP 4
350     N=0:J=F:F=F+2
360     FOR I=L TO 360+L STEP K
370       J=100-J:M=I+J
380       T=M/180*PI
390       N=N+1
400       X(N)=239*COS(T)+320
410       Y(N)=239*SIN(T)+240
420     NEXT I
430     PSET(X(1),Y(1))
440     FOR I=1 TO 8
450       B=A-B
460       LINE-(X(H(I)),Y(H(I))),PSET,B
470     NEXT I
480     FOR D=1 TO 12:NEXT D
490   NEXT L
500 NEXT P