#�"�****************************
#�"�*�POOLS  PREDICTOR PROGRAM�*
#�"�*�RESULTS CHECKING PROGRAM�*
(#�"�*�by�J.J.Brayshaw�Oct.1985�*
2#�"�*�Version 2F�Sept. 1987   �*
<#�"�*�For use with ATS        �*
F#�"�****************************
P�7
Z
*TTXON
d
*TELESOFT
n�23;8202;0;0;0;
x�"�No of matches on coupon:
�max%=58
��"�No. of selections:
��"�(Min 8 ; Max 18):
�
no%=10
��L$=" ���h��������� �� �������𰴴"+�10+�13+"��� j����������  ������꠵�����"+�10+�13+"��� j���������  ���������������"+�10+�13+"� � *�``````��  ��Pools predictor"+�10+�13
�
�setup
��setrows(24)
�� � �adapter �error(2)
�date$=�BBCdate
�W� �date$,"Saturday")<>0 sat%=�:�oscli("BBC1"):� �dxG:� �oscli("BBC2"):� �TBH:sat%=�
�`�W%=1�8:�pp$:�setgrabber(W%,�(�pp$,1)),�("&"+�pp$,2,2)),�("&"+�pp$,4)),loc%+((W%-1)*&3C0)):�
�grabbers=�check(sat%)
�
�:�'L$

$�141;�131;date$'�141;�131;date$

5�1,10)�131;"Pages required:";�20);"Pages found:"

�sat% � �dxG:� � �TBH

"�P%=1�grabbers

,�pp$:�sat% pp$=�pp$,3)

6�8,11+P%);�134;pp$

@�

J�wait_for_pages

T	*HOFF

^�report_results

h*�'"�Press�SPACE�to continue ";:�:��=32

r�points

|�0,0);

�*TTXOFF

��

�
�"�***

���process(gr%)

�F%=loc%+((gr%-1)*&3C0)

�7�A%=(F%+&C8)�(F%+&398):?A%=(?A%�&7F):�?A%<32 ?A%=32

��

��A%=(F%+&C8)�(F%+&398) �40

�T%=?(A%+40)

�?(A%+40)=&D

�
A$=$A%

�0M%=�(A$):�M%<>0 �M%<=max% R(M%)=�find_result

�?(A%+40)=T%
�
�0,23)�(70);
�
&
�"�***
0��setup
:"�M%(max%),R(max%),K(no%),G%(9)
D� loc% 9*&3C0
N� C% 20
X�
b
�"�***
l��oscli(n$)
v� C
�
� C 14
�	$C=n$
�
X%=C �256
�
Y%=C �256
�
�&FFF7
��
�
�"�***
���error(n)
�
�:�'L$
�5�0,6)�141;"�Sorry, error:"'�141;"�Sorry, error:"
�W�n=1 �''�141;"�Results not being transmitted"'�141;"�Results not being transmitted"
�W�n=1 �''�141;"�Try again after Saturday P.M."'�141;"�Try again after Saturday P.M."
�A�n=2 �''�141;"�Adapter not on."'�141;"�Adapter not on.":�TVC
M�n=4 �''�141;"�Forecast file not found."'�141;"�Forecast file not found."
	*HOFF
�
 
�"�***
*ݤfind_result:�B%
4B%=A%+10
>/�:B%=B%+1:�((?B%>47)�(?B%<58))�(B%>(A%+35))
HG�0,23)"�Calculating result for match ";M%;"  "'"�Please wait ...";
R�B%>(A%+35) =�panel
\?(�$A%,"-")+A%-1)=&AD
f
H%=�($B%)
pB%=B%+(�(�(H%)))
z/�:B%=B%+1:�((?B%>47)�(?B%<58))�(B%>(A%+35))
��B%>(A%+35) =�panel
�
I%=�($B%)
��H%=I% � H%=0 =2
��H%=I% � H%<>0 =3
��H%<I% =1.5
�
�H%>I% =1
�=0
�
�"�***
���report_results
�?scdraws%=0:aways%=0:homes%=0:notfound%=0:nsdraws%=0:void%=0
��:�14:�L$'
��A%=1�max%
�S�R(A%)=0 �"�Result for match no.�";A%;"�not found.":notfound%=notfound%+1:�TxD
I�R(A%)=1.5 �"�Match no.�";A%;�14);"�1\ Points.":aways%=aways%+1:�TxD
K�R(A%)=2 �"�Match no.�";A%;�14);"�2  Points.":nsdraws%=nsdraws%+1:�TxD
K�R(A%)=3 �"�Match no.�";A%;�14);"�3  Points.":scdraws%=scdraws%+1:�TxD
$X�R(A%)=1.6 R(A%)=1.5:�"�Match no.�";A%;�14);" void. (1\ Points)":void%=void%+1:�TxD
.@�R(A%)=1 �"�Match no.�";A%;�14);"�1  Point.":homes%=homes%+1
8�
B�
L
�"�***
V
ݤcompare
`F%=�("RDATA")
j�F%=0 �error(4)
t	tot=0
~
�G%=1�no%
�K(G%)=R(�#F%)
�tot=tot+K(G%)
��
��not_in
�less%=no%-8
�	�sort
��less%<1 �dvD
��G%=1�less%
�tot=tot-(K(G%))
��
��#F%
�=tot

�"�***

��points
	�:�L$
P=�compare
(*�"�The maximum number of pools points"
2(�"�you have obtained this week is�";
<�P<>�(P) �;�(P);"\" � �;P
F�''"� Totals this week:"
P"�'�7;"�Score draws:�";scdraws%
Z$�;�4"�No-score draws:�";nsdraws%
d�;�9;"�Away wins:�";aways%
n�;�9;"�Home wins:�";homes%
x$�;�2;"�Void/Off matches:�";void%
�'�" �Results not found:�";notfound%'
��
�
�"�***
�
��sort
��b=1�no%
��a=1�(no%-1)
�4�K(a)>K(a+1) temp1=K(a):K(a)=K(a+1):K(a+1)=temp1
��
��
��
�
�"�***
���not_in
�flag%=0

�G%=1�no%
�K(G%)=0 flag%=flag%+1
�
"� flag%=0 �D@F
,^�'"�No results have been found for ";flag%'"�of the matches selected by the"'"�predictor."
6`�"�The following calculation has been made�by ignoring the actual results of these�matches."
@�
J
ݤBBCdate
T�=0:���>120
^2A%=&7A:X%=loc%�256:Y%=loc%�256:?loc%=15:�&FFF1
hBB1$=��~(loc%?8),1)
r-BB2$=�~(loc%?9):� �(BB2$)=1 BB2$="0"+BB2$
|.BB3$=�~(loc%?10):� �(BB3$)=1 BB3$="0"+BB3$
�JD=�(BB1$+BB2$+BB3$)
�#�JD<46796 ="Date not available"
�Y1=(100*(JD-15078.2))�36525
�+M1=�((JD-14956.1-�(365.25*Y1))/30.6001)
�<D%=JD-14956-�(365.25*Y1)-�(30.6*M1):K=�(0.7+(1/(17-M1)))
�M%=M1-1-12*K
�Z%=Y1+K
�1W%=(JD+3)�7:��dVF:�day=0�W%:�D$:�:D$=D$+"day"
�)� Sun,Mon,Tues,Wednes,Thurs,Fri,Satur
���djF:�day=1�M%:�month$:�
�[� January,February,March,April,May,June,July,August,September,October,November,December
�X�D%=1�D%=21�D%=31 th$="st." ��D%=2�D%=22 th$="nd." ��D%=3�D%=23 th$="rd." �th$="th."
�-=D$+"  "+�(D%)+th$+" "+month$+" 19"+�(Z%)
�"�****
ݤadapter:� work% 2
HA%=&7A:X%=work%�256:Y%=work%�256:?work%=17:�&FFF1:�work%?1=0 =� � =�
&
�"�***
0ݤcheck(sat%)
:� A%
D
�:�'L$
N*HON
XO�141"�Looking for results pages ..."'�141"�Looking for results pages ...";
bpos%=�get_one
l6�A%=pos% �(pos%+&3C0):?A%=(?A%�&7F):�?A%<32 ?A%=32
v�:A%=pos%+&50
�
?A%=&D
�'�:A%=A%-1:�?A%=�"/" � A%<(pos%+&28)
�	J%=A%
�
�:J%=J%+1
��?J%=�"R" � J%>=(pos%+&112)
��J%>=(pos%+&112) �error(1)
�$?(J%+7)=&D:�$J%<>"RESULTS" �t^G
�� � sat%:=�($(A%+1))
�CA%=pos%+(23*40):�:A%=A%+1:�?A%=�"-" � ?A%=�"_" � A%>(pos%+&3C0)
��A%>(pos%+&3C0) =8
�3?(A%+3)=&D:� �($(A%+1))=0 =8 � =(�($(A%+1)))�40
�
�"�***
�E� 3413F7F,3423F7F,3433F7F,3443F7F,3453F7F,3463F7F,3473F7F,3483F7F
E� 3310001,3310002,3310003,3310004,3310005,3310006,3310007,3310008

�"�***
ݤpanel
 B%=A%+35
*,�:B%=B%+1:�(?B%>48 �?B%<52) � B%>(A%+40)
4&�B%>(A%+40) � �A$," OFF ")<>0 =1.6
>'�B%>(A%+40) � �A$," VOID ")<>0 =1.6
H�B%>(A%+40) =0
R�?B%=51 =3
\�?B%=50 =2
f�?B%=49 � ?(B%+1)=92 =1.5
p=1
z
�"�***
�,��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
��
�:
�ݤcheck_got(no%)
�%A%=&7A:C%?0=2:X%=C%�256:Y%=C%�256
�C%?1=no%:�&FFF1
��(C%?2)�2=2 =� � =�
�:
���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
	8C%?0=14
	B
�&FFF1
	L�
	V��wait_for_pages
	`
�:S%=�
	j$�G%=1�grabbers:I%=�check_got(G%)
	tQ�I%=� � G%(G%)=�:G%(G%)=�:�20,11+G%);�134;"Found":�set_hold(G%):�process(G%)
	~�I%=� S%=�
	��
	�	�S%=�
	��
	�
�"�***
	�
ݤget_one
	�(G%=0:�:G%=(G%�8)+1:��check_got(G%)=�
	�=loc%+((G%-1)*&3C0)
	�rem"�***
	���setrows(no%)
	�5A%=&7A:X%=C%�256:Y%=C% �256:?C%=7:C%?1=no%:�&FFF1
	��
�

00000000  0d 00 0a 23 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 0d 00 14 23 f4  22 81 2a 83 50 4f 4f 4c  |***...#.".*.POOL|
00000030  53 20 20 50 52 45 44 49  43 54 4f 52 20 50 52 4f  |S  PREDICTOR PRO|
00000040  47 52 41 4d 81 2a 0d 00  1e 23 f4 22 81 2a 83 52  |GRAM.*...#.".*.R|
00000050  45 53 55 4c 54 53 20 43  48 45 43 4b 49 4e 47 20  |ESULTS CHECKING |
00000060  50 52 4f 47 52 41 4d 81  2a 0d 00 28 23 f4 22 81  |PROGRAM.*..(#.".|
00000070  2a 85 62 79 86 4a 2e 4a  2e 42 72 61 79 73 68 61  |*.by.J.J.Braysha|
00000080  77 82 4f 63 74 2e 31 39  38 35 81 2a 0d 00 32 23  |w.Oct.1985.*..2#|
00000090  f4 22 81 2a 87 56 65 72  73 69 6f 6e 20 32 46 82  |.".*.Version 2F.|
000000a0  53 65 70 74 2e 20 31 39  38 37 20 20 20 81 2a 0d  |Sept. 1987   .*.|
000000b0  00 3c 23 f4 22 81 2a 87  46 6f 72 20 75 73 65 20  |.<#.".*.For use |
000000c0  77 69 74 68 20 41 54 53  20 20 20 20 20 20 20 20  |with ATS        |
000000d0  81 2a 0d 00 46 23 f4 22  81 2a 2a 2a 2a 2a 2a 2a  |.*..F#.".*******|
000000e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000f0  2a 2a 2a 2a 2a 0d 00 50  06 eb 37 0d 00 5a 0a 2a  |*****..P..7..Z.*|
00000100  54 54 58 4f 4e 0d 00 64  0d 2a 54 45 4c 45 53 4f  |TTXON..d.*TELESO|
00000110  46 54 0d 00 6e 13 ef 32  33 3b 38 32 30 32 3b 30  |FT..n..23;8202;0|
00000120  3b 30 3b 30 3b 0d 00 78  1f f4 22 82 4e 6f 20 6f  |;0;0;..x..".No o|
00000130  66 20 6d 61 74 63 68 65  73 20 6f 6e 20 63 6f 75  |f matches on cou|
00000140  70 6f 6e 3a 0d 00 82 0b  6d 61 78 25 3d 35 38 0d  |pon:....max%=58.|
00000150  00 8c 19 f4 22 82 4e 6f  2e 20 6f 66 20 73 65 6c  |....".No. of sel|
00000160  65 63 74 69 6f 6e 73 3a  0d 00 96 18 f4 22 81 28  |ections:.....".(|
00000170  4d 69 6e 20 38 20 3b 20  4d 61 78 20 31 38 29 3a  |Min 8 ; Max 18):|
00000180  0d 00 a0 0a 6e 6f 25 3d  31 30 0d 00 aa b0 4c 24  |....no%=10....L$|
00000190  3d 22 20 97 a0 a0 68 ac  ac ac ac ac ac ac ac b4  |=" ...h.........|
000001a0  20 93 a0 20 bc e0 f0 e0  f0 e8 b0 f4 b0 f0 b0 b4  | .. ............|
000001b0  b4 22 2b bd 31 30 2b bd  31 33 2b 22 94 9d 97 20  |."+.10+.13+"... |
000001c0  6a 9a ff ff ff ff ff ff  99 b5 93 20 20 a3 b7 ea  |j..........  ...|
000001d0  ea ea ea ea a0 b5 b5 bc  b5 b5 b5 22 2b bd 31 30  |..........."+.10|
000001e0  2b bd 31 33 2b 22 94 9d  97 20 6a 9a ff ff ff ff  |+.13+"... j.....|
000001f0  ff ff 99 b5 20 20 93 a0  a5 a2 a3 a2 a3 a2 a1 a3  |....  ..........|
00000200  a1 a3 a1 a1 a1 22 2b bd  31 30 2b bd 31 33 2b 22  |....."+.10+.13+"|
00000210  97 20 a0 20 2a 9a 60 60  60 60 60 60 99 a5 20 20  |. . *.``````..  |
00000220  a0 87 50 6f 6f 6c 73 20  70 72 65 64 69 63 74 6f  |..Pools predicto|
00000230  72 22 2b bd 31 30 2b bd  31 33 0d 00 b4 0a f2 73  |r"+.10+.13.....s|
00000240  65 74 75 70 0d 00 be 10  f2 73 65 74 72 6f 77 73  |etup.....setrows|
00000250  28 32 34 29 0d 00 c8 1a  e7 20 ac 20 a4 61 64 61  |(24)..... . .ada|
00000260  70 74 65 72 20 f2 65 72  72 6f 72 28 32 29 0d 00  |pter .error(2)..|
00000270  d2 12 64 61 74 65 24 3d  a4 42 42 43 64 61 74 65  |..date$=.BBCdate|
00000280  0d 00 dc 57 e7 20 a7 64  61 74 65 24 2c 22 53 61  |...W. .date$,"Sa|
00000290  74 75 72 64 61 79 22 29  3c 3e 30 20 73 61 74 25  |turday")<>0 sat%|
000002a0  3d b9 3a f2 6f 73 63 6c  69 28 22 42 42 43 31 22  |=.:.oscli("BBC1"|
000002b0  29 3a f7 20 8d 64 78 47  3a 8b 20 f2 6f 73 63 6c  |):. .dxG:. .oscl|
000002c0  69 28 22 42 42 43 32 22  29 3a f7 20 8d 54 42 48  |i("BBC2"):. .TBH|
000002d0  3a 73 61 74 25 3d a3 0d  00 e6 60 e3 57 25 3d 31  |:sat%=....`.W%=1|
000002e0  b8 38 3a f3 70 70 24 3a  f2 73 65 74 67 72 61 62  |.8:.pp$:.setgrab|
000002f0  62 65 72 28 57 25 2c bb  28 c0 70 70 24 2c 31 29  |ber(W%,.(.pp$,1)|
00000300  29 2c a0 28 22 26 22 2b  c1 70 70 24 2c 32 2c 32  |),.("&"+.pp$,2,2|
00000310  29 29 2c a0 28 22 26 22  2b c2 70 70 24 2c 34 29  |)),.("&"+.pp$,4)|
00000320  29 2c 6c 6f 63 25 2b 28  28 57 25 2d 31 29 2a 26  |),loc%+((W%-1)*&|
00000330  33 43 30 29 29 3a ed 0d  00 f0 19 67 72 61 62 62  |3C0)):.....grabb|
00000340  65 72 73 3d a4 63 68 65  63 6b 28 73 61 74 25 29  |ers=.check(sat%)|
00000350  0d 00 fa 0a db 3a f1 27  4c 24 0d 01 04 24 f1 bd  |.....:.'L$...$..|
00000360  31 34 31 3b bd 31 33 31  3b 64 61 74 65 24 27 bd  |141;.131;date$'.|
00000370  31 34 31 3b bd 31 33 31  3b 64 61 74 65 24 0d 01  |141;.131;date$..|
00000380  0e 35 f1 8a 31 2c 31 30  29 bd 31 33 31 3b 22 50  |.5..1,10).131;"P|
00000390  61 67 65 73 20 72 65 71  75 69 72 65 64 3a 22 3b  |ages required:";|
000003a0  8a 32 30 29 3b 22 50 61  67 65 73 20 66 6f 75 6e  |.20);"Pages foun|
000003b0  64 3a 22 0d 01 18 19 e7  73 61 74 25 20 f7 20 8d  |d:".....sat% . .|
000003c0  64 78 47 3a 8b 20 f7 20  8d 54 42 48 0d 01 22 12  |dxG:. . .TBH..".|
000003d0  e3 50 25 3d 31 b8 67 72  61 62 62 65 72 73 0d 01  |.P%=1.grabbers..|
000003e0  2c 1a f3 70 70 24 3a e7  73 61 74 25 20 70 70 24  |,..pp$:.sat% pp$|
000003f0  3d c0 70 70 24 2c 33 29  0d 01 36 17 f1 8a 38 2c  |=.pp$,3)..6...8,|
00000400  31 31 2b 50 25 29 3b bd  31 33 34 3b 70 70 24 0d  |11+P%);.134;pp$.|
00000410  01 40 05 ed 0d 01 4a 13  f2 77 61 69 74 5f 66 6f  |.@....J..wait_fo|
00000420  72 5f 70 61 67 65 73 0d  01 54 09 2a 48 4f 46 46  |r_pages..T.*HOFF|
00000430  0d 01 5e 13 f2 72 65 70  6f 72 74 5f 72 65 73 75  |..^..report_resu|
00000440  6c 74 73 0d 01 68 2a f1  27 22 88 50 72 65 73 73  |lts..h*.'".Press|
00000450  89 53 50 41 43 45 88 74  6f 20 63 6f 6e 74 69 6e  |.SPACE.to contin|
00000460  75 65 20 22 3b 3a f5 3a  fd a5 3d 33 32 0d 01 72  |ue ";:.:..=32..r|
00000470  0b f2 70 6f 69 6e 74 73  0d 01 7c 0b f1 8a 30 2c  |..points..|...0,|
00000480  30 29 3b 0d 01 86 0b 2a  54 54 58 4f 46 46 0d 01  |0);....*TTXOFF..|
00000490  90 05 e0 0d 01 9a 0a f4  22 81 2a 2a 2a 0d 01 a4  |........".***...|
000004a0  12 dd f2 70 72 6f 63 65  73 73 28 67 72 25 29 0d  |...process(gr%).|
000004b0  01 ae 1a 46 25 3d 6c 6f  63 25 2b 28 28 67 72 25  |...F%=loc%+((gr%|
000004c0  2d 31 29 2a 26 33 43 30  29 0d 01 b8 37 e3 41 25  |-1)*&3C0)...7.A%|
000004d0  3d 28 46 25 2b 26 43 38  29 b8 28 46 25 2b 26 33  |=(F%+&C8).(F%+&3|
000004e0  39 38 29 3a 3f 41 25 3d  28 3f 41 25 80 26 37 46  |98):?A%=(?A%.&7F|
000004f0  29 3a e7 3f 41 25 3c 33  32 20 3f 41 25 3d 33 32  |):.?A%<32 ?A%=32|
00000500  0d 01 c2 05 ed 0d 01 cc  1e e3 41 25 3d 28 46 25  |..........A%=(F%|
00000510  2b 26 43 38 29 b8 28 46  25 2b 26 33 39 38 29 20  |+&C8).(F%+&398) |
00000520  88 34 30 0d 01 d6 0f 54  25 3d 3f 28 41 25 2b 34  |.40....T%=?(A%+4|
00000530  30 29 0d 01 e0 0f 3f 28  41 25 2b 34 30 29 3d 26  |0)....?(A%+40)=&|
00000540  44 0d 01 ea 0a 41 24 3d  24 41 25 0d 01 f4 30 4d  |D....A$=$A%...0M|
00000550  25 3d bb 28 41 24 29 3a  e7 4d 25 3c 3e 30 20 80  |%=.(A$):.M%<>0 .|
00000560  4d 25 3c 3d 6d 61 78 25  20 52 28 4d 25 29 3d a4  |M%<=max% R(M%)=.|
00000570  66 69 6e 64 5f 72 65 73  75 6c 74 0d 01 fe 0f 3f  |find_result....?|
00000580  28 41 25 2b 34 30 29 3d  54 25 0d 02 08 05 ed 0d  |(A%+40)=T%......|
00000590  02 12 11 f1 8a 30 2c 32  33 29 89 28 37 30 29 3b  |.....0,23).(70);|
000005a0  0d 02 1c 05 e1 0d 02 26  0a f4 22 81 2a 2a 2a 0d  |.......&..".***.|
000005b0  02 30 0b dd f2 73 65 74  75 70 0d 02 3a 22 de 4d  |.0...setup..:".M|
000005c0  25 28 6d 61 78 25 29 2c  52 28 6d 61 78 25 29 2c  |%(max%),R(max%),|
000005d0  4b 28 6e 6f 25 29 2c 47  25 28 39 29 0d 02 44 11  |K(no%),G%(9)..D.|
000005e0  de 20 6c 6f 63 25 20 39  2a 26 33 43 30 0d 02 4e  |. loc% 9*&3C0..N|
000005f0  0b de 20 43 25 20 32 30  0d 02 58 05 e1 0d 02 62  |.. C% 20..X....b|
00000600  0a f4 22 81 2a 2a 2a 0d  02 6c 0f dd f2 6f 73 63  |..".***..l...osc|
00000610  6c 69 28 6e 24 29 0d 02  76 07 ea 20 43 0d 02 80  |li(n$)..v.. C...|
00000620  0a de 20 43 20 31 34 0d  02 8a 09 24 43 3d 6e 24  |.. C 14....$C=n$|
00000630  0d 02 94 0d 58 25 3d 43  20 83 32 35 36 0d 02 9e  |....X%=C .256...|
00000640  0d 59 25 3d 43 20 81 32  35 36 0d 02 a8 0a d6 26  |.Y%=C .256.....&|
00000650  46 46 46 37 0d 02 b2 05  e1 0d 02 bc 0a f4 22 81  |FFF7..........".|
00000660  2a 2a 2a 0d 02 c6 0e dd  f2 65 72 72 6f 72 28 6e  |***......error(n|
00000670  29 0d 02 d0 0a db 3a f1  27 4c 24 0d 02 da 35 f1  |).....:.'L$...5.|
00000680  8a 30 2c 36 29 bd 31 34  31 3b 22 81 53 6f 72 72  |.0,6).141;".Sorr|
00000690  79 2c 20 65 72 72 6f 72  3a 22 27 bd 31 34 31 3b  |y, error:"'.141;|
000006a0  22 81 53 6f 72 72 79 2c  20 65 72 72 6f 72 3a 22  |".Sorry, error:"|
000006b0  0d 02 e4 57 e7 6e 3d 31  20 f1 27 27 bd 31 34 31  |...W.n=1 .''.141|
000006c0  3b 22 86 52 65 73 75 6c  74 73 20 6e 6f 74 20 62  |;".Results not b|
000006d0  65 69 6e 67 20 74 72 61  6e 73 6d 69 74 74 65 64  |eing transmitted|
000006e0  22 27 bd 31 34 31 3b 22  86 52 65 73 75 6c 74 73  |"'.141;".Results|
000006f0  20 6e 6f 74 20 62 65 69  6e 67 20 74 72 61 6e 73  | not being trans|
00000700  6d 69 74 74 65 64 22 0d  02 ee 57 e7 6e 3d 31 20  |mitted"...W.n=1 |
00000710  f1 27 27 bd 31 34 31 3b  22 83 54 72 79 20 61 67  |.''.141;".Try ag|
00000720  61 69 6e 20 61 66 74 65  72 20 53 61 74 75 72 64  |ain after Saturd|
00000730  61 79 20 50 2e 4d 2e 22  27 bd 31 34 31 3b 22 83  |ay P.M."'.141;".|
00000740  54 72 79 20 61 67 61 69  6e 20 61 66 74 65 72 20  |Try again after |
00000750  53 61 74 75 72 64 61 79  20 50 2e 4d 2e 22 0d 02  |Saturday P.M."..|
00000760  f8 41 e7 6e 3d 32 20 f1  27 27 bd 31 34 31 3b 22  |.A.n=2 .''.141;"|
00000770  86 41 64 61 70 74 65 72  20 6e 6f 74 20 6f 6e 2e  |.Adapter not on.|
00000780  22 27 bd 31 34 31 3b 22  86 41 64 61 70 74 65 72  |"'.141;".Adapter|
00000790  20 6e 6f 74 20 6f 6e 2e  22 3a e5 8d 54 56 43 0d  | not on.":..TVC.|
000007a0  03 02 4d e7 6e 3d 34 20  f1 27 27 bd 31 34 31 3b  |..M.n=4 .''.141;|
000007b0  22 86 46 6f 72 65 63 61  73 74 20 66 69 6c 65 20  |".Forecast file |
000007c0  6e 6f 74 20 66 6f 75 6e  64 2e 22 27 bd 31 34 31  |not found."'.141|
000007d0  3b 22 86 46 6f 72 65 63  61 73 74 20 66 69 6c 65  |;".Forecast file|
000007e0  20 6e 6f 74 20 66 6f 75  6e 64 2e 22 0d 03 0c 09  | not found."....|
000007f0  2a 48 4f 46 46 0d 03 16  05 e0 0d 03 20 0a f4 22  |*HOFF....... .."|
00000800  81 2a 2a 2a 0d 03 2a 15  dd a4 66 69 6e 64 5f 72  |.***..*...find_r|
00000810  65 73 75 6c 74 3a ea 42  25 0d 03 34 0c 42 25 3d  |esult:.B%..4.B%=|
00000820  41 25 2b 31 30 0d 03 3e  2f f5 3a 42 25 3d 42 25  |A%+10..>/.:B%=B%|
00000830  2b 31 3a fd 28 28 3f 42  25 3e 34 37 29 80 28 3f  |+1:.((?B%>47).(?|
00000840  42 25 3c 35 38 29 29 84  28 42 25 3e 28 41 25 2b  |B%<58)).(B%>(A%+|
00000850  33 35 29 29 0d 03 48 47  f1 8a 30 2c 32 33 29 22  |35))..HG..0,23)"|
00000860  81 43 61 6c 63 75 6c 61  74 69 6e 67 20 72 65 73  |.Calculating res|
00000870  75 6c 74 20 66 6f 72 20  6d 61 74 63 68 20 22 3b  |ult for match ";|
00000880  4d 25 3b 22 20 20 22 27  22 81 50 6c 65 61 73 65  |M%;"  "'".Please|
00000890  20 77 61 69 74 20 2e 2e  2e 22 3b 0d 03 52 17 e7  | wait ...";..R..|
000008a0  42 25 3e 28 41 25 2b 33  35 29 20 3d a4 70 61 6e  |B%>(A%+35) =.pan|
000008b0  65 6c 0d 03 5c 19 3f 28  a7 24 41 25 2c 22 2d 22  |el..\.?(.$A%,"-"|
000008c0  29 2b 41 25 2d 31 29 3d  26 41 44 0d 03 66 0d 48  |)+A%-1)=&AD..f.H|
000008d0  25 3d bb 28 24 42 25 29  0d 03 70 14 42 25 3d 42  |%=.($B%)..p.B%=B|
000008e0  25 2b 28 a9 28 c3 28 48  25 29 29 29 0d 03 7a 2f  |%+(.(.(H%)))..z/|
000008f0  f5 3a 42 25 3d 42 25 2b  31 3a fd 28 28 3f 42 25  |.:B%=B%+1:.((?B%|
00000900  3e 34 37 29 80 28 3f 42  25 3c 35 38 29 29 84 28  |>47).(?B%<58)).(|
00000910  42 25 3e 28 41 25 2b 33  35 29 29 0d 03 84 17 e7  |B%>(A%+35)).....|
00000920  42 25 3e 28 41 25 2b 33  35 29 20 3d a4 70 61 6e  |B%>(A%+35) =.pan|
00000930  65 6c 0d 03 8e 0d 49 25  3d bb 28 24 42 25 29 0d  |el....I%=.($B%).|
00000940  03 98 14 e7 48 25 3d 49  25 20 80 20 48 25 3d 30  |....H%=I% . H%=0|
00000950  20 3d 32 0d 03 a2 15 e7  48 25 3d 49 25 20 80 20  | =2.....H%=I% . |
00000960  48 25 3c 3e 30 20 3d 33  0d 03 ac 0f e7 48 25 3c  |H%<>0 =3.....H%<|
00000970  49 25 20 3d 31 2e 35 0d  03 b6 0d e7 48 25 3e 49  |I% =1.5.....H%>I|
00000980  25 20 3d 31 0d 03 c0 06  3d 30 0d 03 ca 0a f4 22  |% =1....=0....."|
00000990  81 2a 2a 2a 0d 03 d4 14  dd f2 72 65 70 6f 72 74  |.***......report|
000009a0  5f 72 65 73 75 6c 74 73  0d 03 de 3f 73 63 64 72  |_results...?scdr|
000009b0  61 77 73 25 3d 30 3a 61  77 61 79 73 25 3d 30 3a  |aws%=0:aways%=0:|
000009c0  68 6f 6d 65 73 25 3d 30  3a 6e 6f 74 66 6f 75 6e  |homes%=0:notfoun|
000009d0  64 25 3d 30 3a 6e 73 64  72 61 77 73 25 3d 30 3a  |d%=0:nsdraws%=0:|
000009e0  76 6f 69 64 25 3d 30 0d  03 e8 0e db 3a ef 31 34  |void%=0.....:.14|
000009f0  3a f1 4c 24 27 0d 03 f2  0e e3 41 25 3d 31 b8 6d  |:.L$'.....A%=1.m|
00000a00  61 78 25 0d 03 fc 53 e7  52 28 41 25 29 3d 30 20  |ax%...S.R(A%)=0 |
00000a10  f1 22 82 52 65 73 75 6c  74 20 66 6f 72 20 6d 61  |.".Result for ma|
00000a20  74 63 68 20 6e 6f 2e 83  22 3b 41 25 3b 22 82 6e  |tch no..";A%;".n|
00000a30  6f 74 20 66 6f 75 6e 64  2e 22 3a 6e 6f 74 66 6f  |ot found.":notfo|
00000a40  75 6e 64 25 3d 6e 6f 74  66 6f 75 6e 64 25 2b 31  |und%=notfound%+1|
00000a50  3a e5 8d 54 78 44 0d 04  06 49 e7 52 28 41 25 29  |:..TxD...I.R(A%)|
00000a60  3d 31 2e 35 20 f1 22 82  4d 61 74 63 68 20 6e 6f  |=1.5 .".Match no|
00000a70  2e 83 22 3b 41 25 3b 8a  31 34 29 3b 22 85 31 5c  |..";A%;.14);".1\|
00000a80  20 50 6f 69 6e 74 73 2e  22 3a 61 77 61 79 73 25  | Points.":aways%|
00000a90  3d 61 77 61 79 73 25 2b  31 3a e5 8d 54 78 44 0d  |=aways%+1:..TxD.|
00000aa0  04 10 4b e7 52 28 41 25  29 3d 32 20 f1 22 82 4d  |..K.R(A%)=2 .".M|
00000ab0  61 74 63 68 20 6e 6f 2e  83 22 3b 41 25 3b 8a 31  |atch no..";A%;.1|
00000ac0  34 29 3b 22 86 32 20 20  50 6f 69 6e 74 73 2e 22  |4);".2  Points."|
00000ad0  3a 6e 73 64 72 61 77 73  25 3d 6e 73 64 72 61 77  |:nsdraws%=nsdraw|
00000ae0  73 25 2b 31 3a e5 8d 54  78 44 0d 04 1a 4b e7 52  |s%+1:..TxD...K.R|
00000af0  28 41 25 29 3d 33 20 f1  22 82 4d 61 74 63 68 20  |(A%)=3 .".Match |
00000b00  6e 6f 2e 83 22 3b 41 25  3b 8a 31 34 29 3b 22 81  |no..";A%;.14);".|
00000b10  33 20 20 50 6f 69 6e 74  73 2e 22 3a 73 63 64 72  |3  Points.":scdr|
00000b20  61 77 73 25 3d 73 63 64  72 61 77 73 25 2b 31 3a  |aws%=scdraws%+1:|
00000b30  e5 8d 54 78 44 0d 04 24  58 e7 52 28 41 25 29 3d  |..TxD..$X.R(A%)=|
00000b40  31 2e 36 20 52 28 41 25  29 3d 31 2e 35 3a f1 22  |1.6 R(A%)=1.5:."|
00000b50  82 4d 61 74 63 68 20 6e  6f 2e 83 22 3b 41 25 3b  |.Match no..";A%;|
00000b60  8a 31 34 29 3b 22 20 76  6f 69 64 2e 20 28 31 5c  |.14);" void. (1\|
00000b70  20 50 6f 69 6e 74 73 29  22 3a 76 6f 69 64 25 3d  | Points)":void%=|
00000b80  76 6f 69 64 25 2b 31 3a  e5 8d 54 78 44 0d 04 2e  |void%+1:..TxD...|
00000b90  40 e7 52 28 41 25 29 3d  31 20 f1 22 82 4d 61 74  |@.R(A%)=1 .".Mat|
00000ba0  63 68 20 6e 6f 2e 83 22  3b 41 25 3b 8a 31 34 29  |ch no..";A%;.14)|
00000bb0  3b 22 87 31 20 20 50 6f  69 6e 74 2e 22 3a 68 6f  |;".1  Point.":ho|
00000bc0  6d 65 73 25 3d 68 6f 6d  65 73 25 2b 31 0d 04 38  |mes%=homes%+1..8|
00000bd0  05 ed 0d 04 42 05 e1 0d  04 4c 0a f4 22 81 2a 2a  |....B....L..".**|
00000be0  2a 0d 04 56 0d dd a4 63  6f 6d 70 61 72 65 0d 04  |*..V...compare..|
00000bf0  60 11 46 25 3d ad 28 22  52 44 41 54 41 22 29 0d  |`.F%=.("RDATA").|
00000c00  04 6a 13 e7 46 25 3d 30  20 f2 65 72 72 6f 72 28  |.j..F%=0 .error(|
00000c10  34 29 0d 04 74 09 74 6f  74 3d 30 0d 04 7e 0d e3  |4)..t.tot=0..~..|
00000c20  47 25 3d 31 b8 6e 6f 25  0d 04 88 11 4b 28 47 25  |G%=1.no%....K(G%|
00000c30  29 3d 52 28 9a 23 46 25  29 0d 04 92 11 74 6f 74  |)=R(.#F%)....tot|
00000c40  3d 74 6f 74 2b 4b 28 47  25 29 0d 04 9c 05 ed 0d  |=tot+K(G%)......|
00000c50  04 a6 0b f2 6e 6f 74 5f  69 6e 0d 04 b0 0f 6c 65  |....not_in....le|
00000c60  73 73 25 3d 6e 6f 25 2d  38 0d 04 ba 09 f2 73 6f  |ss%=no%-8.....so|
00000c70  72 74 0d 04 c4 12 e7 6c  65 73 73 25 3c 31 20 e5  |rt.....less%<1 .|
00000c80  8d 64 76 44 0d 04 ce 0f  e3 47 25 3d 31 b8 6c 65  |.dvD.....G%=1.le|
00000c90  73 73 25 0d 04 d8 13 74  6f 74 3d 74 6f 74 2d 28  |ss%....tot=tot-(|
00000ca0  4b 28 47 25 29 29 0d 04  e2 05 ed 0d 04 ec 08 d9  |K(G%))..........|
00000cb0  23 46 25 0d 04 f6 08 3d  74 6f 74 0d 05 00 0a f4  |#F%....=tot.....|
00000cc0  22 81 2a 2a 2a 0d 05 0a  0c dd f2 70 6f 69 6e 74  |".***......point|
00000cd0  73 0d 05 14 09 db 3a f1  4c 24 0d 05 1e 0e 50 3d  |s.....:.L$....P=|
00000ce0  a4 63 6f 6d 70 61 72 65  0d 05 28 2a f1 22 83 54  |.compare..(*.".T|
00000cf0  68 65 20 6d 61 78 69 6d  75 6d 20 6e 75 6d 62 65  |he maximum numbe|
00000d00  72 20 6f 66 20 70 6f 6f  6c 73 20 70 6f 69 6e 74  |r of pools point|
00000d10  73 22 0d 05 32 28 f1 22  83 79 6f 75 20 68 61 76  |s"..2(.".you hav|
00000d20  65 20 6f 62 74 61 69 6e  65 64 20 74 68 69 73 20  |e obtained this |
00000d30  77 65 65 6b 20 69 73 86  22 3b 0d 05 3c 1d e7 50  |week is.";..<..P|
00000d40  3c 3e a8 28 50 29 20 f1  3b a8 28 50 29 3b 22 5c  |<>.(P) .;.(P);"\|
00000d50  22 20 8b 20 f1 3b 50 0d  05 46 1c f1 27 27 22 82  |" . .;P..F..''".|
00000d60  20 54 6f 74 61 6c 73 20  74 68 69 73 20 77 65 65  | Totals this wee|
00000d70  6b 3a 22 0d 05 50 22 f1  27 89 37 3b 22 85 53 63  |k:"..P".'.7;".Sc|
00000d80  6f 72 65 20 64 72 61 77  73 3a 86 22 3b 73 63 64  |ore draws:.";scd|
00000d90  72 61 77 73 25 0d 05 5a  24 f1 3b 89 34 22 85 4e  |raws%..Z$.;.4".N|
00000da0  6f 2d 73 63 6f 72 65 20  64 72 61 77 73 3a 83 22  |o-score draws:."|
00000db0  3b 6e 73 64 72 61 77 73  25 0d 05 64 1e f1 3b 89  |;nsdraws%..d..;.|
00000dc0  39 3b 22 85 41 77 61 79  20 77 69 6e 73 3a 83 22  |9;".Away wins:."|
00000dd0  3b 61 77 61 79 73 25 0d  05 6e 1e f1 3b 89 39 3b  |;aways%..n..;.9;|
00000de0  22 85 48 6f 6d 65 20 77  69 6e 73 3a 83 22 3b 68  |".Home wins:.";h|
00000df0  6f 6d 65 73 25 0d 05 78  24 f1 3b 89 32 3b 22 85  |omes%..x$.;.2;".|
00000e00  56 6f 69 64 2f 4f 66 66  20 6d 61 74 63 68 65 73  |Void/Off matches|
00000e10  3a 83 22 3b 76 6f 69 64  25 0d 05 82 27 f1 22 20  |:.";void%...'." |
00000e20  85 52 65 73 75 6c 74 73  20 6e 6f 74 20 66 6f 75  |.Results not fou|
00000e30  6e 64 3a 83 22 3b 6e 6f  74 66 6f 75 6e 64 25 27  |nd:.";notfound%'|
00000e40  0d 05 8c 05 e1 0d 05 96  0a f4 22 81 2a 2a 2a 0d  |..........".***.|
00000e50  05 a0 0a dd f2 73 6f 72  74 0d 05 aa 0c e3 62 3d  |.....sort.....b=|
00000e60  31 b8 6e 6f 25 0d 05 b4  10 e3 61 3d 31 b8 28 6e  |1.no%.....a=1.(n|
00000e70  6f 25 2d 31 29 0d 05 be  34 e7 4b 28 61 29 3e 4b  |o%-1)...4.K(a)>K|
00000e80  28 61 2b 31 29 20 74 65  6d 70 31 3d 4b 28 61 29  |(a+1) temp1=K(a)|
00000e90  3a 4b 28 61 29 3d 4b 28  61 2b 31 29 3a 4b 28 61  |:K(a)=K(a+1):K(a|
00000ea0  2b 31 29 3d 74 65 6d 70  31 0d 05 c8 05 ed 0d 05  |+1)=temp1.......|
00000eb0  d2 05 ed 0d 05 dc 05 e1  0d 05 e6 0a f4 22 81 2a  |.............".*|
00000ec0  2a 2a 0d 05 f0 0c dd f2  6e 6f 74 5f 69 6e 0d 05  |**......not_in..|
00000ed0  fa 0b 66 6c 61 67 25 3d  30 0d 06 04 0d e3 47 25  |..flag%=0.....G%|
00000ee0  3d 31 b8 6e 6f 25 0d 06  0e 1a e7 4b 28 47 25 29  |=1.no%.....K(G%)|
00000ef0  3d 30 20 66 6c 61 67 25  3d 66 6c 61 67 25 2b 31  |=0 flag%=flag%+1|
00000f00  0d 06 18 05 ed 0d 06 22  13 e7 20 66 6c 61 67 25  |.......".. flag%|
00000f10  3d 30 20 e5 8d 44 40 46  0d 06 2c 5e f1 27 22 81  |=0 ..D@F..,^.'".|
00000f20  4e 6f 20 72 65 73 75 6c  74 73 20 68 61 76 65 20  |No results have |
00000f30  62 65 65 6e 20 66 6f 75  6e 64 20 66 6f 72 20 22  |been found for "|
00000f40  3b 66 6c 61 67 25 27 22  81 6f 66 20 74 68 65 20  |;flag%'".of the |
00000f50  6d 61 74 63 68 65 73 20  73 65 6c 65 63 74 65 64  |matches selected|
00000f60  20 62 79 20 74 68 65 22  27 22 81 70 72 65 64 69  | by the"'".predi|
00000f70  63 74 6f 72 2e 22 0d 06  36 60 f1 22 86 54 68 65  |ctor."..6`.".The|
00000f80  20 66 6f 6c 6c 6f 77 69  6e 67 20 63 61 6c 63 75  | following calcu|
00000f90  6c 61 74 69 6f 6e 20 68  61 73 20 62 65 65 6e 20  |lation has been |
00000fa0  6d 61 64 65 86 62 79 20  69 67 6e 6f 72 69 6e 67  |made.by ignoring|
00000fb0  20 74 68 65 20 61 63 74  75 61 6c 20 72 65 73 75  | the actual resu|
00000fc0  6c 74 73 20 6f 66 20 74  68 65 73 65 86 6d 61 74  |lts of these.mat|
00000fd0  63 68 65 73 2e 22 0d 06  40 05 e1 0d 06 4a 0d dd  |ches."..@....J..|
00000fe0  a4 42 42 43 64 61 74 65  0d 06 54 0f d1 3d 30 3a  |.BBCdate..T..=0:|
00000ff0  f5 fd 91 3e 31 32 30 0d  06 5e 32 41 25 3d 26 37  |...>120..^2A%=&7|
00001000  41 3a 58 25 3d 6c 6f 63  25 83 32 35 36 3a 59 25  |A:X%=loc%.256:Y%|
00001010  3d 6c 6f 63 25 81 32 35  36 3a 3f 6c 6f 63 25 3d  |=loc%.256:?loc%=|
00001020  31 35 3a d6 26 46 46 46  31 0d 06 68 17 42 42 31  |15:.&FFF1..h.BB1|
00001030  24 3d c2 c3 7e 28 6c 6f  63 25 3f 38 29 2c 31 29  |$=..~(loc%?8),1)|
00001040  0d 06 72 2d 42 42 32 24  3d c3 7e 28 6c 6f 63 25  |..r-BB2$=.~(loc%|
00001050  3f 39 29 3a e7 20 a9 28  42 42 32 24 29 3d 31 20  |?9):. .(BB2$)=1 |
00001060  42 42 32 24 3d 22 30 22  2b 42 42 32 24 0d 06 7c  |BB2$="0"+BB2$..||
00001070  2e 42 42 33 24 3d c3 7e  28 6c 6f 63 25 3f 31 30  |.BB3$=.~(loc%?10|
00001080  29 3a e7 20 a9 28 42 42  33 24 29 3d 31 20 42 42  |):. .(BB3$)=1 BB|
00001090  33 24 3d 22 30 22 2b 42  42 33 24 0d 06 86 18 4a  |3$="0"+BB3$....J|
000010a0  44 3d bb 28 42 42 31 24  2b 42 42 32 24 2b 42 42  |D=.(BB1$+BB2$+BB|
000010b0  33 24 29 0d 06 90 23 e7  4a 44 3c 34 36 37 39 36  |3$)...#.JD<46796|
000010c0  20 3d 22 44 61 74 65 20  6e 6f 74 20 61 76 61 69  | ="Date not avai|
000010d0  6c 61 62 6c 65 22 0d 06  9a 1f 59 31 3d 28 31 30  |lable"....Y1=(10|
000010e0  30 2a 28 4a 44 2d 31 35  30 37 38 2e 32 29 29 81  |0*(JD-15078.2)).|
000010f0  33 36 35 32 35 0d 06 a4  2b 4d 31 3d a8 28 28 4a  |36525...+M1=.((J|
00001100  44 2d 31 34 39 35 36 2e  31 2d a8 28 33 36 35 2e  |D-14956.1-.(365.|
00001110  32 35 2a 59 31 29 29 2f  33 30 2e 36 30 30 31 29  |25*Y1))/30.6001)|
00001120  0d 06 ae 3c 44 25 3d 4a  44 2d 31 34 39 35 36 2d  |...<D%=JD-14956-|
00001130  a8 28 33 36 35 2e 32 35  2a 59 31 29 2d a8 28 33  |.(365.25*Y1)-.(3|
00001140  30 2e 36 2a 4d 31 29 3a  4b 3d a8 28 30 2e 37 2b  |0.6*M1):K=.(0.7+|
00001150  28 31 2f 28 31 37 2d 4d  31 29 29 29 0d 06 b8 10  |(1/(17-M1)))....|
00001160  4d 25 3d 4d 31 2d 31 2d  31 32 2a 4b 0d 06 c2 0b  |M%=M1-1-12*K....|
00001170  5a 25 3d 59 31 2b 4b 0d  06 cc 31 57 25 3d 28 4a  |Z%=Y1+K...1W%=(J|
00001180  44 2b 33 29 83 37 3a f7  8d 64 56 46 3a e3 64 61  |D+3).7:..dVF:.da|
00001190  79 3d 30 b8 57 25 3a f3  44 24 3a ed 3a 44 24 3d  |y=0.W%:.D$:.:D$=|
000011a0  44 24 2b 22 64 61 79 22  0d 06 d6 29 dc 20 53 75  |D$+"day"...). Su|
000011b0  6e 2c 4d 6f 6e 2c 54 75  65 73 2c 57 65 64 6e 65  |n,Mon,Tues,Wedne|
000011c0  73 2c 54 68 75 72 73 2c  46 72 69 2c 53 61 74 75  |s,Thurs,Fri,Satu|
000011d0  72 0d 06 e0 1d f7 8d 64  6a 46 3a e3 64 61 79 3d  |r......djF:.day=|
000011e0  31 b8 4d 25 3a f3 6d 6f  6e 74 68 24 3a ed 0d 06  |1.M%:.month$:...|
000011f0  ea 5b dc 20 4a 61 6e 75  61 72 79 2c 46 65 62 72  |.[. January,Febr|
00001200  75 61 72 79 2c 4d 61 72  63 68 2c 41 70 72 69 6c  |uary,March,April|
00001210  2c 4d 61 79 2c 4a 75 6e  65 2c 4a 75 6c 79 2c 41  |,May,June,July,A|
00001220  75 67 75 73 74 2c 53 65  70 74 65 6d 62 65 72 2c  |ugust,September,|
00001230  4f 63 74 6f 62 65 72 2c  4e 6f 76 65 6d 62 65 72  |October,November|
00001240  2c 44 65 63 65 6d 62 65  72 0d 06 f4 58 e7 44 25  |,December...X.D%|
00001250  3d 31 84 44 25 3d 32 31  84 44 25 3d 33 31 20 74  |=1.D%=21.D%=31 t|
00001260  68 24 3d 22 73 74 2e 22  20 8b e7 44 25 3d 32 84  |h$="st." ..D%=2.|
00001270  44 25 3d 32 32 20 74 68  24 3d 22 6e 64 2e 22 20  |D%=22 th$="nd." |
00001280  8b e7 44 25 3d 33 84 44  25 3d 32 33 20 74 68 24  |..D%=3.D%=23 th$|
00001290  3d 22 72 64 2e 22 20 8b  74 68 24 3d 22 74 68 2e  |="rd." .th$="th.|
000012a0  22 0d 06 fe 2d 3d 44 24  2b 22 20 20 22 2b c3 28  |"...-=D$+"  "+.(|
000012b0  44 25 29 2b 74 68 24 2b  22 20 22 2b 6d 6f 6e 74  |D%)+th$+" "+mont|
000012c0  68 24 2b 22 20 31 39 22  2b c3 28 5a 25 29 0d 07  |h$+" 19"+.(Z%)..|
000012d0  08 0b f4 22 81 2a 2a 2a  2a 0d 07 12 17 dd a4 61  |...".****......a|
000012e0  64 61 70 74 65 72 3a de  20 77 6f 72 6b 25 20 32  |dapter:. work% 2|
000012f0  0d 07 1c 48 41 25 3d 26  37 41 3a 58 25 3d 77 6f  |...HA%=&7A:X%=wo|
00001300  72 6b 25 83 32 35 36 3a  59 25 3d 77 6f 72 6b 25  |rk%.256:Y%=work%|
00001310  81 32 35 36 3a 3f 77 6f  72 6b 25 3d 31 37 3a d6  |.256:?work%=17:.|
00001320  26 46 46 46 31 3a e7 77  6f 72 6b 25 3f 31 3d 30  |&FFF1:.work%?1=0|
00001330  20 3d b9 20 8b 20 3d a3  0d 07 26 0a f4 22 81 2a  | =. . =...&..".*|
00001340  2a 2a 0d 07 30 11 dd a4  63 68 65 63 6b 28 73 61  |**..0...check(sa|
00001350  74 25 29 0d 07 3a 08 ea  20 41 25 0d 07 44 0a db  |t%)..:.. A%..D..|
00001360  3a f1 27 4c 24 0d 07 4e  08 2a 48 4f 4e 0d 07 58  |:.'L$..N.*HON..X|
00001370  4f f1 bd 31 34 31 22 86  4c 6f 6f 6b 69 6e 67 20  |O..141".Looking |
00001380  66 6f 72 20 72 65 73 75  6c 74 73 20 70 61 67 65  |for results page|
00001390  73 20 2e 2e 2e 22 27 bd  31 34 31 22 86 4c 6f 6f  |s ..."'.141".Loo|
000013a0  6b 69 6e 67 20 66 6f 72  20 72 65 73 75 6c 74 73  |king for results|
000013b0  20 70 61 67 65 73 20 2e  2e 2e 22 3b 0d 07 62 11  | pages ...";..b.|
000013c0  70 6f 73 25 3d a4 67 65  74 5f 6f 6e 65 0d 07 6c  |pos%=.get_one..l|
000013d0  36 e3 41 25 3d 70 6f 73  25 20 b8 28 70 6f 73 25  |6.A%=pos% .(pos%|
000013e0  2b 26 33 43 30 29 3a 3f  41 25 3d 28 3f 41 25 80  |+&3C0):?A%=(?A%.|
000013f0  26 37 46 29 3a e7 3f 41  25 3c 33 32 20 3f 41 25  |&7F):.?A%<32 ?A%|
00001400  3d 33 32 0d 07 76 11 ed  3a 41 25 3d 70 6f 73 25  |=32..v..:A%=pos%|
00001410  2b 26 35 30 0d 07 80 0a  3f 41 25 3d 26 44 0d 07  |+&50....?A%=&D..|
00001420  8a 27 f5 3a 41 25 3d 41  25 2d 31 3a fd 3f 41 25  |.'.:A%=A%-1:.?A%|
00001430  3d 97 22 2f 22 20 84 20  41 25 3c 28 70 6f 73 25  |=."/" . A%<(pos%|
00001440  2b 26 32 38 29 0d 07 94  09 4a 25 3d 41 25 0d 07  |+&28)....J%=A%..|
00001450  9e 0d f5 3a 4a 25 3d 4a  25 2b 31 0d 07 a8 1f fd  |...:J%=J%+1.....|
00001460  3f 4a 25 3d 97 22 52 22  20 84 20 4a 25 3e 3d 28  |?J%=."R" . J%>=(|
00001470  70 6f 73 25 2b 26 31 31  32 29 0d 07 b2 1e e7 4a  |pos%+&112).....J|
00001480  25 3e 3d 28 70 6f 73 25  2b 26 31 31 32 29 20 f2  |%>=(pos%+&112) .|
00001490  65 72 72 6f 72 28 31 29  0d 07 bc 24 3f 28 4a 25  |error(1)...$?(J%|
000014a0  2b 37 29 3d 26 44 3a e7  24 4a 25 3c 3e 22 52 45  |+7)=&D:.$J%<>"RE|
000014b0  53 55 4c 54 53 22 20 e5  8d 74 5e 47 0d 07 c6 18  |SULTS" ..t^G....|
000014c0  e7 20 ac 20 73 61 74 25  3a 3d bb 28 24 28 41 25  |. . sat%:=.($(A%|
000014d0  2b 31 29 29 0d 07 d0 43  41 25 3d 70 6f 73 25 2b  |+1))...CA%=pos%+|
000014e0  28 32 33 2a 34 30 29 3a  f5 3a 41 25 3d 41 25 2b  |(23*40):.:A%=A%+|
000014f0  31 3a fd 3f 41 25 3d 97  22 2d 22 20 84 20 3f 41  |1:.?A%=."-" . ?A|
00001500  25 3d 97 22 5f 22 20 84  20 41 25 3e 28 70 6f 73  |%=."_" . A%>(pos|
00001510  25 2b 26 33 43 30 29 0d  07 da 16 e7 41 25 3e 28  |%+&3C0).....A%>(|
00001520  70 6f 73 25 2b 26 33 43  30 29 20 3d 38 0d 07 e4  |pos%+&3C0) =8...|
00001530  33 3f 28 41 25 2b 33 29  3d 26 44 3a e7 20 bb 28  |3?(A%+3)=&D:. .(|
00001540  24 28 41 25 2b 31 29 29  3d 30 20 3d 38 20 8b 20  |$(A%+1))=0 =8 . |
00001550  3d 28 bb 28 24 28 41 25  2b 31 29 29 29 83 34 30  |=(.($(A%+1))).40|
00001560  0d 07 ee 0a f4 22 81 2a  2a 2a 0d 07 f8 45 dc 20  |.....".***...E. |
00001570  33 34 31 33 46 37 46 2c  33 34 32 33 46 37 46 2c  |3413F7F,3423F7F,|
00001580  33 34 33 33 46 37 46 2c  33 34 34 33 46 37 46 2c  |3433F7F,3443F7F,|
00001590  33 34 35 33 46 37 46 2c  33 34 36 33 46 37 46 2c  |3453F7F,3463F7F,|
000015a0  33 34 37 33 46 37 46 2c  33 34 38 33 46 37 46 0d  |3473F7F,3483F7F.|
000015b0  08 02 45 dc 20 33 33 31  30 30 30 31 2c 33 33 31  |..E. 3310001,331|
000015c0  30 30 30 32 2c 33 33 31  30 30 30 33 2c 33 33 31  |0002,3310003,331|
000015d0  30 30 30 34 2c 33 33 31  30 30 30 35 2c 33 33 31  |0004,3310005,331|
000015e0  30 30 30 36 2c 33 33 31  30 30 30 37 2c 33 33 31  |0006,3310007,331|
000015f0  30 30 30 38 0d 08 0c 0a  f4 22 81 2a 2a 2a 0d 08  |0008.....".***..|
00001600  16 0b dd a4 70 61 6e 65  6c 0d 08 20 0c 42 25 3d  |....panel.. .B%=|
00001610  41 25 2b 33 35 0d 08 2a  2c f5 3a 42 25 3d 42 25  |A%+35..*,.:B%=B%|
00001620  2b 31 3a fd 28 3f 42 25  3e 34 38 20 80 3f 42 25  |+1:.(?B%>48 .?B%|
00001630  3c 35 32 29 20 84 20 42  25 3e 28 41 25 2b 34 30  |<52) . B%>(A%+40|
00001640  29 0d 08 34 26 e7 42 25  3e 28 41 25 2b 34 30 29  |)..4&.B%>(A%+40)|
00001650  20 80 20 a7 41 24 2c 22  20 4f 46 46 20 22 29 3c  | . .A$," OFF ")<|
00001660  3e 30 20 3d 31 2e 36 0d  08 3e 27 e7 42 25 3e 28  |>0 =1.6..>'.B%>(|
00001670  41 25 2b 34 30 29 20 80  20 a7 41 24 2c 22 20 56  |A%+40) . .A$," V|
00001680  4f 49 44 20 22 29 3c 3e  30 20 3d 31 2e 36 0d 08  |OID ")<>0 =1.6..|
00001690  48 12 e7 42 25 3e 28 41  25 2b 34 30 29 20 3d 30  |H..B%>(A%+40) =0|
000016a0  0d 08 52 0e e7 3f 42 25  3d 35 31 20 3d 33 0d 08  |..R..?B%=51 =3..|
000016b0  5c 0e e7 3f 42 25 3d 35  30 20 3d 32 0d 08 66 1d  |\..?B%=50 =2..f.|
000016c0  e7 3f 42 25 3d 34 39 20  80 20 3f 28 42 25 2b 31  |.?B%=49 . ?(B%+1|
000016d0  29 3d 39 32 20 3d 31 2e  35 0d 08 70 06 3d 31 0d  |)=92 =1.5..p.=1.|
000016e0  08 7a 0a f4 22 81 2a 2a  2a 0d 08 84 2c dd f2 73  |.z..".***...,..s|
000016f0  65 74 67 72 61 62 62 65  72 28 6e 6f 25 2c 6d 61  |etgrabber(no%,ma|
00001700  67 25 2c 70 61 67 65 25  2c 73 75 62 25 2c 73 74  |g%,page%,sub%,st|
00001710  6f 72 65 25 29 0d 08 8e  25 41 25 3d 26 37 41 3a  |ore%)...%A%=&7A:|
00001720  43 25 3f 30 3d 35 3a 58  25 3d 43 25 83 32 35 36  |C%?0=5:X%=C%.256|
00001730  3a 59 25 3d 43 25 81 32  35 36 0d 08 98 5d 43 25  |:Y%=C%.256...]C%|
00001740  3f 31 3d 6e 6f 25 3a 43  25 3f 32 3d 6d 61 67 25  |?1=no%:C%?2=mag%|
00001750  3a 43 25 3f 33 3d 70 61  67 65 25 3a 43 25 3f 34  |:C%?3=page%:C%?4|
00001760  3d 73 75 62 25 81 32 35  36 3a 43 25 3f 35 3d 73  |=sub%.256:C%?5=s|
00001770  75 62 25 83 32 35 36 3a  43 25 3f 36 3d 73 74 6f  |ub%.256:C%?6=sto|
00001780  72 65 25 83 32 35 36 3a  43 25 3f 37 3d 73 74 6f  |re%.256:C%?7=sto|
00001790  72 65 25 81 32 35 36 0d  08 a2 0a d6 26 46 46 46  |re%.256.....&FFF|
000017a0  31 0d 08 ac 05 e1 0d 08  b6 05 3a 0d 08 c0 14 dd  |1.........:.....|
000017b0  a4 63 68 65 63 6b 5f 67  6f 74 28 6e 6f 25 29 0d  |.check_got(no%).|
000017c0  08 ca 25 41 25 3d 26 37  41 3a 43 25 3f 30 3d 32  |..%A%=&7A:C%?0=2|
000017d0  3a 58 25 3d 43 25 83 32  35 36 3a 59 25 3d 43 25  |:X%=C%.256:Y%=C%|
000017e0  81 32 35 36 0d 08 d4 13  43 25 3f 31 3d 6e 6f 25  |.256....C%?1=no%|
000017f0  3a d6 26 46 46 46 31 0d  08 de 17 e7 28 43 25 3f  |:.&FFF1.....(C%?|
00001800  32 29 80 32 3d 32 20 3d  b9 20 8b 20 3d a3 0d 08  |2).2=2 =. . =...|
00001810  e8 05 3a 0d 08 f2 13 dd  f2 73 65 74 5f 68 6f 6c  |..:......set_hol|
00001820  64 28 6e 6f 25 29 0d 08  fc 25 41 25 3d 26 37 41  |d(no%)...%A%=&7A|
00001830  3a 43 25 3f 30 3d 33 3a  58 25 3d 43 25 83 32 35  |:C%?0=3:X%=C%.25|
00001840  36 3a 59 25 3d 43 25 81  32 35 36 0d 09 06 1a 43  |6:Y%=C%.256....C|
00001850  25 3f 31 3d 6e 6f 25 3a  43 25 3f 32 3d 33 3a d6  |%?1=no%:C%?2=3:.|
00001860  26 46 46 46 31 0d 09 10  05 e1 0d 09 1a 05 3a 0d  |&FFF1.........:.|
00001870  09 24 14 dd f2 72 65 73  65 74 5f 67 72 61 62 62  |.$...reset_grabb|
00001880  65 72 73 0d 09 2e 1e 41  25 3d 26 37 41 3a 58 25  |ers....A%=&7A:X%|
00001890  3d 43 25 83 32 35 36 3a  59 25 3d 43 25 81 32 35  |=C%.256:Y%=C%.25|
000018a0  36 0d 09 38 0b 43 25 3f  30 3d 31 34 0d 09 42 0a  |6..8.C%?0=14..B.|
000018b0  d6 26 46 46 46 31 0d 09  4c 05 e1 0d 09 56 14 dd  |.&FFF1..L....V..|
000018c0  f2 77 61 69 74 5f 66 6f  72 5f 70 61 67 65 73 0d  |.wait_for_pages.|
000018d0  09 60 0a f5 3a 53 25 3d  b9 0d 09 6a 24 e3 47 25  |.`..:S%=...j$.G%|
000018e0  3d 31 b8 67 72 61 62 62  65 72 73 3a 49 25 3d a4  |=1.grabbers:I%=.|
000018f0  63 68 65 63 6b 5f 67 6f  74 28 47 25 29 0d 09 74  |check_got(G%)..t|
00001900  51 e7 49 25 3d b9 20 80  20 47 25 28 47 25 29 3d  |Q.I%=. . G%(G%)=|
00001910  a3 3a 47 25 28 47 25 29  3d b9 3a f1 8a 32 30 2c  |.:G%(G%)=.:..20,|
00001920  31 31 2b 47 25 29 3b bd  31 33 34 3b 22 46 6f 75  |11+G%);.134;"Fou|
00001930  6e 64 22 3a f2 73 65 74  5f 68 6f 6c 64 28 47 25  |nd":.set_hold(G%|
00001940  29 3a f2 70 72 6f 63 65  73 73 28 47 25 29 0d 09  |):.process(G%)..|
00001950  7e 0e e7 49 25 3d a3 20  53 25 3d a3 0d 09 88 05  |~..I%=. S%=.....|
00001960  ed 0d 09 92 09 fd 53 25  3d b9 0d 09 9c 05 e1 0d  |......S%=.......|
00001970  09 a6 0a f4 22 81 2a 2a  2a 0d 09 b0 0d dd a4 67  |....".***......g|
00001980  65 74 5f 6f 6e 65 0d 09  ba 28 47 25 3d 30 3a f5  |et_one...(G%=0:.|
00001990  3a 47 25 3d 28 47 25 83  38 29 2b 31 3a fd a4 63  |:G%=(G%.8)+1:..c|
000019a0  68 65 63 6b 5f 67 6f 74  28 47 25 29 3d b9 0d 09  |heck_got(G%)=...|
000019b0  c4 17 3d 6c 6f 63 25 2b  28 28 47 25 2d 31 29 2a  |..=loc%+((G%-1)*|
000019c0  26 33 43 30 29 0d 09 ce  0c 72 65 6d 22 81 2a 2a  |&3C0)....rem".**|
000019d0  2a 0d 09 d8 12 dd f2 73  65 74 72 6f 77 73 28 6e  |*......setrows(n|
000019e0  6f 25 29 0d 09 e2 35 41  25 3d 26 37 41 3a 58 25  |o%)...5A%=&7A:X%|
000019f0  3d 43 25 83 32 35 36 3a  59 25 3d 43 25 20 81 32  |=C%.256:Y%=C% .2|
00001a00  35 36 3a 3f 43 25 3d 37  3a 43 25 3f 31 3d 6e 6f  |56:?C%=7:C%?1=no|
00001a10  25 3a d6 26 46 46 46 31  0d 09 ec 05 e1 0d ff     |%:.&FFF1.......|
00001a1f