100 ' G04 T.WAKAMATSU
110 DIM X(20),Y(20):C(1)=6:C(2)=5
120 FOR I=1 TO 6:READ H(I):NEXT I:DATA 4,5,2,3,6,1
130 CLS:PI=3.14159!
140 FOR P=1 TO 2
150   K=60:F=0
160   FOR L=0 TO 60
170     N=0:J=F:F=F+1
180     FOR I=L TO 360+L STEP K
190       J=100-J:M=I+J
200       T=M*PI/180
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 6
270       LINE-(X(H(I)),Y(H(I))),PSET,%C(P)
280     NEXT I
290   NEXT L
300 NEXT P
310 FOR P=1 TO 2
320   K=60:F=0
330   FOR L=0 TO 60
340     N=0:J=F:F=F+1
350     FOR I=L TO 360+L STEP K
360       J=100-J:M=I+J
370       T=M*PI/180
380       N=N+1
390       X(N)=239*COS(T)+320
400       Y(N)=239*SIN(T)+240
410     NEXT I
420     PSET(X(1),Y(1))
430     FOR I=1 TO 6
440       IF I MOD 3=1 THEN C=7
450       IF I MOD 3=2 THEN C=2
460       IF I MOD 3=0 THEN C=1
470       IF P=2 THEN C=0
480       LINE-(X(H(I)),Y(H(I))),PSET,%C
490     NEXT I
500   NEXT L
510 NEXT P