100 ' G45 T.WAKAMATSU
110 DIM H(20),X(20),Y(20)
120 FOR I=1 TO 8:READ H(I):NEXT I:DATA 2,3,4,5,6,7,8,1
130 PI=3.14159!:C(1)=2:C(2)=1:C(3)=0:CLS
140 FOR P=1 TO 3
150   K=45:F=0
160   FOR L=0 TO 90 STEP 2
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,C(P)
280     NEXT I
290   NEXT L
300 NEXT P