� DOMINOES
� by Jon Perry
� (c) The Micro User
(��7:�:�" at ";�:�
2	�init
<��7:�23,1,0;0;0;0;
Fd=50:P=0:PP=0:�choose
P�5:�23,1,0;0;0;0;
Z�I=0�2:�19,I+1,H(I);0;:�
d�PP>P P=PP:�disp
n�des:�save:�topple
x���-99��-74
���
���choose
��db(6,13,1,"DOMINOES")
��db(5,12,3,"__________")
��db(7,5,15,"Delay")
��0,18)"File to load"
�/�db(1,0,22,"Press Shift when finished....")
���w(5):*FX15
��-49:H(0)=H(0)+1
��-50:H(1)=H(1)+1
��-18:H(2)=H(2)+1
��-58:�d<200d=d+10
��-42:�d>0d=d-10

�-87:�load

�I=0�2:�H(I)=8H(I)=1

(�db(H(I),2,5+I*3,"Colour "+�(I+1)):�

"�db(6,14,15,�d+"  ")

,
��-1:�

6��db(C%,X%,Y%,M$):� D%

@+�D%=Y%�Y%+1:�X%,D%)�141�(128+C%)M$:�:�

J��load:T$=�ip(15,18,7)

T�15,18)�(7)

^X=�T$:�#X,PP

h�I=0�PP:�J=0�1

r)�#X,x%(I,J),y%(I,J),a%(I,J),c%(I,J):�

|�#X,n%(I):�:�#X

�-�db(5,0,20,"File loaded : "+T$+�7," ")):�

���init:� b%256:mx%=200

��H(2):H(0)=1:H(1)=3:H(2)=7

��x%(mx%,1),y%(mx%,1)

��a%(mx%,1),c%(mx%,1)

��s(24),c(24),n%(mx%)

�+�t=0�360�15:s(t/15)=��t:c(t/15)=��t:�:�

���disp:�I=0�PP:�J=0�1

��line(I,J):�:�:�

�	��des

�C=1:x=640:y=200:a=0:N=1:n=0

�
���3,C

��I=0�1:�x,y:*FX19
�x+48*c(a),y+48*s(a):�
�-1:J=24 � J=12
�-58:�y<964-J:y=y+J
&�-42:�y>112+J:y=y-J
0�-26:�x>64+J:x=x-J
:�-122:�x<1152-J:x=x+J
D�-99:a=a+.5:�a=25 a=0
N�-83:C=C+1:�C=4 C=1
X�-86:N=2:�1,-10,200,1
b�-55:�n=0:N=1:�1,-10,100,1
l��-74 � �-35 �P>mx%
v�P>mx% �dPB
��1,-15,100,1:a=�a:C=�C
��-35 �dPB
��n=1 �t|B
�x%(P,0)=x:y%(P,0)=y
�"a%(P,0)=a:c%(P,0)=C:�line(P,0)
��N=2:n%(P)=1:�n=0 n=1:�dPB
�K�n=1:x%(P,1)=x:y%(P,1)=y:a%(P,1)=a:c%(P,1)=C:�line(P,1):P=P+1:n=0:�dPB
��N=1:P=P+1:�dPB
���-35 �P>mx%
�PP=P-1:�
���line(n%,m%):�0,c%(n%,m%)
�xx=x%(n%,m%):yy=y%(n%,m%)
�3�xx,yy:�xx+48*c(a%(n%,m%)),yy+48*s(a%(n%,m%)):�
��topple
�I=0�P:�box(I,0)
�1,-10,I,1:�1,0,0,0
 ,�n%(I)=1 �box(I,1):�2,-10,I+4,1:�2,0,0,0
