100 ' G21 T.WAKAMATSU
110 DIM H(20),X(20),Y(20):CLS
120 FOR I=1 TO 14:READ H(I):NEXT I
130 DATA 2,5,6,9,10,13,14,3,4,7,8,11,12,1
140 PI=3.14159!:C(1)=5:C(2)=1:C(3)=0
150 FOR P=1 TO 3
160   K=180/7:F=0
170   FOR L=0 TO 50 STEP 2
180     N=0:J=F:F=F+2
190     FOR I=L TO 360+L STEP K
200       J=100-J:M=I+J
210       T=M/180*PI
220       N=N+1
230       X(N)=239*COS(T)+320
240       Y(N)=239*SIN(T)+240
250     NEXT I
260     PSET(X(1),Y(1)),%C(P)
270     FOR I=1 TO 14
280       LINE-(X(H(I)),Y(H(I))),PSET,%C(P)
290     NEXT I
300   NEXT L
310 NEXT P