#�"�****************************
#�"�*�POOLS  PREDICTOR PROGRAM�*
#�"�*�RESULTS CHECKING PROGRAM�*
(#�"�*�by�J.J.Brayshaw�Oct.1985�*
2#�"�*�Version 2m�November 1988�*
<#�"�*�For use with ATS & 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%=�
�where%=331
��allocatepages
�grabbers=�check(sat%)
�.�sat%=� � grabbers>10:��TLH:�allocatepages
�&�where%=332 � grabbers=0 �error(1)
�7�grabbers=0 � �TNH:�reset_grabbers:where%=332:�dp@
�
�:�'L$

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

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

�sat% � �dxG:� � �TBH

!�(sat%=�)�(grabbers>9):� �TLH

�where%=332 � �TNH

"�P%=1�grabbers

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

6�7,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%(10)
D� loc% 10*&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
*TTXOFF
�
 
�"�***
*ݤ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
g�pos%=0 =0
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) =0
�U%=?(J%+7)
�/?(J%+7)=&D:�$J%<>"RESULTS":?(J%+7)=U%:�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))<4 =8 � =(�($(A%+1)))�40
�
�"�***
�_� 341s3F7F,342s3F7F,343s3F7F,344s3F7F,345s3F7F,346s3F7F,347s3F7F,348s3F7F,349s3F7F,349s3F7F
_� 331s0001,331s0002,331s0003,331s0004,331s0005,331s0006,331s0007,331s0008,331s0009,331s0010
_� 341s3F7F,342s3F7F,343s3F7F,344s3F7F,345s3F7F,346s3F7F,347s3F7F,348s3F7F,349s0001,349s0002
_� 332s0001,332s0002,332s0003,332s0004,332s0005,332s0006,332s0007,332s0008,332s0009,332s0010

