$�"�*****************************
$�"�*�POOLS  PREDICTOR  PROGRAM�*
$�"�*�by�J.J.Brayshaw.�Dec 1984�*
<$�"�*�Adapted for 1988/9 season�*
F$�"�*�August 1988 (1)         � *
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
bb�((�team$,�(t$(A))-1)=�t$(A),�(t$(A))-1))�(��team$,�(team$)-�(t$(A))+1),�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)):�B>128 B=B-128
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 41 75 67 75 73 74 20  |..F$.".*.August |
000000a0  31 39 38 38 20 28 31 29  20 20 20 20 20 20 20 20  |1988 (1)        |
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 62 fd 28  28 c0 74 65 61 6d 24 2c  |+1..bb.((.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 c2 74 65 61 6d 24  2c a9 28 74 65 61 6d 24  |(..team$,.(team$|
000005b0  29 2d a9 28 74 24 28 41  29 29 2b 31 29 2c c2 74  |)-.(t$(A))+1),.t|
000005c0  24 28 41 29 2c 31 29 29  3c 3e 30 29 29 84 20 41  |$(A),1))<>0)). A|
000005d0  3d 31 35 33 0d 02 6c 10  e7 41 3d 31 35 33 20 e5  |=153..l..A=153 .|
000005e0  8d 64 5a 42 0d 02 76 22  74 24 28 41 29 3d c0 74  |.dZB..v"t$(A)=.t|
000005f0  65 61 6d 24 2b 22 20 20  20 20 20 20 20 20 20 20  |eam$+"          |
00000600  20 22 2c 31 32 29 0d 02  80 30 e7 20 ac 64 6f 6e  | ",12)...0. .don|
00000610  65 20 53 3d 53 2b a4 6f  66 66 73 65 74 28 73 74  |e S=S+.offset(st|
00000620  61 72 74 29 3a 64 6f 6e  65 3d b9 3a 66 6c 3d b9  |art):done=.:fl=.|
00000630  3a 53 3d 53 2d 31 0d 02  8a 21 3f 28 53 2b 32 31  |:S=S-1...!?(S+21|
00000640  29 3d 26 44 3a 50 28 41  29 3d a4 76 61 6c 28 24  |)=&D:P(A)=.val($|
00000650  28 53 2b 31 39 29 29 0d  02 94 21 3f 28 53 2b 32  |(S+19))...!?(S+2|
00000660  34 29 3d 26 44 3a 57 28  41 29 3d a4 76 61 6c 28  |4)=&D:W(A)=.val(|
00000670  24 28 53 2b 32 32 29 29  0d 02 9e 21 3f 28 53 2b  |$(S+22))...!?(S+|
00000680  32 37 29 3d 26 44 3a 44  28 41 29 3d a4 76 61 6c  |27)=&D:D(A)=.val|
00000690  28 24 28 53 2b 32 35 29  29 0d 02 a8 21 3f 28 53  |($(S+25))...!?(S|
000006a0  2b 33 30 29 3d 26 44 3a  4c 28 41 29 3d a4 76 61  |+30)=&D:L(A)=.va|
000006b0  6c 28 24 28 53 2b 32 38  29 29 0d 02 b2 21 3f 28  |l($(S+28))...!?(|
000006c0  53 2b 33 33 29 3d 26 44  3a 46 28 41 29 3d a4 76  |S+33)=&D:F(A)=.v|
000006d0  61 6c 28 24 28 53 2b 33  31 29 29 0d 02 bc 21 3f  |al($(S+31))...!?|
000006e0  28 53 2b 33 36 29 3d 26  44 3a 41 28 41 29 3d a4  |(S+36)=&D:A(A)=.|
000006f0  76 61 6c 28 24 28 53 2b  33 34 29 29 0d 02 c6 22  |val($(S+34))..."|
00000700  3f 28 53 2b 33 39 29 3d  26 44 3a 50 54 28 41 29  |?(S+39)=&D:PT(A)|
00000710  3d a4 76 61 6c 28 24 28  53 2b 33 37 29 29 0d 02  |=.val($(S+37))..|
00000720  d0 12 e7 66 6c 20 53 3d  53 2b 31 3a 66 6c 3d a3  |...fl S=S+1:fl=.|
00000730  0d 02 da 12 f1 8a 30 2c  32 34 29 3b 89 28 33 38  |......0,24);.(38|
00000740  29 3b 0d 02 e4 05 ed 0d  02 ee 05 e1 0d 02 f8 93  |);..............|
00000750  dc 22 33 39 31 73 30 30  30 31 22 2c 22 33 39 31  |."391s0001","391|
00000760  73 30 30 30 32 22 2c 22  33 39 32 73 30 30 30 31  |s0002","392s0001|
00000770  22 2c 22 33 39 32 73 30  30 30 32 22 2c 22 33 39  |","392s0002","39|
00000780  33 73 30 30 30 31 22 2c  22 33 39 33 73 30 30 30  |3s0001","393s000|
00000790  32 22 2c 22 33 39 34 73  30 30 30 31 22 2c 22 33  |2","394s0001","3|
000007a0  39 34 73 30 30 30 32 22  2c 22 33 39 35 73 33 46  |94s0002","395s3F|
000007b0  37 46 22 2c 22 33 39 36  73 33 46 37 46 22 2c 22  |7F","396s3F7F","|
000007c0  33 39 37 73 33 46 37 46  22 2c 22 33 39 38 73 30  |397s3F7F","398s0|
000007d0  30 30 31 22 2c 22 33 39  38 73 30 30 30 32 22 0d  |001","398s0002".|
000007e0  03 02 0d dd a4 76 61 6c  28 4e 24 29 0d 03 0c 0c  |.....val(N$)....|
000007f0  ea 4e 32 24 2c 41 2c 42  0d 03 16 2b e3 41 3d 31  |.N2$,A,B...+.A=1|
00000800  b8 a9 28 4e 24 29 3a 42  3d 97 28 c1 4e 24 2c 41  |..(N$):B=.(.N$,A|
00000810  2c 31 29 29 3a e7 42 3e  31 32 38 20 42 3d 42 2d  |,1)):.B>128 B=B-|
00000820  31 32 38 0d 03 20 15 e7  42 3c 34 38 20 84 42 3e  |128.. ..B<48 .B>|
00000830  35 37 20 e5 8d 54 74 43  0d 03 2a 0e 4e 32 24 3d  |57 ..TtC..*.N2$=|
00000840  4e 32 24 2b bd 42 0d 03  34 05 ed 0d 03 3e 0b 3d  |N2$+.B..4....>.=|
00000850  bb 28 4e 32 24 29 0d 03  48 0e dd a4 6e 61 6d 65  |.(N2$)..H...name|
00000860  28 4e 24 29 0d 03 52 0c  ea 4e 32 24 2c 41 2c 42  |(N$)..R..N2$,A,B|
00000870  0d 03 5c 2b e3 41 3d 31  b8 a9 28 4e 24 29 3a 42  |..\+.A=1..(N$):B|
00000880  3d 97 28 c1 4e 24 2c 41  2c 31 29 29 3a e7 42 3e  |=.(.N$,A,1)):.B>|
00000890  31 32 38 20 42 3d 42 2d  31 32 38 0d 03 66 10 4e  |128 B=B-128..f.N|
000008a0  32 24 3d 4e 32 24 2b bd  42 3a ed 0d 03 70 08 3d  |2$=N2$+.B:...p.=|
000008b0  4e 32 24 0d 03 7a 0f dd  f2 6f 73 63 6c 69 28 6e  |N2$..z...oscli(n|
000008c0  24 29 0d 03 84 07 ea 20  43 0d 03 8e 0a de 20 43  |$)..... C..... C|
000008d0  20 31 34 0d 03 98 09 24  43 3d 6e 24 0d 03 a2 0d  | 14....$C=n$....|
000008e0  58 25 3d 43 20 83 32 35  36 0d 03 ac 0d 59 25 3d  |X%=C .256....Y%=|
000008f0  43 20 81 32 35 36 0d 03  b6 0a d6 26 46 46 46 37  |C .256.....&FFF7|
00000900  0d 03 c0 05 e1 0d 03 ca  62 dc 20 41 72 73 6e 2c  |........b. Arsn,|
00000910  41 56 2c 43 68 61 6e 2c  43 6f 76 79 2c 44 65 62  |AV,Chan,Covy,Deb|
00000920  2c 45 76 74 2c 4c 69 76  70 2c 4c 75 6f 2c 4d 61  |,Evt,Livp,Luo,Ma|
00000930  6e 55 2c 4d 69 64 62 2c  4d 69 6c 61 2c 4e 65 77  |nU,Midb,Mila,New|
00000940  63 74 2c 4e 6f 72 77 63  2c 4e 6f 74 46 2c 51 52  |ct,Norwc,NotF,QR|
00000950  2c 53 68 57 2c 53 6f 70  2c 54 6f 74 6d 2c 57 65  |,ShW,Sop,Totm,We|
00000960  73 48 2c 57 69 6d 6c 0d  03 d4 72 dc 20 42 61 73  |sH,Wiml...r. Bas|
00000970  2c 42 69 68 2c 42 6c 62  2c 42 6f 75 6d 2c 42 72  |,Bih,Blb,Boum,Br|
00000980  61 66 2c 42 72 69 6e 2c  43 68 65 6c 73 2c 43 72  |af,Brin,Chels,Cr|
00000990  79 61 2c 48 75 6c 6c 2c  49 70 2c 4c 65 65 73 2c  |ya,Hull,Ip,Lees,|
000009a0  4c 65 69 74 2c 4d 61 6e  43 2c 4f 6c 61 2c 4f 78  |Leit,ManC,Ola,Ox|
000009b0  72 2c 50 6c 79 2c 50 6f  6d 2c 53 68 77 2c 53 74  |r,Ply,Pom,Shw,St|
000009c0  6f 6b 65 2c 53 75 72 2c  53 77 69 6f 2c 57 61 6c  |oke,Sur,Swio,Wal|
000009d0  61 2c 57 61 74 66 2c 57  42 0d 03 de 78 dc 20 41  |a,Watf,WB...x. A|
000009e0  6c 64 68 2c 42 6c 70 2c  42 6f 6c 6f 2c 42 72 65  |ldh,Blp,Bolo,Bre|
000009f0  64 2c 42 72 69 43 2c 42  72 69 52 2c 42 75 72 79  |d,BriC,BriR,Bury|
00000a00  20 2c 43 61 72 64 66 2c  43 68 65 73 43 2c 43 68  | ,Cardf,ChesC,Ch|
00000a10  65 73 66 2c 46 75 68 2c  47 69 67 2c 48 75 64 66  |esf,Fuh,Gig,Hudf|
00000a20  2c 4d 61 6e 73 2c 4e 6f  72 74 70 2c 4e 6f 74 43  |,Mans,Nortp,NotC|
00000a30  2c 50 6f 56 2c 50 72 6e  2c 52 65 67 2c 53 68 55  |,PoV,Prn,Reg,ShU|
00000a40  2c 53 6f 64 2c 53 77 61  61 2c 57 69 41 2c 57 6f  |,Sod,Swaa,WiA,Wo|
00000a50  76 0d 03 e8 78 dc 20 42  75 72 6e 79 2c 43 61 6d  |v...x. Burny,Cam|
00000a60  62 2c 43 61 72 6c 73 2c  43 6f 6c 68 2c 43 72 65  |b,Carls,Colh,Cre|
00000a70  77 2c 44 61 67 2c 44 6f  63 2c 45 78 74 2c 47 72  |w,Dag,Doc,Ext,Gr|
00000a80  62 2c 48 61 6c 78 2c 48  61 72 70 2c 48 65 72 65  |b,Halx,Harp,Here|
00000a90  2c 4c 65 79 6e 2c 4c 69  6e 6c 2c 50 65 62 2c 52  |,Leyn,Linl,Peb,R|
00000aa0  6f 63 61 2c 52 6f 74 61  2c 53 63 61 62 2c 53 63  |oca,Rota,Scab,Sc|
00000ab0  75 68 2c 53 74 6f 63 70  2c 54 6f 72 75 2c 54 72  |uh,Stocp,Toru,Tr|
00000ac0  6d 2c 57 72 78 2c 59 6f  6b 0d 03 f2 6e dc 20 41  |m,Wrx,Yok...n. A|
00000ad0  6c 74 6d 2c 41 79 6c 62  2c 42 61 74 2c 42 6f 73  |ltm,Aylb,Bat,Bos|
00000ae0  6e 2c 43 68 65 6c 74 6d  2c 43 68 6f 79 2c 45 6e  |n,Cheltm,Choy,En|
00000af0  6c 2c 46 69 68 2c 4b 65  67 2c 4b 69 64 72 2c 4d  |l,Fih,Keg,Kidr,M|
00000b00  61 63 64 2c 4d 61 69 6f  2c 4e 65 77 70 72 2c 4e  |acd,Maio,Newpr,N|
00000b10  6f 72 74 77 2c 52 75 63  2c 53 74 61 66 2c 53 75  |ortw,Ruc,Staf,Su|
00000b20  6f 2c 54 65 72 2c 57 65  6c 67 2c 57 65 79 6d 2c  |o,Ter,Welg,Weym,|
00000b30  57 79 62 2c 59 65 76 0d  03 fc 38 dc 20 41 62 72  |Wyb,Yev...8. Abr|
00000b40  2c 43 65 63 2c 22 44 75  6e 64 65 65 20 20 20 22  |,Cec,"Dundee   "|
00000b50  2c 44 75 6e 55 2c 48 61  6d 6c 2c 48 65 61 73 2c  |,DunU,Haml,Heas,|
00000b60  48 69 61 2c 4d 6f 74 77  2c 52 61 67 2c 53 4d 0d  |Hia,Motw,Rag,SM.|
00000b70  04 06 44 dc 20 41 69 65  2c 41 79 72 20 2c 22 43  |..D. Aie,Ayr ,"C|
00000b80  6c 79 64 65 20 20 22 2c  43 6c 62 2c 44 75 6e 66  |lyde  ",Clb,Dunf|
00000b90  2c 46 61 6b 2c 46 6f 66  2c 4b 69 6c 63 2c 4d 65  |,Fak,Fof,Kilc,Me|
00000ba0  62 2c 4d 6f 72 6e 2c 50  61 6b 2c 51 53 2c 52 52  |b,Morn,Pak,QS,RR|
00000bb0  2c 53 4a 0d 04 0b 45 dc  20 41 6c 62 6e 2c 41 6c  |,SJ...E. Albn,Al|
00000bc0  6c 61 2c 41 72 62 61 2c  42 65 77 2c 42 72 68 2c  |la,Arba,Bew,Brh,|
00000bd0  43 6f 77 68 2c 44 75 6d  62 2c 45 61 46 2c 45 53  |Cowh,Dumb,EaF,ES|
00000be0  2c 4d 6f 6e 73 2c 51 75  50 2c 53 74 65 6d 2c 53  |,Mons,QuP,Stem,S|
00000bf0  74 69 67 2c 53 74 72 65  0d 04 10 0b dd f2 70 72  |tig,Stre......pr|
00000c00  69 6e 74 0d 04 1a 17 f1  27 27 22 81 43 68 65 63  |int.....''".Chec|
00000c10  6b 20 73 68 6f 77 73 20  22 3b 0d 04 24 1d e7 72  |k shows ";..$..r|
00000c20  65 74 72 79 20 f1 22 73  6f 6d 65 20 22 3b 8b 20  |etry ."some ";. |
00000c30  f1 22 6e 6f 20 22 3b 0d  04 2e 0f f1 22 65 72 72  |."no ";....."err|
00000c40  6f 72 73 3a 22 27 0d 04  38 0b 2a 46 58 31 35 2c  |ors:"'..8.*FX15,|
00000c50  31 0d 04 42 2b f1 22 4e  6f 2e 20 20 54 65 61 6d  |1..B+."No.  Team|
00000c60  22 3b 89 31 31 3b 22 50  20 20 57 20 20 44 20 20  |";.11;"P  W  D  |
00000c70  4c 20 20 46 20 20 41 20  50 74 73 22 0d 04 4c 0c  |L  F  A Pts"..L.|
00000c80  e3 58 3d 31 b8 31 35 32  0d 04 56 23 f1 c2 22 20  |.X=1.152..V#.." |
00000c90  20 22 2b c3 28 58 29 2c  33 29 2b 22 20 20 22 2b  | "+.(X),3)+"  "+|
00000ca0  74 24 28 58 29 2b 22 20  20 22 3b 0d 04 60 13 e7  |t$(X)+"  ";..`..|
00000cb0  50 28 58 29 3d 30 20 f1  3a e5 8d 74 48 44 0d 04  |P(X)=0 .:..tHD..|
00000cc0  6a 26 f1 c2 22 20 22 2b  c3 28 50 28 58 29 29 2c  |j&.." "+.(P(X)),|
00000cd0  32 29 3b c2 22 20 20 22  2b c3 28 57 28 58 29 29  |2);."  "+.(W(X))|
00000ce0  2c 33 29 3b 0d 04 74 49  f1 c2 22 20 20 22 2b c3  |,3);..tI.."  "+.|
00000cf0  28 44 28 58 29 29 2c 33  29 3b c2 22 20 20 22 2b  |(D(X)),3);."  "+|
00000d00  c3 28 4c 28 58 29 29 2c  33 29 3b c2 22 20 20 22  |.(L(X)),3);."  "|
00000d10  2b c3 28 46 28 58 29 29  2c 33 29 3b c2 22 20 20  |+.(F(X)),3);."  |
00000d20  22 2b c3 28 41 28 58 29  29 2c 33 29 3b 0d 04 7e  |"+.(A(X)),3);..~|
00000d30  17 f1 c2 22 20 20 20 22  2b c3 28 50 54 28 58 29  |..."   "+.(PT(X)|
00000d40  29 2c 34 29 0d 04 88 26  ed 3a ef 33 3a f1 27 27  |),4)...&.:.3:.''|
00000d50  22 50 72 65 73 73 20 53  50 41 43 45 2d 42 41 52  |"Press SPACE-BAR|
00000d60  20 22 3b 3a f5 fd a5 3d  33 32 0d 04 92 05 e1 0d  | ";:...=32......|
00000d70  04 9c 05 3a 0d 04 a6 0c  dd f2 76 65 72 69 66 79  |...:......verify|
00000d80  0d 04 b0 0b 72 65 74 72  79 3d a3 0d 04 ba 0c e3  |....retry=......|
00000d90  41 3d 31 b8 31 35 32 0d  04 c4 19 e7 50 28 41 29  |A=1.152.....P(A)|
00000da0  3d 30 20 72 65 74 72 79  3d b9 3a 41 3d 31 35 32  |=0 retry=.:A=152|
00000db0  0d 04 ce 05 ed 0d 04 d8  05 e1 0d 04 e2 05 3a 0d  |..............:.|
00000dc0  04 ec 12 dd f2 69 6e 74  65 72 6d 65 64 69 61 74  |.....intermediat|
00000dd0  65 0d 04 f6 0b f1 27 6c  6f 67 6f 24 0d 05 00 05  |e.....'logo$....|
00000de0  e1 0d 05 0a 05 3a 0d 05  14 16 dd f2 6d 61 74 63  |.....:......matc|
00000df0  68 65 73 3a ea 58 2c 6d  2c 6e 2c 63 0d 05 1e 1a  |hes:.X,m,n,c....|
00000e00  db 3a f1 6c 6f 67 6f 24  3a ef 32 38 2c 30 2c 32  |.:.logo$:.28,0,2|
00000e10  34 2c 33 39 2c 34 0d 05  28 18 e7 73 61 76 65 25  |4,39,4..(..save%|
00000e20  3a 66 69 6c 65 3d ae 22  4d 44 41 54 41 22 0d 05  |:file=."MDATA"..|
00000e30  32 18 e7 72 65 61 64 25  3a 66 69 6c 65 3d ad 22  |2..read%:file=."|
00000e40  4d 44 41 54 41 22 0d 05  3c 05 f5 0d 05 46 1f 63  |MDATA"..<....F.c|
00000e50  3d 63 2b 31 3a e7 63 3d  28 6d 61 78 25 2b 31 29  |=c+1:.c=(max%+1)|
00000e60  20 6d 3d 30 3a e5 8d 54  44 46 0d 05 50 1c f1 3b  | m=0:..TDF..P..;|
00000e70  63 3b 8a 31 38 29 22 76  73 2e 22 3b 3a f5 3a ef  |c;.18)"vs.";:.:.|
00000e80  38 3a fd b1 3d 33 0d 05  5a 20 e7 72 65 61 64 25  |8:..=3..Z .read%|
00000e90  3a 6d 3d 9a 23 66 69 6c  65 3a e7 6d 3d 32 35 35  |:m=.#file:.m=255|
00000ea0  20 6d 3d 39 39 39 0d 05  64 20 e7 72 65 61 64 25  | m=999..d .read%|
00000eb0  3a f1 22 86 4e 6f 2e 83  22 3b 6d 3a 8b e8 22 86  |:.".No..";m:..".|
00000ec0  4e 6f 2e 83 22 6d 0d 05  6e 22 e7 6d 3d 39 39 39  |No.."m..n".m=999|
00000ed0  20 80 73 61 76 65 25 3a  d5 23 66 69 6c 65 2c 32  | .save%:.#file,2|
00000ee0  35 35 3a e5 8d 74 42 45  0d 05 78 13 e7 73 61 76  |55:..tBE..x..sav|
00000ef0  65 25 3a d5 23 66 69 6c  65 2c 6d 0d 05 82 10 e7  |e%:.#file,m.....|
00000f00  6d 3d 39 39 39 20 e5 8d  64 7a 45 0d 05 8c 23 e7  |m=999 ..dzE...#.|
00000f10  6d 3e 31 35 32 20 80 73  61 76 65 25 3a cf 23 66  |m>152 .save%:.#f|
00000f20  69 6c 65 3d 28 8f 23 66  69 6c 65 29 2d 31 0d 05  |ile=(.#file)-1..|
00000f30  96 10 e7 6d 3e 31 35 32  20 e5 8d 44 64 45 0d 05  |...m>152 ..DdE..|
00000f40  a0 0e e7 6d 3d 30 20 e5  8d 54 44 46 0d 05 aa 23  |...m=0 ..TDF...#|
00000f50  f5 3a ef 38 3a fd b1 3d  33 3a f1 c0 74 24 28 6d  |.:.8:..=3:..t$(m|
00000f60  29 2b c4 31 31 2c 22 20  22 29 2c 31 31 29 3b 0d  |)+.11," "),11);.|
00000f70  05 b4 34 f5 3a ef 39 3a  fd b1 3d 32 33 3a e7 72  |..4.:.9:..=23:.r|
00000f80  65 61 64 25 3a 6e 3d 9a  23 66 69 6c 65 3a f1 22  |ead%:n=.#file:."|
00000f90  82 4e 6f 2e 86 22 3b 6e  3a 8b e8 22 82 4e 6f 2e  |.No..";n:..".No.|
00000fa0  86 22 6e 0d 05 be 23 e7  6e 3e 31 35 32 20 80 73  |."n...#.n>152 .s|
00000fb0  61 76 65 25 3a cf 23 66  69 6c 65 3d 28 8f 23 66  |ave%:.#file=(.#f|
00000fc0  69 6c 65 29 2d 31 0d 05  c8 10 e7 6e 3e 31 35 32  |ile)-1.....n>152|
00000fd0  20 e5 8d 44 64 45 0d 05  d2 13 e7 73 61 76 65 25  | ..DdE.....save%|
00000fe0  3a d5 23 66 69 6c 65 2c  6e 0d 05 dc 23 f5 3a ef  |:.#file,n...#.:.|
00000ff0  38 3a fd b1 3d 32 33 3a  f1 c0 74 24 28 6e 29 2b  |8:..=23:..t$(n)+|
00001000  c4 31 31 2c 22 20 22 29  2c 31 31 29 0d 05 e6 23  |.11," "),11)...#|
00001010  e7 50 28 6e 29 3d 30 20  84 20 50 28 6d 29 3d 30  |.P(n)=0 . P(m)=0|
00001020  20 6d 28 63 29 3d 31 30  30 3a e5 8d 54 44 46 0d  | m(c)=100:..TDF.|
00001030  05 f0 11 6d 28 63 29 3d  94 28 a4 63 61 6c 63 29  |...m(c)=.(.calc)|
00001040  0d 05 fa 0a 6e 28 63 29  3d 63 0d 06 04 08 fd 6d  |....n(c)=c.....m|
00001050  3d 30 0d 06 0e 2e f1 22  41 6e 79 20 61 6c 74 65  |=0....."Any alte|
00001060  72 61 74 69 6f 6e 73 3f  20 22 3b 3a e7 20 28 a5  |rations? ";:. (.|
00001070  20 80 26 44 46 29 3c 3e  38 39 20 e5 8d 54 62 46  | .&DF)<>89 ..TbF|
00001080  0d 06 18 43 72 65 61 64  25 3d a3 3a f1 27 3a f5  |...Cread%=.:.':.|
00001090  3a e8 22 4d 61 74 63 68  20 6e 6f 2e 3a 20 22 63  |:."Match no.: "c|
000010a0  3a e7 63 3d 30 20 6d 3d  30 3a e5 8d 54 44 46 20  |:.c=0 m=0:..TDF |
000010b0  8b 20 f2 73 65 74 70 6f  69 6e 74 65 72 3a e5 8d  |. .setpointer:..|
000010c0  44 50 45 0d 06 22 07 db  3a e1 0d 06 2c 0c dd f2  |DPE.."..:...,...|
000010d0  73 65 6c 65 63 74 0d 06  36 23 f1 27 27 27 22 81  |select..6#.'''".|
000010e0  50 6c 65 61 73 65 20 77  61 69 74 20 61 20 6d 6f  |Please wait a mo|
000010f0  6d 65 6e 74 2e 2e 2e 22  3b 0d 06 40 09 f2 73 6f  |ment...";..@..so|
00001100  72 74 0d 06 4a 18 62 3d  2d 31 3a f5 3a 62 3d 62  |rt..J.b=-1:.:b=b|
00001110  2b 31 3a fd 6d 28 62 29  3e 30 0d 06 54 1f db 3a  |+1:.m(b)>0..T..:|
00001120  e7 a4 70 72 69 6e 74 65  72 20 ef 32 3a 70 74 72  |..printer .2:ptr|
00001130  3d b9 20 8b 70 74 72 3d  a3 0d 06 5e 12 4d 44 25  |=. .ptr=...^.MD%|
00001140  3d ae 28 22 52 44 41 54  41 22 29 0d 06 68 1a f1  |=.("RDATA")..h..|
00001150  22 83 22 3b 64 61 74 65  24 27 3a e3 61 3d 62 20  |".";date$':.a=b |
00001160  b8 62 2b 31 37 0d 06 72  51 f1 22 83 43 68 6f 69  |.b+17..rQ.".Choi|
00001170  63 65 20 22 3b 61 2b 31  2d 62 2c 3b 8a 31 31 29  |ce ";a+1-b,;.11)|
00001180  22 86 43 6f 75 70 6f 6e  20 6e 6f 2e 20 22 3b 6e  |".Coupon no. ";n|
00001190  28 61 29 3b 8a 32 36 29  22 81 56 61 6c 75 65 3a  |(a);.26)".Value:|
000011a0  22 3b 3a ef 33 2c 31 33  35 3a e7 70 74 72 20 ef  |";:.3,135:.ptr .|
000011b0  32 2c 31 2c 33 32 0d 06  7c 17 f1 3b 6d 28 61 29  |2,1,32..|..;m(a)|
000011c0  3a d5 23 4d 44 25 2c 6e  28 61 29 3a ed 0d 06 86  |:.#MD%,n(a):....|
000011d0  0c ef 33 3a d9 23 4d 44  25 0d 06 90 15 dd a4 6f  |..3:.#MD%......o|
000011e0  66 66 73 65 74 28 6c 69  6e 65 29 3a ea 6f 0d 06  |ffset(line):.o..|
000011f0  9a 11 3f 28 6c 69 6e 65  2b 34 30 29 3d 26 44 0d  |..?(line+40)=&D.|
00001200  06 a4 3b f5 3a 6f 3d 6f  2b 31 3a 77 3d a4 76 61  |..;.:o=o+1:w=.va|
00001210  6c 28 24 28 6c 69 6e 65  2b 6f 29 29 3a fd 20 77  |l($(line+o)):. w|
00001220  3c 3e 30 20 80 20 97 28  c0 24 28 6c 69 6e 65 2b  |<>0 . .(.$(line+|
00001230  6f 29 2c 31 29 29 3e 31  36 30 0d 06 ae 0f 6c 65  |o),1))>160....le|
00001240  6e 3d a9 28 c3 28 77 29  29 0d 06 b8 0c 3d 6f 2d  |n=.(.(w))....=o-|
00001250  32 2b 6c 65 6e 0d 06 c2  05 3a 0d 06 cc 0a dd f2  |2+len....:......|
00001260  73 6f 72 74 0d 06 d6 0d  e3 62 3d 31 b8 6d 61 78  |sort.....b=1.max|
00001270  25 0d 06 e0 11 e3 61 3d  31 b8 28 6d 61 78 25 2d  |%.....a=1.(max%-|
00001280  31 29 0d 06 ea 58 e7 6d  28 61 29 3e 6d 28 61 2b  |1)...X.m(a)>m(a+|
00001290  31 29 20 74 65 6d 70 31  3d 6e 28 61 29 3a 6e 28  |1) temp1=n(a):n(|
000012a0  61 29 3d 6e 28 61 2b 31  29 3a 6e 28 61 2b 31 29  |a)=n(a+1):n(a+1)|
000012b0  3d 74 65 6d 70 31 3a 74  65 6d 70 31 3d 6d 28 61  |=temp1:temp1=m(a|
000012c0  29 3a 6d 28 61 29 3d 6d  28 61 2b 31 29 3a 6d 28  |):m(a)=m(a+1):m(|
000012d0  61 2b 31 29 3d 74 65 6d  70 31 0d 06 f4 05 ed 0d  |a+1)=temp1......|
000012e0  06 fe 05 ed 0d 07 08 05  e1 0d 07 12 0b dd f2 74  |...............t|
000012f0  65 61 6d 73 0d 07 1c 16  e7 73 61 76 65 32 25 3a  |eams.....save2%:|
00001300  f2 73 61 76 65 4c 64 61  74 61 0d 07 26 13 e7 72  |.saveLdata..&..r|
00001310  65 61 64 32 25 3d b9 20  e5 8d 44 76 47 0d 07 30  |ead2%=. ..DvG..0|
00001320  3c db 3a f1 27 6c 6f 67  6f 24 3b 8a 30 2c 31 30  |<.:.'logo$;.0,10|
00001330  29 22 86 44 6f 20 79 6f  75 20 77 61 6e 74 20 61  |)".Do you want a|
00001340  20 6c 69 73 74 20 6f 66  20 74 65 61 6d 73 20 26  | list of teams &|
00001350  20 6e 6f 27 73 3f 20 22  3b 0d 07 3a 1b f5 3a 51  | no's? ";..:..:Q|
00001360  3d a5 20 80 26 44 46 3a  fd 20 51 3d 38 39 20 84  |=. .&DF:. Q=89 .|
00001370  51 3d 37 38 0d 07 44 05  db 0d 07 4e 0b e7 51 3d  |Q=78..D....N..Q=|
00001380  37 38 20 e1 0d 07 58 18  e7 a4 70 72 69 6e 74 65  |78 ...X...printe|
00001390  72 20 ef 31 35 2c 32 20  8b ef 31 34 0d 07 62 0a  |r .15,2 ..14..b.|
000013a0  f2 70 72 69 6e 74 0d 07  6c 06 ef 33 0d 07 76 05  |.print..l..3..v.|
000013b0  e1 0d 07 80 10 dd a4 70  72 69 6e 74 65 72 3a ea  |.......printer:.|
000013c0  41 0d 07 8a 14 ef 32 2c  31 2c 30 2c 31 2c 30 2c  |A.....2,1,0,1,0,|
000013d0  31 2c 30 2c 33 0d 07 94  13 41 3d 96 28 2d 34 29  |1,0,3....A=.(-4)|
000013e0  3a 2a 46 58 32 31 2c 33  0d 07 9e 10 e7 41 3c 36  |:*FX21,3.....A<6|
000013f0  33 20 3d a3 20 8b 3d b9  0d 07 a8 0a dd f2 64 69  |3 =. .=.......di|
00001400  73 63 0d 07 b2 2f 51 3d  ad 28 22 4d 44 41 54 41  |sc.../Q=.("MDATA|
00001410  22 29 3a d9 23 51 3a e7  51 3d 30 20 72 65 61 64  |"):.#Q:.Q=0 read|
00001420  25 3d a3 3a 73 61 76 65  25 3d b9 3a e5 8d 64 64  |%=.:save%=.:..dd|
00001430  47 0d 07 bc 3a f1 27 27  27 22 81 49 73 20 74 68  |G...:.'''".Is th|
00001440  65 20 6d 61 74 63 68 20  64 61 74 61 20 74 6f 20  |e match data to |
00001450  62 65 86 52 45 41 44 20  46 52 4f 4d 81 64 69 73  |be.READ FROM.dis|
00001460  63 3f 83 28 59 2f 4e 29  82 22 3b 0d 07 c6 1a f5  |c?.(Y/N).";.....|
00001470  3a 51 3d a5 20 80 26 44  46 3a fd 51 3d 37 38 20  |:Q=. .&DF:.Q=78 |
00001480  84 51 3d 38 39 0d 07 d0  36 e7 51 3d 38 39 20 f1  |.Q=89...6.Q=89 .|
00001490  22 59 65 73 22 3a 72 65  61 64 25 3d b9 3a 73 61  |"Yes":read%=.:sa|
000014a0  76 65 25 3d a3 3a e5 8d  64 64 47 3a 8b 72 65 61  |ve%=.:..ddG:.rea|
000014b0  64 25 3d a3 3a f1 22 4e  6f 2e 22 0d 07 da 0b 73  |d%=.:."No."....s|
000014c0  61 76 65 25 3d b9 0d 07  e4 31 51 3d ad 28 22 4c  |ave%=....1Q=.("L|
000014d0  44 41 54 41 22 29 3a d9  23 51 3a e7 51 3d 30 20  |DATA"):.#Q:.Q=0 |
000014e0  72 65 61 64 32 25 3d a3  3a 73 61 76 65 32 25 3d  |read2%=.:save2%=|
000014f0  b9 3a e5 8d 54 56 48 0d  07 ee 39 f1 27 27 22 81  |.:..TVH...9.''".|
00001500  4c 65 61 67 75 65 20 64  61 74 61 20 74 6f 20 62  |League data to b|
00001510  65 86 52 45 41 44 20 46  52 4f 4d 81 64 69 73 63  |e.READ FROM.disc|
00001520  3f 20 20 20 20 20 20 83  28 59 2f 4e 29 82 22 3b  |?      .(Y/N).";|
00001530  0d 07 f8 1a f5 3a 51 3d  a5 20 80 26 44 46 3a fd  |.....:Q=. .&DF:.|
00001540  51 3d 37 38 20 84 51 3d  38 39 0d 08 02 35 e7 51  |Q=78 .Q=89...5.Q|
00001550  3d 38 39 20 f1 22 59 65  73 22 3a 72 65 61 64 32  |=89 ."Yes":read2|
00001560  25 3d b9 3a 73 61 76 65  32 25 3d a3 3a e1 3a 8b  |%=.:save2%=.:.:.|
00001570  72 65 61 64 32 25 3d a3  3a f1 22 4e 6f 2e 22 0d  |read2%=.:."No.".|
00001580  08 0c 0c 73 61 76 65 32  25 3d b9 0d 08 16 05 e1  |...save2%=......|
00001590  0d 08 20 10 dd f2 73 65  74 70 6f 69 6e 74 65 72  |.. ...setpointer|
000015a0  0d 08 2a 19 e7 73 61 76  65 25 3a cf 23 66 69 6c  |..*..save%:.#fil|
000015b0  65 3d 32 2a 28 63 2d 31  29 0d 08 34 05 e1 0d 08  |e=2*(c-1)..4....|
000015c0  3e 0f dd f2 73 61 76 65  4c 64 61 74 61 0d 08 48  |>...saveLdata..H|
000015d0  12 4c 64 61 74 61 3d ae  22 4c 44 41 54 41 22 0d  |.Ldata=."LDATA".|
000015e0  08 52 3a e3 51 3d 31 b8  31 35 32 3a f1 23 4c 64  |.R:.Q=1.152:.#Ld|
000015f0  61 74 61 2c 50 28 51 29  2c 57 28 51 29 2c 44 28  |ata,P(Q),W(Q),D(|
00001600  51 29 2c 4c 28 51 29 2c  46 28 51 29 2c 41 28 51  |Q),L(Q),F(Q),A(Q|
00001610  29 2c 50 54 28 51 29 3a  ed 0d 08 5c 0d d9 23 4c  |),PT(Q):...\..#L|
00001620  64 61 74 61 3a e1 0d 08  66 0f dd f2 72 65 61 64  |data:...f...read|
00001630  4c 64 61 74 61 0d 08 70  35 f1 8a 30 2c 31 30 29  |Ldata..p5..0,10)|
00001640  22 86 52 65 61 64 69 6e  67 20 6c 65 61 67 75 65  |".Reading league|
00001650  20 64 61 74 61 22 27 22  81 50 6c 65 61 73 65 20  | data"'".Please |
00001660  77 61 69 74 20 2e 2e 2e  22 3b 0d 08 7a 12 4c 64  |wait ...";..z.Ld|
00001670  61 74 61 3d ad 22 4c 44  41 54 41 22 0d 08 84 3a  |ata=."LDATA"...:|
00001680  e3 51 3d 31 b8 31 35 32  3a e8 23 4c 64 61 74 61  |.Q=1.152:.#Ldata|
00001690  2c 50 28 51 29 2c 57 28  51 29 2c 44 28 51 29 2c  |,P(Q),W(Q),D(Q),|
000016a0  4c 28 51 29 2c 46 28 51  29 2c 41 28 51 29 2c 50  |L(Q),F(Q),A(Q),P|
000016b0  54 28 51 29 3a ed 0d 08  8e 0d d9 23 4c 64 61 74  |T(Q):......#Ldat|
000016c0  61 3a e1 0d 08 98 53 dd  f2 73 74 6f 70 3a db 3a  |a:....S..stop:.:|
000016d0  f1 6c 6f 67 6f 24 27 27  27 22 54 65 6c 65 74 65  |.logo$'''"Telete|
000016e0  78 74 20 61 64 61 70 74  65 72 20 69 73 20 6e 6f  |xt adapter is no|
000016f0  74 20 6f 6e 2e 22 27 22  50 6c 65 61 73 65 20 63  |t on."'"Please c|
00001700  68 65 63 6b 2c 20 74 68  65 6e 20 72 65 2d 6c 6f  |heck, then re-lo|
00001710  61 64 2e 22 3a e1 0d 08  a2 0d dd a4 42 42 43 64  |ad.":.......BBCd|
00001720  61 74 65 0d 08 ac 14 f4  22 81 44 41 54 45 20 57  |ate.....".DATE W|
00001730  49 54 48 20 41 54 53 0d  08 b6 0f d1 3d 30 3a f5  |ITH ATS.....=0:.|
00001740  fd 91 3e 31 32 30 0d 08  c0 0f 77 6f 72 6b 25 3d  |..>120....work%=|
00001750  26 37 30 30 30 0d 08 ca  35 41 25 3d 26 37 41 3a  |&7000...5A%=&7A:|
00001760  58 25 3d 77 6f 72 6b 25  83 32 35 36 3a 59 25 3d  |X%=work%.256:Y%=|
00001770  77 6f 72 6b 25 81 32 35  36 3a 3f 77 6f 72 6b 25  |work%.256:?work%|
00001780  3d 31 35 3a d6 26 46 46  46 31 0d 08 d4 18 42 42  |=15:.&FFF1....BB|
00001790  31 24 3d c2 c3 7e 28 77  6f 72 6b 25 3f 38 29 2c  |1$=..~(work%?8),|
000017a0  31 29 0d 08 de 2e 42 42  32 24 3d c3 7e 28 77 6f  |1)....BB2$=.~(wo|
000017b0  72 6b 25 3f 39 29 3a e7  20 a9 28 42 42 32 24 29  |rk%?9):. .(BB2$)|
000017c0  3d 31 20 42 42 32 24 3d  22 30 22 2b 42 42 32 24  |=1 BB2$="0"+BB2$|
000017d0  0d 08 e8 2f 42 42 33 24  3d c3 7e 28 77 6f 72 6b  |.../BB3$=.~(work|
000017e0  25 3f 31 30 29 3a e7 20  a9 28 42 42 33 24 29 3d  |%?10):. .(BB3$)=|
000017f0  31 20 42 42 33 24 3d 22  30 22 2b 42 42 33 24 0d  |1 BB3$="0"+BB3$.|
00001800  08 f2 18 4a 44 3d bb 28  42 42 31 24 2b 42 42 32  |...JD=.(BB1$+BB2|
00001810  24 2b 42 42 33 24 29 0d  08 fc 23 e7 4a 44 3c 34  |$+BB3$)...#.JD<4|
00001820  36 37 39 36 20 3d 22 44  61 74 65 20 6e 6f 74 20  |6796 ="Date not |
00001830  61 76 61 69 6c 61 62 6c  65 22 0d 09 06 1f 59 31  |available"....Y1|
00001840  3d 28 31 30 30 2a 28 4a  44 2d 31 35 30 37 38 2e  |=(100*(JD-15078.|
00001850  32 29 29 81 33 36 35 32  35 0d 09 10 2b 4d 31 3d  |2)).36525...+M1=|
00001860  a8 28 28 4a 44 2d 31 34  39 35 36 2e 31 2d a8 28  |.((JD-14956.1-.(|
00001870  33 36 35 2e 32 35 2a 59  31 29 29 2f 33 30 2e 36  |365.25*Y1))/30.6|
00001880  30 30 31 29 0d 09 1a 3c  44 25 3d 4a 44 2d 31 34  |001)...<D%=JD-14|
00001890  39 35 36 2d a8 28 33 36  35 2e 32 35 2a 59 31 29  |956-.(365.25*Y1)|
000018a0  2d a8 28 33 30 2e 36 2a  4d 31 29 3a 4b 3d a8 28  |-.(30.6*M1):K=.(|
000018b0  30 2e 37 2b 28 31 2f 28  31 37 2d 4d 31 29 29 29  |0.7+(1/(17-M1)))|
000018c0  0d 09 24 10 4d 25 3d 4d  31 2d 31 2d 31 32 2a 4b  |..$.M%=M1-1-12*K|
000018d0  0d 09 2e 0b 5a 25 3d 59  31 2b 4b 0d 09 38 31 57  |....Z%=Y1+K..81W|
000018e0  25 3d 28 4a 44 2b 33 29  83 37 3a f7 8d 44 42 49  |%=(JD+3).7:..DBI|
000018f0  3a e3 64 61 79 3d 30 b8  57 25 3a f3 44 24 3a ed  |:.day=0.W%:.D$:.|
00001900  3a 44 24 3d 44 24 2b 22  64 61 79 22 0d 09 42 29  |:D$=D$+"day"..B)|
00001910  dc 20 53 75 6e 2c 4d 6f  6e 2c 54 75 65 73 2c 57  |. Sun,Mon,Tues,W|
00001920  65 64 6e 65 73 2c 54 68  75 72 73 2c 46 72 69 2c  |ednes,Thurs,Fri,|
00001930  53 61 74 75 72 0d 09 4c  1d f7 8d 44 56 49 3a e3  |Satur..L...DVI:.|
00001940  64 61 79 3d 31 b8 4d 25  3a f3 6d 6f 6e 74 68 24  |day=1.M%:.month$|
00001950  3a ed 0d 09 56 5b dc 20  4a 61 6e 75 61 72 79 2c  |:...V[. January,|
00001960  46 65 62 72 75 61 72 79  2c 4d 61 72 63 68 2c 41  |February,March,A|
00001970  70 72 69 6c 2c 4d 61 79  2c 4a 75 6e 65 2c 4a 75  |pril,May,June,Ju|
00001980  6c 79 2c 41 75 67 75 73  74 2c 53 65 70 74 65 6d  |ly,August,Septem|
00001990  62 65 72 2c 4f 63 74 6f  62 65 72 2c 4e 6f 76 65  |ber,October,Nove|
000019a0  6d 62 65 72 2c 44 65 63  65 6d 62 65 72 0d 09 60  |mber,December..`|
000019b0  54 e7 44 25 3d 31 84 44  25 3d 32 31 84 44 25 3d  |T.D%=1.D%=21.D%=|
000019c0  33 31 20 74 68 24 3d 22  73 74 22 20 8b e7 44 25  |31 th$="st" ..D%|
000019d0  3d 32 84 44 25 3d 32 32  20 74 68 24 3d 22 6e 64  |=2.D%=22 th$="nd|
000019e0  22 20 8b e7 44 25 3d 33  84 44 25 3d 32 33 20 74  |" ..D%=3.D%=23 t|
000019f0  68 24 3d 22 72 64 22 20  8b 74 68 24 3d 22 74 68  |h$="rd" .th$="th|
00001a00  22 0d 09 6a 2d 3d 44 24  2b 22 20 20 22 2b c3 28  |"..j-=D$+"  "+.(|
00001a10  44 25 29 2b 74 68 24 2b  22 20 22 2b 6d 6f 6e 74  |D%)+th$+" "+mont|
00001a20  68 24 2b 22 20 31 39 22  2b c3 28 5a 25 29 0d 09  |h$+" 19"+.(Z%)..|
00001a30  74 17 dd a4 61 64 61 70  74 65 72 3a de 20 77 6f  |t...adapter:. wo|
00001a40  72 6b 25 20 32 0d 09 7e  48 41 25 3d 26 37 41 3a  |rk% 2..~HA%=&7A:|
00001a50  58 25 3d 77 6f 72 6b 25  83 32 35 36 3a 59 25 3d  |X%=work%.256:Y%=|
00001a60  77 6f 72 6b 25 81 32 35  36 3a 3f 77 6f 72 6b 25  |work%.256:?work%|
00001a70  3d 31 37 3a d6 26 46 46  46 31 3a e7 77 6f 72 6b  |=17:.&FFF1:.work|
00001a80  25 3f 31 3d 30 20 3d b9  20 8b 20 3d a3 0d 09 88  |%?1=0 =. . =....|
00001a90  0a dd a4 63 61 6c 63 0d  13 86 23 f4 22 85 43 68  |...calc...#.".Ch|
00001aa0  61 6e 67 65 20 74 68 65  20 66 6f 6c 6c 6f 77 69  |ange the followi|
00001ab0  6e 67 20 66 6f 72 6d 75  6c 61 0d 13 87 21 f4 22  |ng formula...!."|
00001ac0  85 74 6f 20 73 75 69 74  20 69 6e 64 69 76 69 64  |.to suit individ|
00001ad0  75 61 6c 20 6e 65 65 64  73 3a 2d 0d 13 88 13 3d  |ual needs:-....=|
00001ae0  94 28 50 54 28 6d 29 2d  50 54 28 6e 29 29 0d ff  |.(PT(m)-PT(n))..|
00001af0