@V O? 8@6A:\[a6=12345 ?f(j)=f(j+1):f(j+1)=tv `tv=s(j):s(j)=s(j+1):s(j+1)=tv:tv=t(j):t(j)=t(j+1):t(j+1)=tv:tv=g(j):g(j)=g(j+1):g(j)=tv b-tv=j(j):j(j)=j(j+1):j(j+1)=tv fj pi S7:0:6::.1}L,5:.1}L,4:.1}L,4 30,4;"NAME BATTING BOWLING" +1,13 ;"S P F P V F" T0:91[,0:0,175:171,0:0,175 k=111 #0:k+5,1;b$(k) ԅ1:k+5,13 ;s(k);" ";t(k);" ";g(k):2:p(k)>0b$(k)y$k+5,23;p(k);" ";v(k);" ";f(k) k i=110 j0:17,0,,"Move'*'to batsman that is to batat No.";i;" in the order then press '8'.",, ,,  2700 pos=12400` k=posi+1-1 1z$=b$(k-1):b$(k-1)=b$(k):b$(k)=z$ tv=p(k-1):p(k-1)=p(k):p(k)=tv:tv=v(k-1):v(k-1)=v(k):v(k)=tv:tv=f(k-1):f(k-1)=f(k):f(k)=tv $tv=s(k-1):s(k-1)=s(k):s(k)=tv:tv=t(k-1):t(k-1)=t(k):t(k)=tv:tv=g(k-1):g(k-1)=g(k):g(k)=tv .k ` k=1i j0:k+2,0;" ";b$(k):1:k+2,13 ;s(k);" ";t(k);" ";g(k):2:p(k)>0b$(k)y$k+2,23;p(k);" ";v(k);" ";f(k) tk ~k=i+111 :0:k+5,0;" ";b$(k):1:k+5,13 ;s(k);" ";t(k);" ";g(k):2:p(k)>0b$(k)y$k+5,23;p(k);" ";v(k);" ";f(k) k i 0:0:7: &0,6;"So your order is:" <5:i=111 :i+6,i+4;b$(i):i j6:20,25:0,100d:165,0:0,-100d:-165,0 300,: pos=i #pos+5,0;0;"*" x$= x$=""2720 ="8"2800 pos+5,0;" " .pos=pos+(x$="6"pos<11 )-(x$="7"pos>i) .05|L,pos 2710 ^k=216:k,0;" ";k,12 ;" ";k,22;" ":k .1}L,pos: Start of match routine 1:7:1: Hz(4)>02,4;"IN THE FINAL OF THE":3060 Mz(3)>02,2;"IN THE SEMI-FINAL OF THE":3060 Oz(2)>02,1;"IN THE SECOND ROUND OF THE":3060 .2,2;"IN THE FIRST ROUND OF THE" ;4,5;"ALLANSON COMPUTING"''" TROPHY" hscore=iscore3100 op=(*16+.499|) (k=14:z(k)=op3070 k 510 ,0;h$;12 ,5;" v ";k$(op) $hscore=iscore3140D &!i$=k$(op):a$(11 ,8) 0:k=111 :da$(k)=l$((*69E+.499|)+1):a$(k)=((*20)+65A)+a$(k)(28) ?k D 1260 N 100d: Name change Qmark=0:19,0;"Type in the name you want to alter",,,,:z$ z$=y$mark=1 A19,0;"Type in the name you want to alter it to" z$>83210 z$=83250 z$=z$+" ":3230 *i=111 :a$(i)=z$3300 i *i=115:b$(i)=z$3330 i:3210 z$:z$>83300 a$(i)=z$ 1500 z$:z$>83330 b$(i)=z$:mark=1y$=z$  1500 H0:0:7: R+2,3;"THE ALL IMPORTANT TOSS" \910 ,0;"Heads or tails ? (Press'H'or'T')" f!x$=:x$"t"x$"h"3430f p%10 ,0;"OK You called "; zx$="t""Tails",, x$="h""Heads",, #12 ,0;"And it is ..." :rnd= rnd.53500 15,13 ;"" 9106j,513,9 :106j,513,10 +17,15;"...Heads":3520 15,13 ;"" 9108l,524,9 :108l,524,10 17,15;"...Tails" !x$="t"rnd.53600 !x$="h"rnd<.53600 919,0;"You have been put in to bat" bob=0 3650B Z19,0;"Press '1' to bat first or '2' tobat second " !x$=:x$>"2"x$<"1"3610 $bob=x$-1 .=19,0;"OK You bat ";:bob=1"second",,,, 8bob=0"first",,,, B inn=1:bob=(bob=0) L1,502: action master inn=bob+15000 inn=bob+15160( innbob+18700! y=019 x=02 inn=bob+15510 innbob+18000@ bat=bat1bat1s=bat1s+rod bat=bat2bat2s=bat2s+rod  ru=ru+rod ?bob=0inn=2ru>iscoreiscore>0hscore=ru: ?bob=1inn=2ru>hscorehscore>0iscore=ru: wod=14100 >1:7:rod=110 ,10 ;"A SINGLE" *rod=210 ,12 ;"2 RUNS" *rod=310 ,10 ;"3 RUNS" ,rod=410 ,12 ;"BOUNDARY" 8rod=1rod=3bat=bat1bat=bat2:4210r #rod=1rod=3bat=bat1  4210r |1:7:12 ,11 ;" ":inn=bob+110 ,11 ;a$(bat);11 ,11 ;"Departs "  Kinnbob+110 ,11 ;b$(bat);11 ,11 ;"Departs " 12 ,11 ;"for ";  bat1=batbat1s:bat1s=0  bat2=batbat2s:bat2s=0 (wi=wi+1:wi=10 4300 bat=bat14130" *bat1>bat2bat2=bat1+1:4127 bat2=bat2+1 bat=bat2:4140, "*bat1>bat2bat1=bat1+1:4133% $bat1=bat2+1 % bat=bat1 ,30:12 ,11 ;" ":inn=bob+110 ,11 ;" New ";11 ,11 ;"Batsman ";12 ,11 ;a$(bat) -iinnbob+110 ,11 ;" New ";11 ,11 ;"Batsman ";12 ,11 ;b$(bat) /,rod=1bat=bat1bat=bat2:41451 0rod=1bat=bat1 @ 30 h)7:0:x<25450J rx<27500L |x $wi=10 y=194300 %8200 :wi10 4300 y 97-(bob*6):7-(bob*6):9 : O10 ,0;"The innings of ";:inn=bob+1i$'" is over" )innbob+1h$'" is over" 914,7;"at ";ru;" ";:wi=10 "all out" wi<10 "for ";wi innbob+1hscore=ru inn=bob+1iscore=ru 1i=1502:(502-i)/500,i:i inn=2 inn=2:4000  5:0:5: bowler=0:o(11 ):rod=0:wod=0:bat=1:bat1=1:bat1s=0:bat2=2:bat2s=0:ru=0:wi=0 +5,3;"YOUR OPPONENTS INNINGS" V13 ,0;"Press 'Y' for instructions or 'N' to go on with the game" ="y"5050  ="n"  5020 6:6:0: '0,5;"M A N U A L (2)" )0,5;1;" _" Q3,0;"The innings will last a maximum of 20 overs, 3 balls / over." ^'"You must decide which bowlers bowl at which times and where you place your fieldsmen." Y'"Bowlers may not bowl consecutiveovers, and the wicketkeeper may not bowl, of course." V'"Similarly the field placings remain the same unless you decide otherwise." 121,3;"Press'ENTER'to continue" 0:="y" '"You may also miss out any section of the match and rejoin it later, and also SAVE the gameon tape to be continued at a future date."  ' Z20,0;" Press 'ENTER' to get on with the match "  0: (+mark=0:1:1:7: 2,0,10 ;"Pace Turn Form ov.left" <*i=111 :b$(i)=y$5220d F;i+1,1;b$(i);i+1,28;4-o(i) P#p(i)=0b$(i)=y$5220d Uo(i)>0mark=1 Z2i+1,12 ;p(i);" ";v(i);" ";f(i) di nmark=015,0;"Move '*' to player who is to bowl the first over using keys 6 & 7 and then press '8' " smark=115,0;"Move '*' to player who is to bowl the next over using keys 6 & 7 and then press '8' " x pos=5 pos+1,0;"*" x$= x$=""5260 .05|L,pos x$="8"5320 pos+1,0;" " 4pos=pos+(x$="6"pos<11 )-(x$="7"pos>1)  5250 2o(pos)=4b$(pos)=y$pos=bowler5250 6.1}L,8:.1}L,6:.1}L,8 =pos+1,0;" ":bowler=pos:o(pos)=o(pos)+1  ink:paper:0: i=16 Gm(i,1),m(i,2);"";m(i,1)+1,m(i,2);"" i 60<,85U:0,10 :62>,88X:0,10 :64@,91[:0,10 :-4,-6 r180,85U:0,12 :179,88X:0,12 :178,91[:0,12 "-9 ,9 ;"":10 ,9 ;"" 6"502,89Y:0,6:513,89Y:0,7:524,95_:0,2:535,96`:0,2:546,93]:0,5:557,99c:546,100d:2,0:0,-2:557,99c:2,0 @/10 ,28;"";11 ,28;"" J,0:7:0,0, Te0,0;ru;0,4;"FOR ";wi;0,11 ;"OFF ";y;0,18;"OVERS" ^j1,0;"NO.";bat1;1,6;bat1s:1,10 ;"NO.";bat2;1,16;bat2s hGinn=2bob=13,0;h$;3,16;hscore rGinn=2bob=03,0;i$;3,16;iscore | 85350:cdb=*3+((5-d(bat))/2) !cho=*5+d(bat)+ov/4 1ccb=*8-(c(bat)+e(bat))*2+p(bowler) ccb>cdbccb>cho6000p cdb>cho6100  csk=*9 -c(bat)+f(bowler) cru=*10 ccd=*8+v(bowler) csk>crucsk>ccd62008 ccd>cru6300  6400 p100d:7000X @10 ,9 ;7;"":5:10 ,9 ;"" O10 ,8;0;"":9 ,7;" ":10 ,7;" " p60<,85U:0,12 :62>,88X:-1,12 :64@,91[:2,12 '.05|L,0:.8L,-20 wod=1:rod=0: 100d:7000X t9 ,9 ;"";10 ,9 ;"":.01z# =,-5:10 ,10 ;" ":11 ,11 ;"" rod=0:wod=0: 8 100d :cata=0:catd=0:i=10 12 :j=2931:(j*8+3,(21-i)*8+4)=06204< ;cata=j:catd=i:6260t <j:i >-7000X:7140:i=42*58: ?fn(i-1,1),n(i-1,2);1;"":n(i,1),n(i,2);1;"" @<i=42*n(i-1,1),n(i-1,2);" " Ai B.01z# =,3:2:9 ,28;" ":8,30;"":7:8,30;" ";9 ,31;"":.01z# =,3:9 ,31;" ":6353 tN7:4:7000X:7140:6261u+(cata-29)*5 ui=42*58: vfn(i-1,1),n(i-1,2);1;"":n(i,1),n(i,2);1;"" w<i=42*n(i-1,1),n(i-1,2);" " xi y 6277 zi=2239' {fn(i-1,1),n(i-1,2);1;"":n(i,1),n(i,2);1;"" |<i=22n(i-1,1),n(i-1,2);" " }i ~ 6277 i=220 fn(i-1,1),n(i-1,2);1;"":n(i,1),n(i,2);1;"" 8,11 ;" " i "b",568:catd-1,cata-1;" ";catd,cata;"";catd+1,cata;"":"b",186:*8>c(bat)ť>.8L6290 .01z# =,0:.01z# =,1:.01z# =,-10 :20:catd,cata;"";catd+1,cata;"":rod=0:wod=1: catd-1,cata-1;" ":5:catd,cata-1;"";catd+1,cata;"":7:catd,cata-1;" ";catd+1,cata-1;"";ink;"" >.05|L,-16:.05|L,-18:.3,-22 rod=0:wod=0: 100d:7160 ,innbob+1ť*12 >osl6310 *pbad=10 +dird:pbaa=11 +dira -(pbad+dird,pbaa+dira)=06308 Rpbad=pbad+dird:pbaa=pbaa+dira:pbad+dird>21pbad+dird<46310 2pbaa+dira>31pbaa+dira<06309  6303 7160:6302 Bpbad=10 +dird:pbaa=11 +dira:7000X:7140 .pbad-dird,pbaa-dira;" ":pbad,pbaa;"" -(pbad+dird,pbaa+dira)=06370 Wpbad+dird<4pbaa+dira>31pbad+dird>21pbaa+dira<06350  pbad=pbad+dird:pbaa=pbaa+dira  6330 pbad,pbaa;" " .i=300-1:.005y# =,i:i rod=4:wod=0: K((pbaa+dira)*8,(21-(pbad+dird))*8)=16380 lpbad,pbaa;" ":pbad+dird,pbaa+dira;"":.01z# =,0:.01z# =,1:.01z# =,2:5 pbad+dird,pbaa+dira;""  6387 j"b",568:pbad,pbaa;" ":pbad+dird,pbaa+dira;"";pbad+1+dird,pbaa+dira;"":"b",186 ~.01z# =,0:.01z# =,1:.01z# =,2:5:pbad+dird,pbaa+dira;"":pbad+dird+1,pbaa+dira;"" rod=0:wod=1:  7200  pbad=11 :pbaa=11  pbad=pbad+dird:pbaa=pbaa+dira  @k=16:m(k,1)=pbadpbad>166414  k:6418 Am(k,2)-pbaa<3m(k,2)-pbaa>06430 Apbaa-m(k,2)<3pbaa-m(k,2)>06460<  6412  Ipbad=pbad+dird:pbaa=pbaa+dira:pbad<21pbaa<316410   6300 Erom=9 :pfda=m(k,2):fpfa=pbaa:fpfd=pbad:pbaa=11 !E7000X:7140:9 ,9 ;" ";10 ,9 ;" " $k=11 fpfddird ( 6499c )fpfa=pfda64491 *G(pfda/2)*2=pfdafpfd,pfda;" ";fpfd+1,pfda;" " +G(pfda/2)*2pfdafpfd,pfda;" ";fpfd+1,pfda;" " ,fpfapfdapfda=pfda-1 . 64502 1;fpfd,fpfa-1;" ";fpfd+1,fpfa-1;" " 2C(rom/2)*2rom 9 ,rom;" ";10 ,rom;" " 3C(rom/2)*2=rom 9 ,rom;" ";10 ,rom;" " 4rom=rom+1:k 7 6476L .733336600 Sfpfd,fpfa;"";fpfd+1,fpfa;"":.01z# =,20:.01z# =,21:3:fpfd,fpfa;"";fpfd+1,fpfa;"" ;VC.05|L,0:9 ,19;" ";10 ,19;" " Z8>.73333dira=(fpfa-7)/((fpfd-10 )/dird) [Erom=17:pbaa=fpfa:k=fpfd-dird10 -dird:pbaa=pbaa-dira ]?k+dird,pbaa+dira;1;"":k,pbaa;1;0;"" `F(rom/4)*4=rom9 ,rom;" ";10 ,rom;" " aF(rom/4)*4rom9 ,rom;" ";10 ,rom;" " b 6500d c9k-dird,pbaa-dira;" ";k,pbaa;"":pbaa=pbaa+dira: d*rom=rom-2:rom=76520x nk:pbaa<10 6700, s 6750^ x.05|L,0:j=10 22:(j/2)*2=j9 ,j-1;" ";10 ,j-1;" " }J(j/2)*2j9 ,j-1;" ";10 ,j-1;" " 3k,pbaa;1;"":k-dird=10 6550 >k-dird,pbaa-dira;1;"":k=k-dird:pbaa=pbaa-dira j '>.66700,:rod=2: s11 ,8;"":j=j20:(j/2)*2=j9 ,j-1;" ";10 ,j-1;" " J(j/2)*2j9 ,j-1;" ";10 ,j-1;" " S4:j:9 ,18;" ";10 ,18;" ":.05|L,0 rod=3:wod=0: N7:9 ,19;" ";10 ,19;" ":.05|L,0 rod=1:wod=0: ,1:60<,85U:0,10 :62>,88X:0,10 :64@,91[:0,10 :-4,-6:0 - 6040 6rod=1:wod=1: ^ k=rom+19 -1 c:(k/2)*2=k9 ,k;" ";10 ,k;" " h:(k/2)*2k9 ,k;" ";10 ,k;" " m 7:k r.9 ,9 ;" ";10 ,9 ;" " w/.01z# =,0:rod=2:wod=0: W X ink:paper 10 ,28;"";11 ,28;"":7:10 ,27;" ";11 ,27;" " ]i=2624-2 b#10 ,i;" ";11 ,i;" " lQ.005y# =,10 :7:10 ,i-1;" ";11 ,i-1;" " q!.005y# =,12 :5:i v10 ,22;" ";11 ,22;" ":.01z# =,10 :.01z# =,0:4:10 ,21;" ";11 ,21;" " :4:10 ,20;" ";11 ,20;" " r180,85U:0,12 :179,88X:0,12 :178,91[:0,12 9 ,19;""  2 9 ,18;" " P5:10 ,20;" ";11 ,20;" ";12 ,20;"" 9 ,18;" " -balld=9 :i=1710 -1 balld,i;"" 5-p(bowler)/1.5@ balld,i;" " /balld=balld+(i<14)-2*(i<12 ) i  9 ,9 ;"";10 ,9 ;" ":.01z# =,0:9 ,9 ;"_";10 ,9 ;"":2:9 ,10 ;""  (dira=((*3+.499|)-1) 6v(bowler)>*10 dira=((+.499|))-2  Bdird=((*2+.499|))-1:dird=07180  "dira=0dird=2*dird   pbad=11 :pbaa=11 *]dira=(>.5)+1:dird=(>.5)+1:dira=1dird=17210* 4 L67:0:0,0,:30 Qinnbob+17537q V51,0;"PRESS 'F' NOW FOR A FIELD CHANGE" `i=1502 j="f"7550~ mi pinn=bob+17545y q1,0,,:20: rB1,0;"NO.";bat;1,7;b$(bat);" To strike" s 502: yc1,0,,:20:1,0;b$(bowler);" to No.";bat;1,18;a$(bat) z 502: ~G5350:ink:paper:10 ,28;" ";11 ,28;" "  7980,:i=114 ppd,ppa,x$,dummy Bk=16:m(k,1)=ppdm(k,2)=ppa7600 *k:ppd,ppa;"";ppd+1,ppa;"" ppd,ppa-1;x$:i \7:0:0,0,," PRESS 'H' for help",,,"Fieldsman to be moved ?", 4mark=0:7620:mark=17550~  7660 x$= ="h"7800x x$"0"x$"9"move=x$ x$="q"move=10 x$="w"move=11 x$="e"move=12 x$="r"move=13 x$=""7620 .1}L,move  7980,+move:ppd,ppa Bi=16:m(i,1)=ppdm(i,2)=ppa7670 7i:.5,-10 :.5,-15:7615 9nf=i:ppd,ppa-1;paper;" ";ppd+1,ppa;" " A3,0;0;7;"Position to be moved to ?",  7620 7980,+move:ppd,ppa ji=16:m(i,1)=ppdm(i,2)=ppa.5,-10 :.5,-15:7690  (i 2Z7980,:i=013 :ppd,ppa,w$,dummy:w$=x$(w$)=(x$)-32 77357 4i: 7&m(nf,1)=ppd:m(nf,2)=ppa <':10 ,7;"Another ? (Y/N)" F="y"7550~ P-="n"0,0,:7536p Z 7750F x+0:6:6:mark=1: Z0,5;"M A N U A L (3)":1:0,5;" _":0 2,0;" You have just seen a display with fieldsmen appearing in normal & inverse video."''" Those in normal video are the positions that your players are in at present. Those in inverse are the other recomended positions" '" When asked"'" 'fieldsman to be moved ?'"'"press the key of the character appearing next to the fieldsman whose position is to be altered." 121,3;"Press'ENTER'to continue" 0:="y" 7'" When asked"'" 'Position to be moved to ?'" '"Press the key of the character appearing next to the inverse fieldsman at the position your fieldsman is to be moved to."  ' :18,0;"Press'ENTER'when you are with it"  0:: + ,4,5,"0",0 -4,11 ,"1",0 .5,16,"2",0 /5,20,"3",1 06,4,"4",1 110 ,29,"5",0 210 ,31,"6",0 313 ,6,"7",1 414,15,"8",0 514,18,"9",0 615,11 ,"Q",1 719,2,"W",0 819,17,"E",1 919,29,"R",1 @x=07500L E 5350 Jc60=*7-s(bat) Tc61=*5* ^ c62=(*4+t(bat))/2 h'c63=*4+t(bat)+(g(bat)>2) rc64=*13 |-c60>c61c60>c62c60>c63c60>c646000p %c61>c62c61>c63c61>c646100 c62>c63c62>c6462008 c63>c646300  6400  bat=bat1bat=bat2:8220  bat=bat1 inn=bob+15160( &:3,12 ;"O V E R":7,0;"PRESS 'J' NOW TO JUMP TO ANOTHER POINT IN THIS INNINGS";14,0;" PRESS 'S' NOW TO SAVE GAME" 0i=1502 :="j"8300l D="s"8400 Ni Xinn=bob+17500L Yink:paper:0: l4:10 ,0;"Type in the number of overs;" vP11 ,4;y+1;11 ,7;"min";12 ,4;"19 max" a13 ,0;"that will have passed at the point which you want to rejoin the action." 6ovp:ovp19źovpovp8330 $wi=wi+(*2*(ovp-y-1)) %ru=ru+(*10 *(ovp-y-1)) y=ovp-1 bbat1=wi+1:bat2=wi+2:bat=wi+1:bat1s=(*ru/10 ):bat2s=(*ru/10 ) wi10 8280X &5:7:1:0: Lx(21*8):i=121*8:x(i)=("a"+i-1):i :10 ,0;"ENTER FILENAME FOR THIS VERSION":x$ 'x$8450!:20,5;"OK"  !F:10 ,8;"WELCOME BACK";13 ,7;"(PLEASE WAIT)" ! i=121*8 !("a"+i-1),x(i) ! i:0 !*:8280X !, 4040 !. 181 !4inn=1:5:0:7:(0,0)=1:10 ,0;"THIS IS A ILLEGAL COPY"''"INFRINGEMENT OF COPYRIGHT IS A OFFENCE":54000 !60,0:100d !7)(0,0)40(8520H! !9L502::0:0:0::10 ,8;"STOP THE TAPE" !>Di=820:10 ,i;1;6;" ";:5:i !H0:7:502: !Ro7:10 ,1;"Press 'Y' for instructions or 'N' to go straight on with the game" !\="y"8560p! !f ="n" !k 8540\! !p6:0:6: !z10,4;"M A N U A L (Introduction)" !)0,4;1;" _" !2,0;" You are the captain of the cricket team of your choice competing in a 20 over a side competition." !'" When your side is bowling you decide where you put your fieldsmen and which bowlers to bowl. Your decisions affect the action which is all played out before your eyes." !q'"How to Improve at Cricket Captain";14,0;1;"_ _" !X'"By playing the game and watchingcricket coverage on TV you will become more expert." !121,3;"Press'ENTER'to continue" !0:="y" !ʊ'"You will be able to see batsmen's techniques and how to get them out, and know which field to use with which bowler." !;''"But be warned: Only the best reach the top flight." !M'"Press'ENTER'to get on with the game " ! 0:: !:6,0;"OK Sit back and watch your side"''"bat. If you get really"''"frustrated at how helpless you"''"are please don't take it out on"''"the computer." "7980,:k=1:i=114:ppd,ppa,x$,wether:wether=1m(k,1)=ppd:m(k,2)=ppa:k=k+1 "i:200:bowler=12 :ru=0:wi=0:bat=1:bat1=1:bat2=2:bat1s=0:bat2s=0:200: "`P:10 ,0;"Which colour for action displays would you like ?" "j4502::10 ,10 ;"Green ?":502 "t(ink=7:paper=4:5350 "~^502::10 ,10 ;"Or Cyan ?":ink=0:paper=5:502:5350 "U502::10 ,10 ;"Or Yellow ?":502::paper=6:5350 "a502::10 ,10 ;"Or White ? ":paper=7:502:5350:502: "&10 ,6;"Press 4,5,6 or 7" "x$= "x$<"4"x$>"7"8870" ".1}L,x$ "4paper=x$:ink=0:paper=4ink=7 " " "k" """u():"":u(4)u(1)+u(2)u(4)+u(5)u(3)+u(2)u(1)u(3)-u(5)0,0:85004! "4"CRICKET"1:"0""a",21*8:"1" "$65278=2398897" "$65022=2548893" " 8894" "#"CRICKET":"0":"1":8897" "o  ~ \sz9nr@on5FH.AbbottN.Read W.StaceyS.Webb A.WilsonW.Black B.Brown B.CooperT.DraperO.GarnerM.Hall H.IbisonR.Jones E.LawtonW.Maya W.ParkerC.RegentH.SeddonY.Stone R.Storm V.WinterB.AtkinsI.Cann N.Clark M.DaviesL.GalvinK.HudsonJ.JarmanH.Kelly G.Patel F.D'arcyD.Lloyd S.MaddoxA.MahoodP.Mills O.NugentI.PearceU.RankinT.Roe R.SherryE.BrandyW.Smith A.OrmrodK.ManleyB.TaylorM.Wild L.Yates K.AlmondI.ArthurJ.Ashe H.Bond G.CurtisG.LesterD.Lewis S.MatleyA.Derby P.Moris I.Oakes U.PowtonT.StreetR.Twist E.Tyson E.Walsh C.Ward V.Wood B.Woods G.Lowe A.LudlowR.KinleyD.King owle at at1 at at2allall all ooaatatepfe]<            a Z_    irirba ba pfpfifdo d hcⅉsr3[cscorscor676/Aң6#6Hn66inppummovapenarv randmarkeedN   N  NNDerbyshire Essex Gloucetershire Hampshire Kent Lancashire Leicetershire Middlesex Northants NottinghamshireSomerset Surrey Sussex Warwickshire Worcetershire Yorkshire etheK888| 8(((((888z<8(HD"8()*D@@*J \9@ p(=^<"DT"8||88888888<<?))II$$DD @|8(((((UUUUx|<8|W0: 8HMiddlesex }D.Mills K.Smith N.LesterP.TaylorS.Derby F.Moris G.Patel N.Ward I.CooperQ.Maya Q.StaceyN.WilsonB.Bond H.Hall G.CurtisYG.Patel ILancashire ] R.Wild O.Mills L.TaylorE.WinterD.Wood D.Webb K.Moris C.LudlowC.Black T.Kelly J.Black :  :   : N   NN:ZG.CurtisXR"" d 1 @ P P P ױ3333MW @>vn>888|8(888z<8(HD"8()*D@@*J \9@ p(=^<"DT"8||888<B<*B<<BZ?   B@@BFBBFBBB@BFB*BBZ B~~BB<B<*B><<\\\\ g\)RX![!@P!!88"W K SR P "":"" .inn=1:iscore=-1:hscore=0 dprogramme master n,8891":85004!:start-instructions s8800`":colour x1000:skill level  1380d:team name 3000 :start of match 1260:opp skills 1500:pick side 3400H :coin toss 4000:action master 0:0:7: hscore"9"Ŧ<"0"1180 posl=x$:20,5;"Skill level ";osl;", OK ? (Y/N)":.1}L,osl:.1}L,osl-2:.1}L,osl  ="y"1240 "n"1220 #i=120:i:1000 R20,0;"FINE",,:.1}L,0:.1}L,1:.1}L,0 osl=0osl=.5  'c(11 ):d(11 ):e(11 ) k=13 $:c(k)=osl*(2+osl/4+) (:d(k)=2*(2+osl/6+)  -:e(k)=2*1+(*4+.5) k  (k=111 21:c(k)=osl*(osl/6+(11 -k)/6+) <*:d(k)=2*(osl/3+*2.5 ) F-:e(k)=2*1+(*4+.5) Pk Z dYz(4):5:5::0,0;"Now you get to choose your team:" f 9500% h:0:i=116:i+1,8;k$(i):i jj7:502,30:0,130:150,0:0,-130:-150,0 l|19,0;"Move'*' using cursor keys.Press 8 to select your county. Press'C'to change county names " n pos=8 opos+1,7;"*" px$=:x$=""1392p rx$="c"1450 tx$="8"1410 u).05|L,pos:pos+1,7;" " v4pos=pos+(x$="6"pos<16)-(x$="7"pos>1) x 1391o h$=k$(pos):z(1)=pos ]19,0,,:21,0,,:20,0;0;" You have chosen ";h$  1470 ~19,0;"Move'*'using cursor keys.Press 8to change the name it is next to " #0:pos+1,7;"*" =""1456 x$= x$="8"1464 ).05|L,pos:pos+1,7;" " 4pos=pos+(x$="6"pos<16)-(x$="7"pos>1)  1454 V19,0;"Please input the name this is tobe changed to (Max 15 letters). " *k$(pos):(k$(pos))>151480  1380d  ,:b$(15,8):i=115 ob$(i)=l$((*69E+.499|)+1):b$(i)=((*22+.499|)+65A)+b$(i)(28) i Ҝ.1}L,7:.1}L,5:.11}aG,7:10 :.12}u[,5:.1}L,4:.1}L,2:.3,1:.3,2 y$=b$(7) Si=115:b$(i)=y$i7b$(i)=((*20)+65A)+".Spray " i  Pick side routine  1:1:7: 20,0;"The names of the players are:" 2,0;h$,i$ i=111 Y:i+3,0;6;1;b$(i);5;0;i+3,16;a$(i) "i $Di=12 15:i+3,0;6;1;b$(i):i ,S19,0;"If you wish to change any of these press 'Y', if not 'N'." 6="y"3200 @="n"1620T J 15906 T6:4:0::19,13 ;1;"S -Skill";20,13 ;1;"P -Power";21,13 ;1;"F -Form":2:19,22;"P -Pace";20,22;"V -Turn";21,22;"F -Form":0 Y=19,1;"For help":20,1;"Press 'H'" ^30,4;"NAME BATTING BOWLING" c+1,13 ;"S P F P V F" hT0:91[,0:0,175:171,0:0,175 r.f(15):g(15):k=115 |dg(k)=(s(k)/5*(*5+.499|)):g(k)=g(k)+(>.5g(k)<5) ,p(k)>0f(k)=(*5+.499|) 2+k,1;0;b$(k):1:2+k,13 ;s(k);" ";t(k);" ";g(k):2:p(k)>0b$(k)y$2+k,23;p(k);" ";v(k);" ";f(k) k  j(15):k=14 0:8,72H:78N,0:1:96`,72H:70F,0:2:176,72H:74J,0 0:8,112p:78N,0:1:96`,112p:70F,0:2:176,112p:74J,0  pos=8 pos+2,0;"*" i=13:i x$= "x$<"6"x$>"8"x$"h"1730 x$="h"1850: x$="8"1800 .01z# =,pos pos+2,0;" " 4pos=pos+(x$="6"pos<15)-(x$="7"pos>1)  1730 'j(pos)=1b$(pos)=y$1740  ;.05|L,0:.05|L,-2:.05|L,-1 epos+2,1;" ";pos+2,12 ;" ";pos+2,22;" " *j(pos)=1:pos+2,0;" " !i=1502:i #0:8,112p:78N,0:1:96`,112p:70F,0:2:176,112p:74J,0 $0:8,72H:78N,0:1:96`,72H:70F,0:2:176,72H:74J,0 &k 0 21004 :6:0: D-0,0;" M A N U A L (1)" N)0,8;1;" _" X]3,0;" You need 11 players from the squad of 15. So 4 must be dropped." b@7,0;" The ratings given to help you decide are:" lY2:10 ,2;"Batting:"'" S -Skill, the ability of the batsman." v5'" P -Power, how hard he hits the ball." '" F -His recent form" <21,3;"Press 'ENTER' to continue":0 ="y" L1:" Bowling:"'" P -Pace, the speed of his deliveries" {'" T -Turn, Varaition. How good he is at making the ball bend in flight or off the pitch." "'" F -Again his recent form" '" Players do not get ratings forbowling if they do not normally bowl in matches."'" You may use them as bowlers but you may regret it." U0:'" You will need at least five bowlers and ";y$;", the"'"wicketkeeper." .'" Press 'ENTER' to continue":0 ="y" h''''" To choose your team of 11 use keys 6, 7 & 8 as you did when choosing the name for your team." |'" When you press '8' the player next to the '*' is RULED OUT"''" You do this 4 times until only11 players remain." N'''"Press'Y'if you are with it now or'N'to see this sequence again "' ="n"1850:  ="y"1620T  2050 4i=14 >k=114 Hj(k)=12140\ Mk R 2160p \@j=k14:z$=b$(j):b$(j)=b$(j+1):b$(j+1)=z$: ^tv=p(j):p(j)=p(j+1):p(j+1)=tv:tv=v(j):v(j)=v(j+1):v(j+1)=tv:tv=f(j):