16-12-88/MATCH

Home » CEEFAX disks » telesoftware11.adl » 16-12-88/MATCH

16-12-88/MATCH

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware11.adl
Filename:	16-12-88/MATCH
Read OK:	✔
File size:	1396 bytes
Load address:	FFFF1A00
Exec address:	FFFF801F

File contents

   10REM"�*****************************
   20REM"�*�POOLS  PREDICTOR  PROGRAM�*
   30REM"�*�MATCH    DATA    COMPILER�*
   40REM"�*�by�J.J.Brayshaw�Oct. 1985�*
   50REM"�*****************************
   60REM"�*�December 1988 (4)        �*
   70REM"�*****************************
   80MODE7
   90*TTXON
  100VDU23;8202;0;0;0;
  110REM"�No of matches on coupon:
  120max%=58
  130PROCsetup
  140IF NOT FNadapter PRINT"No Ttx adapter":END
  150*TELESOFT
  160*BBC2
  170*HON
  180PROCsetlength(24)
  190CLS:PRINT'logo$'''CHR$141;"�Looking for fixture lists ..."'CHR$141;"�Looking for fixture lists ...";
  200FORW%=1TO12:PROCsetgrabber(W%,3,&32,EVAL("&"+STR$(W%)),loc%+((W%-1)*&3C0)):NEXT
  210got%=FNwaitforgrabber
  220IFgot%=0:p2%=1:PROCreset_grabbers:FORW%=1TO12:PROCsetgrabber(W%,3,&31,EVAL("&"+STR$(W%)),loc%+((W%-1)*&3C0)):NEXT:got%=FNwaitforgrabber:ELSE p2%=2
  230L%=0:v%=(loc%+((got%-1)*&3C0)):FORA%=v% TO (v%+&3C0) STEP40:L%=L%+1
  240IFL%=4 ?(A%+80)=&D:A$=$A%:PROCcheck($A%)
  250NEXT
  255IFgot%=0 AND p2%<>1 GOTO220
  260IFgot%=0 PROCerror(1)
  270SPS=FNhowmany(got%):IFSPS>12 SPS=8
  280CLS:PRINT'logo$'''"�Pages required:";TAB(20);"Pages found:"
  290FORX%=1TOSPS:PRINTTAB(7,10+X%);"�33";p2%;"s00";RIGHT$("0"+STR$(X%),2):NEXT
  300PROCwait_for_pages(SPS)
  310PROCreset_grabbers
  320*HOFF
  330PROCputdata
  340PROCgo_on
  350END
  360REM"�***
  370DEFPROCprocess(loc%)
  380LOCALF%,L%,T%,M%
  390FORF%=loc% TO loc%+&398:?F%=(?F%AND&7F):IF?F%<32 ?F%=32
  400NEXT
  410L%=1
  420PRINTTAB(0,23)"�Processing data for match "'"�Please wait ...";
  430FORF%=loc% TO loc%+&398 STEP40
  440L%=L%+1
  450IFL%<6 GOTO500
  460T%=?(F%+40)
  470?(F%+40)=&D:A$=$F%
  480?(F%+40)=T%
  490M%=VAL(A$):IFM%<>0 AND M%<=max% PRINTTAB(27,23);M%;"  ";:PROCfind_teams(M%)
  500NEXT
  510PRINTTAB(0,23)SPC(70);
  520ENDPROC
  530REM"�***
  540DEFPROCfind_teams(M%)
  550RESTORE660
  560HOME$=LEFT$(A$,18)+" ":AWAY$=RIGHT$(A$,18)+" "
  570W%=0:h%=FALSE:a%=FALSE
  580REPEAT:W%=W%+1
  590READT$
  600IF(h%=FALSE) AND(INSTR(HOME$,LEFT$(T$,LEN(T$)-1))<>0) AND(INSTR(HOME$,RIGHT$(T$,1))<>0):m(M%)=W%:h%=TRUE
  610IF(a%=FALSE) AND(INSTR(AWAY$,LEFT$(T$,LEN(T$)-1))<>0) AND(INSTR(AWAY$,RIGHT$(T$,1))<>0):n(M%)=W%:a%=TRUE
  620UNTIL(h%=TRUE ANDa%=TRUE)OR(T$="END")
  630IFT$="END" m(M%)=999
  640ENDPROC
  650REM"�***
  660DATA Arsn,AV,Chan,Covy,Deb,Evt,Livp,Luo,ManU,Midb,Mila,Newct,Norwc,NotF,QR,ShW,Sop,Totm,WesH,Wiml
  670DATA Bas,Bih,Blb,Boum,Braf,Brin,Chels,Crya,Hull,Ip,Lees,Leit,ManC,Ola,Oxr,Ply,Pom,Shw,Stoke,Sur,Swio,Wala,Watf,WB
  680DATA Aldh,Blp,Bolo,Bred,BriC,BriR,Bury ,Cardf,ChesC,Chesf,Fuh,Gig,Hudf,Mans,Nortp,NotC,PoV,Prn,Reg,ShU,Sod,Swaa,WiA,Wov
  690DATA Burny,Camb,Carls,Colh,Crew,Dag,Doc,Ext,Grb,Halx,Harp,Here,Leyn,Linl,Peb,Roca,Rota,Scab,Scuh,Stocp,Torq,Trm,Wrx,Yok
  700DATA Altm,Aylb,Bat,Bosn,Cheltm,Choy,Enl,Fih,Keg,Kidr,Macd,Maio,Newpr,Nortw,Ruc,Staf,Suo,Ter,Welg,Weym,Wyb,Yev
  710DATA Abr,Cec,"Dundee   ",DunU,Haml,Heas,Hia,Motw,Rag,SM
  720DATA Aie,Ayr ,"Clyde  ",Clb,Dunf,Fak,Fof,Kilc,Meb,Morn,Pak,QS,RR,SJ
  730DATA Albn,Alla,Arba,Bew,Brh,Cowh,Dumb,EaF,ES,Mons,QuP,Stem,Stig,Stre
  740DATA END
  750REM"�***
  760DEFPROCputdata
  770M%=OPENOUT"MDATA"
  780FORA%=1TOmax%
  790IFm(A%)=999 BPUT#M%,255:GOTO830
  800IFm(A%)=0 BPUT#M%,255:GOTO830
  810BPUT#M%,m(A%)
  820BPUT#M%,n(A%)
  830NEXT
  840CLOSE#M%
  850ENDPROC
  860REM"�***
  870DEFPROCsetup
  880DIMM%(max%),n(max%),m(max%),done(12)
  890DIM loc% 12*&3C0
  900DIM C% 20
  910logo$=" ���h��������� �� ��������𰴴"+CHR$10+CHR$13+"��� j����������  ������꠵�����"+CHR$10+CHR$13+"��� j���������  ���������������"+CHR$10+CHR$13+"� � *�``````��  ��Pools predictor"+CHR$10+CHR$13
  920ENDPROC
  930REM"�***
  940DEFPROCoscli(n$)
  950$C%=n$:X%=C%MOD256:Y%=C%DIV256:CALL&FFF7
  960ENDPROC
  970REM"�***
  980DEFPROCgo_on
  990CLS:PRINTlogo$
 1000PRINT'''''CHR$141;CHR$131;"Run Pools Predictor now?�(Y/N) "'CHR$141;CHR$131;"Run Pools Predictor now?�(Y/N) ";
 1010REPEAT:Q=GET AND&DF:UNTILQ=78 ORQ=89
 1020IFQ=89 PROCoscli("FX138,0,89"):CHAIN"FOOT"
 1030CLS:PRINTlogo$
 1040ENDPROC
 1050REM"�***
 1060DEFPROCcheck(A$)
 1070IFINSTR(A$,"��������")=0 got%=0
 1080ENDPROC
 1090REM"�***
 1100DEFPROCerror(n)
 1110CLS:PRINT'logo$
 1120PRINTTAB(0,6)CHR$141;"�Sorry, error:"'CHR$141;"�Sorry, error:"
 1130IFn=1 PRINT''CHR$141;"�Fixture list not being transmitted"'CHR$141;"�Fixture list not being transmitted"
 1140IFn=1 PRINT''CHR$141;"�Try again later in the week."'CHR$141;"�Try again later in the week."
 1150IFn=2 PRINT''CHR$141;"�Adapter not on."'CHR$141;"�Adapter not on.":GOTO1170
 1160*HOFF
 1170END
 1180REM"�***
 1190DEFFNhowmany(got%)
 1200LOCALA%
 1210FORA%=loc%+((got%-1)*&3C0) TO loc%+&50+((got%-1)*&3C0):?A%=(?A%)AND&7F:NEXT
 1220?A%=&D
 1230REPEAT:A%=A%-1:UNTIL?A%=ASC"/"
 1240=VAL($(A%+1))
 1250REM"�***
 1260DEFFNadapter:DIM work% 2
 1270A%=&7A:X%=work%MOD256:Y%=work%DIV256:?work%=17:CALL&FFF1:IFwork%?1=0 =TRUE ELSE =FALSE
 1280REM"�***
 1290DEFPROCsetgrabber(no%,mag%,page%,sub%,store%)
 1300A%=&7A:C%?0=5:X%=C%MOD256:Y%=C%DIV256
 1310C%?1=no%:C%?2=mag%:C%?3=page%:C%?4=sub%DIV256:C%?5=sub%MOD256:C%?6=store%MOD256:C%?7=store%DIV256
 1320CALL&FFF1
 1330ENDPROC
 1340REM"�***
 1350DEFFNcheck_got(no%)
 1360A%=&7A:C%?0=2:X%=C%MOD256:Y%=C%DIV256
 1370C%?1=no%:CALL&FFF1
 1380IF((C%?2)AND2)=2 =TRUE ELSE =FALSE
 1390REM"�***
 1400DEFPROCstop_updates
 1410A%=&7A:C%?0=2:X%=C%MOD256:Y%=C%DIV256
 1420FORJ%=0TOgrabbers
 1430REPEAT
 1440C%?1=J%:CALL&FFF1
 1450UNTIL((C%?2)AND4)=0
 1460PROCset_hold(J%)
 1470NEXT
 1480ENDPROC
 1490REM"�***
 1500DEFPROCset_hold(no%)
 1510A%=&7A:C%?0=3:X%=C%MOD256:Y%=C%DIV256
 1520C%?1=no%:C%?2=3:CALL&FFF1
 1530ENDPROC
 1540REM"�***
 1550DEFPROCreset_grabbers
 1560A%=&7A:X%=C%MOD256:Y%=C%DIV256
 1570C%?0=14
 1580CALL&FFF1
 1590ENDPROC
 1600REM"�***
 1610DEFPROCwait_for_pages(grabbers)
 1620REPEAT:S%=TRUE
 1630FORG%=1TOgrabbers:I%=FNcheck_got(G%):IFI%=TRUE PRINTTAB(20,10+G%);"Found":ELSE S%=FALSE
 1640IFI%=TRUE AND done(G%)=FALSE:done(G%)=TRUE:PROCprocess(loc%+((G%-1)*&3C0))
 1650NEXT
 1660UNTILS%=TRUE
 1670ENDPROC
 1680REM"�***
 1690DEFFNwaitforgrabber
 1700T=TIME
 1710G%=1
 1720I%=FNcheck_got(G%):IFI%=TRUE PROCset_hold(G%):=G%
 1730G%=(G% MOD10)+1
 1740IFTIME<T+6000 GOTO1720 ELSE=0
 1750REM"�***
 1760DEFPROCsetlength(no%)
 1770A%=&7A:X%=C%MOD256:Y%=C%DIV256:C%?0=7:C%?1=no%:CALL&FFF1
 1780ENDPROC


$�"�*****************************
$�"�*�POOLS  PREDICTOR  PROGRAM�*
$�"�*�MATCH    DATA    COMPILER�*
($�"�*�by�J.J.Brayshaw�Oct. 1985�*
2$�"�*****************************
<$�"�*�December 1988 (4)        �*
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�12:�setgrabber(W%,3,&32,�("&"+�(W%)),loc%+((W%-1)*&3C0)):�
�got%=�waitforgrabber
��got%=0:p2%=1:�reset_grabbers:�W%=1�12:�setgrabber(W%,3,&31,�("&"+�(W%)),loc%+((W%-1)*&3C0)):�:got%=�waitforgrabber:� p2%=2
�AL%=0:v%=(loc%+((got%-1)*&3C0)):�A%=v% � (v%+&3C0) �40:L%=L%+1
�(�L%=4 ?(A%+80)=&D:A$=$A%:�check($A%)
��
��got%=0 � p2%<>1 �d\@
�got%=0 �error(1)
$SPS=�howmany(got%):�SPS>12 SPS=8
6�:�'logo$'''"�Pages required:";�20);"Pages found:"
"8�X%=1�SPS:�7,10+X%);"�33";p2%;"s00";�"0"+�(X%),2):�
,�wait_for_pages(SPS)
6�reset_grabbers
@	*HOFF
J�putdata
T
�go_on
^�
h
�"�***
r��process(loc%)
|�F%,L%,T%,M%
�5�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 �dtA
�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%)
&	��tTB
0'HOME$=�A$,18)+" ":AWAY$=�A$,18)+" "
:W%=0:h%=�:a%=�
D
�:W%=W%+1
N�T$
XI�(h%=�) �(�HOME$,�T$,�(T$)-1))<>0) �(�HOME$,�T$,1))<>0):m(M%)=W%:h%=�
bI�(a%=�) �(�AWAY$,�T$,�(T$)-1))<>0) �(�AWAY$,�T$,1))<>0):n(M%)=W%:a%=�
l�(h%=� �a%=�)�(T$="END")
v�T$="END" m(M%)=999
��
�
�"�***
�b� Arsn,AV,Chan,Covy,Deb,Evt,Livp,Luo,ManU,Midb,Mila,Newct,Norwc,NotF,QR,ShW,Sop,Totm,WesH,Wiml
�r� Bas,Bih,Blb,Boum,Braf,Brin,Chels,Crya,Hull,Ip,Lees,Leit,ManC,Ola,Oxr,Ply,Pom,Shw,Stoke,Sur,Swio,Wala,Watf,WB
�x� Aldh,Blp,Bolo,Bred,BriC,BriR,Bury ,Cardf,ChesC,Chesf,Fuh,Gig,Hudf,Mans,Nortp,NotC,PoV,Prn,Reg,ShU,Sod,Swaa,WiA,Wov
�x� Burny,Camb,Carls,Colh,Crew,Dag,Doc,Ext,Grb,Halx,Harp,Here,Leyn,Linl,Peb,Roca,Rota,Scab,Scuh,Stocp,Torq,Trm,Wrx,Yok
�n� Altm,Aylb,Bat,Bosn,Cheltm,Choy,Enl,Fih,Keg,Kidr,Macd,Maio,Newpr,Nortw,Ruc,Staf,Suo,Ter,Welg,Weym,Wyb,Yev
�8� Abr,Cec,"Dundee   ",DunU,Haml,Heas,Hia,Motw,Rag,SM
�D� Aie,Ayr ,"Clyde  ",Clb,Dunf,Fak,Fof,Kilc,Meb,Morn,Pak,QS,RR,SJ
�E� Albn,Alla,Arba,Bew,Brh,Cowh,Dumb,EaF,ES,Mons,QuP,Stem,Stig,Stre
�	� END
�
�"�***
�
��putdata
M%=�"MDATA"
�A%=1�max%
�m(A%)=999 �#M%,255:�T~C
 �m(A%)=0 �#M%,255:�T~C