*�w(d):�
4&�I=P �0�-4:�1,-10,I,1:�1,0,0,0:�:�
>��box(n%,m%):aa=a%(n%,m%)
Hab=aa+6:�ab>24 ab=ab-24
R�0,c%(n%,m%):xx=x%(n%,m%)
\yy=y%(n%,m%):�xx,yy
f�xx+48*c(aa),yy+48*s(aa)
p�85,xx+16*c(ab),yy+16*s(ab)
z3�85,xx+48*c(aa)+16*c(ab),yy+48*s(aa)+16*s(ab):�
���save:*FX4,1
��0,30)"Save ?(Y/N)"
��w(20):� ��yn ��d^C
��0,30)�7,".")�4
�T$=�ip(0,30,7)
�X=�T$:�#X,PP
��I=0�PP:�J=0�1
�)�#X,x%(I,J),y%(I,J),a%(I,J),c%(I,J):�
��#X,n%(I):�:�#X
��0,30)�11:�
�ݤip(X%,Y%,L%):P%=0:*FX15
��X%,Y%)�L%,".")�X%,Y%);
��b%?P%=13:A%=�
�P%�A%=127P%=P%-1:�A%�"."8
+�P%<L%�A%>32�A%<127b%?P%=A%:�A%:P%=P%+1
�A%=13:=$b%
$ݤyn:�A%=��&DF
.�A%=�"Y"�A%=�"N"
8=(A%=(�"Y"))
B��w(T%):T%=�+T%
L���>T%:�
�

