� >PATTERN7
I� JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ  UK. 97
F�A%(9,3,1),B%(8,3,1),C(10,9,3),E%(9,3,1),D%(9,2),R%(22):A_=1:C_=10
(+�20:�:�X%=1�15:� X%,X%*15,X%*15,X%*15:�
2?�E_,O,W%,W:N=E_-1:F_=0:A%()=0:�X=0�N:�A%(X,0,0),A%(X,0,1):�
<pA=A%(0,0,0):B=A%(0,0,1):C=A%(N,0,0):D=A%(N,0,1):�X=0�N:A%(N-X,1,0)=A+C-A%(X,0,0):A%(N-X,1,1)=B+D-A%(X,0,1):�
F�H=(D-B)/(C-A):I=B-H*A:J=-I/(A-B/H):�Y=2�3:�X=0�N:E=A%(X,Y-2,0):F=A%(X,Y-2,1):G=(F+E/J-I)/(J+1/J):A%(X,Y,1)=2*(J*G+I)-F:A%(X,Y,0)=2*G-E:�:�
P�E=C-A:D=D-B:C=(D*D+E*E)^.5:E=E/C:D=D/C:N=E_-2:�Y=0�3:�X=0�N:H=A%(X,Y,0)-A%(X+1,Y,0):I=A%(X,Y,1)-A%(X+1,Y,1):B%(X,Y,0)=(H*H+I*I)^.5:�:�
Z��Y=0�1:�X=0�N+1:C(0,X,Y)=A%(X,0,Y):�:�:�X=0�N:C(0,X,2)=B%(X,0,0)*C:�X:�Y=0�3:�X=0�N+1:A%(X,Y,0)=A%(X,Y,0)-A:A%(X,Y,1)=A%(X,Y,1)-B:�X:�Y
d!�Y=0�3:�X=0�N:� B%(X,Y,1):�:�
n-�X=0�N:C(0,X,3)=B%(X,0,1):�:F=A:G=B:� A,B
x 
�� MAIN LOOP
�/� GC%=15 � 1 �-3:R2=GC%*.6:O2%=A:P2%=B:�GC%
�*�H_%=0�N:Q%=1:P%=H_%:�D^A:�Q%=O ��DJA
�*�I_%=0�N:Q%=2:P%=I_%:�D^A:�Q%=O ��D@A
�*�J_%=0�N:Q%=3:P%=J_%:�D^A:�Q%=O ��TvA
�*�K_%=0�N:Q%=4:P%=K_%:�D^A:�Q%=O ��TlA
�*�L_%=0�N:Q%=5:P%=L_%:�D^A:�Q%=O ��TbA
�*�M_%=0�N:Q%=6:P%=M_%:�D^A:�Q%=O ��TXA
�*�N_%=0�N:Q%=7:P%=N_%:�D^A:�Q%=O ��TNA
�*�O_%=0�N:Q%=8:P%=O_%:�D^A:�Q%=O ��TDA
�*�P_%=0�N:Q%=9:P%=P_%:�D^A:�Q%=O ��dz@
�$�Q_%=0�N:Q%=10:P%=Q_%:�D^A:�Q_%
��P_%

�O_%

�N_%

�M_%

"�L_%

,�K_%

6�J_%

@�I_%

J�H_%:�:�

T 

^:R%=C(Q%-1,P%,3):�Q%<O �X%=0�N:C(Q%,X%,3)=B%(X%,R%,1):�

h;J=C(Q%-1,P%,2):�Q%<O �X%=0�N:C(Q%,X%,2)=J*B%(X%,R%,0):�

r�H=C(Q%-1,P%,0):I=C(Q%-1,P%,1):S=(C(Q%-1,P%+1,0)-H)/J:T=(C(Q%-1,P%+1,1)-I)/J:J=J/C:M=E*S+D*T:L=E*T-D*S:�X%=0�N+1:U=A%(X%,R%,0)*J:V=A%(X%,R%,1)*J:C(Q%,X%,0)=U*M-V*L+H:C(Q%,X%,1)=U*L+V*M+I:�:�Q%=O �DRAW(N,Q%,R2)

|�

�

�"��DRAW(P,Q%,R):� X%,M,N,S,T,Y%

�=�X%=0�P:M=C(Q%,X%,0):N=C(Q%,X%,1):S=(O2%-M)/8:T=(P2%-N)/8

�#� Y%=0�7:ȏȐ M+Y%*S,N+Y%*T,R:�

�O2%=M:P2%=N:�

��

� 

�
� 8,3,0,1

�F� 250,110,600,110,775,413,425,413,250,716,600,716,950,716,1125,413

�H� 0,1,1,0,0,0,1,0,1,1,1,0,0,1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1

�� 0,0,0
�

00000000  0d 00 0a 0f f4 20 3e 50  41 54 54 45 52 4e 37 0d  |..... >PATTERN7.|
00000010  00 14 49 f4 20 4a 45 41  4e 20 56 41 4e 20 4d 4f  |..I. JEAN VAN MO|
00000020  55 52 49 4b 20 4d 49 4c  4c 43 4f 54 54 41 47 45  |URIK MILLCOTTAGE|
00000030  20 44 45 52 57 59 44 44  20 41 4d 4d 41 4e 46 4f  | DERWYDD AMMANFO|
00000040  52 44 20 44 59 46 45 44  20 53 41 31 38 33 4c 51  |RD DYFED SA183LQ|
00000050  20 20 55 4b 2e 20 39 37  0d 00 1e 46 de 41 25 28  |  UK. 97...F.A%(|
00000060  39 2c 33 2c 31 29 2c 42  25 28 38 2c 33 2c 31 29  |9,3,1),B%(8,3,1)|
00000070  2c 43 28 31 30 2c 39 2c  33 29 2c 45 25 28 39 2c  |,C(10,9,3),E%(9,|
00000080  33 2c 31 29 2c 44 25 28  39 2c 32 29 2c 52 25 28  |3,1),D%(9,2),R%(|
00000090  32 32 29 3a 41 5f 3d 31  3a 43 5f 3d 31 30 0d 00  |22):A_=1:C_=10..|
000000a0  28 2b eb 32 30 3a 87 3a  e3 58 25 3d 31 b8 31 35  |(+.20:.:.X%=1.15|
000000b0  3a fb 20 58 25 2c 58 25  2a 31 35 2c 58 25 2a 31  |:. X%,X%*15,X%*1|
000000c0  35 2c 58 25 2a 31 35 3a  ed 0d 00 32 3f f3 45 5f  |5,X%*15:...2?.E_|
000000d0  2c 4f 2c 57 25 2c 57 3a  4e 3d 45 5f 2d 31 3a 46  |,O,W%,W:N=E_-1:F|
000000e0  5f 3d 30 3a 41 25 28 29  3d 30 3a e3 58 3d 30 b8  |_=0:A%()=0:.X=0.|
000000f0  4e 3a f3 41 25 28 58 2c  30 2c 30 29 2c 41 25 28  |N:.A%(X,0,0),A%(|
00000100  58 2c 30 2c 31 29 3a ed  0d 00 3c 70 41 3d 41 25  |X,0,1):...<pA=A%|
00000110  28 30 2c 30 2c 30 29 3a  42 3d 41 25 28 30 2c 30  |(0,0,0):B=A%(0,0|
00000120  2c 31 29 3a 43 3d 41 25  28 4e 2c 30 2c 30 29 3a  |,1):C=A%(N,0,0):|
00000130  44 3d 41 25 28 4e 2c 30  2c 31 29 3a e3 58 3d 30  |D=A%(N,0,1):.X=0|
00000140  b8 4e 3a 41 25 28 4e 2d  58 2c 31 2c 30 29 3d 41  |.N:A%(N-X,1,0)=A|
00000150  2b 43 2d 41 25 28 58 2c  30 2c 30 29 3a 41 25 28  |+C-A%(X,0,0):A%(|
00000160  4e 2d 58 2c 31 2c 31 29  3d 42 2b 44 2d 41 25 28  |N-X,1,1)=B+D-A%(|
00000170  58 2c 30 2c 31 29 3a ed  0d 00 46 8e 48 3d 28 44  |X,0,1):...F.H=(D|
00000180  2d 42 29 2f 28 43 2d 41  29 3a 49 3d 42 2d 48 2a  |-B)/(C-A):I=B-H*|
00000190  41 3a 4a 3d 2d 49 2f 28  41 2d 42 2f 48 29 3a e3  |A:J=-I/(A-B/H):.|
000001a0  59 3d 32 b8 33 3a e3 58  3d 30 b8 4e 3a 45 3d 41  |Y=2.3:.X=0.N:E=A|
000001b0  25 28 58 2c 59 2d 32 2c  30 29 3a 46 3d 41 25 28  |%(X,Y-2,0):F=A%(|
000001c0  58 2c 59 2d 32 2c 31 29  3a 47 3d 28 46 2b 45 2f  |X,Y-2,1):G=(F+E/|
000001d0  4a 2d 49 29 2f 28 4a 2b  31 2f 4a 29 3a 41 25 28  |J-I)/(J+1/J):A%(|
000001e0  58 2c 59 2c 31 29 3d 32  2a 28 4a 2a 47 2b 49 29  |X,Y,1)=2*(J*G+I)|
000001f0  2d 46 3a 41 25 28 58 2c  59 2c 30 29 3d 32 2a 47  |-F:A%(X,Y,0)=2*G|
00000200  2d 45 3a ed 3a ed 0d 00  50 8a 45 3d 43 2d 41 3a  |-E:.:...P.E=C-A:|
00000210  44 3d 44 2d 42 3a 43 3d  28 44 2a 44 2b 45 2a 45  |D=D-B:C=(D*D+E*E|
00000220  29 5e 2e 35 3a 45 3d 45  2f 43 3a 44 3d 44 2f 43  |)^.5:E=E/C:D=D/C|
00000230  3a 4e 3d 45 5f 2d 32 3a  e3 59 3d 30 b8 33 3a e3  |:N=E_-2:.Y=0.3:.|
00000240  58 3d 30 b8 4e 3a 48 3d  41 25 28 58 2c 59 2c 30  |X=0.N:H=A%(X,Y,0|
00000250  29 2d 41 25 28 58 2b 31  2c 59 2c 30 29 3a 49 3d  |)-A%(X+1,Y,0):I=|
00000260  41 25 28 58 2c 59 2c 31  29 2d 41 25 28 58 2b 31  |A%(X,Y,1)-A%(X+1|
00000270  2c 59 2c 31 29 3a 42 25  28 58 2c 59 2c 30 29 3d  |,Y,1):B%(X,Y,0)=|
00000280  28 48 2a 48 2b 49 2a 49  29 5e 2e 35 3a ed 3a ed  |(H*H+I*I)^.5:.:.|
00000290  0d 00 5a 8b e3 59 3d 30  b8 31 3a e3 58 3d 30 b8  |..Z..Y=0.1:.X=0.|
000002a0  4e 2b 31 3a 43 28 30 2c  58 2c 59 29 3d 41 25 28  |N+1:C(0,X,Y)=A%(|
000002b0  58 2c 30 2c 59 29 3a ed  3a ed 3a e3 58 3d 30 b8  |X,0,Y):.:.:.X=0.|
000002c0  4e 3a 43 28 30 2c 58 2c  32 29 3d 42 25 28 58 2c  |N:C(0,X,2)=B%(X,|
000002d0  30 2c 30 29 2a 43 3a ed  58 3a e3 59 3d 30 b8 33  |0,0)*C:.X:.Y=0.3|
000002e0  3a e3 58 3d 30 b8 4e 2b  31 3a 41 25 28 58 2c 59  |:.X=0.N+1:A%(X,Y|
000002f0  2c 30 29 3d 41 25 28 58  2c 59 2c 30 29 2d 41 3a  |,0)=A%(X,Y,0)-A:|
00000300  41 25 28 58 2c 59 2c 31  29 3d 41 25 28 58 2c 59  |A%(X,Y,1)=A%(X,Y|
00000310  2c 31 29 2d 42 3a ed 58  3a ed 59 0d 00 64 21 e3  |,1)-B:.X:.Y..d!.|
00000320  59 3d 30 b8 33 3a e3 58  3d 30 b8 4e 3a f3 20 42  |Y=0.3:.X=0.N:. B|
00000330  25 28 58 2c 59 2c 31 29  3a ed 3a ed 0d 00 6e 2d  |%(X,Y,1):.:...n-|
00000340  e3 58 3d 30 b8 4e 3a 43  28 30 2c 58 2c 33 29 3d  |.X=0.N:C(0,X,3)=|
00000350  42 25 28 58 2c 30 2c 31  29 3a ed 3a 46 3d 41 3a  |B%(X,0,1):.:F=A:|
00000360  47 3d 42 3a ec 20 41 2c  42 0d 00 78 05 20 0d 00  |G=B:. A,B..x. ..|
00000370  82 0f f4 20 4d 41 49 4e  20 4c 4f 4f 50 0d 00 8c  |... MAIN LOOP...|
00000380  2f e3 20 47 43 25 3d 31  35 20 b8 20 31 20 88 2d  |/. GC%=15 . 1 .-|
00000390  33 3a 52 32 3d 47 43 25  2a 2e 36 3a 4f 32 25 3d  |3:R2=GC%*.6:O2%=|
000003a0  41 3a 50 32 25 3d 42 3a  e6 47 43 25 0d 00 96 2a  |A:P2%=B:.GC%...*|
000003b0  e3 48 5f 25 3d 30 b8 4e  3a 51 25 3d 31 3a 50 25  |.H_%=0.N:Q%=1:P%|
000003c0  3d 48 5f 25 3a e4 8d 44  5e 41 3a e7 51 25 3d 4f  |=H_%:..D^A:.Q%=O|
000003d0  20 8c 8d 44 4a 41 0d 00  a0 2a e3 49 5f 25 3d 30  | ..DJA...*.I_%=0|
000003e0  b8 4e 3a 51 25 3d 32 3a  50 25 3d 49 5f 25 3a e4  |.N:Q%=2:P%=I_%:.|
000003f0  8d 44 5e 41 3a e7 51 25  3d 4f 20 8c 8d 44 40 41  |.D^A:.Q%=O ..D@A|
00000400  0d 00 aa 2a e3 4a 5f 25  3d 30 b8 4e 3a 51 25 3d  |...*.J_%=0.N:Q%=|
00000410  33 3a 50 25 3d 4a 5f 25  3a e4 8d 44 5e 41 3a e7  |3:P%=J_%:..D^A:.|
00000420  51 25 3d 4f 20 8c 8d 54  76 41 0d 00 b4 2a e3 4b  |Q%=O ..TvA...*.K|
00000430  5f 25 3d 30 b8 4e 3a 51  25 3d 34 3a 50 25 3d 4b  |_%=0.N:Q%=4:P%=K|
00000440  5f 25 3a e4 8d 44 5e 41  3a e7 51 25 3d 4f 20 8c  |_%:..D^A:.Q%=O .|
00000450  8d 54 6c 41 0d 00 be 2a  e3 4c 5f 25 3d 30 b8 4e  |.TlA...*.L_%=0.N|
00000460  3a 51 25 3d 35 3a 50 25  3d 4c 5f 25 3a e4 8d 44  |:Q%=5:P%=L_%:..D|
00000470  5e 41 3a e7 51 25 3d 4f  20 8c 8d 54 62 41 0d 00  |^A:.Q%=O ..TbA..|
00000480  c8 2a e3 4d 5f 25 3d 30  b8 4e 3a 51 25 3d 36 3a  |.*.M_%=0.N:Q%=6:|
00000490  50 25 3d 4d 5f 25 3a e4  8d 44 5e 41 3a e7 51 25  |P%=M_%:..D^A:.Q%|
000004a0  3d 4f 20 8c 8d 54 58 41  0d 00 d2 2a e3 4e 5f 25  |=O ..TXA...*.N_%|
000004b0  3d 30 b8 4e 3a 51 25 3d  37 3a 50 25 3d 4e 5f 25  |=0.N:Q%=7:P%=N_%|
000004c0  3a e4 8d 44 5e 41 3a e7  51 25 3d 4f 20 8c 8d 54  |:..D^A:.Q%=O ..T|
000004d0  4e 41 0d 00 dc 2a e3 4f  5f 25 3d 30 b8 4e 3a 51  |NA...*.O_%=0.N:Q|
000004e0  25 3d 38 3a 50 25 3d 4f  5f 25 3a e4 8d 44 5e 41  |%=8:P%=O_%:..D^A|
000004f0  3a e7 51 25 3d 4f 20 8c  8d 54 44 41 0d 00 e6 2a  |:.Q%=O ..TDA...*|
00000500  e3 50 5f 25 3d 30 b8 4e  3a 51 25 3d 39 3a 50 25  |.P_%=0.N:Q%=9:P%|
00000510  3d 50 5f 25 3a e4 8d 44  5e 41 3a e7 51 25 3d 4f  |=P_%:..D^A:.Q%=O|
00000520  20 8c 8d 64 7a 40 0d 00  f0 24 e3 51 5f 25 3d 30  | ..dz@...$.Q_%=0|
00000530  b8 4e 3a 51 25 3d 31 30  3a 50 25 3d 51 5f 25 3a  |.N:Q%=10:P%=Q_%:|
00000540  e4 8d 44 5e 41 3a ed 51  5f 25 0d 00 fa 08 ed 50  |..D^A:.Q_%.....P|
00000550  5f 25 0d 01 04 08 ed 4f  5f 25 0d 01 0e 08 ed 4e  |_%.....O_%.....N|
00000560  5f 25 0d 01 18 08 ed 4d  5f 25 0d 01 22 08 ed 4c  |_%.....M_%.."..L|
00000570  5f 25 0d 01 2c 08 ed 4b  5f 25 0d 01 36 08 ed 4a  |_%..,..K_%..6..J|
00000580  5f 25 0d 01 40 08 ed 49  5f 25 0d 01 4a 0c ed 48  |_%..@..I_%..J..H|
00000590  5f 25 3a ed 3a e0 0d 01  54 05 20 0d 01 5e 3a 52  |_%:.:...T. ..^:R|
000005a0  25 3d 43 28 51 25 2d 31  2c 50 25 2c 33 29 3a e7  |%=C(Q%-1,P%,3):.|
000005b0  51 25 3c 4f 20 e3 58 25  3d 30 b8 4e 3a 43 28 51  |Q%<O .X%=0.N:C(Q|
000005c0  25 2c 58 25 2c 33 29 3d  42 25 28 58 25 2c 52 25  |%,X%,3)=B%(X%,R%|
000005d0  2c 31 29 3a ed 0d 01 68  3b 4a 3d 43 28 51 25 2d  |,1):...h;J=C(Q%-|
000005e0  31 2c 50 25 2c 32 29 3a  e7 51 25 3c 4f 20 e3 58  |1,P%,2):.Q%<O .X|
000005f0  25 3d 30 b8 4e 3a 43 28  51 25 2c 58 25 2c 32 29  |%=0.N:C(Q%,X%,2)|
00000600  3d 4a 2a 42 25 28 58 25  2c 52 25 2c 30 29 3a ed  |=J*B%(X%,R%,0):.|
00000610  0d 01 72 d4 48 3d 43 28  51 25 2d 31 2c 50 25 2c  |..r.H=C(Q%-1,P%,|
00000620  30 29 3a 49 3d 43 28 51  25 2d 31 2c 50 25 2c 31  |0):I=C(Q%-1,P%,1|
00000630  29 3a 53 3d 28 43 28 51  25 2d 31 2c 50 25 2b 31  |):S=(C(Q%-1,P%+1|
00000640  2c 30 29 2d 48 29 2f 4a  3a 54 3d 28 43 28 51 25  |,0)-H)/J:T=(C(Q%|
00000650  2d 31 2c 50 25 2b 31 2c  31 29 2d 49 29 2f 4a 3a  |-1,P%+1,1)-I)/J:|
00000660  4a 3d 4a 2f 43 3a 4d 3d  45 2a 53 2b 44 2a 54 3a  |J=J/C:M=E*S+D*T:|
00000670  4c 3d 45 2a 54 2d 44 2a  53 3a e3 58 25 3d 30 b8  |L=E*T-D*S:.X%=0.|
00000680  4e 2b 31 3a 55 3d 41 25  28 58 25 2c 52 25 2c 30  |N+1:U=A%(X%,R%,0|
00000690  29 2a 4a 3a 56 3d 41 25  28 58 25 2c 52 25 2c 31  |)*J:V=A%(X%,R%,1|
000006a0  29 2a 4a 3a 43 28 51 25  2c 58 25 2c 30 29 3d 55  |)*J:C(Q%,X%,0)=U|
000006b0  2a 4d 2d 56 2a 4c 2b 48  3a 43 28 51 25 2c 58 25  |*M-V*L+H:C(Q%,X%|
000006c0  2c 31 29 3d 55 2a 4c 2b  56 2a 4d 2b 49 3a ed 3a  |,1)=U*L+V*M+I:.:|
000006d0  e7 51 25 3d 4f 20 f2 44  52 41 57 28 4e 2c 51 25  |.Q%=O .DRAW(N,Q%|
000006e0  2c 52 32 29 0d 01 7c 05  f8 0d 01 86 04 0d 01 90  |,R2)..|.........|
000006f0  22 dd f2 44 52 41 57 28  50 2c 51 25 2c 52 29 3a  |"..DRAW(P,Q%,R):|
00000700  ea 20 58 25 2c 4d 2c 4e  2c 53 2c 54 2c 59 25 0d  |. X%,M,N,S,T,Y%.|
00000710  01 a4 3d e3 58 25 3d 30  b8 50 3a 4d 3d 43 28 51  |..=.X%=0.P:M=C(Q|
00000720  25 2c 58 25 2c 30 29 3a  4e 3d 43 28 51 25 2c 58  |%,X%,0):N=C(Q%,X|
00000730  25 2c 31 29 3a 53 3d 28  4f 32 25 2d 4d 29 2f 38  |%,1):S=(O2%-M)/8|
00000740  3a 54 3d 28 50 32 25 2d  4e 29 2f 38 0d 01 ae 23  |:T=(P2%-N)/8...#|
00000750  e3 20 59 25 3d 30 b8 37  3a c8 8f c8 90 20 4d 2b  |. Y%=0.7:.... M+|
00000760  59 25 2a 53 2c 4e 2b 59  25 2a 54 2c 52 3a ed 0d  |Y%*S,N+Y%*T,R:..|
00000770  01 b8 11 4f 32 25 3d 4d  3a 50 32 25 3d 4e 3a ed  |...O2%=M:P2%=N:.|
00000780  0d 01 c2 05 e1 0d 01 cc  05 20 0d 01 d6 0d dc 20  |......... ..... |
00000790  38 2c 33 2c 30 2c 31 0d  01 e0 46 dc 20 32 35 30  |8,3,0,1...F. 250|
000007a0  2c 31 31 30 2c 36 30 30  2c 31 31 30 2c 37 37 35  |,110,600,110,775|
000007b0  2c 34 31 33 2c 34 32 35  2c 34 31 33 2c 32 35 30  |,413,425,413,250|
000007c0  2c 37 31 36 2c 36 30 30  2c 37 31 36 2c 39 35 30  |,716,600,716,950|
000007d0  2c 37 31 36 2c 31 31 32  35 2c 34 31 33 0d 01 ea  |,716,1125,413...|
000007e0  48 dc 20 30 2c 31 2c 31  2c 30 2c 30 2c 30 2c 31  |H. 0,1,1,0,0,0,1|
000007f0  2c 30 2c 31 2c 31 2c 31  2c 30 2c 30 2c 31 2c 2d  |,0,1,1,1,0,0,1,-|
00000800  31 2c 2d 31 2c 2d 31 2c  2d 31 2c 2d 31 2c 2d 31  |1,-1,-1,-1,-1,-1|
00000810  2c 2d 31 2c 2d 31 2c 2d  31 2c 2d 31 2c 2d 31 2c  |,-1,-1,-1,-1,-1,|
00000820  2d 31 2c 2d 31 0d 01 f4  0b dc 20 30 2c 30 2c 30  |-1,-1..... 0,0,0|
00000830  0d ff                                             |..|
00000832