$�"�*****************************
$�"�*�C4/ITV ORACLE INDEX P'TER�*
$�"�*�Designed  for  use   with�*
($�"�*�EPSON  MX80  III  printer�*
2$�"�*�(c)J.J.Brayshaw�July 1987�*
<$�"�*****************************
F:
P�7
Z
*TELESOFT
d�23;8202;0;0;0;
n*ITV
x*HON
�*MAGAZINE1
���T~C
��=&5700
�
�title
�
�C% 14
�*loc%=&5800:store%=loc%:page_length%=24
��setpages(page_length%)
��N%=0�7:�choose_page
�.�setgrabber(N%,m%,p%,sp%,loc%+(N%*&400)):�
��wait_for_pages
�!�stop_updates:�reset_grabbers
�Q笤printer �report(�136+"Set printer & press SPACE"):���=32:�report(""):�dp@
��

!�"�No. of lines not required:

btm=1:top=3

�15

"
� C 25

,�2

6"�"�Set double width title, and

@�"�perforation skip-over:

J�1,14,1,27,1,78,1,3

T�"   ORACLE INDEX"'

^u�convert_line(&5800):�3+$&5708''" Subject                   CH4    ITV"'" ====================================="

h�pp%=0�7

r'�line=(40*top) �(&400-(40*btm)) �40

|(�convert_line(&5800+(pp%*&400)+line)

��ok%=� �tdA

�7�$&5700=�41," ") ��$&5700,"SUBJECT INDEX")<>0 �tdA

��$&5700

��

��

�$�"�Form-feed, cancel perf. skip,

��"�& dis-able printer:

��1,27,1,79,1,12,3

�	*HOFF

� �:�report("Index complete.")

�	�3,26

��

���os(C$)
	$C=C$
X%=C �256:Y%=C �256:�&FFF7
�
&��convert_line(start%)
0	ok%=�
:�chr%=0�40
D1�?(start%+chr%)>144 �?(start%+chr%)<151 ok%=�
N�?(start%+chr%)=157 ok%=�
X�?(start%+chr%)=136 ok%=�
b.�?(start%+chr%)<160 ?(&5700+chr%)=32:�t@B
l/�?(start%+chr%)=255 ?(start%+chr%)=32:�t@B
v&?(&5700+chr%)=(?(start%+chr%))�&7F
��
�
?&5729=&D
��
���report(A$)
�
L%=�:D%=�
��3
��26:�5,24)�33," ");
��5,24)A$;
��28,0,23,39,5
�
�L%,D%);
��2
��
�
ݤprinter
*FX21,3
�2,1,0,1,0,1,0,3
�Q=1�100:�
 �(-4)<>63 =� �=�
