ZXTape! 2 Ball by BallVideo Software Ltd Philip Smith1983EnglishSportsUnknownNoneOriginal ReleaseTZXed by Colin Woodcockball   "BALL BY BALL"  !  Philip Smith  ! July 1983   30   mc=65000:mc:f$=" " (Qmc=65000:p$="video":l=530534:mc+l,p$(l-529):l 2*l=530534:((mc+l)):l <7502:0:0:6::502 A8:502:="s"f$="s":19,1;6;" STOP TAPE ":502:19,1;" ":"ball"22:19,1;6;" START TAPE " F+"title":10 :f$="s""title" Kz6:18,1;" ";20,1;" ";19,1;" PLEASE WAIT " P<4:4:20,0;:"MC"65120` U(f$="s""MC"65120`,200 Z)65120`:65128h,255 d34:4:20,0;:"ballb" n x  Pvideo2Fstitle @k ?@~<B<BB@<>B<~B>` r@H"|D@@ @Bx00DBgx~<< <@aDBBAABBD@B@88D88@88x8@8x8HxD8Bf8AA`BB|Bx~<<8 (< <@?< 8D<~ G^:h< *=\> ># *=\++"=\!\~(> w P P Nballb {v  "BALL BY BALL"  $  Philip Smith  %  July 1983      Kn(a,b,c,d )=n$(a,b,c,d)*256+n$(a,b,c,d+un) ?n$(a)=((a/256))+(a-((a/256)*256)) (Ga$(a)=(n$(bt,un,p$(a-(a=12 ),bt),un10 )a12 ) 2 a()="v"+"o"-mc-(mc+qu) d nNn$(t,se,av,un)=(n$(t,se,av,un)+un):n$(t,se,av,qu)=(n$(t,se,av,qu)+un): x yo(du,du):x=undu:y=unoc:o(un,x)=o(un,x)+((n$(t,du,b(x),y)-480)*(x$(y)-70F)+(c$(un)+c$(tr))*0.5) ho(du,x)=(o(du,x)+((n$(t,du,b(x),y)-480)*(y$(y)-70F))+(c$(du)+c$(qu))*0.5):y:x:  !b(tr+st)11 2d=(n$(t,un+tt,b(tr+st),9 )):b$="*"(d=ze) re=n(t,un+tt,b(tr+st),11 ):eȨn(t,se,b(un+st),fi)n$(t,se,b(un+st),fisi)=n$(e):n$(t,se,b(un+st),se)=b$   #e=n(un,qu,t*du+tt+16,11 )+un:n$(un,qu,t*du+tt+16,11 12 )=n$(e):st=st=ze:lov=lov+un:ov=ov+un:ro=ze:k=25+(w*(85U-((lov/85U-(lov/85U))*85U)*)*(n$(bt,tr,bw,du)-480)*((n$(bt,tr,bw,tr)-491)**in+un)/(30+c$(qu))) d9 ,un;(st=ze);n$(t,un,b(un),un10 );:10 ,un;(st=un);n$(t,un,b(du),un10 ) l=1521:l,ze;se;s$:l:ht=ze:17,16;un;se;"Press 'ENTER' to";18,16;"interrupt game";19,16;"at end of over." rtime:oba=ze:obd=ze:obl=ze:bov=(bov*(10 -(n$(bt,tr,bw,fi)-480)))*(un+(bov>(fi+c$(qu)))+(bovoba=(o(un,un+st)*((du+(>0.9ffff)+(one=un)-(lovobd=(o(du,un+st)*((du+(one=fi)+(lov(w+un))+(lov100d)):ba=(*(oba+(lov/c$(du)))+e*):bd=((obd*((qu+c$(du)+(ovov))*0.2~L)-e*(un+(one=un))-(lov/c$(du)))*) ]bd>999bd=999 bbl=(k*(+(one=un))*+((obl*(un+(>0.8Lwdu)))-bov*-((n$(bt,qu,bw,tt*si-qu))/n$(bt,tr,bw,se))*c$(tr)*)*)+un:rn=ze:wk=ze:blzebl=un lvd$="f"si:17,ze;"Bowler: ";12 -bl;bl,18,ze;"Batsman:";12 -ba;ba;"+";bd;16:qu vba>blhit:ht=ze bl>(bd+ba)out b(5)>12 .1}L,12 +rn in=limreq=req-rn:12 ,17;"Runs reqd:";12 ,27;" ";12 ,27;req:(ov+rov)<(tr*unit)sess(13 (one=fi))13 ,27;" ";13 ,17;"Rate/over:";(req/olft*10 +.5)/10 in=limreqzeresult: l:ro=zel$=n$(bt,qu,bw):l$(tt*si-tr)=(l$(tt*si-tr)+un):n$(bt,qu,bw)=l$:n$(bt,si,bw,tr)=(n$(bt,si,bw,tr)+un):20,ze;7;"Maiden over by ";n$(bt,un,bw,un10 )   |rn=((ba/bl)+(c$(un)*)-c$(qu)*-(one=fi)):rn=rnrnze:(rn>sirn<(16-c$(un)))rn=firn=(c$(un)>fiƯc$(qu)>si) Ђrn(16-c$(un))rn=qu(rn=silov<30)rn=qu:20,ze;se;k$((*10 )+un):a=un10 du:.05|L,a:a rn=si((*c$(un))=si(rn=zelov>20))rn=si:20,ze;se;m$((*10 )+un):a=un12 un:0.05|L,a:a (rn>zerun:rn/du((rn/du))st=st=ze  rn>ze ex=(*40()+un:ex>qu  exdubye  ex>dunob     *twk=(*(25+c$(du)-c$(un)*-c$(tr)+(lov(lov<(one*si*))))):wk=qu(n$(bt,tr,bw,un)>"5"ůc$(un)wk=fiwk=(*(si+one))+one:wkfi(c$(un)<(one+du))wk=ze >Uwk=zewk>fiht=ze:20,ze;se;(j$(un+(*10 ))wk<15):30: Hl$=wk+((p$((*11 )+un,bt)-un)*16+bw-un):n$(t,un+tt,b(tr+st),9 10 )=l$:21,24;se;o$(wk,unse-(quwk=tr)):a=12 un-1:0.05|L,a:a Rwkfil$=n$(bt,qu,bw):l$(si*tt)=(l$(si*tt)+un):n$(bt,qu,bw)=l$:n$(bt,si,bw,si)=(n$(bt,si,bw,si)+un):ht=ht+un:ht=tr19,ze;se;un;"HAT TRICK":a=un12 un:.02{# =,a:a W2n$(t,se,b(un+st),qu)=(n$(t,se,b(un+st),qu)-un) \_b$=" ":high:b(fi)<12 b(un+st)=(n$(t,un,b(fi),11 )):av=b(un+st):avbt:factors fhj=n$(un,un,19,t*du+tt+si)+un:b(3+st)=b(5):qu+tt,(t-un)*16+5;"for ";j pfn$(un,un,19,t*du+tt+si)=j:d=tt*oc-si:e=tt*du+fi:n$(t,fi,j,dd+un)=n$(t,qu,22,ee+un) uS9 +st,un;" ":b(fi)>11 st=st=ze:b$="*":high:st=st=ze zb(5)=b(5)+un: a()zeover 15,un;se;"Runs:";rn;" ";:ro=ro+rn:e=tt*si-du:m=n(bt,qu,bw,e):n=n(bt,si,bw,qu):m=m+rn:n=n+rn:n$(bt,qu,bw,ee+un)=n$(m):n$(bt,si,bw,qufi)=n$(n) Sj=n(t,un+tt,b(tr+st),11 )+rn:n$(t,un+tt,b(tr+st),11 12 )=n$(j) Oi=du(tt=du):e=n(t,qu,22,se+i)+rn:n$(t,qu,22,se+ioc+i)=n$(e) ;d=n(t,se,b(un+st),du)+rn:n$(t,se,b(un+st),dutr)=n$(d) 99 +st,12 ;j;" ";qu+tt,(t-un)*16+un;e    5f$="s"f$="y":"ballb"1212:"demo"n$()  menu a()zeun=oc lti=ti+tr:7:ov+rov=unit21,ze;"Lunch interval. ":time:ti=ti+40(:500 (^ov+rov=unit*du21,ze;"Tea interval. ":time:ti=ti+20:500 2(ov+rov=unit*tr)one=fi21,ze;"End of ";u$(((sess+2.5 )/3));" day's play.":time:ov=ze:rov=ze:500:ti=(11 -(one=un))*60<:w=(*si)-(one=un) <ti=ti-tr:4: 4 9th=qu:ze:si:si::"PICKING TEAMS":help::du,ze;"'p' to change pool of players:":200:="p"pool:pick >ze:si:si::" ";t$(un);19;t$(du)::q$(16,4):h$=" ":p$(11 ,du):k=undu:l=un11 :p$(l,k)=n$(k,un,l,11 ):l:k H}l=un16:7;" ";6;n$(un,un,l,un10 );16;7;" ";6;n$(du,un,l,un10 ):l Rk=undu:l=un11 :d=480+(ll<10 )+(l>9 ):e=32 +((l+6)l>9 ):j=p$(l,k):j=(jj<17)+(un(j>16j=ze)):q$(j,k*du)=e:q$(j,k*du-un)=d:un+j,(k-un)*16;7;d;e:l:k \3ch=att+du*32 :ch,ch+fl:k=un:vt=un:hr=un aW21,ze;un;"Type 'y' to change teams:":n=un100d:i$=:i$"y"n:toss: f18,ze;5;"Shifted arrow keys move cursor. Type '1' to '11' against playersnames. Type STOP to escape. Type SPACE to cancel. " pNi$= :up=(i$=10 vt<16)-(i$=11 vt>un):i$=""2160p zac=((hr=unhr=17)i$=9 )+(15((hr=du(q$(l,un)>"1"hr=un))i$=9 ))-((hr=duhr=18)i$=8)-(15(hr=17i$=8))+(((hr=unh$(un)>" ")(hr=17h$(du)>" "))i$="1") i$"0"((i$"9"(hr=unhr=17))(i$"1"(hr=duhr=18)q$(vt,k)="1"))i$=" "vt+un,hr-un;i$:k=(hr=un)+(hr=du)*du+(hr=17)*tr+(hr=18)*qu:q$(vt,k)=i$:h$(un+(k/tr))=i$ dvt=vt+up:hr=hr+ac:ch,ch-(flƾch>fl):ch=ch+up*32 +ac:ch,ch+fl:i$2262150f =21,20;"CHECKING":l=un11 :p$(l)="zz":l k=undu:l=un16 %l$=q$(l):k=dul$(undu)=l$(trqu) Fu=l$-480:l$(du)="0"l$(du)="1"u=u*10 +l$(du)-480 u>zeu11 p$(u,k)=l l:k ql=un11 :p$(l,un)"z"p$(l,du)"z"l:k=undu:l=un11 :n$(k,un,l,11 )=p$(l,k):l:k::toss: e21,20;un;"INCORRECT":10 :100d:21,20;" ":2150f  $n$(bt,tr,bw,un)<"6"ex=qurn=ze: %l=l-un:rn=(*oc)+un:rn>qurn=un ex=trrn=un:extra:rn=ze: rn=unextra:rn=ze: rnx=rn:rn=ze:extra:rn=rnx: a()ze rn=(*oc)+un:rn>qurn=un extra rn/du((rn/du))st=st=ze " rn=ze: Ta()zeout ^e=fi+tt*du:n=n(t,qu,17+ex,e)+rn:n$(t,qu,17+ex,ee+un)=n$(n):n=n(t,qu,22,e)+rn:n$(t,qu,22,ee+un)=n$(n) hY15,un;se;ze;rn+(rnx(rn=ze));e$(ex);("s"rn>un):qu+tt,(t-un)*16+un;n:  *h=un:help:qu:se:ze::=226 z=zeun:se:ze:qu:tm=z: 'i=un16du:i,ze;ze;qu;s$:i 9se:qu:ze,ze;t$(tm+un);14;"ABCDEFGH JKLMNOPQ " oc:oc pi=un16:i,ze;n$(tm+un,un,i,un10 );14;n$(un+tm,du,i,unoc);" ";n$(un+tm,tr,i,unoc);" ":i Pi=un16:b=1430du:e=att+i*32 +b:e,e+64@:b:i >se:qu:17,0;" BATTING BOWLING " i=zetr:b=zeun:c=zeun:18+i,b*16+c*oc;(65A+i+b*9 +c*qu);un;r$(b+un,c*4+i+un,unse):c:b:i &$vt=un:hr=un:ch=att+ln:ch,ch+fl  (y=un10000':i$=:i$=""y:edit !i$13 3250 ch,ch-fl:up=(lni$=10 vt<16)-(lni$=11 vt>un):ac=(i$=9 hr<31)-((i$=oci$=12 )hr>un):ch=ch+up+ac:vt=vt+up/ln:hr=hr+ac %i$=13 hr=un:ch=(ch/ln)*ln ch,ch+fl:y:edit kad=ze:ch,ch-fl:i$=22621,ze;un;"Press 'z' to print copy. ":oc:200:="z":oc i$=226z: Lhr<11 i$" "n$(un+tm,un,vt,hr)=i$:vt,hr-un;oc;oc;i$(un):ad=un Ʀi$>"0"i$"9"((hr>14hr<23)(hr>23hr23),vt,hr-14-(9 (hr>23)))=i$:vt,hr-un;oc;oc;i$(un):ad=un [ad=ad+(hr=23):hr=hr+(adhrze32 ;n$(k,un,q,un10 );:d=n(k,qu,q,e):14-d;d;:d=n$(k,qu,q,e+du):18-d;d;:d=n(k,qu,q,e+tr):22-d;d;:f=n$(k,qu,q,e+fi):26-f;f;:f>zeg=(d*10 /f)/10 :32 -g-(du(g=g));g;(".0"(g=g)) q e20,ze;"Any key for more.('x'to escape.)"," ('z' to print.)":n=un1000:i$=:i$=""n  i$="x"  i$="z" k:j   ze:si::k=undu ^:"SERIES BOWLING AVERAGES ":t$(k):un;"NAME OVRS MDS RNS WKS AVGE"::q=un16 n(k,si,q,un)>ze32 ;n$(k,un,q,un10 );:d=n(k,si,q,un):14-d;d;:d=n$(k,si,q,tr):18-d;d;:d=n(k,si,q,qu):22-d;d;:f=n$(k,si,q,si):26-f;f;:f>zeg=(d*10 /f)/10 :ze-g+32 -(du(g=g));g;(".0"(g=g))  q e20,ze;"Any key for more.('x'to escape.)"," ('z' to print.)":n=un1000:i$=:i$=""n  i$="x" ( i$="z" 2k Fze:si::k=undu Z^:"SERIES BATTING AVERAGES ":t$(k):un;"NAME INS RUNS NO H/S AVGE"::q=un16 d)n(k,se,q,un)>ze32 ;n$(k,un,q,un10 );:d=n$(k,se,q,un):13 -d;d;:e=n(k,se,q,du):18-e;e;:f=n$(k,se,q,qu):21-f;f;:g=n(k,se,q,fi):26-g;g;n$(k,se,q,se);:(d-f)>zeg=(e*10 /(d-f))/10 :ze-g-(du(g=g))+32 ;g;(".0"(g=g)) nq xe20,ze;"Any key for more.('x'to escape.)"," ('z' to print.)":n=un1000:i$=:i$=""n  i$="x"  i$="z" k:  y7:un:l=1821:l,ze;s$:l:match=match+un:match>nt19,si;"SERIES IS COMPLETE":100d: sess=0.5:w=un+(*(fi-(one=un))):t=un+(+):18,un;"Weather is ";w$(w):19,un;t$(t);" have won the toss." 20,un;"Type ";t$(un+(t=un),un);" if ";t$(un+(t=un));" to bat.":n=un200:i$=:i$t$(un+(t=un),un)n:4060  t=un+(t=un) 920,un;t$(t);" will bat first. ":s$:200 `ti=(11 -(one=un))*60<-tr:ov=ze:rov=ze:wn=ze:in=ze:sofar:t=un+(t=un):innings:  Aoc:n=un25:i$=:i$=""n:21,31;" ":qu: <21,28;un;"OKAY":oc:oc:oc:i$="c"captain i$="d"declare: i$="s"close i$="w"team:bowler Ji$="f"d$=i$:21,ze;"FACTOR DISPLAY NOW ON. ":100d i$="a"score:board  i$="z" i$="x"qu: si:ze:15,ze;"You may use these commands:-",,,"'d'-declare.","'s'-save game.","'w'-bowlers.","'c'-captains. ","'f'-factors.","'a'-scorecard.","'z'-print. ","'x'-escape. ",:7;"Press a key when ready. ";un;" " 250:interrupt a()zesofar ze:si ԝ15,ze;"Give each team a rating (1 - 9).'1' = total defence.","'9' = all out attack.","Current ratings are:BATTING:";c$(un),," BOWLING:";c$(tr), :20,ze;,,,,;un;20,ze;"New batting rating:" !i$=:i$<"1"i$>"9"4835 =c$(un)=°i$:c$(du)=(10 -i$):20,20;i$, (21,ze;un;"New bowling rating:" !i$=:i$<"1"i$>"9"4855 =c$(tr)=°i$:c$(qu)=(10 -i$):21,20;i$, factors:qu: $ declare .<15,ze;se;t$(t),,u$(tt);" innings DECLARED CLOSED." 8 innings:  h=si:help:in>limwn>ze board Pa()ze Z b=undu _8((ov+rov)/unit=((ov+rov)/unit))lov=zeteam:bowler: dUbw=(d(b,un)/32 )+un:bn=d(b,un)-(bw*32 -un):bov=d(b,du)+un:d(b,du)=bov n;one=unƨn(bt,qu,bw,un)>11 team:bowler:5220d xover $sess>15lov=zein>limwatch  b:play | 4l=1521:l,ze;0;7;s$:l Vk=untr:l=unqu:e=(k-un)*qu+l:15+l,(k-un)*11 ;7;a$(e):l:k:   k=un:j=un 7e=(k-un)*qu+j:15+j,(k-un)*11 ;un;a$(e) gun:oe=e:ok=k:oj=j:n=un200:i$=:i$=""n:nbl=ze:15+oj,(ok-un)*11 ;a$(oe): .i$13 i$=12 5830 I15+oj,(ok-un)*11 ;a$(oe):i$=13 e<12 nbl=e: _j=j-(i$=11 j>un)+(i$=10 jun):5820 p z|obl=ze:7:15,ze;s$:l=un+(b=du)du-(b=du)(b=un)-(b=du):20,ze;si;"Pick 2 bowlers using arrow keys." 21,ze;si;"Use ENTER to make selection. ":select:nbl=se21,ze;"HE IS THE WICKET KEEPER. ":200:bowler nbl=zenbl>11 nbl=(*se)+fi:nbl=nbl+(nbl=se):19,22;du;a$(nbl):nbl=nbl+(nbl=obl):nbl>11 nbl=se(n(bt,qu,p$(nbl+(nbl=ze)-(nbl=12 )),un)12 one=un)nbl=ze:6030 |e=p$(nbl,bt)-un:(e=(d(un+(l=un),un)/32 ))21,ze;"CAN'T BOWL BOTH ENDS ":oc:200:oc:6020 lone=unƨn(bt,qu,e+un,un)>11 21,ze;"HAS BOWLED HIS QUOTA. ":oc:200:oc:6020 #(d(l,un)/32 )ed(l,du)=ze Ld(l,un)=e*32 +nbl:15,(l=du)*16;du;a$(nbl):obl=nbl:l ]21,ze;"Press 'r' to repeat selection. ":qu:du:n=un200:=""n:6090 ="r"team:bowler _bw=(d(b,un)/32 )+un:bn=d(b,un)-(bw-un)*32 :bov=d(b,du)+un:d(b,du)=bov:ze:qu: a()zesess=17 a21,31;se;du;un;" ":100d:interrupt:weather:wn>zesess>15i$="d" w>firain:sess>15 olft=(((unit*tr)-ov-rov)one=fi)+((60<-lov)one=un):9 ,17;n$(bt,un,bw,un10 );" ":(in=qusess12 )(in=duone=un)12 ,un;"Overs left:";olft;" " bat:13 ,7;ov;" ";13 ,10 ;"(";lov;")":l=tt*si-fi:j=n(bt,qu,bw,l)+un:n$(bt,qu,bw,ll+un)=n$(j):j=n(bt,si,bw,un)+un:n$(bt,si,bw,undu)=n$(j) ~interval:lov/85U=(lov/85U)21,20;se;"New ball due":1000:21,20;" " Dr(du,du):j=undu:k=undu:r(j,k)=n(j,qu,22,fi+du*k):k:j b(fi)>12 ttdu(r(un+(t=un),un)-r(t,un))200one=fit=un+(t=un):du;se;21,ze;t$(un+(t=un));"have followed on. ":500 b(fi)>12 in=trr(t,un)+r(t,du)12 (lov=60<one=un)innings d(ov+rov)*du/unit=((ov+rov)*du/unit)sess=sess+0.5:un,13 ;u$(((sess+2.6&fff)/tr)) inlimsess>15result $qu: 8a()ze =!in>zest=ze:high:st=un:high B1t=un+(t=un):in=in+un:d$=" ":d(du,du):req=ze Linlimb(fi):b(un)=n$(t,un,un,11 ):av=b(un):avbt:b(du)=n$(t,un,du,11 ):av=b(du):avbt:factors:b(tr)=un:b(qu)=du:b(fi)=tr:lov=ze:c$=un+9 +9 +un V%tt=((in+un)/du):tt=tr6290 j#bw=ze:st=un:bt=un+(t=un):bn=ze t$l$="":n=un12 :l$=l$+ze:n y4in=un18,ze;se;t$(bt);" take the field.", ~in=unn$(un,un,19,9 12 )=l$:k=undu:j=dutr:l=un11 :n$(k,j,l,9 12 )=l$:l:j:j=qufi:l=un16:n$(k,j,l,)=l$:l:l=1722:n$(k,qu,l)=l$:l:j:k:gather in=fi(in=du+one)result  a()zese:se:se: oti=ti+60</16:w=zeov/unitɺ(ov/unit)21,ze;7;"It's a scorcher! ":502: ?k=(+-):w=w+k:w=w+(unw(7-(one=un)*du)) '(ov+rov)/unitɺ((ov+rov)/unit)k=ze [21,ze;7;s$(un31);21,ze;"Weather is ";w$(w+1):7-w Il=att+22*32 att+24*32 -un:l,(7-w)*oc:l: a()ze  qu:ze:se-w::ze,ze;"":"";se;v$(match);ze;u$(((sess+2.5 )/tr));" Day ";se;u$(match);(" Test"one=fi)+(" Game"(one=un));ze;"" 5"";s$(un30);"";t$(un);" ";t$(du);" " P"";s$(un30);"";:k=undu:j=undu:6470F:j:31;"";:k (Ns$(un30);"";7;"Batsmen";17;"Bowler ";ze;""; 2n$(t,un,b(un),un10 );" ";n(t,un+tt,b(tr),11 );31;"";n$(t,un,b(du),un10 );" ";n(t,un+tt,b(qu),11 );31;"";s$(un30);"";s$(un30);"Overs:";31;"" < F~qu+k,(j-un)*16+un;n(j,qu,22,5+k*du);:n(j,qu,22,5+k*du)>ze(j-un)*16+qu;" all out"; Pn$(un,un,19,si+j*du+k)<10 ƨn(j,qu,22,fi+k*du)>zequ+k,(j-un)*16+qu;" for ";n$(un,un,19,si+j*du+k);" "; Z d nBi=unun+(one=fi):j=undu:si:si:ze::se;"SCORECARD:- "; x6ze,12 ;se;t$(j);" ";u$(i);"inn":xx=un+(j=un) l=un11 :l$=n$(j,un+i,l,9 12 ):how=l$(un):fld=(l$(du)/16)+un:bwl=l$(du)-(fld-un)*16+un:runs=l$(tr)*256+l$(qu)  n$(j,un,p$(l,j),un10 ); Oruns>zehow>zehow=how+(fi(how=dubwl=fld))+(sihow=ze):du;o$(how,unse); khow=duhow=qun$(xx,un,(fldhow=du)+(p$(se,un+(j=un))how=qu),un10 ):10 ;du;o$(un,unse); 2how>zehowze32 -runs;runs; :l:un;"EXTRAS"; ]e(si):n=unfi:e=se+(ii=du):e(n)=n(j,qu,17+n,e):n:e(si)=e(un)+e(du)+e(tr)+e(qu) K" b:";e(un);" lb:";e(du);" w:";e(tr);" nb:";e(qu);32 -e(si);e(si) Yun;"TOTAL ";:wk=n$(un,un,19,j*du+i+si):un;10 ;("all out"wk=10 ); 2wk<10 un;10 ;"for ";wk;" wickets"; 32 -e(fi);un;e(fi) "(";n(un,qu,j*du+i+16,11 );" overs)":20,ze;"Any key for more.('x' to escape) ('z' to print)":n=un2000:=""n  ="x"  ="z" j:i:analysis:  sess=16 hs=n(un,qu,22,se)+n(un,qu,22,9 ):as=n(du,qu,22,se)+n(du,qu,22,9 ):ze:si:21,ze;se;s$ rwn=0:sess>15wn=3:21,ze;un;"MATCH DRAWN":sess=16:1000:score:sofar: jwn=ze:inlimwn=((in>lim(in=limt=un))hs>as)+(du((in>lim(in=limt=du))as>hs))+(qu(in>limas=hs))  wn=ze &\wnlimun;21,un;t$(wn);" WIN BY ";((hs-as)wn=un)+((as-hs)wn=du);" RUNS. " 0iin=limt=wn21,un;t$(wn);" WIN BY ";un;10 -n$(un,un,19,si+t*du+tt); " WICKETS. " :Xsess=16:wnduhome=home+(wn=un):away=away+(wn=du):1000:score:sofar: D=21,ze;" MATCH IS A TIE ":1000:score:sofar: X b8h=3:help:fi:se:fi::"START OF NEW SERIES": l"Names of teams:"::"Home: ";ze;t$(un):"Away :";ze;t$(du):ze:21,ze;"Type 'y' to change.":n=un502:i$=:i$"y"n:7050 v"21,ze;s$:entry:l$="x" Mn$(un,un,17)=l$:qu,si;l$:entry:n$(un,un,18)=l$:fi,si;l$: 3oc,ze;:se;"Names of grounds:":21,ze;s$ 5n=unsi:9 +n,ze;se;u$(n);": ";ze;v$(n);:n O21,ze;"Type 'y'to change.":n=un502:i$=:i$"y"n:7110 &21,ze;s$:n=unsi:7500L Hl$"x"n$(du,un,16+n)=l$:9 +n,si;n$(du,un,16+n):n n$(un,un,19,un)=(n-un) X21,ze;"THE GROUNDS ARE PREPARED. ":n$(un,un,19,dufi)=ze+ze+ze+ze Ll$="":n=un12 :l$=l$+ze:n:n=2022:n$(un,un,n)=l$:n 6k=undu:n=un11 :n$(k,un,n,11 )=n:n:k 8k=undu:j=quse:l=un22:n$(k,j,l)=l$:l:j:k R21,ze;un;"For one day series type '1':":n=un100d:i$=:i$"1"n d21,ze;s$:one=(i$="1")+(fi(i$"1")):unit=30+(10 (one=un)):lim=du+(duone=fi) -n$(un,un,22,si)=one:scatter:pick: L V"Name:";l$:l$=""7510V ` l$="x" j#l$(un)<"A"l$(un)>"Z"7510V t  ~ze:si:si::un,tr;n$(un,un,17);15;"v.";20;n$(un,un,18):sess=16st=ze:high:st=un:high Pqu,fi;"Series: ";n$(un,un,17);home:13 ;n$(un,un,18);away ΅n$(un,un,20,se)=match:n$(un,un,20,match)=wn:l$=n$(un,un,20,unse):("Test"one=fi)+("Game"one=un)::l=unnt *se+l,ze;u$(l);n$(du,un,16+l);" "; Tl$(l)zese+l,17;n$(un,un,16+(l$(l)),un10 );" won" Kl$(l)>duse+l,17;"Match ";("Drawn"Ưl$(l)=tr);("Tied"Ưl$(l)=qu) l match=n$(un,un,19,un)in>zeƯl$(se)>zeƯl$(se)home))awayhome);("win the series"awayhome);("Series tied"away=home)  F20,ze;"Any key to continue.'z' to print":1500:="z" On$(un,un,20,unse)=l$(unsi)+ze:average::oc,oc;un;"PLEASE WAIT": a()ze stop=:stop<.6 =time:stop<.8L21,ze;"Bad light stopped play." 8stop.8L21,ze;"Rain stopped play. " 3502:rov=rov+un:interval:weather:502 d(ov+rov)*du/unit=((ov+rov)*du/unit)sess=sess+0.5:un,13 ;u$(((sess+2.6&fff)/tr)) sess>15result: "w>fi7920 , @ Jone=n$(un,un,22,si):lim=du+(duone=fi):unit=32 +(oc*(one=un)):t$(du,12 ):t$(un)=n$(un,un,17):t$(du)=n$(un,un,18):c$=n$(un,qu,18,unqu) T/b(fi):n=unfi:b(n)=n$(un,un,22,n):n ^nt=n$(un,un,19,un) h9v$(si,12 ):n=unsi:v$(n)=n$(du,un,16+n):n rYl$=n$(un,un,19,dufi):match=l$(un):sess=l$(du)/du:home=l$(tr):away=l$(qu) |l$=n$(un,un,21):wn=l$(un):t=l$(du):bt=un+(t=un):ov=l$(tr):rov=l$(qu):lov=l$(fi):st=l$(si):in=l$(se):bw=l$(oc):bn=l$(9 ):tt=l$(11 ):w=l$(12 ) Rp$(11 ,du):k=undu:l=un11 :p$(l,k)=n$(k,un,l,11 ):l:k:b=un }ti=(11 -(one=un))*60<-3+(ov+rov)*(60</16)+(40((ov+rov>unit))+(20(ov+rov>(unit*du)))   Whh=(ti/60<):15,22;ze;se;"Time: ";hh*100d+ti-hh*60<:  Wze:se::"CLOSE OF PLAY":::"You wish to save the game."::"Type 'y' to confirm." *n=un100d:i$=:i$"y"n:board: &gather::"Make sure a blank cassette is inyour recorder and connect ready for saving.:":l$=t$(un,un)+t$(du,un)+u$(match,untr)+in+ov: 0""The game will be named:";du;l$ :wl$n$()::"Game saved."::"Rewind tape ready to verify.",,,"If verify fails press",,"RETURN ENTER.":8400 DE:"Type 'y' if you wish to repeat save. Type 'c' to resume play." N/n=un200:i$=:(i$="y"i$="c")n:: Xi$="y"close bscatter:board: l vze:se::"RESUMPTION OF PLAY."::"What is name of saved game. Press ENTER if you don't know. Type 'quit' if you have changed your mind about loading a game." *"Name of game: ";l$:l$""l$(un)="q" Rl$"":un;"Type 'y' to confirm ";l$;:n=un200:i$=:i$"y"n:resume >:"Start recorder.":"Use BREAK RETURN ENTER to abort." V65128h,ze:8410 ::65128h,255:oc,oc;"PLEASE WAIT":scatter: resume l$n$(): l$n$(): !4 !>9n$(un,un,22,si)=one:n$(un,qu,18,unqu)=c$ !H(n=unfi:n$(un,un,22,n)=b(n):n !f?l$=match+(sess*du)+home+away:n$(un,un,19,dufi)=l$ !Ml$=wn+t+ov+rov+lov+st+in+bw+un+ze+tt+w:n$(un,un,21)=l$: !a()ze !'matchnt:"THE MATCH BEGINS":watch !match &H &R:"PICKING TEAMS": &\p"The first eleven players in the pool are the preferred team and are automatically selected for the first match. You can over- ride this selection.",,,"Your team is then reselected forthe next match, but you may alsooverride this selection.",,,"Note when picking your teams:-",,,"Wicket keeper must play at no 7.Players from 5 to 11 are assumedcapable of bowling." &fL"If pool changed during a series the series averages will not be correct." &p1un;"Press any key to continue.":40000@: &a()zehit=out &021,un;ze;si;un;"Type 'h' for help: " &n=un100d:"h"n: &;oc:21,ze;s$:h=hh>zeh\*256+23613=\:  tXS aiu untervaic4o y xtrT osnterrupav\aptaieclar$oo di nalysiatclaPea|owlepvenning8amjeatheoarcordesulerieXntrLofaaicatte@athe4!en(#elp%elec1st 2nd 3rd 4th 5th 6th ҇Talent Skill Effort Attack Defence Grit Fitness Luck Speed Swing Spin Class Stamina Grit Fitness Luck % bye legbye wide no ball=BOWLED CAUGHT LBW B STUMPED RUNOUT NOTOUT C & B  Played and missed. Dropped at slip. Appeal for LBW That one left him. Caught in two minds.A thin edge. That one kept low. That one lifted. On the wrong foot. A thick edge.  A glorious shot. All along the groundThrough the covers. Off his legs. A straight drive. It's in the air. A risky shot. An inside edge. Like a bullet. Perfectly timed.  He could be caught. Over the sightscreenA superb hook. A magnificent shot. Beautifully timed. An effortless drive.Over square leg. Will it carry. Into the pavilion. Down the wicket. ed&atcesomwat oo w 1 Zbn @Xd1uo toobbb:IO emnHolwunlos esuml Z~ngveragvbd actorxni iXJIJNGIINYNNNGNNHGZLLNLIKKIigslf el&hes!es`""indo."em"elp%ai!Every hotsunny fine fair cloudy dull heavy thunderyelp%elpH&elp$! B*E1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10101111 H D *im/A Idy Tavare Fowler Gatting Lamb Gower Botham Taylor Hemmings Marks Dilley Willis Cowans Randall Allott Gould Willey ENGLAND AUSTRALIA    6673875466867775 67875555W77776666)788675576-8759454835554554j4455344454444444i53562556235625349 21361253 67774656 34444353 52365453 56664554 111111111111111133135553111111111111111178167757111111113165656531437554851666758517565585165463 11111111 77157564 11111111 31546555 ) 97! hN;) 97!   77 --     * Wood Dyson Border Chappell Hughes Hookes Marsh Lawson Bright Lilley Hogg Wessels Yallop Thomson Kent AN Other TRENT BRIDGELORDS HEADINGLEY EDGBASTON OLD TRAFFORDTHE OVAL 67696965U6654656477767866Y98777777B77776666E 6756555545674555e44463555%'44544543343534443345344466566554 76576554 22222222 67675555 55555555 111111111111111121334443314355441111111122344444111111118617777521565554761856567615755511111111 21334444 84155554 11111111 55555555  * # C&#P^ * # C&   BB    ''  *  ENGLAND AUSTRALIA C M TRENT BRIDGELORDS HEADINGLEY EDGBASTON OLD TRAFFORDTHE OVAL L     Fydemo y؀\B{ Tavare Fowler Gatting Lamb Gower Botham Taylor Hemmings Marks Dilley Willis Cowans Randall Allott Gould Willey ENGLAND AUSTRALIA    6673875466867775 67875555W77776666)788675576-8759454835554554j4455344454444444i53562556235625349 21361253 67774656 34444353 52365453 56664554 111111111111111133135553111111111111111178167757111111113165656531437554851666758517565585165463 11111111 77157564 11111111 31546555 ) 97! hN;) 97!   77 --     * Wood Dyson Border Chappell Hughes Hookes Marsh Lawson Bright Lilley Hogg Wessels Yallop Thomson Kent AN Other TRENT BRIDGELORDS HEADINGLEY EDGBASTON OLD TRAFFORDTHE OVAL 67696965U6654656477767866Y98777777B77776666E 6756555545674555e44463555%'44544543343534443345344466566554 76576554 22222222 67675555 55555555 111111111111111121334443314355441111111122344444111111118617777521565554761856567615755511111111 21334444 84155554 11111111 55555555  * # C&#P^ * # C&   BB    ''  *