00000000  0d 00 0a 0e f4 20 44 4f  4d 49 4e 4f 45 53 0d 00  |..... DOMINOES..|
00000010  14 12 f4 20 62 79 20 4a  6f 6e 20 50 65 72 72 79  |... by Jon Perry|
00000020  0d 00 1e 18 f4 20 28 63  29 20 54 68 65 20 4d 69  |..... (c) The Mi|
00000030  63 72 6f 20 55 73 65 72  0d 00 28 16 ee 85 eb 37  |cro User..(....7|
00000040  3a f6 3a f1 22 20 61 74  20 22 3b 9e 3a e0 0d 00  |:.:." at ";.:...|
00000050  32 09 f2 69 6e 69 74 0d  00 3c 16 f5 eb 37 3a ef  |2..init..<...7:.|
00000060  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 0d 00 46  |23,1,0;0;0;0;..F|
00000070  19 64 3d 35 30 3a 50 3d  30 3a 50 50 3d 30 3a f2  |.d=50:P=0:PP=0:.|
00000080  63 68 6f 6f 73 65 0d 00  50 15 eb 35 3a ef 32 33  |choose..P..5:.23|
00000090  2c 31 2c 30 3b 30 3b 30  3b 30 3b 0d 00 5a 1c e3  |,1,0;0;0;0;..Z..|
000000a0  49 3d 30 b8 32 3a ef 31  39 2c 49 2b 31 2c 48 28  |I=0.2:.19,I+1,H(|
000000b0  49 29 3b 30 3b 3a ed 0d  00 64 14 e7 50 50 3e 50  |I);0;:...d..PP>P|
000000c0  20 50 3d 50 50 3a f2 64  69 73 70 0d 00 6e 16 f2  | P=PP:.disp..n..|
000000d0  64 65 73 3a f2 73 61 76  65 3a f2 74 6f 70 70 6c  |des:.save:.toppl|
000000e0  65 0d 00 78 0f f5 fd a6  2d 39 39 84 a6 2d 37 34  |e..x....-99..-74|
000000f0  0d 00 82 06 fd a3 0d 00  8c 0c dd f2 63 68 6f 6f  |............choo|
00000100  73 65 0d 00 96 1a f2 64  62 28 36 2c 31 33 2c 31  |se.....db(6,13,1|
00000110  2c 22 44 4f 4d 49 4e 4f  45 53 22 29 0d 00 a0 1c  |,"DOMINOES")....|
00000120  f2 64 62 28 35 2c 31 32  2c 33 2c 22 5f 5f 5f 5f  |.db(5,12,3,"____|
00000130  5f 5f 5f 5f 5f 5f 22 29  0d 00 aa 17 f2 64 62 28  |______").....db(|
00000140  37 2c 35 2c 31 35 2c 22  44 65 6c 61 79 22 29 0d  |7,5,15,"Delay").|
00000150  00 b4 19 f1 8a 30 2c 31  38 29 22 46 69 6c 65 20  |.....0,18)"File |
00000160  74 6f 20 6c 6f 61 64 22  0d 00 be 2f f2 64 62 28  |to load".../.db(|
00000170  31 2c 30 2c 32 32 2c 22  50 72 65 73 73 20 53 68  |1,0,22,"Press Sh|
00000180  69 66 74 20 77 68 65 6e  20 66 69 6e 69 73 68 65  |ift when finishe|
00000190  64 2e 2e 2e 2e 22 29 0d  00 c8 10 f5 f2 77 28 35  |d....")......w(5|
000001a0  29 3a 2a 46 58 31 35 0d  00 d2 15 e7 a6 2d 34 39  |):*FX15......-49|
000001b0  3a 48 28 30 29 3d 48 28  30 29 2b 31 0d 00 dc 15  |:H(0)=H(0)+1....|
000001c0  e7 a6 2d 35 30 3a 48 28  31 29 3d 48 28 31 29 2b  |..-50:H(1)=H(1)+|
000001d0  31 0d 00 e6 15 e7 a6 2d  31 38 3a 48 28 32 29 3d  |1......-18:H(2)=|
000001e0  48 28 32 29 2b 31 0d 00  f0 16 e7 a6 2d 35 38 3a  |H(2)+1......-58:|
000001f0  e7 64 3c 32 30 30 64 3d  64 2b 31 30 0d 00 fa 14  |.d<200d=d+10....|
00000200  e7 a6 2d 34 32 3a e7 64  3e 30 64 3d 64 2d 31 30  |..-42:.d>0d=d-10|
00000210  0d 01 04 0f e7 a6 2d 38  37 3a f2 6c 6f 61 64 0d  |......-87:.load.|
00000220  01 0e 18 e3 49 3d 30 b8  32 3a e7 48 28 49 29 3d  |....I=0.2:.H(I)=|
00000230  38 48 28 49 29 3d 31 0d  01 18 28 f2 64 62 28 48  |8H(I)=1...(.db(H|
00000240  28 49 29 2c 32 2c 35 2b  49 2a 33 2c 22 43 6f 6c  |(I),2,5+I*3,"Col|
00000250  6f 75 72 20 22 2b c3 28  49 2b 31 29 29 3a ed 0d  |our "+.(I+1)):..|
00000260  01 22 18 f2 64 62 28 36  2c 31 34 2c 31 35 2c c3  |."..db(6,14,15,.|
00000270  64 2b 22 20 20 22 29 0d  01 2c 0a fd a6 2d 31 3a  |d+"  ")..,...-1:|
00000280  e1 0d 01 36 1a dd f2 64  62 28 43 25 2c 58 25 2c  |...6...db(C%,X%,|
00000290  59 25 2c 4d 24 29 3a ea  20 44 25 0d 01 40 2b e3  |Y%,M$):. D%..@+.|
000002a0  44 25 3d 59 25 b8 59 25  2b 31 3a f1 8a 58 25 2c  |D%=Y%.Y%+1:..X%,|
000002b0  44 25 29 bd 31 34 31 bd  28 31 32 38 2b 43 25 29  |D%).141.(128+C%)|
000002c0  4d 24 3a ed 3a e1 0d 01  4a 1a dd f2 6c 6f 61 64  |M$:.:...J...load|
000002d0  3a 54 24 3d a4 69 70 28  31 35 2c 31 38 2c 37 29  |:T$=.ip(15,18,7)|
000002e0  0d 01 54 10 f1 8a 31 35  2c 31 38 29 89 28 37 29  |..T...15,18).(7)|
000002f0  0d 01 5e 10 58 3d 8e 54  24 3a e8 23 58 2c 50 50  |..^.X=.T$:.#X,PP|
00000300  0d 01 68 12 e3 49 3d 30  b8 50 50 3a e3 4a 3d 30  |..h..I=0.PP:.J=0|
00000310  b8 31 0d 01 72 29 e8 23  58 2c 78 25 28 49 2c 4a  |.1..r).#X,x%(I,J|
00000320  29 2c 79 25 28 49 2c 4a  29 2c 61 25 28 49 2c 4a  |),y%(I,J),a%(I,J|
00000330  29 2c 63 25 28 49 2c 4a  29 3a ed 0d 01 7c 13 e8  |),c%(I,J):...|..|
00000340  23 58 2c 6e 25 28 49 29  3a ed 3a d9 23 58 0d 01  |#X,n%(I):.:.#X..|
00000350  86 2d f2 64 62 28 35 2c  30 2c 32 30 2c 22 46 69  |.-.db(5,0,20,"Fi|
00000360  6c 65 20 6c 6f 61 64 65  64 20 3a 20 22 2b 54 24  |le loaded : "+T$|
00000370  2b c4 37 2c 22 20 22 29  29 3a e1 0d 01 90 1a dd  |+.7," ")):......|
00000380  f2 69 6e 69 74 3a de 20  62 25 32 35 36 3a 6d 78  |.init:. b%256:mx|
00000390  25 3d 32 30 30 0d 01 9a  1e de 48 28 32 29 3a 48  |%=200.....H(2):H|
000003a0  28 30 29 3d 31 3a 48 28  31 29 3d 33 3a 48 28 32  |(0)=1:H(1)=3:H(2|
000003b0  29 3d 37 0d 01 a4 18 de  78 25 28 6d 78 25 2c 31  |)=7.....x%(mx%,1|
000003c0  29 2c 79 25 28 6d 78 25  2c 31 29 0d 01 ae 18 de  |),y%(mx%,1).....|
000003d0  61 25 28 6d 78 25 2c 31  29 2c 63 25 28 6d 78 25  |a%(mx%,1),c%(mx%|
000003e0  2c 31 29 0d 01 b8 18 de  73 28 32 34 29 2c 63 28  |,1).....s(24),c(|
000003f0  32 34 29 2c 6e 25 28 6d  78 25 29 0d 01 c2 2b e3  |24),n%(mx%)...+.|
00000400  74 3d 30 b8 33 36 30 88  31 35 3a 73 28 74 2f 31  |t=0.360.15:s(t/1|
00000410  35 29 3d b5 b2 74 3a 63  28 74 2f 31 35 29 3d 9b  |5)=..t:c(t/15)=.|
00000420  b2 74 3a ed 3a e1 0d 01  cc 19 dd f2 64 69 73 70  |.t:.:.......disp|
00000430  3a e3 49 3d 30 b8 50 50  3a e3 4a 3d 30 b8 31 0d  |:.I=0.PP:.J=0.1.|
00000440  01 d6 14 f2 6c 69 6e 65  28 49 2c 4a 29 3a ed 3a  |....line(I,J):.:|
00000450  ed 3a e1 0d 01 e0 09 dd  f2 64 65 73 0d 01 ea 1f  |.:.......des....|
00000460  43 3d 31 3a 78 3d 36 34  30 3a 79 3d 32 30 30 3a  |C=1:x=640:y=200:|
00000470  61 3d 30 3a 4e 3d 31 3a  6e 3d 30 0d 01 f4 0a f5  |a=0:N=1:n=0.....|
00000480  f5 e6 33 2c 43 0d 01 fe  15 e3 49 3d 30 b8 31 3a  |..3,C.....I=0.1:|
00000490  ec 78 2c 79 3a 2a 46 58  31 39 0d 02 08 1a df 78  |.x,y:*FX19.....x|
000004a0  2b 34 38 2a 63 28 61 29  2c 79 2b 34 38 2a 73 28  |+48*c(a),y+48*s(|
000004b0  61 29 3a ed 0d 02 12 14  e7 a6 2d 31 3a 4a 3d 32  |a):.......-1:J=2|
000004c0  34 20 8b 20 4a 3d 31 32  0d 02 1c 18 e7 a6 2d 35  |4 . J=12......-5|
000004d0  38 3a e7 79 3c 39 36 34  2d 4a 3a 79 3d 79 2b 4a  |8:.y<964-J:y=y+J|
000004e0  0d 02 26 18 e7 a6 2d 34  32 3a e7 79 3e 31 31 32  |..&...-42:.y>112|
000004f0  2b 4a 3a 79 3d 79 2d 4a  0d 02 30 17 e7 a6 2d 32  |+J:y=y-J..0...-2|
00000500  36 3a e7 78 3e 36 34 2b  4a 3a 78 3d 78 2d 4a 0d  |6:.x>64+J:x=x-J.|
00000510  02 3a 1a e7 a6 2d 31 32  32 3a e7 78 3c 31 31 35  |.:...-122:.x<115|
00000520  32 2d 4a 3a 78 3d 78 2b  4a 0d 02 44 1a e7 a6 2d  |2-J:x=x+J..D...-|
00000530  39 39 3a 61 3d 61 2b 2e  35 3a e7 61 3d 32 35 20  |99:a=a+.5:.a=25 |
00000540  61 3d 30 0d 02 4e 18 e7  a6 2d 38 33 3a 43 3d 43  |a=0..N...-83:C=C|
00000550  2b 31 3a e7 43 3d 34 20  43 3d 31 0d 02 58 1a e7  |+1:.C=4 C=1..X..|
00000560  a6 2d 38 36 3a 4e 3d 32  3a d4 31 2c 2d 31 30 2c  |.-86:N=2:.1,-10,|
00000570  32 30 30 2c 31 0d 02 62  1f e7 a6 2d 35 35 3a e7  |200,1..b...-55:.|
00000580  6e 3d 30 3a 4e 3d 31 3a  d4 31 2c 2d 31 30 2c 31  |n=0:N=1:.1,-10,1|
00000590  30 30 2c 31 0d 02 6c 17  fd a6 2d 37 34 20 84 20  |00,1..l...-74 . |
000005a0  a6 2d 33 35 20 84 50 3e  6d 78 25 0d 02 76 10 e7  |.-35 .P>mx%..v..|
000005b0  50 3e 6d 78 25 20 e5 8d  64 50 42 0d 02 80 1a d4  |P>mx% ..dPB.....|
000005c0  31 2c 2d 31 35 2c 31 30  30 2c 31 3a 61 3d a8 61  |1,-15,100,1:a=.a|
000005d0  3a 43 3d a8 43 0d 02 8a  0f e7 a6 2d 33 35 20 e5  |:C=.C......-35 .|
000005e0  8d 64 50 42 0d 02 94 0e  e7 6e 3d 31 20 e5 8d 74  |.dPB.....n=1 ..t|
000005f0  7c 42 0d 02 9e 17 78 25  28 50 2c 30 29 3d 78 3a  ||B....x%(P,0)=x:|
00000600  79 25 28 50 2c 30 29 3d  79 0d 02 a8 22 61 25 28  |y%(P,0)=y..."a%(|
00000610  50 2c 30 29 3d 61 3a 63  25 28 50 2c 30 29 3d 43  |P,0)=a:c%(P,0)=C|
00000620  3a f2 6c 69 6e 65 28 50  2c 30 29 0d 02 b2 1f e7  |:.line(P,0).....|
00000630  4e 3d 32 3a 6e 25 28 50  29 3d 31 3a e7 6e 3d 30  |N=2:n%(P)=1:.n=0|
00000640  20 6e 3d 31 3a e5 8d 64  50 42 0d 02 bc 4b e7 6e  | n=1:..dPB...K.n|
00000650  3d 31 3a 78 25 28 50 2c  31 29 3d 78 3a 79 25 28  |=1:x%(P,1)=x:y%(|
00000660  50 2c 31 29 3d 79 3a 61  25 28 50 2c 31 29 3d 61  |P,1)=y:a%(P,1)=a|
00000670  3a 63 25 28 50 2c 31 29  3d 43 3a f2 6c 69 6e 65  |:c%(P,1)=C:.line|
00000680  28 50 2c 31 29 3a 50 3d  50 2b 31 3a 6e 3d 30 3a  |(P,1):P=P+1:n=0:|
00000690  e5 8d 64 50 42 0d 02 c6  14 e7 4e 3d 31 3a 50 3d  |..dPB.....N=1:P=|
000006a0  50 2b 31 3a e5 8d 64 50  42 0d 02 d0 10 fd a6 2d  |P+1:..dPB......-|
000006b0  33 35 20 84 50 3e 6d 78  25 0d 02 da 0c 50 50 3d  |35 .P>mx%....PP=|
000006c0  50 2d 31 3a e1 0d 02 e4  1e dd f2 6c 69 6e 65 28  |P-1:.......line(|
000006d0  6e 25 2c 6d 25 29 3a e6  30 2c 63 25 28 6e 25 2c  |n%,m%):.0,c%(n%,|
000006e0  6d 25 29 0d 02 ee 1d 78  78 3d 78 25 28 6e 25 2c  |m%)....xx=x%(n%,|
000006f0  6d 25 29 3a 79 79 3d 79  25 28 6e 25 2c 6d 25 29  |m%):yy=y%(n%,m%)|
00000700  0d 02 f8 33 ec 78 78 2c  79 79 3a df 78 78 2b 34  |...3.xx,yy:.xx+4|
00000710  38 2a 63 28 61 25 28 6e  25 2c 6d 25 29 29 2c 79  |8*c(a%(n%,m%)),y|
00000720  79 2b 34 38 2a 73 28 61  25 28 6e 25 2c 6d 25 29  |y+48*s(a%(n%,m%)|
00000730  29 3a e1 0d 03 02 0c dd  f2 74 6f 70 70 6c 65 0d  |):.......topple.|
00000740  03 0c 14 e3 49 3d 30 b8  50 3a f2 62 6f 78 28 49  |....I=0.P:.box(I|
00000750  2c 30 29 0d 03 16 17 d4  31 2c 2d 31 30 2c 49 2c  |,0).....1,-10,I,|
00000760  31 3a d4 31 2c 30 2c 30  2c 30 0d 03 20 2c e7 6e  |1:.1,0,0,0.. ,.n|
00000770  25 28 49 29 3d 31 20 f2  62 6f 78 28 49 2c 31 29  |%(I)=1 .box(I,1)|
00000780  3a d4 32 2c 2d 31 30 2c  49 2b 34 2c 31 3a d4 32  |:.2,-10,I+4,1:.2|
00000790  2c 30 2c 30 2c 30 0d 03  2a 0b f2 77 28 64 29 3a  |,0,0,0..*..w(d):|
000007a0  ed 0d 03 34 26 e3 49 3d  50 20 b8 30 88 2d 34 3a  |...4&.I=P .0.-4:|
000007b0  d4 31 2c 2d 31 30 2c 49  2c 31 3a d4 31 2c 30 2c  |.1,-10,I,1:.1,0,|
000007c0  30 2c 30 3a ed 3a e1 0d  03 3e 1d dd f2 62 6f 78  |0,0:.:...>...box|
000007d0  28 6e 25 2c 6d 25 29 3a  61 61 3d 61 25 28 6e 25  |(n%,m%):aa=a%(n%|
000007e0  2c 6d 25 29 0d 03 48 1b  61 62 3d 61 61 2b 36 3a  |,m%)..H.ab=aa+6:|
000007f0  e7 61 62 3e 32 34 20 61  62 3d 61 62 2d 32 34 0d  |.ab>24 ab=ab-24.|
00000800  03 52 1d e6 30 2c 63 25  28 6e 25 2c 6d 25 29 3a  |.R..0,c%(n%,m%):|
00000810  78 78 3d 78 25 28 6e 25  2c 6d 25 29 0d 03 5c 17  |xx=x%(n%,m%)..\.|
00000820  79 79 3d 79 25 28 6e 25  2c 6d 25 29 3a ec 78 78  |yy=y%(n%,m%):.xx|
00000830  2c 79 79 0d 03 66 1c ec  78 78 2b 34 38 2a 63 28  |,yy..f..xx+48*c(|
00000840  61 61 29 2c 79 79 2b 34  38 2a 73 28 61 61 29 0d  |aa),yy+48*s(aa).|
00000850  03 70 1f f0 38 35 2c 78  78 2b 31 36 2a 63 28 61  |.p..85,xx+16*c(a|
00000860  62 29 2c 79 79 2b 31 36  2a 73 28 61 62 29 0d 03  |b),yy+16*s(ab)..|
00000870  7a 33 f0 38 35 2c 78 78  2b 34 38 2a 63 28 61 61  |z3.85,xx+48*c(aa|
00000880  29 2b 31 36 2a 63 28 61  62 29 2c 79 79 2b 34 38  |)+16*c(ab),yy+48|
00000890  2a 73 28 61 61 29 2b 31  36 2a 73 28 61 62 29 3a  |*s(aa)+16*s(ab):|
000008a0  e1 0d 03 84 11 dd f2 73  61 76 65 3a 2a 46 58 34  |.......save:*FX4|
000008b0  2c 31 0d 03 8e 18 f1 8a  30 2c 33 30 29 22 53 61  |,1......0,30)"Sa|
000008c0  76 65 20 3f 28 59 2f 4e  29 22 0d 03 98 17 f2 77  |ve ?(Y/N)".....w|
000008d0  28 32 30 29 3a e7 20 ac  a4 79 6e 20 8c 8d 64 5e  |(20):. ..yn ..d^|
000008e0  43 0d 03 a2 14 f1 8a 30  2c 33 30 29 c4 37 2c 22  |C......0,30).7,"|
000008f0  2e 22 29 89 34 0d 03 ac  12 54 24 3d a4 69 70 28  |.").4....T$=.ip(|
00000900  30 2c 33 30 2c 37 29 0d  03 b6 10 58 3d ae 54 24  |0,30,7)....X=.T$|
00000910  3a f1 23 58 2c 50 50 0d  03 c0 12 e3 49 3d 30 b8  |:.#X,PP.....I=0.|
00000920  50 50 3a e3 4a 3d 30 b8  31 0d 03 ca 29 f1 23 58  |PP:.J=0.1...).#X|
00000930  2c 78 25 28 49 2c 4a 29  2c 79 25 28 49 2c 4a 29  |,x%(I,J),y%(I,J)|
00000940  2c 61 25 28 49 2c 4a 29  2c 63 25 28 49 2c 4a 29  |,a%(I,J),c%(I,J)|
00000950  3a ed 0d 03 d4 13 f1 23  58 2c 6e 25 28 49 29 3a  |:......#X,n%(I):|
00000960  ed 3a d9 23 58 0d 03 de  10 f1 8a 30 2c 33 30 29  |.:.#X......0,30)|
00000970  89 31 31 3a e1 0d 03 e8  1d dd a4 69 70 28 58 25  |.11:.......ip(X%|
00000980  2c 59 25 2c 4c 25 29 3a  50 25 3d 30 3a 2a 46 58  |,Y%,L%):P%=0:*FX|
00000990  31 35 0d 03 f2 1c f1 8a  58 25 2c 59 25 29 c4 4c  |15......X%,Y%).L|
000009a0  25 2c 22 2e 22 29 8a 58  25 2c 59 25 29 3b 0d 03  |%,".").X%,Y%);..|
000009b0  fc 12 f5 62 25 3f 50 25  3d 31 33 3a 41 25 3d a5  |...b%?P%=13:A%=.|
000009c0  0d 04 06 1e e7 50 25 e7  41 25 3d 31 32 37 50 25  |.....P%.A%=127P%|
000009d0  3d 50 25 2d 31 3a ef 41  25 97 22 2e 22 38 0d 04  |=P%-1:.A%."."8..|
000009e0  10 2b e7 50 25 3c 4c 25  e7 41 25 3e 33 32 e7 41  |.+.P%<L%.A%>32.A|
000009f0  25 3c 31 32 37 62 25 3f  50 25 3d 41 25 3a ef 41  |%<127b%?P%=A%:.A|
00000a00  25 3a 50 25 3d 50 25 2b  31 0d 04 1a 0f fd 41 25  |%:P%=P%+1.....A%|
00000a10  3d 31 33 3a 3d 24 62 25  0d 04 24 12 dd a4 79 6e  |=13:=$b%..$...yn|
00000a20  3a f5 41 25 3d a5 80 26  44 46 0d 04 2e 14 fd 41  |:.A%=..&DF.....A|
00000a30  25 3d 97 22 59 22 84 41  25 3d 97 22 4e 22 0d 04  |%=."Y".A%=."N"..|
00000a40  38 10 3d 28 41 25 3d 28  97 22 59 22 29 29 0d 04  |8.=(A%=(."Y"))..|
00000a50  42 13 dd f2 77 28 54 25  29 3a 54 25 3d 91 2b 54  |B...w(T%):T%=.+T|
00000a60  25 0d 04 4c 0c f5 fd 91  3e 54 25 3a e1 0d ff     |%..L....>T%:...|
00000a6f