ZXTape! 0Created with Ramsoft MakeTZX]SNOOKER ` D62993:0:0::"PIC":0,0:"CODE" -236066\,18:236077\,245 0,0:"MAIN" ]PIC Pplp|?<Gg????pUo<O p~_VQ||||p|<U[@_+<<<*<<<_W?xGw_*~ w  * B "ʪ>c<<~~'_@ o:!\TU[Ucsff``??  @@o?U(*?*c{f`||U/ez(@x/Sb0SB@Uo1U5 o~n``P @/*_$@ *ÿ cgff``UWÆ(AUPkVB U_0C ccf<~~  xT@`;B  xa  W* PPUVBU_ @! @@`1?m?&L !dYH1 A@p\;`*  Z2 eY1X A 85u` }: e]H1X 8A쪠 ( U?ֵ6 }[C P6Z2 eYF1X?ت*o U6o޵6Z2 eYF1X8/?o6?om޵ eC_FG?x(~*Um*ٳm}GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGxxxx88888888888GGGxxxx88888888888GGGxx88HHH88888888GGGxHHHHH888888GGGx08HHHH888888GGGGG88888HOOxx88888GGGGGGGGGGGGGG88889HOxxx88888GGGGGGGGGGGGGGGGG8888Hxxxxx8888GGGGGGGGGGGGGGGGG8888HOxxxx8888GGGGGGGGGGGGGGGGG8088HOxxxxx888GGGGGGGGGGGGGGGGG8pppOHOxxxxx888GGGGGGGGGGGGGGGxxxxxpGGOxxxxxxxxGGGGGGGGGGGGGGG ppxxxxx GGGGGGGGGGGGGGG`````xx8888x`````GGGGGGGGGGGGGGGbbbbgggg`xx``````G000000000000GGbbbbgggg`````````G000000000000GGbbbbgggg`````````G000000000000GGbbbbbbbbbb```````G000000000000GGbbbbbbbzbb```````G000000ppppppGGGGGGGGGGGGGGGGGGGG000000000000GGGGGGGGGGGGGGGGGGGG}\CODE #?=v2, $$$~$$~$>(> >v\h:n(*D:  >>> < >> L8flxxlf`````~f~ffffffvnff|ff|lf<`<F<~fffff<ffff$ffff~$f<`|bbb|bbb>>pB<`|bbbb<F<dhxhdb`````<|jjjj|bbbbB<> 0~0p p(_  xTW?G * w  * B "ʪ @@`1@ o:!\TUU A@p\@@o?(*?* A 8@x/Sb0S@U1U5 8A@/*_$@ *ÿ AUPB U0C?@`B  xa8/? PPUBU_ @!FG?xxxxxxxxHxxxxxxxxxHxxxxxxHHHHxxxxHHHHHHHxxxH88HHHHH88888HOOxx88889HOyxxx888Hyxxxx888HOxxxxx88HOxxxxxxpHHOxxxxxxpGGGxxx xxxxxxx```xx8888x```ggg`xx````ggg````Á (#$$$$$$#( $$$$$$$$$$BB<DHpHDB@@@@@~BfZBBBBbRJFBT)*"1400"+(="A")*"500"+(="T"INJ=ç)*"600"+(="F"INJ=ç)*"700"+(="L")*"1E3"+(="W")*"1100"+(="C"MON-OVF)*"4900"+(="O")*"2500"+(="B")*"800"+(="N")*"6300"+(="G"TNO>Z)*"6400"+(="P")*"6600"+(="Y"TU>ç)*"2030" JU="4900"JU JU=Z"470"  JU:"410"  T:T:SE: EZ,TN+O;O;"TOURNAMENTS";Z,"29";S;Z;"NO.";Z,"23";FI;"BOOKED" I=O̰"20":I,Z;(I/T=(I/T));I;TH;T$(I);"26";FI;Z;("Y"T(I,TH)=O)+("N"T(I,TH)=T);:T(I,T)=O(I/T=(I/T));"28";S;Z;T(I,O) >(I/T=(I/T));"32";:TU>I(TU=ITNO=ç)I,"26";"PLAYED" I:FG="395" 7F$="ENTER PHONE NO.(0 MENU) ":LE=F:"9E3":Z$="0"  (I=O̰"20":(Z$)=T(I,O)RA=I:I="98" I:I="99"I=RA GI="21"BR=O:PA=O:F$="THIS NUMBER DOES NOT EXIST":"9100":"545" IT(I,T)=ZBR=O:PA=O:F$="YOU DO NOT HAVE THIS NUMBER":"9100":"545" HT(I,TH)=OBR=O:PA=O:F$="TOURNAMENT ALREADY BOOKED":"9100":"545" LT(I,TH)=TPA=O:BR=O:F$="YOU HAVE ALREADY BEEN REFUSED":"9100":"545" "550" !"4E4":"9010":"520" &#FG=::'''O;S;T$(I);("32"); +BTN,O;"YOU ENQUIRE AS TO WHETHER YOU CAN ENTER YOUR BOY" 0)"15",O;"TOURNAMENT OFFICIALS SAY : "; 5/(RA*TN)+"150":Q$:V=OE:Q:Q<"50""575" :V D;R2=O+(*"100"):R2>AWRAWR"25""646" E"610":F$="POSITION ":"9E3":K(T)=Z$:K(T)>("25"-K(O))"648" K(TH)="25"-K(O)-K(T):"610" "9010":"625" :E,F;O;"MATCH ALREADY ORGANISED":YM=NTN,T;"YOU MAY CANCEL BUT WILL HAVE"'"TO FORFEIT THE FEE PAYED TO THE";"11";"CELEBRITY":"672" iYM=FITN,T;"TO PULL OUT OF THE TOURNAMENT YOU HAVE TO FORFEIT EXPENSES AND";TN;"PRIZE MONEY":"672" TN,T;"YOU MAY CANCEL THIS BUT WILL"'"HAVE TO PAY HALF THE PRIZE MONEY"'S;"AS A DEFAULT PAYMENT";"14",E;"THIS TOTALS `";(YM/T) "21","11";O;"CANCEL Y/N" Q$=:Q$="N" Q$"Y""675" YM=NYM=FI"690" MON=MON-(YM/T) YM=Z:"701" YM>Z"665" ^YM=-O:N,FI;O;"MATCH ALREADY PLAYED":"11",O;"YOU MAY PLAY ONE MATCH A WEEK":"395": 5YM=-T:N,FI;O;"MATCH REFUSED ALREADY":"395": 2O(FI):F:F::O,Z;O;"11";"FIX MATCH";"32" >RA=F:RB=F:RC="20":RE=FI:PA=F:IN=S:FL=Z:BR=Z:"9020" FI,FI;"1. PLAY A CELEBRITY" SE,FI;"2. ARRANGE CLUB GAME" N,FI;"3. TOURNAMENT" +"21",T;ܼ;"ENTER SELECTION M MENU" 8Q$=:"735"+(Q$="2")*FI+(Q$="1")*"25"+(Q$="3")*"40"  Q$="M" "725" <"21",ç;V$:"13",T;"GAME ORGANISED AGAINST :-":"380" "15",E;O;O;Z$:R1=F:"770":YM=((*"11")+TN)*FI:EX=(*"11")+TN:"17",Z;"PLAYING FOR `";YM''"ADMINISTRATION EXPENSES `";EX:MON=MON-EX !R$="CLUB GAME":FR=FI:"395": N"13",T;"GAME ORGANISED AGAINST :-":R1=(*"32")+O:"15",E;O;O;A$(R1) I=OFI:O(I)=A(R1,I):I:O$=A$(R1):YM=N:EX=((*FI)+O)*"100":"17",Z;"FEE TO CELEBRITY `";EX:MON=MON-EX:EX=(*"11")+TN:"19",Z;"ADMINISTRATION EXPENSES `";EX:MON=MON-EX:R$="CELEBRITY MATCH":"395":OWR=R1:FR=FI: I=OTH:O$=Z$:O(I)=((*T)+R1)*TN:I:O(F)=(*"20")+"40":O(FI)=(*"30")+"40":R1="6"-R1:OWR=(R1*"10")+"32"+(*(R1*"10")):AWR=OWROWR=OWR+O  "13",T;"1ST ROUND OPPONENT -":"380":"15",E;O;ܼ;Z$:"17",Z;"YOUR SHARE OF PRIZE MONEY `25":EX=(*"11")+"15":"19",Z;"ADMINISTRATION EXPENSES `";EX:MON=MON-(EX+"25"):FR=FI:R$="CLUB TOURNAMENT"  /TR=O:YM=FI:R1=TH:"770":"4750":"395":  T:T:SE: %O;N;"BANK DETAILS";"32" *'F,Z;"CURRENT ACCOUNT";"22";"`";MON 4'''"OVERDRAFT FACILITY";"22";"`";OVF -"21",O;O;"I INCREASE OVERDRAFT M MENU" Q$=:Q$="""910"  Q$="M" Q$"I""910" aR1=((("100"-AWR)/FI))*"1000":OVF> R1"18",Z;"BANK MANAGER REFUSES TO INCREASE":"395": NR1="200"+OVF+((R1-OVF)/SE):"18",Z;"INCREASED TO `";R1:OVF=R1:"395": T:T: !O,Z;O;TN;"LOAN SHARK";"32" !FI,Z;"ALREADY IN DEBT BY `";LW 8E,T;"INTEREST RATE 0.95% PER WEEK";TN+O;"(49.4% PA)" 6"14",Z;"CURRENT WEEKLY INTEREST `";(LW*".0095")  -"21",O;O;"P PAY OFF B BORROW M MENU" %Q$=:Q$"P"Q$"B"Q$"M""1040" "21",Z;V$:Q$="M" 1F$="PLEASE ENTER AMOUNT `":LE=N:"9E3":Q=Z$ $Q$="P"Q=-Q ):LW+Q>"2E5""18",Z;"LOAN LIMIT IS `200,000":"395": .LW+QZQ<"100"WPER=Q Q$="W"WG=Q  "1100" WG"19""395":"1415"  "1450" WK=WK+O:"2020" $I=O̰"20":Q:Q=WKTU=TU+O:TNO=O I jTH,F,S,N,"11","15","16","20","23","32","34","36","40","24","25","26","27","28","29","30" TNO=Z"2070" "7E3" 0O:O:SE::"NEXT TOURNAMENT :-"''S;Z;T$(TU) FI,Z;FI;Z;"PRIZE MONEY" 2'"WINNER";"25";"`";N,Z;"RUNNER UP";"25";"`" T"11",Z;"SEMI-FINAL LOSERS";"25";"`";"13",Z;"QUARTER FINAL LOSERS";"25";"`" 9RA=SE:I=TFI:Q$=P(I):RA,"32"-Q$;P(I):RA=RA+T:I sP(S)ç"15",Z;("1ST"NUM="16")+("2ND"NUM="32")+" ROUND LOSERS";"25";"`":Q$=P(S):"15","32"-Q$;P(S) TP(SE)Z"17",Z;"1ST ROUND LOSERS";"25";"`":Q$=P(SE):"17","32"-Q$;P(SE)  9'"HIGHEST BREAK";"25";"`";:Q$=P(O):"32"-Q$;P(O) "395" WK="41""9500"  "400" FI:FI:O <:SE;O;N;"WORLD RANKINGS";"32";T,"18";"RANKING PTS" JRA=TH:RB=F:RC="22":RE="16":PA=FI:IN=Z:BR=Z:FL=Z:"9020":I=ZO \RA=F:Q=O+(I*"16")("16"*(I+O)):Q$=R(Q):(A$(Q)=N$);RA,FI;Q;N;A$(Q);"27"-Q$;R(Q) RA=RA+O:Q ."21",Z;TH;O;"C CHANGE O OTHERS M MENU" Q$=:Q$="M" Q$="O"I:"2512" Q$"C""2525" @F$="ENTER PLAYER NUMBER ":"9E3":Q=Z$:Q"32""2520" :F$="REPLACE WITH ":LE="11":BO="32":TO="90":"9E3" A$(Q)=Z$:"2515"  W$(O)=A$(Z(O)):W$(T)=A$(Z(T)) )Q=OT:I=OFI:W(Q,I)=A(Z(Q),I):I:Q: L:TH,TH;O;"CONGRATULATIONS, YOU HAVE";FI,TH;"BEEN GIVEN A PHONE NUMBER" !I=TU+O̰"20":T(I,T)=Z"4610" RI:N,T;"HOWEVER YOU ALREADY HAVE ALL"''TH;"FUTURE TOURNAMENT NUMBERS":"4620" )Q=(*("21"-TU))+TU:T(Q,T)Z"4610" (N,Z;T$(Q);"11",Z;"PHONE NO.";T(Q,O) Q"15",Z;"PHONE THIS NUMBER TO BOOK IN."''"TIME YOUR CALL CAREFULLY.":T(Q,T)=O  "395": f)AB>AAAP=Z+(TTR=T)+(FTR=TH):"4825" h~:TR=TR+O:TR=FTH,Z;"YOUR BOY HAS WON THE TOURNAMENT";SE;"AND COLLECTED `400":PM="400":AP=S:"395":ǰ".1""4600" iTR=F"4825" kv"380"::T,T;("SEMI-"TR=T)+"FINAL OPPONENT -":F,E;O;ٰ"7";O;Z$:R1=TH+(TR-O):"770":"4750":"395":"400" 2HB=(*"40")+"20":HB>ZX"380":Y$=Z$:ZX=HB  YMABRA=((AA-AB)*".5"):I=̰"5":A(WR,I)=A(WR,I)+RA:A(WR,I)=A(WR,I)-(A(WR,I)>"99")*(A(WR,I)-"99")+(A(WR,I)<)*(A(WR,I)+):I:PM=PM+YM ϐAB>AARA=((AB-AA)*):I=̰"5":A(WR,I)=A(WR,I)-RA:A(WR,I)=A(WR,I)-(A(WR,I)>"99")*(A(WR,I)-"99")+(A(WR,I)<)*(A(WR,I)+):I:LM=LM+YM  YM=NAA>AB"4600" YM=-O:AP>BPBP=AP ZX=ç:Y$="":"5000" ?:N,O;"YOU HAVE NOT ARRANGED A MATCH";''F;"FOR THIS WEEK "; !NM=O"SO FAR":"395":TNO=Z NM=O"4910" ,"IS THAT OK.":"21",E;ܼ;"ENTER Y OR N" !Q$=:Q$="Y"YM=-"2":"5000" Q$"N""4860" "400" )1Z(T):AP=Z:W$(T,"11"):W(T,FI):YM=Z"4850" .YM T)+("QTR-"RL=T)+("SEMI-"RL=O)+("FINAL"RL< TH):SP=O"7200" TR$=T$(TU):MH=MH+O:R1=MH*T:Z(O)=D(R1-O,RD,O):Z(T)=D(R1,RD,O):FR=F(RD):"4500" Z(O)=ZZ(O)=AWR:Z(T)=OWR 0YM=FIU$=("QTR-"TR=O)+("SEMI-"TR=T)+"FINAL" NM=O Q=RD:YM>ORD=TR wT:T:SE::O;R$;"22";U$:TH,TH;O;W$(O);("15");"V";"18";W$(T):'T;"PLAYED OVER BEST OF ";FR;" FRAMES":RD=Q 7"9990":E,Z;O;"WORLD RANKINGS":'(E);Q$;"22";Z$ TI=OT:Q=OTH:W(I,Q)=W(I,Q)+((W(I,F)-S)/F):W(I,Q)=W(I,Q)+((W(I,FI)-FI)/TH):Q:I ""15",Z;"DO YOU WISH TO SEE :-" B"18",TH;O;"1 THE WHOLE MATCH";"20",TH;"2 THE FINAL SCORE" Q$=:Q$"1"Q$"2""5035" Q$="1""5500" 4P1=W(O,O)+W(O,T)+W(O,TH):P2=W(T,O)+W(T,T)+W(T,TH) P1=(P1*S)-"100"+(("32"-Z(O))/TH):P2=(P2*S)-"100"+(("32"-Z(T))/TH):HI=((FR/T))+O:AA=((*P1)/"2.5"):AB=((*P2)/"2.5"):OFF=AA-HI:AB>AAOFF=AB-HI AA=ABAB=AB-O *AA=AA-OFF:AB=AB-OFF:AB+HI"100"B1=(*"98")+"50"  B2>"100"B2=(*"98")+"50" "HB=B1:HP=O:B2> B1HB=B2:HP=T HB<"25""5075" HP=OAA=Z"5075" HP=TAB=Z"5075" @HB>"135"HB=(*"58")+"90":HB>"140"HB=(*"58")+"90" HB>ZXY$=W$(HP):ZX=HB >"17",Z;O;"HIGHEST BREAK";Z''SE;HB;" BY ";W$(HP):"395"  "4800"  D(R1-O,RD,T)=AA:D(R1,RD,T)=AB &AA>ABD(MH,RD+O,O)=Z(O):Y(Z(T))= &AA D(Q+O,I,T)R(P2)=R(P2)+PTS AQ:I F F,TH,T,O,Z KSP=OSP=Z:"7200" M,"9900":R1=O:(WK/FI)((WK/FI))"5240" PR2=Z:I=O("33"-R1) UR(I)< R(I+O)"5220" ZI:R2=Z"5225" _R1=R1+O:"5200" dR2=O:Q=OFI:R3=A(I,Q):A(I,Q)=A(I+O,Q):A(I+O,Q)=R3:Q:R3=R(I):R(I)=R(I+O):R(I+O)=R3:Q$=A$(I):A$(I)=A$(I+O):A$(I+O)=Q$: iWKTBP=BP-T kDMP=MP+BP:AWR=((((WK/FI)*"4.5")/MP)*"44"):AWR>"99"AWR="99" nrBP=Z:PA=S:IN=Z:FL=O:BR=O:F$="NEW WORLD RANKINGS ARE PUBLISHED":"9100":I=O̰"33":A$(I)=N$WR=I:"5237" sI:R("33")ZAWR="33" uWR<"33"AWR=WR x"9400":I=OTH:A(WR,I)=A(WR,I)+(*(K(I)/"2")):A(WR,I)=A(WR,I)-(A(WR,I)>"99")*(A(WR,I)-"99")+(A(WR,I)<)*(A(WR,I)-):I:"9400" }2ZX=ç:Y$="":I=O̰"32"+(YM=Z):I="33""5255" 'R1=(*TH)+O:A(I,R1)=A(I,R1)+(*FI) 0R1=(*FI):R1=ZI<"33"A(I,F)=A(I,F)+(*F) 'R1=OI="33"A(I,F)=A(I,F)-O+(*TH) 1R1=(*S):R1"99"A(I,Q+TH)="99" A(I,Q+TH)"99"A(I,Q)="99" A(I,Q)PNTLB=O  PL=OAD-AC>PNTLB=TH PL=TAC-AD>PNTLB=TH PL=TAD-AC>PNTLB=O  SN=OB=T _B=B-(B=THCL=EBL="15")*T +(B=Z):TN,"23";B$(B):"200":"5670"+(B=O)*"40"+(B=TH)*"150" C=O+(*S): &{PL1=PL:CF=W(PL,TH)+(W(PL,O)/T)+(W(PL,T)/T):"6020":CFRA"6110":"6030":SN=Z:"5660":C=C-(C> TH)*(C-TH):"5600" 0"5660":C=C-TH:COBA=O: :BA=T+(*(W(PL,T)+F)):BA=BA-(BA> SE)*(BA> SE)*(BA-SE): _PL1=PL:CF=W(PL,TH)*T:"6020":CFRA"6110":"5660":C=C-(C> TH)*(C-TH):"6030":"5850" -"6070":"6110":"5660":C=C-TH:CAC=ADCL=CL-O:"5590" HSN=Z:PL1=PL:AA = AA+ ( AC > AD):AB = AB +( AD> AC):"5980":"6140":"6200":ZY=Z:"500":AA=(FR/T)+OAB=(FR/T)+O"4800" R "5510" \S,S;AC;S,"24";AD: f*T,TN;AA;T,"13";"FRAMES";T,"21";AB: p4CO=T+(BA=T)*F+(BA=TH)*T-(BA=FI)+(BA=S)-(BA=SE)*T: z8SE;S,"11";"BREAK(";ZY;") ";Z;"14",SE:"6240": 4RA=Z+(*("15"+(C=T)*FI+(C=TH)*N)+(SN=O)*"13"): PL=PL-(PL=T)+(PL=O): B=O: :RA=O+(*"15"):B=TH-(RA>"12"RA<"15")-(RA="15")*T: :RA=O+(*"15"):B=TH-(RA>"10"RA<"15")-(RA<"11")*T: JPL1=PL:RA=O+(*("50"-(SN=O)*"40")):RA<"49"-(SN=O)*"42""6030": j"6240":"14",N;"FOUL ";:RA=BA:RA=RA+(RA< F)*(F-RA):RA;" AGAINST":AC=AC+(PL=T)*RA:AD=AD+(PL=O)*RA &"50":RA=O+(*TN):RAOBL<"15"BA=O:  BA>OBL="15"CL=OCL=T:BA=T  ZYO ZX=ZZ:Y$=Z$ z"158","43":"97",Z:Z,-"30":-"97",Z:Z,"30":"17","20";"TOURNAMENT";"18","20";"BREAK ";ZX;"19","20";Y$: $fF,"43":"93",Z:Z,-"30":-"93",Z:Z,"30":"17",O;"HIGHEST";"18",O;"BREAK ";ZZ;"19",O;Z$: .p"100","43":"55",Z:Z,-"30":-"55",Z:Z,"30":"17","13";"HIGH";"18","13";"FRAME";"19","13";X$: 8"6210"+(AA+AB=O)*"20" BAC>HIAD>HI"6230" L V0HI=Z+(AC> AD)*AC+(AC< AD)*AD:X$=AC+"-"+AD: ` "14",SE;" ":  T:T:SE: SB=MH:NM=O:"4900":NM=Z YM=ZTNO=Z YM=Z Z,TN;O;"NEXT MATCH"''' >RA=T:RB=Z:RC="14":RE=O:PA=T:IN=FI:FL=Z:BR=O:"9020" BRA=T:RB="16":RC="14":RE=O:PA=T:IN=FI:FL=Z:BR=O:"9020" @RA=FI:RB=Z:RC="14":RE=SE:PA=T:IN=SE:FL=Z:BR=O:"9020" DRA=FI:RB="16":RC="14":RE=SE:PA=T:IN=SE:FL=Z:BR=O:"9020" 2TH,O;O;" ";W$(O);" ";TH,"17";" ";W$(T);" " <"9990":S,O;"WORLD RANK ";Q$;S,"17";"WORLD RANK ";Z$ X"6340":I=OFI:Q$:S;I+SE,O;Q$;"13";(W(O,I));I+SE,"17";Q$;"29";(W(T,I)):I ;"POTTING","POSITIONAL","SAFTEY PLAY","CONSISTENCY","FORM" Q$=U$:"15",SE;R$ "17","11";U$:U$=Q$ ""19",E;"BEST OF ";FR;" FRAMES" "395":MH=SB:  S:S:Z:  O;"12";"GAMBLE";"32"  [RA=TH:RB=TH:RC="22":RE="16":PA=S:IN=O:FL=Z:BR=Z:"9020":"9995":SP=O"7200" T,Z;"ODDS ARE AS FOLLOWS -" KO=NUM:I=ONUM ,R1=D(I,O,O):Y(R1)="1"KO=KO-:"6435" oR2=A(R1,FI)/"10":R3=Z:R4=RD:Q=OF:R3=R3+A(R1,Q)/"10":Q:Q="1"NUM:D(Q,RD+O,O)=R1R4=R4+O:"6430" Q yODD=(("40"-R3)+((TN-R2)*TH)+(R1*T)):ODD=(((ODD/"175")^"1.9")*"175"):ODD=((ODD/(R4/"2"))+".99"):ODD"16") UQ$=:Q$="M" ZQ$="O"KO>"16" _Q$"P""6485" iQ$="M":SKȰ"1E4""6510" k>F$="ENTER PLAYER NUMBER ":"9E3":Q=Z$:QNUM"6505" lY(Q)=O"6505" nY:"14",Z;"MAXIMUM STAKE TOTAL IS `10,000.";"16",Z;"ONLY 5 INDIVIDUAL BETS ALLOWED." s>R1=Z:O,Z;O;"STAKES TO DATE - ":I=OFI:B(I,O)=Z"6527" xOI+T,Z;A$(G(B(I,O),T));:B(I,TH)=O"14";"EVENS";"25";"`";B(I,T):"6525" y'"14";B(I,TH);"/1";"25";"`";B(I,T) }R1=R1+B(I,T):I DTN,Z;"TOTAL STAKE SO FAR `";R1;"12",N;"REMAINING `";("1E4"-R1) =R1="1E4""13",F;O;"YOU HAVE NO RESERVE LEFT":"395": :I=S"17",T;O;"YOU ALREADY HAVE MADE THESE":"395": ?"21",Z;O;A$(G(Q,T));:G(Q,O)=OO;"15";"EVENS":"6539"  "21",15;O;G(Q,O);"/1" CF$="ENTER STAKE (0 IGNORE) ":LE=N:"9E3":SK=Z$:SK"1E4"SK=("1E4"-R1) /TK=R1+SK:B(I,O)=Q:B(I,T)=SK:B(I,TH)=G(Q,O)  ,FI:FI:Z::O;"11";"PERCENTAGE";"32" ,E,Z;"% OF FUTURE WINNINGS SOLD - ";FP;"%" 2"450":F$="S SELL M MENU":FP>ZF$=F$+" B BUY" "17",("32"-F$)/T;O;F$ Q$=:Q$="M" Q$="B"FP>ZQ$="S""6626"  "6620" 'Q$="B"F$="ENTER % TO BUY ":"6630" F$="ENTER % TO SELL " +LE=TH:"9E3":R1=Z$:R1>"100""6630" Q$="B"R1>FP"6630" Q$="S"FP+R1 >"100""6630" dOFF=("200"+(((A(WR,O)+A(WR,T)+A(WR,TH)/"100")*"10"))+((A(WR,F)/"10")*"50")+(("50"-WR)*FI)) cQ$="B"OFF=(OFF*R1)*T:OFF>MON"15",Z;T;SE;O;" YOU CANNOT AFFORD THIS ":"300": GQ$="B"OFF=(OFF*R1)*T:"15",Z;"YOU MUST PAY `";OFF;" FOR ";R1;"%" HQ$="S"OFF=(OFF*R1):"15",Z;"YOU ARE OFFERED `";OFF;" FOR ";R1;"%" 7F$=Q$:"17",Z;O;"DO YOU ACCEPT ? Y OR N " Q$=:Q$"Y"Q$"N""6650" &Q$="Y"F$="S"MON=MON+OFF:FP=FP+R1 &Q$="Y"F$="B"MON=MON-OFF:FP=FP-R1  ZINJ=OT(TU,TH)=Z ]):P(SE):F(FI):Q=O:(TU*TN)+"150":Q$ b$I:I>"50"P(Q)=I:Q=Q+O:"7010" d$NUM=I:Y(NUM):I=O(Q-TH):F(I):I g.MH=Z:D("33",S,T):RD=:R1=F:NUM=ER1=O iNUM="16"R1=T l("7025":I=OE:D(((I-O)*R1)+O,O,O):I qT,SE,TH,S,FI,F,E,O v Q$="09" *I=TNNUM:Q$=Q$+(I):I:WRNUM"7050" NUM=E"7125"  I=ONUM D(I,O,O)Z"7120"  Q=(Q$) Q=(*(Q/T))+O R1=(Q*T)-O:R2=Q*T D(I,O,O)=Q$(R1R2)  Q$=Q$(OR1-O)+Q$(R2+O((Q$))) I $Q=NUM:I=OFI:Q=Q/T:Q=O"7135" I )TRD=I:T(TU,TH)=OWR>NUMSWN=NUM:SP=O (T(TU,TH)=ZWR<(NUM+O)SWN="33":SP=O  %I=OFI:R1=A(SWN,I):A(SWN,I)=A(WR,I):A(WR,I)=R1:I:Q$=A$(SWN):A$(SWN)=A$(WR):A$(WR)=Q$:R1=R(SWN):R(SWN)=R(WR):R(WR)=R1:YN=SWN:T(TU,TH)=ZWR<(NUM+O)YN="33" * EyFG=ç:B(FI,TH):G("32",T):TNO=Z:YM=Z:S:S:Z::O;S;"WEEKLY FINANCES":EPS=Z:INC=Z:T,Z;T;SE;"EXPENDITURE"'' F4TK>ç"GAMBLING STAKES";"25";"`";TK:EPS=EPS+TK GU< ".05"R1 =(*"2000")+"1000":"TAX & VAT PAYMENTS";"25";"`";R1:EPS=EPS+R1 JSITR=(LW*".0095"):EPS=EPS+ITR:ITRZF,Z;"LOAN SHARK INTEREST";"25";"`";ITR ONITR=(MON*".00225"):ITR T):I=OR1 YCR2=(*F)+O:"8900"+(FI*R2):Q$,R3,R4:R2=(*R3)+R4:EPS=EPS+R2 ^gQ$;"25";"`";R2:I:YBP=(WG+(PM*(WPER/"100"))):"PAYMENTS TO YOUR BOY";"25";"`";YBP:EPS=EPS+YBP `LPM>ZPO=(PM*(FP/"100")):"PRIZE MONEY % SOLD";"25";"`";PO:EPS=EPS+PO a8LM>Z"PAID OUT PRIZE MONEY";"25";"`";LM:EPS=EPS+LM c"11",Z;Z;SE;"INCOME"'' h4ITR>Z"BANK INTEREST";"25";"`";ITR:INC=INC+ITR m1GM>Z"GAMBLING WINS";"25";"`";GM:INC=INC+GM r/PM>Z"PRIZE MONEY";"25";"`";PM:INC=INC+PM wZ<".05"AWRZINJ=Z"8200":WO=(*FI)+T:T;"YOU ARE LATE WITH LOAN SHARK"'"REPAYMENT AND YOUR BOY IS BEATEN UP HE CANNOT PLAY OR TRAIN FOR";"13";WO-O;" WEEKS"''T;"RESET TRAINING TIMES WHEN";"11";"RECOVERED":INJ=O:K(O)=-"75":K(T)=-"60":K(TH)=-"60":A("33",F)=F:A("33",FI)=F:"395" ǰ".1""4600" (FP+WPER)>"100""8200":TH;"YOUR BOY SACKS YOU AS HIS";O;"MANAGER YOU HAVE SOLD TO MUCH";FI;"OF HIS FUTURE WINNINGS":"395":"8800"  WR>LL=WR 5WO>ZWO=WO-O:WO=ZK(O)=Z:K(T)=Z:K(TH)=Z:INJ=Z  "2000" ,:Z,Z;S;"11";"WEEKLY NEWS";"32"''': "eN"18",O;"YOUR MANAGEMENT REIGN IS OVER":"21",S;O;"TRY AGAIN ? Y OR N" "jQ$=:Q$="N" "oQ$"Y""8810" "t " "EQUIPMENT COSTS","100","50" " "GENERAL EXPENSES","50","50" ""HOTEL BILLS","200","100" "#"TRAVELLING EXPENSES","50","25" #( (F$);Z$:Z$LE"9E3" #*'X=O̱Z$:Z$(X)TOX="98" #,X:X="99""9E3" #./F$="":LE=T:BO="48":TO="57":"23658",E: #2"21",Z;V$: #<IN;PA;BR;FL;RA,RB;"";I$(ORC);"":I=ORE:IN;PA;BR;FL;RA+I,RB;"";RA+I,RB+RC+O;"":I:IN;PA;BR;FL;RA+RE+O,RB;"";I$(ORC);"": #5RA=(("32"-F$)/T):PA;IN;FL;BR;"21",RA;F$: $#INJ=ZYM=ZI=OTH:K(I)=-K(I):I $ %3T("20",TH)::O;SE;"END OF SEASON NEWS";"32" %!!Q=F:SEA=SEA+O:AWR<"17"Q=TH %& AWR R1E,T;"YOUR BOY WILL NOT SIGN A NEW";FI;"CONTRACT FOR NEXT YEAR":"8800" %:FI,T;"YOUR BOY SIGNS NEW ONE YEAR";"12";"CONTRACT";N,O;"DUE TO YOUR WORLD RANKING YOU";"13";"HAVE";"12","14";F-Q;"14",S;"BONUS PHONE NUMBERS" %?R("33")=ç:R(WR)<"380":R(WR)="4":A$(WR)=Z$:A$("33")=N$:A("33",)=A(WR,):A("33","2")=A(WR,"2"):A("33",)=A(WR,):WR="33":AWR=(*"10")+"33" %D'I=̰"32":R(I)<"380":A$(I)=Z$ %II %"395":"145" &H'I=ONUM:G(I,T)=D(O,TRD+O,O)"9810" &MI &R8R1=I:I=OFI:B(I,O)=R1GM=GM+B(I,T)+(B(I,TH)*B(I,T)) &\I: 'Q$=Z(O):W$(O)=N$Q$=AWR 'Z$=Z(T):W$(T)=N$Z$=AWR ' ' DPA=S:IN=Z:FL=O:F$=" P L E A S E W A I T ":"9100": 'Y"23635","23627":"23636","23628":"SNOOKER_SG":"23635","203":"23636","92": >!ZZPZPPZPPZPFZFPPPPPPPPPFPFZPFPPFFPPPPFFPFPPFFPPFPFFFFFFFFPFFPFFPFFPFFFFFFF<FPFF<FF<<F<F<FFF<FFFFp! S.DAVIS J.WHITE S.HENDRY N.FOULDS C.THORBURN J.JOHNSON T.GRIFFITHST.KNOWLES DN.TAYLOR A.HIGGINS S.FRANCISCOW.THORNE R.WILLIAMS J.PARROTT D.MOUNTJOY D.REYNOLDS M.HALLETT C.WILSON P.FRANCISCOJ.VIRGO T.MEO K.STEVENS J.CAMPBELL E.HUGHES DV.TAYLOR E.CHARLTON D.MARTIN J.SPENCER B.WEST M.MACLEOD S.LONGWORTHT.DRAGO ! (d