FOOTBALL LOADER BY KEV Q2:2:2:64620l:"":10 ,0;:""64621m 10 ,0;:"" d"32767:""32768:"" n"FOOTBALL"0 x9A$=8+8+8+8+8+" " A$32768,6912 A$64621m,913 ' '>32767:*1;"FOOTS"32768:*1;"FOOT0"  8 V?`??>4a3@@"BD j (?  " ??1À<n 0"@?@ cDK??UW?  V`??">? "@`.>(?(?  +_x>? " ~?`"@`"(?~R_? @?/|x0~Ϳ?"w ~?1@@| "# IF J >8@ ~~0?~?  ?@AC?80caK0@Uʪ <<@ ~03a??AFp? @CfF101a+* <@+?0c8@`?pq,cbn @@BD&?W?w@ DF U@T@ }??+_00 HHC@@s?S88?'00 HH??o  O@w (('@00 HH 0 @? o9 hh`Gn@0HH01@  x ? 0 HHG0 0HH8@xar=? ??0 HH G 08YY?@?<@1x@G??00 HHpG^ ^0190QQ<028@~?00 HH p0-0!Y 0010AAR (UU(`08C?dˈH< "ucǁhĜ %@p_@Te1 Jr @@`0Pcc?U( 7@ @(@LJ?\ @ H?>  Gr l 0 ""P/]P"?x.'\tU@U&U _b l~πW b`0 66'D+ ?A u@TldH+| L 00 or%@  UP0 0.(2D_ <WdH_A x%RN g$@ge`08(b(E @LEDI_ @/0CN@ ``|$@J7+@UPP0Ѡ$# W?H,IDi_(Pp?WAHQ ? *À ``%@ ]WRd28 `0#T?x!@֡,8D~ _2<@iB? %@J88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888800088888888888880000888888888000008888888000000000000000 00000 0000  000  00   N m                        !"#$%&'(  !"#$%&'(  !"#$% &'((!Z>8wT][=[:?[Obk#:?[G*=[^!#^!~w P P P 3\MR)R \Wq !lv><~~<??   BBBBB G(WI@s(1):""(23635S\+256*23636T\):30 (Lz=23658j\:23658j\,z+8*((z/16)=(z/8)/2) <0:0:7: Pa8,2;"PRESS STOP ON TAPE RECORDER.";20,10 ;"HIT ANY KEY":0: d*:"BRIAN CLOUGH'S FOOTBALL FORTUNES" xIN=110 :(N+6),8;(N-1);" ";E$(N);A$(N):N 620,0;"DO YOU WISH TO CHANGE ANY TEAMS?" 41800:19,0;U$;:YES480 620,0;"WHICH TEAM (ENTER 0-9)? " 18400:B=B$ 220,0;"TYPE IN NEW TEAM NAME. ":B$ 1B$=B$+" ":B$=B$(114) :Z=180P:B$(1)A$(Z,1)440 D(B$(2)A$(Z,2))(B$(3)A$(Z,3))440 ,Z2=1:Z1=1 @cFZ1=(Z112 )((B$(Z1)" ")(B$(Z1+1)" ")):(B$(Z1)" ")FZ1Z1=Z1+1:320@ TFZ2=(Z212 )(A$(Z,Z2+1)>31)((A$(Z,Z1)" ")(A$(Z,Z1+1)" ")):(A$(Z,Z2)" ")FZ2Z2=Z2+1:340T h(FZ1FZ2)420 |OX=13:Z1=Z1+1:Z2=Z2+1:(A$(Z,Z2)B$(Z1))440 X  A$(Z)=A$(B+1):460 Z 5A$(B+1)=B$:E$(B+1)=""::120x 620,0;"HOW MANY PLAYERS (2-5)? " (B$=:(B$<"2")(B$>"5")500  PLY=B$ [1:1::12 ;PLY;" PLAYERS"::;"THE POINTS SYSTEM IS ";C$;"AS FOLLOWS:" 0}:9 ;"WIN - ";N(1);" POINTS":9 ;"DRAW - ";N(2);" POINTS":9 ;"LOSE - ";N(3);" POINTS" DB:"DO YOU WANT TO CHANGE IT (Y/N)?":1800:YES680 XU18,0;"HOW MANY POINTS FOR A WIN? ";:18400:N(1)=B$:B$ lU19,0;"HOW MANY POINTS FOR A DRAW? ";:18400:N(2)=B$:B$ U20,0;"HOW MANY POINTS FOR A DEFEAT? ";:18400:N(3)=B$:B$ C$=" NOW ":540 11 ,0;"WHICH DIFFICULTY LEVEL WOULD YOULIKE?":11 ;"1 - EASY":11 ;"2 - AVERAGE":11 ;"3 - GOOD":11 ;"4 - EXPERT" (B$=:(B$<"1")(B$>"4")700 7LEVL=B$:0:0::12 ;"LEVEL ";LEVL 15,6;"TEAM";18;"MANAGED BY:" IN=110 :(N+6),0;(N-1);" ";E$(N);A$(N):N  N=1PLY  619,0;U$;"TYPE IN THE NAME OF PLAYER ";N 4'B$:B$14N$(N)=B$:900 H18,0;"YOUR NAME HAS BEEN TRUNCATED TO:";B$(114);" WOULD YOU LIKE TOCHANGE IT?";S$(123):1800 \)18,0;U$;U$:YES800  pN$(N)=B$(114) Q19,0;"WHICH TEAM WILL ";N$(N);" MANAGE (0-9)? " /18400:O(B$+1)0920 -T(1,N)=B$+1:O(T(1,N))=N (T(1,N)+6),18;N$(N):N:M=1:N=110 :O(N)=0(N+6),18;"COMPUTER":T(2,M)=N:M=M+1 yN:19,0;U$;U$;U$:20,0;"HIT ANY KEY TO VIEW THE PLAYER ALLOCATIONS. " =""1000 L:"PLEASE WAIT WHILE YOUR TEAMS ARESELECTED. " :Z=15:Q(Z)=Z:Z:F=51-1 $MH=(*F)+1:P(1,F)=Q(H):Z=HF-1:Q(Z)=Q(Z+1):Z:F 8:Z=15:R(Z)=Z:Z:F=51-1 LEH=(*F)+1:Q(F)=R(H):Z=HF-1:R(Z)=R(Z+1):Z:F `Z=15:R(Z)=Z:Z:F=51-1:H=(*F)+1:TMP=R(H):Z=HF-1:R(H)=R(H+1):Z:R(F)=TMP:F t2(*2)1560:1580,:1180 1580,:1560 X=1PLY 0:4:7::" ":Z=012 :Z,30;" ";:Z:Z=13 21:Z,0;"";U$:Z 24,175:0,-103g:215,0:0,103g:-215,0:80P,175:0,-47/:103g,0:0,47/:104h,175:0,-23:557,0:0,23 .90Z,72H:80P,0,-3 X$(A)=(" "+A)((A)):Z$(A)=(""+(X$(A))(1)+" "+(X$(A))(2)+" "+(X$(A))(3)+" "+(X$(A))(4))(25-(6*A))+"": 1,16;Z$(S(P(1,X),1));4,13 ;Z$(S(P(1,X),2));7,14;Z$(S(Q(X),3));11 ,14;Z$(S(Q(X),4));11 ,26;Z$(S(R(X),5)); 14,9 ;"";N$(X);16,11 ;"DEFENCE-";:H$=S(P(1,X),2):"";S(P(1,X),1)+H$(1)+H$(2)+H$(3)+H$(4);"" (17,11 ;"ATTACK -";:H$=(S(Q(X),3))+(S(Q(X),4)):"";H$(1)+H$(2)+H$(3)+H$(4)+H$(5)+H$(6);"" "9")1480 'TMP=TMP*10 +B$:B$;:1460 6N=15:M=15:S(N,M):M:N: ,N=125:M:N: @13,13324,132,233,23 T12,4322,412,224,31 h14,4114,323C,431,12 |11,4233,243,413,42* 12,2332 ,412,422,22 13,3413U ,233,3128,14 12,3422^ ,3128,432,13 11,4223,422,332L,21 12,3224 ,433,124|,24 12,3324 ,322B,421,33! 7B$=:(B$"Y")(B$"N")(B$"n")(B$"y")1800 YES=(B$="y")(B$="Y"): 0)B$=:(B$<"0")(B$>"9")18400 D""1860D X l9******************************************************* 8****************************************************** F=201-1:H=(*F)+1:TMP=(I+(J+10 +H)):23357=[,M(J+10 +H):23358>[,D(J+10 +H):23359?[,F-H:L=65242:I+(J+10 +F),TMP:F ʺX=03030:F=10 1-1:H=(*F)+1:TMP=(I+X+H):23357=[,M(I+H+X):23358>[,D(I+X+H):23359?[,F-H:L=65224:I+X+F,TMP:F:X F=201-1:H=(*F)+1:TMP=(I+10 +H):23357=[,M(I+10 +H):23358>[,D(I+10 +H):23359?[,F-H:L=65224:I+10 +F,TMP:F:EW1=1:WW1=11 :TIN=0:TID=0:EOT=0:WOT=0 :1:1::(E+21+WK)02760 $7:0 BkB$=U$(19 )+"FINAL RESULTS":6000p:B$=L$((E+21+WK)+1)+"MATCHES":6000p `Z=15:TH=P(1,(K+45-+5*P(2,(E+42*+WK))+Z)):TA=P(1,(K+90Z+5*P(2,(E+42*+WK))+Z)) ~L(TH)=((A+TH)-(D+TA))/3+(*3)-1:L(TH)=(L(TH)*(L(TH)0)+.5):L(TA)=((A+TA)-(D+TH))/3+(*3)-1:L(TA)=(L(TA)*(L(TA)0)+.5) \B$=" ":6000p:B$=A$(TH)+L(TH)+U$(1(L(TH)9 ))+A$(TA)+L(TA):6000p G(Z)=((22-W(2,TA)-W(2,TH)+((A+TH)+(D+TH)-38&)*((A+TH)+(D+TH)>38&)+((A+TA)+(D+TA)-38&)*((A+TA)+(D+TA)>38&))/3+.5)*10000' !B$="(`"+(G(Z))+")":6000p WN=(TA-TH)*(L(TA)>L(TH))+TH:SC=TA+TH-WN:U+TA*C+1,(U+C*TA+1)+1:U+C*TH+1,(U+TH*C+1)+1:U+C*TH+5,(U+C*TH+5)+L(TH):U+C*TA+5,(U+C*TA+5)+L(TA):U+C*TH+6,(U+C*TH+6)+L(TA):U+C*TA+6,(U+C*TA+6)+L(TH) DD=(L(WN)=L(SC)):U+C*WN+2+DD,(U+C*WN+2+DD)+1:U+SC*C+4-DD,(U+C*SC+4-DD)+1:U+C*WN+C,(U+C*WN+C)+N(1+DD):U+C*SC+C,(U+C*SC+C)+N(3-DD) 2HZ:B$=" ":6000p:6000p:6000p:6000p:ZB=10 PFLG=0:ZB=ZB-1:Z=1ZB:NF=((U+C*W(1,Z)+C)=(U+C*W(1,Z+1)+C)):NF=(((U+C*W(1,Z)+C)<(U+C*W(1,Z+1)+C))(NF((U+C*W(1,Z)+5)-(U+C*W(1,Z)+6)<(U+C*W(1,Z+1)+5)-(U+C*W(1,Z+1)+6)))(NF((U+C*W(1,Z)+5)-(U+C*W(1,Z)+6)=(U+C*W(1,Z+1)+5)-(U+C*W(1,Z+1)+6))((U+C*W(1,Z)+5)<(U+C*W(1,Z+1)+5)))) n_FLG=FLGNF:NFTMP=W(1,Z):W(1,Z)=W(1,Z+1):W(1,Z+1)=TMP Z:FLG2640P >Z=110 :W(2,W(1,Z))=Z:Z:4110 `" FINAL RESULTS ";L$((E+21+WK)+1);R$((E+42*+WK));" " &(E+21+WK)13270 N(E+42*+WK)=3A+SPTA,APTA:D+SPTA,ATPD:A+SPTB,BTPA:D+SPTB,BTPD "+H=(E+63?+WK)/2::Z=1H @tTH=(((A+(G+Z))-(D+(G+Z+H)))/3+.5):TA=(((A+(G+Z+H))-(D+(G+Z)))/3+.5):6240` ^Z>83090 |=A$((G+Z));14;TH;16;A$((G+Z+H));30;TA ?(O(B((G+Z)))=0)(O(B((G+Z+H)))=0)3060 GT=((22-W(2,B((G+Z)))-W(2,B((G+Z+H)))+((A+(G+Z))+(D+(G+Z))-38&)*((A+(G+Z))+(D+(G+Z))>38&)+((A+(G+Z+H))+(D+(G+Z+H))-38&)*((A+(G+Z+H))+(D+(G+Z+H))>38&))/3+.5+M(5,(E+42*+WK))/10 )*10000' 2"(`";GT+(10000'-GT)*(GT<10000');")";  ,TA>THTMP=(G+Z):G+Z,(G+Z+H):G+Z+H,TMP 0^O(B((G+Z)))0K(2,O((G+Z)))=K(2,O((G+Z)))+M(1,(E+42*+WK)) NHO(B((G+Z+H)))0K(4,O((G+Z+H)))=0:FA=FA-1 lCZ:H=1TIN=(O(B((G+1)))0):TID=(G+1) aF=H1-1:IH=(*F)+1:TMP=(G+IH):Z=IHF:G+Z,(G+Z+1):Z:G+F,TMP:F 4110 :EIN=03420\ 3"EUROPEAN CUP"::EOT(EIN=2)3400H Z=1EIN:TH=(((A+E(Z))-(D+(I+EW1)))/3+.5):TA=(((A+(I+EW1))-(D+E(Z)))/3+.5):6240` A$(E(Z));14;TH;16;A$((I+EW1));30;TA:EW1=EW1+1:EIN=EIN-(TA>TH):K(3,O(E(Z)))=K(3,O(E(Z)))+M(4,(E+42*+WK))*(TH>TA):K(5,O(E(Z)))=(TH>TA) gt=((11 -W(2,E(Z))+((A+E(Z))+(D+E(Z))-38&)*((A+E(Z))+(D+E(Z))>38&)+((A+(I+EW1))+(D+(I+EW1))-38&)*((A+(I+EW1))+(D+(I+EW1))>38&))/3+.5+M(7,(E+42*+WK))/10 )*10000' >"(`";gt+(10000'-gt)*(gt<10000');")":E(2-((TA>TH)(Z=1)))=E(2):Z:EOT=(*((E+63?+WK)/2-1)1):3420\ HTH=(((A+E(1))-(D+E(2)))/3+.5):TA=(((A+E(2))-(D+E(1)))/3+.5):6240` MA$(E(1));14;TH;16;A$(E(2));30;TA:EIN=EIN-1:K(3,O(E(1+(TA>TH))))=K(3,O(E(1+(TA>TH))))+M(4,(E+42*+WK)):K(5,O(E(1+(TH>TA))))=0 R,gt=((22-W(2,E(1))-W(2,E(2))+((A+E(1))+(D+E(1))-38&)*((A+E(1))+(D+E(1))>38&)+((A+E(2))+(D+E(2))-38&)*((A+E(2))+(D+E(2))>38&))/3+.5+M(7,(E+42*+WK))/10 )*10000' WN"(`";gt+(10000'-gt)*(gt<10000');")":E(1+(TH>TA))=E(2) \WINP=03570 z@"EUROPEAN CUP WINNERS CUP"::WOT(WINP=2)3550 Z=1WINP:TH=(((A+F(Z))-(D+(I+WW1)))/3+.5):TA=(((A+(I+WW1))-(D+F(Z)))/3+.5):6240` A$(F(Z));14;TH;16;A$((I+WW1));30;TA:WW1=WW1+1:WINP=WINP-(TA>TH):K(3,O(F(Z)))=K(3,O(F(Z)))+M(3,(E+42*+WK))*(TH>TA):K(5,O(F(Z)))=(TH>TA) gt=((11 -W(2,F(Z))+((A+F(Z))+(D+F(Z))-38&)*((A+F(Z))+(D+F(Z))>38&)+((A+(I+WW1))+(D+(I+WW1))-38&)*((A+(I+WW1))+(D+(I+WW1))>38&))/3+.5+M(6,(E+42*+WK))/10 )*10000' ԟ"(`";gt+(10000'-gt)*(gt<10000');")":F(2-((TA>TH)(Z=1)))=F(2):Z:WOT=(*((E+63?+WK)/2-1)1):3570 ހTH=(((A+F(1))-(D+F(2)))/3+.5):TA=(((A+F(2))-(D+F(1)))/3+.5):6240` A$(F(1));14;TH;16;A$(F(2));30;TA:WINP=WINP-1:K(3,O(F(1+(TA>TH))))=K(3,O(F(1+(TA>TH))))+M(3,(E+42*+WK)):K(5,O(F(1+(TH>TA))))=0 ,gt=((22-W(2,F(1))-W(2,F(2))+((A+F(1))+(D+F(1))-38&)*((A+F(1))+(D+F(1))>38&)+((A+F(2))+(D+F(2))-38&)*((A+F(2))+(D+F(2))>38&))/3+.5+M(6,(E+42*+WK))/10 )*10000' N"(`";gt+(10000'-gt)*(gt<10000');")":F(1+(TH>TA))=F(2) UIN=04110 "UEFA CUP": .&(E+42*+WK)13780 LZ=1UIN:TH=(((A+T(3,Z))-(D+(I+20+Z)))/3+.5):TA=(((A+(I+20+Z))-(D+T(3,Z)))/3+.5):6240` jA$(T(3,Z));14;TH;16;A$((I+20+Z));30;TA:gt=((11 -W(2,T(3,Z))+((A+T(3,Z))+(D+T(3,Z))-38&)*((A+T(3,Z))+(D+T(3,Z))>38&)+((A+(I+20+Z))+(D+(I+20+Z))-38&)*((A+(I+20+Z))+(D+(I+20+Z))>38&))/3+.5+M(5,(E+42*+WK))/10 )*10000':UIN=UIN-(TA>TH):K(5,O(T(3,Z)))=(TH>TA):TH>TAI+20+Z,T(3,Z) /"(`";gt+(10000'-gt)*(gt<10000');")" Z:4080 )H=(E+63?+WK)/2:Z=1H TH=(((A+(I+20+Z))-(D+(I+20+Z+H)))/3+.5):TA=(((A+(I+20+Z+H))-(D+(I+20+Z)))/3+.5):6240` E((I+20+Z)>11 )((I+20+Z+H)>11 )3960x UIN=UIN-((((I+20+Z+H)<11 )(TATH))):A$((I+20+Z));14;TH;16;A$((I+20+Z+H));30;TA 38&)+((A+(I+20+Z+H))+(D+(I+20+Z+H))-38&)*((A+(I+20+Z+H))+(D+(I+20+Z+H))>38&))/3+.5+M(5,(E+42*+WK))/10 )*10000' Z/"(`";gt+(10000'-gt)*(gt<10000');")" xPTA>THTMP=(I+20+Z):I+20+Z,(I+20+Z+H):I+20+H+Z,TMP yO(B((I+20+Z)))0K(3,O((I+20+Z)))=K(3,O((I+20+Z)))+M(2,(E+42*+WK)) KO(B((I+20+Z+H)))0K(5,O((I+20+Z+H)))=0 Z zF=H1-1:H=(*F)+1:TMP=(I+20+H):Z=HF:I+20+Z,(I+Z+21):Z:I+20+F,TMP:F WK=WK+1:(((E+21+WK)>1)(SS=1))(((E+21+WK)=1)(FA=0))(((E+21+WK)=2)(UIN=0)(EINWINP))4110 ,,MOP=(WK=20):WK<214200h IaWK=1:SS=SS+1:DIN=(O(W(1,1))0):EIN=EIN+DIN:E(2-((EIN=1)DIN))=W(1,1):WINP=(WINP(((F(1)=E(2))(EIN>1))((F(1)=E(1))(EIN>0)))):NIN=(TIN((TIDE(1))(EIN<1))((TIDE(2))(EIN<2))):WINP=WINP+NIN:F(2-((WINP=1)NIN))=TID JUIN=0:Z=1PLY:T(3,(UIN+1))=T(1,Z):UIN=UIN+(((T(1,Z)=F(1))(WINP>0))((T(1,Z)=F(2))(WINP>1))((T(1,Z)=E(1))(EIN>0))((T(1,Z)=E(2))(EIN>1))):Z:B=12:6120:B hMOP=MOP+1:60< B$"3"4380 I0:0:7::" LEAGUE TABLE " 8(U+8)=9 0,8;"FINAL" *:" TEAM";15;"P W D L F A PTS" :Z=110 :E$(W(1,Z));A$(W(1,Z));:Y=17:13 +Y*2+(Y>4)*(Y-4);(U+C*W(1,Z)+Y);:Y::Z: B$"4"4530 :0:0:7: XSPC<37%4480 vSPC=0:11 ,8;"SHUFFLING CARDS":F=37%1-1:H=(*F)+1:TMP=(X1+H):23357=[,M(X1+H):23358>[,D(X1+H):23359?[,F-H:L=65224:X1+F,TMP:F:11 ,8;U$(116) kSPC=SPC+1:6180$:3,7;1;"SELECTION PROBLEMS":Z=1:8,0; qY=S$((X1+SPC),Z):1;"   ";S$((X1+SPC),Z+1Z+Y-1):Z=Z+Y:Y04490:  90Z B$"5"4680H 0:0:7: MLC<40(4630  MLC=0:11 ,8;"SHUFFLING CARDS":F=40(1-1:H=(*F)+1:TMP=(X2+H):23357=[,M(X2+H):23358>[,D(X2+H):23359?[,F-H:L=65224:X2+F,TMP:F:11 ,8;U$(116) bMLC=MLC+1:6180$:3,9 ;"MANAGERS LUCK";:Z=1:8,0;  qY=T$((X2+MLC),Z):1;"  ";T$((X2+MLC),Z+1Z+Y-1):Z=Z+Y:Y04640 : *8(X2+MLC)=211 ,22;1;"VALUE" 4 90Z HB$"6"4800 fe1:1:7::(E+84T+WK)=0"NO GAMES PLAYED YET THIS SEASON.":60< $" LAST LEAGUE RESULTS " Z=15:TH=P(1,(K+45-+5*P(2,(E+84T+WK))+Z)):TA=P(1,(K+90Z+5*P(2,(E+84T+WK))+Z))::E$(TH);A$(TH);:14;L(TH);16;E$(TA);A$(TA);:30;L(TA):"(`";G(Z);")":Z:60< B$"7"4950V 0:0:7: ASPC=117,0;"CARDS JUST SHUFFLED!":90Z ESPC=38&17,0;"CARDS NOT YET SHUFFLED!":90Z 8SPC=SPC-2:4480 VB$"8"5100 t0:0:7: AMLC=117,0;"CARDS JUST SHUFFLED!":90Z EMLC=41)17,0;"CARDS NOT YET SHUFFLED!":90Z MLC=MLC-2:4630 B$"9"5250  0:0:7: (Z=13:RR1=(*6)+1:Y=18:Y+6,11 ;V$((64615g+6*Y+RR1)):Y:.1}L,RR1*2-(RR1>3):Z3Y=27:Y+6,11 ;V$(10 ):Y FZ d 60< 2((B$="0")((B$="2")(MOP=2)))5760 I1:1:7::" MANAGER'S RATING " G(MOP=2)(B$="2")0,5;"FINAL";:5370  5520 )3,6;"ARE YOU SURE (Y/N)?"; B$=:B$=""5400 6B$:(B$"Y")5790 TYES=1:20,0;"TYPE IN YOUR TOTAL MONEY:":Z=1PLY:Z+4,0;N$(Z);:NN:K(7,Z)=(NN/50000P):Z+4,16;NN:Z r20,0;U$ dS(Q=P(Q)=P(W(2,T(1,Q)))+K(1,Q)+K(2,Q)+K(3,Q)+K(7,Q):ZB=PLY FLG=0:ZB=ZB-1:Z=1ZB:NF=(S(K(6,Z))10 ):P(D=11-D)=11 -D+(5-D)*(D4)+(D=1):G$(K=(" K)=(" "+K)((K)):M(D>)=D-256*(D/256):D(D>)=(D/256) :E$(TH);A$(TH);:15;"V ";E$(TA);A$(TA):Z:60< JD"";L$((E+21+WK)+1);R$((E+42*+WK));" " h%(E+21+WK)1420 H=(E+63?+WK)/2:Z=18-(8-H)*(H8)::A$((G+Z));15;"V ";A$((G+Z+H)):Z:60< EIN=0480 e:"EUROPEAN CUP":EOT(EIN=2):A$(E(1));15;"V ";A$(E(2)):480 EZ=1EIN::A$(E(Z));15;"V ";A$((I+EW1+Z-1)):Z WINP=0540 r:"EUROPEAN CUP WINNERS CUP":WOT(WINP=2):A$(F(1));15;"V ";A$(F(2)):540 FZ=1WINP::A$(F(Z));15;"V ";A$((I+WW1+Z-1)):Z UIN=060< :7:"UEFA CUP":(E+42*+WK)1630v XTZ=1UIN::A$(T(3,Z));15;"V ";A$((I+20+Z)):Z:60< vH=(E+63?+WK)/2:Z=1H:((I+20+Z)<11 )((I+20+Z+H)<11 ):A$((I+20+Z));15;"V ";A$((I+20+Z+H)) Z  60< &((B$="1")(MOP=2))960 E:" SUMMARY OF SEASON ";0,24;SS:  T4,0;"LEAGUE WINNER - ";E$(W(1,1));A$(W(1,1)) *:FA06,0;"FA CUP - ";A$(TID) HEUIN08,0;"UEFA CUP - ";A$((I+21)) fDWINP010 ,0;"CUP WINNERS CUP- ";A$(F(1)) CEIN012 ,0;"EUROPEAN CUP - ";A$(E(1)) G19,0;"  READY TO START NEW SEASON.":4110 '((B$="2")(MOP=1))4230 C0:0:7::"";L$((E+21+WK)+1); D(E+21+WK)0"";R$((E+42*+WK));:10808 "MATCHES "; 8/" TYPE IN YOUR TEAM STRENGTHS. " VJWK=1Z=1PLY:K(4,Z)=1:K(5,Z)=1:Z tMAX=T(1,1):MIN=T(1,1):TA=0:TD=0:TN=2:Z=1PLY:(K(3+(E+21+WK),Z))((E+21+WK)>0)15906 ETN=TN+2:TN,0;N$(Z):E$(T(1,Z));A$(T(1,Z)) ;D$="DEFENCE-":DL=5:DU=25:X=01 +TN,16;D$;:TMP=0:DT=0 ""1260  B$=:B$=""1290  (l(B$=12 )(TMP>0)8;32 ;8;:TMP=TMP-1:DT=(DT/10 ):1260 FB$=13 1500 dB$="Q"5790 #(B$<"0")(B$>"9")1260 lTMP=2DT=0:TMP=0:8;32 ;8;8;32 ;8;:1260 6DT=DT*10 +B$:B$;:TMP=TMP+1:1260 B(DTDU)Y=TMP1:" ";:Y:TMP=2:1440 X=0D+T(1,Z),DT MD$="ATTACK -":TN=TN+1:DL=6:DU=30:X:A+T(1,Z),DT 6M((A+MAX)+(D+MAX))<((A+T(1,Z))+(D+T(1,Z)))MAX=T(1,Z) TM((A+MIN)+(D+MIN))>((A+T(1,Z))+(D+T(1,Z)))MIN=T(1,Z) r{TA=TA+(A+T(1,Z)):TD=TD+(D+T(1,Z)):Z:TA=(TA/PLY+.5):TD=(TD/PLY+.5):WK12310 X:8,10 ;"SORTING DATA":AL=(A+MIN):AM=(A+MAX):DL=(D+MIN):DM=(D+MAX) >X=110 :Y=17:U+X*C+Y,0:Y:X USS1Z=1PLY:K(1,Z)=K(1,Z)+P(W(2,T(1,Z))):Z TMP=1+((8-PLY)/4):Z=1TMP:RR1=((LEVL+1)*):RR2=((RR1+1)*):A+T(2,Z),AM+RR2:D+T(2,Z),DM+RR1-RR2:Z }Z=TMP+1TMP+2:LEVL=1RR1=(5*)-2:A+T(2,Z),TA+RR1:D+T(2,Z),TD-RR1:1860D &lRR1=(*(LEVL/2+1)):RR2=(*(RR1+1)):A+T(2,Z),TA+RR2:D+T(2,Z),TD+RR1-RR2 DZ:Z=TMP+310 -PLY:RR1=(*((7-LEVL)/2)):RR2=(*(RR1+1)):A+T(2,Z),AL-RR2:D+T(2,Z),DL-RR1+RR2:Z bdZ=11 20:RR1=(*3)-1:RR2=RR1*(*2):A+Z,AL+RR2:D+Z,DL+RR1-RR2:Z ^Z=2130:RR1=(*3):RR2=(*(RR1+1)):A+Z,AL-RR2:D+Z,DL-RR1+RR2:Z Z=3140(:RR1=(*3):A+Z,AL-RR1:D+Z,DL+RR1-2:Z:SPTA=(*10 )+31:SPTB=(*9 )+31:SPTB=SPTB+(SPTBSPTA) APTA=(A+SPTA):ATPD=(D+SPTA):BTPA=(A+SPTB):BTPD=(D+SPTB):A+SPTA,AL+5:A+SPTB,(A+SPTA):D+SPTA,DL+4:D+SPTB,(D+SPTA) nZ=41)502:RR1=(*4)-1:RR2=(RR1)*(*(1+RR1)):A+Z,TA+RR2:D+Z,TD+RR1-RR2:Z nZ=51370F:RR1=(*4)-1:RR2=(RR1)*(*(1+RR1)):A+Z,AL+RR2:D+Z,DL+RR1-RR2:Z Z=71G80P:RR1=(*4)-1:RR2=(RR1)*(*(1+RR1)):A+Z,AM+RR2:D+Z,DM+RR1-RR2:Z:Z=180P:A+Z,(A+Z)+(29-(A+Z))*((A+Z)>29):D+Z,(D+Z)+(24-(D+Z))*((D+Z)>24):Z 4|FA=PLY:Z=1PLY:G+Z,T(1,Z):Z:Z=PLY+110 :G+Z,T(2,Z-PLY):Z:Z=11 40(:G+Z,Z:Z RF=3023-1:H=(*F)+1:23357=[,M(G+10 +H):23358>[,D(G+10 +H):23359?[,F-H:L=65224:F pF=221-1:H=(*F)+1:TMP=(G+10 +H):23357=[,M(G+10 +H):23358>[,D(G+10 +H):23359?[,F-H:L=65224:G+10 +F,TMP:F Z=140(:I+(J+Z),Z+40(:Z:X=03030:F=10 1-1:H=(*F)+1:TMP=(I+(J+X+H)):23357=[,M(J+X+H):23358>[,D(J+X+H):23359?[,F-H:L=65242:I+(J+X+F),TMP:F:X "