$�"�*****************************
$�"�*�POOLS  PREDICTOR  PROGRAM�*
$�"�*�by�J.J.Brayshaw.�Dec 1984�*
<$�"�*�Adapted for 1988/9 season�*
F$�"�*�September 1988 (2)      � *
P$�"�*****************************
Z��d\@
d�=&7000
n�"�No of matches on coupon:
xmax%=58
��set_up
��7:�23;8202;0;0;0;
��intermediate
��read_page
�	*HOFF
�*TTXOFF
��verify
�
�teams
��matches
��select
��26:*FX220,27
��#0
��
���set_up:*FX220,0

N�t$(153),P(152),W(152),D(152),L(152),F(152),A(152),PT(152),m(max%),n(max%)

�logo$=" ���h��������� �� �������𰴴"+�10+�13+"��� j����������  ������꠵�����"+�10+�13+"��� j���������  ���������������"+�10+�13+"� � *�``````��  ��Pools predictor"+�10+�13

�:�logo$:�disc

"笤adapter �stop:�d\@

,�:�'logo$:*TELESOFT

6*HON

@��dJC:�A=1�152:�t$

Jt$(A)="            "

Tt$(A)=t$

^�:date$=�BBCdate

h�

r��read_page

|�read2%:�readLdata:�dnB

�	*BBC2

�$�2,6)�141;date$'"  ";�141;date$

�1�2,9)"�Pages required:";�20,9)"Pages found:"

���dxB:�E%=1�13:�page$

��8,10+E%);"�";page$:�

���dxB:�E%=1�13:�page$

��oscli("PAGE "+page$)

�*TRANSFER 7000

��20,10+E%)"Found ";

��interpret

��

��

���interpret
�A,S,start,team$
done=�:fl=�
�start=&7140�&7370 �40
&S=start
0?(start+18)=&D
:team$=�name($(start+4))+" "
D�team$=�15," ") �ddB
N)�0,24)"�Processing data for ";team$;
XA=0:�:A=A+1
bL�((�team$,�(t$(A))-1)=�t$(A),�(t$(A))-1))�(�team$,�t$(A),1))<>0))� A=153
l�A=153 �dZB
v"t$(A)=�team$+"           ",12)
�0� �done S=S+�offset(start):done=�:fl=�:S=S-1
�!?(S+21)=&D:P(A)=�val($(S+19))
�!?(S+24)=&D:W(A)=�val($(S+22))
�!?(S+27)=&D:D(A)=�val($(S+25))
�!?(S+30)=&D:L(A)=�val($(S+28))
�!?(S+33)=&D:F(A)=�val($(S+31))
�!?(S+36)=&D:A(A)=�val($(S+34))
�"?(S+39)=&D:PT(A)=�val($(S+37))
��fl S=S+1:fl=�
��0,24);�(38);
��
��
���"391s0001","391s0002","392s0001","392s0002","393s0001","393s0002","394s0001","394s0002","395s3F7F","396s3F7F","397s3F7F","398s0001","398s0002"

ݤval(N$)
�N2$,A,B
+�A=1��(N$):B=�(�N$,A,1)):�B>128 B=B-128
 �B<48 �B>57 �TtC
*N2$=N2$+�B
4�
>=�(N2$)
Hݤname(N$)
R�N2$,A,B
\-�A=1��(N$):B=(�(�N$,A,1)))�&7F:�B<32 B=32
fN2$=N2$+�B:�
p=N2$
z��oscli(n$)
�� C
�
� C 14
�	$C=n$
�
X%=C �256
�
Y%=C �256
�
�&FFF7
��
�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,Toru,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
��print
�''"�Check shows ";
$�retry �"some ";� �"no ";
.�"errors:"'
8*FX15,1
B+�"No.  Team";�11;"P  W  D  L  F  A Pts"
L�X=1�152
V#��"  "+�(X),3)+"  "+t$(X)+"  ";
`�P(X)=0 �:�tHD
j&��" "+�(P(X)),2);�"  "+�(W(X)),3);
tI��"  "+�(D(X)),3);�"  "+�(L(X)),3);�"  "+�(F(X)),3);�"  "+�(A(X)),3);
~��"   "+�(PT(X)),4)
�&�:�3:�''"Press SPACE-BAR ";:���=32
��
�:
���verify
�retry=�
��A=1�152
��P(A)=0 retry=�:A=152
��
��
�:
���intermediate
��'logo$
�

:
��matches:�X,m,n,c
�:�logo$:�28,0,24,39,4
(�save%:file=�"MDATA"
2�read%:file=�"MDATA"
<�
Fc=c+1:�c=(max%+1) m=0:�TDF
P�;c;�18)"vs.";:�:�8:��=3
Z �read%:m=�#file:�m=255 m=999
d �read%:�"�No.�";m:��"�No.�"m
n"�m=999 �save%:�#file,255:�tBE
x�save%:�#file,m
��m=999 �dzE
�#�m>152 �save%:�#file=(�#file)-1
��m>152 �DdE
��m=0 �TDF
�#�:�8:��=3:�t$(m)+�11," "),11);
�4�:�9:��=23:�read%:n=�#file:�"�No.�";n:��"�No.�"n
�#�n>152 �save%:�#file=(�#file)-1
��n>152 �DdE
��save%:�#file,n
�#�:�8:��=23:�t$(n)+�11," "),11)
�#�P(n)=0 � P(m)=0 m(c)=100:�TDF
�m(c)=�(�calc)
�
n(c)=c
�m=0
.�"Any alterations? ";:� (� �&DF)<>89 �TbF
Cread%=�:�':�:�"Match no.: "c:�c=0 m=0:�TDF � �setpointer:�DPE
"�:�
,��select
6#�'''"�Please wait a moment...";
@	�sort
Jb=-1:�:b=b+1:�m(b)>0
T�:�printer �2:ptr=� �ptr=�
^MD%=�("RDATA")
h�"�";date$':�a=b �b+17
rQ�"�Choice ";a+1-b,;�11)"�Coupon no. ";n(a);�26)"�Value:";:�3,135:�ptr �2,1,32
|�;m(a):�#MD%,n(a):�
��3:�#MD%
�ݤoffset(line):�o
�?(line+40)=&D
�;�:o=o+1:w=�val($(line+o)):� w<>0 � �(�$(line+o),1))>160
�len=�(�(w))
�=o-2+len
�:
�
��sort
�
�b=1�max%
��a=1�(max%-1)
�X�m(a)>m(a+1) temp1=n(a):n(a)=n(a+1):n(a+1)=temp1:temp1=m(a):m(a)=m(a+1):m(a+1)=temp1
��
��
�
��teams
�save2%:�saveLdata
&�read2%=� �DvG
0<�:�'logo$;�0,10)"�Do you want a list of teams & no's? ";
:�:Q=� �&DF:� Q=89 �Q=78
D�
N�Q=78 �
X�printer �15,2 ��14
b
�print
l�3
v�
�ݤprinter:�A
��2,1,0,1,0,1,0,3
�A=�(-4):*FX21,3
��A<63 =� �=�
�
��disc
�/Q=�("MDATA"):�#Q:�Q=0 read%=�:save%=�:�ddG
�:�'''"�Is the match data to be�READ FROM�disc?�(Y/N)�";
��:Q=� �&DF:�Q=78 �Q=89
�6�Q=89 �"Yes":read%=�:save%=�:�ddG:�read%=�:�"No."
�save%=�
�1Q=�("LDATA"):�#Q:�Q=0 read2%=�:save2%=�:�TVH
�9�''"�League data to be�READ FROM�disc?      �(Y/N)�";
��:Q=� �&DF:�Q=78 �Q=89
5�Q=89 �"Yes":read2%=�:save2%=�:�:�read2%=�:�"No."
save2%=�
�
 ��setpointer
*�save%:�#file=2*(c-1)
4�
>��saveLdata
HLdata=�"LDATA"
R:�Q=1�152:�#Ldata,P(Q),W(Q),D(Q),L(Q),F(Q),A(Q),PT(Q):�
\
�#Ldata:�
f��readLdata
p5�0,10)"�Reading league data"'"�Please wait ...";
zLdata=�"LDATA"
�:�Q=1�152:�#Ldata,P(Q),W(Q),D(Q),L(Q),F(Q),A(Q),PT(Q):�
�
�#Ldata:�
�S��stop:�:�logo$'''"Teletext adapter is not on."'"Please check, then re-load.":�
�
ݤBBCdate
��"�DATE WITH ATS
��=0:���>120
�work%=&7000
�5A%=&7A:X%=work%�256:Y%=work%�256:?work%=15:�&FFF1
�BB1$=��~(work%?8),1)
�.BB2$=�~(work%?9):� �(BB2$)=1 BB2$="0"+BB2$
�/BB3$=�~(work%?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
	81W%=(JD+3)�7:��DBI:�day=0�W%:�D$:�:D$=D$+"day"
	B)� Sun,Mon,Tues,Wednes,Thurs,Fri,Satur
	L��DVI:�day=1�M%:�month$:�
	V[� January,February,March,April,May,June,July,August,September,October,November,December
	`T�D%=1�D%=21�D%=31 th$="st" ��D%=2�D%=22 th$="nd" ��D%=3�D%=23 th$="rd" �th$="th"
	j-=D$+"  "+�(D%)+th$+" "+month$+" 19"+�(Z%)
	tݤadapter:� work% 2
	~HA%=&7A:X%=work%�256:Y%=work%�256:?work%=17:�&FFF1:�work%?1=0 =� � =�
	�
