FD128K sW63999:236077\,249:0:0:0::0:"128K PIC" R4:4:3,0:"CODE":65100L:3,0:"3" 128K PIC P><<B AxDC GA|! <A0a A~!B B0 @A|!A 8! 0 A! "D0 Af2wpDޑR=/<{z!48A F@!D ?AxBDDp A ##UD!(BR%)%JJc!? A0B AI A l!"BRI%)$JJ`6!,0 A|A0@B A~h 0 wD!R^/%/={K׮>x!B00 A|A iB GAx8 <͛c|s'@k}x @~0 ` xx!A9a0 j@%w?<zO@l>͛c|) #c}l"p||?0 ` ͆ `! BQ BV@!@@.Z@w!ÇI@Gl߾`_a =@?cmof'? >ك߿|!C[՘@N@ (J@T6=HGe@l߾`8e/`_cmgf?-x |x !  Ʋw>Rx#m<m`3}wmll9"g!t2\p|0Ͷ 3`x !@  B!_pm0ٻm`3$ml|1ƃ" JRws>8*! JTa@#C\fos7I*"Rp;ppw8vs8ds"1 aȹ2N0H:8 asǏUPUET UU]j px~~ps~8 i%-KP #8G `Ͼ $@y9s*@Ԅ%(H% @s7~?~ps;??|8.y `=Jg/@0D 0f~2.3"UIUUUUTBR"R%J"RUU%p=ipsp?8~p~?>s>%%)BZ %(JBg?@/0nKiHP"પPrR#%s"\P%)@sp?~p?s~=i=.s'p(2\? !?0`I$Jx*UUP%UUUABR"R%R"TTHxp>;ppw8wsp8%)%(BRdp> 0f JJ(HP*󪪨PJ(*A#9K!p>?8|>ws|8 xxxxxxxxxxxx xxxxxxxxxxxxx xxxxxxxxxxxx xxxxxxxxxxxxx xxxxxxxxxxxxx xxxxxxxxxxxxx xxxxxx xxxxxx xxxxxx 8888888888 8888888888 8888888888 8888888888 '''''''''''''''''''' ''''''''''''''''''''%CODE /QR$$$~$$~$ZO fl0fF4>> 0`< B2QO>>9%bL8l88llll< 8| 0|QQUUUQQQQ[#*% w B !9T]*\BR[=\"=\ + +i`*=\s#rv{=\!:\~6} ( !'"B\2D\v*]\~$ #"]\}|8l3E9|8lM;W:W\GWq!'![>,7)*(MH-1):RA=(MI/10 ):MI=MI-(RA*10 ):MI=MI-(MI>7)*MI:MG=(MG-60<)/6:MG<1MG=5 2,29;MI;MH;(157+MG):ER=4:ES=1:40(:41):6;9 ,1;"MORALE ";(ME/10 ):ES=19:40(:41):1;8;4,30;EI;5,30;EJ;6,30;EK;7,30;EL;4;0;12 ,23;MV;9 ,19;6;"MORALE ";(MM/10 ):1015:1012-(CP=0CV=0CQ=0) 416:14,12 ;"LMTG ";CJ;17,0;5;"LEAGUE POS ";AG;17,19;5;"LEAGUE POS ";MN "CQ=11019:46. CV=11016 848P:1014 ]1;7;1;14,1;"TEMPER ";PU;14,21;"TEMPER ";PV: aI=12 5467:CI=I6;16,5;"LEAGUE";22;CT:1028 `I:I=1658:7:CI=I6;16,9 ;"FA";22;CR:1028 I:1030 =JE=(GZ/2):JE =JE-(GZ=4GZ=6GZ=8) 1024-BE ?6;16,6;"EUROPEAN CUP WINNERS":1024 46;16,12 ;"U.E.F.A.":1024 (6;16,12 ;"EUROPEAN" VI=372:I=GZ19,0;"1st LEG":BK=2:1026 AI:GZ<9 6;19,0;"2nd LEG":BK=1 6;17,12 ;"CUP ROUND ";JE:GZ<9 6;19,23;"AGG ";JB;"-";JC:1036 -(JE-1) %BK=2:1036 -(JE-1) )6;16,12 ;"CUP ROUND" eIB=1030+(CI>39')*3:IB+(CI=47/CI=513)+(CI=40(CI=44,)*2 eCV=16;19,19;"DIVISION ";CS:CS=56;19,28;"N" 2DT=16;19,12 ;"REPLAY"   @6;16+(CQ=1),16;"FINAL ":1030  D6;16+(CQ=1),16;"SEMI FINAL ":1030  ;6;16+(CQ=1),16;"QUARTER FINAL "  1030 5 !"5":3,0:"13" CW=0:90Z    U1;1;7;18,9 ;PU:ER=13 :ES=18:40( CW=1CJ=0 ?6;21,0;"MENU CHANGE SACK EDIT TRAN FIELD"  c849Q:1009+(="C")+(="E")*11 +(="T")*16+(="S")*28+(="F")*31 LL=2:6;21,0;"No OF PLAYER TO MOVE ";21,21;:270:AD=ZA:1011-(AD=0)*5-(AD>20) C1012-(J(AD)=73IJ(AD)=83SJ(AD)=76L)*2 1014-(J(AD)=35#) XH(AD)=H(AD)-(U(AD)H(AD))*H(AD):U(AD)=0:Y=AD:525  LL=2:6;21,0;"PLAYER'S NEW POSITION ";21,22;:270:I=ZA:1015-(I<1I>20) @1016-(J(I)=73IJ(I)=83SJ(I)=76L)*2 1018-(J(I)=35#) NH(I)=H(I)-(U(I)H(I))*H(I):U(I)=0:Y=I:525  O652:1019:I=AD:1019:332L:BJ=BJ+1:1005 9IA=2+(I<12 )*I+(I=12 )*14+(I>12 )*(I-12 ):IC=0+(I>12 )*17:H$=(144+T(I)):4+(T(I)>0)*(T(I)-1);(T(I)>0);IA,IC;H$;4;0;IA,IC+2-(I>9 );I;" ";4+(G(I)<0)*2;V$(I);4;" ";H(I);J(I): LL=2:6;21,0;"No OF PLAYER ";21,13 ;:270:I=ZA:1021-(I=0)*15 +1022-(I<1I>20)*2 &1023-(V$(I)=32 )*3 LL=8:PX=32 :PY=122z:6;21,0;"TYPE PLAYERS NEW NAME ";21,22;:270:1024-(X$=32 űX$<1) 1038:V$(I)=X$:IA=2+(I<12 )*I+(I=12 )*14+(I>12 )*(I-12 ):IC=4+(I>12 )*17:4+(G(I)<0)*2;IA,IC;V$(I):1005 _LL=2:6;21,0;"WHICH PLAYER ";21,13 ; =270:I=ZA:1027-(I<1I>20)*23 e1028-(V$(I)=32 E(1,I)<0J(I)=82RJ(I)=76LJ(I)=42*)*3 HG(I)=G(I)+(G(I)<0)*(G(I)*2)-(G(I)>0)*(G(I)*2) IA=2+(I<12 )*I+(I=12 )*14+(I>12 )*(I-12 ):IC=4+(I>12 )*17:4+(G(I)<0)*2;IA,IC;V$(I):1005 LL=2:6;21,0;"No OF PLAYER TO SACK ";21,21;:270:I=ZA:1031-(I<1I>20) &1032-(V$(I)=32 )*2 6OM=(V(1,I)*V(2,I)):1033 +(AI> OM)  k2;7;21,0;" YOU CANNOT AFFORD THIS AMMOUNT ":I=1502:I:1006  96;21,0;"THIS WILL COST `";OM;" Y/N"  %1035 +(="Y")-(="N")*29  FAI=(AI-OM):890z:200:1019:332L:1005  _A1=0:I=120:A1=A1+(V$(I)32 ):I:1030-(A1<13 )*24 *K=120:V$(K)=X$1023 K: LL=2:6;21,0;"No OF PLAYER TO RE-POS ";21,23;:270:I=ZA:1041-(I<1)*35#-(I>20) $1042-(T(I)=0)*36$ P1006+(J(I)=32 J(I)=105iJ(I)=43+J(I)=45-)*37% ?6;21,0;" 1=GOALIE 2=DEF 3=MID 4=ATTACK " ;X$=:ZA=X$-480:1044+(ZA>0ZA<5) 1.1}L,0:1046-(T(I)=ZA)*41) oT(I)=ZA:RA=10 +(*19):H(I)=H(I)-(RA/10 ):Y=I:525 :1019:332L:1005 13 !"13":3,0:"A" 6F=120:T$(F)=R$1055:1053 F D1056 :F=120:T$(F)=S$1055:1056 : F rP(F)=P(F)+1:W(F)=W(F)+(R> S):D(F)=D(F)+(R=S):F(1,F)=F(1,F)+R:F(2,F)=F(2,F)+S:  ET=R:R=S:S=ET: !X=220:RA=X-1:RB=(W(X)*PTS+D(X)):RC=(F(1,X)-F(2,X)):E1=P(X):E2=W(X):E4=D(X):E5=F(1,X):E6=F(2,X):D$=T$(X) "*1059#+(W(RA)*PTS+D(RA)> RB)*2 #C1060$+(W(RA)*PTS+D(RA)=RB(F(1,RA)-F(2,RA))> RC) $P(RA+1)=P(RA):W(RA+1)=W(RA):D(RA+1)=D(RA):F(1,RA+1)=F(1,RA):F(2,RA+1)=F(2,RA):T$(RA+1)=T$(RA):RA=RA-1:1061%-(RA>0)*3 %P(RA+1)=E1:W(RA+1)=E2:D(RA+1)=E4:F(1,RA+1)=E5:F(2,RA+1)=E6:T$(RA+1)=D$:X:858Z: 5A !"A":3,0:"I" 7I=118:1002+(N(1,I)=0) I:RA=0:1027 MC=MC+1:N(1,I)=JI:N(2,I)=JH:B$=Y$(JI)+32 +"P"+32 +32 +"P"+32 +Y$(JH):1028 *I=120:T$(I)=Y$(ET)KH=I: I [W$(ID)=S+R:ID=ID+(ID<38&):I=37%1-2:1011+(CJ=I)*6 I 'JI=V-1:JH=V+1:875k %Y$(JI)=Z$JI=JI-1:875k 11022:Y$(JH)=Z$JH=JH+1:875k  1023 5JI=JI-1:JH=JH+1:875k:1013 'JI=V+1:JH=V-1:878n %Y$(JI)=Z$JI=JI+1:878n 11022:Y$(JH)=Z$JH=JH-1:878n  1023 5JI=JI+1:JH=JH-1:878n:1018 'ET=JI:R$=Y$(JI):1008:KI=KH: fET=JH:S$=Y$(JH):1008:R=1+(*8)+((KI29CI<42*)*557:RA=1+(*IB):1027-(RA=5)  1001 @B$=Y$(JI)+32 +R+32 +32 +S+32 +Y$(JH) J6;1;CL,4;B$:CL=CL+1:1030-(RA5)  1051 GCL=20891{:CL=11 :887w:1057!:412   445 CI !"I":3,0:"W" vRA=0+(*472):BU=(RA<(PU+PV))*(2+(*169)):MP=0+(V$(12 )=32 ):1003 :4;1;19,4;"LMTG ";CJ-1: DOB=0:MF=4+(*32 ):MF=(MF/4):1006      n:N=0:V=V+(Y$(V)=Z$):AR=4:AQ=2:AM=1+(*9 ):R=0:S=0:S$=Y$(V) 1012-CQ OB=1:S$=K$:1046 1014-CV )OB=1:S$=B$(9 ):1043 1016-CP :S$=K$:BK=2:12 ,8;"EUROPEAN FRIENDLY" 1041:1016+BK 2,0;1;MJ;MK;(157+ML);7;2;Z$;22;0;S$;MI;MH;31;(157+MG):D$=Z$:1031:1019 2,0;1;MI;MH;(157+MG);7;0;S$;22;2;Z$;MJ;MK;31;(157+ML):D$=S$:1031 71002+(CV=1CQ=1CP=1)*2 MP=01036  |!"AB":1009:N=1MD:7;1;0,0;"TIME ";N;8;"MIN":="S"MP=01034  7I=18:1025-(B(I)=N)*(3-C(I)) 1R=R+1:1031:1001:1025 %S=S+1:1031:1005 'I:1027-(CQ=1GZ<9 ) '6;19,27;JB;"-";JC !1028+(N=45-)*4 1030-(N<81QN=BU) !"AD":1051 N:R1=R:S1=S:1033  g7;1;2,14+(BK=2)*3;R;2,17-(BK=2)*3;S: 0,23;1;7;"HALF TIME";2,11 +(BK=2)*7;"(";R;")";2,18-(BK=2)*7;"(";S;")":99c:0,23;" ":1028  0,23;7;1;"FULL TIME":MJ=SA:MK=SB:ML=SC:NH=0:BJ=0:BP=0:CJ=CJ-1:70F  $AD=1:1035 :1037   6;1;21,0;AD;3;(T(AD)+3);(144+T(AD));6;5;V$(AD);14;H(AD):  4;6;21,3;"S SUBSTITUTE";1;7-(G(12 )<0);0;21,18;"12";(T(12 )+3);(144+(T(12 )));7;" ";7-(G(12 )<0);V$(12 );" ";H(12 ):  @="S"AD=AD+1:AD=AD-(AD=12 )*11 :1035  *=13 ƯV$(AD)32 1040  1037  bI=12 :652:MP=1:1036 :4;21,0;" ": MH=S$(1):MI=S$(2):MG=S$(3):RA=(MH/10 ):MH=MH-(RA*10 ):MH=MH-(MH>7)*(MH-1):RA=(MI/10 ):MI=MI-(RA*10 ):MI=MI-(MI>7)*MI:MG=(MG-60<)/6:MG<1MG=5  aI=12 5467:CI=I6;16,5;"LEAGUE";22;CT:1054 `I:I=1658:7:CI=I6;16,9 ;"FA";22;CR:1054 I:1056  KJE=(GZ/2):JE=JE-(GZ=4GZ=6GZ=8):1050-BE ?6;16,6;"EUROPEAN CUP WINNERS":1050 46;16,12 ;"U.E.F.A.":1050 (6;16,11 ;"EUROPEAN" _I=372:I=GZ6;19,4;"1st LEG":BK=2:1052 AI:GZ<9 6;19,4;"2nd LEG":BK=1 6;17,12 ;"CUP ROUND ";JE:GZ<9 6;19,23;"AGG ";JB;"-";JC:1062&-(JE-1) %BK=2:1062&-(JE-1) )6;16,12 ;"CUP ROUND" eIB=1056 +(CI>39')*3:IB+(CI=47/CI=513)+(CI=40(CI=44,)*2  eCV=16;19,19;"DIVISION ";CS:CS=56;19,28;"N" !2DT=16;19,12 ;"REPLAY" " 1016 #@6;16+(CQ=1),16;"FINAL ":1056  $D6;16+(CQ=1),16;"SEMI FINAL ":1056  %;6;16+(CQ=1),16;"QUARTER FINAL " & 1056  W  !"W":3,0:"W1"  23692\,99c:"WAGE BILL";1;7;0,10 ;"WEEKLY NEWS";7;0;22;"GATE MONEY";'" `";NP;"-";10 ;"ATTEN ";DN;23;"`";BL;"+":JR=BL-NP:FT=(CO/4):FP=(CO/31):FQ=(CO/59;):FR=(CO/99c):RA=FR+(*FQ)+FP/AP:FP=(FP+RA):3,0;"GENERAL RUNNING COSTS";23;"`";FP;31;"-"'"INTEREST FROM BANK";23;"`";FM;31;"+":JR=JR-FP+FM DOL>0"POLICE BILL `";OL;31;"-":JR=JR-OL DON>0"CLUB LOTTERY RAISES `";ON;31;"+":JR=JR+ON  -1028:1009-(RA<3)*2 I=120:V$(I)32 ƽX(I)>400RA=(FT-FP):V$(I);" TESTIMONIAL `";RA;31;"+":JR=JR+RA:1009 I   1037   1046     %1028:1018-(RA=3) BRA=FT-FP:"SPONSORS PAY THE CLUB `";RA;31;"+":JR=JR+RA   MB=MB+(MBCI)*4:KC>0"BANK REPAYMENTS";23;"`";CF;31;"-":JR=JR-CF:KC=KC-CF:KA=KA+CF:CF=CF-(KA<1)*CF:KA>COKA=CO MJQ>0"MORTGAGE REPAYMENTS `";JP;31;"-":JR=JR-JP:JQ=JQ-JP k3;7;9 ;"WEEK'S PROFIT";7;0;" `";JR:JR<0AI=AI-JR:1024  AI=AI+JR Z8>0911 -1028:1029-(RA<4)*3 QI=120:V$(I)32 ƽG(I)>29J(I)82RJ(I)42*J(I)76LJ(I)83SJ(I)73IJ(I)35#J(I)=82R-(U(I)>0)*47/:E(1,I)=E(1,I)+(E(1,I)<0)*(E(1,I)*2):V$(I);" ANOUNCES HE PLANS TO RETIRE AT THE END OF THE SEASON":G(I)=G(I):1029 I:1029 RA=1+(*35#): -1028:1030+(RA>2)*3 ?I=120:1032-(V$(I)32 U(I)=1) 8V$(I);" RETIRES THROUGH INJURY":200:1035  I      ;!"AD":HW=1001:D$="W1":BU<81QHW=1003  901  m1028:Y=120:1038+(J(Y)=105iRA<6)+(J(Y)=105iRA=9 )*19 Y:1011 ZV$(Y);" INTERNATIONAL COMITMENTRELEASE HIM Y/N";23;"`";V(1,Y);31;"+" G="Y"J(Y)=73I:JR=JR+V(1,Y):AD=Y:351_:1011 Q="N"RA=1+(*15):H(Y)=H(Y)-(RA/10 ):525 :1011  1040 {RA=1+(*15):RA=9 RA=(AI/100d)*15:"VAT RETURNS";23;"`";RA;31;"-":JR=JR-RA 1028:RA=9 AI>300000|AI>15000007RA=(AI/2):"DIRECTORS WITHDRAW `";RA;31;"-":JR=JR-RA 1028:RA8 @I=201-1:1050+(T(I)=0)*6 @1056 -(J(I)=32 J(I)=43+J(I)=45-)*5 2RA=1+(*20):1052-(Y$(RA)=Z$) tEV=H(I)*H(I)*6000p:V$(I);" IS UNHAPPY AND REQUESTS"'"A TRANSFER TO ";Y$(RA);'"TAX FREE `";EV;" ACCEPT Y/N" $1053+(="Y")+(="N")*2 #1060$:JR=JR+EV:200: GRA=0+(*10 ):H(I)=H(I)-(H(I)/10 ):Y=I:525 :  I: !yRA=97a+(*10 ):RB=15000007+(*1000000t$):Y$(RA);" OFFER `";RB;"TAX FREEFOR ";V$(Y);" ACCEPT Y/N" "%1058"-(="N")*47/+(="Y") #2I=Y:1060$:JR=JR+RB:200:1011 $>RA=I:Y=2123:V$(Y)=V$(I)I=Y:200:I=RA %Y: nW1  !"W1":3,0:"O" FL=1+(*20):V$(FL)=32 J(FL)=35#J(FL)=42*J(FL)=73IJ(FL)=82RJ(FL)=83S1005  1054 1004+(JS=0) 3V$(FL);" RETIRES THROUGH INJURY":I=FL:200  JS=0 ,1007+(I$(1)=32 )*4 :I=612 :1010-(I$(I)32 )*2 RA=(Y(2,1)/10 ):RB=0+(*RA):RB=(RB/2):Y(2,I)+RB> Y(3,I)Y(2,I)=Y(2,I)-RB:1010 Y(2,I)=Y(2,I)+RB I ;OW=0:BU=0:CZ=0:CP=1605] .1038:1016-(RA<12 )*3 X!"13":K=01:RA=1+(*17):1014+(N(1,RA)=0) 1041:6;0;"MIDWEEK GAME";7;'4;Y$(N(1,RA));" ";R;" ";Y$(N(2,RA));" ";S:R$=Y$(N(1,RA)):S$=Y$(N(2,RA)):1051:N(1,RA)=0 K iA1=0:I=120:A1=A1+(V$(I)32 ):I:3128:1017+(A1<12 )*4 JU=1"TOO MANY SHARES HAVE BEEN SOLD"'"THE NEW BOARD OF DIRECTORS"'"HAVE SACKED YOU":NC=0:OQ=1:"M:X":AI=0:1001:1039 "1019+(ID<15)*4 I=(ID-1)(ID-14)-1:RA=(W$(I)(1)-480):RB=(W$(I)(2)-480):OP=OP+(RA< RB)*3+(RA=RB):I:1020+(OP>6)*3 H"DIRECTORS VOTE OF CONFIDENCE":RA=1+(*2):1020+RA i2;7;"YOU ARE GIVEN A WEEK'S NOTICE":NC=0:OQ=1:!"X":1001:1039 )4;"YOU ARE GIVEN ANOTHER CHANCE" AI>-11039 KA=01026 KD=KA:AI=AI+KA:KA=0:KD=KD+(KD/100d)*11 :KC=KC+KD:CF=(KC/40():1036 :"THE DIRECTORS BORROW `";KD:1023 JQ>01028 JQ=(1800000[/AP):ET=((JQ/100d)*26):JP=((ET+JQ)/80P):AI=(AI+JQ):JQ=JQ+ET:1036 :"THE DIRECTORS MORTGAGE `";JQ:1023 AU<21030 DW=(AU-1):AU=1:AV=(DW/1000):AV=AV+(AV<0)*AV:AK=AK-((AK/100d)*AV):AK=AK+((1-AK)/2)*(1+(.95s333-AK)):DX=(AK*DW)/100d:AK=AK-(AG-BX)*20:AI=AI+DX:1036 :"THE CLUB SELL SHARES `";DX:1023 /I=120:1031+(G(I)<0) HI:I=2426:200:I:1017+(AI<0)*20 *H(I)=1EV=6500d:1034   UEV=5000*(H(I)-1)*(H(I)-1)*2+(J(I)=105i)*310000^  3FU=(EV/3)+6000p:RA=EV+(*FU):EV=RA  [1036 :"THE DIRECTORS HAVE SOLD"'V$(I);" FOR `";EV:AI=AI+EV:200:1031  $"TO GET OUT OF FINACIAL TROUBLE":  "DIRECTORS VOTE OF CONFIDENCE":2;7;"YOU HAVE BEEN SACKED":NC=0:OQ=1:!"X":1001:1039 RA=1+(*35#):  890z  1042 jR=1+(*9 )-5:R=R+(R<0)*R:S=1+(*8)-5:S=S+(S<0)*S: f332L:I=120:V$(I)32 V(2,I)=0D$="R":HW=359g:902 I 848P:1044 O !"O":3,0:"R" 892|:O1=0:I=118:O1=O1+(N(1,I)>0O1=0):I:RA=4:RB=9.5:4:4::OZ=0RA,RB;"E EMPLOYEE'S":RA=RA+1:RB=RB-.5 ?CZ=0RA,RB;"S SHARES":RA=RA+1:RB=RB-.5 RA,RB;"A ALTER LEVELS":RA=RA+1:RB=RB-.5:NL=1NO>0RA,RB;"R RESERVES/YOUTH TEAM":RA=RA+1:RB=RB-.5 9RA,RB;"C CHANGE STRIP":RA=RA+1:RB=RB-.5 LNI=0RA,RB;"G GROUND IMPROVEMENTS":RA=RA+1:RB=RB-.5 ARA,RB;"T TICKET PRICE":RA=RA+1:RB=RB-.5:RA,RB;"W WAGES/CONTRACTS":RA=RA+1:RB=RB-.5:RA,RB;"F FA CUP FIXTURES":RA=RA+1:RB=RB-.5:RA,RB;"L LEAGUE CUP FIXTURES":RA=RA+1:RB=RB-.5:CP=0O1>0RA,RB;"P POSTPONMENTS":RA=RA+1:RB=RB-.5 RCI=(MB-1)UA=0RA,RB;"D DIRECTORS":RA=RA+1:RB=RB-.5 /6;RA,RB;"M MAIN MENU":HW=1001 D$=:1010-(D$="") .1}L,1 1D$="R"NL=1NO>0D$="P":902 D$="A"D$="8":902  D$="G"NI=0110n BD$="F"J=3:NK=0:HW=1053:D$="70":902 BD$="L"J=1:NK=0:HW=1053:D$="70":902 D$="T"D$="J":902 'D$="S"CZ=0D$="66":902 D$="W"D$="N":902 2D$="P"CP=0O1>0D$="14":902  3D$="E"OZ=0D$="67":OZ=1:902 D$="C"D$="Z":902 6D$="D"CI=(MB-1)UA=0D$="4":902  1009-(D$="M")*1003 R !"R":3,0:"R1" t::1;20,18;"BANK";0;" `";AI:HG=((X(IB)+19)/20):1024-(HF=3) <HG=AP:3,9 ;Z$;19;"DIV ";AP:1025 13,9 ;Y$(X(IB));19;"DIV "; HG 1;(T(IB)+3);6,8;(144+T(IB));4;0;10 ;V$(IB);19;H(IB);22;G(IB);8,12 ;1;1;7;"TEMPER ";E(3,IB):1028-(HI=0HF=1)*2 `21,0;"DO YOU WANT TO NEGOCIATE Y/N ":="N"D$="R1":HW=1001:901 1026+(="Y")*2 Z21,0;" ":1030-(HI<1HF=1) fLL=8:10 ,0;"MONEY OFFER `";:270:HI=ZA:1030-(HI<1HI> AI) 6HF<310 ,0;"MONEY OFFER `";HI ,1037 -(HJ=0HF=1)*5 Z21,0;"DO YOU WANT TO LOAN Y/N ":1032+(="Y")+(="N")*5  HK=0:332L:90Z:LL=2:6;21,0;"LOAN WHICH PLAYER ";21,18;:270:HK=ZA:1033 +(HK>0HK<21)  W1035 -(HL=HKJ(HK)=42*J(HK)=35#J(HK)=82RT(HK)=0)*2  G(HK)=G(HK):LL=2:6;21,0;"HOW MANY WEEKS LOAN ";21,20;:270:HJ=ZA:1022    7881q:1043-(HL=0HF=1)*5 Z21,0;"DO YOU WANT TO FREE TRANSFER Y/N":1038+(="Y")+(="N")*5 332L:90Z HL=0:LL=2:6;21,0;"FREE TRANSFER PLAYER No ";21,24;:270:HL=ZA:1041-(HL<1HL>20HL=HK) R1022+(T(HL)=0J(HL)=76LJ(HL)=82RJ(HL)=42*)*18  6883s:H(IB)=1EV=6500d:1045 XEV=5000*(H(IB)-1)*(H(IB)-1)*2+(H(IB)>9.6)*310000^ FU=(EV/3)+6000p:RA=EV+(*FU):EV=RA:RA=(G(IB)-28):RA=RA+(RA<0)*RA:RB=(EV/10 )*RA:EV=EV-RB:906 0HN=0:1048-(HF<2HL>0) HM=(4/HG):H(HL)HMHO=H(HL):HM=(G(HL)-26):HM=HM-(HM<0)*HM:HO=HO-HM:HO=HO-(HO<0)*HO:HO=HO+(HO=0):HN=(HO*HO*5000) $1050-(HF<2HJ>0) HO=0:HM=(4/HG):H(HK)>HMHO=H(HK):HM=(G(HK)-26):HM=HM-(HM<0)*HM:HO=HO-HM:HO=HO-(HO<0)*HO:HO=HO+(HO=0):HN=HN+(HO*HJ*100d) EV=EV-HN:1052-(EVHI) ]5;13 ,0;"TRANSFER FEE AGREED BY ";Y$(Y(3,IB-18)):1054 5;13 ,0;Y$(Y(3,IB-18));" REFUSE OFFER":HI=0:HJ=0:HK=0:HL=0:I=199c:I:RA=1+(*4):RA=1X(IB)=0 #HW=1001:D$="R1":901 LL=3:21,0;"HOW MANY WEEKS CONTRACT ";21,24;:270:HR=ZA:1055-(HR<2) 414,0;"CONTRACT";16;HR;" WEEKS"  ,1059#-(HF=1HF=3)*2 !LL=4:21,0;"HOW MUCH PER WEEK ` ";21,19;:270:HS=ZA:1058"-(HS<1) "115,0;"WEEKLY PAY";16;"`";HS #,1062&-(HF=1HF=3)*2 $LL=5:21,0;"HOW MUCH SIGNING ON FEE ` ";21,25;:270:HT=ZA:1061%-(HT<0(HT+HI)>AIHF<3) %16,0;"SIGNING ON FEE `";HT;21,0;" ":HF=3(HT+HI)>AI17,0;"DIRECTORS LOAN YOU `";((HI+HT)-AI):AI=(HI+HT) &HU=1+(*20)+502:HU=HU*H(IB)+(H(IB)>9.7333)*1000:HU=HU+((HG-AP)<-1)*( (HG-AP)*HU):HV=(G(IB)-27):HV=HV+(HV<1)*(HV+1):HU=(HU/HV):HU=HU+(HU<502)*(502-HU):D$="R2":HW=1011:901 iR1 !"R1":3,0:"R2" 64815/:Z7=0:EV=0:HK=0:HJ=0:HH=0:HI=0:HL=0::1;7;0,5;"BUYING";2;0,22;"OFFERS";6;0;11 ,5;"SELLING" dER=2:HD=5:HE=162:PZ=125}:I=2123:1003+(X(I)=0) 1021:ER,1;I-20;3;Y$(X(I));ER+1,1;(T(I)+3);1;(144+T(I));0;4;3;G(I);6;V$(I);15;H(I):ER=ER+3:HE=HE-24 I XER=13 :HE=74J:PZ=125}:I=2426:1006+(X(I)=0) 1021:ER,1;I-20;3;Y$(X(I));ER+1,1;(T(I)+3);1;(144+T(I));0;4;3;G(I);6;V$(I);15;H(I):ER=ER+3:HE=HE-24 uI:ER=2:HD=149:HE=162:PZ=101e:I=13:1008+(J$(I)=32 NC>0) 1021:ER,19;I+6;ER,21;J$(I);ER+1,21;"D";O(1,I);26;O(2,I):ER=ER+3:HE=HE-24:Z7=Z7+1 4I:890z:6;21,14;"M MENU"  849Q R="1"X(21)>0.1}L,1:IB=21:HF=1:1022 R="2"X(22)>0.1}L,1:IB=22:HF=1:1022 R="3"X(23)>0.1}L,1:IB=23:HF=1:1022 R="4"X(24)>0.1}L,1:IB=24:HF=2:1022 R="5"X(25)>0.1}L,1:IB=25:HF=2:1022 R="6"X(26)>0.1}L,1:IB=26:HF=2:1022 ]="7"ƯJ$(1)32 .1}L,1:IB=1:D$="Y":HW=1001:902 ]="8"ƯJ$(2)32 .1}L,1:IB=2:D$="Y":HW=1001:902 ]="9"ƯJ$(3)32 .1}L,1:IB=3:D$="Y":HW=1001:902  1010 GHD,HE:PZ,0:0,-21:-PZ,0:0,21: $D$="R":HW=1022::901 R2 !"R2":3,0:"X" .332L:D$="R1":HW=1001:901 LL=3:21,0;"HOW MANY WEEKS CONTRACT ";21,24;:270:HR=ZA:1003-(HR<2) 414,0;"CONTRACT";16;HR;" WEEKS" ,1007-(HF=1HF=3)*2 LL=4:21,0;"HOW MUCH PER WEEK ` ";21,19;:270:HS=ZA:1006-(HS<1) 115,0;"WEEKLY PAY";16;"`";HS ,1010-(HF=1HF=3)*2 LL=5:21,0;"HOW MUCH SIGNING ON FEE ` ";21,25;:270:HT=ZA:1009-(HT<0(HT+HI)>AI ) _16,0;"SIGNING ON FEE `";HT;21,0;" " HU=1+(*20)+502:HU=HU*H(IB)+(H(IB)>9.6)*1000:HU=HU+((HG-AP)<-1)*( (HG-AP)*HU):HV=(G(IB)-27):HV=HV+(HV<1)*(HV+1):HU=(HU/HV):HU=HU+(HU<502)*(502-HU) *OX=(HSHU):1039-(HS>HU )*27 MHV=((1000*H(IB))/AP):HV=HV+((HG-AP)<-1)*((HG-AP)*4)*HV 2OX=(HTHV)*2:1039-(HT>HV )*25 tIA=(G(IB)-23):IA=IA+(IA<1)*(IA+1):RA=1+(*2):IA=IA+(RA=2):IA=IA*535 2OX=(IAHR)*3:1039-(IA> HR)*23 *18,2;V$(IB);" AGREES TO SIGN";19,8;" ":V(2,IB)=HR:V(1,IB)=HS:X(IB)=X(IB)-(NT=0)*X(IB):AI=AI-(HF=1)*(HI+HT)-(HF=3)*HT:K=1502:K:1017-(HF=3NT=0)*16-(HF=3NT=1)*653 lY(3,IB-18)=0:Y(4,IB-18)=0:Y(5,IB-18)=0:HI=0 SI=120:V$(I)=32 AD=IB:652:Y=I:525 :1020 I HL01024 5HL=IB:1024:1001+(HK0)*21 I=13 20:J(I)=43+J(I)=32 J(I)=45-J(HK)=76L:U(HK)=HJ:AD=HK:652:Y=I:525 :1001 I V$(HL)="":H(HL)=0:T(HL)=0:X(HL)=0:E(1,HL)=0:E(2,HL)=0:G(HL)=0:J(HL)=32 :U(HL)=0:V(1,HL)=0:V(2,HL)=0: 98b:V$(27)=Z9+"."+H$(RC)+M$(RB)+H$(RD)+E$(RA):G(27)=18+(*15):T(27)=1+(*4):H(27)=1+(*(6-HG)): 98b:V$(28)=Z9+"."+H$(RC)+M$(RB)+H$(RD)+E$(RA):G(28)=18+(*15):T(28)=1+(*4):H(28)=1+(*(5-HG)):  4RA=1+(*20):1029+(RA=20) {19,8;"RE-NEGOCIATE Y/N":1029-(="N"HF<3)*28+(="N"HF=3)*18-(="Y")*27 2RA=1+(*80P):1031-(Y$(RA)=Z$) T(27)=0:T(28)=0:10 ,0;"MONEY OFFER `";EV:RA=1+(*5):892|:1033 -(RA=5ET<20H(IB)>1.9s333) DHJ=2+(*19):U(27)=HJ:J(27)=42*:1025:H(27)=1+(*(H(IB)-1)):H(27)=H(27)-(H(27)>5)*(H(27)-5):11 ,0;"LOAN ";HJ;" WEEKS";16;(144+T(27));" ";V$(27);27;H(27);30;G(27)  RA=1+(*10 ):892|:1035 -(RA=9 T(27)=0ET<20H(IB)>2.99RA=9 T(27)>0ET<19H(IB)>2.99)  1026:H(28)=1+(*(H(IB)-2)):H(28)=H(28)-(H(28)>5)*(H(28)-5):12 ,0;"FREE TRANSFER ";(144+T(28));" ";V$(28);27;H(28);30;G(28)  V18,7;"DO YOU ACCEPT Y/N":850R:1035 +(="N")+(="Y")*3  ;RA=1+(*4):1037 -(RA>1)*36$  &X(IB)=0:V$(IB)="":1001 ?1048:RA=1+(*20):1040-(RA=1) 18,2;V$(IB);" REFUSES TO SIGN "''" ":925:1050-(HF=3NT>0)*691 AI=AI+((EV/3)*2):I=2426:X(I)=X(I)-(V$(I)=V$(IB))*X(I):I:HL=IB:1024:1042-(T(27)0) \V(2,27)=HJ:V(1,27)=H(27)*502:AD=27:1045 "1044-(T(28)0) qHJ=0:AD=28:1045:IB=Y:HF=3:HL=0:NT=0:D$="R":HW=1022:901  1001 KI=201-1:V$(I)=32 652:Y=I:525 : I: RB=IB:18,2;V$(RB);"HAS GONE TO ";Y$(IB);'" ":HL=RB:1024:K=1502:K:1001-(NT=1)*637} *I=120:V$(I)=V$(IB)IB=I: I: 'I=IB:200:99c:1001 X !"X":3,0:"U" wRA=3-(AG>6AG<14)-(AG>13 )*2:RZ=1+(*RA):RA=(AG/4)-2:I=1RZ   RB=0+(*RA) uRB=RB+AP:RC=RB-(RB>4)*(RB-4)-(RB<1)*RB:RC=RC+(RC=0):RD=((RC*20)-19)+10 6RE=0+(*10 ):1011-(RC=AP)*4 61008-(T$(RE+11 )=Z$Y$(RD+RE)=Z$)*2 8K=1I-1:J$(K)=T$(11 +RE)1006 K NJ$(I)=T$(11 +RE):O(1,I)=AP:O(2,I)=11 +RE:1014 2K=1I-1:J$(K)=Y$(RD+RE)1006 K CRF=RD+RE:J$(I)=Y$(RF):O(1,I)=RC:O(2,I)=11 +RE I: U !"U":3,0:"B" GAAA=0:I=145687:CI=I152:1009 I pAAA=0:I=12 5467:CI=ICT0201:MQ=1:MR=CT:140:1009 *CI=ICV=0AAA=1:1009 I cI=1658:7:CI=ICR0203:MQ=2:MR=CR:140:1009 CI=ICV=0AAA=1 I PT=1 L1011+(DT=1)*3+(CV=1CP=1CQ=1)*3 UCJ=38&-(ID-1):I=38&2-2:CJ=IBK=1:1014 I  BK=2  UA=0:OZ=0:OQ=0:OP=0:HE=0:JN=0:X$="":JJ=0:JR=0:NP=NF+NA:OO=0:I=120:NP=NP+V(1,I):J(I)=73IY=I:525  MI:I=112 :NP=NP+Y(1,I):I:FM=(AI*.3/100d) !D$="W":HW=903:901 BB WWY!"B":3,0:"1" /1002+(CV=1CQ=1CP=1) DN=50000P+(*10000'):DN=(DN/AP)/AP:DN=DN-((1250/AP)/AP)*AG:DN=DN-((1250/AP)/AP)*MN:DN=DN-(AP=1)*(DN/3):1007 `CQ=1CP=1CS=1:CX=0+(CQ=1)*GZ+(CP=1)*6:1005 CX=CR:CT>CXCX=CT SDN=(7000X+(*2000))*(CX+2):BK=1DN=(DN/AP):1007  DN=(DN/CS) RA=((200/AP)/AP):RB=3+(*(RA-3)):OL=(502*RB):ON=(4+(*10000'))/AP:1008+(BK=2)*5 HDZ=(5-AP):NJ>DZRA=NJ-DZ:DN=(DN/RA):1011:1010 <NJRADN=RA 5DN=DN+(DN<0)*DN:DN=DN+1+(*502) 6AP<3NI=0DN>18721!IDN=18721!I  1010 KPG=PG+(PG=0)*DN:PF=PF+(PF=0)*DN:AAA=0DN>PFPF=DN AAA=0DN0)*17;4;7;"H";RB,17-(IB>0)*17;2;7;"A" DRA=RA+(Y$(RA+CM)=Z$):RB,2;Y$(RA+CM);RB,19;Y$(RA+CM) S(RB-1)IDRB,12 ;W$(RB-1)(1);"-";W$(RB-1)(2) V(RB+18)IDRB,29;W$(RB+18)(1);"-";W$(RB+18)(2) @RA=RA+1:RB=RB+1:1007-(RB<21)*5 CJ=0 56;21,5;"M MENU C CUP FIXTURES" 849Q:1009+(="C")  5;0,6;"LEAGUE CUP";0,24;4;"DIV":RA=1:I=2MT-(MT=9 ):O1=1020+(I>5)*(I-5):1012+(A$(1,I)=32 ) &1018+(A$(1,I)=65A) I:2;7;10 ,8;"FA CUP";10 ,24;0;4;"DIV":RA=2:I=2MS-(MS=9 ):O1=1020+(I>5)*(I-5):1014+(A$(2,I)=32 ) &1018+(A$(2,I)=65A) I:CJ=0 16;21,7;"M MENU F FIXTURES" (849Q:1017-(="F")*16 I+(RA=2)*10 ,0;Z$;" ";A$(RA,I)(12 );"-";A$(RA,I)(11 );" ";A$(RA,I)(210 );" ";A$(RA,I)(13 ):O1: I+(RA=2)*10 ,0;A$(RA,I)(210 );" ";A$(RA,I)(11 );"-";A$(RA,I)(12 );" ";Z$;" ";A$(RA,I)(13 ):O1: .I+(RA=2)*10 ,27;"RND ";I: ,I+(RA=2)*10 ,27;"Q.F.": ,I+(RA=2)*10 ,27;"S.F.": -I+(RA=2)*10 ,27;"FINAL": 314 MMO!"14":3,0:"6" !"13":4::0,10 ;"POSTPONMENTS":EV=2:I=118:1002+(N(1,I)=0)*2 QEV,4;Y$(N(1,I));19;Y$(N(2,I)):CJ=01005 EV=EV+1 I:1006 R=1+(*9 )-5:R=R+(R<0)*R:S=1+(*8)-5:S=S+(S<0)*S:R$=Y$(N(1,I)):S$=Y$(N(2,I)):EV,14;R;EV,17;S:1051: %CJ=0891{:1057!: =6;21,13 ;"M MENU":849Q:1007 6 M M O !"6":3,0:"66" FJQ=JQ-(JQ<0)*JQ:KC=KC-(KC<0)*KC:1002:1009  JQ=JQ-(JQ<0)*JQ:KC=KC-(KC<0)*KC::0,14;1;"BANK";0;2,2;"CURRENT ACCOUNT `";AI;4,2;"OVERDRAFT FACILITY `";KA;6,2;"AMOUNT OWED `";KC:JQ=08,2;"1 MORTGAGE" (KA>010 ,2;"2 LOAN" .KC>012 ,2;"3 REPAY LOAN" 1JQ>08,2;"4 REPAY MORTGAGE" }KC>0CF>0RA=(KC/CF):RA=(RA-(RA>40()*(RA-40()):16,2;"WEEKS TO END OF LOAN :";RA }JQ>0JP>0RA=(JQ/JP):RA=(RA-(RA>80P)*(RA-80P)):18,2;"WEEKS TO END OF MORTGAGE:";RA  ="2"KA>01015 ="1"JQ=01014 )="3"KC>0AI>01022 )="4"JQ>0AI>01024 848P:1009 1018:1001 1026:LL=8:8,1;"HOW MUCH? ";9 ,1;"BANK CHARGES 11% INTEREST";10 ,1;"MINIMUM `40 `";:270:KD=ZA:1017-(KD<40(KD>KA )  1001 1026:KA=KA-KD:AI=AI+KD:KD=KD+(KD/100 d)*11 :KC=KC+KD:CF=(KC/40():12 ,1;"REPAID OVER 40 WEEKS AT `";CF:K=1502:K:861]:1001 JQ=(1800000[/AP):8,1;"THE BANK WILL OFFER YOU";9 ,1;"`";JQ:ET=((JQ/100d)*26):JP=((ET+JQ)/80P):10 ,1;"REPAYMENTS ARE `";JP;12 ,1;"OVER 80 WEEKS Y/N" $1019+(="Y")*2+(="N") JQ=0: AI=AI+JQ:JQ=JQ+ET: 1026:LL=8:LL=8:8,1;"REPAY HOW MUCH"'" MINIMUM `40 `";:270:OD=ZA:1023-(OD>AIOD<40(OD >KC ) lKC=KC-OD:KA=KA+OD:AI=AI-OD:1027:861]:CF=(KC/40():KC=KC-(KC<40()*KC:1001 1026:LL=8:8,1;"YOU OWE `";JQ;" MORTGAGE";9 ,1;"REPAY HOW MUCH"'" MINIMUM `80 `";:270:OE=ZA:1025-(OE>AIOE<80POE<0OE >JQ ) VJQ=JQ-OE:AI=AI-OE:861]:JP=(JQ/80P):JQ=JQ-(JQ<80P)*JQ:1001 FI=812 :I,1;" ":I: KA=0KC=CO:1001  66 !"66":3,0:"67" &:CI=1AH=0AG=12 AK=AK+(AG< BX)*(BX-AG)*20:AK=AK-(AG> BX)*(AG-BX)*20:AK=AK+((1-AK)/2)*(1+(.95s333-AK)):BX=AG:1,8;"SHARES PRICE ";AK;"p";3,9 ;"1 SELL SHARES";5,9 ;"2 BUY SHARES";6;21,13 ;"M MENU":890z A850R:1003+(="1")+(="2")*3-(="M")*103g bLL=7:7,2;"SELL HOW MANY SHARES ";:270:DW=ZA:1005-(DW<0) 'CZ=1:AU=AU-DW:AV=(DW/1000):AV=AV+(AV<0)*AV:AK=AK-((AK/100d)*AV):AK=AK+((1-AK)/2)*(1+(.95s333-AK)):DX=(AK*DW)/100d:AK=AK-(AG-BX)*20:8,0;"THE CLUB HAS RAISED `";DX:AI=AI+DX:890z:JU=(AU<1):1008 iLL=7:7,1;"SPEND HOW MUCH MONEY `";:270:EO=ZA:1007-(EO>AIEO<0) OX=1:EP=(EO/4894):EP=EP+(EP<0)*EP:EP=EP*6:AK=AK+EP:EP=(EO/AK)*100d:AU=AU+EP:AK=AK+((1-AK)/2)*(1+(.95s333-AK)):AI=AI-EO:8,0;"YOU HAVE PURCHASED ";EP;" SHARES":890z:CZ=1 "I=199c:I:900 67 ##%!"67":3,0:"7" M:2;7;0,11 ;"EMPLOYEE'S":1003-(NL=1) '"1 SACK COACH":1004 '"1 HIRE COACH" 1006-(NM=1) F'"2 SACK PHYSIO ";I$(2);" ";Y(2,2);"%":1007 '"2 HIRE PHYSIO" 1009-(NN>0) '"3 SACK SCOUT" 1011-(NN<3) '"4 HIRE SCOUT" $1013-(NO>0NL=1) '"5 SACK YOUTH PLAYER" $1015-(NO<7NL=1) '"6 HIRE YOUTH PLAYER" &6;18,13 ;"M MENU" =1017+(="M")*35#+(="1")*5+(="2")*8 0="3"NN>0.1}L,1:1039 0="4"NN<3.1}L,1:1026 <="5"NO>0NL =1.1}L,1:1028 ;="6"NO<7NL=1.1}L,1:1033  850R:1016 d.1}L,1:NL=NL+(NL=0)-(NL=1):IB=1:1047:1024-(NL=0) 1045:1052 ]1044:Y(3,IB)=0:Y(4,IB)=0:Y(5,IB)=0:1052 X.1}L,1:NM=NM+(NM=0)-(NM=1):IB=2:1024-(NM=0) JI=35:I$(I)=32 IB=I:NN=NN+(NN<3):1024 I RA=6::5;0,11 ;"YOUTH TEAM";5,24;7;"TEMP":I=612 :1029+(I$(I)=32 ) RA,6;I;8;(Y(4,I)+3);1;(144+Y(4,I));4;0;10 ;I$(I);17;Y(5,I);21;Y(2,I);23;"%";25;Y(6,I):RA=RA+1 I uLL=2:15,0;"SACK WHICH PLAYER ";:270:IB=ZA:1052-(IB>5IB<13 )*20 (1031+(I$(IB)32 )*15  7I=612 :I$(I)=32 IB=I:1035   I  NO=NO+(NO<7)  1044:18,5;(Y(4,IB)+3);1;(144+Y(4,IB));4;0;7;I$(IB);14;Y(5,IB);17;"TEMPER ";Y(6,IB);21,2;"DO YOU WANT THIS PLAYER Y/N"  %1037 +(="N")+(="Y")*15 ORA=1+(*3):NO=NO-(RA=3):1023+(RA<3)*13 d:6;0,13 ;"SCOUTS":ET=3:I=35:1040+(I$(I)=32 ) ~ET,7;I;9 ;I$(I);16;Y(2,I);18;"%";20;"`";Y(1,I);25;"P/W":ET=ET+2 I dLL=1:15,0;"SACK WHICH ";:270:IB=ZA:1043-(IB<3IB>5) '1049-(I$(IB)=32 )*7 98b:I$(IB)=H$(RC)+M$(RB)+H$(RD)+E$(RA):Y(1,IB)=502+(IB<6)*(100d+(*100d)):Y(2,IB)=(0+(IB<6))+(*(11 +(IB<6)*88X)):Y(3,IB)=35#+(*65A):Y(4,IB)=1+(*4):Y(5,IB)=16+(*3):Y(6,IB)=-3+(*17):Y(6,IB)=Y(6,IB)+(Y(6,IB)<0)*Y(6,IB)-(Y(6,IB)>9 )*(Y(6,IB)-9 ):1050: 4I$(IB)="":F=16:Y(F,IB)=0:F: 'NO=NO-1:1045:1052 NL=1 UNO=0:I=612 :F=16:Y(F,I)=0:I$(I)="":F:I: &NN=NN-1:1045:900 IB>5 `18,4;I$(IB);11 ;Y(2,IB);"%";15;"`";Y(1,IB);" PER WEEK": "D$="O":HW=1001:901 GRA=1+(*99c):RA=8:1058"-(RA=8)*4 @IB=1+(*5):1055+(I$(IB)=32 )*3 PZ8=1:IB=1NL=NL-(NL>0):1045:1048:1058"  8IB=2NM=NM-(NM>0):1045:1058" ! NN=NN-(NN>0):1045 " F7 ))+!"7":3,0:"70" DEF=1::2;7;"P PLAYER AGE GOALS PLD INJURIES" :I=120:1003+(V$(I)=32 )*7 1;(T(I)+3);EF,0;(144+T(I));0;4+(G(I)<0)*2;1;V$(I);4;10 ;G(I);13 ;(T(I)=1);E(1,I);EF,16;E(2,I);0;20;X(I) =E(1,I)<0J(I)=82REF,24;"RETIRING" BU(I)>0J(I)=83SEF,24;U(I);26;"WK SUS" AU(I)>0J(I)=35#EF,24;U(I);27;"WEEKS" AU(I)>0J(I)=76LEF,24;U(I);27;"UNAVA" @U(I)>0J(I)=42*EF,24;U(I);27;"LOAN" EF=EF+1 I:CJ=0 848P:1011 70 ))+!"70":3,0:"8" 66:6::ET=1:ER=18-(J=1 OJ=4J=3OK=4)*2-(J=1OJ=5J=3OK=5)*10 -(J=1OJ=6J=3OK=6)*14-(J=1OJ=7J=3OK=7)*16-(J=1OJ=8J=3OK=8)*17 ,1003+(J=3)*5:1013 E1004+(OJ=8)*3+(OJ=7)*2+(OJ=6): 45;0,7;"LEAGUE CUP ROUND ";OJ: 85;0,4;"LEAGUE CUP QUARTER FINAL": 55;0,5;"LEAGUE CUP SEMI FINAL": 05;0,8;"LEAGUE CUP FINAL": E1009+(OK=8)*3+(OK=7)*2+(OK=6): 92;7;0,9 ;"FA CUP ROUND ";OK: =2;7;0,6;"FA CUP QUARTER FINAL": :2;7;0,7;"FA CUP SEMI FINAL": 62;7;0,10 ;"FA CUP FINAL": w0,0;"DIV";0,29;"DIV":RB=2:I=ETER:OE=0+(Y$(Z(J,I))=Z$Y$(Z(J+1,I))=Z$) %RD=((Z(J,I)+19)/20):RE=((Z(J+1,I)+19)/20):AY=RD+480:AY=AY+(AY=535)*25:AZ=RE+480:AZ=AZ+(AZ=535)*25:D$=AY+" "+Y$(Z(J,I))+" v "+Y$(Z(J+1,I))+" "+AZ:(Y$(Z(J,I))=Z$Y$(Z(J+1,I))=Z$);2;RB,1;D$ ,1016+(NK=1OE=0)*6 *RB=RB+1:I:ER=11050 w1020-(J=1OJ>1OJ<4ET=1J=3OK>1OK<4ET=1NK=1)*2  1035  ET=ER+1:ER=ER+(J=1OJ=2J=3OK=2)*6+(J=1OJ=3J=3OK=3)*14:RB=2::1002 .1020+(NK=0)+(NK=1)*8 O850R:6;21,13 ;"M MENU":1021-(="M")*121y (RC=(RD-RE):RF=0+(RE> RD):R=-1+(*7):R=R-(RF=0)*RC:R=R+(R<0)*R:S=-1+(*6):S=S-(RF=1)*RC:S=S+(S<0)*S:R=SRB,0;1;"R";0;RB,14;R;"v";S:EA=Z(J,I):Z(J,I)=Z(J+1,I):Z(J+1,I)=EA:1014 1RB,14;R;"v";S:F=1+(*64@) #1025+(L(F)0)*2 R>SL(F)=Z(J,I):1016 &R1OJ<4ET=1J=3OK>1OK<4)  1035   _:1003+(J=3)*5:0,0;"DIV";0,29;"DIV"::996 6F=1:K=1(RB/2):I=01 'L(F)=0F=F+1:1039 6Z(J+I,K)=L(F):L(F)=0:1047:F=F+1 I:K :891{:I=1(RB/2):997:J=1Y$(Z(J,I))=Z$A$(1,MT)(211 )=Y$(Z(J+1,I)):A$(1,MT)(1)="H":A$(1,MT)(13 )=RY:1046 J=1Y$(Z(J+1,I))=Z$A$(1,MT)(211 )=Y$(Z(J,I)):A$(1,MT)(1)="A":A$(1,MT)(13 )=RZ:1046 J=3Y$(Z(J+1,I))=Z$A$(2,MS)(211 )=Y$(Z(J,I)):A$(2,MS)(1)="A":A$(2,MS)(13 )=RZ:1046 J=3Y$(Z(J,I))=Z$A$(2,MS)(211 )=Y$(Z(J+1,I)):A$(2,MS)(1)="H":A$(2,MS)(13 )=RY I: 23692\,9 :RD=((Z(J+I,K)+19)/20)+480:RD=RD+(RD=535)*25:I=0(Y$(Z(J,K))=Z$);1;RD;" ";Y$(Z(J,K));" v ";: 4(Y$(Z(J+1,K))=Z$);Y$(Z(J+I,K));" ";RD: /L(64@):NK=0:CV=1:87W J=1RA=14+(Y$(Z(J+1,1))=Z$)*2:RB=14+(RA=14)*2:D$(RARA)=R:D$(RBRB)=S:P$(1)=D$ J=3RA=14+(Y$(Z(J+1,1))=Z$)*2:RB=14+(RA=14)*2:D$(RARA)=R:D$(RBRB)=S:P$(2)=D$  A1001+(J=1OJ=9 J=3OK=9 )*535 OK=OK-(J=3OK=9 ):OJ=OJ-(J=1OJ=9 ):6:6::1003+(J=3)*5:OJ=OJ+(OJ=8J=1):OK=OK+(OK=8J=3):1055+(J=3) *2,1;P$(1):1057!  2,1;P$(2) ! 1021 \8 !"8":3,0:"9" 8:6;20,5;"C CHANGE LEVELS M MENU" 1002+(AB+2) +(JT=-1);8,12 ;"3 EASY" +(JT=0);10 ,12 ;"2 NORM" ,(JT=+1);12 ,12 ;"1 HARD" ="M"900 '1006+(="C"AB<1)*2 vLL=1:16,0;"WHICH LEVEL? ";:270:RA=ZA:1009-(RA<1(2-RA)3) "JT=2-RA:AB=JT:1001 ?9 !"9":3,0:"C" @Y=120:J(Y)=42*U(Y)=1I=Y:200 1003+(U(Y)=0) oU(Y)=U(Y)-1:U(Y)=0H(Y)=H(Y)-.4L:J(Y)=32 +(E(1,Y)<0)*502:525  >X(Y)=X(Y)+(Y<12 ):Y:1005+(AAA=1)*4 qME=ME+(R1> S1)*(ME/2)-(R1< S1)*(ME/2):ME=ME-(ME>99c)*(ME-99c):ME<2ME=2 lY=111 :T(Y)>2H(Y)>0H(Y)=H(Y)+(R1> S1 )/20-(R1< S1 )/25:1008 WH(Y)>0H(Y)=H(Y)+(R1> S1 )/20-(R1< S1 )*.06|u\+(S1=0)*.03{u\ 523 :Y:AA=(R1< S1 )  C !"C":3,0:"H" B0:0::11 ,4;"ENTER NAME OF SAVED GAME" nLL=8:PX=33!:PY=122z:12 ,12 ;:270:1003-(X$<1űX$> 8)   1007:2;7;11 ,6;"START ORIGINAL TAPE":4:"M1":"M2"::2;7;11 ,11 ;"STOP TAPE":3,10 :1001:1007:2;7;11 ,6;"LOAD SAVED GAME TAPE":4:X$:0:0:6 0:1001::2;7;11 ,2;" PLEASE INSERT BLANK TAPE ":236077\,60<:23635S\,23627K\:23636T\,23628L\:X$:23635S\,203:23636T\,92\:236077\,249::11 ,9 ;"SAVE AGAIN Y/N":0:6+(="Y")*1000 V4:4:0::2,2;1;3;7;"LOADING": pH 335!"H":3,0:"J" <NP=0:OC=0:RX=F(2,AG):RY=F(1,AG) zRA=0+(*5):RZ=12 +RA:ME=30+(*20):Y=120:Y>RZI=Y:200:1013 {H(Y)=(AP-5)+(*39')/10 :T(Y)=1+(Y>1Y<6)+(Y>5Y<9 )*2+(Y>8Y<12 )*3+(Y>11 )*(*4):OC=OC+(T(Y)=1):G(Y)=18+(*18):V(1,Y)= 1+(*20)+502:V(1,Y)=V(1,Y)*H(Y)+(H(Y)>9.6)*1000:HV=(G(Y)-27):HV=HV+(HV<1)*(HV+1) V(1,Y)=(V(1,Y)/HV):V(1,Y)=(V(1,Y)+(V(1,Y)<502)*(502-V(1,Y))):NP=NP+V(1,Y):V(2,Y)=20+(*568):E(1,Y)=0:X(Y)=30+(*(((G(Y)-17)*30)-30)):E(2,Y)=0:RA=-3+(*17):RA=RA+(RA<0)*RA-(RA>9 )*(RA-9 ):E(3,Y)=RA:98b:V$(Y)=Z9+"."+H$(RC)+M$(RB)+H$(RD)+E$(RA) !1006+(RY=0)*3 #1007+(T(Y)=1)*2 VT(Y)=4E(1,Y)=0+(*(RY+1)):RY=RY-E(1,Y):1010 IE(1,Y)=0+(*(RY/2)):RY=RY-E(1,Y):1010 VRX>0T(Y)=1E(1,Y)=0+(*(RX+1)):RX=RX-E(1,Y) _T(Y)=1E(2,Y)=(X(Y)-(X(Y)/4))+(*(X(Y)/4))+E(1,Y):1013 VT(Y)=2T(Y)=3E(2,Y)=E(1,Y)+(*(X(Y)/6)):1013 ST(Y)=4E(2,Y)=(X(Y)/6)+(*(X(Y)-(X(Y)/3)))+E(1,Y) 525 :Y:NW=150+(*200):NW=NW/AP:NV=200+(*300,):NV=NV/AP:AI=150000|+(*(500000t$/AP)) ?NF=(5000+(*3000 ))/AP:NP=NP+NA+NF:332L: J <5>!"J":3,0:"L" 0:9 ,3;"CURRENT TICKET PRICE `";NJ LL=3:11 ,1;"TYPE NEW TICKET PRICE IN PENCE"'14;"p";:270:ZA=(ZA/100d):1003-(ZA<.1}LZA>9.99 =) CNJ=ZA:9 ,25;NJ;" ":K=1502:K:900  =L yy{!"L":3,0:"N" ZNA=(200-(7.5p*AG))*(5-AP):NG=NA:NB=(NA/100d)*20:NA=NA-NB NC=((20/AG)*10 )+(1+(*20)):NE=(14-AG)-(0+(*7)):NE=NE+(NE<0)*NE::0,10 ;Z$;" FC"''"THE BOARD OF DIRECTORS OFFER YOU"''"`";NA;" PER WEEK"'"AND A ";NC;" WEEK CONTRACT" !19,14;"SIGNATURE:" !1013-(NU=1)*8 &21,8;"RE-NEGOCIATE Y/N" $1006+(="N")*4+(="Y") NA8G$F$) 5F$=G$:19,24;F$:NU2755  '21,7;"DO YOU ACCEPT Y/N" ="N"NC=0:6 3="Y"1010:I=199c:I:6  1014 N !"N":3,0:"P" sER=1:NP=0::1;7;1;0,0;"P PLAYERS WAGES";20;"CONTRACT TEM" 2I=120:1003+(V$(I)=32 ) %NP=NP+V(1,I):H$=(144+T(I)):1;(T(I)+3);ER,0;H$;4;0;" ";4+(G(I)<0)*2;V$(I);4;11 ;"`";V(1,I);20;V(2,I);" WEEK"+(32 +(V(2,I)>1)*513);30;E(3,I):ER=ER+1 uI:2;7;21,4;"TOTAL";4;0;" `";NP;6;21,22;"C CONTINUE"  850R:1006+(="C") :1;7;1;0,0;" STAFF NAME WAGES CONTRACT ";4;0;0;'"MANAGER";8;F$;17;"`";NA;23;NC;" WEEK"+(32 +(NC>1)*513):RA=NA _I= 112 :1009+(I=2)+(I>2I<6)*2+(I>5)*3 RI+1,0;"COACH";8;I$(I);17;"`";Y(1,I):1013 SI+1,0;"PHYSIO";8;I$(I);17;"`";Y(1,I):1013 SI+1,0;"SCOUT";8;I$(I);17;"`";Y(1,I):1013 HI+1,0;"YOUTH P";8;I$(I);17;"`";Y(1,I) ~RA=RA+Y(1,I):I:5;15,0;"DIRECTORS & OTHER GENERAL STAFF";4;'17;"`";NF:RA=RA+NF 7;17,2;"1st TEAM TOTAL `";NP:NP=NP+RA:18,17;"--------";2;7;19,11 ;"TOTAL";4;" `";NP &6;21,13 ;"M MENU" )850R:1016-(="M")*116t +P !"P":3,0:"S" 892|::5;0,11 ;"YOUTH TEAM";7;0;3,7;"COACH:";I$(1);22;Y(2,1);"%" hRB=6:7;5,24;"TEMP":I=17:1003+(I$(I+5)=32 ) RA=0+(Y(2,I+5)=Y(3,I+5)):RB,6;I;8;(Y(4,I+5)+3);1;(144+Y(4,I+5));0;4;10 ;I$(I+5);17;Y(5,I+5);21;RA;Y(2,I+5);0;23;"%";25;Y(6,I+5):RB=RB+1:RA=119,0;"COACH:HE IS AS GOOD AS POSSIBLE" I:A3<8NO>06;15,2;"A PROMOTE PLAYER TO 1st TEAM ";17,2;"PLAYER MUST BE RATED OVER 49%" 86;21,13 ;"M MENU":="M"900 >850R:1005+(="A"ET<20NO>0)*2 LL=1:15,2;"PROMOTE PLAYER No? ";15,21;:270:HC=ZA:1008-(HC<1HC>7) N1009-(I$(HC+5)=32 Y(2,HC+5)<502)*8 3I=13 20:1010+(V$(I)=32 ) I:1001 H(I)=(Y(2,HC+5)/30):H(I)=H(I)+0+(*3)/10 :H(I)=H(I)+(AP<3)*(3-AP):H(I)<1H(I)=1.1 98b:V$(I)=Z9+"."+I$(HC+5):T(I)=Y(4,HC+5):G(I)=Y(5,HC+5):E(3,I)=Y(6,HC+5):Y=I:525 :I$(HC+5)="":J=16:Y(J,HC+5)=0:J:Y=I:525  [HL=0:NO=NO-1:NT=0:IB=I:HF=3:HW=1022:D$="R":901 iS    !"S":3,0:"Y" 9OZ=0:CZ=0:891{:767:751 :892|:ET=ET-12 :JW=84T-(AG*4)+(CT/2)+(CR/2)+(GZ/2)+(ET/2.5 ):RA=AI/((999999t#/AP)/4):RA=RA-(RA>4)*(RA-4):JW=JW+RA:1003+(AG>3) eEE=(50000P/AP)/AG:7,7;"LEAGUE PRIZE MONEY";9 ,12 ;"`";EE:AI=AI+EE TBE=(BE=1GZ=10 AP=1AG=1):1007-(BE=0)*2 _BE=(BE=2GZ=10 AP=1AG>1AG<6)*2:1007-(BE=0) ;BE=(BE=3GZ=10 CT=9 CR=9 )*3 GZ=(BE0)*3 "1009+(AG<18)*3 -1010+(AP<4AG>17)*3 %1011+(AP=4AG<20) S5,0;"YOU HAVE BEEN SACKED BY YOUR FELLOW DIRECTORS":1000: .1013-(AP=1AG>5)*420 11 ,2;"MANAGER RATING ";JW;"%";" ";13 ,2;"SEASON TICKET SALES `";DN:863_:AH=AH+1:AI=AI+DN:1015:891{ yAK=AK-(AP<4AG>17)*400:AP=AP+(AG>17AP<4)-(AG<4AP>1):BX=(AG<4)*(17+AG)-(AG>17)*(AG-17):AK=AK+(AG<4)*60<-(AG>17)*60<:813-:814.:1023:4:755:858Z:416:413:332L:1029:NF=(5000+(*3000 ))/AP:OY=5:69E @I=14:RA=(I*20)-19:AP=I1017 [K=110 :1020:RC=RB:1020:D$=Y$(RC):Y$(RC)=Y$(RB):Y$(RB)=D$:K #:0,11 ;"DIVISION ";I K=019:0+(I=1K>16I=1K=0I=4K<3I=2K<3I=2K>16I=3K<3I=3K>16I=4K=19);K+1,10 ;K+1;K+1,13 ;Y$(RA+K):K:1021 I:1021 RB=RA+(*20): *21,11 ;"C CONTINUE":="C" 850R:1021 [I=242:CN=I*20:CM=CN-19:1023+(I/2):I:I: 01026:1028:1027:1028 w1027:1028:RA=1+(*16):D$=Y$(80P):Y$(80P)=Y$(80P+RA):Y$(80P+RA)=D$: TQN=CN-2:QO=CN-1:QQ=CN:QP=CN+1:QR=QP+1:QS=QP+2: TQN=CM:QO=CM+1:QQ=CM+2:QP=CM-3:QR=QP+1:QS=QP+2: qX$=Y$(QN):D$=Y$(QO):U$=Y$(QQ):Y$(QN)=Y$(QP):Y$(QO)=Y$(QR):Y$(QQ)=Y$(QS):Y$(QP)=X$:Y$(QR)=D$:Y$(QS)=U$: I=612 :Y(5,I)=Y(5,I)+(I$(I)32 ):Y(5,I)=19I$(I)="":NO=NO-1:J=15:Y(J,I)=0:J I: JY EEG!"Y":3,0:"Y1" pNA=(200-(7.5p*O(2,IB)))*(5-O(1,IB)):NG=NA:NB=(NA/100d)*20:NA=NA-NB NC=((20/AG)*10 )+(1+(*20)):NE=(14-O(2,IB))-(0+(*7)):NE=NE+(NE<0)*NE w:0,10 ;J$(IB);" FC"'"THE BOARD OF DIRECTORS OFFER YOU"''"`";NA;" PER WEEK AND"'"A ";NC;" WEEK CONTRACT" -19,14;"SIGNATURE:":1014 @.1}L,0:NC=0:1006+(Z7=1)*11 EJ$(IB)="":O(1,IB)=0:O(2,IB)=0:1024 u21,3;"RE-NEGOCIATE Y/N M MENU":="M".1}L,0:NC=0:D$="R1":HW=1001:902 -1014+(="N")*18-(="Y")*9 NA0)*80P:I PRA=RA-(RA>71G)*(RA-71G):RB=RA+(*10 ):1022-(Y$(RB)=Z$) rRB>(CM-1)RB<(CN+1)RB=RB-(RB/20)*20:RB=RB+(T$(RB)=Z$):O(1,IB)=AP:1030 J$(IB)=Y$(RB):O(1,IB)=1+(RB>20RB<41))+(RB>40(RB<61=)*2+(RB>60<)*3:O(2,IB)=RB-((O(1,IB)*20)-20) #D$="R1":HW=1001:901 "1026+(RB>20)*5 !1030-(T$(RB)=Z$)*11 4I=120:T$(I)=J$(IB)RA=I:1029 I PRA=RA-(RA>11 )*(RA-11 ):RB=RA+(*10 ):1030-(T$(RB)=Z$) -J$(IB)=T$(RB):O(2,IB)=RB:1024 VRB=RB-20:RA=O(1,IB)+1:RB=RB+((RA*20)-20):1023 .1}L,0:1042:OW=0:AU=100000CP:JQ=0:KC=0:OQ=0:891{:RX=(AP=O(1,IB)):AK=2000-(O(1,IB)*400):BX=1:D$=Z$:Z$=J$(IB):J$(IB)=D$:NI=NI-(O(1,IB)>2)*NI:AP=O(1,IB):PS=IB:1044:IB=PS:AG=O(2,IB):5:CJ=38&-(ID-1):1053:1033 +(RX=1)*5  nRA=(AP*20)-19:K=118:N(1,K)>0ET=N(1,K):EV=1:1036   ?N(2,K)>0ET=N(2,K):EV=2:1036   @K:I=120:T$(I)=Y$((RA-1)+I):I:1038  >I=120:T$(I)=Y$(ET)N(EV,K)=((RA-1)+I):  I: gI=1ID:W$(I)="":I:J(28):E(3,28):!"H":1001:AP<3NI=1 'RA=1+(*3):I=1RA GRB=1+(*20):1041-(V$(RB)=32 G(RB)<0) CG(RB)=G(RB)-(G(RB)*2):I:D$="Y1":HW=1001:902 bPX=32 :PY=122z:LL=8:19,24;:270:G$=X$:1043-(G$F$) 19,24;F$: DT=0:CV=0:CT=0:CR=0:A$(2,8,13 ):J=132:AP<3CI<13 J=1CT=3:MT=3:1052 FAP<3CI<17J=3CR=3:MS=3:1052 .996:I=1(RB/2):997 J=1Y$(Z(J,I))=Z$CT=OJ:MT=CT:A$(1,MT)(211 )=Y$(Z(J+1,I)):A$(1,MT)(1)="H":A$(1,MT)(13 )=RY:PT=1:!"U":1003:PT=0:1052 J=1Y$(Z(J+1,I))=Z$CT=OJ:MT=CT:A$(1,MT)(211 )=Y$(Z(J,I)):A$(1,MT)(1)="A":A$(1,MT)(13 )=RZ:PT=1:!"U":1003:PT=0:1052 J=3Y$(Z(J,I))=Z$CR=OK:MS=CR:A$(2,MS)(211 )=Y$(Z(J+1,I)):A$(2,MS)(1)="H":A$(2,MS)(13 )=RY:PT=1:!"U":1003:PT=0:1052 J=3Y$(Z(J+1,I))=Z$CR=OK:MS=CR:A$(2,MS)(211 )=Y$(Z(J,I)):A$(2,MS)(1)="A":A$(2,MS)(13 )=RZ:PT=1:!"U":1003:PT=0:1052 I J: RC=ID-1:RC=RC-(RC>18)*19:RD=RC+V:V=RD:RF=0:RE=0:I=CMRD:RE=RE+(Y$(I)=Z$RE=0):RF=RF+(Y$(I)=J$(IB)RF=0):I:ID=ID+(RF=1RE=0):V=V+(RF=1RE=0RF=0RE=1RF=1RE=1): Y1 !"Y1":3,0:"Z" GI=312 :I$(I)="":K=15:Y(K,I)=0:K:I NL=1:NM=1:I=12:98b:I$(I)=H$(RC)+M$(RB)+H$(RD)+E$(RA):Y(1,I)=502+(*200):Y(2,I)=1+(*100d):I :NN=0+(*4):1004+(NN=0)*3 I=1NN:98b:I$(I+2)=H$(RC)+M$(RB)+H$(RD)+E$(RA):Y(1,I+2)=502+(*200):Y(2,I+2)=1+(*99c):Y(4,I+2)=1+(*4):Y(5,I+2)=1+(*9 ) VY(3,I+2)=1+(*80P):1006-(Y$(Y(3,I+2))=Z$) I 2NO=0+(*5):1008+(NO=0) I=1NO:98b:I$(I+5)=H$(RC)+M$(RB)+H$(RD)+E$(RA):Y(1,I+5)=502:Y(2,I+5)=0+(*60<):Y(3,I+5)=35#+(*65A):Y(4,I+5)=1+(*4):Y(5,I+5)=16+(*2):Y(6,I+5)=-3+(*17):Y(6,I+5)=Y(6,I+5)+(Y(6,I+5)<0)*Y(6,I+5)-(Y(6,I+5)>9 )*(Y(6,I+5)-9 ):I b416:413:I=13:J$(I)="":O(1,I)=0:O(2,I)=0:I :RA=0+(*3):1011+(RA=0)*2 I=1RA:K=120:V$(K)32 ƽG(K)>28J(K)82RE(1,K)=E(1,K)-(E(1,K)*2):G(K)=G(K):J(K)=82R:1013 K =I:RA=0+(*3):1014+(RA=0)*6 qK=1RA:I=1+(*12 ):U(I)=0U(I)=1+(*5):J(I)=35#:AD=I:1017  K:1020 8J=13 20:V$(J)=32 I=J:652: J: kNJ=1+(4-AP):NQ=-1:I=2126:X(I)=0:V$(I)="":I:332L:89Y 3PT=1:!"U":1003:PT=0:6 Z !"Z":3,0:"AB" 7:7::1;7;3,11 ;Z$;7;2;6,3;"1st STRIP";3;6,20;"2nd STRIP":1002:1003:1005 ,SA;SB;8,7;(157+SC): -SD;SE;8,24;(157+SF): 10;6;20,13 ;"M MENU": R1013:7;2;12 ,7;"C CHANGE 1st STRIP":1004 &1006-(="M")*106j+(="C") 1013:12 ,8;"I CHANGE INK";14,8;"P CHANGE PAPER";16,8;"G CHANGE GRAPHIC";18,8;"S SWAP STRIPS" T1008+(="I")+(="P")*2+(="G")*3+(="S")*4+(="M")*6 ASA=SA+(SA<7)-(SA=7)*7:1002:1008 ASB=SB+(SB<7)-(SB=7)*6:1002:1008 ASC=SC+(SC<5)-(SC=5)*4:1002:1008 cMJ=SA:SA=SD:SD=MJ:MK=SB:SB=SE:SE=MK:ML=SC:SC=SF:SF=ML:1002:1003:1008 QI=12 182:I,0;" ":I: vSA=SDSB=SESC=SF1;12 ,0;" TWO STRIPS THE SAME NOT ALLOWED":I=1100d:I:1007  MJ=SA:MK=SB:ML=SC:900 -AB UUW!"AB":3,0:"4" 8Y=1+(*3):1004-(Y=1)*2 AY=2+(*10 ):1003-(T(Y)=0T(Y)=4) 1;7;AR,AQ;V$(Y);" ";MJ;MK;(157+ML);7;0;" ";N:E(1,Y)=E(1,Y)-(E(1,Y)<0)+(E(1,Y)>-1):E(2,Y)=E(2,Y)+1:H(Y)=H(Y)+.04|# =:JB=JB+(CQ=1):1008 4Y=2+(*10 ):1003+(T(Y)<4) E(1,1)=E(1,1)-(E(1,1)<0BA>0)+(E(1,1)>-1BA>0):E(2,1)=E(2,1)+(BA>0) <98b:V$(21)=Z9+"."+H$(RC)+M$(RB)+H$(RD)+E$(RA) o7;1;AR,AQ;V$(21);" ";MI;MH;(157+MG);7;0;" ";N:JC=JC+(CQ=1) HAQ=AQ+(AR=7)*15:AR=AR+(AR<7)-(AR=7)*3: RA=0+(*4):MD=90Z+RA:RA=1+(*3):BN=0:BO=0:LA=0:LB=0:B(8):C(8):BN=BN+(BDBB)*BB+(BD < BB)*BD-(EJ/2)+(BK=1)-(AA=1)-(BJ >3)+(RA=1ME >80P)-(RA=3ME < 30)-((PV-PU)>29):RA=1+(*5):BO=BO+(ELEK)*EK+(EL < EK)*EL-(BC/2)-(BC=BBBB=BD)+(RA=1MM >80P)-(RA=3MM <30)-((PU-PV)>29):1010+(BN<1) DM=1BN:RA=0+(*8):LA=LA+(RA>(EI/2)):M 1012+(BO<1) SM=1BO:RA=0+(*(8+(AP=1))):LB=LB+(RA>(BA/2)):M @RA=LA+LB:RA>8LA=LA-1:LB=LB-1:1013 -LA=LA-R:LA<0LA=0:1016 CM=1LA:B(M)=(N+2)+(*(MD-1)):C(M)=1:M #LB=LB-S:LB<0LB=0: OM=(LA+1)(LB+LA):B(M)=(N+2)+(*(MD-1)):C(M)=2:M: ;4 ]]_!"4":3,0:"AD"  UA=0:6;3,11 ;"DIRECTORS";4;8,1;"HOW MUCH MONEY DO YOU WANT FROMTHE DIRECTORS FOR NEW PLAYERS.";11 ,11 ;"`";:270:UA=ZA:1003-(UA=0) H13 ,1;"DIRECTORS: ";: 1004+(AI>50000P)*2 qRA=20000 N+(*480000j`):RB=1+(*3):RA=(RA/AP):(RA/RB)>UA"AGREE":AI=AI+UA:900 "REFUSE":900 :RA=1+(*3):1007-(RA<3)*2 DRA=(AI/100d)*20:"WITHDRAW `";RA:AI=AI-RA:900 "AD !!"AD":3,0:"MAIN" MFL=1+(*18):RA=1+(*2):BU>80PRA=2 :892|:1053+(BU<81QFL>11 )*11 ;ET<13 T(FL)=0J(FL)=42*J(FL)=82R AI=13 20:T(I)=0IE=I:JS=0:1056  I:JS=1:  -1057!+(BU<81QRA=2)*6 !RA=((60</100d)*Y(2,2)):U(FL)=0+(*32 )-8:RB=((U(FL)/100d)*RA):U(FL)=U(FL)-RB:U(FL)=U(FL)-(U(FL)<0)*U(FL):U(FL)=U(FL)+(U(FL)=0):J(FL)=35#:1058"+(BU>80P)*2 "5;17,8;V$(FL);" INJURED";18,6;V$(12 );" SUBSTITUTED":MP=15;18,6;Z$;" HAVE TEN MEN":1061% #X MP=1:4;21,0;" ":1061% $KV$(FL);" INJURED FOR ";U(FL);" WEEK"+(32 +(U(FL)>1)*513) %`I=12 :AD=FL:652:I=IE:AD=12 :652:BU<81Q332L:1009 & 'U(FL)=2:J(FL)=83S:5;17,7;V$(FL);" SENT OFF";18,5;Z$;" HAVE TEN MEN":I=IE:AD=FL:652:332L:1009:C(8)=2:B(8)=(N+((MD-N)/2)): (98b:V$(21)=Z9+"."+H$(RC)+M$(RB)+H$(RD)+E$(RA):5;17,7;V$(21);" SENT OFF";18,5;S$;" HAVE TEN MEN":C(8)=1:B(8)=(N+((MD-N)/2)): eMAIN VV VrY$(106j,9 ):E$(26,3):3,0:"Y$"Y$():3,0:"E$"E$():3128 #O1=0:OZ=0:CF=0:AP=4:NH=0:NI=0:JV=0:KC=0:JL=0:AA=0:AD=35#:AG=20:AH=0:AK=180:CL=11 :JS=0:GZ=0:JQ=0:JM=0:JN=0:NJ=1:JW=0:JU=0:AM=0:AU=100000CP:AV=0:AAA=0:BE=0:OQ=0:OP=0:T$(20,9 ):V$(28,8):J(28):T(28):H(28):M(8):U(28):G(28):V(2,28):X(28):E(3,28) I$(12 ,6):Y(6,12 ):J$(3,9 ):O(2,3):BX=12 :NL=0:NM=0:NN=0:NO=0:NS=1:NT=0:HI=0:HJ=0:HK=0:HL=0:OB=0:NU=1:ND=0:PA=0:PB=0:PC=0:PD=0:PE=0:PF=0:PG=0:LL=9 :PX=480:PY=579:JP=0:PU=0:PV=0:MI=0:MH=2:MG=3:PT=0:OY=5:Z8=0:4:316< MC=0:UA=0:Z6=1:OJ=2:OK=2:AW=0:MB=4:T(24)=0:CZ=0:CW=0:HA=0:DT=0:BJ=0:BK=1:BN=0:BU=0:CP=0:CQ=0:CR=3-(AP>2):CS=0:CT=CR:MT=CT:MS=CR:CV=0:BU=0:JB=0:JC=0:CI=1:CJ=38&:CK=0:Z(4,32 ) CN=(AP*20):CM=(CN-19):CO=(310000^/AP)-(AP*10000'):JK=0:KA=(CO-KC):KA=KA+(KA<0)*KA:V=CM:L(64@): 65100L:AI=AI+(AI<0)*AI:64815/:L(64@):HW=1001:CJ=38&-(ID-1):4:4::RA=10 :RB=5.50:3,2;"P PLAY MATCH";4,2;"C CHECK MATCH";5,3;"T TEAM";6,3;"O OFFERS/NEGOTIATIONS";7,4;"A ADDITIONAL MENU";8,4;"I INJURIES/GOALS";9 ,5;"B BANK":CP=0RA,RB;"L LEAGUE TABLE":RA=RA+1:RB=RB+.5 tRA,RB;"F FIXTURES":RA=RA+1:RB=RB+.5:NN>0RA,RB;"S SCOUTS":RA=RA+1:RB=RB+.5 bNC=0OQ=07;RA,RB;"R RE-NEGOTIATE CONTRACT":RA=RA+1:RB=RB+.5 +OY>0RA,RB;"1 SAVE ";1;OY D$=:23-(D$="") .1}L,1 DD$="1"OY>0D$="C":OY=OY-1:HW=1006:902 D$="F"D$="1":902 D$="L"CP=095_ D$="C"D$="3":901 D$="T"D$="5":901 D$="B"D$="6":902 D$="I"D$="7":902 D$="S"NN>0480 "D$="A"D$="O":901 #D$="O"D$="R1":901 %=D$="R"NC=0OQ=0NU=2:D$="L":902 &)D$="P"NC>0OQ=0230 ' 22 (1;ER,ES;"GOALKEEPER ";BA;5;ER+1,ES;"DEFENCE ";BC;6;ER+2,ES;"MIDFIELD ";BB;7;ER+3,ES;"ATTACK ";BD: )4;1;ER+7,ES+1;2;7;"FORMATION";ER+8,ES+4;0;4;0;MU: *OMO=1:4:4:0:MJ=MIMK=MHML=MGMJ=SD:MK=SE:ML=SF +%!"B":1001:D$="I":902 -_CI=58:CI=5463;7;1;0,14;"WEMBLEY":BK=2: .:BK=14;7;0,14;"HOME": /.4;7;0,14;"AWAY": 0:491:535 1p7;0,13 ;"SCOUTS":ER=4:I=13:502+(I$(I+2)=32 )*2 2ER,0;I;2;"SCOUT:";Y(2,I+2);10 ;"%";12 ;I$(I+2):513+(Y(3,I+2)=0) 3ER,19;Y$(Y(3,I+2));29;(Y(4,I+2)>0);4+(Y(4,I+2)>0)*(Y(4,I+2)-1);(144+Y(4,I+2));4;0;31;Y(5,I+2) 4ER=ER+2:I: 5,6;12 ,0;"A ASIGN SCOUT" 6(848P:546+(="A"NN>0) 7LL=1:12 ,0;"WHICH SCOUT 1 TO 3? ";12 ,20;:270:AD=ZA:568-(AD<1AD>3) 8-579-(I$(AD+2)=32 )*2 9:X(AD+20)=0:ER=1+(AP>2)*40( ::I=ERER+19:I-(1+(ER=41))*40(),3;I;6;Y$(I);17;I+20;20;Y$(I+20):I:LL=2:21,0;"TEAM No/0 MORE CHOISE ";21,22;:270 ;I=ZA:60<+(I=0) <(62>-(I>80PY$(I)=Z$)*4 =>ER=ER+(ER=1)*40(-(ER=41))*40(:58: >Y(3,AD+2)=I::491:12 ,0;"FOR ";1;145;0;" ENTER 1";4;5;1;146;4;0;" ENTER 2";4;6;1;147;4;0;" ENTER 3";4;7;1;148;4;0;" ENTER 4":LL=1:17,0;"1 TO 4? ";:270:JF=ZA:63?-(JF<1JF>4) ?$Y(4,AD+2)=JF:491 @aLL=1:19,0;"WHICH CURRENT FORM 1-9? ";19,24;:270 A1JF=ZA:66B-(JF<1JF>9 )*2 B%Y(5,AD+2)=JF :480 EEJ=132:210:!"70":1037 :J:6 F71G+(BK=1) GET=0+(BK=2OB=1)*CS+(BK=2OB=0):BL=(5-ET)*100d:BL=BL+(1+(*100d)):BL=(DN*BL)/100d:OL=0:ON=0:81Q H9BK=1OB<2BL=(DN*(NJ*100d)/100d) QUBL=(BL/2):I=12 5467:82R+(CV=1CI=I)*173 RI SCI=1658:7:84T+(CV=1CI=I)*166 TI U-86V+(CQ=1)*72H+(CP=1) V2CV=0:CQ=0:R$=Z$:!"13":1051 W/AM=1+(*3):AM=389Y X 100d YJT=JT+(JT<1(BB+BD+BC)>(23+(JT*3))-(AP*3)):AB=JT:AB=AB-(JT>-1(BB+BD+BC)<(20+(JT*3)-(AP*3)+1)):DO=89Y:AE=21: Z:7;2;1;0,11 ;Z$;0;0;4;1,2;"1st TEAM";1,21;"RESERVES":EV=0:IA=3:IC=2:I=120 [H$=(144+T(I)):(T(I)>0);4+(T(I)>0)*(T(I)-1);IA,EV;H$;4;0;IA,EV+IC;I;" ";4+(G(I)<0)*2;V$(I);4;" ";H(I);J(I):IC=IC-(I=9 ):IA=IA+(I=11 )*2-(I=12 )*14:EV=EV+(I=12 )*17:IA=IA+1:I:2;7;15,6;"SUB":4;6;19,2;"MORALE ";(ME/10 );1;1;7;18,2;"TEMPER ";PU:890z \6:140,76L:104h,0:0,-40(:-104h,0:0,40(:139,77M:106j,0:0,-42*:-106j,0:0,42*:0 ]&ER=13 :ES=18:40(: _|96`:1;7;1;"SEASON ";AH+1;21,13 ;0;6;0;"M MENU":97a `:4;"DIV ";AP;5;0,12 ;"P W D L F A PT":N=120:(T$(N)=Z$)*7;N;2;T$(N);12 ;P(N);15;W(N);18;D(N);21;P(N)-(W(N)+D(N));24;F(1,N);27;F(2,N);30;(W(N)*PTS+D(N)):N: a849Q:97a bH$="BCDFGHJKLMNPRSTVW":M$="AEIOU":RA=1+(*26):RB=1+(*5):RC=1+(*17):RD=1+(*17):Z9=65A+(*22): doNC=NC-(NC>0):I=120:V(2,I)=V(2,I)-(V(2,I)>0):I:!"9":1001 h+105i+(CV=1CQ=1)*2 i$CP=1CI=60<:107k j!"A":1010 k#CQ=0:CV=0:412 nNI=(15000007/AP)::9 ,0;"THE BUILDERS CHARGE `";NI;'"TO IMPROVE GROUND CAPACITY TO"'"MAXIMUM DO YOU AGREE Y/N":890z o#="Y"AI>NIAI=AI-NI:900 p="N"NI=0:900 q 111o }:CQ=1RA=1+(*10 )+96`:127 ~1I=18:127+(M(I)=RA)*29 0I:Y=18:128+(M(Y)0) M(Y)=RA:157 Y: DT=0CS=0 %CV=1:DT=1413: mCS=(A$(MQ,MR)(13 ))-480:CS=CS-(CS=30)*25:413:B$=A$(MQ,MR)(211 ) $BK=1+(A$(MQ,MR)=65A): #BK=BK-(BK=2)+(BK=1): :CP=1CS=1:BK=2:413:156 154+(BE>0) CI=CI+1: jCQ=1:CS=1:BK=1:416:419:GZ=4GZ=6GZ=8BK=2: &RA=97a+(*10 ):126~ K$=Y$(RA): FI=372:GZ=IJB=R:JC=S:GZ=GZ+1:87W I 8JB>JCGZ=GZ+1:JC=0:JB=0:87W AJBSGZ<9 GZ=GZ+1:JB=0:JC=0:87W ERO=3+(*3):RA=2+(*4):167-(RO=RA) D18,17;"PENALTIES ";RA;"-";RO:JB=RA:JC=RO:160 V$(I)="":T(I)=0:H(I)=0:J(I)=32 :U(I)=0:X(I)=0:E(1,I)=0:E(2,I)=0:E(3,I)=0:V(1,I)=0:V(2,I)=0:G(I)=0: HAP<3CI<19CT=3:MT=3:CV=0:1004  <AP<3CI<19MR=3:CR=3:1007  A(8):ET=1 F=1+(*64@) RA=81Q+(*16) 6X=1ET-1:214+(ET=1)*2 215-(A(X)=RA)*3 SX:L(F)=0A(ET)=RA:L(F)=RA:ET=ET+1:211+(ET=9 )*6 3F=F+1:F=F-(F=65A)*64@:212 ET=41) F=1+(*64@) 220+(L(F)0) 9L(F)=ET:ET=ET+1:218+(ET=81Q)*4 3F=F+1:F=F-(F=65A)*64@:219  :RA=1+(*200):RA=8!"67":1053  CV=CV-(CV=1AAA=1):223:OT=0:OS=0:I=12 5467:231-(CI=ICV=1)*189 LCI=ICV=0BL=0:DN=0:OL=0:ON=0:236 I DI=1658:7:234-(CI=ICV=1)*192 LCI=ICV=0BL=0:DN=0:OL=0:ON=0:237 I:42* J=1:238 J=3 /NK=1:D$="70":HW=1001:902 J=3:260:F=1+(*64@):L(F)=0+(R> S)*RA+(R< S)*RB:CI=CI-(R=S):DT=(R=S):A$(2,MS)(11 )=S:A$(2,MS)(12 )=R:CR=CR+(R> S):MS=CR:CR=CR-(R< S)*CR:DT=1150:87W f850R:4;21,0;" C CONTINUE ":251-(="C")*14 87W J=1:260:F=1+(*64@):L(F)=0+(R> S)*RA+(R< S)*RB:CI=CI-(R=S):DT=(R=S):A$(1,MT)(11 )=S:A$(1,MT)(12 )=R:CT=CT+(R> S):MT=CT:CT=CT-(R< S)*CT:DT=1150:87W f850R:4;21,0;" C CONTINUE ":256-(="C")*20  87W CI=132 :Y$(Z(J,I))=Z$RA=Z(J,I):RB=Z(J+1,I): 7Y$(Z(J+1,I))=Z$RA=Z(J+1,I):RB=Z(J,I): I: X$="":PW=0 /PW0X$=X$(̱X$-1):8;(" "+8PW < LL);8;" ";8;:PW=PW-1:271 -275-(D$=13 PW=0)*4 $PW>0D$=13 281 277-(PW=LL)*5 D$< PXůD$> PY271 ;8;9 ;D$;:X$=X$+D$:PW=PW+1:271 D$=:280-(D$="") .01z# =,1: 8;" "PW< LL PX=480ZA=X$ mPY=PY-(PX=32 PX=33!)*65A:PX=PX+(PX=32 )*16+(PX=33!)*15:LL=9 : 8 923658j\,8:7:7::7;2;10 ,11 ;"STOP TAPE":3,10 :10 ,0;"DO YOU WANT TO LOAD OLD GAME Y/N":0:="Y"D$="C":HW=1005:902 ; :2 <0:1000 >/!"L":4:4:1001:891{ BJ=132:210:!"70":7:7:1037 :J:!"H":1001:332L::3;1;2,2;"LOADING";1;10 ,6;"START ORIGINAL TAPE":7:0:"M1":"M2":0:6 LMU=0:PU=E(3,1):BB=0:BC=0:BD=0:BA=(T(1)=1)*H(1): M=211 :BC=BC+((T(M)=2)*H(M)):BB=BB+((T(M)=3)*H(M)):BD=BD+((T(M)=4)*H(M)):MU=MU+(T(M)=2)*100d+(T(M)=3)*10 +(T(M)=4):PU=PU+E(3,M):M:BC=(BC/3.9y):BB=(BB/2.99):BD=(BD/2.99):BB=BB-(BB>9 )*(BB-9 ):BC=BC-(BC>9 )*(BC-9 ):BD=BD-(BD>9 )*(BD-9 ): _EI=2013 -1:V$(I)=32 652:353a `I a f4:4::5,1;"PLAYER FOR RENEWAL OF CONTRACT";9 ,6;1;(T(F)+3);(144+T(F));4;0;8;4+(G(F)<0)*2;V$(F);4;17;H(F);(J(F));20;G(F);23;"`";V(1,F): ghNT=1:F=120:64815/:360h+(V(2,F)>0ůV$(F)=32 )*6 h7IB=F:358f:20,8;"RE-NEGOCIATE Y/N" i#361i+(="N")+(="Y")*2 j2NT=0:I=F:200:332L:366n k0HF=3:HW=1022:D$="R"::901 nF:NT=0:6 =CV=1CP=1CQ=1MM=75K+(*24)  ,416:413:931:422 HI=13:IB=(Y$(V)=T$(I)JT<1):414+(IB=1) I "CX=CS-JT:418+(CV=1) )M=120:T$(M)=Y$(V)MN=M: M:MN=2:  CX=AP-JT MEI=(6-CX)+(*4)+IB:EJ=(6-CX)+(*4)+IB:EK=(6-CX)+(*4)+IB:EL=(6-CX)+(*4)+IB:MM=100d-(CV=0)*(5*MN):RA=1+(*20):MM=MM+RA:410:RZ=1+(*2):PV=15+(*75K):MV=442-(RZ=2)*9 :MM>99cMM=99c  #423+(CI=59;)*154 -CI=CI+1:NC=0!"X":1001 "D$="U":HW=1001:901  ME>99cME=99c  ME<0ME=0  8J(Y)=76LJ(Y)=82RJ(Y)=42*527: {J(Y)=32 +(H(Y)>H(Y)+.73333)*11 +(H(Y)0)*13 :H(Y)>9.7333J(Y)=105i H(Y)=H(Y)-((H(Y)-9.9fff)/2)*(1+(H(Y)-9.95333)):H(Y)=H(Y)+(V$(Y)32 )*((1-H(Y))/2)*(1+(1.09 -H(Y))): Ay!"14":863_:4::1001:!"5":1001:863_:!"7":1001:863_:891{:!"1":1001:863_::1010:863_:96`:863_::"DIV ";2;7;"FA CUP FINAL";4;0;29;"DIV"'" ";P$(2)''" ";5;"LEAGUE CUP FINAL";4;'" ";P$(1):863_:!"S":1001 Q<FC=1+(*6):1013-(FC=5)*413 XB:2;1;7;11 ,8;"TOUR EUROPE Y/N" Y%601Y+(="N")*412+(="Y") [9CP=1:FD=4+(*3):NC=NC+(FD+1) \152:6 ]/FD=FD-1:606^-(FD>0)*2 ^$:D$="S":HW=1013:902 HZ=V(1,AD):HY=V(2,AD):FG=X(AD):N$=V$(AD):FH=U(AD):FJ=E(1,AD):RZ=E(2,AD):FK=H(AD):JG=T(AD):CG=J(AD):RY=G(AD):RA=E(3,AD):X(AD)=X(I):V$(AD)=V$(I):V(1,AD)=V(1,I):V(2,AD)=V(2,I):U(AD)=U(I):T(AD)=T(I):J(AD)=J(I):E(1,AD)=E(1,I):E(2,AD)=E(2,I):E(3,AD)=E(3,I):H(AD)=H(I):G(AD)=G(I):X(I)=FG:V$(I)=N$ T(I)=JG:J(I)=CG:E(1,I)=FJ:E(2,I)=RZ:E(3,I)=RA:H(I)=FK:V(1,I)=HZ:V(2,I)=HY:G(I)=RY:U(I)=FH: 3Y=120:J(Y)=82RI=Y:200 QRA=(*25)/10 :753+(T(Y)=0J(Y)=42*J(Y)=76L) 1U(Y)=0:H(Y)=H(Y)-1.43333+RA:525  Y:332L: rI=120:E(1,I)=0:G(I)=G(I)+(G(I)>0)-(G(I)<0):T$(I)=Y$((CM-1)+I):I: 3I=120:Y$((CM-1)+I)=T$(I):I:  -ID=1:W$(38&,2):N(2,18):P(20):W(20):D(20):F(2,20):A$(2,8,13 ):P$(2,32 ): .M(8): P1;7;1;21,0;"SEASON ";0;8;0;AH+1;21,13 ;6;"M MENU" Q="M"6 Y Z&I=120:T$(I)=Z$AG=I: [I: ]"KA<0KA=0:KC=CO-KA ^ _21,0;2;1;7;"END OF SEASON";0;8;0;" ";AH+1;22;6;"C CONTINUE" a'850R:865a+(="C")*15 kJICNJH=CM m nJHCNJI=CM p qHJ>011 ,0;"LOAN ";HJ;" WEEKS";16;1;(T(HK)+3);(144+T(HK));4;0;" ";V$(HK);27;H(HK);30;G(HK) r sHL>012 ,0;"FREE TRANSFER ";(T(HL)+3);1;(144+T(HL));4;0;" ";V$(HL);27;H(HL);30;G(HL) t wV=V+1:V>CNV=CM x889y-(Y$(V)=Z$)*2 y zS19,18;1;"BANK";0;" ` ";19,24;AI: {J4;1;21,0;" PLEASE WAIT ": |ET=0:A1=0:A2=1:A3=0:I=120:ET=ET+(V$(I)32 ):A1=A1+(V$(I)32 J(I)< 46.J(I)35#):A2=A2-( A2=1J(I)=35#):A3=A3+(I>12 T(I)>0):I: RIB=80P-(H(AD)>6)*40(:RA=1+(*IB):899-(Y$(RA)=Z$)  ).1}L,1:D$="O":HW=1001  !D$:HW ?4;21,0;" C CONTINUE " 0="C"7:7:0::1002 850R:904 HF=2!"R2":1031 HF=31054  1046 mY(3,I-18)=0:Y(4,I-18)=0:Y(5,I-18)=0:X(I)=0: 0"ONE OF YOUR STAFF HAS RESIGNED":Z8=0: 926+OX  D$="WAGES TOO LOW":930 %D$="SIGNING FEE TOO LOW":930 D$="CONTRACT TOO LONG" A19,((32 -D$)/2);D$:F=199c:F: =RA=1+(*4):AP1AG>4RA3 2EI=8:EJ=8:EK=8:EL=8: ~RB=0+(J=1OJ=2J=3OK=2)*480+(J=1OJ=3J=3OK=3)*64@+(J=1OJ=4J=3OK=4)*32 +(J=1OJ=5J=3OK=5)*16+(J=1OJ=6J=3OK=6)*8+(J=1OJ=7J=3OK=7)*4+(J=1OJ=8J=3OK=8)*2: RZ=((Z(J,I)+19)/20)+480:RZ=RZ+(RZ=535)*25:RY=((Z(J+1,I)+19)/20)+480:RY=RY+(RY=535)*25: &AS=1:ER=20:ET=491 :4;7;0,11 ;"DIVISION ";ET:RA=1:I=ASER:RA,10 ;I;13 ;Y$(I):RA=RA+1:I:6;21,0;" C CHANGE TEAM F FINISH M MORE " ="M"AS=AS+20:AS=AS-(AS=101e)*100d:ER=ER+20:ER=ER-(ER=100d)*4-(ER=116t)*96`:ET=ET+1:ET=ET+(ET=535)*25:ET=ET-(ET=79O)*30:1001 ,1002+(="C")*2+(="F")*5 LL=2:6;21,0;"No OF TEAM TO BE CHANGED ";21,25;:270:RA=ZA:1005-(RA< ASRA> ER) PX=32 :PY=122z:6;21,0;"TEAM ";RA;8;"NEW NAME(9 MAX) ";21,23;:270:1014:A$=X$:I=196`:1006-(A$< 1űA$> 9 A$=Y$(I)) I:Y$(RA)=A$:1001  AS=0:JT=-1:AB=JT -:I=1+(AS=1)*40(20+(AS=1)*40(:I;3;Y$(I);20;I+20;23;Y$(I+20):I:LL=2:2;7;1;21,0;"TEAM No/0 MORE CHOICE ";21,22;:270:ED=ZA:1009+(ED>0ED<81Q) -AS=AS+(AS=0)-(AS=1):1008 Z$=Y$(ED):891{:7;1;1;1;21,23;Z$:D$=Y$(ED):Y$(ED)=Y$(AP*20):Y$(AP*20)=D$:755:813- 416:413:MJ=0:MK=7:ML=1:SA=0:SB=7:SC=1:SD=1:SE=7:SF=1 LL=8:PX=32 :PY=122z:5;21,0;"MANAGER'S NAME (8 MAX) ";21,23;:270:F$=X$:1013-(F$=32 ) LL=1:PX=502:PY=513:5;21,0;"POINTS FOR WIN 2/3 ";21,19;:270:PTS=X$:891{:317= X$=9 4RB=9 -X$:I=1RB:X$=X$+32 :I: Y$ j TOTTENHAMWEST HAM EVERTON NOTTS FORLIVERPOOLARSENAL MAN UTD IPSWICH TCHELSEA WATFORD LUTON T COVENTRY LEICESTERSHEFF WEDBRMINGHAMMAN CITY ASTON V QPR WEST BROMOXFORD U CHARLTON LEEDS UTDFULHAM CRYSTAL PNEWCASTLENORWICH CSTOKE C BRIGHTON OLDHAM A GRIMSBY TCARLISLE MILLWALL BRADFORD SHEFF UTDBARNSLEY HULL CITYBLACKBURNWIMBLEDONSTOCKPORTWIGAN A YORK CITYDONCASTERLINCOLN CBRENTFORDWOLVES NOTTS C BOLTON W ROTHERHAMBRISTOL CWALSALL DERBY C BURY NEWPORT CCARDIFF CREADING BLACKPOOLPLYMOUTH PORTMOUTHMIDDLBOROWREXHAM ROCHDALE HALIFAX TALDERSHOTTORQUAY UCHESTER CPRESTON MANSFIELDEXETER C PORT VALEBURNLEY NORTHPTONCAMBRIDGEHEREFORD ORIENT TRANMERE PETERBOROSWINDON THARTLPOOLCREWE A SWANSEA CTELFORD UENFIELD WEYMOUTH BLYTH S RUNCORN BATH CITYBARNET KETTERINGDARTFORD DUDLEY T BOSTON U YEOVIL T HITCHIN TSLOUGH T SOUTHPORTMAIDSTONEJUVENTUS R MADRID B MUNICH BARCELONAANDELECHTAS ROMA HAMBURG D KIEV FC BRUGE AC MILAN E$ S{UDENNS RY EY ON WAYLE BY INSLEYSONTONS ES MANBLENEYSEYTERIS ER ENSDONINGGANLINM1    M2 @B8iI=2123:RA=1+(*9 ):I$(I-18)=32 RA=1910:315; 9RD=((Y(2,I-18)/10 )-9 )/2:EV=RD/2:RC=(Y(5,I-18)-RD):RF=(Y(5,I-18)+EV):RE=RC+(*((RF-RC)+1)):RE=RE-(RE>9 )*(RE-9 )-(RE<0)*RE:RE=RE+(RE=0):RZ=0+(*5)/10 :RE=RE+RZ:RB=10 -((Y(3,I-18)+19)/20):RC=(RB-5):RA=1+(*4):314:+( RA>1Y(5,I-18) < RCY(5,I-18) > RBRE<1) :wY(1,I-18)=Y(1,I-18)-(Y(1,I-18)*2):X(I)=(Y(3,I-18)):98b:V$(I)=(Z9)+"."+H$(RC)+M$(RB)+H$(RD)+E$(RA):G(I)=22+(*14):T(I)=Y(4,I-18):H(I)=RE:E(3,I)=-3+(*17):E(3,I)=E(3,I)+(E(3,I)<0)*E(3,I)-(E(3,I)>9 )*(E(3,I)-9 ) ;VI:I=2426:RA=1+(*3):RA>1X(I)=0:318> <RA=1+(*15):K=RA20:G(K)<0U(I)=K:V$(I)=V$(K):T(I)=T(K):H(I)=H(K):X(I)=1+(*(80P-(H(K)>5)*40()):X(I)=X(I)-(Y$(X(I))=Z$)*X(I):G(I)=G(K):E(3,I)=E(3,K):318> =K >I: ai