*�"�Page & sub-page nos:
4E� 1990001,1990002,1990003,1990004,1990005,1990006,1990007,1990008
>�"�ERROR TRAP
H�1,27,1,79,3
R	*HOFF
\3�report(�136+"Sorry, Error "+�(�)+" detected.")
f�3
p�
z�26
��
�:
���setpages(no%)
�C%?0=7:C%?1=no%
�%A%=&7A:X%=C%�256:Y%=C%�256:�&FFF1
��
�:
���choose_page
��p$
�m%=�("&"+�p$,1))
�p%=�("&"+�p$,2,2))
�*�(p$)>3 sp%=�("&"+�p$,4)) � sp%=&3F7F
��
:
,��setgrabber(no%,mag%,page%,sub%,store%)
%A%=&7A:C%?0=5:X%=C%�256:Y%=C%�256
$]C%?1=no%:C%?2=mag%:C%?3=page%:C%?4=sub%�256:C%?5=sub%�256:C%?6=store%�256:C%?7=store%�256
.
�&FFF1
8O�0,(1+no%))"�      Page ";~mag%;�"00"+�~(page%),2);"s";�"0000"+�~(sub%),4)
B�
L:
Vݤcheck_got(no%)
`%A%=&7A:C%?0=2:X%=C%�256:Y%=C%�256
jC%?1=no%:�&FFF1
t�(C%?2)�2=2 =� � =�
~��stop_updates
�#�"�Check no updates being done:
�%A%=&7A:C%?0=2:X%=C%�256:Y%=C%�256
��J%=0�7
��
�C%?1=J%:�&FFF1
��((C%?2)�4)=0
��"�then hold page:
��set_hold(J%)
��
��
���set_hold(no%)
�%A%=&7A:C%?0=3:X%=C%�256:Y%=C%�256
C%?1=no%:C%?2=3:�&FFF1

�
:
��reset_grabbers
(A%=&7A:X%=C%�256:Y%=C%�256
2C%?0=14
<
�&FFF1
F�
P��wait_for_pages
Z
�:S%=�
d9�G%=0�7:� � �check_got(G%) S%=� � �0,(1+G%))"�Found"
n�
x	�S%=�
��
���title
�%�5,0);�132;�157;�135;�20,0);�156
�4�148;"||<,|,,|<,|<,|,|,l|    pppppppppppppppp";
�@�148;" � 5j %z %j uz � o    "�132;�157;�131;"INDEX PRINTER"
�>�148;" � 5j 5j 5j 7k � �    "�132;�157;�131;"  (c)J.J.B."
��148;"//-,/,-.,-.-,/,.,./"
��0,24);�132;�157;�131;
��28,0,23,39,5
��
�

00000000  0d 00 0a 24 f4 22 81 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...$.".*********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 2a 2a 2a 0d 00 14 24  f4 22 81 2a 83 43 34 2f  |****...$.".*.C4/|
00000030  49 54 56 20 4f 52 41 43  4c 45 20 49 4e 44 45 58  |ITV ORACLE INDEX|
00000040  20 50 27 54 45 52 81 2a  0d 00 1e 24 f4 22 81 2a  | P'TER.*...$.".*|
00000050  86 44 65 73 69 67 6e 65  64 20 20 66 6f 72 20 20  |.Designed  for  |
00000060  75 73 65 20 20 20 77 69  74 68 81 2a 0d 00 28 24  |use   with.*..($|
00000070  f4 22 81 2a 86 45 50 53  4f 4e 20 20 4d 58 38 30  |.".*.EPSON  MX80|
00000080  20 20 49 49 49 20 20 70  72 69 6e 74 65 72 81 2a  |  III  printer.*|
00000090  0d 00 32 24 f4 22 81 2a  82 28 63 29 4a 2e 4a 2e  |..2$.".*.(c)J.J.|
000000a0  42 72 61 79 73 68 61 77  85 4a 75 6c 79 20 31 39  |Brayshaw.July 19|
000000b0  38 37 81 2a 0d 00 3c 24  f4 22 81 2a 2a 2a 2a 2a  |87.*..<$.".*****|
000000c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000d0  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 46 05 3a 0d 00 50  |********..F.:..P|
000000e0  06 eb 37 0d 00 5a 0d 2a  54 45 4c 45 53 4f 46 54  |..7..Z.*TELESOFT|
000000f0  0d 00 64 13 ef 32 33 3b  38 32 30 32 3b 30 3b 30  |..d..23;8202;0;0|
00000100  3b 30 3b 0d 00 6e 08 2a  49 54 56 0d 00 78 08 2a  |;0;..n.*ITV..x.*|
00000110  48 4f 4e 0d 00 82 0e 2a  4d 41 47 41 5a 49 4e 45  |HON....*MAGAZINE|
00000120  31 0d 00 8c 0b ee 85 e5  8d 54 7e 43 0d 00 96 0b  |1........T~C....|
00000130  d3 3d 26 35 37 30 30 0d  00 a0 0a f2 74 69 74 6c  |.=&5700.....titl|
00000140  65 0d 00 aa 0a de 43 25  20 31 34 0d 00 b4 2a 6c  |e.....C% 14...*l|
00000150  6f 63 25 3d 26 35 38 30  30 3a 73 74 6f 72 65 25  |oc%=&5800:store%|
00000160  3d 6c 6f 63 25 3a 70 61  67 65 5f 6c 65 6e 67 74  |=loc%:page_lengt|
00000170  68 25 3d 32 34 0d 00 be  1b f2 73 65 74 70 61 67  |h%=24.....setpag|
00000180  65 73 28 70 61 67 65 5f  6c 65 6e 67 74 68 25 29  |es(page_length%)|
00000190  0d 00 c8 18 e3 4e 25 3d  30 b8 37 3a f2 63 68 6f  |.....N%=0.7:.cho|
000001a0  6f 73 65 5f 70 61 67 65  0d 00 d2 2e f2 73 65 74  |ose_page.....set|
000001b0  67 72 61 62 62 65 72 28  4e 25 2c 6d 25 2c 70 25  |grabber(N%,m%,p%|
000001c0  2c 73 70 25 2c 6c 6f 63  25 2b 28 4e 25 2a 26 34  |,sp%,loc%+(N%*&4|
000001d0  30 30 29 29 3a ed 0d 00  dc 13 f2 77 61 69 74 5f  |00)):......wait_|
000001e0  66 6f 72 5f 70 61 67 65  73 0d 00 e6 21 f2 73 74  |for_pages...!.st|
000001f0  6f 70 5f 75 70 64 61 74  65 73 3a f2 72 65 73 65  |op_updates:.rese|
00000200  74 5f 67 72 61 62 62 65  72 73 0d 00 f0 51 e7 ac  |t_grabbers...Q..|
00000210  a4 70 72 69 6e 74 65 72  20 f2 72 65 70 6f 72 74  |.printer .report|
00000220  28 bd 31 33 36 2b 22 53  65 74 20 70 72 69 6e 74  |(.136+"Set print|
00000230  65 72 20 26 20 70 72 65  73 73 20 53 50 41 43 45  |er & press SPACE|
00000240  22 29 3a f5 fd a5 3d 33  32 3a f2 72 65 70 6f 72  |"):...=32:.repor|
00000250  74 28 22 22 29 3a e5 8d  64 70 40 0d 00 fa 05 db  |t(""):..dp@.....|
00000260  0d 01 04 21 f4 22 82 4e  6f 2e 20 6f 66 20 6c 69  |...!.".No. of li|
00000270  6e 65 73 20 6e 6f 74 20  72 65 71 75 69 72 65 64  |nes not required|
00000280  3a 0d 01 0e 0f 62 74 6d  3d 31 3a 74 6f 70 3d 33  |:....btm=1:top=3|
00000290  0d 01 18 07 ef 31 35 0d  01 22 0a de 20 43 20 32  |.....15..".. C 2|
000002a0  35 0d 01 2c 06 ef 32 0d  01 36 22 f4 22 82 53 65  |5..,..2..6".".Se|
000002b0  74 20 64 6f 75 62 6c 65  20 77 69 64 74 68 20 74  |t double width t|
000002c0  69 74 6c 65 2c 20 61 6e  64 0d 01 40 1d f4 22 82  |itle, and..@..".|
000002d0  70 65 72 66 6f 72 61 74  69 6f 6e 20 73 6b 69 70  |perforation skip|
000002e0  2d 6f 76 65 72 3a 0d 01  4a 17 ef 31 2c 31 34 2c  |-over:..J..1,14,|
000002f0  31 2c 32 37 2c 31 2c 37  38 2c 31 2c 33 0d 01 54  |1,27,1,78,1,3..T|
00000300  17 f1 22 20 20 20 4f 52  41 43 4c 45 20 49 4e 44  |.."   ORACLE IND|
00000310  45 58 22 27 0d 01 5e 75  f2 63 6f 6e 76 65 72 74  |EX"'..^u.convert|
00000320  5f 6c 69 6e 65 28 26 35  38 30 30 29 3a f1 89 33  |_line(&5800):..3|
00000330  2b 24 26 35 37 30 38 27  27 22 20 53 75 62 6a 65  |+$&5708''" Subje|
00000340  63 74 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |ct              |
00000350  20 20 20 20 20 43 48 34  20 20 20 20 49 54 56 22  |     CH4    ITV"|
00000360  27 22 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |'" =============|
00000370  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000380  3d 3d 3d 3d 3d 3d 3d 3d  22 0d 01 68 0c e3 70 70  |========"..h..pp|
00000390  25 3d 30 b8 37 0d 01 72  27 e3 6c 69 6e 65 3d 28  |%=0.7..r'.line=(|
000003a0  34 30 2a 74 6f 70 29 20  b8 28 26 34 30 30 2d 28  |40*top) .(&400-(|
000003b0  34 30 2a 62 74 6d 29 29  20 88 34 30 0d 01 7c 28  |40*btm)) .40..|(|
000003c0  f2 63 6f 6e 76 65 72 74  5f 6c 69 6e 65 28 26 35  |.convert_line(&5|
000003d0  38 30 30 2b 28 70 70 25  2a 26 34 30 30 29 2b 6c  |800+(pp%*&400)+l|
000003e0  69 6e 65 29 0d 01 86 10  e7 6f 6b 25 3d a3 20 e5  |ine).....ok%=. .|
000003f0  8d 74 64 41 0d 01 90 37  e7 24 26 35 37 30 30 3d  |.tdA...7.$&5700=|
00000400  c4 34 31 2c 22 20 22 29  20 84 a7 24 26 35 37 30  |.41," ") ..$&570|
00000410  30 2c 22 53 55 42 4a 45  43 54 20 49 4e 44 45 58  |0,"SUBJECT INDEX|
00000420  22 29 3c 3e 30 20 e5 8d  74 64 41 0d 01 9a 0b f1  |")<>0 ..tdA.....|
00000430  24 26 35 37 30 30 0d 01  a4 05 ed 0d 01 ae 05 ed  |$&5700..........|
00000440  0d 01 b8 24 f4 22 82 46  6f 72 6d 2d 66 65 65 64  |...$.".Form-feed|
00000450  2c 20 63 61 6e 63 65 6c  20 70 65 72 66 2e 20 73  |, cancel perf. s|
00000460  6b 69 70 2c 0d 01 c2 1a  f4 22 82 26 20 64 69 73  |kip,.....".& dis|
00000470  2d 61 62 6c 65 20 70 72  69 6e 74 65 72 3a 0d 01  |-able printer:..|
00000480  cc 15 ef 31 2c 32 37 2c  31 2c 37 39 2c 31 2c 31  |...1,27,1,79,1,1|
00000490  32 2c 33 0d 01 d6 09 2a  48 4f 46 46 0d 01 e0 20  |2,3....*HOFF... |
000004a0  db 3a f2 72 65 70 6f 72  74 28 22 49 6e 64 65 78  |.:.report("Index|
000004b0  20 63 6f 6d 70 6c 65 74  65 2e 22 29 0d 01 ea 09  | complete.")....|
000004c0  ef 33 2c 32 36 0d 01 f4  05 e0 0d 01 fe 0c dd f2  |.3,26...........|
000004d0  6f 73 28 43 24 29 0d 02  08 09 24 43 3d 43 24 0d  |os(C$)....$C=C$.|
000004e0  02 12 1e 58 25 3d 43 20  83 32 35 36 3a 59 25 3d  |...X%=C .256:Y%=|
000004f0  43 20 81 32 35 36 3a d6  26 46 46 46 37 0d 02 1c  |C .256:.&FFF7...|
00000500  05 e1 0d 02 26 1a dd f2  63 6f 6e 76 65 72 74 5f  |....&...convert_|
00000510  6c 69 6e 65 28 73 74 61  72 74 25 29 0d 02 30 09  |line(start%)..0.|
00000520  6f 6b 25 3d b9 0d 02 3a  0e e3 63 68 72 25 3d 30  |ok%=...:..chr%=0|
00000530  b8 34 30 0d 02 44 31 e7  3f 28 73 74 61 72 74 25  |.40..D1.?(start%|
00000540  2b 63 68 72 25 29 3e 31  34 34 20 80 3f 28 73 74  |+chr%)>144 .?(st|
00000550  61 72 74 25 2b 63 68 72  25 29 3c 31 35 31 20 6f  |art%+chr%)<151 o|
00000560  6b 25 3d a3 0d 02 4e 1d  e7 3f 28 73 74 61 72 74  |k%=...N..?(start|
00000570  25 2b 63 68 72 25 29 3d  31 35 37 20 6f 6b 25 3d  |%+chr%)=157 ok%=|
00000580  a3 0d 02 58 1d e7 3f 28  73 74 61 72 74 25 2b 63  |...X..?(start%+c|
00000590  68 72 25 29 3d 31 33 36  20 6f 6b 25 3d a3 0d 02  |hr%)=136 ok%=...|
000005a0  62 2e e7 3f 28 73 74 61  72 74 25 2b 63 68 72 25  |b..?(start%+chr%|
000005b0  29 3c 31 36 30 20 3f 28  26 35 37 30 30 2b 63 68  |)<160 ?(&5700+ch|
000005c0  72 25 29 3d 33 32 3a e5  8d 74 40 42 0d 02 6c 2f  |r%)=32:..t@B..l/|
000005d0  e7 3f 28 73 74 61 72 74  25 2b 63 68 72 25 29 3d  |.?(start%+chr%)=|
000005e0  32 35 35 20 3f 28 73 74  61 72 74 25 2b 63 68 72  |255 ?(start%+chr|
000005f0  25 29 3d 33 32 3a e5 8d  74 40 42 0d 02 76 26 3f  |%)=32:..t@B..v&?|
00000600  28 26 35 37 30 30 2b 63  68 72 25 29 3d 28 3f 28  |(&5700+chr%)=(?(|
00000610  73 74 61 72 74 25 2b 63  68 72 25 29 29 80 26 37  |start%+chr%)).&7|
00000620  46 0d 02 80 05 ed 0d 02  8a 0d 3f 26 35 37 32 39  |F.........?&5729|
00000630  3d 26 44 0d 02 94 05 e1  0d 02 9e 10 dd f2 72 65  |=&D...........re|
00000640  70 6f 72 74 28 41 24 29  0d 02 a8 0d 4c 25 3d b1  |port(A$)....L%=.|
00000650  3a 44 25 3d bc 0d 02 b2  06 ef 33 0d 02 bc 18 ef  |:D%=......3.....|
00000660  32 36 3a f1 8a 35 2c 32  34 29 c4 33 33 2c 22 20  |26:..5,24).33," |
00000670  22 29 3b 0d 02 c6 0e f1  8a 35 2c 32 34 29 41 24  |");......5,24)A$|
00000680  3b 0d 02 d0 11 ef 32 38  2c 30 2c 32 33 2c 33 39  |;.....28,0,23,39|
00000690  2c 35 0d 02 da 0d f1 8a  4c 25 2c 44 25 29 3b 0d  |,5......L%,D%);.|
000006a0  02 e4 06 ef 32 0d 02 ee  05 e1 0d 02 f8 0d dd a4  |....2...........|
000006b0  70 72 69 6e 74 65 72 0d  03 02 0b 2a 46 58 32 31  |printer....*FX21|
000006c0  2c 33 0d 03 0c 14 ef 32  2c 31 2c 30 2c 31 2c 30  |,3.....2,1,0,1,0|
000006d0  2c 31 2c 30 2c 33 0d 03  16 0e e3 51 3d 31 b8 31  |,1,0,3.....Q=1.1|
000006e0  30 30 3a ed 0d 03 20 15  e7 96 28 2d 34 29 3c 3e  |00:... ...(-4)<>|
000006f0  36 33 20 3d a3 20 8b 3d  b9 0d 03 2a 1b f4 22 82  |63 =. .=...*..".|
00000700  50 61 67 65 20 26 20 73  75 62 2d 70 61 67 65 20  |Page & sub-page |
00000710  6e 6f 73 3a 0d 03 34 45  dc 20 31 39 39 30 30 30  |nos:..4E. 199000|
00000720  31 2c 31 39 39 30 30 30  32 2c 31 39 39 30 30 30  |1,1990002,199000|
00000730  33 2c 31 39 39 30 30 30  34 2c 31 39 39 30 30 30  |3,1990004,199000|
00000740  35 2c 31 39 39 30 30 30  36 2c 31 39 39 30 30 30  |5,1990006,199000|
00000750  37 2c 31 39 39 30 30 30  38 0d 03 3e 11 f4 22 81  |7,1990008..>..".|
00000760  45 52 52 4f 52 20 54 52  41 50 0d 03 48 10 ef 31  |ERROR TRAP..H..1|
00000770  2c 32 37 2c 31 2c 37 39  2c 33 0d 03 52 09 2a 48  |,27,1,79,3..R.*H|
00000780  4f 46 46 0d 03 5c 33 f2  72 65 70 6f 72 74 28 bd  |OFF..\3.report(.|
00000790  31 33 36 2b 22 53 6f 72  72 79 2c 20 45 72 72 6f  |136+"Sorry, Erro|
000007a0  72 20 22 2b c3 28 9f 29  2b 22 20 64 65 74 65 63  |r "+.(.)+" detec|
000007b0  74 65 64 2e 22 29 0d 03  66 06 ef 33 0d 03 70 05  |ted.")..f..3..p.|
000007c0  db 0d 03 7a 07 ef 32 36  0d 03 84 05 e0 0d 03 8e  |...z..26........|
000007d0  05 3a 0d 03 98 13 dd f2  73 65 74 70 61 67 65 73  |.:......setpages|
000007e0  28 6e 6f 25 29 0d 03 a2  13 43 25 3f 30 3d 37 3a  |(no%)....C%?0=7:|
000007f0  43 25 3f 31 3d 6e 6f 25  0d 03 ac 25 41 25 3d 26  |C%?1=no%...%A%=&|
00000800  37 41 3a 58 25 3d 43 25  83 32 35 36 3a 59 25 3d  |7A:X%=C%.256:Y%=|
00000810  43 25 81 32 35 36 3a d6  26 46 46 46 31 0d 03 b6  |C%.256:.&FFF1...|
00000820  05 e1 0d 03 c0 05 3a 0d  03 ca 11 dd f2 63 68 6f  |......:......cho|
00000830  6f 73 65 5f 70 61 67 65  0d 03 d4 07 f3 70 24 0d  |ose_page.....p$.|
00000840  03 de 14 6d 25 3d a0 28  22 26 22 2b c0 70 24 2c  |...m%=.("&"+.p$,|
00000850  31 29 29 0d 03 e8 16 70  25 3d a0 28 22 26 22 2b  |1))....p%=.("&"+|
00000860  c1 70 24 2c 32 2c 32 29  29 0d 03 f2 2a e7 a9 28  |.p$,2,2))...*..(|
00000870  70 24 29 3e 33 20 73 70  25 3d a0 28 22 26 22 2b  |p$)>3 sp%=.("&"+|
00000880  c2 70 24 2c 34 29 29 20  8b 20 73 70 25 3d 26 33  |.p$,4)) . sp%=&3|
00000890  46 37 46 0d 03 fc 05 e1  0d 04 06 05 3a 0d 04 10  |F7F.........:...|
000008a0  2c dd f2 73 65 74 67 72  61 62 62 65 72 28 6e 6f  |,..setgrabber(no|
000008b0  25 2c 6d 61 67 25 2c 70  61 67 65 25 2c 73 75 62  |%,mag%,page%,sub|
000008c0  25 2c 73 74 6f 72 65 25  29 0d 04 1a 25 41 25 3d  |%,store%)...%A%=|
000008d0  26 37 41 3a 43 25 3f 30  3d 35 3a 58 25 3d 43 25  |&7A:C%?0=5:X%=C%|
000008e0  83 32 35 36 3a 59 25 3d  43 25 81 32 35 36 0d 04  |.256:Y%=C%.256..|
000008f0  24 5d 43 25 3f 31 3d 6e  6f 25 3a 43 25 3f 32 3d  |$]C%?1=no%:C%?2=|
00000900  6d 61 67 25 3a 43 25 3f  33 3d 70 61 67 65 25 3a  |mag%:C%?3=page%:|
00000910  43 25 3f 34 3d 73 75 62  25 81 32 35 36 3a 43 25  |C%?4=sub%.256:C%|
00000920  3f 35 3d 73 75 62 25 83  32 35 36 3a 43 25 3f 36  |?5=sub%.256:C%?6|
00000930  3d 73 74 6f 72 65 25 83  32 35 36 3a 43 25 3f 37  |=store%.256:C%?7|
00000940  3d 73 74 6f 72 65 25 81  32 35 36 0d 04 2e 0a d6  |=store%.256.....|
00000950  26 46 46 46 31 0d 04 38  4f f1 8a 30 2c 28 31 2b  |&FFF1..8O..0,(1+|
00000960  6e 6f 25 29 29 22 81 20  20 20 20 20 20 50 61 67  |no%))".      Pag|
00000970  65 20 22 3b 7e 6d 61 67  25 3b c2 22 30 30 22 2b  |e ";~mag%;."00"+|
00000980  c3 7e 28 70 61 67 65 25  29 2c 32 29 3b 22 73 22  |.~(page%),2);"s"|
00000990  3b c2 22 30 30 30 30 22  2b c3 7e 28 73 75 62 25  |;."0000"+.~(sub%|
000009a0  29 2c 34 29 0d 04 42 05  e1 0d 04 4c 05 3a 0d 04  |),4)..B....L.:..|
000009b0  56 14 dd a4 63 68 65 63  6b 5f 67 6f 74 28 6e 6f  |V...check_got(no|
000009c0  25 29 0d 04 60 25 41 25  3d 26 37 41 3a 43 25 3f  |%)..`%A%=&7A:C%?|
000009d0  30 3d 32 3a 58 25 3d 43  25 83 32 35 36 3a 59 25  |0=2:X%=C%.256:Y%|
000009e0  3d 43 25 81 32 35 36 0d  04 6a 13 43 25 3f 31 3d  |=C%.256..j.C%?1=|
000009f0  6e 6f 25 3a d6 26 46 46  46 31 0d 04 74 17 e7 28  |no%:.&FFF1..t..(|
00000a00  43 25 3f 32 29 80 32 3d  32 20 3d b9 20 8b 20 3d  |C%?2).2=2 =. . =|
00000a10  a3 0d 04 7e 12 dd f2 73  74 6f 70 5f 75 70 64 61  |...~...stop_upda|
00000a20  74 65 73 0d 04 88 23 f4  22 83 43 68 65 63 6b 20  |tes...#.".Check |
00000a30  6e 6f 20 75 70 64 61 74  65 73 20 62 65 69 6e 67  |no updates being|
00000a40  20 64 6f 6e 65 3a 0d 04  92 25 41 25 3d 26 37 41  | done:...%A%=&7A|
00000a50  3a 43 25 3f 30 3d 32 3a  58 25 3d 43 25 83 32 35  |:C%?0=2:X%=C%.25|
00000a60  36 3a 59 25 3d 43 25 81  32 35 36 0d 04 9c 0b e3  |6:Y%=C%.256.....|
00000a70  4a 25 3d 30 b8 37 0d 04  a6 05 f5 0d 04 b0 12 43  |J%=0.7.........C|
00000a80  25 3f 31 3d 4a 25 3a d6  26 46 46 46 31 0d 04 ba  |%?1=J%:.&FFF1...|
00000a90  11 fd 28 28 43 25 3f 32  29 80 34 29 3d 30 0d 04  |..((C%?2).4)=0..|
00000aa0  c4 16 f4 22 83 74 68 65  6e 20 68 6f 6c 64 20 70  |...".then hold p|
00000ab0  61 67 65 3a 0d 04 ce 11  f2 73 65 74 5f 68 6f 6c  |age:.....set_hol|
00000ac0  64 28 4a 25 29 0d 04 d8  05 ed 0d 04 e2 05 e1 0d  |d(J%)...........|
00000ad0  04 ec 13 dd f2 73 65 74  5f 68 6f 6c 64 28 6e 6f  |.....set_hold(no|
00000ae0  25 29 0d 04 f6 25 41 25  3d 26 37 41 3a 43 25 3f  |%)...%A%=&7A:C%?|
00000af0  30 3d 33 3a 58 25 3d 43  25 83 32 35 36 3a 59 25  |0=3:X%=C%.256:Y%|
00000b00  3d 43 25 81 32 35 36 0d  05 00 1a 43 25 3f 31 3d  |=C%.256....C%?1=|
00000b10  6e 6f 25 3a 43 25 3f 32  3d 33 3a d6 26 46 46 46  |no%:C%?2=3:.&FFF|
00000b20  31 0d 05 0a 05 e1 0d 05  14 05 3a 0d 05 1e 14 dd  |1.........:.....|
00000b30  f2 72 65 73 65 74 5f 67  72 61 62 62 65 72 73 0d  |.reset_grabbers.|
00000b40  05 28 1e 41 25 3d 26 37  41 3a 58 25 3d 43 25 83  |.(.A%=&7A:X%=C%.|
00000b50  32 35 36 3a 59 25 3d 43  25 81 32 35 36 0d 05 32  |256:Y%=C%.256..2|
00000b60  0b 43 25 3f 30 3d 31 34  0d 05 3c 0a d6 26 46 46  |.C%?0=14..<..&FF|
00000b70  46 31 0d 05 46 05 e1 0d  05 50 14 dd f2 77 61 69  |F1..F....P...wai|
00000b80  74 5f 66 6f 72 5f 70 61  67 65 73 0d 05 5a 0a f5  |t_for_pages..Z..|
00000b90  3a 53 25 3d b9 0d 05 64  39 e3 47 25 3d 30 b8 37  |:S%=...d9.G%=0.7|
00000ba0  3a e7 20 ac 20 a4 63 68  65 63 6b 5f 67 6f 74 28  |:. . .check_got(|
00000bb0  47 25 29 20 53 25 3d a3  20 8b 20 f1 8a 30 2c 28  |G%) S%=. . ..0,(|
00000bc0  31 2b 47 25 29 29 22 82  46 6f 75 6e 64 22 0d 05  |1+G%))".Found"..|
00000bd0  6e 05 ed 0d 05 78 09 fd  53 25 3d b9 0d 05 82 05  |n....x..S%=.....|
00000be0  e1 0d 05 8c 0b dd f2 74  69 74 6c 65 0d 05 96 25  |.......title...%|
00000bf0  f1 8a 35 2c 30 29 3b bd  31 33 32 3b bd 31 35 37  |..5,0);.132;.157|
00000c00  3b bd 31 33 35 3b 8a 32  30 2c 30 29 3b bd 31 35  |;.135;.20,0);.15|
00000c10  36 0d 05 a0 34 f1 bd 31  34 38 3b 22 7c 7c 3c 2c  |6...4..148;"||<,|
00000c20  7c 2c 2c 7c 3c 2c 7c 3c  2c 7c 2c 7c 2c 6c 7c 20  ||,,|<,|<,|,|,l| |
00000c30  20 20 20 70 70 70 70 70  70 70 70 70 70 70 70 70  |   ppppppppppppp|
00000c40  70 70 70 22 3b 0d 05 aa  40 f1 bd 31 34 38 3b 22  |ppp";...@..148;"|
00000c50  20 ff 20 35 6a 20 25 7a  20 25 6a 20 75 7a 20 ff  | . 5j %z %j uz .|
00000c60  20 6f 20 20 20 20 22 bd  31 33 32 3b bd 31 35 37  | o    ".132;.157|
00000c70  3b bd 31 33 31 3b 22 49  4e 44 45 58 20 50 52 49  |;.131;"INDEX PRI|
00000c80  4e 54 45 52 22 0d 05 b4  3e f1 bd 31 34 38 3b 22  |NTER"...>..148;"|
00000c90  20 ff 20 35 6a 20 35 6a  20 35 6a 20 37 6b 20 ff  | . 5j 5j 5j 7k .|
00000ca0  20 ff 20 20 20 20 22 bd  31 33 32 3b bd 31 35 37  | .    ".132;.157|
00000cb0  3b bd 31 33 31 3b 22 20  20 28 63 29 4a 2e 4a 2e  |;.131;"  (c)J.J.|
00000cc0  42 2e 22 0d 05 be 1f f1  bd 31 34 38 3b 22 2f 2f  |B."......148;"//|
00000cd0  2d 2c 2f 2c 2d 2e 2c 2d  2e 2d 2c 2f 2c 2e 2c 2e  |-,/,-.,-.-,/,.,.|
00000ce0  2f 22 0d 05 c8 1b f1 8a  30 2c 32 34 29 3b bd 31  |/"......0,24);.1|
00000cf0  33 32 3b bd 31 35 37 3b  bd 31 33 31 3b 0d 05 d2  |32;.157;.131;...|
00000d00  11 ef 32 38 2c 30 2c 32  33 2c 33 39 2c 35 0d 05  |..28,0,23,39,5..|
00000d10  dc 05 e1 0d ff                                    |.....|
00000d15