\?M*\ ((D:\69%s>00`":18,bv;"USUAL PRICE WOULD BE ";:AM=I(P(F,G),wo)*10000'+(*3000 ):wo;6;AM: J19,bv;"YOU CAN HAVE HIM FOR ";(AM/2):Y=F:B=G:9998' &P(WO,WO)bvP(WO,2)bvP(WO,3)bvP(WO,4)bvP(WO,5)bvP(WO,6)bvp(wo,7)bvp(wo,8)bvp(wo,9 )bvi(p(f,g),3)=bv:20,bv;"THERE IS NO ROOM IN THE SQUAD TOACCOMMODATE HIM ":WO,20:200:1510 @IH=WO:20,bv;"DO YOU ACCEPT TO BUY?":0:K$= 1K$="N"K$="n"i(p(f,g),3)=bv:1510 k$"Y"k$"y"1460 ymon-(am/6)1700 +m=(*6)+wo:p(wo,m)=bv1675 in=2:ji=wo:B$="Your ":b$=b$+p$(p(wo,m))+" has been injured.":y=(*8)+wo:1689+y:i$,e:b$=b$+i$+" and he will be out for "+e+" weeks":8800`" )i(p(wo,m),2)=i(p(wo,m),2)+e <I(P(WO,M),wo)=I(P(WO,M),1)-((E/3.1Ffff)+.4L) $i(p(wo,m),wo)20CPƥ<.15~B$="ONE SIDE OF STAND BURNS DOWN - 10":8800`":MON=MON-10CP eIN=wo:F=wo3:L=(*20)+wo:1719+L:R$,E:B$=R$+" - "+E:L>10 MON=MON-E:  "7000" L<11 MON=MON+E F $"SELL 3 ADVERT BOARDS ",5000 ""CONCERT AT GROUND ",12000. $"RESERVE PLAYER SOLD ",10000' "CLUB SHOP MAKES ",500  "CLUB LOTTERY MAKES ","12000" #"REPLICA SHIRT SALES ",5000 %"CLUB RESTAURANT MAKES ",8000@ ""INSURANCE PAY OUT ",12000. "DIRECTOR GIVES ",7500L $"SUPORTERS CLUB MAKES ",1000 "TAX MAN TAKES ",5000 !"GROUND STAFF RISE ",6000p $"AWAY MATCH HOTEL BILL ",500  "FIX FLOODLIGHTS ",6000p "LIGHTING BILL ",7000X $"STAND GETS RE-PAINT ",15000: !"TRAVEL FEES (BUS) ",4000 ""GROUND VANDALISED ",10000' "BUS NEEDS TUNING",500 "GROUND RENTAL ",8000@ "NEW PLAYING KIT ",2000 .wk=wk+wo:wk=158200 :400  400 E(480):E(WO)=WK:E(2)=DIV:E(3)=LR:E(4)=MON:F=WO8:E(4+F)=R(F):E(12 +F)=T(F):F:F=2145-:E(F)=K(F-20):F:E(46.)=Y(wo):E(47/)=Y(2):E(480)=Y(3) M2:2:7::WO,bv;" SAVING THE GAME ": v6,ç;"REMOVE EAR SOCKET PLEASE PRESS A KEY WHEN PROMPTEDTHE GAME WILL SAVE IN SIX PARTS."  "TEAM"T$()  "NUMS"E()  "GUYS"P()  "LEGU"L() "NAMES"P$()  "INFO"I() %E(wo) *9999': 4q4:4:bv::PA=7:BR=WO:IN=2:A$=" LOADING A SAVED GAME ":DO=WO:9990' > E(480) HXbv:WO:4,bv;"PLEASE BE PATIENT THE GAME WILL LOAD IN SIX DIFFERENT PARTS. " Mbv R@21,bv;" PRESS A KEY TO COMMENCE LOADING":0 W21,bv,, \4:18,bv;:""T$():18,bv;:""E():17,bv;:""P():18,bv;:""L():18,bv;:""P$():18,bv;:""I() fWK=E(WO):DIV=E(2):LR=E(3):MON=E(4):F=WO8:R(F)=E(4+F):T(F)=E(12 +F):F:F=2145-:K(F-20)=E(F):F:Y(1)=E(46.):Y(2)=E(47/):Y(3)=E(480) pc20,bv;" THE GAME HAS LOADED NOW PRESS A KEY TO CONTINUE THE GAME":0: qڰ"2":"2":7::A$=" BUY OR SELL PLAYERS SECTION ":PA=bv:IN=7:INK=6:DN=wo:9990' l" BUY  SELL OR  RETURN ";J$:J$"B"j$"b"j$"r"J$"R"J$"S"j$"s"4010 g(J$="B"j$="b")TR=521,ç;"SORRY NO MORE SALES THIS WEEK ":WO,10 :100d: J$="S"j$="s"4200h J$="R"j$="r" c8600!:CH=WO21,bv;" DON'T BE SILLY - TRY AGAIN ":WO,12 :8600! CH=9  8530R! C17,bv;" YOU HAVE ";WO;7;MON;" POUNDS LEFT" ?21,bv;"GIVE THE NUMBER OF THE PLAYER ":bv:R$= 'R$<491ůR$>5794080 mP(CH,R$)=bv21,ç;"THERE IS NO PLAYER THERE ":"100":21,ç;ڰ"2",,:4060 18,bv;"HE WILL COST ";:2:7:AM=I(P(CH,R$),1)*15000:+(*3000 )+(I(P(CH,R$),4)*500-(I(P(CH,R$),3)*500)):AM }TR=TR+WO:21,ç;2,,:wo:" PURCHASE  RETURN ";Y$:Y$"P"Y$"p"y$"r"Y$"R"4060 Y$="R"Y$="r"4000 'R$<491ůR$>5794080 I(P(CH,R$),WO)>5I(P(CH,R$),4)>WK*1/2ƥ>.15~21,ç;" THIS PLAYER IS UNAVAIABLE NOW ":1,23:4000 m(MON-AM)5794200h iPL=R$ roP(WO,PL)=ç21,bv;" THERE IS NO PLAYER THERE ":wo,2:200:4000 *F=1721:F,ç;2,,:F TM=(*7)+2:21,bv;0;6;T$(DIV,TM);" OFFER ";:5:AM=I(P(WO,PL),WO)*10000'+(I(P(1,PL),4)*200-(I(P(WO,PL),3)*1200-(I(P(WO,PL),2)*2000))):0;AM M"DO YOU ACCEPT THIS OFFER ";Y$:Y$"Y"y$"y"y$"n"Y$"N"4250 y$="N"y$="n"4000 *f=1821:f,bv;2,,:f :I(P(WO,PL),3)>6I(P(WO,PL),3)=4 TR=TR-2:NI=(*4)+2:21,bv;" THE DEAL HAS NOW GONE THROUGH ":SW=P(WO,PL):P(WO,PL)=bv:SWA=P(TM,NI):P(TM,NI)=SW  MON=MON+AM J=WO =K(J)bvJ=J+wo:4300:J=26J=(*24)+wo  K(J)=SWA %WO,30:9999':4000 pbv:ڰ"7":"7":ç::A$=" GLOBAL STATISTICS ":IN=6:PA=2:INK=wo:DN=bv:9990' "4","6";"1  GLOBAL SCORERS";6,6;"2  YOUR SCORERS";8,6;"3 LEAGUE TABLE";10 ,6;"4 SUGGESTED PRICES" X12 ,"6";"5  CHANGE NAME";14,6;"6 RETURN TO MENU" e16,ç;"PLEASE PRESS THE RELEVANT KEY ":ç:J$=:J$<491ůJ$>"54"4530 $J$="1"4600:4500 J$="2"4700\ J$="5"6000p ЩJ$="3"wo:WK=WK-WO:wo::A$=" DIVISION "+DIV+" LEAGUE TABLE ":PA=6:IN=2:INK=4:9990':8900":9999':WK=WK+WO:4500  J$="6" J$="4"4800 bv:bv:7::A$=" GLOBAL SCORERS TABLE ":IN=7:PA=WO:INK=5:9990':21,bv;"PLEASE WAIT" WO:3,3;" ":4,3;"  NAME TEAM GOALS":NUM=WO:f=y(wo)  3G=WO9 :N=WO8:P(N,G)=bv4640  I(P(N,G),4)=FNUM+4,3;" ";7;" ";2;" ":NUM+4,4;7;1;P$(P(N,G));" ";3;T$(DIV,N);" ";0;I(P(N,G),4):NUM=NUM+1  NUM=154670> *)N:G:f=y(WO)f=y(2):4620  ,(f=y(2)f=y(3):4620  .2f=y(3)f=y(3)-woWO-wo:4620  0f >?NUM+"4","3";" ":9999' H \j4:4:bv::A$=" "+T$(DIV,wo)+" SCORER TABLE ":PA=7:IN=WO:INK=WO:9990' f4,7;"":5,7;" NAME  GLS":6,7;"" pNUM=wo:F=Y(wo)wo-wo z+G=WO9 :P(WO,G)=04760 I(P(WO,G),4)=FNUM+6,7;" ";NUM+6,22;"":7:NUM+6,8;bv;P$(P(wo,G));" ";2;I(P(wo,G),4):NUM=NUM+wo G:F %NUM+"6","7";"" 9999':4500 rbv:6:6::A$=" SUGGESTED PRICES TABLE ":PA=2:IN=7:INK=wo:DN=bv:9990' $8600!:CH=9 4500 )F=318:F,bv;6,,:F ޫwo:4,bv;"  NAME SKLL GOALS  PRICE ":F=wo9 :F+6,bv;2,,:F bF=wo9 :P(CH,F)=bvF+6,bv;2;5;wo;F;"  -":4860 ڰ"2":wo:F+6,bv;5;F;" ";7;wo;P$(P(CH,F));" ";I(P(CH,F),wo);F+6,18;6;I(P(CH,F),4);F+6,24;7;(I(P(CH,F),wo)*15000:+(I(P(CH,F),4)*300,)-(I(P(CH,F),3)*200)-(I(P(CH,F),2)*2000)) F "9999":"4800" bv ڰ"5":"5":bv: Xch=WO:"8530":WO:"21",bv;"Change , Return to menu ":bv:j$= )j$"r"j$"R"j$"C"j$"c"5010 J$="r"J$="R""5070"  "WHICH PLAYER TO MOVE ";P1 P1"9"5040 "WHERE TO MOVE HIM ";P2 P1>"9"P1y(WO)Y("3")=Y("2"):Y("2")=Y(WO):y(wo)=gl: 7gl9 6050 P(CH,NUM)=bv6050 <"GIVE NEW NAME ";P$(P(CH,NUM)):9999':6000p Xy"9",bv;" " bK"10",16-B$/2;IN;ڰ"7";WO;B$:.1}L,20:75K l AwF=wo6:P(wo,F)=0:10 ,10 ;"NO NUMBER ";F:wo,23:300,:400 JF TF=wo6:I(P(wo,F),2)bvI(P(wo,F),3)<9 :10 ,bv;"YOU CANNOT PLAY AN INJURED MAN ":wo,2:300,:400 ^I(P(wo,F),2)bvI(P(wo,F),3)>9 :10 ,bv;"YOU CANNOT PLAY A SUSPENDED MAN ":wo,2:300,:400 hF rMONwoT(WO)<8"8310":8400 ?3T(WO)=8DIV=38330 :8400 A3T(WO)=8DIV38350 :8400 B8260D :8400 Dڰ"5":wo:'"CONGRATULATIONS:You are promoted to division ";div-wo:ڰ"2":ٰ"7":'"YOU RECEIVE BONUS OF `60,000 ":mon=mon+60000` IGq$=t$(div-wo,wo):t$(div-wo,wo)=t$(div,wo):t$(div,wo)=q$:div=div-wo L&F=wo9 :P(wo,F)=bv8275S NCI(P(WO,F),WO)>3I(P(WO,F),WO)=I(P(WO,F),WO)-(*1.9s333) O<I(P(WO,F),WO)<2I(P(WO,F),WO)=I(P(WO,F),WO)+1 P/N=(*7)+2:P(N,F)=bv8275S Qz>.73333N=(*7)+2:I(P(N,F),wo)=I(P(N,F),wo)+(*1.3&fff):I(P(N,F),wo)>6I(P(N,F),wo)=6 SF W bڰ"5":bv:'"WELL DONE :You have made it to the top as a manager You've won the league":ڰ"0":ٰ"6":''"YOU RECEIVE A BONUS OF `30,000 ":mon=mon+300000u lNko=(*7)+2:q$=t$(wo,ko):t$(wo,ko)=t$("2",ko):t$("2",ko)=q$ m vڰ"5":bv:"HARD LUCK:You will remain in the same division next season.":'';wo;ٰ"7";"YOU RECEIVE A BONUS OF `20,000 ":MON=MON+"20000" {]divwoKO=(*8)+wo:q$=t$(div-WO,KO):t$(div-WO,KO)=t$(div,R(WO)):t$(div,R(WO))=q$ }iDIVɰ"3"KO=(*8)+wo:q$=t$(div+WO,KO):t$(div+WO,KO)=t$(div,R(8)):t$(div,R(8))=q$  ڰ"5":wo:'"UNFORTUNATELY:You finsished at <, the bottom of div. 3 and had to get re-elected":2:7:'"YOU RECEIVE `25,000 TO HELP ":mon=mon+"25000" Gq$=t$(div-WO,R(WO)):t$(div-WO,R(WO))=t$(div,R(WO)):t$(div,R(WO))=q$  ڰ"5":bv:'"UNFORTUNATELY:You were bottom last season and you are relegated":''ڰ"2";ٰ"6";"YOU RECEIVE `15,000 TO AID YOU ":MON=MON+15000: Gq$=t$(div,wo):t$(div,wo)=t$(div+WO,wo):t$(div+WO,wo)=q$:div=div+wo  419,10 ;"PLEASE WAIT" тy(wo)=3:y(2)=2:y(3)=wo:ln=bv:HI=bv:F=WO8:R(F)=F:T(F)=4:F:WK=WO:SCO=ç:LR=6 -F=WO8:G=WO5:L(F,G)=bv:G:F 3F=WO8:G=WO9 :P(F,G)=bv8440 &H=24:I(P(F,G),H)=bv:H G:F !iWO,WO:18,ç;" NEW SEASON ":5,WO,,,,:9999':400 !3wo:bv !4bv:bv:bv:7: !> 8600! !HCH=9 400 !Q"4":ڰ"4":bv: !RCH=9 !WbA$=" "+T$(DIV,CH)+" TEAM SHEET ":PA=7:wo:DN=wo:IN=bv:INK=5:9990' !\bv !f4,bv;WO,,;" NAME SKILL INJ DISC GOAL  ":F=WO9 :F+7,0;6;WO,,: !pZP(CH,F)=bvwo;F+7,bv;F;6;wo;F+7,2;" -":8580! !z6:WO:F+"7",ç;bv;F;F+"7","2";P$(P(CH,F));F+"7","15";WO;I(P(CH,F),WO);F+"7",20;2;I(P(CH,F),2);F+7,24;3;I(P(CH,F),3);bv;wo;F+7,29;I(P(CH,F),4) !F !2:9999': !"6","8";"":f=WO8:f+6,8;" ";6;2;f;" ";t$(div,f);" ":f:f+6,8;" " !N"WHICH TEAM (9 TO RETURN) ";CH:CH9 8610! ! "G ".l=wo20:k(f)=bv "8sp(f,g)=k(l):k(l)=bv:z$=p$(k(l))+" has been transferred to "+t$(div,f)+" from the transfer market":8800`": "`236077\,60<:"9",ç;" " "e4z$=" ":z$=z$+b$+z$ "jKn=wo((z$)-30):in;wo;7;10 ,wo;z$(nn+29)::n "t236077\,249: "bv "|5,0;"";6,0;" NAME P W D L G PT "; "F=wo8 "qf+6,1;" ":1:F+6,0;"";6;0+(T(F)=1);T$(DIV,R(F));" ";2;wk;f+6,16;L(R(F),1);F+6,19;L(R(F),2);F+6,22;L(R(F),3);F+6,25;L(R(F),4);F+6,29;L(R(F),5);f+6,31;"" "f "?f+6,0;"" " #( "Francis" #) "Chaney" #*"Carr" #+ "Banks" #, "Callahan" #-"Rigg" #. "Leahy" #/ "Symons" #0"Lamb" #1 "Hooper" #2 "Cusson" #3 "Holland" #4 "Waters" #5 "Lythe" #6 "Hatch" #7 "Askwith" #8 "Adams" #9 "Dawson" #: "Brook" #; "Norwood" #<"Owen" #= "Pearce" #> "Chase" #? "Kenning" #@ "Richards" #A "Elson" #B "Tennant" #C "Wight" #D"Kemp" #E "Collins" #F "Graham" #G "Knowles" #H"Cook" #I "Oakley" #J"Shaw" #K "Cooper" #L "Wagner" #M "Davies" #N "Edwards" #O "Fowler" #P "Spirit" #Q "Emmit" #R "Maller" #S "Spencer" #T "Castle" #U "Sugden" #V "Foster" #W "Shires" #X "Elliot" #Y "Porter" #Z "Stark" #[ "O'Hara" #\ "Morton" #] "Lloyd" #^ "Demsey" #_ "Kelly" #` "Carter" #a"Reed" #b "Dalton" #c"King" #d"West" #e "Frank" #nW"Liverpool","Man.United","Everton","Notts F.","Arsenal","Norwich","Newcastle","Spurs" #o["Middlesbro","Swindon","Plymouth","Blackburn","Barnsley","Oldham","Brighton","Birmingham" #p_"Sunderland","Gillingham","Fulham","Blackpool","York City","Notts C.","Brentford","Mansfield" #SCO=0:OSCO=0:AT=I(P(H(F),4),wo)+I(P(H(F),5),1)+I(P(H(F),6),1):OAT=I(P(A(F),4),1)+I(P(A(F),5),1)+I(P(A(F),6),1) #EH(F)=woSCO=SCO+*.9ffff+.3-(10 -3*div)/6 #;A(F)=woOSCO=OSCO+.73333-(7-2*div)/6 #ADF=I(P(H(F),WO),WO)+I(P(H(F),2),WO)+I(P(H(F),3),WO) #BODF=I(P(A(F),WO),WO)+I(P(A(F),2),WO)+I(P(A(F),3),WO) #)SCO=SCO+(7-T(H(F)))/(3.2L+) #+OSCO=OSCO+(7-T(A(F)))/(3.2L+) #+sco=sco+(at-odf)/((*.73333)+1.8ffff) #-osco=osco+(oat-df)/((*.8L)+1.8ffff) #8sco=sco+(*.9ffff)-((*((31-at)/18))) #;osco=osco+(*.9ffff)-((*((31-oat)/18))) #.T(h(f))>T(a(f))>.73333sco=sco+1 #,T(a(f))>T(h(f))>.67+Osco=Osco+WO #sco=sco+*.6 #osco=osco+*.4L #sco=sco-*.4L #OSCO=OSCO-*.8L #SCO<0SCO=*1.1 # OSCO<0OSCO=*1.5@ #"SCO>4SCO=SCO-*1.7Y #%OSCO>4OSCO=OSCO-*2.1fff #osco=((osco)):sco=((sco)) # OSCO<0OSCO=*1.7Y #(SCO>5SCO=SCO-((*2)+WO) #+OSCO>5OSCO=OSCO-((*2)+WO) #XT(A(F))<3T(H(F))>5ƥ>.5OSCO=(*3.3S333):SCO=(*3.3S333)+WO #ZT(H(F))<3T(A(F))>6ƥ>.73333OSCO=(*3.3S333):SCO=OSCO+(*1.43333) #NT(A(F))<3T(H(F))>6ƥ>.73333SCO=(*1.43333):OSCO=0 #JT(A(F))<4T(H(F))<3ƥ>.73333SCO=(*3.2L):OSCO=SCO #< T(A(F))<3OSCO=OSCO-1:OSCO<0OSCO=ç # $"'WO,"2","3","4","5","6","7","8" $#)"4",WO,"2","3","8","5","7","6" $$'WO,"8","2","7","3","6","4","5" $%'"5",WO,"8","2","7","3","6","4" $&'wo,"6","2","5","3","8","4","7" $''wo,"3","2","4","8","6","7","5" $('"7",wo,"6","2","5","3","8","4" $Ts(WO)>s(a(f))lR=lR+wo $^s(WO)=s(a(f))lR=lR $h s(WO)S(H(F))LN=LR+1 $s(1)=s(H(f))lR=lR $%s(1)i(p(h(f),hiP),1)hiP=n $n $1>.75@g=(*5)+2:9470$ $1>.82Qg=(*2)+2:9470$ $1>.353333g=(*2)+5:9470$ $1>.76B\)g=(*2)+3:9470$ $g=hiP $ %ahiP=(*5)+2:n=26:i(p(a(f),n),1)>i(p(a(f),hiP),1)hiP=n %&n %00>.73333g=(*5)+2:9570b% %:1>.77ERg=(*2)+2:9570b% %D0>.3g=(*2)+5:9570b% %N0>.8Lg=(*2)+3:9570b% %Xg=hiP %b &0,176-(8*6):255,0:0,-126~:-255,0:0,126~:502,0:7;140,0,1.6L:8:F=621:F,0;1;4,,:F &N0,0:255,0:0:6,9 ;"1.GOALKEEPER" &!10 ,10 ;"2.DEFENDER" &E13 ,1;"3.R MIDFIELD";13 ,18;"4.L MIDFIELD": &>16,3;"5.FORWARD";16,19;"6.FORWARD" &BWO:19,WO;"7 SUBSTITUTE";20,1;"8.SUBSTITUTE" & &67:0:WO:7,10 ;P$(P(WO,WO)) &&11 ,10 ;P$(P(wo,2)) &J14,2;P$(P(wo,3));14,19;P$(P(wo,4)) &J17,2;P$(P(wo,5));17,19;P$(P(wo,6)) &=P(wo,7)019,14;P$(P(wo,7)) '=P(WO,8)020,14;P$(P(WO,8)) 'wDN,0;PA;IN;A$:0,167-(8*DN):INK:255,0:0,-1:-255,0: ' '"9",0;WO,:6:WO:N=WO10 :n+5,10 ;" ":N:6:WO:0:WO;6,10 ;P$(P(Y,B));" ";8,10 ;WO;"SKILL :";I(P(Y,B),WO);10 ,10 ;2;"INJURIES :";I(P(Y,B),2);12 ,10 ;WO;"DI'PLINE :";I(P(Y,B),3);0;14,10 ;"GOALS :";I(P(Y,B),4): 'V21,0;" PRESS ANY KEY TO CONTINUE ":ç:21,ç,,: ioH Francis Chaney Carr Banks Callahan Rigg Leahy Symons Lamb Hooper Cusson Holland Waters Lythe Hatch Askwith Adams Dawson Brook Norwood Owen Pearce Chase Kenning Richards Elson Tennant Wight Kemp Collins Graham Knowles Cook Oakley Shaw Cooper Wagner Davies Edwards Fowler Spirit Emmit Maller Spencer Castle Sugden Foster Shires Elliot Porter Stark O'Hara Morton Lloyd Demsey Kelly Carter Reed Dalton King West Franki HJ Liverpool Man.UnitedEverton Notts F. Arsenal Norwich Newcastle Spurs MiddlesbroSwindon Plymouth Blackburn Barnsley Oldham Brighton BirminghamSunderlandGillinghamFulham Blackpool York City Notts C. Brentford Mansfield H !"#$%&'()*+m 0+29 ,3: -4; .5< /6= 07>18+oj`+)++A  CHOOSE THE PLAYER NAMES n"" "" 1VE NAME FOR NO.1GIVE NAME FOR NO.1  5 12 5 14 5 c  M!MM(P P P  (mM\\Z;U!:!+a v> ?$~$>>36 0fF =f?   0*> @0 033!%+^@<33``ll<66<006ll<66x`< 6&< 800<6lll  < l88<6 ;?5jjj<66lll66ll8<66lx`6&< 000088 x  666ll866688115j~>668l66&< 80>x00<< x(>BB<DHpHDB@~BfZBBBBbRJFBf|||~f|f f~f||`fl`~f||`f p  ?   0000 8   0000   xxxxx3 ~~<|f<|x<~<|f<|x~:8999'#+F:P$(F):I(F,wo)=((*5.3)))+wo:I(F,wo)=6>.73333I(F,wo)=5 ;I(F,WO)<3ƥ>.25~I(F,wo)=(*3)+3 F (t$("3","8","10") 2 "9070" <+f=wo3:g=wo8:t$(f,g):g:f A K("25") FP("8","9") G!pl=(*62>)+wo:"9000"+pl H^g=wo6:f="2"8:8999'#+pl:p$(pl):p(f,g)=pl:pl=pl+wo:pl=63?pl=wo If:g J f=wo̰"20" Kpl=pl+wo:pl="63"pl=wo L "8999"+pl:p$(pl):k(f)=pl:f PMON="120000" Zwk=wo:a("4"):h("4") d s("8") n%T("8"):f=wo8:T(f)="4":f xl("8","5") %R(8):F=wo8:R(F)=F:F lr="5" 6"5":ڰ"5":ç: @TA$=" CHOOSE THE PLAYER NAMES ":PA=wo:DN=wo:IN="7":INK="2":9990' E "9900" JMF=wo̰"7":"GIVE NAME FOR NO."+F+" ";P$(62>+F):P(wo,F)=F+62>:F T "9960" ^?"GIVE TEAM NAME ";T$(3,WO):"4","10";WO;T$("3",WO) hF=WO̰"7":I(P(wo,F),wo)=(*5.4,)+wo:I(P(wo,F),wo)=I(P(wo,F),wo)-(*1.2):I(P(wo,F),wo)8ƥ>.1}LLR=LR-2-(*2.2 ) /LR<5ƥ>.8LLR=LR+((*2.3333)) [wo:A$=" M A I N M E N U ":PA=wo:IN=5:INK="2":DN=wo:9990' 4,5;"1 PLAY NEXT MATCH";"6","5";"2 BUY/SELL PLAYERS";"8","5";"3 PICK TEAM";"10","5";"4 STATISTICS";"12","5";"5 SAVE GAME";"14","5";"6 SEE TEAM" "16","5";"7 LOAD GAME" #16,23;"8 ESCAPE" "18","0";wo,,:"19","0";"  FINANCES: MONEY LEFT ` ! ":7:19,24;MON:ç 3,25;"WEEK:";WK ç .05|L,"2" ,K$=:K$<491ůK$>579450  K$="1"TR=0:8000@ K$="6"85004! k$="2"4000 k$="3"5000 K$="4"4500 K$="5"2000 K$="7"21004 -K$="8""ARE YOU SURE ";Y$:Y$="Y"Y$="y" k$"1"400 wo:wo:ٰ"7": tr=bv HA$=" WEEK "+WK+" FIXTURES ":wo:WK<10 A$=A$+" " -PA="6":IN=ç:INK="2":DN=wo:9990'  DWK>"7"9249!$+WK-"7":F=wo4:A(F),H(F):F:540 ("9249"+WK:F=wo4:H(F),A(F):F F=wo4:F*3+3,bv;4;"(";t(h(f));") ";(6+(H(F)=wo));T$(DIV,H(F));" V ";(6+(A(F)=1));T$(DIV,A(F));" (";4;t(a(f));")":f &;20,bv;" TO SEE THE SCORES PRESS A KEY ":bv 0""5600 5f=WO4 : ;`A$=" DETAILED RESULTS SERVICE ":PA=4:IN=0:BR=WO:DO=2:9990 ' D"8","3";"";:g=wo9 :g+8,3;" ":g:g+8,3;"" NI"9","4";ٰ"4";bv;t$(div,h(f));" V ";4;bv;t$(div,a(f)) X$"9100":s(h(f))=sco:s(a(f))=osco b;"10","9";bv;6;wo;sco;10 ,23;osco: iH(F)=wo9300T$ jA(F)=wo9350$ lt=wosco:9400$ vt+"11",4;8-t;bv;p$(p(h(f),g)):i(p(h(f),g),4)=i(p(h(f),g),4)+wo:GL=I(P(H(F),G),4):5500| t t=woosco:9500% t+11 ,18;8-t;bv;p$(p(a(f),g)):i(p(a(f),g),4)=i(p(a(f),g),4)+wo:GL=I(P(A(F),G),4):5500| t l21,bv;" Press any key for bookings ":bv:21,bv;" " Ey=11 16:y,4;" ":y "12",4;"BOOKINGS BOOKINGS BOOKING"::32 ,168-(8*12 ):2;199,bv:bk=(*3.2L):>.3BK=BK-wo:BK.5M=KOD ei(p(h(f),m),3)=i(p(h(f),m),3)+wo:14,4;6;wo;0;p$(p(h(f),m)) bk<2740 Йbk>woman=(*6)+WO:man=mi(p(h(f),man),3)=i(p(h(f),man),3)+5:14,4;2;wo;bv;p$(p(h(f),man)):740 pi(p(h(f),man),3)=i(p(h(f),man),3)+wo:15,4;6;0;1;p$(p(h(f),man)) @nk=(*3):>.3NK=NK-wo:NK.5M=KOD ai(p(a(f),m),3)=i(p(a(f),m),3)+wo:14,18;6;wo;bv;p$(p(a(f),m)) nk<2780  man=(*6)+wo:man=mi(p(a(f),man),3)=i(p(a(f),man),3)+5:14,18;2;wo;bv;p$(p(a(f),man)):780  gi(p(a(f),man),3)=i(p(a(f),man),3)+wo:15,18;6;bv;wo;p$(p(a(f),man))  9999':21,ç;WO,, f * f=wo̰"4" 4+l(h(f),"4")=l(h(f),"4")+s(h(f))-s(a(f)) >+l(a(f),"4")=l(a(f),"4")+s(a(f))-s(h(f)) Hxs(h(f))>s(a(f))l(h(f),wo)=l(h(f),wo)+wo:l(a(f),3)=l(a(f),3)+wo:l(h(f),5)=l(h(f),5)+3 Rxs(a(f))>s(h(f))l(a(f),wo)=l(a(f),wo)+WO:l(h(f),3)=l(h(f),3)+wo:l(a(f),5)=l(a(f),5)+3 \s(a(f))=s(h(f))l(a(f),2)=l(a(f),2)+wo:l(h(f),2)=l(h(f),2)+wo:l(h(f),5)=l(h(f),5)+wo:l(a(f),5)=l(a(f),5)+wo fh(f)=WO9300T$ kA(F)=wo"9340" ps(h(f))=bv:s(a(f))=bv:f |#>.15~wk<5900 }'h=(*3)+wo:r(h)=wo893} ~~f=wo̺(*3)+wo:nj=(*3)+WO:i(p(h,nj+3),WO)>3i(p(h,nj+3),wo)=i(p(h,nj+3),wo)-2 f  "9999" ڰ"7":bv:7:bv: fA$=" LEAGUE TABLE FOR DIVISION "+DIV+" ":IN=7:PA=2:INK=6:DN=bv:9990' IWO:3,bv;" PLEASE WAIT WHILE THE LEAGUE IS CALCULATED" N="8" N=N-WO SW=ç C=woN 0L(r(C),5)>L(r(C+wo),5)1000 'SWAP=R(C):R(C)=R(C+wo):R(C+wo)=SWAP SW=wo C SW=wo950  N=8 N=N-wo SW=0:C=woN 0L(r(C),5)L(r(C+wo),5)1070. Sl(r(c),5)=l(r(c+wo),5)l(r(c),4)>l(r(c+wo),4)1070. $.swap=R(c):R(c)=R(c+wo):R(c+wo)=swap:sw=wo .c 8sw=WO1030 B7:3,bv,,,, L "8900" V "9999" [F=wo8:T(R(F))=F:F `ڰ"7":wo:bv:wo: jZa$="WEEKLY FINANCES AND INFORMATION ":PA=6:IN=bv:INK=2:DN=wo:9990' tDIV=woGATE=12000. uDIV="2"GATE=5000 vDIV=3GATE=2500 ~EX=350^+(*150) +GATE=GATE+(LR*EX*1.2*(4-DIV)) 5,bv;2;7;"ATTENDANCE ";2;7;(GATE):RND=:6,bv;wo;7;"GATE MONEY ";:k=(gate*(2.6&fff+*.6)):wo;7;k #:3:F=wo16:"-";:F oç:6:10 ,bv;"PLAYER WAGES ";bv;7;:WG=bv:F=wo8:P(wo,F)bvWG=WG+I(P(wo,F),wo) F  WGS=WG*180*(4-DIV) bv;7;WGS ;4:bv:11 ,bv;"EXPENSES ";:4:7: ^ EX=(4.4 -DIV)^2*(2000+(*1200))+MON/15+(5-LR)*500 EX=EX $MON=MON-EX:MON=MON-WGS:mon=mon+k EX #3::F=wo16:"-";:F  S:2;6;" TOTAL BALANCE FOR WEEK ";6;2;k-(WGS)-(EX) 4';"  YOU NOW HAVE `";7;2;MON "  _" ( "9999" )>.9ffffl=(*6)+wo:op=(*8)+wo:i(p(op,l),wo)=i(p(op,l),wo)+((*2.3333))-((*2.3333)):i(p(op,l),WO)>6i(p(op,l),WO)=6 2pWO:WO:7::a$=" WEEKLY NEWS AND INFORMATION ":PA="2":IN="6":WO:INK=3:DN=bv:9990' 5&10 ,10 ;"PLEASE WAIT" 73f=WO8:g=WO9 :p(f,g)=bv1350F <I(P(F,G),2)bvI(P(F,G),3)<6I(P(F,G),2)=I(P(F,G),2)-WO:i(p(f,g),2)=bvi(p(f,g),WO)=i(p(f,g),WO)+(*2):i(p(f,g),WO)>6i(p(f,g),WO)=6 AI(P(F,G),3)>5i(p(f,g),2)bvI(P(F,G),2)=i(p(f,g),2)-WO:i(p(f,g),2)=bvI(P(F,G),3)=bv FG:F xRG=WO8:f=WO6:i(p(g,f),3)>5i(p(g,f),2)=3 f:g kod=(*6)+wo ?f=28:g=WO6:p(f,g)=bvIH=bv:1520 .i(p(f,g),3)<6IH=bv:1510 WO:O=321:O,bv,,:O:IN=bv:b$="Since "+p$(p(f,g))+" has too many points he is available to you at a cut price":88