$�"�*****************************
$�"�*�POOLS  PREDICTOR  PROGRAM�*
$�"�*�MATCH    DATA    COMPILER�*
($�"�*�by�J.J.Brayshaw�Oct. 1985�*
2$�"�*****************************
<$�"�*�September 1987 (2)       �*
F$�"�*****************************
P�7
Z
*TTXON
d�23;8202;0;0;0;
n�"�No of matches on coupon:
xmax%=58
�
�setup
�$� � �adapter �"No Ttx adapter":�
�
*TELESOFT
�	*BBC2
�*HON
��setlength(24)
�\�:�'logo$'''�141;"�Looking for fixture lists ..."'�141;"�Looking for fixture lists ...";
�D�W%=1�10:�setgrabber(W%,3,&31,�("&"+�(W%)),loc%+((W%-1)*&3C0)):�
�got%=�waitforgrabber
�AL%=0:v%=(loc%+((got%-1)*&3C0)):�A%=v% � (v%+&3C0) �40:L%=L%+1
�(�L%=5 ?(A%+40)=&D:A$=$A%:�check($A%)
��
�SPS=�howmany(got%)

6�:�'logo$'''"�Pages required:";�20);"Pages found:"

3�X%=1�SPS:�7,10+X%);"�331s00";�"0"+�~(X%),2):�

�wait_for_pages(SPS)

"�reset_grabbers

,	*HOFF

6�putdata

@
�go_on

J�

T
�"�***

^��process(loc%)

h�F%,L%,T%,M%

r5�F%=loc% � loc%+&398:?F%=(?F%�&7F):�?F%<32 ?F%=32

|�

�L%=1

�<�0,23)"�Processing data for match "'"�Please wait ...";

��F%=loc% � loc%+&398 �40

�L%=L%+1

��L%<6 �d`A

�T%=?(F%+40)

�?(F%+40)=&D:A$=$F%

�?(F%+40)=T%

�@M%=�(A$):�M%<>0 � M%<=max% �27,23);M%;"  ";:�find_teams(M%)

��

��0,23)�(70);

��

�
�"�***
��find_teams(M%)
	��t@B
'HOME$=�A$,18)+" ":AWAY$=�A$,18)+" "
&W%=0:h%=�:a%=�
0
�:W%=W%+1
:�T$
DI�(h%=�) �(�HOME$,�T$,�(T$)-1))<>0) �(�HOME$,�T$,1))<>0):m(M%)=W%:h%=�
NI�(a%=�) �(�AWAY$,�T$,�(T$)-1))<>0) �(�AWAY$,�T$,1))<>0):n(M%)=W%:a%=�
X�(h%=� �a%=�)�(T$="END")
b�T$="END" m(M%)=999
l�
v
�"�***
�o� Ars ,Cov ,Cha ,Chea,Der ,Eve ,Liv ,Lut ,ManU,NotF,Norw ,Newc ,Ox ,Porm,QR,SheW,Soua,Tot ,Wim ,WesH,"Wat "
�v� Ast ,Blab,Bou ,Bra ,Bar ,Bir ,CP,Hud ,Hul ,Ips ,Lee ,Lei ,ManC,Mid ,Mil ,Ol ,Ply ,Rea ,Sto ,SheU,Shr ,Swi ,"WB "
��� Ald ,Brig ,Bury ,BriR,Bren ,Blap,BriC,Chef,CheC,Don ,Ful ,Gill ,Gri ,Mans ,Nort ,NotC,PorV,Pres ,Roth ,Soud,Sun ,Wals ,Wig ,"Yor "
��� Boln,Burn,Carl ,Col ,Camb ,Card ,Crew ,Dar ,Ex ,Hart ,Hal ,Here ,LO,Newp ,Pete ,Roc ,Scar ,Sto ,SwaC,Scu ,Tor ,Tran ,Wol ,"Wrex "
�F� Abe ,Cel ,DunU,Dundee  ,Dunf ,Fal ,Hea ,Hib ,Mort ,Mot ,Ran ,StM
�D� Air ,Clyde  ,Clyk,Dum ,EasF,For ,Hamn,Kil ,Mea ,ParT,QS,"Rai "
�G� AyrU,All ,Alb ,Arb ,Ber ,Brec ,Cow ,ES,Mont ,QP,SJ,SA,Str ,"Ste "
�	� END
�
�"�***
�
��putdata
�M%=�"MDATA"
��A%=1�max%
��m(A%)=999 �#M%,255:�T`C
�m(A%)=0 �#M%,255:�T`C
�#M%,m(A%)
�#M%,n(A%)
 �
