100 ' G51 T.WAKAMATSU
110 CLS:PI=3.14159!:L=1:M=1
120 C(1)=2:C(2)=3:C(3)=6:C(4)=4:C(5)=5:C(6)=1:C(7)=7
130 FOR E=1 TO 3
140   IF E=3 THEN GOSUB *HENKO
150   S=0:T=0
160   FOR K=1 TO 7
170     FOR X=K TO 14-K
180       Y=K:GOSUB *KAKU
190     NEXT X
200     IF K=7 GOTO 320
210     FOR Y=K+1 TO 14-K
220       X=14-K:GOSUB *KAKU
230     NEXT Y
240     FOR X=13-K TO K STEP -1
250       Y=14-K:GOSUB *KAKU
260     NEXT X
270     FOR Y=14-K TO K+1 STEP -1
280       X=K:GOSUB *KAKU
290     NEXT Y
300     GOSUB *KAITEN
310     L=L+1:IF L=8 THEN L=1
320   NEXT K
330   FOR D=1 TO 5000:NEXT
340 NEXT E
350 GOTO 560
360 *KAKU
370 X1=X*35+S+70
380 Y1=Y*35-T-25
390 X2=X*35+T+70+28
400 Y2=Y*35+S-25
410 X3=X*35-S+70+28
420 Y3=Y*35+T-25+28
430 X4=X*35-T+70
440 Y4=Y*35-S-25+28
450 CONNECT(X1,Y1)-(X2,Y2)-(X3,Y3)-(X4,Y4)-(X1,Y1),C(L)
460 PAINT((X1+X3)/2,(Y1+Y3)/2),C(L)
470 RETURN
480 *KAITEN
490 F=K*PI*5/180+PI/4
500 S=23/2*SQR(2)*(COS(PI/4)-COS(F))
510 T=23/2*SQR(2)*(SIN(F)-COS(PI/4))
520 RETURN
530 *HENKO
540 FOR I=1 TO 7:C(I)=0:NEXT I
550 RETURN
560 CLS