�"�***
ݤ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
	Y!�"�Set time delay: sat=2 mins
	Z�"�other days=4 mins
	['time=0:�sat% tim%=12000 �tim%=36000
	`
�: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%=� � �>tim%
	��
	�
�"�***
	�
ݤget_one
	�
del%=�
	�6G%=0:�:G%=(G%�8)+1:��check_got(G%)=� � �>del%+6000
	��>del%+6000 =0
	�=loc%+((G%-1)*&3C0)
	�rem"�***
	���setrows(no%)
	�5A%=&7A:X%=C%�256:Y%=C% �256:?C%=7:C%?1=no%:�&FFF1
	��
���allocatepages
�a�W%=1�10:�pp$:�setgrabber(W%,�(�pp$,1)),�("&"+�pp$,2,2)),�("&"+�pp$,4)),loc%+((W%-1)*&3C0)):�
��
�

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 6d 82  |.".*.Version 2m.|
000000a0  4e 6f 76 65 6d 62 65 72  20 31 39 38 38 81 2a 0d  |November 1988.*.|
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 26 20 41 54 53 2b 20  |with ATS & 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 de 0e 77 68 65 72 65  |:sat%=.....where|
000002e0  25 3d 33 33 31 0d 00 e6  12 f2 61 6c 6c 6f 63 61  |%=331.....alloca|
000002f0  74 65 70 61 67 65 73 0d  00 f0 19 67 72 61 62 62  |tepages....grabb|
00000300  65 72 73 3d a4 63 68 65  63 6b 28 73 61 74 25 29  |ers=.check(sat%)|
00000310  0d 00 f2 2e e7 73 61 74  25 3d b9 20 80 20 67 72  |.....sat%=. . gr|
00000320  61 62 62 65 72 73 3e 31  30 3a f7 8d 54 4c 48 3a  |abbers>10:..TLH:|
00000330  f2 61 6c 6c 6f 63 61 74  65 70 61 67 65 73 0d 00  |.allocatepages..|
00000340  f3 26 e7 77 68 65 72 65  25 3d 33 33 32 20 80 20  |.&.where%=332 . |
00000350  67 72 61 62 62 65 72 73  3d 30 20 f2 65 72 72 6f  |grabbers=0 .erro|
00000360  72 28 31 29 0d 00 f4 37  e7 67 72 61 62 62 65 72  |r(1)...7.grabber|
00000370  73 3d 30 20 f7 20 8d 54  4e 48 3a f2 72 65 73 65  |s=0 . .TNH:.rese|
00000380  74 5f 67 72 61 62 62 65  72 73 3a 77 68 65 72 65  |t_grabbers:where|
00000390  25 3d 33 33 32 3a e5 8d  64 70 40 0d 00 fa 0a db  |%=332:..dp@.....|
000003a0  3a f1 27 4c 24 0d 01 04  24 f1 bd 31 34 31 3b bd  |:.'L$...$..141;.|
000003b0  31 33 31 3b 64 61 74 65  24 27 bd 31 34 31 3b bd  |131;date$'.141;.|
000003c0  31 33 31 3b 64 61 74 65  24 0d 01 0e 35 f1 8a 31  |131;date$...5..1|
000003d0  2c 31 30 29 bd 31 33 31  3b 22 50 61 67 65 73 20  |,10).131;"Pages |
000003e0  72 65 71 75 69 72 65 64  3a 22 3b 8a 32 30 29 3b  |required:";.20);|
000003f0  22 50 61 67 65 73 20 66  6f 75 6e 64 3a 22 0d 01  |"Pages found:"..|
00000400  18 19 e7 73 61 74 25 20  f7 20 8d 64 78 47 3a 8b  |...sat% . .dxG:.|
00000410  20 f7 20 8d 54 42 48 0d  01 1d 21 e7 28 73 61 74  | . .TBH...!.(sat|
00000420  25 3d b9 29 80 28 67 72  61 62 62 65 72 73 3e 39  |%=.).(grabbers>9|
00000430  29 3a f7 20 8d 54 4c 48  0d 01 1f 16 e7 77 68 65  |):. .TLH.....whe|
00000440  72 65 25 3d 33 33 32 20  f7 20 8d 54 4e 48 0d 01  |re%=332 . .TNH..|
00000450  22 12 e3 50 25 3d 31 b8  67 72 61 62 62 65 72 73  |"..P%=1.grabbers|
00000460  0d 01 2c 1a f3 70 70 24  3a e7 73 61 74 25 20 70  |..,..pp$:.sat% p|
00000470  70 24 3d c0 70 70 24 2c  33 29 0d 01 36 17 f1 8a  |p$=.pp$,3)..6...|
00000480  37 2c 31 31 2b 50 25 29  3b bd 31 33 34 3b 70 70  |7,11+P%);.134;pp|
00000490  24 0d 01 40 05 ed 0d 01  4a 13 f2 77 61 69 74 5f  |$..@....J..wait_|
000004a0  66 6f 72 5f 70 61 67 65  73 0d 01 54 09 2a 48 4f  |for_pages..T.*HO|
000004b0  46 46 0d 01 5e 13 f2 72  65 70 6f 72 74 5f 72 65  |FF..^..report_re|
000004c0  73 75 6c 74 73 0d 01 68  2a f1 27 22 88 50 72 65  |sults..h*.'".Pre|
000004d0  73 73 89 53 50 41 43 45  88 74 6f 20 63 6f 6e 74  |ss.SPACE.to cont|
000004e0  69 6e 75 65 20 22 3b 3a  f5 3a fd a5 3d 33 32 0d  |inue ";:.:..=32.|
000004f0  01 72 0b f2 70 6f 69 6e  74 73 0d 01 7c 0b f1 8a  |.r..points..|...|
00000500  30 2c 30 29 3b 0d 01 86  0b 2a 54 54 58 4f 46 46  |0,0);....*TTXOFF|
00000510  0d 01 90 05 e0 0d 01 9a  0a f4 22 81 2a 2a 2a 0d  |..........".***.|
00000520  01 a4 12 dd f2 70 72 6f  63 65 73 73 28 67 72 25  |.....process(gr%|
00000530  29 0d 01 ae 1a 46 25 3d  6c 6f 63 25 2b 28 28 67  |)....F%=loc%+((g|
00000540  72 25 2d 31 29 2a 26 33  43 30 29 0d 01 b8 37 e3  |r%-1)*&3C0)...7.|
00000550  41 25 3d 28 46 25 2b 26  43 38 29 b8 28 46 25 2b  |A%=(F%+&C8).(F%+|
00000560  26 33 39 38 29 3a 3f 41  25 3d 28 3f 41 25 80 26  |&398):?A%=(?A%.&|
00000570  37 46 29 3a e7 3f 41 25  3c 33 32 20 3f 41 25 3d  |7F):.?A%<32 ?A%=|
00000580  33 32 0d 01 c2 05 ed 0d  01 cc 1e e3 41 25 3d 28  |32..........A%=(|
00000590  46 25 2b 26 43 38 29 b8  28 46 25 2b 26 33 39 38  |F%+&C8).(F%+&398|
000005a0  29 20 88 34 30 0d 01 d6  0f 54 25 3d 3f 28 41 25  |) .40....T%=?(A%|
000005b0  2b 34 30 29 0d 01 e0 0f  3f 28 41 25 2b 34 30 29  |+40)....?(A%+40)|
000005c0  3d 26 44 0d 01 ea 0a 41  24 3d 24 41 25 0d 01 f4  |=&D....A$=$A%...|
000005d0  30 4d 25 3d bb 28 41 24  29 3a e7 4d 25 3c 3e 30  |0M%=.(A$):.M%<>0|
000005e0  20 80 4d 25 3c 3d 6d 61  78 25 20 52 28 4d 25 29  | .M%<=max% R(M%)|
000005f0  3d a4 66 69 6e 64 5f 72  65 73 75 6c 74 0d 01 fe  |=.find_result...|
00000600  0f 3f 28 41 25 2b 34 30  29 3d 54 25 0d 02 08 05  |.?(A%+40)=T%....|
00000610  ed 0d 02 12 11 f1 8a 30  2c 32 33 29 89 28 37 30  |.......0,23).(70|
00000620  29 3b 0d 02 1c 05 e1 0d  02 26 0a f4 22 81 2a 2a  |);.......&..".**|
00000630  2a 0d 02 30 0b dd f2 73  65 74 75 70 0d 02 3a 23  |*..0...setup..:#|
00000640  de 4d 25 28 6d 61 78 25  29 2c 52 28 6d 61 78 25  |.M%(max%),R(max%|
00000650  29 2c 4b 28 6e 6f 25 29  2c 47 25 28 31 30 29 0d  |),K(no%),G%(10).|
00000660  02 44 12 de 20 6c 6f 63  25 20 31 30 2a 26 33 43  |.D.. loc% 10*&3C|
00000670  30 0d 02 4e 0b de 20 43  25 20 32 30 0d 02 58 05  |0..N.. C% 20..X.|
00000680  e1 0d 02 62 0a f4 22 81  2a 2a 2a 0d 02 6c 0f dd  |...b..".***..l..|
00000690  f2 6f 73 63 6c 69 28 6e  24 29 0d 02 76 07 ea 20  |.oscli(n$)..v.. |
000006a0  43 0d 02 80 0a de 20 43  20 31 34 0d 02 8a 09 24  |C..... C 14....$|
000006b0  43 3d 6e 24 0d 02 94 0d  58 25 3d 43 20 83 32 35  |C=n$....X%=C .25|
000006c0  36 0d 02 9e 0d 59 25 3d  43 20 81 32 35 36 0d 02  |6....Y%=C .256..|
000006d0  a8 0a d6 26 46 46 46 37  0d 02 b2 05 e1 0d 02 bc  |...&FFF7........|
000006e0  0a f4 22 81 2a 2a 2a 0d  02 c6 0e dd f2 65 72 72  |..".***......err|
000006f0  6f 72 28 6e 29 0d 02 d0  0a db 3a f1 27 4c 24 0d  |or(n).....:.'L$.|
00000700  02 da 35 f1 8a 30 2c 36  29 bd 31 34 31 3b 22 81  |..5..0,6).141;".|
00000710  53 6f 72 72 79 2c 20 65  72 72 6f 72 3a 22 27 bd  |Sorry, error:"'.|
00000720  31 34 31 3b 22 81 53 6f  72 72 79 2c 20 65 72 72  |141;".Sorry, err|
00000730  6f 72 3a 22 0d 02 e4 57  e7 6e 3d 31 20 f1 27 27  |or:"...W.n=1 .''|
00000740  bd 31 34 31 3b 22 86 52  65 73 75 6c 74 73 20 6e  |.141;".Results n|
00000750  6f 74 20 62 65 69 6e 67  20 74 72 61 6e 73 6d 69  |ot being transmi|
00000760  74 74 65 64 22 27 bd 31  34 31 3b 22 86 52 65 73  |tted"'.141;".Res|
00000770  75 6c 74 73 20 6e 6f 74  20 62 65 69 6e 67 20 74  |ults not being t|
00000780  72 61 6e 73 6d 69 74 74  65 64 22 0d 02 ee 57 e7  |ransmitted"...W.|
00000790  6e 3d 31 20 f1 27 27 bd  31 34 31 3b 22 83 54 72  |n=1 .''.141;".Tr|
000007a0  79 20 61 67 61 69 6e 20  61 66 74 65 72 20 53 61  |y again after Sa|
000007b0  74 75 72 64 61 79 20 50  2e 4d 2e 22 27 bd 31 34  |turday P.M."'.14|
000007c0  31 3b 22 83 54 72 79 20  61 67 61 69 6e 20 61 66  |1;".Try again af|
000007d0  74 65 72 20 53 61 74 75  72 64 61 79 20 50 2e 4d  |ter Saturday P.M|
000007e0  2e 22 0d 02 f8 41 e7 6e  3d 32 20 f1 27 27 bd 31  |."...A.n=2 .''.1|
000007f0  34 31 3b 22 86 41 64 61  70 74 65 72 20 6e 6f 74  |41;".Adapter not|
00000800  20 6f 6e 2e 22 27 bd 31  34 31 3b 22 86 41 64 61  | on."'.141;".Ada|
00000810  70 74 65 72 20 6e 6f 74  20 6f 6e 2e 22 3a e5 8d  |pter not on.":..|
00000820  54 56 43 0d 03 02 4d e7  6e 3d 34 20 f1 27 27 bd  |TVC...M.n=4 .''.|
00000830  31 34 31 3b 22 86 46 6f  72 65 63 61 73 74 20 66  |141;".Forecast f|
00000840  69 6c 65 20 6e 6f 74 20  66 6f 75 6e 64 2e 22 27  |ile not found."'|
00000850  bd 31 34 31 3b 22 86 46  6f 72 65 63 61 73 74 20  |.141;".Forecast |
00000860  66 69 6c 65 20 6e 6f 74  20 66 6f 75 6e 64 2e 22  |file not found."|
00000870  0d 03 0c 09 2a 48 4f 46  46 0d 03 11 0b 2a 54 54  |....*HOFF....*TT|
00000880  58 4f 46 46 0d 03 16 05  e0 0d 03 20 0a f4 22 81  |XOFF....... ..".|
00000890  2a 2a 2a 0d 03 2a 15 dd  a4 66 69 6e 64 5f 72 65  |***..*...find_re|
000008a0  73 75 6c 74 3a ea 42 25  0d 03 34 0c 42 25 3d 41  |sult:.B%..4.B%=A|
000008b0  25 2b 31 30 0d 03 3e 2f  f5 3a 42 25 3d 42 25 2b  |%+10..>/.:B%=B%+|
000008c0  31 3a fd 28 28 3f 42 25  3e 34 37 29 80 28 3f 42  |1:.((?B%>47).(?B|
000008d0  25 3c 35 38 29 29 84 28  42 25 3e 28 41 25 2b 33  |%<58)).(B%>(A%+3|
000008e0  35 29 29 0d 03 48 47 f1  8a 30 2c 32 33 29 22 81  |5))..HG..0,23)".|
000008f0  43 61 6c 63 75 6c 61 74  69 6e 67 20 72 65 73 75  |Calculating resu|
00000900  6c 74 20 66 6f 72 20 6d  61 74 63 68 20 22 3b 4d  |lt for match ";M|
00000910  25 3b 22 20 20 22 27 22  81 50 6c 65 61 73 65 20  |%;"  "'".Please |
00000920  77 61 69 74 20 2e 2e 2e  22 3b 0d 03 52 17 e7 42  |wait ...";..R..B|
00000930  25 3e 28 41 25 2b 33 35  29 20 3d a4 70 61 6e 65  |%>(A%+35) =.pane|
00000940  6c 0d 03 5c 19 3f 28 a7  24 41 25 2c 22 2d 22 29  |l..\.?(.$A%,"-")|
00000950  2b 41 25 2d 31 29 3d 26  41 44 0d 03 66 0d 48 25  |+A%-1)=&AD..f.H%|
00000960  3d bb 28 24 42 25 29 0d  03 70 14 42 25 3d 42 25  |=.($B%)..p.B%=B%|
00000970  2b 28 a9 28 c3 28 48 25  29 29 29 0d 03 7a 2f f5  |+(.(.(H%)))..z/.|
00000980  3a 42 25 3d 42 25 2b 31  3a fd 28 28 3f 42 25 3e  |:B%=B%+1:.((?B%>|
00000990  34 37 29 80 28 3f 42 25  3c 35 38 29 29 84 28 42  |47).(?B%<58)).(B|
000009a0  25 3e 28 41 25 2b 33 35  29 29 0d 03 84 17 e7 42  |%>(A%+35)).....B|
000009b0  25 3e 28 41 25 2b 33 35  29 20 3d a4 70 61 6e 65  |%>(A%+35) =.pane|
000009c0  6c 0d 03 8e 0d 49 25 3d  bb 28 24 42 25 29 0d 03  |l....I%=.($B%)..|
000009d0  98 14 e7 48 25 3d 49 25  20 80 20 48 25 3d 30 20  |...H%=I% . H%=0 |
000009e0  3d 32 0d 03 a2 15 e7 48  25 3d 49 25 20 80 20 48  |=2.....H%=I% . H|
000009f0  25 3c 3e 30 20 3d 33 0d  03 ac 0f e7 48 25 3c 49  |%<>0 =3.....H%<I|
00000a00  25 20 3d 31 2e 35 0d 03  b6 0d e7 48 25 3e 49 25  |% =1.5.....H%>I%|
00000a10  20 3d 31 0d 03 c0 06 3d  30 0d 03 ca 0a f4 22 81  | =1....=0.....".|
00000a20  2a 2a 2a 0d 03 d4 14 dd  f2 72 65 70 6f 72 74 5f  |***......report_|
00000a30  72 65 73 75 6c 74 73 0d  03 de 3f 73 63 64 72 61  |results...?scdra|
00000a40  77 73 25 3d 30 3a 61 77  61 79 73 25 3d 30 3a 68  |ws%=0:aways%=0:h|
00000a50  6f 6d 65 73 25 3d 30 3a  6e 6f 74 66 6f 75 6e 64  |omes%=0:notfound|
00000a60  25 3d 30 3a 6e 73 64 72  61 77 73 25 3d 30 3a 76  |%=0:nsdraws%=0:v|
00000a70  6f 69 64 25 3d 30 0d 03  e8 0e db 3a ef 31 34 3a  |oid%=0.....:.14:|
00000a80  f1 4c 24 27 0d 03 f2 0e  e3 41 25 3d 31 b8 6d 61  |.L$'.....A%=1.ma|
00000a90  78 25 0d 03 fc 53 e7 52  28 41 25 29 3d 30 20 f1  |x%...S.R(A%)=0 .|
00000aa0  22 82 52 65 73 75 6c 74  20 66 6f 72 20 6d 61 74  |".Result for mat|
00000ab0  63 68 20 6e 6f 2e 83 22  3b 41 25 3b 22 82 6e 6f  |ch no..";A%;".no|
00000ac0  74 20 66 6f 75 6e 64 2e  22 3a 6e 6f 74 66 6f 75  |t found.":notfou|
00000ad0  6e 64 25 3d 6e 6f 74 66  6f 75 6e 64 25 2b 31 3a  |nd%=notfound%+1:|
00000ae0  e5 8d 54 78 44 0d 04 06  49 e7 52 28 41 25 29 3d  |..TxD...I.R(A%)=|
00000af0  31 2e 35 20 f1 22 82 4d  61 74 63 68 20 6e 6f 2e  |1.5 .".Match no.|
00000b00  83 22 3b 41 25 3b 8a 31  34 29 3b 22 85 31 5c 20  |.";A%;.14);".1\ |
00000b10  50 6f 69 6e 74 73 2e 22  3a 61 77 61 79 73 25 3d  |Points.":aways%=|
00000b20  61 77 61 79 73 25 2b 31  3a e5 8d 54 78 44 0d 04  |aways%+1:..TxD..|
00000b30  10 4b e7 52 28 41 25 29  3d 32 20 f1 22 82 4d 61  |.K.R(A%)=2 .".Ma|
00000b40  74 63 68 20 6e 6f 2e 83  22 3b 41 25 3b 8a 31 34  |tch no..";A%;.14|
00000b50  29 3b 22 86 32 20 20 50  6f 69 6e 74 73 2e 22 3a  |);".2  Points.":|
00000b60  6e 73 64 72 61 77 73 25  3d 6e 73 64 72 61 77 73  |nsdraws%=nsdraws|
00000b70  25 2b 31 3a e5 8d 54 78  44 0d 04 1a 4b e7 52 28  |%+1:..TxD...K.R(|
00000b80  41 25 29 3d 33 20 f1 22  82 4d 61 74 63 68 20 6e  |A%)=3 .".Match n|
00000b90  6f 2e 83 22 3b 41 25 3b  8a 31 34 29 3b 22 81 33  |o..";A%;.14);".3|
00000ba0  20 20 50 6f 69 6e 74 73  2e 22 3a 73 63 64 72 61  |  Points.":scdra|
00000bb0  77 73 25 3d 73 63 64 72  61 77 73 25 2b 31 3a e5  |ws%=scdraws%+1:.|
00000bc0  8d 54 78 44 0d 04 24 58  e7 52 28 41 25 29 3d 31  |.TxD..$X.R(A%)=1|
00000bd0  2e 36 20 52 28 41 25 29  3d 31 2e 35 3a f1 22 82  |.6 R(A%)=1.5:.".|
00000be0  4d 61 74 63 68 20 6e 6f  2e 83 22 3b 41 25 3b 8a  |Match no..";A%;.|
00000bf0  31 34 29 3b 22 20 76 6f  69 64 2e 20 28 31 5c 20  |14);" void. (1\ |
00000c00  50 6f 69 6e 74 73 29 22  3a 76 6f 69 64 25 3d 76  |Points)":void%=v|
00000c10  6f 69 64 25 2b 31 3a e5  8d 54 78 44 0d 04 2e 40  |oid%+1:..TxD...@|
00000c20  e7 52 28 41 25 29 3d 31  20 f1 22 82 4d 61 74 63  |.R(A%)=1 .".Matc|
00000c30  68 20 6e 6f 2e 83 22 3b  41 25 3b 8a 31 34 29 3b  |h no..";A%;.14);|
00000c40  22 87 31 20 20 50 6f 69  6e 74 2e 22 3a 68 6f 6d  |".1  Point.":hom|
00000c50  65 73 25 3d 68 6f 6d 65  73 25 2b 31 0d 04 38 05  |es%=homes%+1..8.|
00000c60  ed 0d 04 42 05 e1 0d 04  4c 0a f4 22 81 2a 2a 2a  |...B....L..".***|
00000c70  0d 04 56 0d dd a4 63 6f  6d 70 61 72 65 0d 04 60  |..V...compare..`|
00000c80  11 46 25 3d ad 28 22 52  44 41 54 41 22 29 0d 04  |.F%=.("RDATA")..|
00000c90  6a 13 e7 46 25 3d 30 20  f2 65 72 72 6f 72 28 34  |j..F%=0 .error(4|
00000ca0  29 0d 04 74 09 74 6f 74  3d 30 0d 04 7e 0d e3 47  |)..t.tot=0..~..G|
00000cb0  25 3d 31 b8 6e 6f 25 0d  04 88 11 4b 28 47 25 29  |%=1.no%....K(G%)|
00000cc0  3d 52 28 9a 23 46 25 29  0d 04 92 11 74 6f 74 3d  |=R(.#F%)....tot=|
00000cd0  74 6f 74 2b 4b 28 47 25  29 0d 04 9c 05 ed 0d 04  |tot+K(G%).......|
00000ce0  a6 0b f2 6e 6f 74 5f 69  6e 0d 04 b0 0f 6c 65 73  |...not_in....les|
00000cf0  73 25 3d 6e 6f 25 2d 38  0d 04 ba 09 f2 73 6f 72  |s%=no%-8.....sor|
00000d00  74 0d 04 c4 12 e7 6c 65  73 73 25 3c 31 20 e5 8d  |t.....less%<1 ..|
00000d10  64 76 44 0d 04 ce 0f e3  47 25 3d 31 b8 6c 65 73  |dvD.....G%=1.les|
00000d20  73 25 0d 04 d8 13 74 6f  74 3d 74 6f 74 2d 28 4b  |s%....tot=tot-(K|
00000d30  28 47 25 29 29 0d 04 e2  05 ed 0d 04 ec 08 d9 23  |(G%))..........#|
00000d40  46 25 0d 04 f6 08 3d 74  6f 74 0d 05 00 0a f4 22  |F%....=tot....."|
00000d50  81 2a 2a 2a 0d 05 0a 0c  dd f2 70 6f 69 6e 74 73  |.***......points|
00000d60  0d 05 14 09 db 3a f1 4c  24 0d 05 1e 0e 50 3d a4  |.....:.L$....P=.|
00000d70  63 6f 6d 70 61 72 65 0d  05 28 2a f1 22 83 54 68  |compare..(*.".Th|
00000d80  65 20 6d 61 78 69 6d 75  6d 20 6e 75 6d 62 65 72  |e maximum number|
00000d90  20 6f 66 20 70 6f 6f 6c  73 20 70 6f 69 6e 74 73  | of pools points|
00000da0  22 0d 05 32 28 f1 22 83  79 6f 75 20 68 61 76 65  |"..2(.".you have|
00000db0  20 6f 62 74 61 69 6e 65  64 20 74 68 69 73 20 77  | obtained this w|
00000dc0  65 65 6b 20 69 73 86 22  3b 0d 05 3c 1d e7 50 3c  |eek is.";..<..P<|
00000dd0  3e a8 28 50 29 20 f1 3b  a8 28 50 29 3b 22 5c 22  |>.(P) .;.(P);"\"|
00000de0  20 8b 20 f1 3b 50 0d 05  46 1c f1 27 27 22 82 20  | . .;P..F..''". |
00000df0  54 6f 74 61 6c 73 20 74  68 69 73 20 77 65 65 6b  |Totals this week|
00000e00  3a 22 0d 05 50 22 f1 27  89 37 3b 22 85 53 63 6f  |:"..P".'.7;".Sco|
00000e10  72 65 20 64 72 61 77 73  3a 86 22 3b 73 63 64 72  |re draws:.";scdr|
00000e20  61 77 73 25 0d 05 5a 24  f1 3b 89 34 22 85 4e 6f  |aws%..Z$.;.4".No|
00000e30  2d 73 63 6f 72 65 20 64  72 61 77 73 3a 83 22 3b  |-score draws:.";|
00000e40  6e 73 64 72 61 77 73 25  0d 05 64 1e f1 3b 89 39  |nsdraws%..d..;.9|
00000e50  3b 22 85 41 77 61 79 20  77 69 6e 73 3a 83 22 3b  |;".Away wins:.";|
00000e60  61 77 61 79 73 25 0d 05  6e 1e f1 3b 89 39 3b 22  |aways%..n..;.9;"|
00000e70  85 48 6f 6d 65 20 77 69  6e 73 3a 83 22 3b 68 6f  |.Home wins:.";ho|
00000e80  6d 65 73 25 0d 05 78 24  f1 3b 89 32 3b 22 85 56  |mes%..x$.;.2;".V|
00000e90  6f 69 64 2f 4f 66 66 20  6d 61 74 63 68 65 73 3a  |oid/Off matches:|
00000ea0  83 22 3b 76 6f 69 64 25  0d 05 82 26 f1 22 20 85  |.";void%...&." .|
00000eb0  52 65 73 75 6c 74 73 20  6e 6f 74 20 66 6f 75 6e  |Results not foun|
00000ec0  64 3a 83 22 3b 6e 6f 74  66 6f 75 6e 64 25 0d 05  |d:.";notfound%..|
00000ed0  8c 05 e1 0d 05 96 0a f4  22 81 2a 2a 2a 0d 05 a0  |........".***...|
00000ee0  0a dd f2 73 6f 72 74 0d  05 aa 0c e3 62 3d 31 b8  |...sort.....b=1.|
00000ef0  6e 6f 25 0d 05 b4 10 e3  61 3d 31 b8 28 6e 6f 25  |no%.....a=1.(no%|
00000f00  2d 31 29 0d 05 be 34 e7  4b 28 61 29 3e 4b 28 61  |-1)...4.K(a)>K(a|
00000f10  2b 31 29 20 74 65 6d 70  31 3d 4b 28 61 29 3a 4b  |+1) temp1=K(a):K|
00000f20  28 61 29 3d 4b 28 61 2b  31 29 3a 4b 28 61 2b 31  |(a)=K(a+1):K(a+1|
00000f30  29 3d 74 65 6d 70 31 0d  05 c8 05 ed 0d 05 d2 05  |)=temp1.........|
00000f40  ed 0d 05 dc 05 e1 0d 05  e6 0a f4 22 81 2a 2a 2a  |...........".***|
00000f50  0d 05 f0 0c dd f2 6e 6f  74 5f 69 6e 0d 05 fa 0b  |......not_in....|
00000f60  66 6c 61 67 25 3d 30 0d  06 04 0d e3 47 25 3d 31  |flag%=0.....G%=1|
00000f70  b8 6e 6f 25 0d 06 0e 1a  e7 4b 28 47 25 29 3d 30  |.no%.....K(G%)=0|
00000f80  20 66 6c 61 67 25 3d 66  6c 61 67 25 2b 31 0d 06  | flag%=flag%+1..|
00000f90  18 05 ed 0d 06 22 13 e7  20 66 6c 61 67 25 3d 30  |.....".. flag%=0|
00000fa0  20 e5 8d 44 40 46 0d 06  2c 5e f1 27 22 81 4e 6f  | ..D@F..,^.'".No|
00000fb0  20 72 65 73 75 6c 74 73  20 68 61 76 65 20 62 65  | results have be|
00000fc0  65 6e 20 66 6f 75 6e 64  20 66 6f 72 20 22 3b 66  |en found for ";f|
00000fd0  6c 61 67 25 27 22 81 6f  66 20 74 68 65 20 6d 61  |lag%'".of the ma|
00000fe0  74 63 68 65 73 20 73 65  6c 65 63 74 65 64 20 62  |tches selected b|
00000ff0  79 20 74 68 65 22 27 22  81 70 72 65 64 69 63 74  |y the"'".predict|
00001000  6f 72 2e 22 0d 06 36 60  f1 22 86 54 68 65 20 66  |or."..6`.".The f|
00001010  6f 6c 6c 6f 77 69 6e 67  20 63 61 6c 63 75 6c 61  |ollowing calcula|
00001020  74 69 6f 6e 20 68 61 73  20 62 65 65 6e 20 6d 61  |tion has been ma|
00001030  64 65 86 62 79 20 69 67  6e 6f 72 69 6e 67 20 74  |de.by ignoring t|
00001040  68 65 20 61 63 74 75 61  6c 20 72 65 73 75 6c 74  |he actual result|
00001050  73 20 6f 66 20 74 68 65  73 65 86 6d 61 74 63 68  |s of these.match|
00001060  65 73 2e 22 0d 06 40 05  e1 0d 06 4a 0d dd a4 42  |es."..@....J...B|
00001070  42 43 64 61 74 65 0d 06  54 0f d1 3d 30 3a f5 fd  |BCdate..T..=0:..|
00001080  91 3e 31 32 30 0d 06 5e  32 41 25 3d 26 37 41 3a  |.>120..^2A%=&7A:|
00001090  58 25 3d 6c 6f 63 25 83  32 35 36 3a 59 25 3d 6c  |X%=loc%.256:Y%=l|
000010a0  6f 63 25 81 32 35 36 3a  3f 6c 6f 63 25 3d 31 35  |oc%.256:?loc%=15|
000010b0  3a d6 26 46 46 46 31 0d  06 68 17 42 42 31 24 3d  |:.&FFF1..h.BB1$=|
000010c0  c2 c3 7e 28 6c 6f 63 25  3f 38 29 2c 31 29 0d 06  |..~(loc%?8),1)..|
000010d0  72 2d 42 42 32 24 3d c3  7e 28 6c 6f 63 25 3f 39  |r-BB2$=.~(loc%?9|
000010e0  29 3a e7 20 a9 28 42 42  32 24 29 3d 31 20 42 42  |):. .(BB2$)=1 BB|
000010f0  32 24 3d 22 30 22 2b 42  42 32 24 0d 06 7c 2e 42  |2$="0"+BB2$..|.B|
00001100  42 33 24 3d c3 7e 28 6c  6f 63 25 3f 31 30 29 3a  |B3$=.~(loc%?10):|
00001110  e7 20 a9 28 42 42 33 24  29 3d 31 20 42 42 33 24  |. .(BB3$)=1 BB3$|
00001120  3d 22 30 22 2b 42 42 33  24 0d 06 86 18 4a 44 3d  |="0"+BB3$....JD=|
00001130  bb 28 42 42 31 24 2b 42  42 32 24 2b 42 42 33 24  |.(BB1$+BB2$+BB3$|
00001140  29 0d 06 90 23 e7 4a 44  3c 34 36 37 39 36 20 3d  |)...#.JD<46796 =|
00001150  22 44 61 74 65 20 6e 6f  74 20 61 76 61 69 6c 61  |"Date not availa|
00001160  62 6c 65 22 0d 06 9a 1f  59 31 3d 28 31 30 30 2a  |ble"....Y1=(100*|
00001170  28 4a 44 2d 31 35 30 37  38 2e 32 29 29 81 33 36  |(JD-15078.2)).36|
00001180  35 32 35 0d 06 a4 2b 4d  31 3d a8 28 28 4a 44 2d  |525...+M1=.((JD-|
00001190  31 34 39 35 36 2e 31 2d  a8 28 33 36 35 2e 32 35  |14956.1-.(365.25|
000011a0  2a 59 31 29 29 2f 33 30  2e 36 30 30 31 29 0d 06  |*Y1))/30.6001)..|
000011b0  ae 3c 44 25 3d 4a 44 2d  31 34 39 35 36 2d a8 28  |.<D%=JD-14956-.(|
000011c0  33 36 35 2e 32 35 2a 59  31 29 2d a8 28 33 30 2e  |365.25*Y1)-.(30.|
000011d0  36 2a 4d 31 29 3a 4b 3d  a8 28 30 2e 37 2b 28 31  |6*M1):K=.(0.7+(1|
000011e0  2f 28 31 37 2d 4d 31 29  29 29 0d 06 b8 10 4d 25  |/(17-M1)))....M%|
000011f0  3d 4d 31 2d 31 2d 31 32  2a 4b 0d 06 c2 0b 5a 25  |=M1-1-12*K....Z%|
00001200  3d 59 31 2b 4b 0d 06 cc  31 57 25 3d 28 4a 44 2b  |=Y1+K...1W%=(JD+|
00001210  33 29 83 37 3a f7 8d 64  56 46 3a e3 64 61 79 3d  |3).7:..dVF:.day=|
00001220  30 b8 57 25 3a f3 44 24  3a ed 3a 44 24 3d 44 24  |0.W%:.D$:.:D$=D$|
00001230  2b 22 64 61 79 22 0d 06  d6 29 dc 20 53 75 6e 2c  |+"day"...). Sun,|
00001240  4d 6f 6e 2c 54 75 65 73  2c 57 65 64 6e 65 73 2c  |Mon,Tues,Wednes,|
00001250  54 68 75 72 73 2c 46 72  69 2c 53 61 74 75 72 0d  |Thurs,Fri,Satur.|
00001260  06 e0 1d f7 8d 64 6a 46  3a e3 64 61 79 3d 31 b8  |.....djF:.day=1.|
00001270  4d 25 3a f3 6d 6f 6e 74  68 24 3a ed 0d 06 ea 5b  |M%:.month$:....[|
00001280  dc 20 4a 61 6e 75 61 72  79 2c 46 65 62 72 75 61  |. January,Februa|
00001290  72 79 2c 4d 61 72 63 68  2c 41 70 72 69 6c 2c 4d  |ry,March,April,M|
000012a0  61 79 2c 4a 75 6e 65 2c  4a 75 6c 79 2c 41 75 67  |ay,June,July,Aug|
000012b0  75 73 74 2c 53 65 70 74  65 6d 62 65 72 2c 4f 63  |ust,September,Oc|
000012c0  74 6f 62 65 72 2c 4e 6f  76 65 6d 62 65 72 2c 44  |tober,November,D|
000012d0  65 63 65 6d 62 65 72 0d  06 f4 58 e7 44 25 3d 31  |ecember...X.D%=1|
000012e0  84 44 25 3d 32 31 84 44  25 3d 33 31 20 74 68 24  |.D%=21.D%=31 th$|
000012f0  3d 22 73 74 2e 22 20 8b  e7 44 25 3d 32 84 44 25  |="st." ..D%=2.D%|
00001300  3d 32 32 20 74 68 24 3d  22 6e 64 2e 22 20 8b e7  |=22 th$="nd." ..|
00001310  44 25 3d 33 84 44 25 3d  32 33 20 74 68 24 3d 22  |D%=3.D%=23 th$="|
00001320  72 64 2e 22 20 8b 74 68  24 3d 22 74 68 2e 22 0d  |rd." .th$="th.".|
00001330  06 fe 2d 3d 44 24 2b 22  20 20 22 2b c3 28 44 25  |..-=D$+"  "+.(D%|
00001340  29 2b 74 68 24 2b 22 20  22 2b 6d 6f 6e 74 68 24  |)+th$+" "+month$|
00001350  2b 22 20 31 39 22 2b c3  28 5a 25 29 0d 07 08 0b  |+" 19"+.(Z%)....|
00001360  f4 22 81 2a 2a 2a 2a 0d  07 12 17 dd a4 61 64 61  |.".****......ada|
00001370  70 74 65 72 3a de 20 77  6f 72 6b 25 20 32 0d 07  |pter:. work% 2..|
00001380  1c 48 41 25 3d 26 37 41  3a 58 25 3d 77 6f 72 6b  |.HA%=&7A:X%=work|
00001390  25 83 32 35 36 3a 59 25  3d 77 6f 72 6b 25 81 32  |%.256:Y%=work%.2|
000013a0  35 36 3a 3f 77 6f 72 6b  25 3d 31 37 3a d6 26 46  |56:?work%=17:.&F|
000013b0  46 46 31 3a e7 77 6f 72  6b 25 3f 31 3d 30 20 3d  |FF1:.work%?1=0 =|
000013c0  b9 20 8b 20 3d a3 0d 07  26 0a f4 22 81 2a 2a 2a  |. . =...&..".***|
000013d0  0d 07 30 11 dd a4 63 68  65 63 6b 28 73 61 74 25  |..0...check(sat%|
000013e0  29 0d 07 3a 08 ea 20 41  25 0d 07 44 0a db 3a f1  |)..:.. A%..D..:.|
000013f0  27 4c 24 0d 07 4e 08 2a  48 4f 4e 0d 07 58 4f f1  |'L$..N.*HON..XO.|
00001400  bd 31 34 31 22 86 4c 6f  6f 6b 69 6e 67 20 66 6f  |.141".Looking fo|
00001410  72 20 72 65 73 75 6c 74  73 20 70 61 67 65 73 20  |r results pages |
00001420  2e 2e 2e 22 27 bd 31 34  31 22 86 4c 6f 6f 6b 69  |..."'.141".Looki|
00001430  6e 67 20 66 6f 72 20 72  65 73 75 6c 74 73 20 70  |ng for results p|
00001440  61 67 65 73 20 2e 2e 2e  22 3b 0d 07 62 11 70 6f  |ages ...";..b.po|
00001450  73 25 3d a4 67 65 74 5f  6f 6e 65 0d 07 67 0e e7  |s%=.get_one..g..|
00001460  70 6f 73 25 3d 30 20 3d  30 0d 07 6c 36 e3 41 25  |pos%=0 =0..l6.A%|
00001470  3d 70 6f 73 25 20 b8 28  70 6f 73 25 2b 26 33 43  |=pos% .(pos%+&3C|
00001480  30 29 3a 3f 41 25 3d 28  3f 41 25 80 26 37 46 29  |0):?A%=(?A%.&7F)|
00001490  3a e7 3f 41 25 3c 33 32  20 3f 41 25 3d 33 32 0d  |:.?A%<32 ?A%=32.|
000014a0  07 76 11 ed 3a 41 25 3d  70 6f 73 25 2b 26 35 30  |.v..:A%=pos%+&50|
000014b0  0d 07 80 0a 3f 41 25 3d  26 44 0d 07 8a 27 f5 3a  |....?A%=&D...'.:|
000014c0  41 25 3d 41 25 2d 31 3a  fd 3f 41 25 3d 97 22 2f  |A%=A%-1:.?A%=."/|
000014d0  22 20 84 20 41 25 3c 28  70 6f 73 25 2b 26 32 38  |" . A%<(pos%+&28|
000014e0  29 0d 07 94 09 4a 25 3d  41 25 0d 07 9e 0d f5 3a  |)....J%=A%.....:|
000014f0  4a 25 3d 4a 25 2b 31 0d  07 a8 1f fd 3f 4a 25 3d  |J%=J%+1.....?J%=|
00001500  97 22 52 22 20 84 20 4a  25 3e 3d 28 70 6f 73 25  |."R" . J%>=(pos%|
00001510  2b 26 31 31 32 29 0d 07  b2 17 e7 4a 25 3e 3d 28  |+&112).....J%>=(|
00001520  70 6f 73 25 2b 26 31 31  32 29 20 3d 30 0d 07 b7  |pos%+&112) =0...|
00001530  0e 55 25 3d 3f 28 4a 25  2b 37 29 0d 07 bc 2f 3f  |.U%=?(J%+7).../?|
00001540  28 4a 25 2b 37 29 3d 26  44 3a e7 24 4a 25 3c 3e  |(J%+7)=&D:.$J%<>|
00001550  22 52 45 53 55 4c 54 53  22 3a 3f 28 4a 25 2b 37  |"RESULTS":?(J%+7|
00001560  29 3d 55 25 3a e5 8d 74  5e 47 0d 07 c6 18 e7 20  |)=U%:..t^G..... |
00001570  ac 20 73 61 74 25 3a 3d  bb 28 24 28 41 25 2b 31  |. sat%:=.($(A%+1|
00001580  29 29 0d 07 d0 43 41 25  3d 70 6f 73 25 2b 28 32  |))...CA%=pos%+(2|
00001590  33 2a 34 30 29 3a f5 3a  41 25 3d 41 25 2b 31 3a  |3*40):.:A%=A%+1:|
000015a0  fd 3f 41 25 3d 97 22 2d  22 20 84 20 3f 41 25 3d  |.?A%=."-" . ?A%=|
000015b0  97 22 5f 22 20 84 20 41  25 3e 28 70 6f 73 25 2b  |."_" . A%>(pos%+|
000015c0  26 33 43 30 29 0d 07 da  16 e7 41 25 3e 28 70 6f  |&3C0).....A%>(po|
000015d0  73 25 2b 26 33 43 30 29  20 3d 38 0d 07 e4 33 3f  |s%+&3C0) =8...3?|
000015e0  28 41 25 2b 33 29 3d 26  44 3a e7 20 bb 28 24 28  |(A%+3)=&D:. .($(|
000015f0  41 25 2b 31 29 29 3c 34  20 3d 38 20 8b 20 3d 28  |A%+1))<4 =8 . =(|
00001600  bb 28 24 28 41 25 2b 31  29 29 29 83 34 30 0d 07  |.($(A%+1))).40..|
00001610  ee 0a f4 22 81 2a 2a 2a  0d 07 f8 5f dc 20 33 34  |...".***..._. 34|
00001620  31 73 33 46 37 46 2c 33  34 32 73 33 46 37 46 2c  |1s3F7F,342s3F7F,|
00001630  33 34 33 73 33 46 37 46  2c 33 34 34 73 33 46 37  |343s3F7F,344s3F7|
00001640  46 2c 33 34 35 73 33 46  37 46 2c 33 34 36 73 33  |F,345s3F7F,346s3|
00001650  46 37 46 2c 33 34 37 73  33 46 37 46 2c 33 34 38  |F7F,347s3F7F,348|
00001660  73 33 46 37 46 2c 33 34  39 73 33 46 37 46 2c 33  |s3F7F,349s3F7F,3|
00001670  34 39 73 33 46 37 46 0d  08 02 5f dc 20 33 33 31  |49s3F7F..._. 331|
00001680  73 30 30 30 31 2c 33 33  31 73 30 30 30 32 2c 33  |s0001,331s0002,3|
00001690  33 31 73 30 30 30 33 2c  33 33 31 73 30 30 30 34  |31s0003,331s0004|
000016a0  2c 33 33 31 73 30 30 30  35 2c 33 33 31 73 30 30  |,331s0005,331s00|
000016b0  30 36 2c 33 33 31 73 30  30 30 37 2c 33 33 31 73  |06,331s0007,331s|
000016c0  30 30 30 38 2c 33 33 31  73 30 30 30 39 2c 33 33  |0008,331s0009,33|
000016d0  31 73 30 30 31 30 0d 08  0c 5f dc 20 33 34 31 73  |1s0010..._. 341s|
000016e0  33 46 37 46 2c 33 34 32  73 33 46 37 46 2c 33 34  |3F7F,342s3F7F,34|
000016f0  33 73 33 46 37 46 2c 33  34 34 73 33 46 37 46 2c  |3s3F7F,344s3F7F,|
00001700  33 34 35 73 33 46 37 46  2c 33 34 36 73 33 46 37  |345s3F7F,346s3F7|
00001710  46 2c 33 34 37 73 33 46  37 46 2c 33 34 38 73 33  |F,347s3F7F,348s3|
00001720  46 37 46 2c 33 34 39 73  30 30 30 31 2c 33 34 39  |F7F,349s0001,349|
00001730  73 30 30 30 32 0d 08 0e  5f dc 20 33 33 32 73 30  |s0002..._. 332s0|
00001740  30 30 31 2c 33 33 32 73  30 30 30 32 2c 33 33 32  |001,332s0002,332|
00001750  73 30 30 30 33 2c 33 33  32 73 30 30 30 34 2c 33  |s0003,332s0004,3|
00001760  33 32 73 30 30 30 35 2c  33 33 32 73 30 30 30 36  |32s0005,332s0006|
00001770  2c 33 33 32 73 30 30 30  37 2c 33 33 32 73 30 30  |,332s0007,332s00|
00001780  30 38 2c 33 33 32 73 30  30 30 39 2c 33 33 32 73  |08,332s0009,332s|
00001790  30 30 31 30 0d 08 11 0a  f4 22 81 2a 2a 2a 0d 08  |0010.....".***..|
000017a0  16 0b dd a4 70 61 6e 65  6c 0d 08 20 0c 42 25 3d  |....panel.. .B%=|
000017b0  41 25 2b 33 35 0d 08 2a  2c f5 3a 42 25 3d 42 25  |A%+35..*,.:B%=B%|
000017c0  2b 31 3a fd 28 3f 42 25  3e 34 38 20 80 3f 42 25  |+1:.(?B%>48 .?B%|
000017d0  3c 35 32 29 20 84 20 42  25 3e 28 41 25 2b 34 30  |<52) . B%>(A%+40|
000017e0  29 0d 08 34 26 e7 42 25  3e 28 41 25 2b 34 30 29  |)..4&.B%>(A%+40)|
000017f0  20 80 20 a7 41 24 2c 22  20 4f 46 46 20 22 29 3c  | . .A$," OFF ")<|
00001800  3e 30 20 3d 31 2e 36 0d  08 3e 27 e7 42 25 3e 28  |>0 =1.6..>'.B%>(|
00001810  41 25 2b 34 30 29 20 80  20 a7 41 24 2c 22 20 56  |A%+40) . .A$," V|
00001820  4f 49 44 20 22 29 3c 3e  30 20 3d 31 2e 36 0d 08  |OID ")<>0 =1.6..|
00001830  48 12 e7 42 25 3e 28 41  25 2b 34 30 29 20 3d 30  |H..B%>(A%+40) =0|
00001840  0d 08 52 0e e7 3f 42 25  3d 35 31 20 3d 33 0d 08  |..R..?B%=51 =3..|
00001850  5c 0e e7 3f 42 25 3d 35  30 20 3d 32 0d 08 66 1d  |\..?B%=50 =2..f.|
00001860  e7 3f 42 25 3d 34 39 20  80 20 3f 28 42 25 2b 31  |.?B%=49 . ?(B%+1|
00001870  29 3d 39 32 20 3d 31 2e  35 0d 08 70 06 3d 31 0d  |)=92 =1.5..p.=1.|
00001880  08 7a 0a f4 22 81 2a 2a  2a 0d 08 84 2c dd f2 73  |.z..".***...,..s|
00001890  65 74 67 72 61 62 62 65  72 28 6e 6f 25 2c 6d 61  |etgrabber(no%,ma|
000018a0  67 25 2c 70 61 67 65 25  2c 73 75 62 25 2c 73 74  |g%,page%,sub%,st|
000018b0  6f 72 65 25 29 0d 08 8e  25 41 25 3d 26 37 41 3a  |ore%)...%A%=&7A:|
000018c0  43 25 3f 30 3d 35 3a 58  25 3d 43 25 83 32 35 36  |C%?0=5:X%=C%.256|
000018d0  3a 59 25 3d 43 25 81 32  35 36 0d 08 98 5d 43 25  |:Y%=C%.256...]C%|
000018e0  3f 31 3d 6e 6f 25 3a 43  25 3f 32 3d 6d 61 67 25  |?1=no%:C%?2=mag%|
000018f0  3a 43 25 3f 33 3d 70 61  67 65 25 3a 43 25 3f 34  |:C%?3=page%:C%?4|
00001900  3d 73 75 62 25 81 32 35  36 3a 43 25 3f 35 3d 73  |=sub%.256:C%?5=s|
00001910  75 62 25 83 32 35 36 3a  43 25 3f 36 3d 73 74 6f  |ub%.256:C%?6=sto|
00001920  72 65 25 83 32 35 36 3a  43 25 3f 37 3d 73 74 6f  |re%.256:C%?7=sto|
00001930  72 65 25 81 32 35 36 0d  08 a2 0a d6 26 46 46 46  |re%.256.....&FFF|
00001940  31 0d 08 ac 05 e1 0d 08  b6 05 3a 0d 08 c0 14 dd  |1.........:.....|
00001950  a4 63 68 65 63 6b 5f 67  6f 74 28 6e 6f 25 29 0d  |.check_got(no%).|
00001960  08 ca 25 41 25 3d 26 37  41 3a 43 25 3f 30 3d 32  |..%A%=&7A:C%?0=2|
00001970  3a 58 25 3d 43 25 83 32  35 36 3a 59 25 3d 43 25  |:X%=C%.256:Y%=C%|
00001980  81 32 35 36 0d 08 d4 13  43 25 3f 31 3d 6e 6f 25  |.256....C%?1=no%|
00001990  3a d6 26 46 46 46 31 0d  08 de 19 e7 28 28 43 25  |:.&FFF1.....((C%|
000019a0  3f 32 29 80 32 29 3d 32  20 3d b9 20 8b 20 3d a3  |?2).2)=2 =. . =.|
000019b0  0d 08 e8 05 3a 0d 08 f2  13 dd f2 73 65 74 5f 68  |....:......set_h|
000019c0  6f 6c 64 28 6e 6f 25 29  0d 08 fc 25 41 25 3d 26  |old(no%)...%A%=&|
000019d0  37 41 3a 43 25 3f 30 3d  33 3a 58 25 3d 43 25 83  |7A:C%?0=3:X%=C%.|
000019e0  32 35 36 3a 59 25 3d 43  25 81 32 35 36 0d 09 06  |256:Y%=C%.256...|
000019f0  1a 43 25 3f 31 3d 6e 6f  25 3a 43 25 3f 32 3d 33  |.C%?1=no%:C%?2=3|
00001a00  3a d6 26 46 46 46 31 0d  09 10 05 e1 0d 09 1a 05  |:.&FFF1.........|
00001a10  3a 0d 09 24 14 dd f2 72  65 73 65 74 5f 67 72 61  |:..$...reset_gra|
00001a20  62 62 65 72 73 0d 09 2e  1e 41 25 3d 26 37 41 3a  |bbers....A%=&7A:|
00001a30  58 25 3d 43 25 83 32 35  36 3a 59 25 3d 43 25 81  |X%=C%.256:Y%=C%.|
00001a40  32 35 36 0d 09 38 0b 43  25 3f 30 3d 31 34 0d 09  |256..8.C%?0=14..|
00001a50  42 0a d6 26 46 46 46 31  0d 09 4c 05 e1 0d 09 56  |B..&FFF1..L....V|
00001a60  14 dd f2 77 61 69 74 5f  66 6f 72 5f 70 61 67 65  |...wait_for_page|
00001a70  73 0d 09 59 21 f4 22 82  53 65 74 20 74 69 6d 65  |s..Y!.".Set time|
00001a80  20 64 65 6c 61 79 3a 20  73 61 74 3d 32 20 6d 69  | delay: sat=2 mi|
00001a90  6e 73 0d 09 5a 18 f4 22  82 6f 74 68 65 72 20 64  |ns..Z..".other d|
00001aa0  61 79 73 3d 34 20 6d 69  6e 73 0d 09 5b 27 74 69  |ays=4 mins..['ti|
00001ab0  6d 65 3d 30 3a e7 73 61  74 25 20 74 69 6d 25 3d  |me=0:.sat% tim%=|
00001ac0  31 32 30 30 30 20 8b 74  69 6d 25 3d 33 36 30 30  |12000 .tim%=3600|
00001ad0  30 0d 09 60 0a f5 3a 53  25 3d b9 0d 09 6a 24 e3  |0..`..:S%=...j$.|
00001ae0  47 25 3d 31 b8 67 72 61  62 62 65 72 73 3a 49 25  |G%=1.grabbers:I%|
00001af0  3d a4 63 68 65 63 6b 5f  67 6f 74 28 47 25 29 0d  |=.check_got(G%).|
00001b00  09 74 51 e7 49 25 3d b9  20 80 20 47 25 28 47 25  |.tQ.I%=. . G%(G%|
00001b10  29 3d a3 3a 47 25 28 47  25 29 3d b9 3a f1 8a 32  |)=.:G%(G%)=.:..2|
00001b20  30 2c 31 31 2b 47 25 29  3b bd 31 33 34 3b 22 46  |0,11+G%);.134;"F|
00001b30  6f 75 6e 64 22 3a f2 73  65 74 5f 68 6f 6c 64 28  |ound":.set_hold(|
00001b40  47 25 29 3a f2 70 72 6f  63 65 73 73 28 47 25 29  |G%):.process(G%)|
00001b50  0d 09 7e 0e e7 49 25 3d  a3 20 53 25 3d a3 0d 09  |..~..I%=. S%=...|
00001b60  88 05 ed 0d 09 92 12 fd  53 25 3d b9 20 84 20 91  |........S%=. . .|
00001b70  3e 74 69 6d 25 0d 09 9c  05 e1 0d 09 a6 0a f4 22  |>tim%.........."|
00001b80  81 2a 2a 2a 0d 09 b0 0d  dd a4 67 65 74 5f 6f 6e  |.***......get_on|
00001b90  65 0d 09 b5 0a 64 65 6c  25 3d 91 0d 09 ba 36 47  |e....del%=....6G|
00001ba0  25 3d 30 3a f5 3a 47 25  3d 28 47 25 83 38 29 2b  |%=0:.:G%=(G%.8)+|
00001bb0  31 3a fd a4 63 68 65 63  6b 5f 67 6f 74 28 47 25  |1:..check_got(G%|
00001bc0  29 3d b9 20 84 20 91 3e  64 65 6c 25 2b 36 30 30  |)=. . .>del%+600|
00001bd0  30 0d 09 bf 13 e7 91 3e  64 65 6c 25 2b 36 30 30  |0......>del%+600|
00001be0  30 20 3d 30 0d 09 c4 17  3d 6c 6f 63 25 2b 28 28  |0 =0....=loc%+((|
00001bf0  47 25 2d 31 29 2a 26 33  43 30 29 0d 09 ce 0c 72  |G%-1)*&3C0)....r|
00001c00  65 6d 22 81 2a 2a 2a 0d  09 d8 12 dd f2 73 65 74  |em".***......set|
00001c10  72 6f 77 73 28 6e 6f 25  29 0d 09 e2 35 41 25 3d  |rows(no%)...5A%=|
00001c20  26 37 41 3a 58 25 3d 43  25 83 32 35 36 3a 59 25  |&7A:X%=C%.256:Y%|
00001c30  3d 43 25 20 81 32 35 36  3a 3f 43 25 3d 37 3a 43  |=C% .256:?C%=7:C|
00001c40  25 3f 31 3d 6e 6f 25 3a  d6 26 46 46 46 31 0d 09  |%?1=no%:.&FFF1..|
00001c50  ec 05 e1 0d 13 88 13 dd  f2 61 6c 6c 6f 63 61 74  |.........allocat|
00001c60  65 70 61 67 65 73 0d 13  92 61 e3 57 25 3d 31 b8  |epages...a.W%=1.|
00001c70  31 30 3a f3 70 70 24 3a  f2 73 65 74 67 72 61 62  |10:.pp$:.setgrab|
00001c80  62 65 72 28 57 25 2c bb  28 c0 70 70 24 2c 31 29  |ber(W%,.(.pp$,1)|
00001c90  29 2c a0 28 22 26 22 2b  c1 70 70 24 2c 32 2c 32  |),.("&"+.pp$,2,2|
00001ca0  29 29 2c a0 28 22 26 22  2b c2 70 70 24 2c 34 29  |)),.("&"+.pp$,4)|
00001cb0  29 2c 6c 6f 63 25 2b 28  28 57 25 2d 31 29 2a 26  |),loc%+((W%-1)*&|
00001cc0  33 43 30 29 29 3a ed 0d  13 9c 05 e1 0d ff        |3C0)):........|
00001cce