CRICKETC 6 CRICKET COACH by ROBERT McSHERRY 1988 ,0:23658j\,8:3900<: &0:7:7:0: (s1,0;"CRICKET COACH";3,0;"WRITTEN ON THE SPECTRUM";5,0;"BY ROBERT McSHERRY" 22"WHAT IS YOUR NAME? ";Z$:Z$>10 502 7M"WHAT SKILL LEVEL (1 - 10)? ";LEVEL:LEVEL<1LEVEL>10 557 9 MORAL=(11 -LEVEL)*2 <C(38&):D(38&):TV=0:BORROW=0:MEMBER=0:M(12 ):WEEK=0:LEAGUE=0:SEASON=1:CASH=5000:N$=Z$:NUMBER=15:INTEREST=10 F80P:90Z P90Z:F=117:T$(F)(11 )="00000000000":T$(F)(12 13 )=((*9 )+10 ):T$(F,14)=(*9 ):T$(F,15)=(*9 ):F: Z9100d:F=138&::P$(F)(2)="00":F d 250 nf:6;2;0,0;" ";1,0;" CODE ";2,0;" ";0,9 ;" ";1,9 ;" COUNTY ";2,9 ;" ":0:0,175:47/,0:0,-23:-47/,0:0,23:2,173:43+,0:0,-19:-43+,0:0,19:72H,175:63?,0:0,-23:-63?,0:0,23:74J,173:59;,0:0,-19:-59;,0:0,19:F=117:F+3,2;F;" "; xF<10 ;" "; ;": ";T$(F)(16):F <"CHOOSE YOUR TEAM : ";F:F<1F>17140 :TEAM=F oF=138&:P$(F)(2)=((*97a)+13 ):P$(F,2)=((*8888")+1000):F !P(15):G=115  F=(*39') 'N=115:P(N)=F180 N -N=115:P(N)=0230 N P(N)=F G:580D :5;1;8,0;" ";9 ,0;" WOULD YOU LIKE TO CHANGE ANY ";10 ,0;" TEAM NAMES ( Y / N ) ? ";11 ,0;" ":0:0,111o:239,0:0,-31:-239,0:0,31:2,109m:235,0:0,-27:-235,0:0,27 Z$=:Z$="N"400 Z$="Y"290"  260 "f:6;2;0,0;" ";1,0;" CODE ";2,0;" ";0,9 ;" ";1,9 ;" COUNTY ";2,9 ;" ":0:0,175:47/,0:0,-23:-47/,0:0,23:2,173:43+,0:0,-19:-43+,0:0,19:72H,175:63?,0:0,-23:-63?,0:0,23:74J,173:59;,0:0,-19:-59;,0:0,19:F=117:F+3,2;F;" "; ,F<10 ;" "; 6;": ";T$(F)(16):F @>"WHICH TO CHANGE? ";Z$:Z$<491ůZ$>579320@ J%Z$<1ŰZ$>17320@ T."NAME (MAX 16):";Y$:Y$>16340T ^T$(Z$)(16)=Y$ h:5;1;8,0;" ";9 ,0;" WOULD YOU LIKE TO CHANGE ANY ";10 ,0;" MORE TEAM NAMES ( Y / N )? ";11 ,0;" ":0:0,111o:239,0:0,-31:-239,0:0,31:2,109m:235,0:0,-27:-235,0:0,27 rZ$=:Z$="Y"290" |Z$="N"400  370r :4;7;8,0;" ";9 ,0;" WOULD YOU LIKE TO CHANGE ANY ";10 ,0;" PLAYERS NAMES ( Y / N )? ";11 ,0;" ":0:0,111o:239,0:0,-31:-239,0:0,31:2,109m:235,0:0,-27:-235,0:0,27 Z$=:Z$="Y"440  Z$="N"  410 *:F=119:F,2;F;" "; F<10 ;" "; F;": ";P$(F)(4):F:21,2;"X : FOR MORE NAMES" ,"WHICH TO CHANGE? ";Z$: Z$="X"550& &Z$<491ůZ$>579470 %Z$<1ŰZ$>19470 ."NAME (MAX 14):";Y$:Y$>14500 P$(Z$)(4)=Y$::4;7;8,0;" ";9 ,0;" WOULD YOU LIKE TO CHANGE ANY ";10 ,0;" MORE PLAYERS NAMES( Y / N )? ";11 ,0;" ":0:0,111o:239,0:0,-31:-239,0:0,31:2,109m:235,0:0,-27:-235,0:0,27 Z$=:Z$="Y"440  Z$="N"  520 &t:F=2038&:F-19,2;F;" : ";P$(F)(4):F:21,2;"X : FOR MORE NAMES" 0,"WHICH TO CHANGE? ";Z$: Z$="X"440 : 810* DWEEK=WEEK+1 NS3900<:23658j\,8:J=117:4:4:0:: X|1,8;5;1;" CRICKET COACH ";0,8;" ";2,8;" " b`64@,175:121y,0:0,-23:-121y,0:0,23 l`66B,173:117u,0:0,-19:-117u,0:0,19 v5,0;6;2;" TAKE YOUR PICK ";4,0;" ";6,0;" " _0,143:127,0:0,-23:-127,0:0,23 _2,141:123{,0:0,-19:-123{,0:0,19 CF=9 21:2;7;F,0;" ";:F:7;2;10 ,1;"1 : ALL PLAYERS";12 ,1;"2 : SELL PLAYER";14,1;"3 : STATUS CARD";16,1;"4 : BORROW CASH";18,1;"5 : RE-PAY CASH";20,1;"6 : START GAMES" b 0,103g:151,0:0,-103g:-151,0:0,103g ` 2,101e:147,0:0,-99c:-147,0:0,99c F=13 16:7;3;F,20;" ":F:7;3;14,25;"7";15,21;"NEXT MENU" ^160,71G:87W,0:0,-31:-87W,0:0,31 ^162,69E:83S,0:0,-27:-83S,0:0,27 Z$= Z$="2"890z:590N Z$="7"4000 Z$="3"1150~:590N +Z$="4"1180:1210:590N +Z$="5"1180:1250:590N  TZ$="1"1300:1;5;1,7;" ";2,7;" SQUAD ";3,7;" ":0:568,167:557,0:0,-23:-557,0:0,23:58:,165:513,0:0,-19:-513,0:0,19:1240:590N Z$="6"1390n  720 *&Z$<491ůZ$>5795600 4&Z$<20ŰZ$>38&5600 >."NAME (MAX 14):";Y$:Y$>14830> HP$(Z$)(4)=Y$::4;7;8,0;" ";9 ,0;" WOULD YOU LIKE TO CHANGE ANY ";10 ,0;" MORE PLAYERS NAMES( Y / N )? ";11 ,0;" ":0:0,111o:239,0:0,-31:-239,0:0,31:2,109m:235,0:0,-27:-235,0:0,27 RZ$=:Z$="Y"440 \ Z$="N" f 850R po: SELL PLAYER zg:0,2;5;" ";0,10 ;" ";0,23;" ";2,2;" ";2,10 ;" ";2,23;" ":1,2;5;1;" POS ";1,10 ;" NAME ";1,23;" VALUE ":950:F=1NUMBER :1:P$(P(F),3)="1"F+4,4;"BO";: 0P$(P(F),3)="2"F+4,4;"BA"; 0P$(P(F),3)="3"F+4,4;"WI"; f0:;" ";P$(P(F))(4);" `";(P$(P(F),1)*1000)+(P$(P(F),2)*100d) )F+4,0;F;:F<10 " "; ":":F:1010 ^16,175:39',0:0,-23:-39',0:0,23 ^18,173:35#,0:0,-19:-35#,0:0,19 ^80P,175:47/,0:0,-23:-47/,0:0,23 ^82R,173:43+,0:0,-19:-43+,0:0,19 _184,175:568,0:0,-23:-568,0:0,23 a186,173:524,0:0,-19:-524,0:0,19: B"WHICH PLAYER TO SELL? ";Z$:Z$<491ů Z$>491+NUMBER Z$<1ŰZ$>NUMBER -Z=(*15)+1:Z=TEAM1030 :1,0;T$(Z)(16);3,0;"HAVE APPROACHED ";T$(TEAM)(16);5,0;"ABOUT THE POSSIBLE TRANSFER OF";7,0;P$(P(Z$))(4);9 ,0;"FOR THE FEE OF `";:SELL=(P$(P(Z$),1)*1000)+(P$(P(Z$),2)*100d):SELL=SELL-450+((*(P$(P(Z$),2)*100d)+1)):SELL;".";13 ,0;"DO YOU ACCEPT (Y / N) ?" !Y$=:Y$="Y"Y$="N"1070. $ 1050 .Y$="N"1110V 81CASH=CASH+SELL:SELL <100dSELL=100d BF=Z$NUMBER-1:P(Z$-Z$+F)=P(Z$-Z$+F+1):F:NUMBER =NUMBER -1:NUMBER<11 MEMBER=NUMBER:3770:590N L3770:590N V?DOWN=P$(P(Z$))(2)-4:DOWN <11 590N `P$(P(Z$))(2)=DOWN j 590N t| STATUS CARD ~X0:0:6::0,0;6;2 ;" ";1,0;" INFO ";2,0;" ";0,13 ;" ";1,13 ;" STATUS ";2,13 ;" " :0:0,175:47/,0:0,-23:-47/,0:0,23:2,173:43+,0:0,-19:-43+,0:0,19:104h,175:63?,0:0,-23:-63?,0:0,23:106j,173:59;,0:0,-19:-59;,0:0,19 6:F=4182:F,11 ;":":F:4,0;"TEAM";4,13 ;T$(TEAM)(16);6,0;"COACH";6,13 ;N$;8,0;"CASH";8,13 ;"`";CASH;10 ,0;"SEASON";10 ,13 ;SEASON;12 ,0;"WEEK";12 ,13 ;WEEK;14,0;"LEAGUE POS";14,13 ;LEAGUE;16,0;"MORAL";16,13 ;(MORAL/20*100d);"%";18,0;"TEAM SKILL";18,13 ; SKILL=0:F=1NUMBER:SKILL=SKILL+(P$(P(F),1)):F:(SKILL/135*100d);"%";#1;1,0;" PRESS ANY KEY TO CONTINUE":0: {5:5:1::6;2;0,13 ;" ";1,13 ;" BANK ";2,13 ;" ":0:104h,175:47/,0:0,-23:-47/,0:0,23:106j,173:43+,0:0,-19:-43+,0:0,19:>.5INTEREST=INTEREST+1:1200 INTEREST=INTEREST-1 9 ,0;"INTEREST RATE : ";INTEREST;"%";5,0;"CASH AT PRESENT : `";CASH;11 ,0;"OVERDRAFT ALLOWED : `20000";13 ,0;"MONEY OWED TO BANK : `";BORROW: QBORROW=20000 N16,2;"YOU CAN NOT BORROW ANY MORE":1240 İ"HOW MUCH DO YOU WANT? `";Z:Z+BORROW>20000 N16,0;"YOU CAN ONLY HAVE `";20000 N-BORROW:CASH=CASH+(20000 N-BORROW):BORROW=20000 N:1240: CASH=CASH+Z:BORROW=BORROW+Z B#1;1,2;"PRESS ANY KEY TO CONTINUE":0: JBORROW=016,3;"YOU DO NOT OWE ANY MONEY":1240 c"HOW MUCH TO RE-PAY? `";Z:Z>CASH16,0;"YOU DO NOT HAVE THAT MUCH CASH":1240 kZ>BORROW16 ,0;"YOU CAN ONLY RE-PAY `";BORROW:CASH=CASH-BORROW:BORROW=0:1240 *CASH=CASH-Z:BORROW=BORROW-Z:1240  s CHOOSE TEAM 6:6:2: DF=1NUMBER:0:F+5,0;F;:F<10 " "; (2": ";:1:P$(P(F),3)=1"BO"; 2,:1:P$(P(F),3)=2"BA"; <+1:P$(P(F),3)=3"WI"; F0:" ";P$(P(F))(4);" ";1;P$(P(F),1);0;" ";1;P$(P(F),2);:F>MEMBER1360P PF:0:Z$="SKILL":J=15:J,22;Z$(J):J:Z$="ENERGY":J=16:J-1,24;Z$(J):J ZLZ$="PICKED":J=16:J-1,26;Z$(J):J:3750: dq PLAY GAMES n\2:2:U=-3:PLAYED=0:V=-2:W=-1:X=0:7: xrONE=0:TWO=0:X=X+4:W=W+4:U=U+4:V=V+4:U=33!1240:1750 TEAM1=W$(WEEK)(UV) TEAM2=W$(WEEK)(WX) #TEAM1=TEAMTEAM2=TEAM1720 T$(TEAM1)(12 13 )>T$(TEAM2)(12 13 )ưT$(TEAM1)(1415)>T$(TEAM2)(1415)ONE=ONE+1 T$(TEAM2)(12 13 )>T$(TEAM1)(12 13 )ưT$(TEAM2)(1415)>T$(TEAM1)(1415)TWO=TWO+1 ONE=0TWO=0TEAM1P=2:TEAM2P=2:T$(TEAM1)(16);" (";TEAM1P;") drew with"'T$(TEAM2)(16);" (";TEAM2P;")": :DREW1=T$(TEAM1)(89 ):DREW2=T$(TEAM2)(89 ):R$=(1+DREW1):S$=(1+DREW2) cONE=0TWO=0T$(TEAM1)(89 )=R$:T$(TEAM2)(89 )=S$:1540 ONE=1TWO=0TEAM1P=4:TEAM2P=0:T$(TEAM1)(16);" (";TEAM1P;") beat"'T$(TEAM2)(16);" (";TEAM2P;")":WON1=T$(TEAM1)(67):LOST2=T$(TEAM2)(10 11 ):R$=(1+WON1):S$=(1+LOST2) eONE=1TWO=0T$(TEAM1)(67)=R$:T$(TEAM2)(10 11 )=S$:1540 ONE=0TWO=1TEAM2P=4:TEAM1P=0:T$(TEAM2)(16);" (";TEAM2P;") beat"'T$(TEAM1)(16);" (";TEAM1P;")":WON2=T$(TEAM2)(67):LOST1=T$(TEAM1)(10 11 ):R$=(1+WON2):S$=(1+LOST1) eONE=0TWO=1T$(TEAM2)(67)=R$:T$(TEAM1)(10 11 )=S$:1540  1400x  rPO1=TEAM1P:PO2=TEAM2P:TEAM1P=TEAM1P+(T$(TEAM1)(13)):TEAM2P=TEAM2P+(T$(TEAM2)(13)) AR$=TEAM1P:S$=TEAM2P:TEAM1P<10 R$="00"+R$:1570" TEAM1P<100dR$="0"+R$ ")TEAM2P<10 S$="00"+S$:15906 ,TEAM2P<100dS$="0"+S$ 6>T$(TEAM1)(13)=R$:T$(TEAM2)(13)=S$ @lPLA1=(T$(TEAM1)(45)+1):PLA2=(T$(TEAM2)(45)+1):R$=PLA1:S$=PLA2 J>T$(TEAM1)(45)=R$:T$(TEAM2)(45)=S$ TPO1<3PO2<3MOR1=(T$(TEAM1)(12 13 )-1):MOR2=(T$(TEAM2)(12 13 )-1):R$=MOR1:S$=MOR2:MOR10R$=0 ^4PO1<3PO2<3MOR20S$=0 h[PO1<3PO2<3T$(TEAM1)(12 13 )=R$:T$(TEAM2)(12 13 )=S$ rPO1>3PO2<3MOR1=(T$(TEAM1)(12 13 )+2):MOR2=(T$(TEAM2)(12 13 )-2):R$=MOR1:S$=MOR2:MOR120R$=20 |4PO1>3PO2<3MOR20S$=0 [PO1>3PO2<3T$(TEAM1)(12 13 )=R$:T$(TEAM2)(12 13 )=S$ PO2>3PO1<3MOR2=(T$(TEAM2)(12 13 )+2):MOR1=(T$(TEAM1)(12 13 )-2):R$=MOR2:S$=MOR1:MOR220R$=20 4PO2>3PO1<3MOR10S$=0 [PO2>3PO1<3T$(TEAM2)(12 13 )=R$:T$(TEAM1)(12 13 )=S$  1400x 1240:2710  v AFTER MATCH $:10 ,11 ;"PLEASE WAIT" C$(17,31) $F=117:C$(F)=T$(F):F j=116 k=j+117 C$(j) > C$(k)1820 !r$=C$(j):C$(j)=C$(k):C$(k)=r$ k:J &[5:5:0::F=117:F+4,0;F;:F<10 ;" "; 0>":";C$(F)(1627);:C$(F,28)>32 "." :F+4,17;C$(F)(45);F+4,20;C$(F)(67);F+4,23;C$(F)(89 );F+4,26;C$(F)(10 11 );F+4,29;C$(F)(13):C$(F)=T$(TEAM)LEAGUE=F DF:1;3,17;"Pl";3,20;"Wo";3,23;"Dr";3,26;"Lo";3,29;"Pts":6;2;0,4;" ";1,4;" LEAGUE ";2,4;" ":32 ,175:63?,0:0,-23:-63?,0:0,23:34",173:59;,0:0,-19:-59;,0:0,19:1240 NB:ATTEND=((*3000 )+1600@):GROUND=((*2000)+1300):LOTTERY=((*300,)+350^):INTER= (((INTEREST/4)/100d)*(BORROW/1)):INTER=INTER:SAL=0:F=1NUMBER:SAL=SAL+P$((P(F)),1)*502:F:SPONSORS=(18-LEAGUE)*(*60<):TELEVISION=1500 X,PLAYED=0ATTEND=0:3790 b TV=0TELEVISION=0 l37:0 :7::4;1;0,8;" ";1,8;" WEEKS PROFITS ";2,8;" ":64@,175:119w,0:0,-23:-119w,0:0,23:66B,173:115s,0:0,-19:-115s,0:0,19:0:5,0;"ATTENDANCE PROFITS : `";ATTEND;6,0;"LOTTERTY TICKETS : `";LOTTERY;7,0;"SPONSORSHIP DEALS : `";SPONSORS;8,0;"TELEVISION COVERAGE : `";TELEVISION v:2;11 ,0;"GROUND RENT : `";GROUND;12 ,0;"PLAYERS WAGES : `";SAL;13 ,0;"BANK INTEREST : `";INTER:PROF=ATTEND+LOTTERY+SPONSORS+TELEVISION:AGAI=GROUND+SAL+INTER:PROFITS=PROF-AGAI:0;16,0;"WEEKS PROFITS : `";PROFITS:OLD=CASH <PROFITS>0CASH=CASH+PROFITS:1240:2000 FCASH+PROFITS>-.001wnCASH =CASH+PROFITS:1240:2000 bCASH=CASH+PROFITS:Z$=CASH:ONE=Z$(2):(ONE+BORROW)>20000 N1240:1970 19,0;" YOU NEED TO BORROW `";ONE;" FROM THE BANK.":CASH=OLD:1240:1180:1210: :1900l  5:5:1::1:1,0;"THE CHAIRMAN SAYS,":LEAGUE>14WEEK>9 3,0;"""I am afraid that I am going to have to ask you to resign. Not only do you owe substantial amounts of money to the bank, but you are also only placed at ";league;" in the league after ";week;" weeks. I regret having to make the decision, but I want only the best for the club.""":18,4;"GET READY FOR A NEW GAME":1240:10 3,0;"""I only want the best for the club so I will plant into it `";:two=one+(*5000):cash=two-one:two;" of my own money. I warn you now, this will not carry on forever.""":1240:2000  NUMBER=152200 >.52030  2200 L4:4:0::5;0;0,10 ;" ";1,10 ;" TRANSFERS ";2,10 ;" ":80P,175:87W,0:0,-23:-87W,0:0,23:82R,173:83S,0:0,-19:-83S,0:0,19 TRANS=(*38&)+1 *F=1NUMBER:P(F)=TRANS2040  ;F:P$(TRANS,3)="1"14,3;1;"BO" 8P$(TRANS,3)="2"14,3;1;"BA"  8P$(TRANS,3)="3"14,3;1;"WI" *o14,6;P$(TRANS)(4);" ";1;P$(TRANS,1);14,27;P$(TRANS,2) 4Z$="ENERGY":F=813 :2;F,27;Z$(F-7):F:Z$="SKILL":F=9 13 :2;F,25;Z$(F-8):F >k17,4;"WHO IS VALUED AT `";(P$(TRANS,1)*1000)+(P$(TRANS,2)*100d);"." H\5,0;"YOUR TALENT SCOUTS HAVE SPOTTED";19,8;"YOU HAVE `";CASH;"." R6" HOW MUCH DO YOU WISH TO BID, (IF ANY)? `";Z$ \|Z$<480ůZ$>579Z$="0"17,4;1;"YOU ARE NOT INTERESTED";0;" ":1240:2200 fPRICE=(P$(TRANS,1)*1000)+(P$(TRANS,2)*100d):PRICE=PRICE-450+((*(P$(TRANS,2)*100d)+1)) p_Z$>CASH19,0;1;"YOU DO NOT HAVE THAT MUCH CASH":1240:2200 zVPRICE>Z$19,5;1;"YOUR BID WAS REFUSED":1240:2200 NUMBER=NUMBER+1:P(NUMBER)=TRANS:CASH=CASH-Z$:19,0,,19,9 ;1;"BID ACCEPTED":1240:2200  n TRANSFER REQUESTS >.52460 NUMBER <12 2460 L5:5:0::6;2;0,10 ;" ";1,10 ;" TRANSFERS ";2,10 ;" ":80P,175:87W,0:0,-23:-87W,0:0,23:82R,173:83S,0:0,-19:-83S,0:0,19 1REQUEST=((*NUMBER)+1):TRANS=P(REQUEST) ʏZ$="ENERGY":F=510 :2;F,27;Z$(F-4):F:Z$="SKILL":F=610 :2;F,25;Z$(F-5):F 8P$(TRANS,3)="1"11 ,3;1;"BO" 8P$(TRANS,3)="2"11 ,3;1;"BA" 8P$(TRANS,3)="3"11 ,3;1;"WI" 11 ,6;P$(TRANS)(4);" ";1;P$(TRANS,1);11 ,27;P$(TRANS,2);0;13 ,2;"WHO IS VALUED AT `";(P$(TRANS,1)*1000)+(P$(TRANS,2)*100d);", HAS ASKED FOR A TRANSFER." 5OFFER=(*17)+1:OFFER=TEAM2300 16,0;T$(OFFER)(16)'';"HAVE OFFERED THE SUM OF `";:OFFER=(P$(TRANS,1)*1000)+(P$(TRANS,2)*100d):OFFER=OFFER-450+((*(P$(TRANS,2)*100d)+1)):OFFER;"."''" DO YOU ACCEPT (Y / N)?" &Z$=:Z$="Y"3770:2350.  Z$="N"1240:2400` $ 2320 .4CASH=CASH+OFFER:OFFER <100dOFFER=100d 8*F=1NUMBER:P(F)=TRANS2380L BF L FOUND=F VF= FOUNDNUMBER-1:P( FOUND- FOUND+F)=P( FOUND-FOUND+F+1):F:NUMBER =NUMBER -1:NUMBER<11 MEMBER =NUMBER:2460 `*F=1NUMBER:P(F)=TRANS2420t jF t FOUND=F ~CDOWN=P$(P(FOUND))(2)-20:DOWN <11 2460 *P$(P(FOUND))(2)=DOWN:2460  week=172490 580D  4:0:4:: +1,9 ;1;"END OF SEASON" T4,0;"FINAL CHAMPIONSHIP POSITION : ";LEAGUE:C(38&):D(38&) m6,0;"CHAMPIONSHIP BONUS : `";:BONUS=22000U-(LEAGUE*1000):BONUS:CASH=CASH+BONUS _NUMBER <159 ,0;"FREE SUMMER SIGNINGS :":OLD=15-NUMBER:2550 26102 OLD>11 OLD=11 F=1OLD CTRA=(*38&)+1:G=1NUMBER:P(G)=TRA2570 G M10 +F,5;P$(TRA)(4):NUMBER=NUMBER+1:P(NUMBER)=TRA (F 21240: 38&2690 nG x[P$(F)(2)=((*97a)+13 ):P$(F,2)=((*8888")+1000):F L80P::9 ,11 ;1;"NEW SEASON":1240:580D  TV=0:BOW=0:OPPO=TEAM2:BAT=0:ENERGY=0:WIC=0:4:4:0::0:5;1;0,7;" ";1,7;" TEAM SELECTION ";2,7;" ":568,175:127,0:0,-23:-127,0:0,23:58:,173:123{,0:0,-19:-123{,0:0,19:OPPO=TEAM2:TEAM2=TEAMOPPO=TEAM1 z4,0;7;T$(TEAM)(16):F=1MEMBER:P$(P(M(F)),3)="1"BOW=BOW+(P$(P(M(F)),1)) 9P$(P(M(F)),3)="2"BAT=BAT+(P$(P(M(F)),1)) SP$(P(M(F)),3)="3"WIC=WIC+(P$(P(M(F)),1)):WIC>9 WIC=9 KF:6,2;"BATTING STRENGTH : ";((BAT/45-)*100d);"%" H7,2;"BOWLING STRENGTH : ";((BOW/45-)*100d);"%" G8,2;"KEEPING STRENGTH : ";((WIC/9 )*100d);"%" 10 ,2;"TEAM ENERGY : ";:F=1MEMBER:ENERGY=ENERGY+(P$(P(M(F)),2)):F:((ENERGY/99c)*100d);"%";11 ,2;"TEAM MORAL : ";((MORAL/20)*100d);"%";13 ,2;7;"OVERALL TEAM SKILL : ";:OVERALL=((BAT/45-)*100d)+((BOW/45-)*100d)+((WIC/9 )*100d)+((ENERGY/99c)*100d)+((MORAL/20)*100d):OVERALL=((OVERALL/500)*100d):7; OVERALL;"%" 1;16,0;T$(OPPO)(16);18,2;"OVERALL TEAM SKILL : ";:OVERALLOPPO=((T$(OPPO)(1415)/99c)*100d)+((T$(OPPO)(12 13 )/20)*100d):OVERALLOPPO=((OVERALLOPPO/200)*100d):1;OVERALLOPPO;"%" G6;20,0;"PRESS:"'" C (choose team) P (play game)" Z$=:Z$="C"2840 Z$="P"2990  2810 61300:1;5;1,7;" ";2,7;" SQUAD ";3,7;" ":0:568,167:557,0:0,-23:-557,0:0,23:58:,165:513,0:0,-19:-513,0:0,19: "_" WHICH PLAYER TO ADD (OR 0) :";INTEAM:INTEAM <1INTEAM>NUMBER3870:2850" ,pP$(P(INTEAM),2)<221,8;"NOT FIT ENOUGH":60<:21,5;,,:2850" 6oF=1MEMBER:M(F)=INTEAM21,8;"ALREADY IN TEAM":60<:21,5,,:2850" @F JMEMBER=MEMBER+1 TaM(MEMBER)=INTEAM:KEEP=0:F=1MEMBER:P$(P(M(F)),3)="3"KEEP=KEEP+1:F ^F:KEEP=221,1;"ONLY ONE WICKET KEEPER ALLOWED":70F:21,0,,:MEMBER=MEMBER-1:2850" hMEMBER=12 2940| r3750:2850" |a" WHICH PLAYER TO WITHDRAW :";OUTEAM:MEMBER=11 :OUTEAM<1OUTEAM>NUMBER2940| 8F=1MEMBER:M(F)=OUTEAMM(F)=INTEAM:2930r F 2940|  _5:5:0::OVERA=OVERALL:OVERO=OVERALLOPPO:HOMBON=0:AWABON=0 HOSCO=0:AWSCO=0 C0'"SUNDAY LEAGUE";7'T$(TEAM)(16):3490 AWATOT=AWSCO:HOMTOT=HOSCO AWSCO=HOSCO3090 HOSCO>AWSCO3250 AWSCO>HOSCO3400H ':1,12 ;1;"RESULT"  HOMBON=2:AWABON=2 4,0;7;T$(TEAM)(16);" ";0;HOMTOT;" runs"''0;"drew with"'';7;t$(OPPO)(16);0;" ";awatot;" runs";15,0;t$(team)(16);" gain ";hombon;" points";17,0;t$(oppo)(16);" gain ";awabon;" points" &>19,0;"DRAW BONUS : `250":CASH=CASH+250 0(hombon=115,29;" " :(awabon=117,29;" " DPLAYED=1:DREW1=T$(TEAM)(89 ):DREW2=T$(OPPO)(89 ):R$=(1+DREW1):S$=(1+DREW2):T$(TEAM)(89 )=R$:T$(OPPO)(89 )=S$ N\1240:>.73333TV=1::9 ,4;"GAME HIGHLIGHTS ON TV":1240 X4MORAL=MORAL-1:MORAL<1MORAL =1 bkteam1p=hombon:team2p=awabon:team1=team:team2=oppo:3790:2:2:7::1540 l ':1,12 ;1;"RESULT" HOMBON=4:AWABON=0 4,0;7;T$(TEAM)(16);" ";0;HOMTOT;" runs"''0;"beat"'';7;t$(OPPO)(16);0;" ";awatot;" runs";:15,0;t$(team)(16);" gain ";hombon;" points";17,0;t$(oppo)(16);" gain ";awabon;" points" (hombon=115,29;" " (awabon=117,29;" " ?19,0;"WIN BONUS : `1000":CASH=CASH+1000 PLAYED=1:WON1=T$(TEAM)(67):LOST2=T$(OPPO)(10 11 ):R$=(1+WON1):S$=(1+LOST2):T$(TEAM)(67)=R$:T$(OPPO)(10 11 )=S$ \1240:>.73333TV=1::9 ,4;"GAME HIGHLIGHTS ON TV":1240 5MORAL=MORAL+2:MORAL>20MORAL=20 kteam1p=hombon:team2p=awabon:team1=team:team2=oppo:3790:2:2:7::1540  H':1,12 ;1;"RESULT" M HOMBON=0:AWABON=4 R4,0;7;T$(OPPO)(16);" ";0;AWATOT;" runs"''0;"beat"'';7;t$(TEAM)(16);0;" ";homtot;" runs":15,0;t$(team)(16);" gain ";hombon;" points";17,0;t$(oppo)(16);" gain ";awabon;" points" \(hombon=115,29;" " f(awabon=117,29;" " pPLAYED=1:WON1=T$(OPPO)(67):LOST2=T$(TEAM)(10 11 ):R$=(1+WON1):S$=(1+LOST2):T$(OPPO)(67)=R$:T$(TEAM)(10 11 )=S$ z\1240:>.73333TV=1::9 ,4;"GAME HIGHLIGHTS ON TV":1240 3MORAL=MORAL-2:MORAL<1MORAL=1 kteam1p=hombon:team2p=awabon:team1=team:team2=oppo:3790:2:2:7::1540  %2,17;3;"scores" G=1MEMBER *G+3,0;P$(P(M(G)))(4) P$(P(M(G)),3)="1"HIT=((P$(P(M(G)),1))*(*3.5`)):HOSCO=HOSCO+HIT:F=1HIT:G+3,19;F:F P$(P(M(G)),3)="2"HIT=((P$(P(M(G)),1))*(*15)):HOSCO=HOSCO+HIT:F=1HIT:G+3,19;F:F ~P$(P(M(G)),3)="3"HIT=((P$(P(M(G)),1))*(*6)):HOSCO=HOSCO+HIT:F=1HIT:G+3,19;F:F _C(P(M(G)))=C(P(M(G)))+HIT:D(P(M(G)))=D(P(M(G)))+1:HOSCO>230WICK=G:3560 G k16,8;"TOTAL :";16,19;HOSCO;:G((T$(OPPO)(12 13 )/20)*100d)OVERA>OVEROAWSCO=HOSCO-MORAL:3600 &((MORAL/20)*100d)<((T$(OPPO)(12 13 )/20)*100d)OVERA9 ENERGY=9 P$(P(F),2)=ENERGY:F MEMBER=0 \F=1MEMBER:ENERGY=(P$(P(M(F)),2)-3):ENERGY<1ENERGY=1:F  P$(P(M(F)),2)=ENERGY:F  MEMBER=0:M(12 ):  INTEAM=02710 ( 2 <13910F:F=07:A:""+F,A:F: FE2,2,4,4,72H,40(,480,16 P Z "CRICKET":  MENU II HF=111 :2;F+9 ,1;" ":F Z10 ,1;2;7;"1 : AVERAGES";12 ,1;"2 : SAVE GAME" 6Z$= @Z$="1"4500 J`Z$="2":1;9 ,9 ;"PRESS ANY KEY":0::"CRICKET"590N:590N TZ$="7"590N h 41506 I:5:5:0::1,5;"TEAM BATTING AVERAGES" F=1NUMBER: ;3,17;0;"ave";3,25;"inns" aF+4,0;0;P$(P(F))(4);" ";:D(P(F))=0F:F>NUMBER4540 ^7;C(P(F))/D(P(F)):F+4,26;7;D(P(F));F+4,22;" ":F 1240:590N # <aorroembeeeoraeagueasoasumbenteres ea  zel0u!layev"w#x$nweam eam eam1eam2rewrewoolalaor or onostonostopp a nergiveralverallopp:nteaeeverver:ombowabooscswsctisoiXomwaomtoswatotttenJ rounotterntea0ponsor"elevisiorogarofitClran$ricequesffe6ounowkilAuteaonu2r&Ћ&001HOLDING 001MALCOLM 002BOWLER 001JEAN-JACQUES 001WARNER 003MAHER 002GOLDSMITH 002ROBERTS 001NEWMAN 002MORRIS 002BARNETT 001MORTENSEN 001DE FREITAS 001DILLEY 001CAPEL 002ATHEY 001JARVIS 001PRINGLE 001MILLER 002ROBINSON 002HICK 002GOOCH 002BORDER 002GATTING 001SMALL 003PARKS 003WHITTICASE 003RHODES 002BROAD 002LAMB 002GOWER 002BOTHAM 003FRENCH 003RICHARDS 001EMBUREY 001WILLEY 001FOSTER 001ALLOT 000000000001135KENT 000000000001442WORCESTERSHIRE 000000000001354LEICESTERSHIRE 000000000001677ESSEX 000000000001020MIDDLESEX 000000000001456GLOUCESTERSHIRE 000000000001877WARWICKSHIRE 000000000001650NOTTINGHAMSHIRE 000000000001525NORTHAMPTONSHIRE000000000001502LANCASHIRE 000000000001243SOMERSET 000000000001173DERBYSHIRE 000000000001241SURREY 000000000001742SUSSEX 000000000001705HAMPSHIRE 000000000001526YORKSHIRE 000000000001588GLAMORGAN % 0201170316041505140613071208110903010417051606150714081309121011010402031705160615071408130912100501040217061607150814091310121101060205030407170816091510141113010702060305081709161015111412130801070206030504170916101511141201090208030704061017111612151314100109020803070406051711161215130111021003090408050712171316141512011102100309040805070617131614011302120311041005090608141715161401130212031104100509060807171501150214031304120511061007091617160115021403130412051106100709080117021603150414051306120711081017021603150414051306120711081009&&ic YYeveN #$  S90082 2 00002074LEICESTERSHIRE 0062 1 1 001946ESSEX 0062 1 1 001563WARWICKSHIRE 0062 1 1 001555GLOUCESTERSHIRE 0042 002 008 84MIDDLESEX 0042 002 001638HAMPSHIRE 0042 002 001466YORKSHIRE 0042 002 001312SURREY 0041 1 00001266NORTHAMPTONSHIRE0022 001 1 1255KENT 0021 002 001608NOTTINGHAMSHIRE 0021 001 009 58SOMERSET 0021 001 001310LANCASHIRE 0021 001 001283WORCESTERSHIRE 0002 00002 8 28GLAMORGAN 0002 00002 6 44SUSSEX 0001 001 1 8 31DERBYSHIRE R0001 001 1 8 31DERBYSHIRE &&? NZN;