� Wordsquare solver
� by Pete Dawes
� (c) Acorn Computing
(� 7
2�
<� 23,1,0;0;0;0;
F� � �error
P�screen
Z
�readdata
d�screen2
n
�space
x�displaygrid
�
�space
��screen3
�time%=�
��search
�taken%=�-time%
�
�space
��displaywords
�
�space
��
�� 23,1,1;0;0;0;
�/� "Search time was ";taken%/100;" seconds."
�� "Bye!"
��

:


� �screen

&� �10,0)�(141);"Wordsquare solver"

"&� �10,1)�(141);"Wordsquare solver"

,� �9,2)�(148);�19,�(243))

6&� �10,4)�(130);"by Pete H N Dawes"

@'� �9,5)�(130);"(c) Acorn Computing"

J�

T:

^� �screen2

h#� �10,14)"Rows:         ";rows%

r#� �10,15)"Columns:      ";cols%

|$� �10,16)"Target words: ";words%

��

�:

�� �error

��

�� #0

��

�� " at line ";�

�� 23,1,1;0;0;0;

��

�:

�� �readdata

�file$=�40,�(32))

�� 23,1,1;0;0;0;
�
� �10,10)�40,�(32))
� �10,10)"Filename: "file$
&� file$<>""
0� 23,1,0;0;0;0;
:file%=� file$
Drows%=�getnumber
N� rows%>24 �report(1)
Xcols%=�getnumber
b� cols%>38 �report(2)
l�getgrid
vwords%=�getnumber
�� words%>20 �report(3)
�
�getwords
�� #file%
��
�:
�� �getnumber
�� val%,get%
�
get%=0
��
�val%=� #file%
�#� val%<>13 get%=get%*10+val%-48
�
� val%=13
�	=get%
:
� �getgrid

� inc%
 � data% rows%*cols%
*
inc%=0
4�
>data%?inc%=� #file% � &20
H � data%?inc%<>45 inc%=inc%+1
R� inc%=rows%*cols%
\inc%=� #file%
f�
p:
z� �getwords
�� maxlen%,inc%,latest%
�#� word$(words%), found%(words%)
�3� rows%>cols% maxlen%=rows%+1 � maxlen%=cols%+1
�� inc%=1 � words%
�word$(inc%)=�maxlen%,�(32))
�found%(inc%)=�
��
�� inc%=1 � words%
�word$(inc%)=""
��
�latest%=� #file%
�[� latest%<> 13 word$(inc%)=word$(inc%)+�(latest% � &20) � word$(inc%)=word$(inc%)+�(13)
�� latest%=13
�
�
:
$� �report(error%)
.� �10,16)"TOO MANY ";
8� error%=1 � "ROWS";
B� error%=2 � "COLUMNS";
L� error%=3 � "WORDS";
V� "!!!"
`� 23,1,1;0;0;0;
j�
t:
~� �space
�2� �6,24)�(136)�(130)"Press SPACE to continue";
�*FX 15,1
�� � �=32
��
�:
�� �displaygrid
�� row%,col%
��
�� row%=1 � rows%
�� col%=1 � cols%
�2� 31,col%,row%-1,data%?((row%-1)*cols%+col%-1)
��
�

�
:
� �screen3
(�
2� row%=1 � rows%
<� col%=1 � cols%
F� 31,col%,row%-1,45
P�
Z�
d&� �13,24)�(130)�(136)"Working...";
n�
x:
�� �displaywords
�
� inc%
��
�*� �7,0)�(131)"This colour means found"
�.� �5,1)�(134)"This colour means not found"
�� inc%=1 � words%
�� 31,0,inc%+2
� � found%(inc%) � 131 � � 134
�3� �20-((�(word$(inc%))-1)/2),inc%+2)word$(inc%)
��
��
�:
�
� �search

� inc%
� inc%=1 � words%
len%=�(word$(inc%))-1
"� row%=0 � rows%-1
,� col%=0 � cols%-1
6E%=row%*cols%+col%
@*� �(data%?E%)=�word$(inc%),1) �search2
J�
T�
^�
h�
r:
|� �search2
�=� len%=1 � 31,col%+1,row%,data%?E% � &DF:found%(inc%)=�:�
�A%=(1+col%-len%>=0)
�B%=(col%+len%<=cols%)
�C%=(1+row%-len%>=0)
�D%=(row%+len%<=rows%)
�� A% �dir1
�� A% � C% �dir2
�� C% �dir3
�� B% � C% �dir4
�� B% �dir5
�� B% � D% �dir6
�� D% �dir7
�� A% � D% �dir8
�
:
� �dir1
&I%=0
0�
:I%=I%+1
D8� �(data%?(E%-I%))<>�word$(inc%),I%+1,1) � I%=len%-1
N� I%<>len%-1 �
X.� �(data%?(E%-I%))<>�word$(inc%),I%+1,1) �
b� I%=0 � len%-1
l+� 31,col%-I%+1,row%,data%?(E%-I%) � &DF
v�
�found%(inc%)=�
��
�:
�� �dir2
�I%=0
��
�I%=I%+1
�C� �(data%?(E%-I%-(I%*cols%)))<>�word$(inc%),I%+1,1) � I%=len%-1
�� I%<>len%-1 �
�9� �(data%?(E%-I%-(I%*cols%)))<>�word$(inc%),I%+1,1) �
�� I%=0 � len%-1
�9� 31,col%-I%+1,row%-I%,data%?(E%-I%-(I%*cols%)) � &DF
��
found%(inc%)=�
�
:
 � �dir3
*I%=0
4�
>I%=I%+1
H@� �(data%?(E%-(I%*cols%)))<>�word$(inc%),I%+1,1) � I%=len%-1
R� I%<>len%-1 �
\6� �(data%?(E%-(I%*cols%)))<>�word$(inc%),I%+1,1) �
f� I%=0 � len%-1
p3� 31,col%+1,row%-I%,data%?(E%-(I%*cols%)) � &DF
z�
�found%(inc%)=�
��
�:
�� �dir4
�I%=0
��
�I%=I%+1
�C� �(data%?(E%+I%-(I%*cols%)))<>�word$(inc%),I%+1,1) � I%=len%-1
�� I%<>len%-1 �
�9� �(data%?(E%+I%-(I%*cols%)))<>�word$(inc%),I%+1,1) �
�� I%=0 � len%-1
�9� 31,col%+I%+1,row%-I%,data%?(E%+I%-(I%*cols%)) � &DF
��
	found%(inc%)=�
	�
	:
	$� �dir5
	.I%=0
	8�
	BI%=I%+1
	L8� �(data%?(E%+I%))<>�word$(inc%),I%+1,1) � I%=len%-1
	V� I%<>len%-1 �
	`.� �(data%?(E%+I%))<>�word$(inc%),I%+1,1) �
	j� I%=0 � len%-1
	t+� 31,col%+I%+1,row%,data%?(E%+I%) � &DF
	~�
	�found%(inc%)=�
	��
	�:
	�� �dir6
	�I%=0
	��
	�I%=I%+1
	�C� �(data%?(E%+I%+(I%*cols%)))<>�word$(inc%),I%+1,1) � I%=len%-1
	�� I%<>len%-1 �
	�9� �(data%?(E%+I%+(I%*cols%)))<>�word$(inc%),I%+1,1) �
	�� I%=0 � len%-1
	�9� 31,col%+I%+1,row%+I%,data%?(E%+I%+(I%*cols%)) � &DF