*�#M%
4�
>
�"�***
H��setup
R&�M%(max%),n(max%),m(max%),done(10)
\� loc% 10*&3C0
f� C% 20
p�logo$=" ���h��������� �� �������𰴴"+�10+�13+"��� j����������  ������꠵�����"+�10+�13+"��� j���������  ���������������"+�10+�13+"� � *�``````��  ��Pools predictor"+�10+�13
z�
�
�"�***
���oscli(n$)
�%$C%=n$:X%=C%�256:Y%=C%�256:�&FFF7
��
�
�"�***
���go_on
��:�logo$
�b�'''''�141;�131;"Run Pools Predictor now?�(Y/N) "'�141;�131;"Run Pools Predictor now?�(Y/N) ";
��:Q=� �&DF:�Q=78 �Q=89
�&�Q=89 �oscli("FX138,0,89"):�"FOOT"
��:�logo$
��

�"�***
��check(A$)
 �A$,"��������")=0 �error(1)
$�
.
�"�***
8��error(n)
B
�:�'logo$
L5�0,6)�141;"�Sorry, error:"'�141;"�Sorry, error:"
Va�n=1 �''�141;"�Fixture list not being transmitted"'�141;"�Fixture list not being transmitted"
`U�n=1 �''�141;"�Try again later in the week."'�141;"�Try again later in the week."
jA�n=2 �''�141;"�Adapter not on."'�141;"�Adapter not on.":�D~D
t	*HOFF
~�
�
�"�***
�ݤhowmany(got%)
��A%
�G�A%=loc%+((got%-1)*&3C0) � loc%+&50+((got%-1)*&3C0):?A%=(?A%)�&7F:�
�
?A%=&D
��:A%=A%-1:�?A%=�"/"
�=�($(A%+1))
�
�"�***
�ݤadapter:� work% 2
�HA%=&7A:X%=work%�256:Y%=work%�256:?work%=17:�&FFF1:�work%?1=0 =� � =�
�
�"�***
�,��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
�
(
�"�***
2ݤcheck_got(no%)
<%A%=&7A:C%?0=2:X%=C%�256:Y%=C%�256
FC%?1=no%:�&FFF1
P�(C%?2)�2=2 =� � =�
Z
�"�***
d��stop_updates
n%A%=&7A:C%?0=2:X%=C%�256:Y%=C%�256
x�J%=0�grabbers
��
�C%?1=J%:�&FFF1
��((C%?2)�4)=0
��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
C%?0=14

�&FFF1
"�
,
�"�***
6��wait_for_pages(grabbers)
@
�:S%=�
JE�G%=1�grabbers:I%=�check_got(G%):�I%=� �20,10+G%);"Found":� S%=�
T>�I%=� � done(G%)=�:done(G%)=�:�process(loc%+((G%-1)*&3C0))
^�
h	�S%=�
r�
|
�"�***
�ݤwaitforgrabber
�G%=1
�-I%=�check_got(G%):�I%=� �set_hold(G%):=G%
�G%=(G% �10)+1
�	�tZF
�
�"�***
���setlength(no%)
�5A%=&7A:X%=C%�256:Y%=C%�256:C%?0=7:C%?1=no%:�&FFF1
��
�

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 50 4f 4f  |****...$.".*.POO|
00000030  4c 53 20 20 50 52 45 44  49 43 54 4f 52 20 20 50  |LS  PREDICTOR  P|
00000040  52 4f 47 52 41 4d 81 2a  0d 00 1e 24 f4 22 81 2a  |ROGRAM.*...$.".*|
00000050  83 4d 41 54 43 48 20 20  20 20 44 41 54 41 20 20  |.MATCH    DATA  |
00000060  20 20 43 4f 4d 50 49 4c  45 52 81 2a 0d 00 28 24  |  COMPILER.*..($|
00000070  f4 22 81 2a 85 62 79 86  4a 2e 4a 2e 42 72 61 79  |.".*.by.J.J.Bray|
00000080  73 68 61 77 82 4f 63 74  2e 20 31 39 38 35 81 2a  |shaw.Oct. 1985.*|
00000090  0d 00 32 24 f4 22 81 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..2$.".*********|
000000a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000b0  2a 2a 2a 2a 0d 00 3c 24  f4 22 81 2a 86 53 65 70  |****..<$.".*.Sep|
000000c0  74 65 6d 62 65 72 20 31  39 38 37 20 28 32 29 20  |tember 1987 (2) |
000000d0  20 20 20 20 20 20 81 2a  0d 00 46 24 f4 22 81 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 2a 2a 2a  2a 2a 2a 2a 0d 00 50 06  |************..P.|
00000100  eb 37 0d 00 5a 0a 2a 54  54 58 4f 4e 0d 00 64 13  |.7..Z.*TTXON..d.|
00000110  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 0d  |.23;8202;0;0;0;.|
00000120  00 6e 1f f4 22 82 4e 6f  20 6f 66 20 6d 61 74 63  |.n..".No of matc|
00000130  68 65 73 20 6f 6e 20 63  6f 75 70 6f 6e 3a 0d 00  |hes on coupon:..|
00000140  78 0b 6d 61 78 25 3d 35  38 0d 00 82 0a f2 73 65  |x.max%=58.....se|
00000150  74 75 70 0d 00 8c 24 e7  20 ac 20 a4 61 64 61 70  |tup...$. . .adap|
00000160  74 65 72 20 f1 22 4e 6f  20 54 74 78 20 61 64 61  |ter ."No Ttx ada|
00000170  70 74 65 72 22 3a e0 0d  00 96 0d 2a 54 45 4c 45  |pter":.....*TELE|
00000180  53 4f 46 54 0d 00 a0 09  2a 42 42 43 32 0d 00 aa  |SOFT....*BBC2...|
00000190  08 2a 48 4f 4e 0d 00 b4  12 f2 73 65 74 6c 65 6e  |.*HON.....setlen|
000001a0  67 74 68 28 32 34 29 0d  00 be 5c db 3a f1 27 6c  |gth(24)...\.:.'l|
000001b0  6f 67 6f 24 27 27 27 bd  31 34 31 3b 22 86 4c 6f  |ogo$'''.141;".Lo|
000001c0  6f 6b 69 6e 67 20 66 6f  72 20 66 69 78 74 75 72  |oking for fixtur|
000001d0  65 20 6c 69 73 74 73 20  2e 2e 2e 22 27 bd 31 34  |e lists ..."'.14|
000001e0  31 3b 22 86 4c 6f 6f 6b  69 6e 67 20 66 6f 72 20  |1;".Looking for |
000001f0  66 69 78 74 75 72 65 20  6c 69 73 74 73 20 2e 2e  |fixture lists ..|
00000200  2e 22 3b 0d 00 c8 44 e3  57 25 3d 31 b8 31 30 3a  |.";...D.W%=1.10:|
00000210  f2 73 65 74 67 72 61 62  62 65 72 28 57 25 2c 33  |.setgrabber(W%,3|
00000220  2c 26 33 31 2c a0 28 22  26 22 2b c3 28 57 25 29  |,&31,.("&"+.(W%)|
00000230  29 2c 6c 6f 63 25 2b 28  28 57 25 2d 31 29 2a 26  |),loc%+((W%-1)*&|
00000240  33 43 30 29 29 3a ed 0d  00 d2 18 67 6f 74 25 3d  |3C0)):.....got%=|
00000250  a4 77 61 69 74 66 6f 72  67 72 61 62 62 65 72 0d  |.waitforgrabber.|
00000260  00 dc 41 4c 25 3d 30 3a  76 25 3d 28 6c 6f 63 25  |..AL%=0:v%=(loc%|
00000270  2b 28 28 67 6f 74 25 2d  31 29 2a 26 33 43 30 29  |+((got%-1)*&3C0)|
00000280  29 3a e3 41 25 3d 76 25  20 b8 20 28 76 25 2b 26  |):.A%=v% . (v%+&|
00000290  33 43 30 29 20 88 34 30  3a 4c 25 3d 4c 25 2b 31  |3C0) .40:L%=L%+1|
000002a0  0d 00 e6 28 e7 4c 25 3d  35 20 3f 28 41 25 2b 34  |...(.L%=5 ?(A%+4|
000002b0  30 29 3d 26 44 3a 41 24  3d 24 41 25 3a f2 63 68  |0)=&D:A$=$A%:.ch|
000002c0  65 63 6b 28 24 41 25 29  0d 00 f0 05 ed 0d 00 fa  |eck($A%)........|
000002d0  16 53 50 53 3d a4 68 6f  77 6d 61 6e 79 28 67 6f  |.SPS=.howmany(go|
000002e0  74 25 29 0d 01 04 36 db  3a f1 27 6c 6f 67 6f 24  |t%)...6.:.'logo$|
000002f0  27 27 27 22 83 50 61 67  65 73 20 72 65 71 75 69  |'''".Pages requi|
00000300  72 65 64 3a 22 3b 8a 32  30 29 3b 22 50 61 67 65  |red:";.20);"Page|
00000310  73 20 66 6f 75 6e 64 3a  22 0d 01 0e 33 e3 58 25  |s found:"...3.X%|
00000320  3d 31 b8 53 50 53 3a f1  8a 37 2c 31 30 2b 58 25  |=1.SPS:..7,10+X%|
00000330  29 3b 22 86 33 33 31 73  30 30 22 3b c2 22 30 22  |);".331s00";."0"|
00000340  2b c3 7e 28 58 25 29 2c  32 29 3a ed 0d 01 18 18  |+.~(X%),2):.....|
00000350  f2 77 61 69 74 5f 66 6f  72 5f 70 61 67 65 73 28  |.wait_for_pages(|
00000360  53 50 53 29 0d 01 22 13  f2 72 65 73 65 74 5f 67  |SPS).."..reset_g|
00000370  72 61 62 62 65 72 73 0d  01 2c 09 2a 48 4f 46 46  |rabbers..,.*HOFF|
00000380  0d 01 36 0c f2 70 75 74  64 61 74 61 0d 01 40 0a  |..6..putdata..@.|
00000390  f2 67 6f 5f 6f 6e 0d 01  4a 05 e0 0d 01 54 0a f4  |.go_on..J....T..|
000003a0  22 81 2a 2a 2a 0d 01 5e  13 dd f2 70 72 6f 63 65  |".***..^...proce|
000003b0  73 73 28 6c 6f 63 25 29  0d 01 68 10 ea 46 25 2c  |ss(loc%)..h..F%,|
000003c0  4c 25 2c 54 25 2c 4d 25  0d 01 72 35 e3 46 25 3d  |L%,T%,M%..r5.F%=|
000003d0  6c 6f 63 25 20 b8 20 6c  6f 63 25 2b 26 33 39 38  |loc% . loc%+&398|
000003e0  3a 3f 46 25 3d 28 3f 46  25 80 26 37 46 29 3a e7  |:?F%=(?F%.&7F):.|
000003f0  3f 46 25 3c 33 32 20 3f  46 25 3d 33 32 0d 01 7c  |?F%<32 ?F%=32..||
00000400  05 ed 0d 01 86 08 4c 25  3d 31 0d 01 90 3c f1 8a  |......L%=1...<..|
00000410  30 2c 32 33 29 22 81 50  72 6f 63 65 73 73 69 6e  |0,23)".Processin|
00000420  67 20 64 61 74 61 20 66  6f 72 20 6d 61 74 63 68  |g data for match|
00000430  20 22 27 22 81 50 6c 65  61 73 65 20 77 61 69 74  | "'".Please wait|
00000440  20 2e 2e 2e 22 3b 0d 01  9a 1c e3 46 25 3d 6c 6f  | ...";.....F%=lo|
00000450  63 25 20 b8 20 6c 6f 63  25 2b 26 33 39 38 20 88  |c% . loc%+&398 .|
00000460  34 30 0d 01 a4 0b 4c 25  3d 4c 25 2b 31 0d 01 ae  |40....L%=L%+1...|
00000470  0f e7 4c 25 3c 36 20 e5  8d 64 60 41 0d 01 b8 0f  |..L%<6 ..d`A....|
00000480  54 25 3d 3f 28 46 25 2b  34 30 29 0d 01 c2 16 3f  |T%=?(F%+40)....?|
00000490  28 46 25 2b 34 30 29 3d  26 44 3a 41 24 3d 24 46  |(F%+40)=&D:A$=$F|
000004a0  25 0d 01 cc 0f 3f 28 46  25 2b 34 30 29 3d 54 25  |%....?(F%+40)=T%|
000004b0  0d 01 d6 40 4d 25 3d bb  28 41 24 29 3a e7 4d 25  |...@M%=.(A$):.M%|
000004c0  3c 3e 30 20 80 20 4d 25  3c 3d 6d 61 78 25 20 f1  |<>0 . M%<=max% .|
000004d0  8a 32 37 2c 32 33 29 3b  4d 25 3b 22 20 20 22 3b  |.27,23);M%;"  ";|
000004e0  3a f2 66 69 6e 64 5f 74  65 61 6d 73 28 4d 25 29  |:.find_teams(M%)|
000004f0  0d 01 e0 05 ed 0d 01 ea  11 f1 8a 30 2c 32 33 29  |...........0,23)|
00000500  89 28 37 30 29 3b 0d 01  f4 05 e1 0d 01 fe 0a f4  |.(70);..........|
00000510  22 81 2a 2a 2a 0d 02 08  14 dd f2 66 69 6e 64 5f  |".***......find_|
00000520  74 65 61 6d 73 28 4d 25  29 0d 02 12 09 f7 8d 74  |teams(M%)......t|
00000530  40 42 0d 02 1c 27 48 4f  4d 45 24 3d c0 41 24 2c  |@B...'HOME$=.A$,|
00000540  31 38 29 2b 22 20 22 3a  41 57 41 59 24 3d c2 41  |18)+" ":AWAY$=.A|
00000550  24 2c 31 38 29 2b 22 20  22 0d 02 26 12 57 25 3d  |$,18)+" "..&.W%=|
00000560  30 3a 68 25 3d a3 3a 61  25 3d a3 0d 02 30 0d f5  |0:h%=.:a%=...0..|
00000570  3a 57 25 3d 57 25 2b 31  0d 02 3a 07 f3 54 24 0d  |:W%=W%+1..:..T$.|
00000580  02 44 49 e7 28 68 25 3d  a3 29 20 80 28 a7 48 4f  |.DI.(h%=.) .(.HO|
00000590  4d 45 24 2c c0 54 24 2c  a9 28 54 24 29 2d 31 29  |ME$,.T$,.(T$)-1)|
000005a0  29 3c 3e 30 29 20 80 28  a7 48 4f 4d 45 24 2c c2  |)<>0) .(.HOME$,.|
000005b0  54 24 2c 31 29 29 3c 3e  30 29 3a 6d 28 4d 25 29  |T$,1))<>0):m(M%)|
000005c0  3d 57 25 3a 68 25 3d b9  0d 02 4e 49 e7 28 61 25  |=W%:h%=...NI.(a%|
000005d0  3d a3 29 20 80 28 a7 41  57 41 59 24 2c c0 54 24  |=.) .(.AWAY$,.T$|
000005e0  2c a9 28 54 24 29 2d 31  29 29 3c 3e 30 29 20 80  |,.(T$)-1))<>0) .|
000005f0  28 a7 41 57 41 59 24 2c  c2 54 24 2c 31 29 29 3c  |(.AWAY$,.T$,1))<|
00000600  3e 30 29 3a 6e 28 4d 25  29 3d 57 25 3a 61 25 3d  |>0):n(M%)=W%:a%=|
00000610  b9 0d 02 58 1c fd 28 68  25 3d b9 20 80 61 25 3d  |...X..(h%=. .a%=|
00000620  b9 29 84 28 54 24 3d 22  45 4e 44 22 29 0d 02 62  |.).(T$="END")..b|
00000630  17 e7 54 24 3d 22 45 4e  44 22 20 6d 28 4d 25 29  |..T$="END" m(M%)|
00000640  3d 39 39 39 0d 02 6c 05  e1 0d 02 76 0a f4 22 81  |=999..l....v..".|
00000650  2a 2a 2a 0d 02 80 6f dc  20 41 72 73 20 2c 43 6f  |***...o. Ars ,Co|
00000660  76 20 2c 43 68 61 20 2c  43 68 65 61 2c 44 65 72  |v ,Cha ,Chea,Der|
00000670  20 2c 45 76 65 20 2c 4c  69 76 20 2c 4c 75 74 20  | ,Eve ,Liv ,Lut |
00000680  2c 4d 61 6e 55 2c 4e 6f  74 46 2c 4e 6f 72 77 20  |,ManU,NotF,Norw |
00000690  2c 4e 65 77 63 20 2c 4f  78 20 2c 50 6f 72 6d 2c  |,Newc ,Ox ,Porm,|
000006a0  51 52 2c 53 68 65 57 2c  53 6f 75 61 2c 54 6f 74  |QR,SheW,Soua,Tot|
000006b0  20 2c 57 69 6d 20 2c 57  65 73 48 2c 22 57 61 74  | ,Wim ,WesH,"Wat|
000006c0  20 22 0d 02 8a 76 dc 20  41 73 74 20 2c 42 6c 61  | "...v. Ast ,Bla|
000006d0  62 2c 42 6f 75 20 2c 42  72 61 20 2c 42 61 72 20  |b,Bou ,Bra ,Bar |
000006e0  2c 42 69 72 20 2c 43 50  2c 48 75 64 20 2c 48 75  |,Bir ,CP,Hud ,Hu|
000006f0  6c 20 2c 49 70 73 20 2c  4c 65 65 20 2c 4c 65 69  |l ,Ips ,Lee ,Lei|
00000700  20 2c 4d 61 6e 43 2c 4d  69 64 20 2c 4d 69 6c 20  | ,ManC,Mid ,Mil |
00000710  2c 4f 6c 20 2c 50 6c 79  20 2c 52 65 61 20 2c 53  |,Ol ,Ply ,Rea ,S|
00000720  74 6f 20 2c 53 68 65 55  2c 53 68 72 20 2c 53 77  |to ,SheU,Shr ,Sw|
00000730  69 20 2c 22 57 42 20 22  0d 02 94 88 dc 20 41 6c  |i ,"WB "..... Al|
00000740  64 20 2c 42 72 69 67 20  2c 42 75 72 79 20 2c 42  |d ,Brig ,Bury ,B|
00000750  72 69 52 2c 42 72 65 6e  20 2c 42 6c 61 70 2c 42  |riR,Bren ,Blap,B|
00000760  72 69 43 2c 43 68 65 66  2c 43 68 65 43 2c 44 6f  |riC,Chef,CheC,Do|
00000770  6e 20 2c 46 75 6c 20 2c  47 69 6c 6c 20 2c 47 72  |n ,Ful ,Gill ,Gr|
00000780  69 20 2c 4d 61 6e 73 20  2c 4e 6f 72 74 20 2c 4e  |i ,Mans ,Nort ,N|
00000790  6f 74 43 2c 50 6f 72 56  2c 50 72 65 73 20 2c 52  |otC,PorV,Pres ,R|
000007a0  6f 74 68 20 2c 53 6f 75  64 2c 53 75 6e 20 2c 57  |oth ,Soud,Sun ,W|
000007b0  61 6c 73 20 2c 57 69 67  20 2c 22 59 6f 72 20 22  |als ,Wig ,"Yor "|
000007c0  0d 02 9e 87 dc 20 42 6f  6c 6e 2c 42 75 72 6e 2c  |..... Boln,Burn,|
000007d0  43 61 72 6c 20 2c 43 6f  6c 20 2c 43 61 6d 62 20  |Carl ,Col ,Camb |
000007e0  2c 43 61 72 64 20 2c 43  72 65 77 20 2c 44 61 72  |,Card ,Crew ,Dar|
000007f0  20 2c 45 78 20 2c 48 61  72 74 20 2c 48 61 6c 20  | ,Ex ,Hart ,Hal |
00000800  2c 48 65 72 65 20 2c 4c  4f 2c 4e 65 77 70 20 2c  |,Here ,LO,Newp ,|
00000810  50 65 74 65 20 2c 52 6f  63 20 2c 53 63 61 72 20  |Pete ,Roc ,Scar |
00000820  2c 53 74 6f 20 2c 53 77  61 43 2c 53 63 75 20 2c  |,Sto ,SwaC,Scu ,|
00000830  54 6f 72 20 2c 54 72 61  6e 20 2c 57 6f 6c 20 2c  |Tor ,Tran ,Wol ,|
00000840  22 57 72 65 78 20 22 0d  02 a8 46 dc 20 41 62 65  |"Wrex "...F. Abe|
00000850  20 2c 43 65 6c 20 2c 44  75 6e 55 2c 44 75 6e 64  | ,Cel ,DunU,Dund|
00000860  65 65 20 20 2c 44 75 6e  66 20 2c 46 61 6c 20 2c  |ee  ,Dunf ,Fal ,|
00000870  48 65 61 20 2c 48 69 62  20 2c 4d 6f 72 74 20 2c  |Hea ,Hib ,Mort ,|
00000880  4d 6f 74 20 2c 52 61 6e  20 2c 53 74 4d 0d 02 b2  |Mot ,Ran ,StM...|
00000890  44 dc 20 41 69 72 20 2c  43 6c 79 64 65 20 20 2c  |D. Air ,Clyde  ,|
000008a0  43 6c 79 6b 2c 44 75 6d  20 2c 45 61 73 46 2c 46  |Clyk,Dum ,EasF,F|
000008b0  6f 72 20 2c 48 61 6d 6e  2c 4b 69 6c 20 2c 4d 65  |or ,Hamn,Kil ,Me|
000008c0  61 20 2c 50 61 72 54 2c  51 53 2c 22 52 61 69 20  |a ,ParT,QS,"Rai |
000008d0  22 0d 02 bc 47 dc 20 41  79 72 55 2c 41 6c 6c 20  |"...G. AyrU,All |
000008e0  2c 41 6c 62 20 2c 41 72  62 20 2c 42 65 72 20 2c  |,Alb ,Arb ,Ber ,|
000008f0  42 72 65 63 20 2c 43 6f  77 20 2c 45 53 2c 4d 6f  |Brec ,Cow ,ES,Mo|
00000900  6e 74 20 2c 51 50 2c 53  4a 2c 53 41 2c 53 74 72  |nt ,QP,SJ,SA,Str|
00000910  20 2c 22 53 74 65 20 22  0d 02 c6 09 dc 20 45 4e  | ,"Ste "..... EN|
00000920  44 0d 02 d0 0a f4 22 81  2a 2a 2a 0d 02 da 0d dd  |D.....".***.....|
00000930  f2 70 75 74 64 61 74 61  0d 02 e4 0f 4d 25 3d ae  |.putdata....M%=.|
00000940  22 4d 44 41 54 41 22 0d  02 ee 0e e3 41 25 3d 31  |"MDATA".....A%=1|
00000950  b8 6d 61 78 25 0d 02 f8  1d e7 6d 28 41 25 29 3d  |.max%.....m(A%)=|
00000960  39 39 39 20 d5 23 4d 25  2c 32 35 35 3a e5 8d 54  |999 .#M%,255:..T|
00000970  60 43 0d 03 02 1b e7 6d  28 41 25 29 3d 30 20 d5  |`C.....m(A%)=0 .|
00000980  23 4d 25 2c 32 35 35 3a  e5 8d 54 60 43 0d 03 0c  |#M%,255:..T`C...|
00000990  0e d5 23 4d 25 2c 6d 28  41 25 29 0d 03 16 0e d5  |..#M%,m(A%).....|
000009a0  23 4d 25 2c 6e 28 41 25  29 0d 03 20 05 ed 0d 03  |#M%,n(A%).. ....|
000009b0  2a 08 d9 23 4d 25 0d 03  34 05 e1 0d 03 3e 0a f4  |*..#M%..4....>..|
000009c0  22 81 2a 2a 2a 0d 03 48  0b dd f2 73 65 74 75 70  |".***..H...setup|
000009d0  0d 03 52 26 de 4d 25 28  6d 61 78 25 29 2c 6e 28  |..R&.M%(max%),n(|
000009e0  6d 61 78 25 29 2c 6d 28  6d 61 78 25 29 2c 64 6f  |max%),m(max%),do|
000009f0  6e 65 28 31 30 29 0d 03  5c 12 de 20 6c 6f 63 25  |ne(10)..\.. loc%|
00000a00  20 31 30 2a 26 33 43 30  0d 03 66 0b de 20 43 25  | 10*&3C0..f.. C%|
00000a10  20 32 30 0d 03 70 b3 6c  6f 67 6f 24 3d 22 20 97  | 20..p.logo$=" .|
00000a20  a0 a0 68 ac ac ac ac ac  ac ac ac b4 20 93 a0 20  |..h......... .. |
00000a30  bc e0 f0 e0 f0 e8 b0 f4  b0 f0 b0 b4 b4 22 2b bd  |............."+.|
00000a40  31 30 2b bd 31 33 2b 22  94 9d 97 20 6a 9a ff ff  |10+.13+"... j...|
00000a50  ff ff ff ff 99 b5 93 20  20 a3 b7 ea ea ea ea ea  |.......  .......|
00000a60  a0 b5 b5 bc b5 b5 b5 22  2b bd 31 30 2b bd 31 33  |......."+.10+.13|
00000a70  2b 22 94 9d 97 20 6a 9a  ff ff ff ff ff ff 99 b5  |+"... j.........|
00000a80  20 20 93 a0 a5 a2 a3 a2  a3 a2 a1 a3 a1 a3 a1 a1  |  ..............|
00000a90  a1 22 2b bd 31 30 2b bd  31 33 2b 22 97 20 a0 20  |."+.10+.13+". . |
00000aa0  2a 9a 60 60 60 60 60 60  99 a5 20 20 a0 87 50 6f  |*.``````..  ..Po|
00000ab0  6f 6c 73 20 70 72 65 64  69 63 74 6f 72 22 2b bd  |ols predictor"+.|
00000ac0  31 30 2b bd 31 33 0d 03  7a 05 e1 0d 03 84 0a f4  |10+.13..z.......|
00000ad0  22 81 2a 2a 2a 0d 03 8e  0f dd f2 6f 73 63 6c 69  |".***......oscli|
00000ae0  28 6e 24 29 0d 03 98 25  24 43 25 3d 6e 24 3a 58  |(n$)...%$C%=n$:X|
00000af0  25 3d 43 25 83 32 35 36  3a 59 25 3d 43 25 81 32  |%=C%.256:Y%=C%.2|
00000b00  35 36 3a d6 26 46 46 46  37 0d 03 ac 05 e1 0d 03  |56:.&FFF7.......|
00000b10  b6 0a f4 22 81 2a 2a 2a  0d 03 c0 0b dd f2 67 6f  |...".***......go|
00000b20  5f 6f 6e 0d 03 ca 0c db  3a f1 6c 6f 67 6f 24 0d  |_on.....:.logo$.|
00000b30  03 d4 62 f1 27 27 27 27  27 bd 31 34 31 3b bd 31  |..b.'''''.141;.1|
00000b40  33 31 3b 22 52 75 6e 20  50 6f 6f 6c 73 20 50 72  |31;"Run Pools Pr|
00000b50  65 64 69 63 74 6f 72 20  6e 6f 77 3f 86 28 59 2f  |edictor now?.(Y/|
00000b60  4e 29 20 22 27 bd 31 34  31 3b bd 31 33 31 3b 22  |N) "'.141;.131;"|
00000b70  52 75 6e 20 50 6f 6f 6c  73 20 50 72 65 64 69 63  |Run Pools Predic|
00000b80  74 6f 72 20 6e 6f 77 3f  86 28 59 2f 4e 29 20 22  |tor now?.(Y/N) "|
00000b90  3b 0d 03 de 1a f5 3a 51  3d a5 20 80 26 44 46 3a  |;.....:Q=. .&DF:|
00000ba0  fd 51 3d 37 38 20 84 51  3d 38 39 0d 03 e8 26 e7  |.Q=78 .Q=89...&.|
00000bb0  51 3d 38 39 20 f2 6f 73  63 6c 69 28 22 46 58 31  |Q=89 .oscli("FX1|
00000bc0  33 38 2c 30 2c 38 39 22  29 3a d7 22 46 4f 4f 54  |38,0,89"):."FOOT|
00000bd0  22 0d 03 f2 0c db 3a f1  6c 6f 67 6f 24 0d 03 fc  |".....:.logo$...|
00000be0  05 e1 0d 04 06 0a f4 22  81 2a 2a 2a 0d 04 10 0f  |.......".***....|
00000bf0  dd f2 63 68 65 63 6b 28  41 24 29 0d 04 1a 20 e7  |..check(A$)... .|
00000c00  a7 41 24 2c 22 c6 c9 d8  d4 d5 d2 c5 d3 22 29 3d  |.A$,"........")=|
00000c10  30 20 f2 65 72 72 6f 72  28 31 29 0d 04 24 05 e1  |0 .error(1)..$..|
00000c20  0d 04 2e 0a f4 22 81 2a  2a 2a 0d 04 38 0e dd f2  |.....".***..8...|
00000c30  65 72 72 6f 72 28 6e 29  0d 04 42 0d db 3a f1 27  |error(n)..B..:.'|
00000c40  6c 6f 67 6f 24 0d 04 4c  35 f1 8a 30 2c 36 29 bd  |logo$..L5..0,6).|
00000c50  31 34 31 3b 22 86 53 6f  72 72 79 2c 20 65 72 72  |141;".Sorry, err|
00000c60  6f 72 3a 22 27 bd 31 34  31 3b 22 86 53 6f 72 72  |or:"'.141;".Sorr|
00000c70  79 2c 20 65 72 72 6f 72  3a 22 0d 04 56 61 e7 6e  |y, error:"..Va.n|
00000c80  3d 31 20 f1 27 27 bd 31  34 31 3b 22 86 46 69 78  |=1 .''.141;".Fix|
00000c90  74 75 72 65 20 6c 69 73  74 20 6e 6f 74 20 62 65  |ture list not be|
00000ca0  69 6e 67 20 74 72 61 6e  73 6d 69 74 74 65 64 22  |ing transmitted"|
00000cb0  27 bd 31 34 31 3b 22 86  46 69 78 74 75 72 65 20  |'.141;".Fixture |
00000cc0  6c 69 73 74 20 6e 6f 74  20 62 65 69 6e 67 20 74  |list not being t|
00000cd0  72 61 6e 73 6d 69 74 74  65 64 22 0d 04 60 55 e7  |ransmitted"..`U.|
00000ce0  6e 3d 31 20 f1 27 27 bd  31 34 31 3b 22 83 54 72  |n=1 .''.141;".Tr|
00000cf0  79 20 61 67 61 69 6e 20  6c 61 74 65 72 20 69 6e  |y again later in|
00000d00  20 74 68 65 20 77 65 65  6b 2e 22 27 bd 31 34 31  | the week."'.141|
00000d10  3b 22 83 54 72 79 20 61  67 61 69 6e 20 6c 61 74  |;".Try again lat|
00000d20  65 72 20 69 6e 20 74 68  65 20 77 65 65 6b 2e 22  |er in the week."|
00000d30  0d 04 6a 41 e7 6e 3d 32  20 f1 27 27 bd 31 34 31  |..jA.n=2 .''.141|
00000d40  3b 22 86 41 64 61 70 74  65 72 20 6e 6f 74 20 6f  |;".Adapter not o|
00000d50  6e 2e 22 27 bd 31 34 31  3b 22 86 41 64 61 70 74  |n."'.141;".Adapt|
00000d60  65 72 20 6e 6f 74 20 6f  6e 2e 22 3a e5 8d 44 7e  |er not on.":..D~|
00000d70  44 0d 04 74 09 2a 48 4f  46 46 0d 04 7e 05 e0 0d  |D..t.*HOFF..~...|
00000d80  04 88 0a f4 22 81 2a 2a  2a 0d 04 92 13 dd a4 68  |....".***......h|
00000d90  6f 77 6d 61 6e 79 28 67  6f 74 25 29 0d 04 9c 07  |owmany(got%)....|
00000da0  ea 41 25 0d 04 a6 47 e3  41 25 3d 6c 6f 63 25 2b  |.A%...G.A%=loc%+|
00000db0  28 28 67 6f 74 25 2d 31  29 2a 26 33 43 30 29 20  |((got%-1)*&3C0) |
00000dc0  b8 20 6c 6f 63 25 2b 26  35 30 2b 28 28 67 6f 74  |. loc%+&50+((got|
00000dd0  25 2d 31 29 2a 26 33 43  30 29 3a 3f 41 25 3d 28  |%-1)*&3C0):?A%=(|
00000de0  3f 41 25 29 80 26 37 46  3a ed 0d 04 b0 0a 3f 41  |?A%).&7F:.....?A|
00000df0  25 3d 26 44 0d 04 ba 17  f5 3a 41 25 3d 41 25 2d  |%=&D.....:A%=A%-|
00000e00  31 3a fd 3f 41 25 3d 97  22 2f 22 0d 04 c4 0f 3d  |1:.?A%=."/"....=|
00000e10  bb 28 24 28 41 25 2b 31  29 29 0d 04 ce 0a f4 22  |.($(A%+1))....."|
00000e20  81 2a 2a 2a 0d 04 d8 17  dd a4 61 64 61 70 74 65  |.***......adapte|
00000e30  72 3a de 20 77 6f 72 6b  25 20 32 0d 04 e2 48 41  |r:. work% 2...HA|
00000e40  25 3d 26 37 41 3a 58 25  3d 77 6f 72 6b 25 83 32  |%=&7A:X%=work%.2|
00000e50  35 36 3a 59 25 3d 77 6f  72 6b 25 81 32 35 36 3a  |56:Y%=work%.256:|
00000e60  3f 77 6f 72 6b 25 3d 31  37 3a d6 26 46 46 46 31  |?work%=17:.&FFF1|
00000e70  3a e7 77 6f 72 6b 25 3f  31 3d 30 20 3d b9 20 8b  |:.work%?1=0 =. .|
00000e80  20 3d a3 0d 04 ec 0a f4  22 81 2a 2a 2a 0d 04 f6  | =......".***...|
00000e90  2c dd f2 73 65 74 67 72  61 62 62 65 72 28 6e 6f  |,..setgrabber(no|
00000ea0  25 2c 6d 61 67 25 2c 70  61 67 65 25 2c 73 75 62  |%,mag%,page%,sub|
00000eb0  25 2c 73 74 6f 72 65 25  29 0d 05 00 25 41 25 3d  |%,store%)...%A%=|
00000ec0  26 37 41 3a 43 25 3f 30  3d 35 3a 58 25 3d 43 25  |&7A:C%?0=5:X%=C%|
00000ed0  83 32 35 36 3a 59 25 3d  43 25 81 32 35 36 0d 05  |.256:Y%=C%.256..|
00000ee0  0a 5d 43 25 3f 31 3d 6e  6f 25 3a 43 25 3f 32 3d  |.]C%?1=no%:C%?2=|
00000ef0  6d 61 67 25 3a 43 25 3f  33 3d 70 61 67 65 25 3a  |mag%:C%?3=page%:|
00000f00  43 25 3f 34 3d 73 75 62  25 81 32 35 36 3a 43 25  |C%?4=sub%.256:C%|
00000f10  3f 35 3d 73 75 62 25 83  32 35 36 3a 43 25 3f 36  |?5=sub%.256:C%?6|
00000f20  3d 73 74 6f 72 65 25 83  32 35 36 3a 43 25 3f 37  |=store%.256:C%?7|
00000f30  3d 73 74 6f 72 65 25 81  32 35 36 0d 05 14 0a d6  |=store%.256.....|
00000f40  26 46 46 46 31 0d 05 1e  05 e1 0d 05 28 0a f4 22  |&FFF1.......(.."|
00000f50  81 2a 2a 2a 0d 05 32 14  dd a4 63 68 65 63 6b 5f  |.***..2...check_|
00000f60  67 6f 74 28 6e 6f 25 29  0d 05 3c 25 41 25 3d 26  |got(no%)..<%A%=&|
00000f70  37 41 3a 43 25 3f 30 3d  32 3a 58 25 3d 43 25 83  |7A:C%?0=2:X%=C%.|
00000f80  32 35 36 3a 59 25 3d 43  25 81 32 35 36 0d 05 46  |256:Y%=C%.256..F|
00000f90  13 43 25 3f 31 3d 6e 6f  25 3a d6 26 46 46 46 31  |.C%?1=no%:.&FFF1|
00000fa0  0d 05 50 17 e7 28 43 25  3f 32 29 80 32 3d 32 20  |..P..(C%?2).2=2 |
00000fb0  3d b9 20 8b 20 3d a3 0d  05 5a 0a f4 22 81 2a 2a  |=. . =...Z..".**|
00000fc0  2a 0d 05 64 12 dd f2 73  74 6f 70 5f 75 70 64 61  |*..d...stop_upda|
00000fd0  74 65 73 0d 05 6e 25 41  25 3d 26 37 41 3a 43 25  |tes..n%A%=&7A:C%|
00000fe0  3f 30 3d 32 3a 58 25 3d  43 25 83 32 35 36 3a 59  |?0=2:X%=C%.256:Y|
00000ff0  25 3d 43 25 81 32 35 36  0d 05 78 12 e3 4a 25 3d  |%=C%.256..x..J%=|
00001000  30 b8 67 72 61 62 62 65  72 73 0d 05 82 05 f5 0d  |0.grabbers......|
00001010  05 8c 12 43 25 3f 31 3d  4a 25 3a d6 26 46 46 46  |...C%?1=J%:.&FFF|
00001020  31 0d 05 96 11 fd 28 28  43 25 3f 32 29 80 34 29  |1.....((C%?2).4)|
00001030  3d 30 0d 05 a0 11 f2 73  65 74 5f 68 6f 6c 64 28  |=0.....set_hold(|
00001040  4a 25 29 0d 05 aa 05 ed  0d 05 b4 05 e1 0d 05 be  |J%).............|
00001050  0a f4 22 81 2a 2a 2a 0d  05 c8 13 dd f2 73 65 74  |..".***......set|
00001060  5f 68 6f 6c 64 28 6e 6f  25 29 0d 05 d2 25 41 25  |_hold(no%)...%A%|
00001070  3d 26 37 41 3a 43 25 3f  30 3d 33 3a 58 25 3d 43  |=&7A:C%?0=3:X%=C|
00001080  25 83 32 35 36 3a 59 25  3d 43 25 81 32 35 36 0d  |%.256:Y%=C%.256.|
00001090  05 dc 1a 43 25 3f 31 3d  6e 6f 25 3a 43 25 3f 32  |...C%?1=no%:C%?2|
000010a0  3d 33 3a d6 26 46 46 46  31 0d 05 e6 05 e1 0d 05  |=3:.&FFF1.......|
000010b0  f0 0a f4 22 81 2a 2a 2a  0d 05 fa 14 dd f2 72 65  |...".***......re|
000010c0  73 65 74 5f 67 72 61 62  62 65 72 73 0d 06 04 1e  |set_grabbers....|
000010d0  41 25 3d 26 37 41 3a 58  25 3d 43 25 83 32 35 36  |A%=&7A:X%=C%.256|
000010e0  3a 59 25 3d 43 25 81 32  35 36 0d 06 0e 0b 43 25  |:Y%=C%.256....C%|
000010f0  3f 30 3d 31 34 0d 06 18  0a d6 26 46 46 46 31 0d  |?0=14.....&FFF1.|
00001100  06 22 05 e1 0d 06 2c 0a  f4 22 81 2a 2a 2a 0d 06  |."....,..".***..|
00001110  36 1e dd f2 77 61 69 74  5f 66 6f 72 5f 70 61 67  |6...wait_for_pag|
00001120  65 73 28 67 72 61 62 62  65 72 73 29 0d 06 40 0a  |es(grabbers)..@.|
00001130  f5 3a 53 25 3d b9 0d 06  4a 45 e3 47 25 3d 31 b8  |.:S%=...JE.G%=1.|
00001140  67 72 61 62 62 65 72 73  3a 49 25 3d a4 63 68 65  |grabbers:I%=.che|
00001150  63 6b 5f 67 6f 74 28 47  25 29 3a e7 49 25 3d b9  |ck_got(G%):.I%=.|
00001160  20 f1 8a 32 30 2c 31 30  2b 47 25 29 3b 22 46 6f  | ..20,10+G%);"Fo|
00001170  75 6e 64 22 3a 8b 20 53  25 3d a3 0d 06 54 3e e7  |und":. S%=...T>.|
00001180  49 25 3d b9 20 80 20 64  6f 6e 65 28 47 25 29 3d  |I%=. . done(G%)=|
00001190  a3 3a 64 6f 6e 65 28 47  25 29 3d b9 3a f2 70 72  |.:done(G%)=.:.pr|
000011a0  6f 63 65 73 73 28 6c 6f  63 25 2b 28 28 47 25 2d  |ocess(loc%+((G%-|
000011b0  31 29 2a 26 33 43 30 29  29 0d 06 5e 05 ed 0d 06  |1)*&3C0))..^....|
000011c0  68 09 fd 53 25 3d b9 0d  06 72 05 e1 0d 06 7c 0a  |h..S%=...r....|.|
000011d0  f4 22 81 2a 2a 2a 0d 06  86 14 dd a4 77 61 69 74  |.".***......wait|
000011e0  66 6f 72 67 72 61 62 62  65 72 0d 06 90 08 47 25  |forgrabber....G%|
000011f0  3d 31 0d 06 9a 2d 49 25  3d a4 63 68 65 63 6b 5f  |=1...-I%=.check_|
00001200  67 6f 74 28 47 25 29 3a  e7 49 25 3d b9 20 f2 73  |got(G%):.I%=. .s|
00001210  65 74 5f 68 6f 6c 64 28  47 25 29 3a 3d 47 25 0d  |et_hold(G%):=G%.|
00001220  06 a4 11 47 25 3d 28 47  25 20 83 31 30 29 2b 31  |...G%=(G% .10)+1|
00001230  0d 06 ae 09 e5 8d 74 5a  46 0d 06 b8 0a f4 22 81  |......tZF.....".|
00001240  2a 2a 2a 0d 06 c2 14 dd  f2 73 65 74 6c 65 6e 67  |***......setleng|
00001250  74 68 28 6e 6f 25 29 0d  06 cc 35 41 25 3d 26 37  |th(no%)...5A%=&7|
00001260  41 3a 58 25 3d 43 25 83  32 35 36 3a 59 25 3d 43  |A:X%=C%.256:Y%=C|
00001270  25 81 32 35 36 3a 43 25  3f 30 3d 37 3a 43 25 3f  |%.256:C%?0=7:C%?|
00001280  31 3d 6e 6f 25 3a d6 26  46 46 46 31 0d 06 d6 05  |1=no%:.&FFF1....|
00001290  e1 0d ff                                          |...|
00001293