ݤcalc
�#�"�Change the following formula
�!�"�to suit individual needs:-
�=PT(m)-PT(n)
�

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  85 62 79 82 4a 2e 4a 2e  42 72 61 79 73 68 61 77  |.by.J.J.Brayshaw|
00000060  2e 85 44 65 63 20 31 39  38 34 81 2a 0d 00 3c 24  |..Dec 1984.*..<$|
00000070  f4 22 81 2a 83 41 64 61  70 74 65 64 20 66 6f 72  |.".*.Adapted for|
00000080  20 31 39 38 38 2f 39 20  73 65 61 73 6f 6e 81 2a  | 1988/9 season.*|
00000090  0d 00 46 24 f4 22 81 2a  86 53 65 70 74 65 6d 62  |..F$.".*.Septemb|
000000a0  65 72 20 31 39 38 38 20  28 32 29 20 20 20 20 20  |er 1988 (2)     |
000000b0  20 81 20 2a 0d 00 50 24  f4 22 81 2a 2a 2a 2a 2a  | . *..P$.".*****|
000000c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000d0  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 5a 0b ee 85 e5 8d  |********..Z.....|
000000e0  64 5c 40 0d 00 64 0b d3  3d 26 37 30 30 30 0d 00  |d\@..d..=&7000..|
000000f0  6e 1f f4 22 82 4e 6f 20  6f 66 20 6d 61 74 63 68  |n..".No of match|
00000100  65 73 20 6f 6e 20 63 6f  75 70 6f 6e 3a 0d 00 78  |es on coupon:..x|
00000110  0b 6d 61 78 25 3d 35 38  0d 00 82 0b f2 73 65 74  |.max%=58.....set|
00000120  5f 75 70 0d 00 8c 16 eb  37 3a ef 32 33 3b 38 32  |_up.....7:.23;82|
00000130  30 32 3b 30 3b 30 3b 30  3b 0d 00 96 11 f2 69 6e  |02;0;0;0;.....in|
00000140  74 65 72 6d 65 64 69 61  74 65 0d 00 a0 0e f2 72  |termediate.....r|
00000150  65 61 64 5f 70 61 67 65  0d 00 aa 09 2a 48 4f 46  |ead_page....*HOF|
00000160  46 0d 00 af 0b 2a 54 54  58 4f 46 46 0d 00 b4 0b  |F....*TTXOFF....|
00000170  f2 76 65 72 69 66 79 0d  00 be 0a f2 74 65 61 6d  |.verify.....team|
00000180  73 0d 00 c8 0c f2 6d 61  74 63 68 65 73 0d 00 d2  |s.....matches...|
00000190  0b f2 73 65 6c 65 63 74  0d 00 dc 11 ef 32 36 3a  |..select.....26:|
000001a0  2a 46 58 32 32 30 2c 32  37 0d 00 e6 07 d9 23 30  |*FX220,27.....#0|
000001b0  0d 00 f0 05 e0 0d 00 fa  15 dd f2 73 65 74 5f 75  |...........set_u|
000001c0  70 3a 2a 46 58 32 32 30  2c 30 0d 01 04 4e de 74  |p:*FX220,0...N.t|
000001d0  24 28 31 35 33 29 2c 50  28 31 35 32 29 2c 57 28  |$(153),P(152),W(|
000001e0  31 35 32 29 2c 44 28 31  35 32 29 2c 4c 28 31 35  |152),D(152),L(15|
000001f0  32 29 2c 46 28 31 35 32  29 2c 41 28 31 35 32 29  |2),F(152),A(152)|
00000200  2c 50 54 28 31 35 32 29  2c 6d 28 6d 61 78 25 29  |,PT(152),m(max%)|
00000210  2c 6e 28 6d 61 78 25 29  0d 01 0e b3 6c 6f 67 6f  |,n(max%)....logo|
00000220  24 3d 22 20 97 a0 a0 68  ac ac ac ac ac ac ac ac  |$=" ...h........|
00000230  b4 20 93 a0 20 bc e0 f0  e0 f0 e8 b0 f4 b0 f0 b0  |. .. ...........|
00000240  b4 b4 22 2b bd 31 30 2b  bd 31 33 2b 22 94 9d 97  |.."+.10+.13+"...|
00000250  20 6a 9a ff ff ff ff ff  ff 99 b5 93 20 20 a3 b7  | j..........  ..|
00000260  ea ea ea ea ea a0 b5 b5  bc b5 b5 b5 22 2b bd 31  |............"+.1|
00000270  30 2b bd 31 33 2b 22 94  9d 97 20 6a 9a ff ff ff  |0+.13+"... j....|
00000280  ff ff ff 99 b5 20 20 93  a0 a5 a2 a3 a2 a3 a2 a1  |.....  .........|
00000290  a3 a1 a3 a1 a1 a1 22 2b  bd 31 30 2b bd 31 33 2b  |......"+.10+.13+|
000002a0  22 97 20 a0 20 2a 9a 60  60 60 60 60 60 99 a5 20  |". . *.``````.. |
000002b0  20 a0 87 50 6f 6f 6c 73  20 70 72 65 64 69 63 74  | ..Pools predict|
000002c0  6f 72 22 2b bd 31 30 2b  bd 31 33 0d 01 18 12 db  |or"+.10+.13.....|
000002d0  3a f1 6c 6f 67 6f 24 3a  f2 64 69 73 63 0d 01 22  |:.logo$:.disc.."|
000002e0  1a e7 ac a4 61 64 61 70  74 65 72 20 f2 73 74 6f  |....adapter .sto|
000002f0  70 3a e5 8d 64 5c 40 0d  01 2c 17 db 3a f1 27 6c  |p:..d\@..,..:.'l|
00000300  6f 67 6f 24 3a 2a 54 45  4c 45 53 4f 46 54 0d 01  |ogo$:*TELESOFT..|
00000310  36 08 2a 48 4f 4e 0d 01  40 16 f7 8d 64 4a 43 3a  |6.*HON..@...dJC:|
00000320  e3 41 3d 31 b8 31 35 32  3a f3 74 24 0d 01 4a 18  |.A=1.152:.t$..J.|
00000330  74 24 28 41 29 3d 22 20  20 20 20 20 20 20 20 20  |t$(A)="         |
00000340  20 20 20 22 0d 01 54 0c  74 24 28 41 29 3d 74 24  |   "..T.t$(A)=t$|
00000350  0d 01 5e 14 ed 3a 64 61  74 65 24 3d a4 42 42 43  |..^..:date$=.BBC|
00000360  64 61 74 65 0d 01 68 05  e1 0d 01 72 0f dd f2 72  |date..h....r...r|
00000370  65 61 64 5f 70 61 67 65  0d 01 7c 1c e7 72 65 61  |ead_page..|..rea|
00000380  64 32 25 3a f2 72 65 61  64 4c 64 61 74 61 3a e5  |d2%:.readLdata:.|
00000390  8d 64 6e 42 0d 01 86 09  2a 42 42 43 32 0d 01 90  |.dnB....*BBC2...|
000003a0  24 f1 8a 32 2c 36 29 bd  31 34 31 3b 64 61 74 65  |$..2,6).141;date|
000003b0  24 27 22 20 20 22 3b bd  31 34 31 3b 64 61 74 65  |$'"  ";.141;date|
000003c0  24 0d 01 9a 31 f1 8a 32  2c 39 29 22 83 50 61 67  |$...1..2,9)".Pag|
000003d0  65 73 20 72 65 71 75 69  72 65 64 3a 22 3b 8a 32  |es required:";.2|
000003e0  30 2c 39 29 22 50 61 67  65 73 20 66 6f 75 6e 64  |0,9)"Pages found|
000003f0  3a 22 0d 01 a4 19 f7 8d  64 78 42 3a e3 45 25 3d  |:"......dxB:.E%=|
00000400  31 b8 31 33 3a f3 70 61  67 65 24 0d 01 ae 1a f1  |1.13:.page$.....|
00000410  8a 38 2c 31 30 2b 45 25  29 3b 22 86 22 3b 70 61  |.8,10+E%);".";pa|
00000420  67 65 24 3a ed 0d 01 b8  19 f7 8d 64 78 42 3a e3  |ge$:.......dxB:.|
00000430  45 25 3d 31 b8 31 33 3a  f3 70 61 67 65 24 0d 01  |E%=1.13:.page$..|
00000440  c2 19 f2 6f 73 63 6c 69  28 22 50 41 47 45 20 22  |...oscli("PAGE "|
00000450  2b 70 61 67 65 24 29 0d  01 cc 12 2a 54 52 41 4e  |+page$)....*TRAN|
00000460  53 46 45 52 20 37 30 30  30 0d 01 d6 18 f1 8a 32  |SFER 7000......2|
00000470  30 2c 31 30 2b 45 25 29  22 46 6f 75 6e 64 20 22  |0,10+E%)"Found "|
00000480  3b 0d 01 e0 0e f2 69 6e  74 65 72 70 72 65 74 0d  |;.....interpret.|
00000490  01 ea 05 ed 0d 01 f4 05  e1 0d 01 fe 0f dd f2 69  |...............i|
000004a0  6e 74 65 72 70 72 65 74  0d 02 08 14 ea 41 2c 53  |nterpret.....A,S|
000004b0  2c 73 74 61 72 74 2c 74  65 61 6d 24 0d 02 12 0f  |,start,team$....|
000004c0  64 6f 6e 65 3d a3 3a 66  6c 3d a3 0d 02 1c 1a e3  |done=.:fl=......|
000004d0  73 74 61 72 74 3d 26 37  31 34 30 b8 26 37 33 37  |start=&7140.&737|
000004e0  30 20 88 34 30 0d 02 26  0b 53 3d 73 74 61 72 74  |0 .40..&.S=start|
000004f0  0d 02 30 12 3f 28 73 74  61 72 74 2b 31 38 29 3d  |..0.?(start+18)=|
00000500  26 44 0d 02 3a 1f 74 65  61 6d 24 3d a4 6e 61 6d  |&D..:.team$=.nam|
00000510  65 28 24 28 73 74 61 72  74 2b 34 29 29 2b 22 20  |e($(start+4))+" |
00000520  22 0d 02 44 19 e7 74 65  61 6d 24 3d c4 31 35 2c  |"..D..team$=.15,|
00000530  22 20 22 29 20 e5 8d 64  64 42 0d 02 4e 29 f1 8a  |" ") ..ddB..N)..|
00000540  30 2c 32 34 29 22 81 50  72 6f 63 65 73 73 69 6e  |0,24)".Processin|
00000550  67 20 64 61 74 61 20 66  6f 72 20 22 3b 74 65 61  |g data for ";tea|
00000560  6d 24 3b 0d 02 58 0f 41  3d 30 3a f5 3a 41 3d 41  |m$;..X.A=0:.:A=A|
00000570  2b 31 0d 02 62 4c fd 28  28 c0 74 65 61 6d 24 2c  |+1..bL.((.team$,|
00000580  a9 28 74 24 28 41 29 29  2d 31 29 3d c0 74 24 28  |.(t$(A))-1)=.t$(|
00000590  41 29 2c a9 28 74 24 28  41 29 29 2d 31 29 29 80  |A),.(t$(A))-1)).|
000005a0  28 a7 74 65 61 6d 24 2c  c2 74 24 28 41 29 2c 31  |(.team$,.t$(A),1|
000005b0  29 29 3c 3e 30 29 29 84  20 41 3d 31 35 33 0d 02  |))<>0)). A=153..|
000005c0  6c 10 e7 41 3d 31 35 33  20 e5 8d 64 5a 42 0d 02  |l..A=153 ..dZB..|
000005d0  76 22 74 24 28 41 29 3d  c0 74 65 61 6d 24 2b 22  |v"t$(A)=.team$+"|
000005e0  20 20 20 20 20 20 20 20  20 20 20 22 2c 31 32 29  |           ",12)|
000005f0  0d 02 80 30 e7 20 ac 64  6f 6e 65 20 53 3d 53 2b  |...0. .done S=S+|
00000600  a4 6f 66 66 73 65 74 28  73 74 61 72 74 29 3a 64  |.offset(start):d|
00000610  6f 6e 65 3d b9 3a 66 6c  3d b9 3a 53 3d 53 2d 31  |one=.:fl=.:S=S-1|
00000620  0d 02 8a 21 3f 28 53 2b  32 31 29 3d 26 44 3a 50  |...!?(S+21)=&D:P|
00000630  28 41 29 3d a4 76 61 6c  28 24 28 53 2b 31 39 29  |(A)=.val($(S+19)|
00000640  29 0d 02 94 21 3f 28 53  2b 32 34 29 3d 26 44 3a  |)...!?(S+24)=&D:|
00000650  57 28 41 29 3d a4 76 61  6c 28 24 28 53 2b 32 32  |W(A)=.val($(S+22|
00000660  29 29 0d 02 9e 21 3f 28  53 2b 32 37 29 3d 26 44  |))...!?(S+27)=&D|
00000670  3a 44 28 41 29 3d a4 76  61 6c 28 24 28 53 2b 32  |:D(A)=.val($(S+2|
00000680  35 29 29 0d 02 a8 21 3f  28 53 2b 33 30 29 3d 26  |5))...!?(S+30)=&|
00000690  44 3a 4c 28 41 29 3d a4  76 61 6c 28 24 28 53 2b  |D:L(A)=.val($(S+|
000006a0  32 38 29 29 0d 02 b2 21  3f 28 53 2b 33 33 29 3d  |28))...!?(S+33)=|
000006b0  26 44 3a 46 28 41 29 3d  a4 76 61 6c 28 24 28 53  |&D:F(A)=.val($(S|
000006c0  2b 33 31 29 29 0d 02 bc  21 3f 28 53 2b 33 36 29  |+31))...!?(S+36)|
000006d0  3d 26 44 3a 41 28 41 29  3d a4 76 61 6c 28 24 28  |=&D:A(A)=.val($(|
000006e0  53 2b 33 34 29 29 0d 02  c6 22 3f 28 53 2b 33 39  |S+34))..."?(S+39|
000006f0  29 3d 26 44 3a 50 54 28  41 29 3d a4 76 61 6c 28  |)=&D:PT(A)=.val(|
00000700  24 28 53 2b 33 37 29 29  0d 02 d0 12 e7 66 6c 20  |$(S+37)).....fl |
00000710  53 3d 53 2b 31 3a 66 6c  3d a3 0d 02 da 12 f1 8a  |S=S+1:fl=.......|
00000720  30 2c 32 34 29 3b 89 28  33 38 29 3b 0d 02 e4 05  |0,24);.(38);....|
00000730  ed 0d 02 ee 05 e1 0d 02  f8 93 dc 22 33 39 31 73  |..........."391s|
00000740  30 30 30 31 22 2c 22 33  39 31 73 30 30 30 32 22  |0001","391s0002"|
00000750  2c 22 33 39 32 73 30 30  30 31 22 2c 22 33 39 32  |,"392s0001","392|
00000760  73 30 30 30 32 22 2c 22  33 39 33 73 30 30 30 31  |s0002","393s0001|
00000770  22 2c 22 33 39 33 73 30  30 30 32 22 2c 22 33 39  |","393s0002","39|
00000780  34 73 30 30 30 31 22 2c  22 33 39 34 73 30 30 30  |4s0001","394s000|
00000790  32 22 2c 22 33 39 35 73  33 46 37 46 22 2c 22 33  |2","395s3F7F","3|
000007a0  39 36 73 33 46 37 46 22  2c 22 33 39 37 73 33 46  |96s3F7F","397s3F|
000007b0  37 46 22 2c 22 33 39 38  73 30 30 30 31 22 2c 22  |7F","398s0001","|
000007c0  33 39 38 73 30 30 30 32  22 0d 03 02 0d dd a4 76  |398s0002"......v|
000007d0  61 6c 28 4e 24 29 0d 03  0c 0c ea 4e 32 24 2c 41  |al(N$).....N2$,A|
000007e0  2c 42 0d 03 16 2b e3 41  3d 31 b8 a9 28 4e 24 29  |,B...+.A=1..(N$)|
000007f0  3a 42 3d 97 28 c1 4e 24  2c 41 2c 31 29 29 3a e7  |:B=.(.N$,A,1)):.|
00000800  42 3e 31 32 38 20 42 3d  42 2d 31 32 38 0d 03 20  |B>128 B=B-128.. |
00000810  15 e7 42 3c 34 38 20 84  42 3e 35 37 20 e5 8d 54  |..B<48 .B>57 ..T|
00000820  74 43 0d 03 2a 0e 4e 32  24 3d 4e 32 24 2b bd 42  |tC..*.N2$=N2$+.B|
00000830  0d 03 34 05 ed 0d 03 3e  0b 3d bb 28 4e 32 24 29  |..4....>.=.(N2$)|
00000840  0d 03 48 0e dd a4 6e 61  6d 65 28 4e 24 29 0d 03  |..H...name(N$)..|
00000850  52 0c ea 4e 32 24 2c 41  2c 42 0d 03 5c 2d e3 41  |R..N2$,A,B..\-.A|
00000860  3d 31 b8 a9 28 4e 24 29  3a 42 3d 28 97 28 c1 4e  |=1..(N$):B=(.(.N|
00000870  24 2c 41 2c 31 29 29 29  80 26 37 46 3a e7 42 3c  |$,A,1))).&7F:.B<|
00000880  33 32 20 42 3d 33 32 0d  03 66 10 4e 32 24 3d 4e  |32 B=32..f.N2$=N|
00000890  32 24 2b bd 42 3a ed 0d  03 70 08 3d 4e 32 24 0d  |2$+.B:...p.=N2$.|
000008a0  03 7a 0f dd f2 6f 73 63  6c 69 28 6e 24 29 0d 03  |.z...oscli(n$)..|
000008b0  84 07 ea 20 43 0d 03 8e  0a de 20 43 20 31 34 0d  |... C..... C 14.|
000008c0  03 98 09 24 43 3d 6e 24  0d 03 a2 0d 58 25 3d 43  |...$C=n$....X%=C|
000008d0  20 83 32 35 36 0d 03 ac  0d 59 25 3d 43 20 81 32  | .256....Y%=C .2|
000008e0  35 36 0d 03 b6 0a d6 26  46 46 46 37 0d 03 c0 05  |56.....&FFF7....|
000008f0  e1 0d 03 ca 62 dc 20 41  72 73 6e 2c 41 56 2c 43  |....b. Arsn,AV,C|
00000900  68 61 6e 2c 43 6f 76 79  2c 44 65 62 2c 45 76 74  |han,Covy,Deb,Evt|
00000910  2c 4c 69 76 70 2c 4c 75  6f 2c 4d 61 6e 55 2c 4d  |,Livp,Luo,ManU,M|
00000920  69 64 62 2c 4d 69 6c 61  2c 4e 65 77 63 74 2c 4e  |idb,Mila,Newct,N|
00000930  6f 72 77 63 2c 4e 6f 74  46 2c 51 52 2c 53 68 57  |orwc,NotF,QR,ShW|
00000940  2c 53 6f 70 2c 54 6f 74  6d 2c 57 65 73 48 2c 57  |,Sop,Totm,WesH,W|
00000950  69 6d 6c 0d 03 d4 72 dc  20 42 61 73 2c 42 69 68  |iml...r. Bas,Bih|
00000960  2c 42 6c 62 2c 42 6f 75  6d 2c 42 72 61 66 2c 42  |,Blb,Boum,Braf,B|
00000970  72 69 6e 2c 43 68 65 6c  73 2c 43 72 79 61 2c 48  |rin,Chels,Crya,H|
00000980  75 6c 6c 2c 49 70 2c 4c  65 65 73 2c 4c 65 69 74  |ull,Ip,Lees,Leit|
00000990  2c 4d 61 6e 43 2c 4f 6c  61 2c 4f 78 72 2c 50 6c  |,ManC,Ola,Oxr,Pl|
000009a0  79 2c 50 6f 6d 2c 53 68  77 2c 53 74 6f 6b 65 2c  |y,Pom,Shw,Stoke,|
000009b0  53 75 72 2c 53 77 69 6f  2c 57 61 6c 61 2c 57 61  |Sur,Swio,Wala,Wa|
000009c0  74 66 2c 57 42 0d 03 de  78 dc 20 41 6c 64 68 2c  |tf,WB...x. Aldh,|
000009d0  42 6c 70 2c 42 6f 6c 6f  2c 42 72 65 64 2c 42 72  |Blp,Bolo,Bred,Br|
000009e0  69 43 2c 42 72 69 52 2c  42 75 72 79 20 2c 43 61  |iC,BriR,Bury ,Ca|
000009f0  72 64 66 2c 43 68 65 73  43 2c 43 68 65 73 66 2c  |rdf,ChesC,Chesf,|
00000a00  46 75 68 2c 47 69 67 2c  48 75 64 66 2c 4d 61 6e  |Fuh,Gig,Hudf,Man|
00000a10  73 2c 4e 6f 72 74 70 2c  4e 6f 74 43 2c 50 6f 56  |s,Nortp,NotC,PoV|
00000a20  2c 50 72 6e 2c 52 65 67  2c 53 68 55 2c 53 6f 64  |,Prn,Reg,ShU,Sod|
00000a30  2c 53 77 61 61 2c 57 69  41 2c 57 6f 76 0d 03 e8  |,Swaa,WiA,Wov...|
00000a40  78 dc 20 42 75 72 6e 79  2c 43 61 6d 62 2c 43 61  |x. Burny,Camb,Ca|
00000a50  72 6c 73 2c 43 6f 6c 68  2c 43 72 65 77 2c 44 61  |rls,Colh,Crew,Da|
00000a60  67 2c 44 6f 63 2c 45 78  74 2c 47 72 62 2c 48 61  |g,Doc,Ext,Grb,Ha|
00000a70  6c 78 2c 48 61 72 70 2c  48 65 72 65 2c 4c 65 79  |lx,Harp,Here,Ley|
00000a80  6e 2c 4c 69 6e 6c 2c 50  65 62 2c 52 6f 63 61 2c  |n,Linl,Peb,Roca,|
00000a90  52 6f 74 61 2c 53 63 61  62 2c 53 63 75 68 2c 53  |Rota,Scab,Scuh,S|
00000aa0  74 6f 63 70 2c 54 6f 72  75 2c 54 72 6d 2c 57 72  |tocp,Toru,Trm,Wr|
00000ab0  78 2c 59 6f 6b 0d 03 f2  6e dc 20 41 6c 74 6d 2c  |x,Yok...n. Altm,|
00000ac0  41 79 6c 62 2c 42 61 74  2c 42 6f 73 6e 2c 43 68  |Aylb,Bat,Bosn,Ch|
00000ad0  65 6c 74 6d 2c 43 68 6f  79 2c 45 6e 6c 2c 46 69  |eltm,Choy,Enl,Fi|
00000ae0  68 2c 4b 65 67 2c 4b 69  64 72 2c 4d 61 63 64 2c  |h,Keg,Kidr,Macd,|
00000af0  4d 61 69 6f 2c 4e 65 77  70 72 2c 4e 6f 72 74 77  |Maio,Newpr,Nortw|
00000b00  2c 52 75 63 2c 53 74 61  66 2c 53 75 6f 2c 54 65  |,Ruc,Staf,Suo,Te|
00000b10  72 2c 57 65 6c 67 2c 57  65 79 6d 2c 57 79 62 2c  |r,Welg,Weym,Wyb,|
00000b20  59 65 76 0d 03 fc 38 dc  20 41 62 72 2c 43 65 63  |Yev...8. Abr,Cec|
00000b30  2c 22 44 75 6e 64 65 65  20 20 20 22 2c 44 75 6e  |,"Dundee   ",Dun|
00000b40  55 2c 48 61 6d 6c 2c 48  65 61 73 2c 48 69 61 2c  |U,Haml,Heas,Hia,|
00000b50  4d 6f 74 77 2c 52 61 67  2c 53 4d 0d 04 06 44 dc  |Motw,Rag,SM...D.|
00000b60  20 41 69 65 2c 41 79 72  20 2c 22 43 6c 79 64 65  | Aie,Ayr ,"Clyde|
00000b70  20 20 22 2c 43 6c 62 2c  44 75 6e 66 2c 46 61 6b  |  ",Clb,Dunf,Fak|
00000b80  2c 46 6f 66 2c 4b 69 6c  63 2c 4d 65 62 2c 4d 6f  |,Fof,Kilc,Meb,Mo|
00000b90  72 6e 2c 50 61 6b 2c 51  53 2c 52 52 2c 53 4a 0d  |rn,Pak,QS,RR,SJ.|
00000ba0  04 0b 45 dc 20 41 6c 62  6e 2c 41 6c 6c 61 2c 41  |..E. Albn,Alla,A|
00000bb0  72 62 61 2c 42 65 77 2c  42 72 68 2c 43 6f 77 68  |rba,Bew,Brh,Cowh|
00000bc0  2c 44 75 6d 62 2c 45 61  46 2c 45 53 2c 4d 6f 6e  |,Dumb,EaF,ES,Mon|
00000bd0  73 2c 51 75 50 2c 53 74  65 6d 2c 53 74 69 67 2c  |s,QuP,Stem,Stig,|
00000be0  53 74 72 65 0d 04 10 0b  dd f2 70 72 69 6e 74 0d  |Stre......print.|
00000bf0  04 1a 17 f1 27 27 22 81  43 68 65 63 6b 20 73 68  |....''".Check sh|
00000c00  6f 77 73 20 22 3b 0d 04  24 1d e7 72 65 74 72 79  |ows ";..$..retry|
00000c10  20 f1 22 73 6f 6d 65 20  22 3b 8b 20 f1 22 6e 6f  | ."some ";. ."no|
00000c20  20 22 3b 0d 04 2e 0f f1  22 65 72 72 6f 72 73 3a  | ";....."errors:|
00000c30  22 27 0d 04 38 0b 2a 46  58 31 35 2c 31 0d 04 42  |"'..8.*FX15,1..B|
00000c40  2b f1 22 4e 6f 2e 20 20  54 65 61 6d 22 3b 89 31  |+."No.  Team";.1|
00000c50  31 3b 22 50 20 20 57 20  20 44 20 20 4c 20 20 46  |1;"P  W  D  L  F|
00000c60  20 20 41 20 50 74 73 22  0d 04 4c 0c e3 58 3d 31  |  A Pts"..L..X=1|
00000c70  b8 31 35 32 0d 04 56 23  f1 c2 22 20 20 22 2b c3  |.152..V#.."  "+.|
00000c80  28 58 29 2c 33 29 2b 22  20 20 22 2b 74 24 28 58  |(X),3)+"  "+t$(X|
00000c90  29 2b 22 20 20 22 3b 0d  04 60 13 e7 50 28 58 29  |)+"  ";..`..P(X)|
00000ca0  3d 30 20 f1 3a e5 8d 74  48 44 0d 04 6a 26 f1 c2  |=0 .:..tHD..j&..|
00000cb0  22 20 22 2b c3 28 50 28  58 29 29 2c 32 29 3b c2  |" "+.(P(X)),2);.|
00000cc0  22 20 20 22 2b c3 28 57  28 58 29 29 2c 33 29 3b  |"  "+.(W(X)),3);|
00000cd0  0d 04 74 49 f1 c2 22 20  20 22 2b c3 28 44 28 58  |..tI.."  "+.(D(X|
00000ce0  29 29 2c 33 29 3b c2 22  20 20 22 2b c3 28 4c 28  |)),3);."  "+.(L(|
00000cf0  58 29 29 2c 33 29 3b c2  22 20 20 22 2b c3 28 46  |X)),3);."  "+.(F|
00000d00  28 58 29 29 2c 33 29 3b  c2 22 20 20 22 2b c3 28  |(X)),3);."  "+.(|
00000d10  41 28 58 29 29 2c 33 29  3b 0d 04 7e 17 f1 c2 22  |A(X)),3);..~..."|
00000d20  20 20 20 22 2b c3 28 50  54 28 58 29 29 2c 34 29  |   "+.(PT(X)),4)|
00000d30  0d 04 88 26 ed 3a ef 33  3a f1 27 27 22 50 72 65  |...&.:.3:.''"Pre|
00000d40  73 73 20 53 50 41 43 45  2d 42 41 52 20 22 3b 3a  |ss SPACE-BAR ";:|
00000d50  f5 fd a5 3d 33 32 0d 04  92 05 e1 0d 04 9c 05 3a  |...=32.........:|
00000d60  0d 04 a6 0c dd f2 76 65  72 69 66 79 0d 04 b0 0b  |......verify....|
00000d70  72 65 74 72 79 3d a3 0d  04 ba 0c e3 41 3d 31 b8  |retry=......A=1.|
00000d80  31 35 32 0d 04 c4 19 e7  50 28 41 29 3d 30 20 72  |152.....P(A)=0 r|
00000d90  65 74 72 79 3d b9 3a 41  3d 31 35 32 0d 04 ce 05  |etry=.:A=152....|
00000da0  ed 0d 04 d8 05 e1 0d 04  e2 05 3a 0d 04 ec 12 dd  |..........:.....|
00000db0  f2 69 6e 74 65 72 6d 65  64 69 61 74 65 0d 04 f6  |.intermediate...|
00000dc0  0b f1 27 6c 6f 67 6f 24  0d 05 00 05 e1 0d 05 0a  |..'logo$........|
00000dd0  05 3a 0d 05 14 16 dd f2  6d 61 74 63 68 65 73 3a  |.:......matches:|
00000de0  ea 58 2c 6d 2c 6e 2c 63  0d 05 1e 1a db 3a f1 6c  |.X,m,n,c.....:.l|
00000df0  6f 67 6f 24 3a ef 32 38  2c 30 2c 32 34 2c 33 39  |ogo$:.28,0,24,39|
00000e00  2c 34 0d 05 28 18 e7 73  61 76 65 25 3a 66 69 6c  |,4..(..save%:fil|
00000e10  65 3d ae 22 4d 44 41 54  41 22 0d 05 32 18 e7 72  |e=."MDATA"..2..r|
00000e20  65 61 64 25 3a 66 69 6c  65 3d ad 22 4d 44 41 54  |ead%:file=."MDAT|
00000e30  41 22 0d 05 3c 05 f5 0d  05 46 1f 63 3d 63 2b 31  |A"..<....F.c=c+1|
00000e40  3a e7 63 3d 28 6d 61 78  25 2b 31 29 20 6d 3d 30  |:.c=(max%+1) m=0|
00000e50  3a e5 8d 54 44 46 0d 05  50 1c f1 3b 63 3b 8a 31  |:..TDF..P..;c;.1|
00000e60  38 29 22 76 73 2e 22 3b  3a f5 3a ef 38 3a fd b1  |8)"vs.";:.:.8:..|
00000e70  3d 33 0d 05 5a 20 e7 72  65 61 64 25 3a 6d 3d 9a  |=3..Z .read%:m=.|
00000e80  23 66 69 6c 65 3a e7 6d  3d 32 35 35 20 6d 3d 39  |#file:.m=255 m=9|
00000e90  39 39 0d 05 64 20 e7 72  65 61 64 25 3a f1 22 86  |99..d .read%:.".|
00000ea0  4e 6f 2e 83 22 3b 6d 3a  8b e8 22 86 4e 6f 2e 83  |No..";m:..".No..|
00000eb0  22 6d 0d 05 6e 22 e7 6d  3d 39 39 39 20 80 73 61  |"m..n".m=999 .sa|
00000ec0  76 65 25 3a d5 23 66 69  6c 65 2c 32 35 35 3a e5  |ve%:.#file,255:.|
00000ed0  8d 74 42 45 0d 05 78 13  e7 73 61 76 65 25 3a d5  |.tBE..x..save%:.|
00000ee0  23 66 69 6c 65 2c 6d 0d  05 82 10 e7 6d 3d 39 39  |#file,m.....m=99|
00000ef0  39 20 e5 8d 64 7a 45 0d  05 8c 23 e7 6d 3e 31 35  |9 ..dzE...#.m>15|
00000f00  32 20 80 73 61 76 65 25  3a cf 23 66 69 6c 65 3d  |2 .save%:.#file=|
00000f10  28 8f 23 66 69 6c 65 29  2d 31 0d 05 96 10 e7 6d  |(.#file)-1.....m|
00000f20  3e 31 35 32 20 e5 8d 44  64 45 0d 05 a0 0e e7 6d  |>152 ..DdE.....m|
00000f30  3d 30 20 e5 8d 54 44 46  0d 05 aa 23 f5 3a ef 38  |=0 ..TDF...#.:.8|
00000f40  3a fd b1 3d 33 3a f1 c0  74 24 28 6d 29 2b c4 31  |:..=3:..t$(m)+.1|
00000f50  31 2c 22 20 22 29 2c 31  31 29 3b 0d 05 b4 34 f5  |1," "),11);...4.|
00000f60  3a ef 39 3a fd b1 3d 32  33 3a e7 72 65 61 64 25  |:.9:..=23:.read%|
00000f70  3a 6e 3d 9a 23 66 69 6c  65 3a f1 22 82 4e 6f 2e  |:n=.#file:.".No.|
00000f80  86 22 3b 6e 3a 8b e8 22  82 4e 6f 2e 86 22 6e 0d  |.";n:..".No.."n.|
00000f90  05 be 23 e7 6e 3e 31 35  32 20 80 73 61 76 65 25  |..#.n>152 .save%|
00000fa0  3a cf 23 66 69 6c 65 3d  28 8f 23 66 69 6c 65 29  |:.#file=(.#file)|
00000fb0  2d 31 0d 05 c8 10 e7 6e  3e 31 35 32 20 e5 8d 44  |-1.....n>152 ..D|
00000fc0  64 45 0d 05 d2 13 e7 73  61 76 65 25 3a d5 23 66  |dE.....save%:.#f|
00000fd0  69 6c 65 2c 6e 0d 05 dc  23 f5 3a ef 38 3a fd b1  |ile,n...#.:.8:..|
00000fe0  3d 32 33 3a f1 c0 74 24  28 6e 29 2b c4 31 31 2c  |=23:..t$(n)+.11,|
00000ff0  22 20 22 29 2c 31 31 29  0d 05 e6 23 e7 50 28 6e  |" "),11)...#.P(n|
00001000  29 3d 30 20 84 20 50 28  6d 29 3d 30 20 6d 28 63  |)=0 . P(m)=0 m(c|
00001010  29 3d 31 30 30 3a e5 8d  54 44 46 0d 05 f0 11 6d  |)=100:..TDF....m|
00001020  28 63 29 3d 94 28 a4 63  61 6c 63 29 0d 05 fa 0a  |(c)=.(.calc)....|
00001030  6e 28 63 29 3d 63 0d 06  04 08 fd 6d 3d 30 0d 06  |n(c)=c.....m=0..|
00001040  0e 2e f1 22 41 6e 79 20  61 6c 74 65 72 61 74 69  |..."Any alterati|
00001050  6f 6e 73 3f 20 22 3b 3a  e7 20 28 a5 20 80 26 44  |ons? ";:. (. .&D|
00001060  46 29 3c 3e 38 39 20 e5  8d 54 62 46 0d 06 18 43  |F)<>89 ..TbF...C|
00001070  72 65 61 64 25 3d a3 3a  f1 27 3a f5 3a e8 22 4d  |read%=.:.':.:."M|
00001080  61 74 63 68 20 6e 6f 2e  3a 20 22 63 3a e7 63 3d  |atch no.: "c:.c=|
00001090  30 20 6d 3d 30 3a e5 8d  54 44 46 20 8b 20 f2 73  |0 m=0:..TDF . .s|
000010a0  65 74 70 6f 69 6e 74 65  72 3a e5 8d 44 50 45 0d  |etpointer:..DPE.|
000010b0  06 22 07 db 3a e1 0d 06  2c 0c dd f2 73 65 6c 65  |."..:...,...sele|
000010c0  63 74 0d 06 36 23 f1 27  27 27 22 81 50 6c 65 61  |ct..6#.'''".Plea|
000010d0  73 65 20 77 61 69 74 20  61 20 6d 6f 6d 65 6e 74  |se wait a moment|
000010e0  2e 2e 2e 22 3b 0d 06 40  09 f2 73 6f 72 74 0d 06  |...";..@..sort..|
000010f0  4a 18 62 3d 2d 31 3a f5  3a 62 3d 62 2b 31 3a fd  |J.b=-1:.:b=b+1:.|
00001100  6d 28 62 29 3e 30 0d 06  54 1f db 3a e7 a4 70 72  |m(b)>0..T..:..pr|
00001110  69 6e 74 65 72 20 ef 32  3a 70 74 72 3d b9 20 8b  |inter .2:ptr=. .|
00001120  70 74 72 3d a3 0d 06 5e  12 4d 44 25 3d ae 28 22  |ptr=...^.MD%=.("|
00001130  52 44 41 54 41 22 29 0d  06 68 1a f1 22 83 22 3b  |RDATA")..h..".";|
00001140  64 61 74 65 24 27 3a e3  61 3d 62 20 b8 62 2b 31  |date$':.a=b .b+1|
00001150  37 0d 06 72 51 f1 22 83  43 68 6f 69 63 65 20 22  |7..rQ.".Choice "|
00001160  3b 61 2b 31 2d 62 2c 3b  8a 31 31 29 22 86 43 6f  |;a+1-b,;.11)".Co|
00001170  75 70 6f 6e 20 6e 6f 2e  20 22 3b 6e 28 61 29 3b  |upon no. ";n(a);|
00001180  8a 32 36 29 22 81 56 61  6c 75 65 3a 22 3b 3a ef  |.26)".Value:";:.|
00001190  33 2c 31 33 35 3a e7 70  74 72 20 ef 32 2c 31 2c  |3,135:.ptr .2,1,|
000011a0  33 32 0d 06 7c 17 f1 3b  6d 28 61 29 3a d5 23 4d  |32..|..;m(a):.#M|
000011b0  44 25 2c 6e 28 61 29 3a  ed 0d 06 86 0c ef 33 3a  |D%,n(a):......3:|
000011c0  d9 23 4d 44 25 0d 06 90  15 dd a4 6f 66 66 73 65  |.#MD%......offse|
000011d0  74 28 6c 69 6e 65 29 3a  ea 6f 0d 06 9a 11 3f 28  |t(line):.o....?(|
000011e0  6c 69 6e 65 2b 34 30 29  3d 26 44 0d 06 a4 3b f5  |line+40)=&D...;.|
000011f0  3a 6f 3d 6f 2b 31 3a 77  3d a4 76 61 6c 28 24 28  |:o=o+1:w=.val($(|
00001200  6c 69 6e 65 2b 6f 29 29  3a fd 20 77 3c 3e 30 20  |line+o)):. w<>0 |
00001210  80 20 97 28 c0 24 28 6c  69 6e 65 2b 6f 29 2c 31  |. .(.$(line+o),1|
00001220  29 29 3e 31 36 30 0d 06  ae 0f 6c 65 6e 3d a9 28  |))>160....len=.(|
00001230  c3 28 77 29 29 0d 06 b8  0c 3d 6f 2d 32 2b 6c 65  |.(w))....=o-2+le|
00001240  6e 0d 06 c2 05 3a 0d 06  cc 0a dd f2 73 6f 72 74  |n....:......sort|
00001250  0d 06 d6 0d e3 62 3d 31  b8 6d 61 78 25 0d 06 e0  |.....b=1.max%...|
00001260  11 e3 61 3d 31 b8 28 6d  61 78 25 2d 31 29 0d 06  |..a=1.(max%-1)..|
00001270  ea 58 e7 6d 28 61 29 3e  6d 28 61 2b 31 29 20 74  |.X.m(a)>m(a+1) t|
00001280  65 6d 70 31 3d 6e 28 61  29 3a 6e 28 61 29 3d 6e  |emp1=n(a):n(a)=n|
00001290  28 61 2b 31 29 3a 6e 28  61 2b 31 29 3d 74 65 6d  |(a+1):n(a+1)=tem|
000012a0  70 31 3a 74 65 6d 70 31  3d 6d 28 61 29 3a 6d 28  |p1:temp1=m(a):m(|
000012b0  61 29 3d 6d 28 61 2b 31  29 3a 6d 28 61 2b 31 29  |a)=m(a+1):m(a+1)|
000012c0  3d 74 65 6d 70 31 0d 06  f4 05 ed 0d 06 fe 05 ed  |=temp1..........|
000012d0  0d 07 08 05 e1 0d 07 12  0b dd f2 74 65 61 6d 73  |...........teams|
000012e0  0d 07 1c 16 e7 73 61 76  65 32 25 3a f2 73 61 76  |.....save2%:.sav|
000012f0  65 4c 64 61 74 61 0d 07  26 13 e7 72 65 61 64 32  |eLdata..&..read2|
00001300  25 3d b9 20 e5 8d 44 76  47 0d 07 30 3c db 3a f1  |%=. ..DvG..0<.:.|
00001310  27 6c 6f 67 6f 24 3b 8a  30 2c 31 30 29 22 86 44  |'logo$;.0,10)".D|
00001320  6f 20 79 6f 75 20 77 61  6e 74 20 61 20 6c 69 73  |o you want a lis|
00001330  74 20 6f 66 20 74 65 61  6d 73 20 26 20 6e 6f 27  |t of teams & no'|
00001340  73 3f 20 22 3b 0d 07 3a  1b f5 3a 51 3d a5 20 80  |s? ";..:..:Q=. .|
00001350  26 44 46 3a fd 20 51 3d  38 39 20 84 51 3d 37 38  |&DF:. Q=89 .Q=78|
00001360  0d 07 44 05 db 0d 07 4e  0b e7 51 3d 37 38 20 e1  |..D....N..Q=78 .|
00001370  0d 07 58 18 e7 a4 70 72  69 6e 74 65 72 20 ef 31  |..X...printer .1|
00001380  35 2c 32 20 8b ef 31 34  0d 07 62 0a f2 70 72 69  |5,2 ..14..b..pri|
00001390  6e 74 0d 07 6c 06 ef 33  0d 07 76 05 e1 0d 07 80  |nt..l..3..v.....|
000013a0  10 dd a4 70 72 69 6e 74  65 72 3a ea 41 0d 07 8a  |...printer:.A...|
000013b0  14 ef 32 2c 31 2c 30 2c  31 2c 30 2c 31 2c 30 2c  |..2,1,0,1,0,1,0,|
000013c0  33 0d 07 94 13 41 3d 96  28 2d 34 29 3a 2a 46 58  |3....A=.(-4):*FX|
000013d0  32 31 2c 33 0d 07 9e 10  e7 41 3c 36 33 20 3d a3  |21,3.....A<63 =.|
000013e0  20 8b 3d b9 0d 07 a8 0a  dd f2 64 69 73 63 0d 07  | .=.......disc..|
000013f0  b2 2f 51 3d ad 28 22 4d  44 41 54 41 22 29 3a d9  |./Q=.("MDATA"):.|
00001400  23 51 3a e7 51 3d 30 20  72 65 61 64 25 3d a3 3a  |#Q:.Q=0 read%=.:|
00001410  73 61 76 65 25 3d b9 3a  e5 8d 64 64 47 0d 07 bc  |save%=.:..ddG...|
00001420  3a f1 27 27 27 22 81 49  73 20 74 68 65 20 6d 61  |:.'''".Is the ma|
00001430  74 63 68 20 64 61 74 61  20 74 6f 20 62 65 86 52  |tch data to be.R|
00001440  45 41 44 20 46 52 4f 4d  81 64 69 73 63 3f 83 28  |EAD FROM.disc?.(|
00001450  59 2f 4e 29 82 22 3b 0d  07 c6 1a f5 3a 51 3d a5  |Y/N).";.....:Q=.|
00001460  20 80 26 44 46 3a fd 51  3d 37 38 20 84 51 3d 38  | .&DF:.Q=78 .Q=8|
00001470  39 0d 07 d0 36 e7 51 3d  38 39 20 f1 22 59 65 73  |9...6.Q=89 ."Yes|
00001480  22 3a 72 65 61 64 25 3d  b9 3a 73 61 76 65 25 3d  |":read%=.:save%=|
00001490  a3 3a e5 8d 64 64 47 3a  8b 72 65 61 64 25 3d a3  |.:..ddG:.read%=.|
000014a0  3a f1 22 4e 6f 2e 22 0d  07 da 0b 73 61 76 65 25  |:."No."....save%|
000014b0  3d b9 0d 07 e4 31 51 3d  ad 28 22 4c 44 41 54 41  |=....1Q=.("LDATA|
000014c0  22 29 3a d9 23 51 3a e7  51 3d 30 20 72 65 61 64  |"):.#Q:.Q=0 read|
000014d0  32 25 3d a3 3a 73 61 76  65 32 25 3d b9 3a e5 8d  |2%=.:save2%=.:..|
000014e0  54 56 48 0d 07 ee 39 f1  27 27 22 81 4c 65 61 67  |TVH...9.''".Leag|
000014f0  75 65 20 64 61 74 61 20  74 6f 20 62 65 86 52 45  |ue data to be.RE|
00001500  41 44 20 46 52 4f 4d 81  64 69 73 63 3f 20 20 20  |AD FROM.disc?   |
00001510  20 20 20 83 28 59 2f 4e  29 82 22 3b 0d 07 f8 1a  |   .(Y/N).";....|
00001520  f5 3a 51 3d a5 20 80 26  44 46 3a fd 51 3d 37 38  |.:Q=. .&DF:.Q=78|
00001530  20 84 51 3d 38 39 0d 08  02 35 e7 51 3d 38 39 20  | .Q=89...5.Q=89 |
00001540  f1 22 59 65 73 22 3a 72  65 61 64 32 25 3d b9 3a  |."Yes":read2%=.:|
00001550  73 61 76 65 32 25 3d a3  3a e1 3a 8b 72 65 61 64  |save2%=.:.:.read|
00001560  32 25 3d a3 3a f1 22 4e  6f 2e 22 0d 08 0c 0c 73  |2%=.:."No."....s|
00001570  61 76 65 32 25 3d b9 0d  08 16 05 e1 0d 08 20 10  |ave2%=........ .|
00001580  dd f2 73 65 74 70 6f 69  6e 74 65 72 0d 08 2a 19  |..setpointer..*.|
00001590  e7 73 61 76 65 25 3a cf  23 66 69 6c 65 3d 32 2a  |.save%:.#file=2*|
000015a0  28 63 2d 31 29 0d 08 34  05 e1 0d 08 3e 0f dd f2  |(c-1)..4....>...|
000015b0  73 61 76 65 4c 64 61 74  61 0d 08 48 12 4c 64 61  |saveLdata..H.Lda|
000015c0  74 61 3d ae 22 4c 44 41  54 41 22 0d 08 52 3a e3  |ta=."LDATA"..R:.|
000015d0  51 3d 31 b8 31 35 32 3a  f1 23 4c 64 61 74 61 2c  |Q=1.152:.#Ldata,|
000015e0  50 28 51 29 2c 57 28 51  29 2c 44 28 51 29 2c 4c  |P(Q),W(Q),D(Q),L|
000015f0  28 51 29 2c 46 28 51 29  2c 41 28 51 29 2c 50 54  |(Q),F(Q),A(Q),PT|
00001600  28 51 29 3a ed 0d 08 5c  0d d9 23 4c 64 61 74 61  |(Q):...\..#Ldata|
00001610  3a e1 0d 08 66 0f dd f2  72 65 61 64 4c 64 61 74  |:...f...readLdat|
00001620  61 0d 08 70 35 f1 8a 30  2c 31 30 29 22 86 52 65  |a..p5..0,10)".Re|
00001630  61 64 69 6e 67 20 6c 65  61 67 75 65 20 64 61 74  |ading league dat|
00001640  61 22 27 22 81 50 6c 65  61 73 65 20 77 61 69 74  |a"'".Please wait|
00001650  20 2e 2e 2e 22 3b 0d 08  7a 12 4c 64 61 74 61 3d  | ...";..z.Ldata=|
00001660  ad 22 4c 44 41 54 41 22  0d 08 84 3a e3 51 3d 31  |."LDATA"...:.Q=1|
00001670  b8 31 35 32 3a e8 23 4c  64 61 74 61 2c 50 28 51  |.152:.#Ldata,P(Q|
00001680  29 2c 57 28 51 29 2c 44  28 51 29 2c 4c 28 51 29  |),W(Q),D(Q),L(Q)|
00001690  2c 46 28 51 29 2c 41 28  51 29 2c 50 54 28 51 29  |,F(Q),A(Q),PT(Q)|
000016a0  3a ed 0d 08 8e 0d d9 23  4c 64 61 74 61 3a e1 0d  |:......#Ldata:..|
000016b0  08 98 53 dd f2 73 74 6f  70 3a db 3a f1 6c 6f 67  |..S..stop:.:.log|
000016c0  6f 24 27 27 27 22 54 65  6c 65 74 65 78 74 20 61  |o$'''"Teletext a|
000016d0  64 61 70 74 65 72 20 69  73 20 6e 6f 74 20 6f 6e  |dapter is not on|
000016e0  2e 22 27 22 50 6c 65 61  73 65 20 63 68 65 63 6b  |."'"Please check|
000016f0  2c 20 74 68 65 6e 20 72  65 2d 6c 6f 61 64 2e 22  |, then re-load."|
00001700  3a e1 0d 08 a2 0d dd a4  42 42 43 64 61 74 65 0d  |:.......BBCdate.|
00001710  08 ac 14 f4 22 81 44 41  54 45 20 57 49 54 48 20  |....".DATE WITH |
00001720  41 54 53 0d 08 b6 0f d1  3d 30 3a f5 fd 91 3e 31  |ATS.....=0:...>1|
00001730  32 30 0d 08 c0 0f 77 6f  72 6b 25 3d 26 37 30 30  |20....work%=&700|
00001740  30 0d 08 ca 35 41 25 3d  26 37 41 3a 58 25 3d 77  |0...5A%=&7A:X%=w|
00001750  6f 72 6b 25 83 32 35 36  3a 59 25 3d 77 6f 72 6b  |ork%.256:Y%=work|
00001760  25 81 32 35 36 3a 3f 77  6f 72 6b 25 3d 31 35 3a  |%.256:?work%=15:|
00001770  d6 26 46 46 46 31 0d 08  d4 18 42 42 31 24 3d c2  |.&FFF1....BB1$=.|
00001780  c3 7e 28 77 6f 72 6b 25  3f 38 29 2c 31 29 0d 08  |.~(work%?8),1)..|
00001790  de 2e 42 42 32 24 3d c3  7e 28 77 6f 72 6b 25 3f  |..BB2$=.~(work%?|
000017a0  39 29 3a e7 20 a9 28 42  42 32 24 29 3d 31 20 42  |9):. .(BB2$)=1 B|
000017b0  42 32 24 3d 22 30 22 2b  42 42 32 24 0d 08 e8 2f  |B2$="0"+BB2$.../|
000017c0  42 42 33 24 3d c3 7e 28  77 6f 72 6b 25 3f 31 30  |BB3$=.~(work%?10|
000017d0  29 3a e7 20 a9 28 42 42  33 24 29 3d 31 20 42 42  |):. .(BB3$)=1 BB|
000017e0  33 24 3d 22 30 22 2b 42  42 33 24 0d 08 f2 18 4a  |3$="0"+BB3$....J|
000017f0  44 3d bb 28 42 42 31 24  2b 42 42 32 24 2b 42 42  |D=.(BB1$+BB2$+BB|
00001800  33 24 29 0d 08 fc 23 e7  4a 44 3c 34 36 37 39 36  |3$)...#.JD<46796|
00001810  20 3d 22 44 61 74 65 20  6e 6f 74 20 61 76 61 69  | ="Date not avai|
00001820  6c 61 62 6c 65 22 0d 09  06 1f 59 31 3d 28 31 30  |lable"....Y1=(10|
00001830  30 2a 28 4a 44 2d 31 35  30 37 38 2e 32 29 29 81  |0*(JD-15078.2)).|
00001840  33 36 35 32 35 0d 09 10  2b 4d 31 3d a8 28 28 4a  |36525...+M1=.((J|
00001850  44 2d 31 34 39 35 36 2e  31 2d a8 28 33 36 35 2e  |D-14956.1-.(365.|
00001860  32 35 2a 59 31 29 29 2f  33 30 2e 36 30 30 31 29  |25*Y1))/30.6001)|
00001870  0d 09 1a 3c 44 25 3d 4a  44 2d 31 34 39 35 36 2d  |...<D%=JD-14956-|
00001880  a8 28 33 36 35 2e 32 35  2a 59 31 29 2d a8 28 33  |.(365.25*Y1)-.(3|
00001890  30 2e 36 2a 4d 31 29 3a  4b 3d a8 28 30 2e 37 2b  |0.6*M1):K=.(0.7+|
000018a0  28 31 2f 28 31 37 2d 4d  31 29 29 29 0d 09 24 10  |(1/(17-M1)))..$.|
000018b0  4d 25 3d 4d 31 2d 31 2d  31 32 2a 4b 0d 09 2e 0b  |M%=M1-1-12*K....|
000018c0  5a 25 3d 59 31 2b 4b 0d  09 38 31 57 25 3d 28 4a  |Z%=Y1+K..81W%=(J|
000018d0  44 2b 33 29 83 37 3a f7  8d 44 42 49 3a e3 64 61  |D+3).7:..DBI:.da|
000018e0  79 3d 30 b8 57 25 3a f3  44 24 3a ed 3a 44 24 3d  |y=0.W%:.D$:.:D$=|
000018f0  44 24 2b 22 64 61 79 22  0d 09 42 29 dc 20 53 75  |D$+"day"..B). Su|
00001900  6e 2c 4d 6f 6e 2c 54 75  65 73 2c 57 65 64 6e 65  |n,Mon,Tues,Wedne|
00001910  73 2c 54 68 75 72 73 2c  46 72 69 2c 53 61 74 75  |s,Thurs,Fri,Satu|
00001920  72 0d 09 4c 1d f7 8d 44  56 49 3a e3 64 61 79 3d  |r..L...DVI:.day=|
00001930  31 b8 4d 25 3a f3 6d 6f  6e 74 68 24 3a ed 0d 09  |1.M%:.month$:...|
00001940  56 5b dc 20 4a 61 6e 75  61 72 79 2c 46 65 62 72  |V[. January,Febr|
00001950  75 61 72 79 2c 4d 61 72  63 68 2c 41 70 72 69 6c  |uary,March,April|
00001960  2c 4d 61 79 2c 4a 75 6e  65 2c 4a 75 6c 79 2c 41  |,May,June,July,A|
00001970  75 67 75 73 74 2c 53 65  70 74 65 6d 62 65 72 2c  |ugust,September,|
00001980  4f 63 74 6f 62 65 72 2c  4e 6f 76 65 6d 62 65 72  |October,November|
00001990  2c 44 65 63 65 6d 62 65  72 0d 09 60 54 e7 44 25  |,December..`T.D%|
000019a0  3d 31 84 44 25 3d 32 31  84 44 25 3d 33 31 20 74  |=1.D%=21.D%=31 t|
000019b0  68 24 3d 22 73 74 22 20  8b e7 44 25 3d 32 84 44  |h$="st" ..D%=2.D|
000019c0  25 3d 32 32 20 74 68 24  3d 22 6e 64 22 20 8b e7  |%=22 th$="nd" ..|
000019d0  44 25 3d 33 84 44 25 3d  32 33 20 74 68 24 3d 22  |D%=3.D%=23 th$="|
000019e0  72 64 22 20 8b 74 68 24  3d 22 74 68 22 0d 09 6a  |rd" .th$="th"..j|
000019f0  2d 3d 44 24 2b 22 20 20  22 2b c3 28 44 25 29 2b  |-=D$+"  "+.(D%)+|
00001a00  74 68 24 2b 22 20 22 2b  6d 6f 6e 74 68 24 2b 22  |th$+" "+month$+"|
00001a10  20 31 39 22 2b c3 28 5a  25 29 0d 09 74 17 dd a4  | 19"+.(Z%)..t...|
00001a20  61 64 61 70 74 65 72 3a  de 20 77 6f 72 6b 25 20  |adapter:. work% |
00001a30  32 0d 09 7e 48 41 25 3d  26 37 41 3a 58 25 3d 77  |2..~HA%=&7A:X%=w|
00001a40  6f 72 6b 25 83 32 35 36  3a 59 25 3d 77 6f 72 6b  |ork%.256:Y%=work|
00001a50  25 81 32 35 36 3a 3f 77  6f 72 6b 25 3d 31 37 3a  |%.256:?work%=17:|
00001a60  d6 26 46 46 46 31 3a e7  77 6f 72 6b 25 3f 31 3d  |.&FFF1:.work%?1=|
00001a70  30 20 3d b9 20 8b 20 3d  a3 0d 09 88 0a dd a4 63  |0 =. . =.......c|
00001a80  61 6c 63 0d 13 86 23 f4  22 85 43 68 61 6e 67 65  |alc...#.".Change|
00001a90  20 74 68 65 20 66 6f 6c  6c 6f 77 69 6e 67 20 66  | the following f|
00001aa0  6f 72 6d 75 6c 61 0d 13  87 21 f4 22 85 74 6f 20  |ormula...!.".to |
00001ab0  73 75 69 74 20 69 6e 64  69 76 69 64 75 61 6c 20  |suit individual |
00001ac0  6e 65 65 64 73 3a 2d 0d  13 88 10 3d 50 54 28 6d  |needs:-....=PT(m|
00001ad0  29 2d 50 54 28 6e 29 0d  ff                       |)-PT(n)..|
00001ad9