�

found%(inc%)=�
�
:
(� �dir7
2I%=0
<�
FI%=I%+1
P@� �(data%?(E%+(I%*cols%)))<>�word$(inc%),I%+1,1) � I%=len%-1
Z� I%<>len%-1 �
d6� �(data%?(E%+(I%*cols%)))<>�word$(inc%),I%+1,1) �
n� I%=0 � len%-1
x3� 31,col%+1,row%+I%,data%?(E%+(I%*cols%)) � &DF
��
�found%(inc%)=�
��
�:
�� �dir8
�I%=0
��
�I%=I%+1
�C� �(data%?(E%-I%+(I%*cols%)))<>�word$(inc%),I%+1,1) � I%=len%-1
�� I%<>len%-1 �
�9� �(data%?(E%-I%+(I%*cols%)))<>�word$(inc%),I%+1,1) �
�� I%=0 � len%-1
�9� 31,col%-I%+1,row%+I%,data%?(E%-I%+(I%*cols%)) � &DF
�
found%(inc%)=�
�
�

00000000  0d 00 0a 17 f4 20 57 6f  72 64 73 71 75 61 72 65  |..... Wordsquare|
00000010  20 73 6f 6c 76 65 72 0d  00 14 13 f4 20 62 79 20  | solver..... by |
00000020  50 65 74 65 20 44 61 77  65 73 0d 00 1e 19 f4 20  |Pete Dawes..... |
00000030  28 63 29 20 41 63 6f 72  6e 20 43 6f 6d 70 75 74  |(c) Acorn Comput|
00000040  69 6e 67 0d 00 28 07 eb  20 37 0d 00 32 05 d8 0d  |ing..(.. 7..2...|
00000050  00 3c 13 ef 20 32 33 2c  31 2c 30 3b 30 3b 30 3b  |.<.. 23,1,0;0;0;|
00000060  30 3b 0d 00 46 0e ee 20  85 20 f2 65 72 72 6f 72  |0;..F.. . .error|
00000070  0d 00 50 0b f2 73 63 72  65 65 6e 0d 00 5a 0d f2  |..P..screen..Z..|
00000080  72 65 61 64 64 61 74 61  0d 00 64 0c f2 73 63 72  |readdata..d..scr|
00000090  65 65 6e 32 0d 00 6e 0a  f2 73 70 61 63 65 0d 00  |een2..n..space..|
000000a0  78 10 f2 64 69 73 70 6c  61 79 67 72 69 64 0d 00  |x..displaygrid..|
000000b0  82 0a f2 73 70 61 63 65  0d 00 8c 0c f2 73 63 72  |...space.....scr|
000000c0  65 65 6e 33 0d 00 96 0b  74 69 6d 65 25 3d 91 0d  |een3....time%=..|
000000d0  00 a0 0b f2 73 65 61 72  63 68 0d 00 aa 12 74 61  |....search....ta|
000000e0  6b 65 6e 25 3d 91 2d 74  69 6d 65 25 0d 00 b4 0a  |ken%=.-time%....|
000000f0  f2 73 70 61 63 65 0d 00  be 11 f2 64 69 73 70 6c  |.space.....displ|
00000100  61 79 77 6f 72 64 73 0d  00 c8 0a f2 73 70 61 63  |aywords.....spac|
00000110  65 0d 00 d2 05 db 0d 00  dc 13 ef 20 32 33 2c 31  |e.......... 23,1|
00000120  2c 31 3b 30 3b 30 3b 30  3b 0d 00 e6 2f f1 20 22  |,1;0;0;0;.../. "|
00000130  53 65 61 72 63 68 20 74  69 6d 65 20 77 61 73 20  |Search time was |
00000140  22 3b 74 61 6b 65 6e 25  2f 31 30 30 3b 22 20 73  |";taken%/100;" s|
00000150  65 63 6f 6e 64 73 2e 22  0d 00 f0 0c f1 20 22 42  |econds."..... "B|
00000160  79 65 21 22 0d 00 fa 05  e0 0d 01 04 05 3a 0d 01  |ye!".........:..|
00000170  0e 0d dd 20 f2 73 63 72  65 65 6e 0d 01 18 26 f1  |... .screen...&.|
00000180  20 8a 31 30 2c 30 29 bd  28 31 34 31 29 3b 22 57  | .10,0).(141);"W|
00000190  6f 72 64 73 71 75 61 72  65 20 73 6f 6c 76 65 72  |ordsquare solver|
000001a0  22 0d 01 22 26 f1 20 8a  31 30 2c 31 29 bd 28 31  |".."&. .10,1).(1|
000001b0  34 31 29 3b 22 57 6f 72  64 73 71 75 61 72 65 20  |41);"Wordsquare |
000001c0  73 6f 6c 76 65 72 22 0d  01 2c 1d f1 20 8a 39 2c  |solver"..,.. .9,|
000001d0  32 29 bd 28 31 34 38 29  3b c4 31 39 2c bd 28 32  |2).(148);.19,.(2|
000001e0  34 33 29 29 0d 01 36 26  f1 20 8a 31 30 2c 34 29  |43))..6&. .10,4)|
000001f0  bd 28 31 33 30 29 3b 22  62 79 20 50 65 74 65 20  |.(130);"by Pete |
00000200  48 20 4e 20 44 61 77 65  73 22 0d 01 40 27 f1 20  |H N Dawes"..@'. |
00000210  8a 39 2c 35 29 bd 28 31  33 30 29 3b 22 28 63 29  |.9,5).(130);"(c)|
00000220  20 41 63 6f 72 6e 20 43  6f 6d 70 75 74 69 6e 67  | Acorn Computing|
00000230  22 0d 01 4a 05 e1 0d 01  54 05 3a 0d 01 5e 0e dd  |"..J....T.:..^..|
00000240  20 f2 73 63 72 65 65 6e  32 0d 01 68 23 f1 20 8a  | .screen2..h#. .|
00000250  31 30 2c 31 34 29 22 52  6f 77 73 3a 20 20 20 20  |10,14)"Rows:    |
00000260  20 20 20 20 20 22 3b 72  6f 77 73 25 0d 01 72 23  |     ";rows%..r#|
00000270  f1 20 8a 31 30 2c 31 35  29 22 43 6f 6c 75 6d 6e  |. .10,15)"Column|
00000280  73 3a 20 20 20 20 20 20  22 3b 63 6f 6c 73 25 0d  |s:      ";cols%.|
00000290  01 7c 24 f1 20 8a 31 30  2c 31 36 29 22 54 61 72  |.|$. .10,16)"Tar|
000002a0  67 65 74 20 77 6f 72 64  73 3a 20 22 3b 77 6f 72  |get words: ";wor|
000002b0  64 73 25 0d 01 86 05 e1  0d 01 90 05 3a 0d 01 9a  |ds%.........:...|
000002c0  0c dd 20 f2 65 72 72 6f  72 0d 01 a4 05 db 0d 01  |.. .error.......|
000002d0  ae 08 d9 20 23 30 0d 01  b8 05 f6 0d 01 c2 13 f1  |... #0..........|
000002e0  20 22 20 61 74 20 6c 69  6e 65 20 22 3b 9e 0d 01  | " at line ";...|
000002f0  cc 13 ef 20 32 33 2c 31  2c 31 3b 30 3b 30 3b 30  |... 23,1,1;0;0;0|
00000300  3b 0d 01 d6 05 e0 0d 01  e0 05 3a 0d 01 ea 0f dd  |;.........:.....|
00000310  20 f2 72 65 61 64 64 61  74 61 0d 01 f4 14 66 69  | .readdata....fi|
00000320  6c 65 24 3d c4 34 30 2c  bd 28 33 32 29 29 0d 01  |le$=.40,.(32))..|
00000330  fe 13 ef 20 32 33 2c 31  2c 31 3b 30 3b 30 3b 30  |... 23,1,1;0;0;0|
00000340  3b 0d 02 08 05 f5 0d 02  12 17 f1 20 8a 31 30 2c  |;.......... .10,|
00000350  31 30 29 c4 34 30 2c bd  28 33 32 29 29 0d 02 1c  |10).40,.(32))...|
00000360  1e e8 20 8a 31 30 2c 31  30 29 22 46 69 6c 65 6e  |.. .10,10)"Filen|
00000370  61 6d 65 3a 20 22 66 69  6c 65 24 0d 02 26 0f fd  |ame: "file$..&..|
00000380  20 66 69 6c 65 24 3c 3e  22 22 0d 02 30 13 ef 20  | file$<>""..0.. |
00000390  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 0d 02 3a  |23,1,0;0;0;0;..:|
000003a0  11 66 69 6c 65 25 3d 8e  20 66 69 6c 65 24 0d 02  |.file%=. file$..|
000003b0  44 14 72 6f 77 73 25 3d  a4 67 65 74 6e 75 6d 62  |D.rows%=.getnumb|
000003c0  65 72 0d 02 4e 19 e7 20  72 6f 77 73 25 3e 32 34  |er..N.. rows%>24|
000003d0  20 f2 72 65 70 6f 72 74  28 31 29 0d 02 58 14 63  | .report(1)..X.c|
000003e0  6f 6c 73 25 3d a4 67 65  74 6e 75 6d 62 65 72 0d  |ols%=.getnumber.|
000003f0  02 62 19 e7 20 63 6f 6c  73 25 3e 33 38 20 f2 72  |.b.. cols%>38 .r|
00000400  65 70 6f 72 74 28 32 29  0d 02 6c 0c f2 67 65 74  |eport(2)..l..get|
00000410  67 72 69 64 0d 02 76 15  77 6f 72 64 73 25 3d a4  |grid..v.words%=.|
00000420  67 65 74 6e 75 6d 62 65  72 0d 02 80 1a e7 20 77  |getnumber..... w|
00000430  6f 72 64 73 25 3e 32 30  20 f2 72 65 70 6f 72 74  |ords%>20 .report|
00000440  28 33 29 0d 02 8a 0d f2  67 65 74 77 6f 72 64 73  |(3).....getwords|
00000450  0d 02 94 0c d9 20 23 66  69 6c 65 25 0d 02 9e 05  |..... #file%....|
00000460  e1 0d 02 a8 05 3a 0d 02  b2 10 dd 20 a4 67 65 74  |.....:..... .get|
00000470  6e 75 6d 62 65 72 0d 02  bc 0f ea 20 76 61 6c 25  |number..... val%|
00000480  2c 67 65 74 25 0d 02 c6  0a 67 65 74 25 3d 30 0d  |,get%....get%=0.|
00000490  02 d0 05 f5 0d 02 da 11  76 61 6c 25 3d 9a 20 23  |........val%=. #|
000004a0  66 69 6c 65 25 0d 02 e4  23 e7 20 76 61 6c 25 3c  |file%...#. val%<|
000004b0  3e 31 33 20 67 65 74 25  3d 67 65 74 25 2a 31 30  |>13 get%=get%*10|
000004c0  2b 76 61 6c 25 2d 34 38  0d 02 ee 0d fd 20 76 61  |+val%-48..... va|
000004d0  6c 25 3d 31 33 0d 02 f8  09 3d 67 65 74 25 0d 03  |l%=13....=get%..|
000004e0  02 05 3a 0d 03 0c 0e dd  20 f2 67 65 74 67 72 69  |..:..... .getgri|
000004f0  64 0d 03 16 0a ea 20 69  6e 63 25 0d 03 20 17 de  |d..... inc%.. ..|
00000500  20 64 61 74 61 25 20 72  6f 77 73 25 2a 63 6f 6c  | data% rows%*col|
00000510  73 25 0d 03 2a 0a 69 6e  63 25 3d 30 0d 03 34 05  |s%..*.inc%=0..4.|
00000520  f5 0d 03 3e 1d 64 61 74  61 25 3f 69 6e 63 25 3d  |...>.data%?inc%=|
00000530  9a 20 23 66 69 6c 65 25  20 84 20 26 32 30 0d 03  |. #file% . &20..|
00000540  48 20 e7 20 64 61 74 61  25 3f 69 6e 63 25 3c 3e  |H . data%?inc%<>|
00000550  34 35 20 69 6e 63 25 3d  69 6e 63 25 2b 31 0d 03  |45 inc%=inc%+1..|
00000560  52 16 fd 20 69 6e 63 25  3d 72 6f 77 73 25 2a 63  |R.. inc%=rows%*c|
00000570  6f 6c 73 25 0d 03 5c 11  69 6e 63 25 3d 9a 20 23  |ols%..\.inc%=. #|
00000580  66 69 6c 65 25 0d 03 66  05 e1 0d 03 70 05 3a 0d  |file%..f....p.:.|
00000590  03 7a 0f dd 20 f2 67 65  74 77 6f 72 64 73 0d 03  |.z.. .getwords..|
000005a0  84 1a ea 20 6d 61 78 6c  65 6e 25 2c 69 6e 63 25  |... maxlen%,inc%|
000005b0  2c 6c 61 74 65 73 74 25  0d 03 8e 23 de 20 77 6f  |,latest%...#. wo|
000005c0  72 64 24 28 77 6f 72 64  73 25 29 2c 20 66 6f 75  |rd$(words%), fou|
000005d0  6e 64 25 28 77 6f 72 64  73 25 29 0d 03 98 33 e7  |nd%(words%)...3.|
000005e0  20 72 6f 77 73 25 3e 63  6f 6c 73 25 20 6d 61 78  | rows%>cols% max|
000005f0  6c 65 6e 25 3d 72 6f 77  73 25 2b 31 20 8b 20 6d  |len%=rows%+1 . m|
00000600  61 78 6c 65 6e 25 3d 63  6f 6c 73 25 2b 31 0d 03  |axlen%=cols%+1..|
00000610  a2 15 e3 20 69 6e 63 25  3d 31 20 b8 20 77 6f 72  |... inc%=1 . wor|
00000620  64 73 25 0d 03 ac 1f 77  6f 72 64 24 28 69 6e 63  |ds%....word$(inc|
00000630  25 29 3d c4 6d 61 78 6c  65 6e 25 2c bd 28 33 32  |%)=.maxlen%,.(32|
00000640  29 29 0d 03 b6 12 66 6f  75 6e 64 25 28 69 6e 63  |))....found%(inc|
00000650  25 29 3d a3 0d 03 c0 05  ed 0d 03 ca 15 e3 20 69  |%)=........... i|
00000660  6e 63 25 3d 31 20 b8 20  77 6f 72 64 73 25 0d 03  |nc%=1 . words%..|
00000670  d4 12 77 6f 72 64 24 28  69 6e 63 25 29 3d 22 22  |..word$(inc%)=""|
00000680  0d 03 de 05 f5 0d 03 e8  14 6c 61 74 65 73 74 25  |.........latest%|
00000690  3d 9a 20 23 66 69 6c 65  25 0d 03 f2 5b e7 20 6c  |=. #file%...[. l|
000006a0  61 74 65 73 74 25 3c 3e  20 31 33 20 77 6f 72 64  |atest%<> 13 word|
000006b0  24 28 69 6e 63 25 29 3d  77 6f 72 64 24 28 69 6e  |$(inc%)=word$(in|
000006c0  63 25 29 2b bd 28 6c 61  74 65 73 74 25 20 84 20  |c%)+.(latest% . |
000006d0  26 32 30 29 20 8b 20 77  6f 72 64 24 28 69 6e 63  |&20) . word$(inc|
000006e0  25 29 3d 77 6f 72 64 24  28 69 6e 63 25 29 2b bd  |%)=word$(inc%)+.|
000006f0  28 31 33 29 0d 03 fc 10  fd 20 6c 61 74 65 73 74  |(13)..... latest|
00000700  25 3d 31 33 0d 04 06 05  ed 0d 04 10 05 e1 0d 04  |%=13............|
00000710  1a 05 3a 0d 04 24 15 dd  20 f2 72 65 70 6f 72 74  |..:..$.. .report|
00000720  28 65 72 72 6f 72 25 29  0d 04 2e 19 f1 20 8a 31  |(error%)..... .1|
00000730  30 2c 31 36 29 22 54 4f  4f 20 4d 41 4e 59 20 22  |0,16)"TOO MANY "|
00000740  3b 0d 04 38 18 e7 20 65  72 72 6f 72 25 3d 31 20  |;..8.. error%=1 |
00000750  f1 20 22 52 4f 57 53 22  3b 0d 04 42 1b e7 20 65  |. "ROWS";..B.. e|
00000760  72 72 6f 72 25 3d 32 20  f1 20 22 43 4f 4c 55 4d  |rror%=2 . "COLUM|
00000770  4e 53 22 3b 0d 04 4c 19  e7 20 65 72 72 6f 72 25  |NS";..L.. error%|
00000780  3d 33 20 f1 20 22 57 4f  52 44 53 22 3b 0d 04 56  |=3 . "WORDS";..V|
00000790  0b f1 20 22 21 21 21 22  0d 04 60 13 ef 20 32 33  |.. "!!!"..`.. 23|
000007a0  2c 31 2c 31 3b 30 3b 30  3b 30 3b 0d 04 6a 05 e0  |,1,1;0;0;0;..j..|
000007b0  0d 04 74 05 3a 0d 04 7e  0c dd 20 f2 73 70 61 63  |..t.:..~.. .spac|
000007c0  65 0d 04 88 32 f1 20 8a  36 2c 32 34 29 bd 28 31  |e...2. .6,24).(1|
000007d0  33 36 29 bd 28 31 33 30  29 22 50 72 65 73 73 20  |36).(130)"Press |
000007e0  53 50 41 43 45 20 74 6f  20 63 6f 6e 74 69 6e 75  |SPACE to continu|
000007f0  65 22 3b 0d 04 92 0c 2a  46 58 20 31 35 2c 31 0d  |e";....*FX 15,1.|
00000800  04 9c 0c f5 20 fd 20 a5  3d 33 32 0d 04 a6 05 e1  |.... . .=32.....|
00000810  0d 04 b0 05 3a 0d 04 ba  12 dd 20 f2 64 69 73 70  |....:..... .disp|
00000820  6c 61 79 67 72 69 64 0d  04 c4 0f ea 20 72 6f 77  |laygrid..... row|
00000830  25 2c 63 6f 6c 25 0d 04  ce 05 db 0d 04 d8 14 e3  |%,col%..........|
00000840  20 72 6f 77 25 3d 31 20  b8 20 72 6f 77 73 25 0d  | row%=1 . rows%.|
00000850  04 e2 14 e3 20 63 6f 6c  25 3d 31 20 b8 20 63 6f  |.... col%=1 . co|
00000860  6c 73 25 0d 04 ec 32 ef  20 33 31 2c 63 6f 6c 25  |ls%...2. 31,col%|
00000870  2c 72 6f 77 25 2d 31 2c  64 61 74 61 25 3f 28 28  |,row%-1,data%?((|
00000880  72 6f 77 25 2d 31 29 2a  63 6f 6c 73 25 2b 63 6f  |row%-1)*cols%+co|
00000890  6c 25 2d 31 29 0d 04 f6  05 ed 0d 05 00 05 ed 0d  |l%-1)...........|
000008a0  05 0a 05 e1 0d 05 14 05  3a 0d 05 1e 0e dd 20 f2  |........:..... .|
000008b0  73 63 72 65 65 6e 33 0d  05 28 05 db 0d 05 32 14  |screen3..(....2.|
000008c0  e3 20 72 6f 77 25 3d 31  20 b8 20 72 6f 77 73 25  |. row%=1 . rows%|
000008d0  0d 05 3c 14 e3 20 63 6f  6c 25 3d 31 20 b8 20 63  |..<.. col%=1 . c|
000008e0  6f 6c 73 25 0d 05 46 17  ef 20 33 31 2c 63 6f 6c  |ols%..F.. 31,col|
000008f0  25 2c 72 6f 77 25 2d 31  2c 34 35 0d 05 50 05 ed  |%,row%-1,45..P..|
00000900  0d 05 5a 05 ed 0d 05 64  26 f1 20 8a 31 33 2c 32  |..Z....d&. .13,2|
00000910  34 29 bd 28 31 33 30 29  bd 28 31 33 36 29 22 57  |4).(130).(136)"W|
00000920  6f 72 6b 69 6e 67 2e 2e  2e 22 3b 0d 05 6e 05 e1  |orking...";..n..|
00000930  0d 05 78 05 3a 0d 05 82  13 dd 20 f2 64 69 73 70  |..x.:..... .disp|
00000940  6c 61 79 77 6f 72 64 73  0d 05 8c 0a ea 20 69 6e  |laywords..... in|
00000950  63 25 0d 05 96 05 db 0d  05 a0 2a f1 20 8a 37 2c  |c%........*. .7,|
00000960  30 29 bd 28 31 33 31 29  22 54 68 69 73 20 63 6f  |0).(131)"This co|
00000970  6c 6f 75 72 20 6d 65 61  6e 73 20 66 6f 75 6e 64  |lour means found|
00000980  22 0d 05 aa 2e f1 20 8a  35 2c 31 29 bd 28 31 33  |"..... .5,1).(13|
00000990  34 29 22 54 68 69 73 20  63 6f 6c 6f 75 72 20 6d  |4)"This colour m|
000009a0  65 61 6e 73 20 6e 6f 74  20 66 6f 75 6e 64 22 0d  |eans not found".|
000009b0  05 b4 15 e3 20 69 6e 63  25 3d 31 20 b8 20 77 6f  |.... inc%=1 . wo|
000009c0  72 64 73 25 0d 05 be 11  ef 20 33 31 2c 30 2c 69  |rds%..... 31,0,i|
000009d0  6e 63 25 2b 32 0d 05 c8  20 e7 20 66 6f 75 6e 64  |nc%+2... . found|
000009e0  25 28 69 6e 63 25 29 20  ef 20 31 33 31 20 8b 20  |%(inc%) . 131 . |
000009f0  ef 20 31 33 34 0d 05 d2  33 f1 20 8a 32 30 2d 28  |. 134...3. .20-(|
00000a00  28 a9 28 77 6f 72 64 24  28 69 6e 63 25 29 29 2d  |(.(word$(inc%))-|
00000a10  31 29 2f 32 29 2c 69 6e  63 25 2b 32 29 77 6f 72  |1)/2),inc%+2)wor|
00000a20  64 24 28 69 6e 63 25 29  0d 05 dc 05 ed 0d 05 e6  |d$(inc%)........|
00000a30  05 e1 0d 05 f0 05 3a 0d  05 fa 0d dd 20 f2 73 65  |......:..... .se|
00000a40  61 72 63 68 0d 06 04 0a  ea 20 69 6e 63 25 0d 06  |arch..... inc%..|
00000a50  0e 15 e3 20 69 6e 63 25  3d 31 20 b8 20 77 6f 72  |... inc%=1 . wor|
00000a60  64 73 25 0d 06 18 19 6c  65 6e 25 3d a9 28 77 6f  |ds%....len%=.(wo|
00000a70  72 64 24 28 69 6e 63 25  29 29 2d 31 0d 06 22 16  |rd$(inc%))-1..".|
00000a80  e3 20 72 6f 77 25 3d 30  20 b8 20 72 6f 77 73 25  |. row%=0 . rows%|
00000a90  2d 31 0d 06 2c 16 e3 20  63 6f 6c 25 3d 30 20 b8  |-1..,.. col%=0 .|
00000aa0  20 63 6f 6c 73 25 2d 31  0d 06 36 16 45 25 3d 72  | cols%-1..6.E%=r|
00000ab0  6f 77 25 2a 63 6f 6c 73  25 2b 63 6f 6c 25 0d 06  |ow%*cols%+col%..|
00000ac0  40 2a e7 20 bd 28 64 61  74 61 25 3f 45 25 29 3d  |@*. .(data%?E%)=|
00000ad0  c0 77 6f 72 64 24 28 69  6e 63 25 29 2c 31 29 20  |.word$(inc%),1) |
00000ae0  f2 73 65 61 72 63 68 32  0d 06 4a 05 ed 0d 06 54  |.search2..J....T|
00000af0  05 ed 0d 06 5e 05 ed 0d  06 68 05 e1 0d 06 72 05  |....^....h....r.|
00000b00  3a 0d 06 7c 0e dd 20 f2  73 65 61 72 63 68 32 0d  |:..|.. .search2.|
00000b10  06 86 3d e7 20 6c 65 6e  25 3d 31 20 ef 20 33 31  |..=. len%=1 . 31|
00000b20  2c 63 6f 6c 25 2b 31 2c  72 6f 77 25 2c 64 61 74  |,col%+1,row%,dat|
00000b30  61 25 3f 45 25 20 80 20  26 44 46 3a 66 6f 75 6e  |a%?E% . &DF:foun|
00000b40  64 25 28 69 6e 63 25 29  3d b9 3a e1 0d 06 90 17  |d%(inc%)=.:.....|
00000b50  41 25 3d 28 31 2b 63 6f  6c 25 2d 6c 65 6e 25 3e  |A%=(1+col%-len%>|
00000b60  3d 30 29 0d 06 9a 19 42  25 3d 28 63 6f 6c 25 2b  |=0)....B%=(col%+|
00000b70  6c 65 6e 25 3c 3d 63 6f  6c 73 25 29 0d 06 a4 17  |len%<=cols%)....|
00000b80  43 25 3d 28 31 2b 72 6f  77 25 2d 6c 65 6e 25 3e  |C%=(1+row%-len%>|
00000b90  3d 30 29 0d 06 ae 19 44  25 3d 28 72 6f 77 25 2b  |=0)....D%=(row%+|
00000ba0  6c 65 6e 25 3c 3d 72 6f  77 73 25 29 0d 06 b8 0e  |len%<=rows%)....|
00000bb0  e7 20 41 25 20 f2 64 69  72 31 0d 06 c2 13 e7 20  |. A% .dir1..... |
00000bc0  41 25 20 80 20 43 25 20  f2 64 69 72 32 0d 06 cc  |A% . C% .dir2...|
00000bd0  0e e7 20 43 25 20 f2 64  69 72 33 0d 06 d6 13 e7  |.. C% .dir3.....|
00000be0  20 42 25 20 80 20 43 25  20 f2 64 69 72 34 0d 06  | B% . C% .dir4..|
00000bf0  e0 0e e7 20 42 25 20 f2  64 69 72 35 0d 06 ea 13  |... B% .dir5....|
00000c00  e7 20 42 25 20 80 20 44  25 20 f2 64 69 72 36 0d  |. B% . D% .dir6.|
00000c10  06 f4 0e e7 20 44 25 20  f2 64 69 72 37 0d 06 fe  |.... D% .dir7...|
00000c20  13 e7 20 41 25 20 80 20  44 25 20 f2 64 69 72 38  |.. A% . D% .dir8|
00000c30  0d 07 08 05 e1 0d 07 12  05 3a 0d 07 1c 0b dd 20  |.........:..... |
00000c40  f2 64 69 72 31 0d 07 26  08 49 25 3d 30 0d 07 30  |.dir1..&.I%=0..0|
00000c50  05 f5 0d 07 3a 0b 49 25  3d 49 25 2b 31 0d 07 44  |....:.I%=I%+1..D|
00000c60  38 fd 20 bd 28 64 61 74  61 25 3f 28 45 25 2d 49  |8. .(data%?(E%-I|
00000c70  25 29 29 3c 3e c1 77 6f  72 64 24 28 69 6e 63 25  |%))<>.word$(inc%|
00000c80  29 2c 49 25 2b 31 2c 31  29 20 84 20 49 25 3d 6c  |),I%+1,1) . I%=l|
00000c90  65 6e 25 2d 31 0d 07 4e  12 e7 20 49 25 3c 3e 6c  |en%-1..N.. I%<>l|
00000ca0  65 6e 25 2d 31 20 e1 0d  07 58 2e e7 20 bd 28 64  |en%-1 ...X.. .(d|
00000cb0  61 74 61 25 3f 28 45 25  2d 49 25 29 29 3c 3e c1  |ata%?(E%-I%))<>.|
00000cc0  77 6f 72 64 24 28 69 6e  63 25 29 2c 49 25 2b 31  |word$(inc%),I%+1|
00000cd0  2c 31 29 20 e1 0d 07 62  13 e3 20 49 25 3d 30 20  |,1) ...b.. I%=0 |
00000ce0  b8 20 6c 65 6e 25 2d 31  0d 07 6c 2b ef 20 33 31  |. len%-1..l+. 31|
00000cf0  2c 63 6f 6c 25 2d 49 25  2b 31 2c 72 6f 77 25 2c  |,col%-I%+1,row%,|
00000d00  64 61 74 61 25 3f 28 45  25 2d 49 25 29 20 80 20  |data%?(E%-I%) . |
00000d10  26 44 46 0d 07 76 05 ed  0d 07 80 12 66 6f 75 6e  |&DF..v......foun|
00000d20  64 25 28 69 6e 63 25 29  3d b9 0d 07 8a 05 e1 0d  |d%(inc%)=.......|
00000d30  07 94 05 3a 0d 07 9e 0b  dd 20 f2 64 69 72 32 0d  |...:..... .dir2.|
00000d40  07 a8 08 49 25 3d 30 0d  07 b2 05 f5 0d 07 bc 0b  |...I%=0.........|
00000d50  49 25 3d 49 25 2b 31 0d  07 c6 43 fd 20 bd 28 64  |I%=I%+1...C. .(d|
00000d60  61 74 61 25 3f 28 45 25  2d 49 25 2d 28 49 25 2a  |ata%?(E%-I%-(I%*|
00000d70  63 6f 6c 73 25 29 29 29  3c 3e c1 77 6f 72 64 24  |cols%)))<>.word$|
00000d80  28 69 6e 63 25 29 2c 49  25 2b 31 2c 31 29 20 84  |(inc%),I%+1,1) .|
00000d90  20 49 25 3d 6c 65 6e 25  2d 31 0d 07 d0 12 e7 20  | I%=len%-1..... |
00000da0  49 25 3c 3e 6c 65 6e 25  2d 31 20 e1 0d 07 da 39  |I%<>len%-1 ....9|
00000db0  e7 20 bd 28 64 61 74 61  25 3f 28 45 25 2d 49 25  |. .(data%?(E%-I%|
00000dc0  2d 28 49 25 2a 63 6f 6c  73 25 29 29 29 3c 3e c1  |-(I%*cols%)))<>.|
00000dd0  77 6f 72 64 24 28 69 6e  63 25 29 2c 49 25 2b 31  |word$(inc%),I%+1|
00000de0  2c 31 29 20 e1 0d 07 e4  13 e3 20 49 25 3d 30 20  |,1) ...... I%=0 |
00000df0  b8 20 6c 65 6e 25 2d 31  0d 07 ee 39 ef 20 33 31  |. len%-1...9. 31|
00000e00  2c 63 6f 6c 25 2d 49 25  2b 31 2c 72 6f 77 25 2d  |,col%-I%+1,row%-|
00000e10  49 25 2c 64 61 74 61 25  3f 28 45 25 2d 49 25 2d  |I%,data%?(E%-I%-|
00000e20  28 49 25 2a 63 6f 6c 73  25 29 29 20 80 20 26 44  |(I%*cols%)) . &D|
00000e30  46 0d 07 f8 05 ed 0d 08  02 12 66 6f 75 6e 64 25  |F.........found%|
00000e40  28 69 6e 63 25 29 3d b9  0d 08 0c 05 e1 0d 08 16  |(inc%)=.........|
00000e50  05 3a 0d 08 20 0b dd 20  f2 64 69 72 33 0d 08 2a  |.:.. .. .dir3..*|
00000e60  08 49 25 3d 30 0d 08 34  05 f5 0d 08 3e 0b 49 25  |.I%=0..4....>.I%|
00000e70  3d 49 25 2b 31 0d 08 48  40 fd 20 bd 28 64 61 74  |=I%+1..H@. .(dat|
00000e80  61 25 3f 28 45 25 2d 28  49 25 2a 63 6f 6c 73 25  |a%?(E%-(I%*cols%|
00000e90  29 29 29 3c 3e c1 77 6f  72 64 24 28 69 6e 63 25  |)))<>.word$(inc%|
00000ea0  29 2c 49 25 2b 31 2c 31  29 20 84 20 49 25 3d 6c  |),I%+1,1) . I%=l|
00000eb0  65 6e 25 2d 31 0d 08 52  12 e7 20 49 25 3c 3e 6c  |en%-1..R.. I%<>l|
00000ec0  65 6e 25 2d 31 20 e1 0d  08 5c 36 e7 20 bd 28 64  |en%-1 ...\6. .(d|
00000ed0  61 74 61 25 3f 28 45 25  2d 28 49 25 2a 63 6f 6c  |ata%?(E%-(I%*col|
00000ee0  73 25 29 29 29 3c 3e c1  77 6f 72 64 24 28 69 6e  |s%)))<>.word$(in|
00000ef0  63 25 29 2c 49 25 2b 31  2c 31 29 20 e1 0d 08 66  |c%),I%+1,1) ...f|
00000f00  13 e3 20 49 25 3d 30 20  b8 20 6c 65 6e 25 2d 31  |.. I%=0 . len%-1|
00000f10  0d 08 70 33 ef 20 33 31  2c 63 6f 6c 25 2b 31 2c  |..p3. 31,col%+1,|
00000f20  72 6f 77 25 2d 49 25 2c  64 61 74 61 25 3f 28 45  |row%-I%,data%?(E|
00000f30  25 2d 28 49 25 2a 63 6f  6c 73 25 29 29 20 80 20  |%-(I%*cols%)) . |
00000f40  26 44 46 0d 08 7a 05 ed  0d 08 84 12 66 6f 75 6e  |&DF..z......foun|
00000f50  64 25 28 69 6e 63 25 29  3d b9 0d 08 8e 05 e1 0d  |d%(inc%)=.......|
00000f60  08 98 05 3a 0d 08 a2 0b  dd 20 f2 64 69 72 34 0d  |...:..... .dir4.|
00000f70  08 ac 08 49 25 3d 30 0d  08 b6 05 f5 0d 08 c0 0b  |...I%=0.........|
00000f80  49 25 3d 49 25 2b 31 0d  08 ca 43 fd 20 bd 28 64  |I%=I%+1...C. .(d|
00000f90  61 74 61 25 3f 28 45 25  2b 49 25 2d 28 49 25 2a  |ata%?(E%+I%-(I%*|
00000fa0  63 6f 6c 73 25 29 29 29  3c 3e c1 77 6f 72 64 24  |cols%)))<>.word$|
00000fb0  28 69 6e 63 25 29 2c 49  25 2b 31 2c 31 29 20 84  |(inc%),I%+1,1) .|
00000fc0  20 49 25 3d 6c 65 6e 25  2d 31 0d 08 d4 12 e7 20  | I%=len%-1..... |
00000fd0  49 25 3c 3e 6c 65 6e 25  2d 31 20 e1 0d 08 de 39  |I%<>len%-1 ....9|
00000fe0  e7 20 bd 28 64 61 74 61  25 3f 28 45 25 2b 49 25  |. .(data%?(E%+I%|
00000ff0  2d 28 49 25 2a 63 6f 6c  73 25 29 29 29 3c 3e c1  |-(I%*cols%)))<>.|
00001000  77 6f 72 64 24 28 69 6e  63 25 29 2c 49 25 2b 31  |word$(inc%),I%+1|
00001010  2c 31 29 20 e1 0d 08 e8  13 e3 20 49 25 3d 30 20  |,1) ...... I%=0 |
00001020  b8 20 6c 65 6e 25 2d 31  0d 08 f2 39 ef 20 33 31  |. len%-1...9. 31|
00001030  2c 63 6f 6c 25 2b 49 25  2b 31 2c 72 6f 77 25 2d  |,col%+I%+1,row%-|
00001040  49 25 2c 64 61 74 61 25  3f 28 45 25 2b 49 25 2d  |I%,data%?(E%+I%-|
00001050  28 49 25 2a 63 6f 6c 73  25 29 29 20 80 20 26 44  |(I%*cols%)) . &D|
00001060  46 0d 08 fc 05 ed 0d 09  06 12 66 6f 75 6e 64 25  |F.........found%|
00001070  28 69 6e 63 25 29 3d b9  0d 09 10 05 e1 0d 09 1a  |(inc%)=.........|
00001080  05 3a 0d 09 24 0b dd 20  f2 64 69 72 35 0d 09 2e  |.:..$.. .dir5...|
00001090  08 49 25 3d 30 0d 09 38  05 f5 0d 09 42 0b 49 25  |.I%=0..8....B.I%|
000010a0  3d 49 25 2b 31 0d 09 4c  38 fd 20 bd 28 64 61 74  |=I%+1..L8. .(dat|
000010b0  61 25 3f 28 45 25 2b 49  25 29 29 3c 3e c1 77 6f  |a%?(E%+I%))<>.wo|
000010c0  72 64 24 28 69 6e 63 25  29 2c 49 25 2b 31 2c 31  |rd$(inc%),I%+1,1|
000010d0  29 20 84 20 49 25 3d 6c  65 6e 25 2d 31 0d 09 56  |) . I%=len%-1..V|
000010e0  12 e7 20 49 25 3c 3e 6c  65 6e 25 2d 31 20 e1 0d  |.. I%<>len%-1 ..|
000010f0  09 60 2e e7 20 bd 28 64  61 74 61 25 3f 28 45 25  |.`.. .(data%?(E%|
00001100  2b 49 25 29 29 3c 3e c1  77 6f 72 64 24 28 69 6e  |+I%))<>.word$(in|
00001110  63 25 29 2c 49 25 2b 31  2c 31 29 20 e1 0d 09 6a  |c%),I%+1,1) ...j|
00001120  13 e3 20 49 25 3d 30 20  b8 20 6c 65 6e 25 2d 31  |.. I%=0 . len%-1|
00001130  0d 09 74 2b ef 20 33 31  2c 63 6f 6c 25 2b 49 25  |..t+. 31,col%+I%|
00001140  2b 31 2c 72 6f 77 25 2c  64 61 74 61 25 3f 28 45  |+1,row%,data%?(E|
00001150  25 2b 49 25 29 20 80 20  26 44 46 0d 09 7e 05 ed  |%+I%) . &DF..~..|
00001160  0d 09 88 12 66 6f 75 6e  64 25 28 69 6e 63 25 29  |....found%(inc%)|
00001170  3d b9 0d 09 92 05 e1 0d  09 9c 05 3a 0d 09 a6 0b  |=..........:....|
00001180  dd 20 f2 64 69 72 36 0d  09 b0 08 49 25 3d 30 0d  |. .dir6....I%=0.|
00001190  09 ba 05 f5 0d 09 c4 0b  49 25 3d 49 25 2b 31 0d  |........I%=I%+1.|
000011a0  09 ce 43 fd 20 bd 28 64  61 74 61 25 3f 28 45 25  |..C. .(data%?(E%|
000011b0  2b 49 25 2b 28 49 25 2a  63 6f 6c 73 25 29 29 29  |+I%+(I%*cols%)))|
000011c0  3c 3e c1 77 6f 72 64 24  28 69 6e 63 25 29 2c 49  |<>.word$(inc%),I|
000011d0  25 2b 31 2c 31 29 20 84  20 49 25 3d 6c 65 6e 25  |%+1,1) . I%=len%|
000011e0  2d 31 0d 09 d8 12 e7 20  49 25 3c 3e 6c 65 6e 25  |-1..... I%<>len%|
000011f0  2d 31 20 e1 0d 09 e2 39  e7 20 bd 28 64 61 74 61  |-1 ....9. .(data|
00001200  25 3f 28 45 25 2b 49 25  2b 28 49 25 2a 63 6f 6c  |%?(E%+I%+(I%*col|
00001210  73 25 29 29 29 3c 3e c1  77 6f 72 64 24 28 69 6e  |s%)))<>.word$(in|
00001220  63 25 29 2c 49 25 2b 31  2c 31 29 20 e1 0d 09 ec  |c%),I%+1,1) ....|
00001230  13 e3 20 49 25 3d 30 20  b8 20 6c 65 6e 25 2d 31  |.. I%=0 . len%-1|
00001240  0d 09 f6 39 ef 20 33 31  2c 63 6f 6c 25 2b 49 25  |...9. 31,col%+I%|
00001250  2b 31 2c 72 6f 77 25 2b  49 25 2c 64 61 74 61 25  |+1,row%+I%,data%|
00001260  3f 28 45 25 2b 49 25 2b  28 49 25 2a 63 6f 6c 73  |?(E%+I%+(I%*cols|
00001270  25 29 29 20 80 20 26 44  46 0d 0a 00 05 ed 0d 0a  |%)) . &DF.......|
00001280  0a 12 66 6f 75 6e 64 25  28 69 6e 63 25 29 3d b9  |..found%(inc%)=.|
00001290  0d 0a 14 05 e1 0d 0a 1e  05 3a 0d 0a 28 0b dd 20  |.........:..(.. |
000012a0  f2 64 69 72 37 0d 0a 32  08 49 25 3d 30 0d 0a 3c  |.dir7..2.I%=0..<|
000012b0  05 f5 0d 0a 46 0b 49 25  3d 49 25 2b 31 0d 0a 50  |....F.I%=I%+1..P|
000012c0  40 fd 20 bd 28 64 61 74  61 25 3f 28 45 25 2b 28  |@. .(data%?(E%+(|
000012d0  49 25 2a 63 6f 6c 73 25  29 29 29 3c 3e c1 77 6f  |I%*cols%)))<>.wo|
000012e0  72 64 24 28 69 6e 63 25  29 2c 49 25 2b 31 2c 31  |rd$(inc%),I%+1,1|
000012f0  29 20 84 20 49 25 3d 6c  65 6e 25 2d 31 0d 0a 5a  |) . I%=len%-1..Z|
00001300  12 e7 20 49 25 3c 3e 6c  65 6e 25 2d 31 20 e1 0d  |.. I%<>len%-1 ..|
00001310  0a 64 36 e7 20 bd 28 64  61 74 61 25 3f 28 45 25  |.d6. .(data%?(E%|
00001320  2b 28 49 25 2a 63 6f 6c  73 25 29 29 29 3c 3e c1  |+(I%*cols%)))<>.|
00001330  77 6f 72 64 24 28 69 6e  63 25 29 2c 49 25 2b 31  |word$(inc%),I%+1|
00001340  2c 31 29 20 e1 0d 0a 6e  13 e3 20 49 25 3d 30 20  |,1) ...n.. I%=0 |
00001350  b8 20 6c 65 6e 25 2d 31  0d 0a 78 33 ef 20 33 31  |. len%-1..x3. 31|
00001360  2c 63 6f 6c 25 2b 31 2c  72 6f 77 25 2b 49 25 2c  |,col%+1,row%+I%,|
00001370  64 61 74 61 25 3f 28 45  25 2b 28 49 25 2a 63 6f  |data%?(E%+(I%*co|
00001380  6c 73 25 29 29 20 80 20  26 44 46 0d 0a 82 05 ed  |ls%)) . &DF.....|
00001390  0d 0a 8c 12 66 6f 75 6e  64 25 28 69 6e 63 25 29  |....found%(inc%)|
000013a0  3d b9 0d 0a 96 05 e1 0d  0a a0 05 3a 0d 0a aa 0b  |=..........:....|
000013b0  dd 20 f2 64 69 72 38 0d  0a b4 08 49 25 3d 30 0d  |. .dir8....I%=0.|
000013c0  0a be 05 f5 0d 0a c8 0b  49 25 3d 49 25 2b 31 0d  |........I%=I%+1.|
000013d0  0a d2 43 fd 20 bd 28 64  61 74 61 25 3f 28 45 25  |..C. .(data%?(E%|
000013e0  2d 49 25 2b 28 49 25 2a  63 6f 6c 73 25 29 29 29  |-I%+(I%*cols%)))|
000013f0  3c 3e c1 77 6f 72 64 24  28 69 6e 63 25 29 2c 49  |<>.word$(inc%),I|
00001400  25 2b 31 2c 31 29 20 84  20 49 25 3d 6c 65 6e 25  |%+1,1) . I%=len%|
00001410  2d 31 0d 0a dc 12 e7 20  49 25 3c 3e 6c 65 6e 25  |-1..... I%<>len%|
00001420  2d 31 20 e1 0d 0a e6 39  e7 20 bd 28 64 61 74 61  |-1 ....9. .(data|
00001430  25 3f 28 45 25 2d 49 25  2b 28 49 25 2a 63 6f 6c  |%?(E%-I%+(I%*col|
00001440  73 25 29 29 29 3c 3e c1  77 6f 72 64 24 28 69 6e  |s%)))<>.word$(in|
00001450  63 25 29 2c 49 25 2b 31  2c 31 29 20 e1 0d 0a f0  |c%),I%+1,1) ....|
00001460  13 e3 20 49 25 3d 30 20  b8 20 6c 65 6e 25 2d 31  |.. I%=0 . len%-1|
00001470  0d 0a fa 39 ef 20 33 31  2c 63 6f 6c 25 2d 49 25  |...9. 31,col%-I%|
00001480  2b 31 2c 72 6f 77 25 2b  49 25 2c 64 61 74 61 25  |+1,row%+I%,data%|
00001490  3f 28 45 25 2d 49 25 2b  28 49 25 2a 63 6f 6c 73  |?(E%-I%+(I%*cols|
000014a0  25 29 29 20 80 20 26 44  46 0d 0b 04 05 ed 0d 0b  |%)) . &DF.......|
000014b0  0e 12 66 6f 75 6e 64 25  28 69 6e 63 25 29 3d b9  |..found%(inc%)=.|
000014c0  0d 0b 18 05 e1 0d ff                              |.......|
000014c7