*�#M%,m(A%)
4�#M%,n(A%)
>�
H�#M%
R�
\
�"�***
f��setup
p&�M%(max%),n(max%),m(max%),done(12)
z� loc% 12*&3C0
�� C% 20
��logo$=" ���h��������� �� �������𰴴"+�10+�13+"��� j����������  ������꠵�����"+�10+�13+"��� j���������  ���������������"+�10+�13+"� � *�``````��  ��Pools predictor"+�10+�13
��
�
�"�***
���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 got%=0
8�
B
�"�***
L��error(n)
V
�:�'logo$
`5�0,6)�141;"�Sorry, error:"'�141;"�Sorry, error:"
ja�n=1 �''�141;"�Fixture list not being transmitted"'�141;"�Fixture list not being transmitted"
tU�n=1 �''�141;"�Try again later in the week."'�141;"�Try again later in the week."
~A�n=2 �''�141;"�Adapter not on."'�141;"�Adapter not on.":�tRD
�	*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�
<
�"�***
Fݤcheck_got(no%)
P%A%=&7A:C%?0=2:X%=C%�256:Y%=C%�256
ZC%?1=no%:�&FFF1
d�((C%?2)�2)=2 =� � =�
n
�"�***
x��stop_updates
�%A%=&7A:C%?0=2:X%=C%�256:Y%=C%�256
��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�
@
�"�***
J��wait_for_pages(grabbers)
T
�:S%=�
^E�G%=1�grabbers:I%=�check_got(G%):�I%=� �20,10+G%);"Found":� S%=�
h>�I%=� � done(G%)=�:done(G%)=�:�process(loc%+((G%-1)*&3C0))
r�
|	�S%=�
��
�
�"�***
�ݤwaitforgrabber
�T=�
�G%=1
�-I%=�check_got(G%):�I%=� �set_hold(G%):=G%
�G%=(G% �10)+1
��<T+6000 �txF �=0
�
�"�***
���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 44 65 63  |****..<$.".*.Dec|
000000c0  65 6d 62 65 72 20 31 39  38 38 20 28 34 29 20 20  |ember 1988 (4)  |
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 32 3a  |.";...D.W%=1.12:|
00000210  f2 73 65 74 67 72 61 62  62 65 72 28 57 25 2c 33  |.setgrabber(W%,3|
00000220  2c 26 33 32 2c a0 28 22  26 22 2b c3 28 57 25 29  |,&32,.("&"+.(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 7f e7 67 6f 74 25  3d 30 3a 70 32 25 3d 31  |....got%=0:p2%=1|
00000270  3a f2 72 65 73 65 74 5f  67 72 61 62 62 65 72 73  |:.reset_grabbers|
00000280  3a e3 57 25 3d 31 b8 31  32 3a f2 73 65 74 67 72  |:.W%=1.12:.setgr|
00000290  61 62 62 65 72 28 57 25  2c 33 2c 26 33 31 2c a0  |abber(W%,3,&31,.|
000002a0  28 22 26 22 2b c3 28 57  25 29 29 2c 6c 6f 63 25  |("&"+.(W%)),loc%|
000002b0  2b 28 28 57 25 2d 31 29  2a 26 33 43 30 29 29 3a  |+((W%-1)*&3C0)):|
000002c0  ed 3a 67 6f 74 25 3d a4  77 61 69 74 66 6f 72 67  |.:got%=.waitforg|
000002d0  72 61 62 62 65 72 3a 8b  20 70 32 25 3d 32 0d 00  |rabber:. p2%=2..|
000002e0  e6 41 4c 25 3d 30 3a 76  25 3d 28 6c 6f 63 25 2b  |.AL%=0:v%=(loc%+|
000002f0  28 28 67 6f 74 25 2d 31  29 2a 26 33 43 30 29 29  |((got%-1)*&3C0))|
00000300  3a e3 41 25 3d 76 25 20  b8 20 28 76 25 2b 26 33  |:.A%=v% . (v%+&3|
00000310  43 30 29 20 88 34 30 3a  4c 25 3d 4c 25 2b 31 0d  |C0) .40:L%=L%+1.|
00000320  00 f0 28 e7 4c 25 3d 34  20 3f 28 41 25 2b 38 30  |..(.L%=4 ?(A%+80|
00000330  29 3d 26 44 3a 41 24 3d  24 41 25 3a f2 63 68 65  |)=&D:A$=$A%:.che|
00000340  63 6b 28 24 41 25 29 0d  00 fa 05 ed 0d 00 ff 1a  |ck($A%).........|
00000350  e7 67 6f 74 25 3d 30 20  80 20 70 32 25 3c 3e 31  |.got%=0 . p2%<>1|
00000360  20 e5 8d 64 5c 40 0d 01  04 15 e7 67 6f 74 25 3d  | ..d\@.....got%=|
00000370  30 20 f2 65 72 72 6f 72  28 31 29 0d 01 0e 24 53  |0 .error(1)...$S|
00000380  50 53 3d a4 68 6f 77 6d  61 6e 79 28 67 6f 74 25  |PS=.howmany(got%|
00000390  29 3a e7 53 50 53 3e 31  32 20 53 50 53 3d 38 0d  |):.SPS>12 SPS=8.|
000003a0  01 18 36 db 3a f1 27 6c  6f 67 6f 24 27 27 27 22  |..6.:.'logo$'''"|
000003b0  83 50 61 67 65 73 20 72  65 71 75 69 72 65 64 3a  |.Pages required:|
000003c0  22 3b 8a 32 30 29 3b 22  50 61 67 65 73 20 66 6f  |";.20);"Pages fo|
000003d0  75 6e 64 3a 22 0d 01 22  38 e3 58 25 3d 31 b8 53  |und:".."8.X%=1.S|
000003e0  50 53 3a f1 8a 37 2c 31  30 2b 58 25 29 3b 22 86  |PS:..7,10+X%);".|
000003f0  33 33 22 3b 70 32 25 3b  22 73 30 30 22 3b c2 22  |33";p2%;"s00";."|
00000400  30 22 2b c3 28 58 25 29  2c 32 29 3a ed 0d 01 2c  |0"+.(X%),2):...,|
00000410  18 f2 77 61 69 74 5f 66  6f 72 5f 70 61 67 65 73  |..wait_for_pages|
00000420  28 53 50 53 29 0d 01 36  13 f2 72 65 73 65 74 5f  |(SPS)..6..reset_|
00000430  67 72 61 62 62 65 72 73  0d 01 40 09 2a 48 4f 46  |grabbers..@.*HOF|
00000440  46 0d 01 4a 0c f2 70 75  74 64 61 74 61 0d 01 54  |F..J..putdata..T|
00000450  0a f2 67 6f 5f 6f 6e 0d  01 5e 05 e0 0d 01 68 0a  |..go_on..^....h.|
00000460  f4 22 81 2a 2a 2a 0d 01  72 13 dd f2 70 72 6f 63  |.".***..r...proc|
00000470  65 73 73 28 6c 6f 63 25  29 0d 01 7c 10 ea 46 25  |ess(loc%)..|..F%|
00000480  2c 4c 25 2c 54 25 2c 4d  25 0d 01 86 35 e3 46 25  |,L%,T%,M%...5.F%|
00000490  3d 6c 6f 63 25 20 b8 20  6c 6f 63 25 2b 26 33 39  |=loc% . loc%+&39|
000004a0  38 3a 3f 46 25 3d 28 3f  46 25 80 26 37 46 29 3a  |8:?F%=(?F%.&7F):|
000004b0  e7 3f 46 25 3c 33 32 20  3f 46 25 3d 33 32 0d 01  |.?F%<32 ?F%=32..|
000004c0  90 05 ed 0d 01 9a 08 4c  25 3d 31 0d 01 a4 3c f1  |.......L%=1...<.|
000004d0  8a 30 2c 32 33 29 22 81  50 72 6f 63 65 73 73 69  |.0,23)".Processi|
000004e0  6e 67 20 64 61 74 61 20  66 6f 72 20 6d 61 74 63  |ng data for matc|
000004f0  68 20 22 27 22 81 50 6c  65 61 73 65 20 77 61 69  |h "'".Please wai|
00000500  74 20 2e 2e 2e 22 3b 0d  01 ae 1c e3 46 25 3d 6c  |t ...";.....F%=l|
00000510  6f 63 25 20 b8 20 6c 6f  63 25 2b 26 33 39 38 20  |oc% . loc%+&398 |
00000520  88 34 30 0d 01 b8 0b 4c  25 3d 4c 25 2b 31 0d 01  |.40....L%=L%+1..|
00000530  c2 0f e7 4c 25 3c 36 20  e5 8d 64 74 41 0d 01 cc  |...L%<6 ..dtA...|
00000540  0f 54 25 3d 3f 28 46 25  2b 34 30 29 0d 01 d6 16  |.T%=?(F%+40)....|
00000550  3f 28 46 25 2b 34 30 29  3d 26 44 3a 41 24 3d 24  |?(F%+40)=&D:A$=$|
00000560  46 25 0d 01 e0 0f 3f 28  46 25 2b 34 30 29 3d 54  |F%....?(F%+40)=T|
00000570  25 0d 01 ea 40 4d 25 3d  bb 28 41 24 29 3a e7 4d  |%...@M%=.(A$):.M|
00000580  25 3c 3e 30 20 80 20 4d  25 3c 3d 6d 61 78 25 20  |%<>0 . M%<=max% |
00000590  f1 8a 32 37 2c 32 33 29  3b 4d 25 3b 22 20 20 22  |..27,23);M%;"  "|
000005a0  3b 3a f2 66 69 6e 64 5f  74 65 61 6d 73 28 4d 25  |;:.find_teams(M%|
000005b0  29 0d 01 f4 05 ed 0d 01  fe 11 f1 8a 30 2c 32 33  |)...........0,23|
000005c0  29 89 28 37 30 29 3b 0d  02 08 05 e1 0d 02 12 0a  |).(70);.........|
000005d0  f4 22 81 2a 2a 2a 0d 02  1c 14 dd f2 66 69 6e 64  |.".***......find|
000005e0  5f 74 65 61 6d 73 28 4d  25 29 0d 02 26 09 f7 8d  |_teams(M%)..&...|
000005f0  74 54 42 0d 02 30 27 48  4f 4d 45 24 3d c0 41 24  |tTB..0'HOME$=.A$|
00000600  2c 31 38 29 2b 22 20 22  3a 41 57 41 59 24 3d c2  |,18)+" ":AWAY$=.|
00000610  41 24 2c 31 38 29 2b 22  20 22 0d 02 3a 12 57 25  |A$,18)+" "..:.W%|
00000620  3d 30 3a 68 25 3d a3 3a  61 25 3d a3 0d 02 44 0d  |=0:h%=.:a%=...D.|
00000630  f5 3a 57 25 3d 57 25 2b  31 0d 02 4e 07 f3 54 24  |.:W%=W%+1..N..T$|
00000640  0d 02 58 49 e7 28 68 25  3d a3 29 20 80 28 a7 48  |..XI.(h%=.) .(.H|
00000650  4f 4d 45 24 2c c0 54 24  2c a9 28 54 24 29 2d 31  |OME$,.T$,.(T$)-1|
00000660  29 29 3c 3e 30 29 20 80  28 a7 48 4f 4d 45 24 2c  |))<>0) .(.HOME$,|
00000670  c2 54 24 2c 31 29 29 3c  3e 30 29 3a 6d 28 4d 25  |.T$,1))<>0):m(M%|
00000680  29 3d 57 25 3a 68 25 3d  b9 0d 02 62 49 e7 28 61  |)=W%:h%=...bI.(a|
00000690  25 3d a3 29 20 80 28 a7  41 57 41 59 24 2c c0 54  |%=.) .(.AWAY$,.T|
000006a0  24 2c a9 28 54 24 29 2d  31 29 29 3c 3e 30 29 20  |$,.(T$)-1))<>0) |
000006b0  80 28 a7 41 57 41 59 24  2c c2 54 24 2c 31 29 29  |.(.AWAY$,.T$,1))|
000006c0  3c 3e 30 29 3a 6e 28 4d  25 29 3d 57 25 3a 61 25  |<>0):n(M%)=W%:a%|
000006d0  3d b9 0d 02 6c 1c fd 28  68 25 3d b9 20 80 61 25  |=...l..(h%=. .a%|
000006e0  3d b9 29 84 28 54 24 3d  22 45 4e 44 22 29 0d 02  |=.).(T$="END")..|
000006f0  76 17 e7 54 24 3d 22 45  4e 44 22 20 6d 28 4d 25  |v..T$="END" m(M%|
00000700  29 3d 39 39 39 0d 02 80  05 e1 0d 02 8a 0a f4 22  |)=999.........."|
00000710  81 2a 2a 2a 0d 02 94 62  dc 20 41 72 73 6e 2c 41  |.***...b. Arsn,A|
00000720  56 2c 43 68 61 6e 2c 43  6f 76 79 2c 44 65 62 2c  |V,Chan,Covy,Deb,|
00000730  45 76 74 2c 4c 69 76 70  2c 4c 75 6f 2c 4d 61 6e  |Evt,Livp,Luo,Man|
00000740  55 2c 4d 69 64 62 2c 4d  69 6c 61 2c 4e 65 77 63  |U,Midb,Mila,Newc|
00000750  74 2c 4e 6f 72 77 63 2c  4e 6f 74 46 2c 51 52 2c  |t,Norwc,NotF,QR,|
00000760  53 68 57 2c 53 6f 70 2c  54 6f 74 6d 2c 57 65 73  |ShW,Sop,Totm,Wes|
00000770  48 2c 57 69 6d 6c 0d 02  9e 72 dc 20 42 61 73 2c  |H,Wiml...r. Bas,|
00000780  42 69 68 2c 42 6c 62 2c  42 6f 75 6d 2c 42 72 61  |Bih,Blb,Boum,Bra|
00000790  66 2c 42 72 69 6e 2c 43  68 65 6c 73 2c 43 72 79  |f,Brin,Chels,Cry|
000007a0  61 2c 48 75 6c 6c 2c 49  70 2c 4c 65 65 73 2c 4c  |a,Hull,Ip,Lees,L|
000007b0  65 69 74 2c 4d 61 6e 43  2c 4f 6c 61 2c 4f 78 72  |eit,ManC,Ola,Oxr|
000007c0  2c 50 6c 79 2c 50 6f 6d  2c 53 68 77 2c 53 74 6f  |,Ply,Pom,Shw,Sto|
000007d0  6b 65 2c 53 75 72 2c 53  77 69 6f 2c 57 61 6c 61  |ke,Sur,Swio,Wala|
000007e0  2c 57 61 74 66 2c 57 42  0d 02 a8 78 dc 20 41 6c  |,Watf,WB...x. Al|
000007f0  64 68 2c 42 6c 70 2c 42  6f 6c 6f 2c 42 72 65 64  |dh,Blp,Bolo,Bred|
00000800  2c 42 72 69 43 2c 42 72  69 52 2c 42 75 72 79 20  |,BriC,BriR,Bury |
00000810  2c 43 61 72 64 66 2c 43  68 65 73 43 2c 43 68 65  |,Cardf,ChesC,Che|
00000820  73 66 2c 46 75 68 2c 47  69 67 2c 48 75 64 66 2c  |sf,Fuh,Gig,Hudf,|
00000830  4d 61 6e 73 2c 4e 6f 72  74 70 2c 4e 6f 74 43 2c  |Mans,Nortp,NotC,|
00000840  50 6f 56 2c 50 72 6e 2c  52 65 67 2c 53 68 55 2c  |PoV,Prn,Reg,ShU,|
00000850  53 6f 64 2c 53 77 61 61  2c 57 69 41 2c 57 6f 76  |Sod,Swaa,WiA,Wov|
00000860  0d 02 b2 78 dc 20 42 75  72 6e 79 2c 43 61 6d 62  |...x. Burny,Camb|
00000870  2c 43 61 72 6c 73 2c 43  6f 6c 68 2c 43 72 65 77  |,Carls,Colh,Crew|
00000880  2c 44 61 67 2c 44 6f 63  2c 45 78 74 2c 47 72 62  |,Dag,Doc,Ext,Grb|
00000890  2c 48 61 6c 78 2c 48 61  72 70 2c 48 65 72 65 2c  |,Halx,Harp,Here,|
000008a0  4c 65 79 6e 2c 4c 69 6e  6c 2c 50 65 62 2c 52 6f  |Leyn,Linl,Peb,Ro|
000008b0  63 61 2c 52 6f 74 61 2c  53 63 61 62 2c 53 63 75  |ca,Rota,Scab,Scu|
000008c0  68 2c 53 74 6f 63 70 2c  54 6f 72 71 2c 54 72 6d  |h,Stocp,Torq,Trm|
000008d0  2c 57 72 78 2c 59 6f 6b  0d 02 bc 6e dc 20 41 6c  |,Wrx,Yok...n. Al|
000008e0  74 6d 2c 41 79 6c 62 2c  42 61 74 2c 42 6f 73 6e  |tm,Aylb,Bat,Bosn|
000008f0  2c 43 68 65 6c 74 6d 2c  43 68 6f 79 2c 45 6e 6c  |,Cheltm,Choy,Enl|
00000900  2c 46 69 68 2c 4b 65 67  2c 4b 69 64 72 2c 4d 61  |,Fih,Keg,Kidr,Ma|
00000910  63 64 2c 4d 61 69 6f 2c  4e 65 77 70 72 2c 4e 6f  |cd,Maio,Newpr,No|
00000920  72 74 77 2c 52 75 63 2c  53 74 61 66 2c 53 75 6f  |rtw,Ruc,Staf,Suo|
00000930  2c 54 65 72 2c 57 65 6c  67 2c 57 65 79 6d 2c 57  |,Ter,Welg,Weym,W|
00000940  79 62 2c 59 65 76 0d 02  c6 38 dc 20 41 62 72 2c  |yb,Yev...8. Abr,|
00000950  43 65 63 2c 22 44 75 6e  64 65 65 20 20 20 22 2c  |Cec,"Dundee   ",|
00000960  44 75 6e 55 2c 48 61 6d  6c 2c 48 65 61 73 2c 48  |DunU,Haml,Heas,H|
00000970  69 61 2c 4d 6f 74 77 2c  52 61 67 2c 53 4d 0d 02  |ia,Motw,Rag,SM..|
00000980  d0 44 dc 20 41 69 65 2c  41 79 72 20 2c 22 43 6c  |.D. Aie,Ayr ,"Cl|
00000990  79 64 65 20 20 22 2c 43  6c 62 2c 44 75 6e 66 2c  |yde  ",Clb,Dunf,|
000009a0  46 61 6b 2c 46 6f 66 2c  4b 69 6c 63 2c 4d 65 62  |Fak,Fof,Kilc,Meb|
000009b0  2c 4d 6f 72 6e 2c 50 61  6b 2c 51 53 2c 52 52 2c  |,Morn,Pak,QS,RR,|
000009c0  53 4a 0d 02 da 45 dc 20  41 6c 62 6e 2c 41 6c 6c  |SJ...E. Albn,All|
000009d0  61 2c 41 72 62 61 2c 42  65 77 2c 42 72 68 2c 43  |a,Arba,Bew,Brh,C|
000009e0  6f 77 68 2c 44 75 6d 62  2c 45 61 46 2c 45 53 2c  |owh,Dumb,EaF,ES,|
000009f0  4d 6f 6e 73 2c 51 75 50  2c 53 74 65 6d 2c 53 74  |Mons,QuP,Stem,St|
00000a00  69 67 2c 53 74 72 65 0d  02 e4 09 dc 20 45 4e 44  |ig,Stre..... END|
00000a10  0d 02 ee 0a f4 22 81 2a  2a 2a 0d 02 f8 0d dd f2  |.....".***......|
00000a20  70 75 74 64 61 74 61 0d  03 02 0f 4d 25 3d ae 22  |putdata....M%=."|
00000a30  4d 44 41 54 41 22 0d 03  0c 0e e3 41 25 3d 31 b8  |MDATA".....A%=1.|
00000a40  6d 61 78 25 0d 03 16 1d  e7 6d 28 41 25 29 3d 39  |max%.....m(A%)=9|
00000a50  39 39 20 d5 23 4d 25 2c  32 35 35 3a e5 8d 54 7e  |99 .#M%,255:..T~|
00000a60  43 0d 03 20 1b e7 6d 28  41 25 29 3d 30 20 d5 23  |C.. ..m(A%)=0 .#|
00000a70  4d 25 2c 32 35 35 3a e5  8d 54 7e 43 0d 03 2a 0e  |M%,255:..T~C..*.|
00000a80  d5 23 4d 25 2c 6d 28 41  25 29 0d 03 34 0e d5 23  |.#M%,m(A%)..4..#|
00000a90  4d 25 2c 6e 28 41 25 29  0d 03 3e 05 ed 0d 03 48  |M%,n(A%)..>....H|
00000aa0  08 d9 23 4d 25 0d 03 52  05 e1 0d 03 5c 0a f4 22  |..#M%..R....\.."|
00000ab0  81 2a 2a 2a 0d 03 66 0b  dd f2 73 65 74 75 70 0d  |.***..f...setup.|
00000ac0  03 70 26 de 4d 25 28 6d  61 78 25 29 2c 6e 28 6d  |.p&.M%(max%),n(m|
00000ad0  61 78 25 29 2c 6d 28 6d  61 78 25 29 2c 64 6f 6e  |ax%),m(max%),don|
00000ae0  65 28 31 32 29 0d 03 7a  12 de 20 6c 6f 63 25 20  |e(12)..z.. loc% |
00000af0  31 32 2a 26 33 43 30 0d  03 84 0b de 20 43 25 20  |12*&3C0..... C% |
00000b00  32 30 0d 03 8e b3 6c 6f  67 6f 24 3d 22 20 97 a0  |20....logo$=" ..|
00000b10  a0 68 ac ac ac ac ac ac  ac ac b4 20 93 a0 20 bc  |.h......... .. .|
00000b20  e0 f0 e0 f0 e8 b0 f4 b0  f0 b0 b4 b4 22 2b bd 31  |............"+.1|
00000b30  30 2b bd 31 33 2b 22 94  9d 97 20 6a 9a ff ff ff  |0+.13+"... j....|
00000b40  ff ff ff 99 b5 93 20 20  a3 b7 ea ea ea ea ea a0  |......  ........|
00000b50  b5 b5 bc b5 b5 b5 22 2b  bd 31 30 2b bd 31 33 2b  |......"+.10+.13+|
00000b60  22 94 9d 97 20 6a 9a ff  ff ff ff ff ff 99 b5 20  |"... j......... |
00000b70  20 93 a0 a5 a2 a3 a2 a3  a2 a1 a3 a1 a3 a1 a1 a1  | ...............|
00000b80  22 2b bd 31 30 2b bd 31  33 2b 22 97 20 a0 20 2a  |"+.10+.13+". . *|
00000b90  9a 60 60 60 60 60 60 99  a5 20 20 a0 87 50 6f 6f  |.``````..  ..Poo|
00000ba0  6c 73 20 70 72 65 64 69  63 74 6f 72 22 2b bd 31  |ls predictor"+.1|
00000bb0  30 2b bd 31 33 0d 03 98  05 e1 0d 03 a2 0a f4 22  |0+.13.........."|
00000bc0  81 2a 2a 2a 0d 03 ac 0f  dd f2 6f 73 63 6c 69 28  |.***......oscli(|
00000bd0  6e 24 29 0d 03 b6 25 24  43 25 3d 6e 24 3a 58 25  |n$)...%$C%=n$:X%|
00000be0  3d 43 25 83 32 35 36 3a  59 25 3d 43 25 81 32 35  |=C%.256:Y%=C%.25|
00000bf0  36 3a d6 26 46 46 46 37  0d 03 c0 05 e1 0d 03 ca  |6:.&FFF7........|
00000c00  0a f4 22 81 2a 2a 2a 0d  03 d4 0b dd f2 67 6f 5f  |..".***......go_|
00000c10  6f 6e 0d 03 de 0c db 3a  f1 6c 6f 67 6f 24 0d 03  |on.....:.logo$..|
00000c20  e8 62 f1 27 27 27 27 27  bd 31 34 31 3b bd 31 33  |.b.'''''.141;.13|
00000c30  31 3b 22 52 75 6e 20 50  6f 6f 6c 73 20 50 72 65  |1;"Run Pools Pre|
00000c40  64 69 63 74 6f 72 20 6e  6f 77 3f 86 28 59 2f 4e  |dictor now?.(Y/N|
00000c50  29 20 22 27 bd 31 34 31  3b bd 31 33 31 3b 22 52  |) "'.141;.131;"R|
00000c60  75 6e 20 50 6f 6f 6c 73  20 50 72 65 64 69 63 74  |un Pools Predict|
00000c70  6f 72 20 6e 6f 77 3f 86  28 59 2f 4e 29 20 22 3b  |or now?.(Y/N) ";|
00000c80  0d 03 f2 1a f5 3a 51 3d  a5 20 80 26 44 46 3a fd  |.....:Q=. .&DF:.|
00000c90  51 3d 37 38 20 84 51 3d  38 39 0d 03 fc 26 e7 51  |Q=78 .Q=89...&.Q|
00000ca0  3d 38 39 20 f2 6f 73 63  6c 69 28 22 46 58 31 33  |=89 .oscli("FX13|
00000cb0  38 2c 30 2c 38 39 22 29  3a d7 22 46 4f 4f 54 22  |8,0,89"):."FOOT"|
00000cc0  0d 04 06 0c db 3a f1 6c  6f 67 6f 24 0d 04 10 05  |.....:.logo$....|
00000cd0  e1 0d 04 1a 0a f4 22 81  2a 2a 2a 0d 04 24 0f dd  |......".***..$..|
00000ce0  f2 63 68 65 63 6b 28 41  24 29 0d 04 2e 1d e7 a7  |.check(A$)......|
00000cf0  41 24 2c 22 c6 c9 d8 d4  d5 d2 c5 d3 22 29 3d 30  |A$,"........")=0|
00000d00  20 67 6f 74 25 3d 30 0d  04 38 05 e1 0d 04 42 0a  | got%=0..8....B.|
00000d10  f4 22 81 2a 2a 2a 0d 04  4c 0e dd f2 65 72 72 6f  |.".***..L...erro|
00000d20  72 28 6e 29 0d 04 56 0d  db 3a f1 27 6c 6f 67 6f  |r(n)..V..:.'logo|
00000d30  24 0d 04 60 35 f1 8a 30  2c 36 29 bd 31 34 31 3b  |$..`5..0,6).141;|
00000d40  22 86 53 6f 72 72 79 2c  20 65 72 72 6f 72 3a 22  |".Sorry, error:"|
00000d50  27 bd 31 34 31 3b 22 86  53 6f 72 72 79 2c 20 65  |'.141;".Sorry, e|
00000d60  72 72 6f 72 3a 22 0d 04  6a 61 e7 6e 3d 31 20 f1  |rror:"..ja.n=1 .|
00000d70  27 27 bd 31 34 31 3b 22  86 46 69 78 74 75 72 65  |''.141;".Fixture|
00000d80  20 6c 69 73 74 20 6e 6f  74 20 62 65 69 6e 67 20  | list not being |
00000d90  74 72 61 6e 73 6d 69 74  74 65 64 22 27 bd 31 34  |transmitted"'.14|
00000da0  31 3b 22 86 46 69 78 74  75 72 65 20 6c 69 73 74  |1;".Fixture list|
00000db0  20 6e 6f 74 20 62 65 69  6e 67 20 74 72 61 6e 73  | not being trans|
00000dc0  6d 69 74 74 65 64 22 0d  04 74 55 e7 6e 3d 31 20  |mitted"..tU.n=1 |
00000dd0  f1 27 27 bd 31 34 31 3b  22 83 54 72 79 20 61 67  |.''.141;".Try ag|
00000de0  61 69 6e 20 6c 61 74 65  72 20 69 6e 20 74 68 65  |ain later in the|
00000df0  20 77 65 65 6b 2e 22 27  bd 31 34 31 3b 22 83 54  | week."'.141;".T|
00000e00  72 79 20 61 67 61 69 6e  20 6c 61 74 65 72 20 69  |ry again later i|
00000e10  6e 20 74 68 65 20 77 65  65 6b 2e 22 0d 04 7e 41  |n the week."..~A|
00000e20  e7 6e 3d 32 20 f1 27 27  bd 31 34 31 3b 22 86 41  |.n=2 .''.141;".A|
00000e30  64 61 70 74 65 72 20 6e  6f 74 20 6f 6e 2e 22 27  |dapter not on."'|
00000e40  bd 31 34 31 3b 22 86 41  64 61 70 74 65 72 20 6e  |.141;".Adapter n|
00000e50  6f 74 20 6f 6e 2e 22 3a  e5 8d 74 52 44 0d 04 88  |ot on.":..tRD...|
00000e60  09 2a 48 4f 46 46 0d 04  92 05 e0 0d 04 9c 0a f4  |.*HOFF..........|
00000e70  22 81 2a 2a 2a 0d 04 a6  13 dd a4 68 6f 77 6d 61  |".***......howma|
00000e80  6e 79 28 67 6f 74 25 29  0d 04 b0 07 ea 41 25 0d  |ny(got%).....A%.|
00000e90  04 ba 47 e3 41 25 3d 6c  6f 63 25 2b 28 28 67 6f  |..G.A%=loc%+((go|
00000ea0  74 25 2d 31 29 2a 26 33  43 30 29 20 b8 20 6c 6f  |t%-1)*&3C0) . lo|
00000eb0  63 25 2b 26 35 30 2b 28  28 67 6f 74 25 2d 31 29  |c%+&50+((got%-1)|
00000ec0  2a 26 33 43 30 29 3a 3f  41 25 3d 28 3f 41 25 29  |*&3C0):?A%=(?A%)|
00000ed0  80 26 37 46 3a ed 0d 04  c4 0a 3f 41 25 3d 26 44  |.&7F:.....?A%=&D|
00000ee0  0d 04 ce 17 f5 3a 41 25  3d 41 25 2d 31 3a fd 3f  |.....:A%=A%-1:.?|
00000ef0  41 25 3d 97 22 2f 22 0d  04 d8 0f 3d bb 28 24 28  |A%=."/"....=.($(|
00000f00  41 25 2b 31 29 29 0d 04  e2 0a f4 22 81 2a 2a 2a  |A%+1)).....".***|
00000f10  0d 04 ec 17 dd a4 61 64  61 70 74 65 72 3a de 20  |......adapter:. |
00000f20  77 6f 72 6b 25 20 32 0d  04 f6 48 41 25 3d 26 37  |work% 2...HA%=&7|
00000f30  41 3a 58 25 3d 77 6f 72  6b 25 83 32 35 36 3a 59  |A:X%=work%.256:Y|
00000f40  25 3d 77 6f 72 6b 25 81  32 35 36 3a 3f 77 6f 72  |%=work%.256:?wor|
00000f50  6b 25 3d 31 37 3a d6 26  46 46 46 31 3a e7 77 6f  |k%=17:.&FFF1:.wo|
00000f60  72 6b 25 3f 31 3d 30 20  3d b9 20 8b 20 3d a3 0d  |rk%?1=0 =. . =..|
00000f70  05 00 0a f4 22 81 2a 2a  2a 0d 05 0a 2c dd f2 73  |....".***...,..s|
00000f80  65 74 67 72 61 62 62 65  72 28 6e 6f 25 2c 6d 61  |etgrabber(no%,ma|
00000f90  67 25 2c 70 61 67 65 25  2c 73 75 62 25 2c 73 74  |g%,page%,sub%,st|
00000fa0  6f 72 65 25 29 0d 05 14  25 41 25 3d 26 37 41 3a  |ore%)...%A%=&7A:|
00000fb0  43 25 3f 30 3d 35 3a 58  25 3d 43 25 83 32 35 36  |C%?0=5:X%=C%.256|
00000fc0  3a 59 25 3d 43 25 81 32  35 36 0d 05 1e 5d 43 25  |:Y%=C%.256...]C%|
00000fd0  3f 31 3d 6e 6f 25 3a 43  25 3f 32 3d 6d 61 67 25  |?1=no%:C%?2=mag%|
00000fe0  3a 43 25 3f 33 3d 70 61  67 65 25 3a 43 25 3f 34  |:C%?3=page%:C%?4|
00000ff0  3d 73 75 62 25 81 32 35  36 3a 43 25 3f 35 3d 73  |=sub%.256:C%?5=s|
00001000  75 62 25 83 32 35 36 3a  43 25 3f 36 3d 73 74 6f  |ub%.256:C%?6=sto|
00001010  72 65 25 83 32 35 36 3a  43 25 3f 37 3d 73 74 6f  |re%.256:C%?7=sto|
00001020  72 65 25 81 32 35 36 0d  05 28 0a d6 26 46 46 46  |re%.256..(..&FFF|
00001030  31 0d 05 32 05 e1 0d 05  3c 0a f4 22 81 2a 2a 2a  |1..2....<..".***|
00001040  0d 05 46 14 dd a4 63 68  65 63 6b 5f 67 6f 74 28  |..F...check_got(|
00001050  6e 6f 25 29 0d 05 50 25  41 25 3d 26 37 41 3a 43  |no%)..P%A%=&7A:C|
00001060  25 3f 30 3d 32 3a 58 25  3d 43 25 83 32 35 36 3a  |%?0=2:X%=C%.256:|
00001070  59 25 3d 43 25 81 32 35  36 0d 05 5a 13 43 25 3f  |Y%=C%.256..Z.C%?|
00001080  31 3d 6e 6f 25 3a d6 26  46 46 46 31 0d 05 64 19  |1=no%:.&FFF1..d.|
00001090  e7 28 28 43 25 3f 32 29  80 32 29 3d 32 20 3d b9  |.((C%?2).2)=2 =.|
000010a0  20 8b 20 3d a3 0d 05 6e  0a f4 22 81 2a 2a 2a 0d  | . =...n..".***.|
000010b0  05 78 12 dd f2 73 74 6f  70 5f 75 70 64 61 74 65  |.x...stop_update|
000010c0  73 0d 05 82 25 41 25 3d  26 37 41 3a 43 25 3f 30  |s...%A%=&7A:C%?0|
000010d0  3d 32 3a 58 25 3d 43 25  83 32 35 36 3a 59 25 3d  |=2:X%=C%.256:Y%=|
000010e0  43 25 81 32 35 36 0d 05  8c 12 e3 4a 25 3d 30 b8  |C%.256.....J%=0.|
000010f0  67 72 61 62 62 65 72 73  0d 05 96 05 f5 0d 05 a0  |grabbers........|
00001100  12 43 25 3f 31 3d 4a 25  3a d6 26 46 46 46 31 0d  |.C%?1=J%:.&FFF1.|
00001110  05 aa 11 fd 28 28 43 25  3f 32 29 80 34 29 3d 30  |....((C%?2).4)=0|
00001120  0d 05 b4 11 f2 73 65 74  5f 68 6f 6c 64 28 4a 25  |.....set_hold(J%|
00001130  29 0d 05 be 05 ed 0d 05  c8 05 e1 0d 05 d2 0a f4  |)...............|
00001140  22 81 2a 2a 2a 0d 05 dc  13 dd f2 73 65 74 5f 68  |".***......set_h|
00001150  6f 6c 64 28 6e 6f 25 29  0d 05 e6 25 41 25 3d 26  |old(no%)...%A%=&|
00001160  37 41 3a 43 25 3f 30 3d  33 3a 58 25 3d 43 25 83  |7A:C%?0=3:X%=C%.|
00001170  32 35 36 3a 59 25 3d 43  25 81 32 35 36 0d 05 f0  |256:Y%=C%.256...|
00001180  1a 43 25 3f 31 3d 6e 6f  25 3a 43 25 3f 32 3d 33  |.C%?1=no%:C%?2=3|
00001190  3a d6 26 46 46 46 31 0d  05 fa 05 e1 0d 06 04 0a  |:.&FFF1.........|
000011a0  f4 22 81 2a 2a 2a 0d 06  0e 14 dd f2 72 65 73 65  |.".***......rese|
000011b0  74 5f 67 72 61 62 62 65  72 73 0d 06 18 1e 41 25  |t_grabbers....A%|
000011c0  3d 26 37 41 3a 58 25 3d  43 25 83 32 35 36 3a 59  |=&7A:X%=C%.256:Y|
000011d0  25 3d 43 25 81 32 35 36  0d 06 22 0b 43 25 3f 30  |%=C%.256..".C%?0|
000011e0  3d 31 34 0d 06 2c 0a d6  26 46 46 46 31 0d 06 36  |=14..,..&FFF1..6|
000011f0  05 e1 0d 06 40 0a f4 22  81 2a 2a 2a 0d 06 4a 1e  |....@..".***..J.|
00001200  dd f2 77 61 69 74 5f 66  6f 72 5f 70 61 67 65 73  |..wait_for_pages|
00001210  28 67 72 61 62 62 65 72  73 29 0d 06 54 0a f5 3a  |(grabbers)..T..:|
00001220  53 25 3d b9 0d 06 5e 45  e3 47 25 3d 31 b8 67 72  |S%=...^E.G%=1.gr|
00001230  61 62 62 65 72 73 3a 49  25 3d a4 63 68 65 63 6b  |abbers:I%=.check|
00001240  5f 67 6f 74 28 47 25 29  3a e7 49 25 3d b9 20 f1  |_got(G%):.I%=. .|
00001250  8a 32 30 2c 31 30 2b 47  25 29 3b 22 46 6f 75 6e  |.20,10+G%);"Foun|
00001260  64 22 3a 8b 20 53 25 3d  a3 0d 06 68 3e e7 49 25  |d":. S%=...h>.I%|
00001270  3d b9 20 80 20 64 6f 6e  65 28 47 25 29 3d a3 3a  |=. . done(G%)=.:|
00001280  64 6f 6e 65 28 47 25 29  3d b9 3a f2 70 72 6f 63  |done(G%)=.:.proc|
00001290  65 73 73 28 6c 6f 63 25  2b 28 28 47 25 2d 31 29  |ess(loc%+((G%-1)|
000012a0  2a 26 33 43 30 29 29 0d  06 72 05 ed 0d 06 7c 09  |*&3C0))..r....|.|
000012b0  fd 53 25 3d b9 0d 06 86  05 e1 0d 06 90 0a f4 22  |.S%=..........."|
000012c0  81 2a 2a 2a 0d 06 9a 14  dd a4 77 61 69 74 66 6f  |.***......waitfo|
000012d0  72 67 72 61 62 62 65 72  0d 06 a4 07 54 3d 91 0d  |rgrabber....T=..|
000012e0  06 ae 08 47 25 3d 31 0d  06 b8 2d 49 25 3d a4 63  |...G%=1...-I%=.c|
000012f0  68 65 63 6b 5f 67 6f 74  28 47 25 29 3a e7 49 25  |heck_got(G%):.I%|
00001300  3d b9 20 f2 73 65 74 5f  68 6f 6c 64 28 47 25 29  |=. .set_hold(G%)|
00001310  3a 3d 47 25 0d 06 c2 11  47 25 3d 28 47 25 20 83  |:=G%....G%=(G% .|
00001320  31 30 29 2b 31 0d 06 cc  17 e7 91 3c 54 2b 36 30  |10)+1......<T+60|
00001330  30 30 20 e5 8d 74 78 46  20 8b 3d 30 0d 06 d6 0a  |00 ..txF .=0....|
00001340  f4 22 81 2a 2a 2a 0d 06  e0 14 dd f2 73 65 74 6c  |.".***......setl|
00001350  65 6e 67 74 68 28 6e 6f  25 29 0d 06 ea 35 41 25  |ength(no%)...5A%|
00001360  3d 26 37 41 3a 58 25 3d  43 25 83 32 35 36 3a 59  |=&7A:X%=C%.256:Y|
00001370  25 3d 43 25 81 32 35 36  3a 43 25 3f 30 3d 37 3a  |%=C%.256:C%?0=7:|
00001380  43 25 3f 31 3d 6e 6f 25  3a d6 26 46 46 46 31 0d  |C%?1=no%:.&FFF1.|
00001390  06 f4 05 e1 0d ff                                 |......|
00001396

16-12-88/MATCH.m0

16-12-88/MATCH.m1

16-12-88/MATCH.m2

16-12-88/MATCH.m4

16-12-88/MATCH.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .