Champs! qgMq (R$(8,12 ):S$(8,12 ):w(5):p$(12 ,10 ):n$(20,10 ):M$(10 ,10 ):g$(16,10 ):h$(12 ,10 ):i$(12 ,10 ):j$(12 ,10 ):k$(12 ,10 ):l$(66B,10 ) 2oo=50000P:tv=0:cc=0:eh=0:q$=" 0":PO=0:q=0:ca=175000*:cz=0:di=4 12 :10 ,1;"SORRY! NO MORE THAN 12 LETTERS!":200::110n  M$(1)="Docherty-9":m$(2)="Jobson---7":m$(3)="Lambert--8":m$(4)="Frognall-9":m$(5)="Smith----7":m$(6)="Jones----7":m$(7)="Robinson-9":m$(8)="Baker----8":m$(9 )="Cookham--7":m$(10 )="Robens---8" 0.1}L,1 #"Dennison-6","Dewey----5","Douglas--4","Donald---3","Dix------2","Danbury--1","Dunning--6","Dobson---5","Dunn-----4","Dutton---3","Draper---2","Doughty--1","Charles--6","Page-----5","Baxter---4","Carr-----3","Meadows--2","Clark----1","Cuthbert-6","Chapman--5","Cook-----4","Collins--3","Crawford-2","Campbell-1","Matthews-6","Mitchell-5","McCreary-4","Moore----3","Mutimer--2","Myall----1","McDonald-6","Mix------5","Morgan---4","Mann-----3","Mudd-----2","Meers----1","Mintoff--6","Moss-----5","Muir-----4","Merrick--3","Martin---2","Marvin---1" 0.1}L,2 ҝ"Lockhart-6","Gage-----5","Gordon---4","Hammond--3","Stewart--2","Serpell--1","Scobie---6","Sloane---5","Spray----4","Spink----3","Simons---2","Silloth--1" ӝ"Varney---6","Feltham--5","Sinclair-1","Gooding--4","Handley--3","Warnock--2","Burton---6","Brace----5","Curry----4","Whyman---3","Muir-----2","Richard--1" 0.1}L,3 n=166B:l$(n):n !n=115:g$(n)=q$:n 0.1}L,4 n=(*66B)+1 l$(n)=q$230 q=q+1 g$(q)=l$(n):l$(n)=q$ q<12 230 0.1}L,6  q=0 n=166B " l$(n)=q$n , q=q+1 6h$(q)=l$(n):l$(n)=q$ @q<12 n E0.1}L,7 J q=0 Tn=12 66B ^ l$(n)=q$n h q=q+1 ri$(q)=l$(n):l$(n)=q$ |q<12 n 0.1}L,8  q=0 n=2466B  l$(n)=q$n  q=q+1 j$(q)=l$(n):l$(n)=q$ q<12 n 0.1}L,9  q=0 n=36$66B  l$(n)=q$n  q=q+1 k$(q)=l$(n):l$(n)=q$ q<12 n 0.1}L,10  q=0 n=166B  l$(n)=q$n  q=q+1 !N=67C930 &n$(q)=l$(n):l$(n)=q$ 0q<20n n=13 1-1:0.1}L,n:n::4:4:10 ,6;"LEAGUE DIVISION ";DI:4;20,2;"Season ticket sales=`";oo:tv=tv+1:200  PEAKSOFT REGISTRATION NO271849 4:2 :cc=0:RA=0:WW=0:R2=0:5;" ";di;" ";wk+1;" ";:wk<9 5;" " (5;1;0,10 ;a$  5N=111 :n+3,2;N;"..";G$(N)  g$(n)=q$n n=12 1040 R2=G$(N,10 )  RA=RA+R2 N +15,2;"12..";G$(12 ) Wwk=4wk=8wk=14wk=182,2;1;6;" " RA=(RA/11 ) $ 7,18;"RATING=";RA ."9 ,18;"BANK=`";(CA) 8Lca<02;7;10 ,18;1;"IN THE RED" Bd6;20,2;"Check/Sell/Use sub/Play?";:4;2;" ";tv `ca<0Ʀ="p"940 t?="c"Ŧ="C"0.2~L,8:0.2~L,1:1200 ~="s"Ŧ="S"3730 ="p"Ŧ="P"1630^ ?="u"Ŧ="U"0.2~L,8:0.2~L,1:3810 ="g"Ŧ="G"6500d  1090B 6::5,5;"1..";b$:7,5;"2..";c$:9 ,5;"3..";d$:11 ,5;"4..";e$:13 ,5;"5..Transfer market":15,5;"6..Reserve squad" " Check which (1-6)?";yy #yy>6yy<11210 7yy=1o$=b$:n=112 :p$(n)=h$(n):n 7yy=2o$=c$:n=112 :p$(n)=i$(n):n 7yy=3o$=d$:n=112 :p$(n)=j$(n):n 7yy=4o$=e$:n=112 :p$(n)=k$(n):n yy=5:4070  yy=6:4270 %ra=0::1,6;o$: 8n=112 :n+3,3;n;"..";p$(n):n (*n=111 :r2=(p$(n,10 )) 2 ra=ra+r2 <n Fra=(ra/11 ) P 8,20;"Rating=";ra U 17,2;"Bank=`";ca Z"20,2;"WANT TO BUY?" d="" 1380d i?="y"Ŧ="Y"0.2~L,8:0.2~L,1:44000 k@"y"Ŧ"Y"0.2~L,8:0.2~L,1::940 nEn=0:="y"Ŧ"Y"20,2;"WHICH PLAYER (1-12)?":N "N<1N>12 1300  co=10000'*p$(n,10 )  ca=ca-co l$(66B)=p$(n):p$(n)=q$ q=120  n$(q)=q$q p$(n)=n$(q):n$(q)=q$ q=12 15  g$(q)q$q 1g$(q)=l$(66B):l$(66B)=q$:1580, ,yy=115906 -yy=21600@ .yy=31610J /yy=41620T 6/n=112 :h$(n)=p$(n):n:940 @/n=112 :i$(n)=p$(n):n:940 J/n=112 :j$(n)=p$(n):n:940 T/n=112 :k$(n)=p$(n):n:940 ^20.2~L,8:0.2~L,1:3860 h#5:5::wk=wk+1 i$wk=1wk=11 1660| j$wk=2wk=12 2280 k$wk=3wk=13 2430~ l$wk=4wk=142580 m$wk=5wk=152730 n$wk=6wk=1628706 o$wk=7wk=173010 p$wk=8wk=183150N q$wk=9 wk=193290 r%wk=10 wk=203430f |<ah=1:bh=0:ch=1:dh=0:1810  " WEEK ";WK ::A$;" ";AS;" ";B$;" ";BS 4AS>BSAW=AW+1:AP=AP+3:BL=BL+1 4BS>ASBW=BW+1:BP=BP+3:AL=AL+1 CAS=BSAD=AD+1:BD=BD+1:AP=AP+1:BP=BP+1 C$;" ";CS;" ";D$;" ";DS 4CS>DSCW=CW+1:CP=CP+3:DL=DL+1 4DS>CSDW=DW+1:DP=DP+3:CL=CL+1 CCS=DSCD=CD+1:DD=DD+1:CP=CP+1:DP=DP+1 HAG=AG+1:BG=BG+1:CG=CG+1:DG=DG+1:2000 <a6=0:b6=0:c6=0:d6=0:e6=0 &xn=111 :a7=g$(n,10 ):b7=h$(n,10 ):c7=i$(n,10 ):d7=j$(n,10 ):e7=k$(n,10 ) :2a6=a6+a7:b6=b6+b7:c6=c6+c7:d6=d6+d7:e6=e6+e7 Dn NRa7=(a6/11 ):b7=b6/11 :c7=c6/11 :d7=d6/11 :e7=e6/11 X%as=(*(a7+ah+(2*))-2) Y%bs=(*(b7+bh+(2*))-2) Z%cs=(*(c7+ch+(2*))-2) [%ds=(*(d7+dh+(2*))-2) \%es=(*(e7+eh+(2*))-2) bas<0as=0 lbs<0bs=0 vcs<0cs=0 ds<0ds=0 es<0es=0 as>4as=4 bs>4bs=4 cs>4cs=4 ds>4ds=4 es>4es=4  46;10 ,0;" Ready for the table?"  0 (:0.2~L,8:0.2~L,1 )"LEAGUE DIVISION ";di;" Week ";wk;:: c13 ;"P";17;"W";21;"D";25;"L";29;"Pts":  #x1=ap:x2=bp:x3=cp:x4=dp:x5=ep uapbpapcpapdpapep7;a$;13 ;ag;17;aw;21;ad;25;al;29;ap::ap=0  lbp>apbpcpbpdpbpepb$;13 ;bg;17;bw;21;bd;25;bl;29;bp::bp=0 *lcp>apcp>bpcpdpcpepc$;13 ;cg;17;cw;21;cd;25;cl;29;cp::cp=0 4ldp>apdp>bpdp>cpdpepd$;13 ;dg;17;dw;21;dd;25;dl;29;dp::dp=0 >lep>apep>bpep>cpep>dpe$;13 ;eg;17;ew;21;ed;25;el;29;ep::ep=0 HDap=0bp=0cp=0dp=0ep=02160p R 2070 p<wk=20ap=x1:bp=x2:cp=x3:dp=x4:ep=x5:3970 z/ap=x1:bp=x2:cp=x3:dp=x4:ep=x5:3570 <bh=1:ch=1:ah=0:dh=0:1810  ::" Week ";wk:: b$;" ";bs;" ";a$;" ";as 4bs>asbw=bw+1:bp=bp+3:al=al+1 $4as>bsaw=aw+1:ap=ap+3:bl=bl+1 .Cas=bsad=ad+1:bd=bd+1:ap=ap+1:bp=bp+1 8c$;" ";cs;" ";e$;" ";es B4cs>escw=cw+1:cp=cp+3:el=el+1 L4es>csew=ew+1:ep=ep+3:cl=cl+1 VCcs=escd=cd+1:ed=ed+1:cp=cp+1:ep=ep+1 j<ag=ag+1:bg=bg+1:cg=cg+1:eg=eg+1 t 2000 ~<ah=1:eh=1:ch=0:dh=0:1810  " Week ";wk:: a$;" ";as;" ";c$;" ";cs 4as>csaw=aw+1:ap=ap+3:cl=cl+1 4cs>ascw=cw+1:cp=cp+3:al=al+1 Cas=csad=ad+1:cd=cd+1:ap=ap+1:cp=cp+1 e$;" ";es;" ";d$;" ";ds 4es>dsew=ew+1:ep=ep+3:dl=dl+1 4ds>esdw=dw+1:dp=dp+3:el=el+1 Cds=esdd=dd+1:ed=ed+1:dp=dp+1:ep=ep+1 <ag=ag+1:cg=cg+1:eg=eg+1:dg=dg+1 2000 <eh=1:dh=1:ah=0:bh=0:1810  (" Week ";wk:: 2e$;" ";es;" ";a$;" ";as <4es>asew=ew+1:ep=ep+3:al=al+1 F4as>esaw=aw+1:ap=ap+3:el=el+1 PCas=esad=ad+1:ed=ed+1:ap=ap+1:ep=ep+1 Zd$;" ";ds;" ";b$;" ";bs d4ds>bsdw=dw+1:dp=dp+3:bl=bl+1 n4bs>dsbw=bw+1:bp=bp+3:dl=dl+1 xCbs=dsbd=bd+1:dd=dd+1:bp=bp+1:dp=dp+1 <eg=eg+1:ag=ag+1:dg=dg+1:bg=bg+1 2000 <bh=1:dh=1:ch=0:eh=0:1810 :::"WEEK ";wk  b$;" ";bs;" ";c$;" ";cs 4bs>csbw=bw+1:bp=bp+3:cl=cl+1 4cs>bscw=cw+1:cp=cp+3:bl=bl+1 Cbs=csbd=bd+1:cd=cd+1:bp=bp+1:cp=cp+1 d$;" ";ds;" ";e$;" ";es 4ds>esdw=dw+1:dp=dp+3:el=el+1 4es>dsew=ew+1:ep=ep+3:dl=dl+1 Cds=esdd=dd+1:ed=ed+1:dp=dp+1:ep=ep+1 "<bg=bg+1:cg=cg+1:dg=dg+1:eg=eg+1 , 2000 6<ah=1:ch=1:dh=0:bh=0:1810 @" WEEK ";wk:: Ja$;" ";as;" ";d$;" ";ds ^4as>dsaw=aw+1:ap=ap+3:dl=dl+1 h4ds>asdw=dw+1:dp=dp+3:al=al+1 rCds=asdd=dd+1:ad=ad+1:ap=ap+1:dp=dp+1 |c$;" ";cs;" ";b$;" ";bs 4cs>bscw=cw+1:cp=cp+3:bl=bl+1 4bs>csbw=bw+1:bp=bp+3:cl=cl+1 Ccs=bscd=cd+1:bd=bd+1:cp=cp+1:bp=bp+1 <ag=ag+1:dg=dg+1:cg=cg+1:bg=bg+1 2000 <ch=1:bh=1:ah=1:eh=1:1810 " WEEK ";wk:: c$;" ";cs;" ";a$;" ";as 4cs>ascw=cw+1:cp=cp+3:al=al+1 4as>csaw=aw+1:ap=ap+3:cl=cl+1 Cas=csad=ad+1:ap=ap+1:cd=cd+1:cp=cp+1 b$;" ";bs;" ";e$;" ";es 4bs>esbw=bw+1:bp=bp+3:el=el+1 4es>bsew=ew+1:ep=ep+3:bl=bl+1 &Ces=bsed=ed+1:ep=ep+1:bd=bd+1:bp=bp+1 :<cg=cg+1:ag=ag+1:bg=bg+1:eg=eg+1 D 2000 N<dh=1:eh=1:ah=0:ch=0:1810 X" WEEK ";wk:: bd$;" ";ds;" ";a$;" ";as v4ds>asdw=dw+1:dp=dp+3:al=al+1 4as>dsaw=aw+1:ap=ap+3:dl=dl+1 Cas=dsad=ad+1:ap=ap+1:dd=dd+1:dp=dp+1 e$;" ";es;" ";c$;" ";cs 4es>csew=ew+1:ep=ep+3:cl=cl+1 4cs>escw=cw+1:cp=cp+3:el=el+1 Ces=csed=ed+1:ep=ep+1:cd=cd+1:cp=cp+1 <dg=dg+1:ag=ag+1:eg=eg+1:cg=cg+1 2000 <eh=1:dh=1:bh=0:ch=0:1810 " WEEK ";wk:: e$;" ";es;" ";b$;" ";bs 4es>bsew=ew+1:ep=ep+3:bl=bl+1 4bs>esbw=bw+1:bp=bp+3:el=el+1 Cbs=esbd=bd+1:ed=ed+1:bp=bp+1:ep=ep+1 d$;" ";ds;" ";c$;" ";cs *4ds>csdw=dw+1:dp=dp+3:cl=cl+1 44cs>dscw=cw+1:cp=cp+3:dl=dl+1 >Ccs=dscd=cd+1:dd=dd+1:cp=cp+1:dp=dp+1 H<eg=eg+1:bg=bg+1:dg=dg+1:cg=cg+1 \ 2000 p<ah=1:bh=1:eh=0:dh=0:1810 u" Week ";wk:: za$;" ";as;" ";e$;" ";es 4as>esaw=aw+1:ap=ap+3:el=el+1 4es>asew=ew+1:ep=ep+3:al=al+1 Cas=esad=ad+1:ap=ap+1:ed=ed+1:ep=ep+1 b$;" ";bs;" ";d$;" ";ds 4bs>dsbw=bw+1:bp=bp+3:dl=dl+1 4ds>bsdw=dw+1:dp=dp+3:bl=bl+1 Cds=bsdd=dd+1:dp=dp+1:bd=bd+1:bp=bp+1 <ag=ag+1:eg=eg+1:bg=bg+1:dg=dg+1 2000 06;20,0;"Ready to proceed?" /0:0.2~L,1:0.2~L,8 =wk=5wk=9 wk=15wk=19:3660L   &q=(5000*(ap/ag)*(5-di)) 6q<2500 *(5-di)q=2500 *(5-di) $>4;3,0;" " .. 4;3,8;"GATE MONEY..`";q 8 ca=ca+q =)6;19,0;"Bank=`";ca B 200 Lr2=0:r1=0 V 3910F [>4;5,0;" " `T0.2~L,1:0.2~L,8:4;5,8;"WAGE BILL...`";r2 j ca=ca-r2 o-6;19,0;"Bank=`";ca;" " t 200 ~ r2=0  4430N &0.2~L,8:0.2~L,1 ;20,2;6;"Which player? ";:n "n<1n>153740 g$(n)=q$3740 'q=5000*g$(n,10 ):ca=ca+q q=120 .n$(q)=q$n$(q)=g$(n):g$(n)=q$::940 q g$(n)=q$::940 ;20,2;6;"In which position? ";:n "n<1n>12 3820 Tg$(16)=g$(n):g$(n)=g$(12 ):g$(12 )=g$(16):g$(16)=q$  :940 ;wk=4wk=8wk=14wk=181640h n=111 (Ig$(n)=q$:10 ,6;" NO NUMBER ";n;"!":200:940 2n < 1640h Fn=111 Pr1=g$(n,10 ) Z r2=r2+r1 dn nr2=r2*200*(5-di) x  750  q=0 Wap1di=di-1:oo=100000CP:ca=ca+100000CP:5360 tdi=1:oo=100000CP:ca=ca+oo:10 ,2;"YOU MADE IT! LOOK OUT, EUROPE!":300,:5470^ n=12 16 g$(n)=q$4110 n B:10 ,8;"NO ROOM IN RESERVES!":200:940 :" TRANSFER MARKET": &n=120:n;"..";n$(n),:n  17,2;"Bank=`";ca "#20,2;"Want to buy?"; ,=""4140, 6"y":940 ;&0.2~L,8:0.2~L,1 @.20,2;"Which player (1-20)?";:n J"n<1n>204130" Tn$(n)=q$940 ^ co=10000'*n$(n,10 ) | ca=ca-co q=12 15 .g$(q)=q$g$(q)=n$(n):n$(n)=q$::940 q <:10 ,10 ;"NO VACANCIES!":300,:940 :" RESERVES": n=12 15 n;"..";g$(n):n 620,2;"Use/Sell/or Neither?" =""4320 ="s"3730 :="n"0.2~L,8:0.2~L,1::940 "u"4310 &0.2~L,8:0.2~L,1 020,2;"Which reserve (13-15)?";:n #n<13 n>154370 &ag$(16)=g$(n):g$(n)=g$(12 ):g$(12 )=g$(16):g$(16)=q$::940 0+q=12 15:g$(q)=q$1390n :q DB:10 ,6;"NO ROOM IN RESERVES!":200:940 NG6:2;0,0;" " P<1;6;2;0,10 ;"WEEKLY NEWS" S?2;20,0;" " XN=13 bL$(N)Q$5180< lN q9 ,0;6;" " s>n=13:0.05|L,6:0.05|L,8:n v2q=(*63?)+1:4490+(q*10 ) t19,0;" ":19,0;"Bank=`";ca:200:cc=cc+1:cc<34465q  940 B10 ,2;"Programme ads make `7500":ca=ca+7500L: 'ss=(*11 )+1:g$(ss)=q$ ?10 ,2;"No. ";ss;" suspended one week":5330 'ss=(*11 )+1:g$(ss)=q$ 810 ,2;"No. ";ss;" breaks leg!":5140  4510  'ss=(*11 )+1:g$(ss)=q$ A10 ,2;"No. ";ss;" injured - out 1 week":5330 D10 ,2;"Fans riot - `25000 damage":ca=ca-25000a: I10 ,2;"Illegal approach-fined `10000":ca=ca-10000': 'ss=(*11 )+1:g$(ss)=q$ M10 ,2;"No. ";ss;" catches flu - away 1 week":5330 C10 ,2;"Social club gives `10000":ca=ca+10000': A10 ,2;"Sponsors donate `20000":ca=ca+20000 N: 'ss=(*11 )+1:g$(ss)=q$ A10 ,2;"No. ";ss;" in jail until Monday":5330 <10 ,2;"Rates bill - `7500":ca=ca-7500L:  D10 ,2;"Executive box leased-`7500":ca=ca+7500L: Y10 ,2;"Bill for cartilage operation - `300":ca=ca-300,:  D10 ,2;"Unregistered player-fined 1pt":ap=ap-1: *G10 ,2;"`5000 loan repaid to director":ca=ca-5000: 4H10 ,2;"Ground advertisers pay `10000":ca=ca+10000': >'ss=(*11 )+1:g$(ss)=q$ @610 ,2;"No. ";ss;" walks out":5140 H]10 ,2;"Opponents used ineligible player-awarded 1 point":ap=ap+1: RFn=(ca/10 ):10 ,2;"Bank interest - `";n:ca=ca+n: \S10 ,2;"Car park concessionaires pay `5000":ca=ca+5000: f?10 ,2;"New playing kit - `750":ca=ca-750: p@10 ,2;"Electricity bill - `500":ca=ca-500: z810 ,2;"Gas bill - `400":ca=ca-400: cz=cz+1:cz>10 J10 ,2;"Star trialist signs - if room in squad":5260 =10 ,2;"Police bill - `2000":ca=ca-2000: C10 ,2;"Manager's new car - `7000":ca=ca-7000X: B10 ,2;"New director lends `5000":ca=ca+5000: A10 ,2;"Programme sales - `5000":ca=ca+5000: E10 ,2;"Directors give you vote of confidence": C10 ,2;"Refreshment bars make `500":ca=ca+500: H10 ,2;"Your share of tv pool-`25000":ca=ca+25000a: @10 ,2;"Lottery raises `10000":ca=ca+10000': `10 ,2;"Midweek Milk Cup match makes `";wk*250:ca=ca+wk*250: 'ss=(*11 )+1:g$(ss)=q$ a10 ,2;"No. ";ss;" drunk in night club - fined week's wages":ca=ca+300,: G10 ,2;"Jimmy Hill says you're great - morale plummets": ca<0 Q10 ,2;"Inland Revenue wants `";(ca/4):ca=ca-(ca/4): >10 ,2;"Telephone bill - `500":ca=ca-500: 'ss=(*11 )+1:g$(ss)=q$ 810 ,2;"No. ";ss;" breaks arm!":5140 H10 ,2;"Youth team player sold-`30000":ca=ca+300000u: $X10 ,2;"Pop concert at ground raises `15000":ca=ca+15000:: .O10 ,2;"Programme printing costs `2000":ca=ca-2000: 8A10 ,2;"Offices decorated - `800":ca=ca-800 : BU10 ,2;"Hotel bill for last away match - `450":ca=ca-450: LO10 ,2;"Late for last match-fined `1000":ca=ca-1000: VW10 ,2;"Take team for break in Spain - `2000":ca=ca-2000: `: 10 ,2;"New mower - `850":ca=ca-850R: j<10 ,2;"Laundry bill - `350":ca=ca-350^: tN10 ,2;"Brian Clough says you're rubbish - morale soars": ~ca<0 S10 ,2;"National Insurance - `";(ca/10 ):ca=ca-(ca/10 ): A10 ,2;"Souvenir shop makes `400":ca=ca-400: X10 ,2;"Write off fiddling by gate men - `300":ca=ca-300,: V10 ,2;"New crush barriers needed-`1500":ca=ca-1500: ca<0 P10 ,2;"General repairs - `";(ca/10 ):ca=ca-(ca/10 ): C10 ,2;"Bob Wilson tips you for England job": ^10 ,2;"Midweek County Cup match makes `";wk*25:ca=ca+wk*25: X10 ,2;"US club makes HP payment for player - `2500":ca=ca+2500 : X10 ,2;"Insurance pay-out for injured player - `5000":ca=ca+5000: >10 ,2;"Boiler repairs - `240":ca=ca-240: U10 ,2;"Disc jockey needs new records - `50":ca=ca-502: ?10 ,2;"Stationery bill - `200":ca=ca-200: E10 ,2;"Drinks for Board Room - `150":ca=ca-150: C10 ,2;"Insurance premium - `5000":ca=ca-5000:   p=120 /n$(p)=q$n$(p)=g$(ss):g$(ss)=q$:4535 (p 2g$(ss)=q$:4535 <p=12  15 F-g$(p)=q$g$(p)=l$(n):l$(n)=q$:4440X Pp U 4540 n=115 /g$(n)=q$g$(n)=m$(cz):m$(cz)=q$:5130  n n=120 /n$(n)=q$n$(n)=m$(cz):m$(cz)=q$:5130  n  5130  p=13 %l$(p)=q$l$(p)=g$(ss):g$(ss)=q$: p 8wk=0:ap=0:bp=0:cp=0:dp=0:ep=0:ag=0:bg=0:cg=0:dg=0:eg=0:aw=0:bw=0:cw=0:dw=0:ew=0:ad=0:bd=0:cd=0:dd=0:ed=0:al=0:bl=0:cl=0:dl=0:el=0 po=po+1 Vdi=4b$="Wimbledon":C$="Aldershot":D$="Bradford":E$="Bury":F$="Mansfield" RDI=3B$="Cardiff":C$="Wrexham":D$="Oxford":E$="Millwall":F$="Preston" MDI=2B$="Charlton":C$="QPR":D$="Bolton":E$="Derby":f$="Carlisle" "Vdi=1B$="Liverpool":C$="Arsenal":D$="Man United":E$="Forest":F$="Ipswich" ,A$=B$B$=F$ 6A$=C$C$=F$ @A$=D$D$=F$ JA$=E$E$=F$ TPO=1150 Y 930 ^eu=0:r$(1)="Celtic":r$(2)="Hamburg":r$(3)="Anderlecht":r$(4)="Real Madrid":r$(5)="Juventus":r$(6)="Feyenoord":r$(8)="Sp. Lisbon" |eu=eu+1 n=(8*)+1 r$(n,1)="n"5510 s$(eu)=r$(n) r$(n,1)="n" eu<35500| /:3,0;"EUROPEAN CUP SEMI-FINALS" 200: ;N=(*RA):M=(*3):L=(*3):K=(*3) N=MN=N+1 L=KL=L+1  A$;" ";N;" ";S$(1);" ";M  )S$(2);" ";L;" ";S$(3);" ";K  400 : & "THE FINAL" 0: : A=(*3):B=(*3) DA=BA=A+1 b lN>MA$;" ";:5750v qS$(1);" "; vA;" "; #L>KS$(2);" ";:5770 S$(3);" "; B  300, <N>MA>B:"WATCH OUT CLOUGHIE!"::di=1:5360 !N>MA>BDI=1:5360 V:10 ,2;"THERE'S ALWAYS NEXT SEASON!":250:DI=1:5360  \DI=5DI=4:10 ,3;"RE-ELECTED...THIS TIME!":400:5360 810 ,3;"RELEGATION!":400:5360 dC:10 ,2;"You hit 'G' - did you intend to give up?" nh ="y"Ŧ="Y":10 ,2;"Quitter - you were going to get the sack, anyway!":400: x="n"Ŧ="N"940  6510n X1;6,1;"Settle back and make yourself uncomfortable. The only escape from your torment as THE BOSS at ";a$ ]010 ,1;1;"is resignation." _w11 ,1;1;"If suicidal despair does grip you, you can take the coward's way out by pressing 'g'." `04;20,0;" Peaksoft, 1983." a 450 b P*B WimbledonC AldershotDBradfordEBuryF Mansfielde Celtic Hamburg Anderlecht neal Madrid nuventus Feyenoord n np. Lisbon e Real Madrid Sp. Lisbon Juventus }  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0i ǥ } } } } ̙B Q 0Aamlkab