Snooker ~~`T0:0:1:0::63962:"":"":19,0:"" ""t:":"Snooker"1:"mast0" CODE ~$$>8>>fl0fFS   00$~$>> 0`<~nvf~<88<<<~N8~~<~N~<  ~~p<~|<|`|f~<~~8p`<~f 0 >>0 0|<00|~fff~~~~`|`~~~~`|```>~`nf~<ff~~fnlf~<bflx|nf````f~|DF<~fff~<<~f~|``<~ffn~>|~f~|nf>~p<~<~~dffff~<ll8D|8|ffn<~> 0~~ :999  08\rrrrNNNN''А  @@@@pppp;<08888< 5* $T`~~~<<<~~ p  ݪwܨpP pppp S9sg?;??~??|?|ϟ@@{{{E{{{{Q{{*+{u%%%"yyEyyyyQyyEIU]U|PPYED;{{{{xxPxx@@?e`f?+_q7`UժUUW;ܰj4[*U*UTTsWwwwuuwwwuuwWwwww+;;;;u9;:{::;(8xp8(8p888TT8ZZ(!SCREEN$ ~n <3  OOOoO  ////_/  ??  > 0     ~ ?  <  <   @TU@T@@@  ʪ??U@?? ? ?~??    _UU ? k =;_= }yk  G  *  @ @  k*p* H4k  f UWU_U_UUU 蠟_ kn;P; .|k  ys ꪀ  $*P(? k*p)? 1EIYBAk? ߿~ [{տEE UUUUUWUWU_U  蠐"*P)  k+_@? qEQEQAAk}{ ?{ *ꢯꊯ  *ꪪ x>;p; 3k ( @ EQEQAAk? ? UUUQUUUUUUUEUUUEUUU  UUU@UUU@UUUUUUUUU "10""17" T"5000":NOG="1":"8400"::"7900":M(PNUM)="45":N(PNUM)="45":O(PNUM)="45" )"9302":Q="1"̰"32":Q(Q):Q:"9300" Q  1990:DAY="8"FAC="1" ZSTK="7":"5980":PP1="7":PP2="7":"5090":"5300":DAY<"15"Q="1"̰"8":W(Q):Q sDAY="2"DAY="9"Q="1"̰"31"Ͱ"2":PNI1=Z(Q):OIK="34"-(Q+"1"):PNI2=Z(OIK):Q(Q)=PNI1:Q(Q+1)=PNI2:Q DAY="3"DAY="4"DAY="5"DAY="6"DAY="7"DAY="10"DAY="11"DAY="12"DAY="13"DAY="14"FAC="1"FACU="1":"7500":"6000":"26" ~DAY="3"DAY="4"DAY="5"DAY="6"DAY="7"DAY="10"DAY="11"DAY="12"DAY="13"DAY="14"FAC="0"FACU="1":"6000" +LOAN=(LOAN*1.09 ):"7500":"7000" .DAY=DAY+"1":CASH=CASH-(("5"-LEA)*"1000") !X="1"̰"32":G(X)=G(X)+"1":X BQ="1"̰"32":M(Q)=M(Q)+((*"9")-"4"):M(Q)>"99"M(Q)="99" M(Q)<"15"M(Q)="15" 4N(Q)=N(Q)+((*"9")-"4"):N(Q)>"99"N(Q)="99" N(Q)<"15"N(Q)="15" !4O(Q)=O(Q)+((*"9")-"4"):O(Q)>"99"O(Q)="99" "O(Q)<"15"O(Q)="15" #Q '"21" ( "9996" DAY>7DAY+9292L$: DAY+9299S$: LCASH<"0"RAT<"0""9996":"10","6";"YOU ARE SACKED!!!":"150":"1"  "2":ڰ"2":ٰ"7":ܰ"0"::"0","7";"SELECT OPTION":FACU="1""0","0";ٰ"7";ڰ"1";A$;"0","4";C$;" CHAMPIONSHIP MATCH" "17","7";"SEE PLAYER OFFERS @";("5"-LEA)*"16000";"3","7";"BUY/SELL SHARES";"5","7";"SEE BANK";"7","7";"CHANGE PLAYER NAMES";"9","7";"CHANGE MANAGER NAME";"11","7";"CHANGE SKILL LEVEL ";LEV;"13","7";"IMPROVE PRACTISE TABLES";"15","7";STK;"PUT MONEY ON STOCK MARKET";ٰ"7";"19","7";"QUIT GAME";"21","7";7;"MORE OPTIONS":TCHY=((LEA*"8")-"8"):Q=18:HYU=Z(Q+TCHY):Q$(HYU)=P$POS=Q !"3","0";ް"1";ٰ"8";ݰ"1";A$ ;MD="3":CHO="1":HIG="21":LOW="3":MDP="2":"9920" MD="21""7500" MD="3""4500" MD="5""4100" 0MD="9"I$="MANAGER":"9700":"4000":M$=I$ &MD="11"KLV="0":"5000":"4000" MD="7""4200" MD="13""4300" 'STK="7"MD="15"STK="6":"4400" MD="19""7530":"4000" MD="17""4600"  "4000"  "9996" "1","10";"BANK ACCOUNT" ]ڰ"1";"5","1";"MONEY IN ACCOUNT: @";CASH;ڰ"2";"7","1";"MONEY OWED TO BANK: @";LOAN ."10","1";"LOAN MONTHLY INTEREST RATE: 9%" D"16","8";"RETURN TO MENU":LOAN="0""14","8";"OBTAIN LOAN" 'LOAN>"0""14","8";"PAY OFF LOAN" ""14","0";ް"1";ٰ"8";ݰ"1";A$ =MD="14":CHO="1":HIG="16":LOW="14":MDP="2":"9920" MD="16""4000" /LOAN>"0"CASH=CASH-LOAN:LOAN="0":"4000" .I$="ENTER AMOUNT: @ ":"4120":"4129" 6"30":N$="a":"12","5";ڰ"1";I$:cus="0":I$="" 1"12","20";ڰ"1";I$(1(I$));"l ":N$= ICUS<"5"N$>"47"ƯN$<"58"CUS=CUS+"1":.004yn,"50":I$=I$+N$ N$="13""4127" LCUS>"0"N$="12"CUS=CUS-1:.004yn,"50":I$=I$(1CUS)  "4121" I$=""I$="0"   !LOAN=I$:CASH=CASH+LOAN g "4000" h"8300":"8330" iQI$="PLAYER":"9700":PW=Z(TCH+CHO):Q$(PW)=P$Q$(PW)=I$:P$=Q$(PNUM):"4203" jPW=Z(TCH+CHO):Q$(PW)=I$ k "4000" IMV>"8""4000" ("9996":"0","9";"IMPROVE TABLES" b"2","3";"IMPROVE SNOOKER TABLES BY:":Q=IMV̰"8":(Q*"2")+"3","12";"@";Q*20000 N:Q 3MD=(IMV*"2")+"3":MD,"0";ް"1";ٰ"8";ݰ"1";A$ 0CHO="1":HIG="18":LOW=MD:MDP="2":"9920" DIMV=((MD-"5")/"2")+"1":CASH=CASH-IMV*"20000":IMV=IMV+1 / "4000" 01"9996":"0","3";"PUT MONEY ON STOCK MARKET" :GI$="ENTER AMOUNT: @ ":"4120":SE=I$:II=(*"5")+"1":"0" ;MI$=" YOUR INVESTMENT":II="1""15","1";"YOU LOSE ALL";I$:CASH=CASH-SE =AII="2""15","1";"YOU LOSE 1/2";I$:CASH=CASH-(SE*.5) >&II="3""15","1";"YOU REGAIN";I$ ?@II="4""15","1";"YOU WIN 1/2";I$:CASH=CASH+(SE*.5) @1II="5""15","1";"YOU WIN";I$:CASH=CASH+SE A"100":"4000"  "9996" A#"0";"0","0";ڰ"2";ܰ"1";" BUY/SELL SHARES " "0","0";ڰ"1";"COMPANY PRICE NO.OWNED":Q="1"̰"9":Q*"2","0";R$(Q);" @0.00";Q*"2","17";A(Q)/"100";Q*"2","24";B(Q):Q >"20","9";"RETURN TO MENU";"2","0";ް"1";ٰ"8";ݰ"1";A$ ;MD="2":CHO="1":HIG="20":LOW="2":MDP="2":"9920" MD="20""4000" I$="NO. OF SHARES: ":NOS=MD/"2"::"3","5";"COMPANY:";R$(NOS);"5","5";"SHARE PRICE :";A(NOS);"P";"7","5";"SHARES OWNED:";B(NOS)  B(NOS)="0"MD="18":"4512" 4"18","9";"BUY SHARES";"20","9";"SELL SHARES" ""18","0";ް"1";ٰ"8";ݰ"1";A$ =MD="18":CHO="1":HIG="20":LOW="18":MDP="2":"9920" RMD="18""4120":B(NOS)=B(NOS)+I$:CASH=CASH-((I$)*(A(NOS)/"100")):"4515" EMD="20""4120":I$>B(NOS)I$="NO. OF SHARES: ":"4513" 6B(NOS)=B(NOS)-I$:CASH=CASH+((I$)*(A(NOS)/"100"))  "4000" }POS>"8"ź(*"5")="1"CASH=CASH-(("3"-LEA)*"16000")::"10","0";"NOBODY WANTS YOU TO MANAGE THEM!":"100":"4000" *POS<"8"CASH=CASH-(("5"-LEA)*"8000") NOG="2":"8400" )PNUM=NOM:MOR=(*"20")+"40":"4000" 8"9996":ڰ"2"::"2","4";"SELECT SKILL LEVEL (1-5)" CHO="1":MD="6":"6","8";"1.......BEGINNER";"8","8";"2........AMATEUR";"10","8";"3.......MODERATE";"12","8";"4......DIFFICULT";"14","8";"5...PROFESSIONAL" MD,"0";ް"1";ݰ"1";A$ (LOW="6":HIG="14":MDP="2":"9920" CLEV=CHO:KLV="1"CASH=("12"-CHO)*"5000":MOR=("6"-CHO)*"10"  DAY/"2"ɺ(DAY/"2") "9996":ڰ"1": JIK=(*"7")+"3" TJIK="3"I$=" TOUR FRANCE":FMON1="5750":FMON2="3100":FSKI="0":FMOR="2" TJIK="4"I$=" TOUR USA":FMON1="11750":FMON2="4199":FSKI="1":FMOR="4" YJIK="5"I$=" RECORD A SINGLE":FMON1="10000":FMON2="25000":FSKI=-"3":FMOR="3" [JIK="6"I$=" OPEN A SUPERMARKET":FMON1="100":FMON2="6120":FSKI=-3:FMOR="0" [JIK="7"I$="APPEAR ON A QUIZ SHOW":FMON1="0":FMON2="6120":FSKI=-3:FMOR="1" [JIK="8"I$="APPEAR ON A CHAT SHOW":FMON1="0":FMON2="8020":FSKI=-4:FMOR="1" [JIK="9"I$="OPEN A SNOOKER CLUB":FMON1="250":FMON2="6420":FSKI=-2:FMOR="1" ]JIK="10"I$="PROMOTE A COMPUTER GAME":FMON1="400":FMON2="9420":FSKI=-"2":FMOR="1" P"2","6";"MANAGERIAL STATEGY":"4","0";ڰ"2";A$;A$;A$;A$;A$;"5","8";"DO YOU WISH TO:";"7","5";I$;"?";"11","1";ڰ"1";"OUTGOINGS:@";FMON1;"11","18";"INCOME:@";FMON2 SJFMON1>CASH"15","1";۰"1";"YOU DO NOT HAVE ENOUGH MONEY!!":"200": UBMD="15":CHO="1":"15","11";"ACCEPT";"17","11";"DECLINE" YMD,"0";ݰ"1";ް"1";A$ Z)MDO="2":HIG="17":LOW="15":"9920" _CHO="1"CASH=CASH+(FMON2-FMON1):MOR=MOR+(*FMOR)+1:M(PNUM)=M(PNUM)+(*"3")+FSKI:N(PNUM)=N(PNUM)+(*"3")+FSKI:O(PNUM)=O(PNUM)+(*"3")+FSKI `7CHO="1"(FMON2-FMON1)>"0"YERA=YERA+(FMON2-FMON1) d RNDZZ=(*"400") RNDZZ="9"I$=" YOUR PLAYER HAS BROKEN HIS CUE":MOR=MOR-(*"8"):M(PNUM)=M(PNUM)-"8":N(PNUM)=N(PNUM)-"8":O(PNUM)=O(PNUM)-"8" cRNDZZ="128"I$="YOUR PLAYER HAS WON THE POOLS!":MOR=MOR+"7":CASH=CASH+(*"50000")+"10000" JRNDZZ="9"RNDZZ="28"RNDZZ="128""9996"::"10","0";I$:"200": [ \AQ="1"̰"9":A(Q)=A(Q)+(*"30")-"15":A(Q)<"10"A(Q)="10" ]Q: o)A$=" ": p~MYST="0":TMLE="99":FACU="1":DAY="3"DAY="10"AOM=-3:PRM="9000"/TOC:NOMA="19":NOM="32":C$=" ROUND 1 " q]DAY="4"DAY="11"AOM=-1:PRM="16000"/TOC:NOMA="25":NOM="16":C$=" ROUND 2 " rXDAY="5"DAY="12"AOM="0":PRM="28000"/TOC:NOMA="25":NOM="8":C$=" ROUND 3 " sYDAY="6"DAY="13"AOM=+"1":PRM="45000"/TOC:NOMA="31":NOM="4":C$="SEMI-FINALS" tYDAY="7"DAY="14"AOM=+"3":PRM="80000"/TOC:NOMA="35":NOM="2":C$=" THE FINAL " uFAC="1""8800" vR"1":ٰ"7":ڰ"1":ܰ"0"::"1","10";C$:"4","0";:GAP="0":Q="1"NOMͰ"2" w-GAP=GAP+1:MNA=Q(Q):MNB=Q(Q+1) xCQ=TMLEFRMA=FRMA1:FRMB=FRMB1:PAP=2:30:6017 yLQ+1=TMLEFRMA=FRMA1:FRMB=FRMB1:PAP=2:100d:6017 |fPAP=1:FRMA=0:FRMB=0:R=1NOMA:RNGA=(M(MNA)+N(MNA)+O(MNA)+(*1000)) }WRNGB=(M(MNB)+N(MNB)+O(MNB)+(*1000)):RNGA>RNGBFRMA=FRMA+1:6015 ~FRMB=FRMB+1 AENFI=((NOMA/2)+.5):FRMA=ENFIFRMB=ENFI6017 R =Q=TMLEFRMB>FRMAFAC=0:TMLE=99c:MYST=1 DAY3day=10 (Q+7)/2,0;PAP;" ";Q$(MNA);" ";FRMA;" ";(Q+7)/2,17;Q$(MNB);" ";FRMB;" " FRMA>FRMBQ(GAP)=MNA FRMB>FRMAQ(GAP)=MNB EQ+1=TMLEFRMA>FRMBFAC=0:TMLE=99c:MYST=1 {DAY>3DAY10 Q+3,0;PAP;" ";Q$(MNA);" ";FRMA;" ";Q+3,17;Q$(MNB);" ";FRMB;" " Q MYST=1100d:MOR=MOR+AOM:FAC=0:FACU=0:CASH=CASH+PRM::10 ,0;"YOU RECEIVE A CHEQUE FOR @";PRM:YERN=YERN+PRM !FAC=1DAY=7DAY=142:RAT=RAT+(4/TOC):PRM=140000/TOC:YERN=YERN+PRM:CASH=CASH+140000:5,7;6;C$;" CHAMPION ";SEA;7,8;7;"* * ";P$;" * *";15,2;7;"YOU WIN A CHEQUE FOR @";PRM:200 "100":FACU="0":"26" Y0DAY>149300T$:7200 :21 ] "8800" ^X=0248 _ "9996" `0,0;2;A$;" SNOOKER LEAGUE DIVISION ";((X/8)+1);" ";A$:Q=314:Q,0;1;A$:Q:4,0;1;" RESULTS ":Q=182:JK=W(Q):JJ1=JK+X:JK=W(Q+1):JJ2=JK+X aDQ+X=TMLFRMA=FRMA1:FRMB=FRMB1:PAP=2:30:7016h dhPAP=1:FRMA=0:FRMB=0:R=15:RNGA=(M(JJ1)+N(JJ1)+O(JJ1)+(*200)) eVRNGB=(M(JJ2)+N(JJ2)+O(JJ2)+(*200)):RNGA>RNGBFRMA=FRMA+1:7015g fFRMB=FRMB+1 gR h(J(JJ1)=J(JJ1)+FRMA:K(JJ1)=K(JJ1)+FRMB i^Q+5,4;1;Q$(JJ1):FRMA>FRMBH(JJ1)=H(JJ1)+1:I(JJ2)=I(JJ2)+1 lKQ+5,15;1;FRMA;" ";7;Q$(JJ2);" ";5;FRMB mMQ+5,0;PAP;1;A$:J(JJ2)=J(JJ2)+FRMB:K(JJ2)=K(JJ2)+FRMA n9FRMB>FRMAH(JJ2)=H(JJ2)+1:I(JJ1)=I(JJ1)+1 vQ { "8000" X "27" !"1":ڰ"1":ٰ"7":ܰ"0": %"0,8;"END OF SEASON" '43,0;Q$(WCH);" WORLD CHAMPION @140000" *BJJ=Z(1):5,0;Q$(JJ);" LEAGUE CHAMPION @80000" +5JJ=Z(8):7,0;Q$(JJ);" RELEGATED" ,;JJ=Z(9 ):9 ,0;Q$(JJ);" PROMOTED @64000" -7JJ=Z(16):11 ,0;Q$(JJ);" RELEGATED" .=JJ=Z(17):13 ,0;Q$(JJ);" PROMOTED @48000" /7JJ=Z(24):15,0;Q$(JJ);" RELEGATED" 0=JJ=Z(25):17,0;Q$(JJ);" PROMOTED @32000" 1>JJ=Z(32 ):19,0;Q$(JJ);" BOTTOM OF LEAGUE" 2=JJ=Z(UKC):21,0;Q$(JJ);" U.K. CHAMPION @70000" 3YJJ=Z(1):Q$(JJ)=P$RAT=RAT+1:YERN=YERN+80000@:CASH=CASH+80000@ 5JJ=Z(8):S$=Q$(JJ):QA=M(JJ):QB=N(JJ):QC=O(JJ):LL=Z(9 ):Q$(JJ)=Q$(LL):M(JJ)=M(LL):N(JJ)=N(LL):O(JJ)=O(LL):Q$(LL)=S$:M(LL)=QA:N(LL)=QB:O(LL)=QC 86S$=P$LEA<2LEA=LEA+1:RAT=RAT-1 9oQ$(JJ)=P$CONTM=64000:YERN=YERN+CONTM:CASH=CASH+CONTM:RAT=RAT+1:LEA>1LEA=LEA-1 :JJ=Z(16):S$=Q$(JJ):QA=M(JJ):QB=N(JJ):QC=O(JJ):LL=Z(17):Q$(JJ)=Q$(LL):M(JJ)=M(LL):N(JJ)=N(LL):O(JJ)=O(LL):Q$(LL)=S$:M(LL)=QA:N(LL)=QB:O(LL)=QC ;)S$=P$LEA=LEA+1:RAT=RAT-1 1LEA=LEA-1 =3JJ=Z(32 ):S$=Q$(JJ):S$=P$RAT=RAT-1 >JJ=Z(24):S$=Q$(JJ):QA=M(JJ):QB=N(JJ):QC=O(JJ):LL=Z(25):Q$(JJ)=Q$(LL):M(JJ)=M(LL):N(JJ)=N(LL):O(JJ)=O(LL):Q$(LL)=S$:M(LL)=QA:N(LL)=QB:O(LL)=QC ?)S$=P$LEA=LEA+1:RAT=RAT-1 @lQ$(JJ)=P$CONTM="32000":YERN=YERN+CONTM:CASH=CASH+CONTM:RAT=RAT+1:LEA>1LEA=LEA-1 GSEA=SEA+1:"350" HQ$(WCH)=P$RAT=RAT+1 IQ$(UKC)=P$RAT=RAT+1  "9996" U"9","0";ڰ"1";A$;A$;"10","2";"PRIZE MONEY FOR ";SEA;": @";YERN;"11","0";A$ "200":"7900":"9300" LOAN>19996 ':10 ,0;"YOU HAVE BORROWED TOO MUCH MONEY";12 ,8;"YOU ARE SACKED!!":100d:1  M"1":ڰ"1":ٰ"7":ܰ"0"::"0","7";"SELECT OPTION":FACU="1""0","0";ٰ"7";ڰ"2";A$;"0","4";C$;" CHAMPIONSHIP MATCH" ODAY="8"UKC=Q(1) PYC$="U.K.":TOC="2":DAY>"8"C$="WORLD":TOC="1":WCH=Q(1):DAY="8"FAC="1" Qt"3","7";"LOAD/SAVE GAME";"21","7";"MORE OPTIONS";"5","7";"WATCH PLAYER";"7","7";"SEE FIXTURES";"9","7";"SEE LEAGUE TABLES";"11","7";"SEE ";C$;" CHAMPIONSHIP";"13","7";"SEE STATUS";"15","7";PP1;"PRACTISE";"17","7";PP2;"ADVERTISE";"19","7";ٰ"7";"PLAY GAME":TCHY=((LEA*8)-8):Q=18:HYU=Z(Q+TCHY):Q$(HYU)=P$POS=Q R$Q:"3","0";ް"1";ٰ"8";ݰ"1";A$ S>MD=3:CHO="1":HIG="21":LOW="3":MDP="2":"9920" TMD="9""8080":"7500" UMD="5""8700":"7500" VMD="13""8200":"7500" WMD="7""8500":"7500" X MD="19" Y0MD="15"PP1="7""9400":PP1="6":"7500" ZMD="11""9500":"7500" [0MD="17"PP2="7""7700":PP2="6":"7500" \MD="21""4000" ]MD="3""7600" ` "7500" jwMD="12":CHO="1":"9996":"7","9";"ARE YOU SURE?";"12","14";"YES";"14","14";"NO":MD,"0";ް"1";ݰ"1";A$ t)HIG="14":LOW="12":MDP="2":"9920" CHO="1""1"  "9996":ڰ"2": "0","0";ڰ"1";A$;" SAVE/LOAD OPTIONS ";A$:MD="6":"6","9";"SAVE GAME";"9","9";"LOAD GAME";"12","9";"RETURN TO MENU" MD,"0";ް"1";ݰ"1";A$ (HIG="12":LOW="6":MDP="3":"9920" EMD="9""1":ڰ"1":ٰ"1":ܰ"0"::"10","8";ٰ"7";"LOADING";:"" uMD="6""2":ڰ"2":ٰ"7":ܰ"0"::"10","8";"SAVING :SM GAME";:"23606","0":"23607","60":"SM GAME"ʰ"8889"  MD="12"  "8889" "9996":ڰ"2": "1","11";"ADVERTISE" (:HHH=((("10"-POS))-(LEA*"2")+"20"):RNAD=(*HHH)+"1" ))RNAD>"5"RNAB=(*"9")+"1":"7723" *J"10","2";"NOBODY WANTS TO USE ";P$:Q="1"̰"4":.4L,-"40":Q: +ADVC=(("9"-POS)*"300")+(("5"-LEA)*"3000")+((*("1300"*((("9"-POS)/"4")+1)))-"2600"):"8","10";R$(RNAB);"12","2";"WILL PAY @";ADVC;" FOR ";P$;"14","3";"TO ADVERTISE THEIR PRODUCT" -8ACC="2":"18","12";"ACCEPT";"20","12";"DECLINE" .BCHO="1":MD="18":"18"+(("2"-ACC)*"2"),"0";ް"1";ݰ"1";A$ /)LOW="18":HIG="20":MDP="2":"9920" 0ACC="3"-CHO 3ACC="1""7700" 4 YERA=YERA+ADVC:CASH=CASH+ADVC <*M(PNUM)>"18"M(PNUM)=M(PNUM)-(*"4") =*N(PNUM)>"18"N(PNUM)=N(PNUM)-(*"4") >*O(PNUM)>"18"O(PNUM)=O(PNUM)-(*"4") E y"1":ڰ"1":ٰ"7":ܰ"0": {%"2","3";"FINANCES FOR YEAR ";SEA }Y"5","2";"LEAGUE";"6","2";"SUBSCRIPTION: @";1000*(5-LEA);" PER GAME" ?"8","2";"WORLD";"9","2";"CHAMPIONSHIP ENTRY FEE:@25000" AQ=011 :Q,0;1;2;1;A$:Q CASH=CASH-"25000"  YERA="0":YERN="0":"7800":FAC="1":FACU="0":"7905":X=132 :G(X)=0:H(X)=0:I(X)=0:J(X)=0:K(X)=0:L(X)=0:X:X=132 :Z(X)=X:X GBREA="4":POTT="4":SAFE="4":Q=132 :Q$(Q)=P$PNUM=Q Q  DAY="1": <"9302":FAC="1":Q=132 :HHJ:Q(Q)=Z(HHJ):Q  JQ=18:L(Q+X)=H(Q+X)*2:Y(Q+X)=0:Q:Q=18:MM=-400:NN=0:R=18:Y(R+X)>08019S ONL(R+X)>NNNN=L(R+X):BB=(R+X):HH=J(R+X):II=K(R+X):MM=(HH-II):8019S QCL(R+X)=NNHH=J(R+X):II=K(R+X):(HH-II)>MMBB=(R+X):MM=(HH-II) S R:Y(BB)=1:Z(Q+X)=BB:Q  "8300":"5999"  "9996" l0,4;5;"SNOOKER LEAGUE DIVISION ";CHO;2,12 ;7;"P W L F A PTS" P4,0;6;A$;A$:Q=18:JJ=Z(Q+TCH):1;8;(Q*2)+2,12 ;G(JJ);(Q*2)+2,18;I(JJ);(Q*2)+2,25;K(JJ);(Q*2)+2,0;Q$(JJ);(Q*2)+2,15;H(JJ);(Q*2)+2,21;J(JJ);(Q*2)+2,29;L(JJ) NQ$(JJ)=P$(Q*2)+2,0;1;2;8;A$:POS=Q Q 418,0;8;6;1;A$;A$ )"21","5";" PRESS ANY KEY " "0"  "9600":"9996":ٰ"0": `1,4;"MANAGER:";1,15;M$;3,4;"PLAYER:";3,15;P$;5,4;"POSITION:";5,15;POS;7,4;"SEASON:";7,15;SEA;9 ,4;"RATING:";9 ,15;RAT;11 ,4;"CASH:";11 ,15;"@";CASH;13 ,4;"MORALE:";13 ,15;MOR 15,4;"SAFETY:";15,28;M(PNUM);17,4;"POSITIONAL:";17,28;N(PNUM);19,4;"POTTING:";19,28;O(PNUM) Zٰ"7":Q=020:Q,3;1;1;" ":Q =Q=17:120x,480+Q:M(PNUM),0:Q =Q=17:120x,32 +Q:N(PNUM),0:Q =Q=17:120x,16+Q:O(PNUM),0:Q  "400": m-"9600":"5999":ܰ"0":"2":ڰ"2":ٰ"7":: p2,8;7;"WHICH DIVISION?":OOK=0:Z=6163:OOK=OOK+1:7;Z,7;"LEAGUE DIVISION ";OOK:Z q;MD=6:CHO=1:MD,0;1;1;A$ r4HIG=14:LOW=6:MDP=3:9920& TCH=((CHO*8)-8) LEAO=CHO: <ܰ"0":"2":ڰ"2":ٰ"7"::1,8;"WHICH PLAYER?" lPCH=(TCH+1):Q=(1+TCH)(8+TCH):JJ=Z(Q):(((Q-TCH))+1)*2,11 ;Q$(JJ):Q ;CHO=1:MD=4:MD,0;1;1;A$ 1HIG=17:LOW=4:MDP=2:"9920"  "8420":ACC="2" /"1":ڰ"1":ܰ"0":ٰ"7"::POF=(*"8")+POFRN ~6,8;2;" ";Q$(POF);" ";1;8,8;"WANTS A MANAGER":NOG=3100d:8410 :13 ,12 ;"ACCEPT";15,12 ;"DECLINE" <MD=13 :CHO=1:MD,0;1;1;A$ 9HIG=15:LOW=13 :9920&:ACC=3-CHO *ACC=1NOG=NOG+1:8401 P$=Q$(POF): ,RAT<2LEA=4:POFRN=24: ,RAT=2LEA=3:POFRN=16: +RAT=3LEA=2:POFRN=8: +RAT>3LEA=1:POFRN=1: !5;DAY>"14""9996":"10","9";"END OF SEASON":"100": !6"8300":"9996" !70,0;2;" SNOOKER LEAGUE DIVISION ";CHO;" ";2,0;1;" FIXTURES ":Q=182:JK=W(Q):JJ=JK+TCH:Q+4,3;Q$(JJ);5;" V " !84Q$(JJ)=P$Q+4,0;1;2;A$ !9AJK=W(Q+1):JJ=JK+TCH:8;Q+4,20;Q$(JJ) !:4Q$(JJ)=P$Q+4,0;1;2;A$ !;Q !<)"21","5";" PRESS ANY KEY " !="0": !#"9600":"0":ڰ"0":ٰ"7":ܰ"0": !YQ=616:Q,0;"     ":Q:8 !f"76","44":"0","80":"179","44":"0","80":"40","44":"0","80":"216","44":"0","80" !@Q=44,12816:1,Q:253,0:Q !44,1;Q$(PNUM);4,22;Q$(PW) !"7","13";"SAFETY";"7","2";M(PNUM);"7","28";M(PW);"9","11";"POSITIONAL";"9","2";N(PNUM);"9","28";N(PW);"11","13";"POTTING";"11","2";O(PNUM);"11","28";O(PW);"13","13";"MORALE";"15","11";"LEAGUE POS" !NMORU=26+(38&-((CHO*1.5@)+(LEAO*3))):PNUM=PWMORU=MOR !6SA=M(PW)-M(PNUM):BR=N(PW)-N(PNUM):PO=O(PW)-O(PNUM) !`MORU=MORU:MO=MORU-MOR:POSY=((POS+(LEA*8))*2.7,)-((CHO+(LEAO*8))*2.7,) !"13","2";MOR;"13","28";MORU;"15",(2-((POS)));LEA;",";POS;"15","28";LEAO;",";CHO:SA>0Q=17:181,Q+112p:(((SA+1)/1.3&fff))/2,0:Q !fSA<0Q=17:74J,Q+112p:((((SA+1)/1.3&fff)))/2,0:Q !dBR>0Q=17:181,Q+96`:(((BR+1)/1.3&fff))/2,0:Q !cBR<0Q=17:74J,Q+96`:(((BR+1)/1.3&fff))/2,0:Q !dPO>0Q=17:181,Q+80P:(((PO+1)/1.3&fff))/2,0:Q !ePO<0Q=17:74J,Q+80P:((((PO+1)/1.3&fff)))/2,0:Q !dMO>0Q=17:181,Q+64@:(((MO+1)/1.3&fff))/2,0:Q !eMO<0Q=17:74J,Q+64@:((((MO+1)/1.3&fff)))/2,0:Q !hPOSY>0Q=17:181,Q+480:(((POSY+1)/1.3&fff))/2,0:Q !iPOSY<0Q=17:74J,Q+480:((((POSY+1)/1.3&fff)))/2,0:Q ! !"8300":"8330" ""2":ڰ"2":ٰ"7":ܰ"0": "PW=Z(TCH+CHO) " "8600" "$""19","10";"PRESS A KEY":"0" "L "a.FRMA="0":FRMB="0"::FACU="0"NOMA="5" "bFACU="1""8808" "ciQ=032 8:R=182:NNO=W(R):Q$(NNO+Q)=P$V(NNO+Q)=MOR:8806f" "d:NNO=W(R+1):Q$(NNO+Q)=P$V(NNO+Q)=MOR:8806f" "eR:Q "fTML=Q+R:NNO=W(R):PNO1=NNO+Q "g*NNO=W(R+1):PNO2=NNO+Q:8815o" "hJQ=132 2:NNO=Q(Q):Q$(NNO)=P$V(NNO)=MOR:8813m" "i6NNO=Q(Q+1):Q$(NNO)=P$V(NNO)=MOR:8811k" "jQ "k!TMLE=Q+"1":NNO=Q(Q):PNO1=NNO "l"NNO=Q(Q+"1"):PNO2=NNO:"8815" "mTMLE=Q:NNO=Q(Q):PNO1=NNO "n"NNO=Q(Q+"1"):PNO2=NNO:"8815" "o"0":ڰ"5":ٰ"0":ܰ"0"::"18","0";" ]]]]]]]]]] #&     #& ~   ~  llllllllll " "rn$="YZ[YZ[YZ[":G$="\]^\]^\]^":H$="_`a_`a_`a":I$="b{":9997 ':19,9 ;1;7;1;"}";19,22;"|";20,9 ;"";20,22;"~";0,0;0;0;n$;I$;n$;I$;n$;"Y";G$;I$;G$;I$;G$;"\";H$;I$;H$;I$;H$;"_ 789@ABIJ   cdelmnuv  :;?FGHMN   ijkrstyz ":9992' "t-8,9 ;"[\]]]]]v]]]]^_" "u19 ,9 ;"` wxy   a" "v210 ,8;"bc  z de" "w611 ,8;"fg |  { {{ hi" "x012 ,8;"jkllllllllllllmn" "y&13 ,8;"opqppppppppppqpr" "z]14,9 ;"st";14,21;"ts";15,9 ;"u";15,22;"u" "{PPNO1=PNUMAOMA=MOR:AOMB=40(:BOMA=((4-LEV)*2):BOMB=0 "|PPNO2=PNUMAOMB=MOR:AOMA=40(:BOMB=((4-LEV)*2):BOMA=0 "@XTRA=0:XTRB=0:O(PNO1)>O(PNO2)XTRA=XTRA+8 "$M(PNO1)>M(PNO2)XTRA=XTRA+5 "$M(PNO1)M(PNO2)XTRA=XTRA+5 "$N(PNO1)NOMA9992':9900&:7006^ "c((BPOS/2.5 )-4):RND1=AOMA+BOMA+(XTRA+M(PNO1)+N(PNO1)+O(PNO1)+(*2000)+V(PNO1)) "GRND2=BOMB+AOMB+(XTRB+M(PNO2)+N(PNO2)+O(PNO2)+(*2000)+V(PNO1)) "RND118FRMB1=FRMB1+1:9993 ' " RND2"0"CASH=CASH-("800"*("5"-LEA)) $DCHO="1"SAFE>"0"SAFE=SAFE-"1":M(PNUM)=M(PNUM)+(*"5"+IMV) $DCHO="2"BREA>"0"BREA=BREA-"1":N(PNUM)=N(PNUM)+(*"5"+IMV) $DCHO="3"POTT>"0"POTT=POTT-"1":O(PNUM)=O(PNUM)+(*"5"+IMV) $ "9600": %&"0","4";"SELECT TYPE OF PRACTISE" % A"6","3";"ALL-ROUND PRACTISE (@";2000*(5-LEA);")" % A"9","3";"INDIVIDUAL PRACTISE (@";800 *(5-LEA);")" % "MD="6":MD,"0";ް"1";ݰ"1";A$ % "12","8";"RETURN TO MENU" % (HIG="11":LOW="6":MDP="3":"9920" % % "9996" %&SDAY<"3"(DAY>"8"DAY<"10")"10","9";"NO FIXTURES YET":CPOB="25":"80": %0DAY="3"DAY="10"FACU="1""1","12";"ROUND 1":ڰ"2":Q=320:Q,"4";" ":Q:Q=1312:PNI1=Q(Q):PNI2=Q(Q+1):(Q/2)+3,5;Q$(PNI1);" V ";Q$(PNI2) %1b(DAY="3"FACU="0")(DAY="4"FACU="1")(DAY="10"FACU="0")(DAY="11"FACU="1")"1","12";"ROUND 2":ڰ"2":"3","4";" ":Q=1162:PNI1=Q(Q):PNI2=Q(Q+1):Q+2,4;" ";Q+3,4;" ";Q$(PNI1);" V ";Q$(PNI2);" ":19,4;" " %2a(DAY="4"FACU="0")(DAY="5"FACU="1")(DAY="11"FACU="0")(DAY="12"FACU="1")"1","12";"ROUND 3":ڰ"2":"3","4";" ":Q=182:PNI1=Q(Q):PNI2=Q(Q+1):Q+2,4;" ";Q+3,4;" ";Q$(PNI1);" V ";Q$(PNI2);" ":11 ,4;" " %3d(DAY="5"FACU="0")(DAY="6"FACU="1")(DAY="12"FACU="0")(DAY="13"FACU="1")"1","10";"SEMI-FINALS":ڰ"2":"3","4";" ":Q=142:PNI1=Q(Q):PNI2=Q(Q+1):Q+2,4;" ";Q+3,4;" ";Q$(PNI1);" V ";Q$(PNI2);" ":7,4;" " %4b(DAY="6"FACU="0")(DAY="7"FACU="1")(DAY="13"FACU="0")(DAY="14"FACU="1")"1","11";"THE FINAL":ڰ"2":"3","4";" ":Q=122:PNI1=Q(Q):PNI2=Q(Q+1):Q+2,4;" ";Q+3,4;" ";Q$(PNI1);" V ";Q$(PNI2);" ":5,4;" " %5(DAYȰ"7"FACU="0"DAY<"9")(DAYȰ"14"FACU="0")PNI1=Q(1):"4","1";ٰ"7";C$;" CHAMPION ";SEA;": ";Q$(PNI1):"9590" %:Q %"0": % M(PNUM)>"100"M(PNUM)="100" % N(PNUM)>"100"N(PNUM)="100" % O(PNUM)>"100"O(PNUM)="100" %O(PNUM)<"15"O(PNUM)="15" %N(PNUM)<"15"N(PNUM)="15" %M(PNUM)<"15"M(PNUM)="15" %MOR>"99"MOR="99" %MOR<"0"MOR="0" % %"1":ڰ"1":ٰ"7":ܰ"0": %3CUS="0":"10","6";"ENTER NAME FOR ";I$:I$="" %014,9 ;I$(1(I$));"l ":N$= %.N$=13 9726%:.01z# =,502 %gCUS<9 N$>96`ƯN$<123{CUS=CUS+1:I$=I$+((N$)-32 ):.01z# =,502 %KCUS<9 N$=32 .01z# =,502:CUS=CUS+1:I$=I$+" " %TCUS>0N$=12 .01z# =,502:CUS=CUS-1:I$=I$(1CUS) % 9719% &G & "9996": &gڰ"1":Q=10 12 :Q,8;" ":Q:11 ,10 ;"PRESS ANY KEY":Q: &:Q$(PNO1)=P$FRMA1>FRMB1MOR=MOR+((*3)+1) &8Q$(PNO1)=P$FRMB1>FRMA1MOR=MOR-(*3)+1 &8Q$(PNO2)=P$FRMA1>FRMB1MOR=MOR-(*3)+1 &8Q$(PNO2)=P$FRMB1>FRMA1MOR=MOR+(*3)+1 & "9600": &e="a"MDLOWMD,0;ٰ"8";ݰ"1";ް"1";A$:MD=MD-MDP:MD,"0";ݰ"1";ް"1";ٰ"8";A$:CHO=CHO-"1" &=(13 )"9489" & "9920" & &#Q>NOF"9998":"9900":"100": '"23607","248": ' 19,BPOS;" ";20,BPOS;" ":T=70-1:0,0;1;1;T;8;A$;1,0;A$;2,0;A$:T:Q: ' @CASH=((CASH*100d))/100d:"0":ڰ"0":ٰ"7":ܰ"1":: ' "23607","251": oaz CUES LTD COOLA COLA ECG SOFTWARE EJ ELECTRIX BELLE SMELL CHEESY SNACKSTRIANGLE CUESCROWN CHALKS HUNTS LAGER   % STEVE DENNIS JIMMY STEPHEN MIKE JOHN NEAL CLIFF DOUG SILVINO TERRY REX WILLIE JON JOE ALEX FRED RAY JIM EUGINE RICK TONY DEAN WAYNE BILL DAVID BARRY NICK ANDY KIRK EDDIE CHRIS uao2asj`eaoehoideoofrcoereraach! reotafnuppndzochy op ceacor;D?osM332pohnarm rmom|n mnono omcom(omomtrtr rma rmbpond=nd 'jj angQngd$imon'monaskmoda/b0 Z A7MOL0        N`Q<8W[AWE+JA49)=-M/+%)/6-&')% FPJ6:G3VE(M'?<+3.>D'.9&"-;!14- I@D=>@AO4(H=.L<G< 4;&6-96-D&@7@,    (27ScQ-242;ES  tmeo`l:mniiniysml orzonfPannnadv"akc4Font}S BILL G \]^\]^\]^H _`a_`a_`aIKPN MKPP DAVID CU.K.A %