ZXTape! 0Created with Ramsoft MakeTZXS DIRECTOR#% k63940:0:0:6::"""a"::100d:0:0:20,0;:"" -0:20,0;:""63941 !0:20,0;:"" d#M=-1:a=3:co=0 ec$=" G.T.I SOFTWARE 1989" n'b$=" " s'a$=" " 10 ,a;" ";11 ,a-1;" ";12 ,a;" ":CO1511 ,A-2;4;1;C$(1+M) S13 ,0;7;a$:.06|u\,-30:13 ,0;7;b$ Aco=co+1:co15a<24a=a+1:M=M+1 CO37% 130 ma%C G.T.I SOFTWARE 1989B A nGTI XDc  p0`  @0@|BB|DB<@<B<BBBBB<Cs K `>((~njc * ~ (   UUVVPPPPPP PPPPUP`vcVPUTUTUUUT`VPT@T c(((( `((((`6 *` ( UUVUUV>VPPPPPP*PPPPPQPVP@_VPT@P(((((( (    (  (UUV `UUVUTPPPUPPnvUPUTUPUPUTPTVP@@_VP@ ` `>**** `*((j****(c (    (   `~UUV ``UUVUPUTUPUPUTUP `*PPPPUP`nv@P@@UTPc`VPT@_VTUUU@U`c   ~< `~ ;0;e _VPUUT@U cVUUV ``UUV ;0;e @@ `c;0 ;;;`0 000(2e 0_V~VUUV;0;;;UUV0 000 x=/x= ̀0 3000;0?;;; (0e /x= ̀_VVUUV0 3000`;0=;;;p0(0e  ` 0;0 `(e  VfV`UUV 0;0(e   x> 1Cό`c`ccc`(2l0>>`6ccϲyȘ0x(21BH`c`ccc`(2l0>>`6ccyyϲyBh>c~ccc~2yn0(2BhyϲyBh>c~ccc~2yn0(2Bhxc`c~`> 1k2yBhxc`c~`> 1kx2yBh>>c>~cc`cf`(21i`x> 1Cό>>c>~yhcc`cf`(21i`c : <!X~ < >w# $$$~$$~$>(> >bd&F(*D:  >>> ~bRJ~~~@~|~~`f~~@~~|@~F~~ <$~f~~B~F~FF|b|b|>F@F>|FFF|>`~`>~`~``~@NF~bb~bb<< ,<dd~FF````~~VVVV~FFFF" x >i`*=\s#rv{=\!:\~6} ( !'"B\2D\v*]\~$ #"]\}3<20!7<21!0I"i`*=\s#rv{=\!:\~6} ( !'"B\2D\v*]\~$ #"]\}*K\~E()`  #~( #^#V*6\"V!Q~886#F##~͔!#*6\$q8*{\pG"L>K\:Q8 :Q8 K\ ![%"6\:QK\ =  :Q_GK\{ =  CzzW*V"6\!["N*Lnů%0>2P #:QKR[T:P !0:Q O"0 W #0_= CRST*N:QKR[Tp=q( =r(=s#= "N:QG >[<??????B$$B??BB<??BfZBBBBbRJFB"1001"U(A)=-ƺ(*"2")=U(A)= 4+U(A)=ƺ(*"5")=J$()="H"U(A)=- 6+U(A)=-ƺ(*"5")=J$()="B"U(A)= 8+U(A)=ƺ(*"5")=J$()="E"U(A)=- : <DON=:-:ڧ-:ٰ"9"::E$="WEEK ":"16","8";:ܼ:ٰ"5":CODE="64929":E$=WEEK:CODE="64929":ܧ-:ٰ"9":"20","4";"CUP WEEKS ";LS*;" ,";LS*"7";" ,";LS*"9";" ,";LS*"10" ="1125":"954":I=̰"30":(*"7")+:,"13";" ";I;" ":,"4";"PRESS S TO SEE SHARES OWNED":"5","4";"PRESS M FOR MENU 1":(*"7")+:"7","4";"PRESS B TO CHECK BETS";"9","4";"PRESS Q TO QUIT GAME":11 ,4;"PRESS C TO CONTINUE":="S""86":"60" >[BARG=BAȰ"25000"TCOU<10 OTM<10 "11","4";"PRESS Z FOR BARGAIN" @="B"ٰ"9":"892":"60" B$="Z"BAȰ"25000"BARG="1116" D="M"JUMP=:"190" FC="Q":ۼ;9 ;7;"ARE YOU SURE Y/N ? ":"74" G="C"1114Z: HI:"1114": J="Y"12 L="N":"60" N"74" RSEX=-::-,-;ڼ;ٰ"9";"DIVISION 1 P W D L PT":SP=:A=̰"20" T"1140":Y$(A);" ";SP,"13";ټ;PLY;SP,"17"+NSP;٧-;N(A);SP,"21"+KSP;;ټ;K(A);SP,"25"+ESP;٧-;E(A);SP,"30"-EX;ټ;Y(A):SP=SP+:EX=-:A U Vٰ"9":BAL=-:QW= Xs:"116":A=1̰"20":A$(A);" `";I(A);A+1,21;I(A+20);A+1,28;I(A+40():A Z 30 r t^:" SHARES OWNED  ":"13";"PRICE STOCK OWN": v;SHCO=-:V$()="U""568":"10","4";"1% LOAN REPAYMENT `1000":BA=BA-1000:"20","4";"BANK NOW `";BA:LCO=LCO+:18,4;2;1;"OUTSTANDING `";100000CP-LCO*1000:"90":LCO="100""12","4";ۼ;"LOAN REPAYMENT COMPLETE":V$="AVAILABLE":LCO=-:"190" wٰ"4":ܼ::"10";ۼ;"SHARE NEWS":A=̰"20":A,"2";A$(A);A,"17";"`";I(A);A,"23";B$(A):"1180":A,"25"+SSS;B(A) x,A$(A,"12")" "SHCO=SHCO+I(A+"40")*I(A) yE"21","2";"YOUR SHARES VALUE: `";SHCO:A:AUTO=-"32" zAUTO="400" {1ܧ-:1170:ٰ"9":"7":ڰ"7"::G=̰"20" |A$(G,"12")" ""126" }G: ~:DV=:"956" 'XTRA=V(G)*"1000":V(G)=-XTRA=- $I(G+"40")="1000"I(G+"20")=- XTRA=XTRA+(*"1000")+"506":PW="9873"+XTRA:PC=(*"600")+"200":GR=(*"550")+"221":GM="15054"+M(G)*"999":GM=GM+(*"1000")+"457" hDV;ٰ"9";"10";A$(G);-:"2","5";"GROUND MAINTENANCE `";GR;"4","5";"POLICE COSTS `";PC ="6","5";"PLAYERS WAGES `";PW;"8","5";"GATE +`";GM wTAX=0:FINE=0:SIGN=0:(*"22")=TAX="25000"/DV:'"5";"TAX BILL FOR `";TAX:"154" W(*"22")=FINE="10000"/DV:';"CROWD TROUBLE,FINE OF `";FINE:"154" (*"22")=SIGN="150000"/DV:';" NEW SIGNING COSTS `";SIGN:S(G)=S(G)+:QJ=:M(G)=M(G)+:A=G:"576":"154" S(G)Ȱ"6"ƺ(*"20")='"5";" PLAYERS INJURED":S(G)=S(G)-"2":M(G)=M(G)-:F(G)=F(G)-:QJ=:A=G:"576":"154" S(G)="9"ƺ(*"3")='"5";" PLAYERS INJURED":S(G)=S(G)-"2":M(G)=M(G)-:F(G)=F(G)-:QJ=:A=G:"576":"154" S(G)=-ƺ(*"3")='"5";" FREE TRANSFER":S(G)=S(G)+"2":M(G)=M(G)+:F(G)=F(G)+:QJ=:A=G:"576":"154" S(G)ǰ"4"ƺ(*"20")='"5";" FREE TRANSFER":S(G)=S(G)+"2":M(G)=M(G)+:F(G)=F(G)+:QJ=:A=G:"576":"154" 1I(G+40()=1000I(A+20)=0 u"12","5";"PT ";P(G);"14","5";"SK ";S(G);"16","5";"FT ";F(G);"18","5";"MR ";M(G) "12","12";"SHARE PR:`";I(G);"14","12";"STOCK AV:";I(G+"20");"16","12";"YOU OWN :";I(G+"40"):"956":TOT=PC+GR+PW+FINE+SIGN+TAX:PERC=GM-TOT:PERCǧ-PERC=- STOW=I(G+"40"):PERC=PERC/"1000"*STOW:PERC=PERC:"18","12";"DIVIDEND:`";PERC:BA=BA+PERC:BA=BA:"20","5";ٰ"4";"BANK NOW `";BA AUTO="220": "30": J=̰"20":A$(J)=Y$(J):J  i236066\,156:236077\,249:ܧ-:L=LS*"10":GST=-:WDEC=WDEC=-:WEEK=WEEK+ TART=0 +BA<-TCOU>10 OTM>10 CUN= SEAȰ"11""786" hDTM=-:"568":ٰ"6":ٰ"2":E$="SOCCER DIRECTOR":"65361","2":2,"1";:CODE="64929":ٰ"9" A="7":DOW=5:DOW,A;"1: PLAY SEASON";DOW+2,A;"2: BUY/SELL SHARES";DOW+4,A;"3: GAME OPTIONS";DOW+6,A;"4: BETTING MENU";DOW+8,A;"5: SEE FORM TABLE" DOW+10 ,A;"6: SEE SHARES OWNED";DOW+12 ,A;"7: CALL SHARE MEETING";DOW+14,a;"8: LOAN ";ڰ"2";V$ >DOW+16,A;(CUN=0);"9: MAKE SHARE OFFER" 1#1;1,7;"BANK `";BA:E$= E$=:E$="3""294" CODE="64100" QE$="1"JUMP=-STDD=1:A=124:CODE=64020:A:"454" ZE$="1"JUMP=STDD=1:A=124:CODE=64020:A:JUMP=-:"458" 'E$="4"JUMP=-STDD=1:"232" (E$="4"JUMP=1.08}# =,1 OE$="6":10 ;"PLEASE WAIT":5:1170:"86":"186" E$="5""312" :E$="7"HMET=0STDD=1:1190:186 (E$="7"HMET=1.08}# =,1 oE$="2"SUT1SUTY1:10 ;"PLEASE WAIT":5:STDD=1:1170:"376" ;SUT=1E$="2"SUTY=1E$="2".05|L,1 1E$="8"V$()="A"STDD=1:"964":"186" +E$="8"V$(1)="U".08}# =,1 7E$="9"CUN=03560 :21004:186 'E$="9"CUN0.09}8Q,6 CODE="64100":E$="" "196" ["568":ٰ"4":"782":ٰ"2":6:E$="BETTING MENU":"2","4";:CODE="64929":ٰ"9" 6,2;:1:1:1:E$="F":CODE=64929:0:0:4:E$=".A CUP WINNER":CODE=64929:10 ,2;:2:9 :1:E$="L":CODE=64929:0:0:3:E$="EAGUE WINNER":CODE=64929 14,2;:1:4:7:E$="R":CODE=64929:0:5:0:E$="ELEGATION":CODE=64929:18,2;:0:7:1:E$="E":CODE=64929:0:9 :0:E$="XIT":CODE=64929 &HCHA=:#;,2;"BANK `";BA *E$="":E$=:E$<"65"ůE$>"82""244" E$="E""186" E$="F"BOC=-"324" E$="L"BD1=-BD=:"324" E$="R"BR1=-BD=:"324" "244" ="N""186" y="Y""23606",-:"23607","60"::.09}8Q,:"50":"DIRECTOR"ʰ"186":"23606","156":"23607","249":"186" "282"  ="N""186" "b="Y""23606",-:"23607","60"::"INSERT SAVED GAME AND PRESS PLAY":"DIRECTOR":186 $"288" &2"568":-,"4";" GAME OPTIONS " (ܼ:A="5":"4",A;"A QUIT GAME";"7",A;"B SAVE THIS GAME";"10",A;"C LOAD A SAVED GAME";"13",A;"D WEEKS PER SEASON ";ڰ"2";LS*"10";ڧ-;"16",A;"E CONTINUE" *ٰ"6":"606" ,="E""1114":"186" .U="D"HCHA=-JUMP=-DON=-STDD=0HCHA=:STDD=1:"770":"294" 0="A":"786" 2;="B""19","9";ۼ;"CONFIRM SAVE Y/N":"282" 49="C""19","9";ۼ;"CONFIRM LOAD Y/N":"288" 6"300" 8 "568": :0-,;"DIVISION 1 PTS SKL FIT MOR" "2"űL$"57"ůL$<"47""336" TTB=L$:TB>MAXTB<-"336" VTB=L$:TB=-"186" Z0HDB=:" STAKE `";L$:L$=0"346" \ST=L$:ST>BAST=-"346" ^ BA=BA-ST `E$="F"TBC=TB:SC=ST:BOC= b E$="L"GT1=TB:SC1=ST:BD1= n E$="R"GT8=TB:SC8=ST:BR1= v"232" "568"::"608" EA=̰"9":A,"2";A;".";A$(A);" `";I(A);25;I(A+20):A HA="10"̰"20":A,;A;".";A$(A);" `";I(A);25;I(A+20):A SUT=(*8)+1:SUT=1SUTY=121,9 ;1;"MARKET CLOSED":1,1:32 :186 G"21","4";"BANK `";BA:#;,"4";"BUY SELL EXIT" ="S""438" ="E""186" ="B""420"  406 " TEAM NO.";TN 4TN>20TN01,1:380| " HOW MANY TO BUY ?";BS zBS<10 #1;1,4;1;5;9 ;"MINIMUM 10 SHARES":1,1:502:"380" CBS=I(TN)*BS wCBS>BA#1;1,4;1;2;"YOU CANT AFFORD THAT MANY":1,1:90Z:380| vBS>I(TN+20)#1;1,4;1;1;"NOT AVAILABLE":1,1:90Z:380| +I(TN+40()=0TCOU=TCOU+1 eBA=BA-CBS:I(TN+40()=I(TN+40()+BS:I(TN+20)=I(TN+20)-BS:449:380| " TEAM NO.";TN 4TN>20TN01,1:380| " HOW MANY TO SELL ?";SELL SELL<10 #1;1,4;1;3;9 ;"MINIMUM 10 SHARES":1,1:90Z:380| SELL>I(TN+40()#1;1,4;1;4;;"YOU HAVENT THAT MANY":1,1:90Z:380| SELL>500SUTY=1 BA=BA+I(TN)*SELL:STW=STW+SELL:1150~:I(TN+20)=I(TN+20)+SELL:I(TN+40()=I(TN+40()-SELL:451:380| FI(TN+40()>0I(TN+40()<501A$(TN,12 )="*" /I(TN+40()>500A$(TN,12 )="#" FI(TN+40()>0I(TN+40()<501A$(TN,12 )="*" BI(TN+40()0A$(TN,12 )=" ":TCOU=TCOU-1:  STW=0:HCHA=:BARG=-:PLY=L:BAL=-:TA=-:WEEK=:GST=-:A=:RO=:Q=:AUTO=-::E$="SEASON ":ٰ"4":ܼ:"11","7";:CODE="64929":E$=SEA:CODE="64929":ٰ"9":ܧ-:"1000" c:6,3;:2:1:E$="A":CODE=64929:0:7:E$="UTO RESULTS":CODE=64929:12 ,3;:5:1:E$="M":CODE=64929:7:0:E$="ANUAL RESULTS":CODE=64929:17,3;:4:1:E$="E":CODE=64929:7:0:E$="XIT":CODE=64929 "982":"456" NBARG=(*"40")+:-:ڧ-:ٰ"9"::"628":COUNT=:DIV=:ڧ-::"60" ΀SUTY=0:SUT=0:HMET=0:"638":"628":"602":F=-:G=-:W=-:D=-:L=-:"606":X=COUNTCOUNT+"9" PCUN=(*12 ):"614":F=S(A)+F(A)+M(A):R=(*"20")+:G=S(R)+F(R)+M(R) )"658":WȰ"11"U(A)=W=W-:"464" !DȰ"11"U(A)=D=D-:"464" "LȰ"11"U(A)=-L=L-:"464" 9"648":"570":X-YY,"4";IN;A$(A);"....";U(A);" ";Z$ ^"630":"648":"570":YY=YY-:X-YY,"4";IN;A$(A);"....";U(A);" ";Z$:X:"612":"628" AUTO="50":"482" 6-,"4";ٺ(*"6")+;" PRESS SPACE WHEN READY " " ""478" .WEEK=LS*WEEK=LS*"7"WEEK=LS*"9""668" WEEKLS*"10""118":"822" 'AUTO=WEEK=WEEK+:"118":"458" (AUTO=-WEEK=WEEK+:"118":"458" GRPɰ"2"U(A)=GRP:"570" 0CRR=(*"80")+:S(A)=S(RR)B$="DRAW":IN="6":U(A)=:"570" 20S(A)>S(RR)B$="WIN":IN="5":U(A)=:"570" 42S(A)U(A)=-M(A)=M(A)-:S(A)=S(A)-:I(A)=I(A)-"5":I(A+20)=I(A+20)+(*20)+5:B$(A)="-":B(A)=5 ? I(A)<100dI(A)=100d @F(A)=(*"9") A1I(A+40()=1000I(A+20)=0 BS(A)>"9"S(A)="9" DS(A)<-S(A)=- FF(A)<-F(A)=- G0I(A+20)10 I(A+20)=10 HF(A)>"9"F(A)="9" JM(A)>"9"M(A)="9" LM(A)<-M(A)=- M I(A)100dI(A)=100d NQJ=QJ=-: P"ADD=U(A):TOT=P(A):P(A)=TOT+ADD R)U(A)=TOT=N(A):ADD=:N(A)=TOT+ADD T)U(A)=TOT=K(A):ADD=:K(A)=TOT+ADD V*U(A)=-TOT=E(A):ADD=:E(A)=TOT+ADD X Zeڧ-::-,"4";" RESULTS  DIVISION 1":#;,"9";"WEEK ";WEEK;" DIV ";DIV: \"30":"186" ^ܼ:"28","6":"199",-:-,"168":-"2",-:"28","6":-,"168":,-:"32","6":-,-"4":"199",-:-,"165":-,-:ܧ-: `=1;" DIVISION 1  PRICE  STOCK ": b dF#1;1,8;6;"WINS ";W;" DRAWS ";D/2: fA=(*"20")+ hH(A)=614f jH(A)=-H(A)= r tA=̰"20":H(A)=-:A: vU(A)="614":U(A)=-: xU(A)="614":U(A)=: zU(A)=-"614":U(A)=: | YY=-  &U(A)=Z$="POINT":IN="6":D=D+ U(A)ɼZ$="POINTS" U(A)=IN="5":W=W+ U(A)=-IN="7":L=L+  F>GU(A)= F=GU(A)= F20QU=0:668  C(G)=CC:G wٰ"4":"736":ٰ"9":,;"QUARTER FINALS :TEAMS STILL IN":ٰ"6":G=̰"8":C=C(G):"5"+G,"11";A$(C) "S(C)=S(C)+:QJ=:A=C:"576" qI(C)=I(C)+10 :B(C)=B(C)+10 :B$(A)="+":I(C+20)15I(C+20)=I(C+20)-15 G:QU=:AUTO="290":  "30": SF="704"  G=̰"4" SO=(*"8")+ R=̰"8":D(R)=SO"688" jR:D(G)=SO:C(SO)=-::G:SF=:ٰ"2":"736":9 :,;"F.A CUP, STILL IN SEMI FINALS:" RSAD=:G=̰"8":C(G)ɧ-CCC=C(G):"7"+SAD,"10";ٰ"4";A$(CCC):SAD=SAD+ C(G)=0"700" (S(CCC)=S(CCC)+:QJ=:A=CCC:"576" I(CCC)=I(CCC)+10 :B(CCC)=B(CCC)+10 :B$(A)="+":I(CCC+20)15I(CCC+20)=I(CCC+20)-15 G:AUTO="290":  "30": CF="726" FF=(*"8")+ C(FF)ɧ-C(FF)=-:"712" "706"  FR=(*"8")+:FR=FF"712" C(FR)ɧ-C(FR)=-:"718" "712" ΖCF=:ٰ"6":"736":ٰ"9":,;"LINE UP FOR THE CUP FINAL":PRP="9":G=̰"8":C(G)ɧ-CCC=C(G):PRP,"10";ٰ"6";A$(CCC):PRP=PRP+ (S(CCC)=S(CCC)+:QJ=:A=CCC:"576" I(CCC)=I(CCC)+10 :B(CCC)=B(CCC)+10 :B$(A)="+":I(CCC+20)15I(CCC+20)=I(CCC+20)-15 G:AUTO="290":  "30": ֗"782":G=̰"8":C(G)ɧ-CUW=C(G):ٰ"5":"736":ٰ"9":,"5";"SEASON ";SEA;" F.A CUP WINNER ":"10","9";ڰ"2";ٰ"6";ۼ;ܼ;A$(CUW):"730" G I(CCC)=I(CCC)+30:B(CCC)=B(CCC)+30:B$(A)="+":I(CCC+20)25I(CCC+20)=I(CCC+20)-25 ڃA$(CUW,"12")="#"20,2;ۼ;"`100,000 FOR WINNING THE CUP":AUTO="90":.09}8Q,546:90Z: AUTO="290":  "30": Kܼ:"8","2";"";"9","2";"";"10","2";" ";"11","2";" " R"8","27";"";"9","27";"";"10","27";" ";"11","27";" ":ܧ-: ["18","7";"10 - 20 - 30 - 40";"20","9";"WEEK SEASON ?"  ="1"LS=:BA=25000a: %="2"LS=2:BA=50000P: &="3"LS=3:BA=100000CP:  &="4"LS=4:BA=200000CP:  "772" F"5","175":H=-̰"2":"7"-H,"175"-H:"248",-:-,-"168":H -"248",-:-,"168": VOTM=0:TCOU=0:a=120:A$(A,12 )="*"TCOU=TCOU+1 %A$(A,12 )="#"OTM=OTM+1 A 7SCORE=BA/"10":SCORE=SCORE*OTM:SCORE1SEA=SEA-1 "5":ڰ"5"::"65361",:E$="GAME OVER":"4","2";:ٺ:ۼ:CODE="64929":ۧ-:ٰ"9":'''"7";"FINAL SCORE ";SCORE:''"7";"HI-SCORE ";HSCO TCOU>20TCOU=20 j''"7";"# TEAMS ";OTM:''7;"* TEAMS ";TCOU:''"7";"SEASON ";SEA :"21",-;" PRESS ANY KEY FOR A NEW GAME ":- ,ڧ-:-:ٰ"9":::"12":"1084":"186"  DC>"806" "$DC=Y=̰"20":C(Y)=-A$(Y) $Y: &DC>"2""812" ()DC="2"Y="21"̰"40":C(Y)=-A$(Y) *Y: ,DC>"818" .'DC=Y="41"̰"60":C(Y)=-A$(Y) 0Y: 2)DC="4"Y="61"̰"80":C(Y)=-A$(Y) 4Y: 6GST=:"668" 8'HMAN=0:GST=:"1016":"858" ::BOC=CUW=TBC"10",-;"YOU WON ON THE CUP. ";O(CUW);"/1":OD=O(CUW):TO=SC*OD:TO=TO+SC:"STAKE `";SC;" RETURN `";TO:BA=BA+TO:"30" <BD1=A$(GT1)=Y$():"10",-;"YOU PICKED DIV 1 WINNER. ";O(GT1);"/1":TO=-:OD=O(GT1):TO=OD*SC1:TO=TO+SC1:"STAKE `";SC1;" RETURN `";TO:BA=BA+TO:0030 JBR1=A$(GT8)=Y$("19")BR1=A$(GT8)=Y$("20"):"10",-;"RELEGATION FROM DIV 1. ";O(GT8+20);"/1":TO=-:OD=O(GT8+20):TO=OD*SC8:TO=TO+SC8:"STAKE `";SC8;" RETURN `";TO:BA=BA+TO:0030 PV:YE=-:Y$(,"12")="#"BA=BA+"80000":YE=:"`80000 FOR WINNING LEAGUE DIV 1" X1YE="21",-;"BANK NOW `";BA:0030: Y Z"HXW=-:GMM=-:"826":"976" \\OTM=0:QU=-:A=̰"20":P(A)=-:HY=(*):I(A+40()>500OTM=OTM+ ^ S(A)=S(A)=-S(A)=S(A)+HY `#S(A)="9"S(A)="8"S(A)=S(A)-HY b F(A)=F(A)=-F(A)=F(A)+HY d#F(A)="9"F(A)="8"F(A)=F(A)-HY f M(A)=M(A)=-M(A)=M(A)+HY h#M(A)="9"M(A)="8"M(A)=M(A)-HY j!K(A)=-:N(A)=-:E(A)=-:A kITTQ=0:A=110 :Y$(A,12 )="#"TTQ=TTQ+1:A lTTQ=10 960 m"886" nBA1 o.BA<-A=̰"20":A$(A,"12")="#"A$(A,12 )="*"A$(A,"12")=" "::PFST=I(A)*I(A+40():PFST=PFST/2:I(A+40()=0:ۼ;ٰ"6";ڰ"2";"YOUR SHARES IN "; A$(A):'"ARE SOLD BY YOUR CREDITORS ":'ٰ"6";"FOR `";PFST:'"TO COVER LOSSES":BA=BA+PFST:''"BANK NOW `";BA:1000 pA:32 :STW=0 r%BA<-OTM>-TCOU>0"878" s#BA0OTM0786 t z?HDB=-:"1106":"162":SEA=SEA+:"1000":"878":"186" |-9 ::"7";"THIS SEASONS BETS:": ~&HDB=-''9 ;" NO BETS MADE " %BOC=A$(TBC);" TO WIN F.A CUP" #BD1=A$(GT1);" TO WIN DIV 1" 'BR1=A$(GT8);" RELEGATION DIV 1"  "30": Cٰ"4":ܼ:"255",-:-,"175":-"255",-:-,-"175":ܧ-: D-,-:"255",-:-,-:-,"175":"255",-:-,"175": "568":"65361",2:E$="CONGRATULATIONS":ܼ:D=̰"40":"5":"6":"7":-:"10",;:(*"7")+:CODE="64929":ٰ"9":''3;ۼ;" YOU OWN THE TOP TEN TEAMS":D:"786"  ŒZ$="":Z=-̰"2":Z,-;Z$:Z:Z=̰"18":Z,-;"";Z,"29";"":Z:Z="19"̰"21":Z,-;Z$:Z: ě"568":ܼ:ٺ:"962":"5","9";"INTEREST FREE";"7","8";"LOAN AVAILABLE:";"10","12";"`100000";"13","4";"REPAYABLE AT 1% PER WEEK" #"20","10";٥*"7";"ACCEPT Y/N" ="N"ܧ-:"1114": ="Y"972  966 #BA=BA+"100000":V$="UNAVAILABLE" ܧ-:"1114": d"568":ټ:"962":ٰ"9":"4","11";"RELEGATION";"6","11";Y$("19");"8","11";Y$("20") Җٰ"6":ACR="4":"13",ACR;"DIV 1 WINNER ";Y$():9 :"18",ACR;"BANK `";BA:#1;1,11 ;5;9 ;"PLEASE WAIT" I(19)=250:I(20)=250:I(39')=1000:I(40()=1000:I(59;)=0:I(60<)=0:H$=Y$(19):R$=Y$(20):GRTE=(*8)+1:Y$(19)=O$(GRTE):Y$(20)=O$(GRTE+1):O$(GRTE)=H$:O$(GRTE+1)=R$  &"954":ٰ"9":="A"AUTO=:"458" )="O""996":AUTO=-:OWN=:"458" ="M""458" (="W""996":AUTO=:OWN=:"458" ="E""186" "982"  Q"23658","8":TCOU=-:OTM=0:A=̰"20":A$(A,"12")="*"TCOU=TCOU+ %A$(A,12 )="#"OTM=OTM+1 A: "5":ڰ"7":ٰ"9" TA=::8,4;:2:E$="PLEASE WAIT":CODE=64929:10 ,4;:2:E$="CALCULATING":CODE=64929:12 ,10 ;:E$="TABLE":CODE=64929:A=̰"20":Y$(A)=A$(A):Y(A)=P(A):A GST=-PL=-:"1032"  MAR=-  B=̰"19" Y(B)TCOU=-:MIN=:MAX="20":HCHA=-:LCO=0:RAT=0:K("21"):N("21"):E("21"):J$="BALANCED" :QJ=-:CF=-:D("8"):G("8"):SF=-:GST=-:C("8"):TO1=(*"10")+ @"LIVERPOOL","EVERTON","CHELSEA","ARSENAL","SOUTHAMPTON","NORWICH","ASTON VILLA","TOTTENHAM","NOTTM FOR","MILLWALL","MAN UTD","COVENTRY","C PALACE","LUTON","DERBY","MAN CITY","WIMBLEDON","Q.P.R","CHARLTON","SHEFF WED" HSTDD=0:SUTY=0:SUT=0:HMET=0:HMAN=0:B(20):STW=0:I("61"):P("21"):S("21"):J=̰"20":S(J)=(*"7")+1:I(J+20)=(*400)+100d:J IV(20):A=16:I(A)=1000:A:A=713 :I(A)=750:A:A=1420:I(A)=500:A JCHCHA=-:Y("21"):Y$("21","12"):H("21"):u("21"):O("41") KB$(20,1):O$(11 ,12 ):J=110 :O$(J):J:"HULL","NEWCASTLE","WEST HAM","WATFORD","SWINDON","IPSWICH","LEEDS UTD","PLYMOUTH","OXFORD","OLDHAM" L5DON=-:JUMP=-:F("21"):J=̰"20":F(J)=:J N1CUN=1:M("21"):J=̰"20":M(J)="2":J R:BOC=-:TBC=-:BR1=-:GT8="21":BD1=-:GT1="21" TSC1=-:SC8=- V "1000" X ZAE="21"̧--:E,-;" ":E: \GBOFF=(*"20")+:A$(BOFF,"12")="*"A$(BOFF,12 )="#""1116" ](BOFF>20BOFF=01116\ ^GSAL=I(BOFF):SAL=SAL-(*200)+502:SALI(BOFF)1118^ _ٰ"9"::''"DUE TO A CONSORTIUM PULL OUT ":'"500 SHARES ARE NOW AVAILABLE IN:":'6;A$(BOFF):'"NORMAL PRICE PER SHARE `";I(BOFF):'"OFFER PRICE `";SAL:'"TOTAL COST OF 500 `";SAL*500 `u"17","7";"PURCHASE ? Y/N":"20","7";"BANK `";BA:="N"I(BOFF+"20")="500":BARG=-::"60" b="Y"BA=BA-SAL*"500":I(BOFF+"20")=-:A$(BOFF,"12")="*":I(BOFF+"40")=I(BOFF+"40")+"500"::BARG=-:"1000"::"60" d "1120" g jP(A)<"10"SPC="18" k#P(A)Ȱ"10"P(A)<"100"SPC="17" lP(A)Ȱ"100"SPC="16" o t8ESP=-:NSP=-:KSP=-:Y(A)>"9"Y(A)ǰ"99"EX= uY(A)>"99"EX="2" vN(A)<"10"NSP= wE(A)<"10"ESP= xK(A)<"10"KSP= | 级:STW<"500"4: 2:STW=-:A=̰"20" /I(A)>"100"I(A)=I(A)-I(A)/"20":I(A)=I(A) A: A=120 ZI(A+20)+I(A+40()>1000I(A+20)=I(A+20)-11 :1171  I(A+"20")<-I(A+"20")=- A: B(A)<"10"SSS= B(A)Ȱ"10"SSS=-  RTCOU=-OTM=0:"10","4";"YOU DONT OWN ANY SHARES":׼,:"186" Q:"10",-;"PERSONAL COST PER MEETING CALLED":'"13";"`500":"100" }ڧ-:ٰ"9"::"6";ۼ;"SELECT TEAM NUMBER:":A=̰"20":A$(A,"12")="*"A$(A,"12")="#""1300":TAB;A;". ";A$(A) A #" TEAM NO. (0 TO EXIT) ";E$ CE$="GIT"BA=2000000t$:6:1:0:1200 E$="0"E$="00""186" E$>21200 +E$(1)>"57"ůE$()<"48""1200" (GMTI=E$:GMTI>"20"GMTIǧ-"1200" A$(GMTI,"12")=" ""1200" UHMET=:BA=BA-"500"::"6";"SHAREHOLDERS MEETING":'"10";ڰ"6";ٰ"2";A$(GMTI) Β'';"1. SACK MANAGER":';"2. IMPROVE GROUND FACILITIES":';"3. WAGE RISE TO PLAYERS":';"4. COACHING STAFF WAGE RISE":';"5. EXIT" &="1".08}# =,"8":"9":"1400" &="2".08}# =,"8":"9":"1450" &="3".08}# =,"8":"9":"1500" ="5"HMET=-:"186"  ="4".08}# =,"5":"1600"  "1240" A>"9"TAB="7": Aǰ"9"TAB="8": x.08}# =,"9":"9" /NO=-:YES=-:TTLO=S(GMTI)+M(GMTI)+F(GMTI) TTLO>"12"NO=:YES=- TTLOǰ"12"NO=-:YES= 0A$(GMTI,12 )="#"YES=1:NO=0 YES=1TTLO12 18,3;"VOTE RETURNED IN YOUR FAVOUR.":" MANAGER IS SACKED.":" BUT SHARES DROP. MORALE FALLS":I(GMTI)=I(GMTI)-10 :M(GMTI)=0:2000:32 :186 YES=118,2;"VOTE RETURNED IN YOUR FAVOUR.":8;"MANAGER SACKED.":9 ;"SHARES DROP.":3;"BUT BIG TEAM MORALE BOOST.":I(GMTI)=I(GMTI)-10 :M(GMTI)=9 :2000:32 :186 YES=018,3;"VOTE RETURNED AGAINST YOU.":" MANAGER STAYS ON.":" SHARES DROP. MORALE FALLS.":I(GMTI)=I(GMTI)-5:M(GMTI)=0:2000:32 :186 @RGT1=(*5)+1:A$(GMTI,12 )="#"RGT1=1 yRGT1119,7;"YOU ARE OUT-VOTED":3;"THE GROUND STAYS THE SAME.":32 :186 RGT1=118,8;"YOU WIN THE VOTE":" THE GROUND WILL BE IMPROVED.":9 ;"SHARES GO UP.":I(GMTI)=I(GMTI)+10 :2000:32 :186 >WRR=(*4)+1:A$(GMTI,12 )="#"WRR=1 WRR=118,8;"YOU WIN THE VOTE":" MORALE UP SHARES UP WAGES UP":" COST: EXTRA `1000 PER WEEK.":V(GMTI)=V(GMTI)+1:I(GMTI)=I(GMTI)+5:M(GMTI)=9 :2000:32 :186 fWRR119,7;"YOU ARE OUT-VOTED":" WAGES STAY THE SAME":32 :186 E>CSR=(*6)+1:A$(GMTI,12 )="#"CSR=1 JCSR=118,7;"YOU WIN THE VOTE.":" FITNESS AND MORALE UP.":F(GMTI)=9 :M(GMTI)=9 :32 :186 TCSR118,6;"YOU LOSE THE VOTE.":" FITNESS AND MORALE DOWN.":M(GMTI)=0:F(GMTI)=0:32 :186 2A=120:I(A)10 I(A)=10 "I(A)>1000I(A)=1000  >,0:" TEAM NO. (0 TO EXIT) ";E$ ? E$="0"CUN=0:186 @E$>2186 H1ERIC=E$:ERIC>20ERIC<1186 I%A$(ERIC,12 )=" "TART=1 M&I(ERIC+20)02110> RSRB=1000-I(40(+ERIC)::10 ;2;A$(ERIC):'''4;"SHARES TO BID FOR ";SRB:'4;"CURRENT PRICE `";I(ERIC) _g11 ,4;"YOU CAN GO INTO THE RED";12 ,1;"IF YOU WISH AT YOUR OWN RISK!" f419,2;"MAKE YOUR OFFER OVER `";I(ERIC) p" `";E$:SOF=E$ qSOF=0186 zSFTR=(*502)+10 ~SHI=(*SRB)+1 CUN=2:SOF>I(ERIC)+SFTR'4;6;2;SHI;" ACCEPT YOUR OFFER":I(40(+ERIC)=I(ERIC+40()+SHI:TUT=SHI*SOF:BA=BA-TUT:I(ERIC+20)=0:3500 :30:186 MSOFI(ERIC)+SFTR'8;" NOT ACCEPTED ":502:186 <TART=1I(ERIC+40()<501TCOU=TCOU+1 dTART=1I(ERIC+40()501OTM=OTM+1:TCOU=TCOU+1:A$(ERIC,12 )="#" NI(ERIC+40()<501I(ERIC+40()>0A$(ERIC,12 )="*": FI(ERIC+40()>500A$(ERIC,12 )="#":OTM=OTM+1:  B1:9 ::A=19 :A,9 ;A;"-";A$(A):A 2A=10 20:A,8;A;"-";A$(A):A: 'B65536-7962:"M";1;"run":*"m";1;"run": ',:"ERROR ? ":׺,"33":"300":"186" sc odV AVAILABLEgxmIBALANCEDdaedbuoeede LIVERPOOL #EVERTON #CHELSEA *ARSENAL *SOUTHAMPTON*NORWICH *ASTON VILLA*TOTTENHAM *NOTTM FOR *MILLWALL *MAN UTD *COVENTRY #C PALACE *LUTON DERBY *MAN CITY *WIMBLEDON *Q.P.R #CHARLTON *SHEFF WED * NcoiachcalllJBALANCED++s+otdutumemag   t4= *jw Zellg l ll) - +-+ ++- + - -ω HULL NEWCASTLE WEST HAM WATFORD SWINDON IPSWICH LEEDS UTD PLYMOUTH OXFORD OLDHAM oumlulrtdtcct Zl artoZb(arl qutouni=f g wd rs doZPOINThcf#Psri roft h u_@ofaE