ZXTape! 0Created with Ramsoft MakeTZX5DAY6B/???  "CHAMPIONS OF CRICKET" &p(nY\)=n+256*(n+1) c(n)=(*n+1)  4:4:0: "3 OR 4 DAYS : ";z$ z$"3"z$"4"15  dys=z$ %wc=0:ovr=0:ed=0 pc=dys-5 dn=12 iq=111 n z$=b$(n,q) s'f(n,q,6)=z$(2223) xf(n,q,7)=f(n,q,6) }f(n,q,9 )=z$(24) q n :7 st=6:5350 wet=10 5660 time>0157  S2;"EARLY MORNING WEATHER CHECKS";2;"----------------------------": :time-491tlost=1:"TIME : 1012":5200P Ltime-15time=-16:tlost=1::"TIME : 1045":5200P time<0time=0 xa=time:xtr=0 xa60<xtr=60< 150 /n=111 :f(bowl,n,8)=time:n :4 8380 8790V" ev=0:z=1 g(11 ) =21,0;q$;21,0;"Opening batsman ";z z$ er=190:7940 z=1b1=x z=2b2=x /a$(bat,x,35#)"O"b(x,1)=-1 e$(x)="N/O" A(c(6)+c(6))=j(bat)xk(bat)b(x,1)=1 !z=1z=2:189 bwf=b1 ; 1120` @ 8570z! J"Opening bowler : ";z$ L2z$="u"z$="U"tm=1:8575!:330J Ter=330J:7940 hbw1=x w@tm1a$(bowl,bw1,34")"B"er=330J:79906 |bw2=0:bf=bw1  7500L  8000@ (cf=0:off=0:tlost=0 !c(6)=j(bowl)cf=1 q=16 g(bwf)=g(bwf)+1 `w1=c(6):r1=c(6):r2=c(6):g1=c(6):g2=c(6):nr=c(6) #b(bwf,2)=4p=6 #b(bwf,2)=3p=4 #b(bwf,2)=2p=3 #b(bwf,2)=1p=2 rt=r1+r2-1 gt=g1+g2-1 nr>p485 rt=11 g1=g21600@ 'rt=11 ball=13 :775 nr>prt=11 rt=2 z$=b$(bowl,bf) ,x$=z$(((rt*2)-1)(rt*2)) ball=x$(1)-64@ 'f(bowl,bf,7)>0520 %rt=5rt=6ball=1 %rt=8rt=9 ball=3 mod=x$(2) +pit=2pit=12 mod=mod-1 &(pit=14z$(25)="A"w12)(pit=15z$(25)="D"w1=1)(pit=13 (ball=1ball=5ball=7))(pit=10 w14)(ov<8w1=5)(pit=7w12)(pit=8w14z$(25)="D")mod=mod+1 0Mpit=6w12(z$(25)="C"z$(25)="B")mod=mod+1 N2pit=9 ball=2bw2=bfmod=mod+1 b=pit=16(ball=2ball=12 )mod=mod+(ball) lH(wet=1wet=8)z$(25)"D"w1=6mod=mod+1 q5mod<0f(bowl,bf,7)0mod=0 r'pit=1pit=11 mod=0 snr>pmod=0 vz$=a$(bat,bwf,11 ) ,x$=z$(((gt*2)-1)(gt*2)) y$=x$(2) (nr=py$="*"y$=x$(1):680 B(y$="*"r(bwf)=0)(b(bwf,1)1)y$=x$(1) ?y$="*"b(bwf,1)=b(bwf,1)+1:y$=x$(1) str=y$-63? 4str=1ball=10 ball=11 700  str=str+mod cf=0695 str=3str=4 *j(bowl)>1str=4str=5 *j(bowl)=3str=5str=6 fld17700 str>11 str=11 7pit=11 str1str5str=str+2 7pit=14str3str6str=str-1 :((8795["+(b(bwf,2)*100d))+(ball*5)) z$ .x$=z$(((str*3)-2)(str*3)) #sc=x$(3):sh=x$(2) z=c(6) ect2910  #b(bwf,2)=4790  .b(bwf,2)=3nr<5790  nr>p910 6a$(bowl,bf,10 );" HAS BOWLED ";" (BALL ";q;")" ball=13 1430  (9549M%+ball) z$  z$ " 20 %sh>33!2460 *(9499%+sh) +z$ ,z$ 1" - ";sc;" RUN"; 2sc=1:829= 3"S" =r(bwf)=r(bwf)+sc >t(inns,bat)=t(inns,bat)+sc C*f(bowl,bf,3)=f(bowl,bf,3)+sc E off=off+sc H'(sc/2)=(sc/2)880p Rz=bwf:bwf=b1 \b1=zbwf=b2 p 8040h z 100d  8850" ct=0:ch=0 inns=2t(2,bowl)0(t(1,bat)+t(2,bat))>(t(1,bowl)+t(2,bowl))end=1:ed=1:1910v q z=bwf:bwf=b1 b1=zbwf=b2 2off=0:::" A MAIDEN OVER":502 ov=ov+1 /f(bowl,bf,1)=f(bowl,bf,1)+1 <off=0f(bowl,bf,2)=f(bowl,bf,2)+1 z$=b$(bowl,bf)  z=4 .z$(25)="C"z$(25)="D"z=3 tlost=tlost+z :f(bowl,bf,7)=f(bowl,bf,7)-f(bowl,bf,9 ) f(bowl,bf,8)=time+tlost  5180<  8380 &"m,s,c,d,f or 'ENTER' to cont. ";z$ z$="m"z$="M"1120` z$="s"z$="S"7310 z$="c"z$="C"1310 z$="d"z$="D"7280p z$="f"z$="F"7000X  8570z! #az=0ov75K992 &(ov+az-1)<75K1000 &"DO YOU WANT THE NEW BALL Y/N? ";z$ z$="n"z$="N"1000 z$"y"z$"Y"992 #az=0ov=0:990  az=1  990 ""'F' or enter bowler no. : ";z$ 3z$="U"z$="u"tm=1:8575!:1000 &z$="f"z$="F"7500L:989 er=1000:7940 z=x Ytm1a$(bowl,z,34")"B"f(bowl,z,1)=0er=1000:79906 $Sz=bf#1;"BOWLER HAS JUST BOWLED":.5,10 :150:1000 )qf(bowl,z,5)=1#1;"BOWLER INJURED - UNABLE TO BOWL":.5,10 :150:1000 .x=bf 0z1=time-f(bowl,z,8) 2'z110 (z=bw1z=bw2)z1=0 8bw1=xbw2=z Bbw2=xbw1=z Gbf=z N:f(bowl,bf,7)0x=(z1/10 ):1104P Ox=(z1/6) P)f(bowl,bf,7)=f(bowl,bf,7)+x QNf(bowl,bf,7)>f(bowl,bf,6)f(bowl,bf,7)=f(bowl,bf,6) V 400 ` 7: j"ENTER MODE" tAn=14:(n*2)+1,2;n;". ";d$(n):n  z=1 z=1x=b1 z=2x=b2  18,0;"MODE FOR "; x$=a$(bat,x) x$(10 ) 20,0;"WAS : "; ,b(x,2)=0b(x,2)=5 d$(b(x,2)) "STATUS : "; $b(x,1)0"PLAYING IN" &b(x,1)1"BATTING WELL" x$ 8x$"1"x$"2"x$"3"x$"4"er=1210:79906 b(x,2)=x$ 19,0;q$;q$;q$ "z=1z=2:1173  4   7: (/11 ;"CONDITIONS";11 ;"----------" <3,0;"WEATHER :-" C(9534>%+wet) Dz$ F 1;z$ Kywet=1wet=8:"FAST, FAST-MEDIUM AND MEDIUM- PACE BOWLERS ALL HAVE A 16% CHANCE OF BEING FAVOURED": Z:"PITCH CONDITION :-" d(9795C&+(pit*5)) nx$ xCx$:::1;"PITCH COUNT : ";pc;1;"PITCH TYPE : ";pt }9ov7:5;1;"NEW BALL IN OPERATION"  8360  4  %gt=gt+b$(bowl,bf,21)+1  sc=0 1gt=3gt13 "A NO BALL":sc=1 9gt=5gt=8gt=12 "A WIDE":sc=1 sc=1t(inns,bat)=t(inns,bat)+1:off=off+1:q=q-1:ex=ex+1:f(bowl,bf,3)=f(bowl,bf,3)+1:g(bwf)=g(bwf)-1:880p #gt=4gt=9 sc=1 $gt=6gt=10 sc=2 gt=7sc=3 gt=11 sc=4  sc;" "; ",gt=4gt=7gt=10 "LEG "; ,"BYE"; .sc1"S" 1 ex=ex+sc 3t(inns,bat)=t(inns,bat)+sc 6 840H @z=c(6)+c(6) J=z3z11 gt=13 :ball=13 :775 Tz=12 15,0;a$(bat,bwf,10 );" PULLS MUSCLE - MAY BAT ON (WITH RUNNER) BUT LOSES BATTING WELL STATUS IF IT EXISTS":b(bwf,1)=0 ^z=215,0;a$(bowl,bf,10 );" PULLS MUSCLE - MAY COMPLETE OVER BUT CANNOT BOWL AGAIN THIS INNINGS":f(bowl,bf,5)=1 h 150 r 8850" | 420 v 7: -10 ,1;1;"END OF INNINGS" z$=q z$="6"z$="10" z=z$/10 2(w(inns,bat)+rh)10 ed11935  ov=ov+z )f(bowl,bf,1)=f(bowl,bf,1)+z &b(b1,5)=b(b1,5)+zl+tlost &b(b2,5)=b(b2,5)+zl+tlost  150   8380  7380  8570z!  7380 zz=1:7110  zz=0  7: F1,11 ;"TEST MATCH":87W,157:82R,0   "AT ";v$ >0,141:(((v$+3)*8)-1),0 #6,1;t$(bfirst);" "; !z=t(1,bfirst):7340 *w(1,bfirst)=10 :2040 " - ";w(1,bfirst) 't(2,bfirst)=02060   16; !z=t(2,bfirst):7340 *w(2,bfirst)=10 :2060  " - ";w(2,bfirst)  : %t(1,bsec)=02085% 1;t$(bsec);" "; z=t(1,bsec):7340 (w(1,bsec)=10 :2085%  " - ";w(1,bsec) % 2160p *`inns=1t(1,bsec)0(t(1,bfirst)-t(1,bsec))1502220 1batbfirstinns=2 2z=bat:bat=bowl:bowl=z 3an=12:q=111 :f(n,q,7)=f(n,q,6):f(n,q,8)=time:q:n 4 ::1;t$(bat);" TO BAT" 90bf=0:ex=0:ov=0:rh=0 >\a(10 ):b(11 ,5):r(11 ):e$(11 ,3):f$(11 ,10 ) CUn=12:q=111 :x=15:f(n,q,x)=0:x:q:n Htlost=10 M 100d O R 5200P \ rh=0 f 165 p%t(2,bsec)=02190 q 16; rz=t(2,bsec):7340 z(w(2,bsec)=10 :2190 " - ";w(2,bsec) fct=1 end=16500d inns=12090* [t(2,bsec)=0t(1,bsec)>(t(1,bfirst)+t(2,bfirst))6500d st(2,bfirst)=0t(2,bsec)0t(1,bfirst)>(t(1,bsec)+t(2,bsec))6500d ?t(2,bsec)0t(2,bfirst)06500d  2090* ::t$(bowl);" DO YOU" $"1. WANT TO ENFORCE THE FOLLOW-ON" "2. BAT AGAIN" z$ z$="2"20971 #z$"1"er=2260:79906 inns=2  21004  l=c(6) sh88X2530 2480 z$ ("285398185285394291292185194685192298" Bz$=z$((((sh-75K)*3)-2)((sh-75K)*3)) )lǰz$(1)sh=z$(23) =sh=79Osh=83Ssc=1:sh=23:810* sh=85U2650Z %sh<88Xsh=24:810* 2540 z$ +"265265260260260349265376399399399399265" %sh=93]sh=95_8850" M((z$((((sh-87W)*3)-2)((sh-87W)*3)))*10 ) * 8850" 2l=c(6)+c(6) < 7900 A@l=2l=6l=7l=8l=12 2650Z F16,0; Hsh=92\"CAUGHT BEHIND"; Jsh=91["LBW"; Lsh=90Z"STUMPING"; M sh=101e"BAT/PAD CATCH"; N" APPEAL - "; P 2970 Z<18,10 ;1;2;7;"***OUT!***" d 200 n 8850" x15,0; z$=a$(bat,bwf) z$(10 );" IS OUT "; Csh=92\sh=88X"CAUGHT BEHIND":ct=u(bowl):e$(bwf)="C" 0sh=91[sh=100d"LBW":e$(bwf)="LBW" 2sh=90Zsh=89Y"STUMPED":e$(bwf)="ST" &sh=94^"BOWLED":e$(bwf)=" B " jsh=85Uct=bf"CAUGHT AND BOWLED BY ";:z$=a$(bowl,bf):z$(10 ):e$(bwf)="C&B":2740 &sh=85Ue$(bwf)="C":3040 e$(bwf)"C "2740 *ct10 e$(bwf)="C"+ct:2740 e$(bwf)="C "+ct /f(bowl,bf,4)=f(bowl,bf,4)+1 :f(bowl,bf,7)=f(bowl,bf,7)+f(bowl,bf,9 ) f$(bwf)=a$(bowl,bf,10 ) !w(inns,bat)=w(inns,bat)+1 tlost=tlost+2 a(w(inns,bat))=t(inns,bat) 200 #tl=71G-b$(bowl,bf,25) zl=(tl/6*q) >(tl=6q>3)(tl=5q>4)zl=zl-1 u(tl=3(q=1q=3q=5))(tl=5q=1)(tl=4q1q5)zl=zl+1 ?b(bwf,5)<0b(bwf,5)=b(bwf,5)+2 '(w(inns,bat)+rh)=10 2920h "b(bwf,5)=b(bwf,5)+zl 8380 8790V" "Enter new batsman : ";z$ er=2812 :7940 z=x '(e$(z)" "er=2812 :79906 )"z=bwfer=2812 :79906 ,b1=bwfb1=z 6b2=bwfb2=z @bwf=z Cb(z,1)=0 E&b(z,5)=b(z,5)-zl-2 Je$(z)="N/O":f$(z)=q$ MA(c(6)+c(6))=j(bat)zk(bat)b(z,1)=1 O 1120` Qq=6910 T 8000@ ^ 910 Fz=1off=0f(bowl,bf,2)=f(bowl,bf,2)+1 1910v "NOT OUT" 100d 890z "CAUGHT" "BY "; $ch=1ch=0:3230 ch=0  vc=1  3998 & 31255 0z$ 5"123456789:;213456789:" :ct=z$(l)-480 )f(bowl,ct,5)=1ct=12 ro=1ro=0: ct=bf3060 ct=u(bowl)3060 ch=1 ct=03060 a$(bowl,ct,10 )  8850" "15,0;"QUICK SINGLE" ro=1:3055 z$=a$(bowl,ct) 'z$(10 );" THROWS AT THE WICKET" 75K mod=b(bwf,2) out=0 l=c(6)+c(6) Hl=4(mod=2l=3)(mod3l=6)out=1 Jl=10 (mod=2l=11 )(mod3l=8)out=2 xout=0((out=1out=2)(z$(33!)+(*6+1)+(*6+1)))<10 3690j $eout=1z$=a$(bat,bwf):z$(10 );" IS RUN OUT":e$(bwf)="RUN":f$(bwf)=" OUT":2770 8z=bwf Bb1=zbwf=b2 Lb2=zbwf=b1 V out=1 ` 3620$ jz=b1 o.5z=b2 tPl2l12 a$(bat,z,10 );" JUST GOT HOME - 1 RUN":sc=1 ~6l=12 "WILD RETURN - 4 OVERTHROWS":sc=5 4l=2"WILD RETURN - 1 OVERTHROW":sc=2  8204 15,1;"STRUCK"  200  8850" l1=c(6)+c(6) 15,0; &l15l19 "STRUCK ON "; l1=5"BODY"; l1=6"HAND"; l1=7"SHOULDER";  l1=8"FOREARM"; l1=9 "UPPER ARM"; 2l15l19 " - NO EFFECT":880p #b(bwf,1)=0 (l1=4"STRUCK ON FACE" 2l1=10 "STRUCK ON HAND" <_l1=4l1=10 "MAY BAT ON - BUT LOSES BATTING WELL STATUS IF IT EXISTS":880p Fl1=3"STRUCK ON HEAD" P#l1=11 "STRUCK BELOW HEART" Zl1=3l1=11 "RETIRES HURT BUT CAN RETURN ON FALL OF THE NEXT WICKET":e$(bwf)=" ":f$(bwf)="RET. HURT":b(bwf,1)=1:b(bwf,2)=0 d(l1=2"FELLED BY BLOW ON TEMPLE" n,l1=12 "STRUCK ON HAND, BONE BROKEN" xdl1=2l1=12 "RETIRE HURT, CANNOT RETURN":e$(bwf)="RET":f$(bwf)="HURT":rh=rh+1 } 300, Dl1=2l1=3l1=11 l1=12 tlost=tlost+5 H(l1=3l1=11 )(w(inns,bat)+rh+1)=10 1910v  2790  8850"  vc=0 r1=c(6) r2=c(6) r1r2z$=r2+r1 r14430N+((sh-96`)*10 )+(z$(25)-64@) Iz$ RC"85:85933185485733285885770285633265369185485:85385:856856333723" \C"88533033433285788633188:33133433388388788:85633133285:857858887" dC"910740887940750889920740750920750920910856920940920750884887910" eC"750910898920910750900856750940910910857750920887898750910750940" fC"88694092091075090090091094074085675089<920750910898920940920910" nC"94085885573785:94085785494085594085685388985:857856940857940857" oC"85:940857854856855940883739896856940854856940857856857940940859" pC"89:85494085673585885:940940855856940855857940897857854940855940" sa=sh bsa=97a14,10 ;1;2;7;"***EDGED!***":200:8850" dsa=96`14,7;1;2;7;"BALL IN THE AIR":200:8850" 15,0; )x$=z$((((l*3)-3)+1)) x$=x$(3) sh=x$(2) cat=3+(*10 ) sc=(*4) ?sh=33!sc=4b(bwf,3)=b(bwf,3)+1 sh=33!810* *sh72Hcat=sh-60<:5000 *sh=74Jsh=75Ksh=175-sh sh=94^2650Z sa=98b7900  sh=100d2650Z >sh=91[sh=92\sh=90Zsh=101e2630F  sh=88Xsh=97a *1sh=97ash=89Yct=u(bowl):5010 4-sh=73Ict=bf:sh=97a:5010 >sh=96`+(+.5) H 5000 ch=1:3060  sa=96`sa=97ash=sa 15,0; z$=a$(bowl,ct) z$(10 );" "; 4sh=96`sh72H"GOES FOR THE CATCH-";cat (sh=97a"DIVES FOR THE BALL-";cat )sh=89Y"WHIPS OFF THE BAILS-";cat  100d xl=c(6)+c(6) $(z$(33!)+xl)cat5110 :sh=89Y"BUT IS NOT QUITE QUICK ENOUGH":5095 "BUT DROPS IT" Esh72Hsh=33!:8850":15,0;:810*  890z 1ct=u(bowl)sh89Ysh=88X:2650Z $ct=u(bowl)sh=89Y2650Z  sh=85U  ch=1  2650Z  4 ( 2 989 <#b(b1,5)=b(b1,5)+tlost F#b(b2,5)=b(b2,5)+tlost Pst=0:dly=0 U wc=0 Zl=1tlost _st=5wc=1 dtime=time+1 ntime=120xst=3 s'st=3time=160st=0 xtime=280st=2 y'st=2time=300,st=0 z$time=360hday=dysst=6 }^((time>120xtime160)(time>280time300,))dly0xa=xa-1 ~$az0ov20st=4 Baz0ov=10 time=time+(tlost-l):l=tlost:7640 *time=(420+xtr)daydysst=4 st25270 time=-480time=-15time=12 time=45-time=72Htime=105itime=132time=165time=192time=225time=252time=285time=3128time=345Ytime=372ttime=405st=1 +time=432time=465st=1 #wc=1st=1st=0 l xa60<xtr=60< st=0st=5 3time-480time-1515,0; ,st=1"WEATHER CHECK :-":5890 'st=3"LUNCH - 40 MINUTE BREAK" %st=2"TEA - 20 MINUTE BREAK" !st=4"END OF DAY'S PLAY" ךst=6z=ov:ov=az:az=z+1:"IT'S NOW PAST 5.00pm ON THE LASTDAY - ONLY ";20-ov;" OVERS REMAIN UNTIL THE END OF THE MATCH":200: st=3time=160 st=2time=300, !pc=pc+c(6)+(5-dys)  z=1 x=n$(z(z+1)) pc>xz=z+4:5370  z$=n$((z+2)(z+3)) z$="1A"z$="11" z$="2A"z$="12" z$="6A"z$="13" z$="7A"z$="14" z$="8A"z$="15" z$="8B"z$="16"  pit=z$  150 wet=10 "st41310: 1"day=dysend=1:1910v 6time=0:xa=0:xtr=0:b(b1,2)=1:b(b2,2)=1:day=day+1:b(b1,1)=0:b(b2,1)=0 ;C(c(6)+c(6))=j(bat)b1k(bat)b(b1,1)=1 @C(c(6)+c(6))=j(bat)b2k(bat)b(b2,1)=1 JWn=111 :f(bowl,n,7)=f(bowl,n,6):f(bowl,n,8)=0:n h#l=c(6)+c(6)-1 r(5500|+(wet*10 )) |z$ "11223466789" "11222233455" "22222344569" "22223334677" "22233345688" "11222334489" "44455568990" "99986443310" "77666444320" "66666444330"  wet=z$(l) wet=0wet=10 wet=10 5660  1310    :time=-491:tlost=1:"TIME : 1012":5200P  Ltime-15time=-16:tlost=1::"TIME : 1045":5200P  time0time=0  150  l=c(6)+c(6) & 8850" 0$15,0;"HEAVY RAIN - "; :=l=2l=3"NO PLAY TODAY":250:5800 D 5750v Nz$ XBtlost=z$((((l-3)*3)-2)((l-3)*3)) v"260205170150150130130100100" tlost;" MINUTES LOST"  time=tlost tlost60<xtr=60<  wet=4  250  1310 l=c(6)+c(6) day=day+1 l6wet=6 "l7l9 wet=4 $l=10 l=11 wet=3 l=12 wet=10  1310 wet=10 5660   100d  dly=0  l=c(6)+c(6) %wet=1l=11 dly=4  $wet=3l=2dly=2 *%wet=3l=11 dly=1 4$wet=5l=5dly=1 >%wet=5l=11 dly=2 H$wet=6l=3dly=1 R%wet=7l=10 dly=3 \%wet=7l=12 dly=1 f3wet=7l=4time360hdly=5 p$wet=8l=2dly=3 z3wet=8l=7time360hdly=5 $wet=9 l=5dly=3 'dly=0"NO CHANGE":100d: dly=1"LIGHT SHOWER"; dly=2"HEAVY SHOWER"; dly=3"RAIN"; dly=4"THUNDERSTORM"; 'dly=5"BAD LIGHT";:62008 #l=c(6)+c(6)-1 (6100+(dly*10 )) z$ %"012022043028045025030036015019050" %"024019026042036047055033041038030" %"000062106047034055052075130085143" %"107068100033052043038070055084000" .tlost=z$(((l*3)-2)(l*3))  tlost=062008 " - ";tlost;" MINUTES LOST"  150 $7time-480time-158850":6185) & ) st=5 *Fday=dys(time+tlost)360haz=((time+tlost-360h)/4) +$az0ov=ov+(tlost/4) , xa=xa+tlost . 5210Z 8:"NO FURTHER PLAY TODAY" B st=4 L 150 V 8850" ` 5290 d18,0; n5day=dys(ovr+ov)209 ;"MATCH DRAWN": x*z1=t(1,1)+t(2,1) *z2=t(1,2)+t(2,2) z1>z2t$(1); z10z;" RUNS AHEAD" z<0z;" BEHIND" #z=0"LEVEL WITH":t$(bowl) n::"DAY : ";day;", TIME : ";1100L+(((time/60<))*100d)+(time-(((time/60<))*60<))  8360  7: $1;" ";t$(bat);" - BATTING " ":13 ;"4's 6's MINS. RUNS" n=111 2e$(n)="N/O"b(n,1)11;"BW"; z$=a$(bat,n) 2;z$(10 );" "; .e$(n)=" "f$(n)"RET. HURT ":72259 b(n,3)<10 " "; 'b(n,3);" ";b(n,4);" "; z=b(n,5):7340 " ";  z=r(n):7340 *e$(n)"N/O"7214. ,"*"; 4 9n :"PRESS ENTER T0 CONTINUE";z$ ;2,21;"BLS. " <:n=111 :n+2,21;" ";g(n);" ":n > 4 Czz=17380 H 8360 R"ARE YOU SURE Y/N ? ";z$ \)z$"n"z$"N"z$"y"z$"Y"7250R f p 7250R zz$="y"z$="Y"1910v  989  7250R z$="n"z$="N"989 "COMP-TEST"5150: z<100d" "; z<10 " ";  0 z;  &"'C' to copy, 'ENTER' to cont. ";z$ z$="c"z$="C"  L 7: V+1,1;"ENTER TYPE OF FIELD :-" `&4,0;" 1. NORMAL FIELD" j)6,0;" 2. DEFENSIVE FIELD" t)8,0;" 3. ATTACKING FIELD" ~z$ 1z$"1"z$"2"z$"3"er=7550~:79906  fld=z$ fld=17620 "LEVEL (1=LOW, 4=HIGH) ";z$ 3z$<491ůz$>524űz$17590  ect=z$  4  P20,0;"DO BOTH CAPTAINS WISH TO DECLARE THE GAME A DRAW NOW Y/N ?" z$ z$="n"z$="N" 6z$="y"z$="Y"end=1:ovr=10 :1910v  7640 g1=g2g1=r1g1=r2z=g1 g2=r1g2=r2z=g2  r1=r2z=r1  ect57979906 z$=17965 9z$(2)<480ůz$(2)>57979906 x=z$ ""x<1x>11 79906 , er+20 6<#1;"INVALID ENTRY":.5,10 :150:er @ 4: E 7 Jn=013 Tn,0;1;q$ ^n h 7 m(1,10 ;"TOTAL ";t(inns,bat) r13,14;"FOR ";w(inns,bat);" WICKET"; t#w(inns,bat)=1:8060| w"S" |5,1; bwf=b11 2b(b1,1)11;"BW":8100 1;"**"  0 6,1; bwf=b21 2b(b2,1)11;"BW":8140 1;"**"  0 5,4; d$(b(b1,2),1) 5,6; a$(bat,b1,10 );" "; 1:z=r(b1):7340  6,4; d$(b(b2,2),1) 6,6; a$(bat,b2,10 );" "; 1:z=r(b2):7340  8,1;"BOWLERS :" "9 ,2;"PAVILION END:" &9 ,18; :&a$(bowl,bw1,10 );1;" "; ?bw1=bf1;"*" @ bw1bf D%10 ,2;"SCOREBOARD END:" Ibw2=08300l N10 ,18; b&a$(bowl,bw2,10 );1;" "; gbw2=bf1;"*" h bw2bf l05,23;"OVERS";6,25;ov |12 ,1;"DAY : ";day;", TIME : ";1100L+(((time/60<))*100d)+(time-(((time/60<))*60<)) E(az+ov)713 ,1;1;"NEW BALL IN OPERATION" 4  ""Press 'ENTER' to continue ";z$  7: $1;" ";t$(bat);" - BATTING " n=111 .b(n,1)0e$(n)"N/O"8410 1;"BW"; 73;a$(bat,n,10 );" ";e$(n);" ";f$(n);" "; f$(n)="RET. HURT "8450! e$(n)=" ":8460 ! !z=r(n):7340 ! ! n !4;"EXTRAS";30; ! ex<10 " "; !*ex !/29;"---" !4(5;"TOTAL (";w(inns,bat);" WKT"; !6:w(inns,bat)=1")";14,29;:8510>! !9"S)";14,29; !>z=t(inns,bat):7340 !R !\816,3;"OVERS : ";ov;21;"DAY : ";day !^m17,20;"TIME : ";1100L+(((time/60<))*100d)+(time-(((time/60<))*60<)) !a=w(inns,bat)018,0;"FALL OF WICKETS :-" !bn=1w(inns,bat) !c8n>520,(n*6)-35#;:8549e! !d 19,(n*6)-5; !e n;"-";a(n) !fn !k 4 !p !z tm=0 ! 7: !%1;" ";t$(bowl);" - BOWLING " !)2,13 ;"O M R W S TIME" ! !n=111 !Jtm=0a$(bowl,n,34")"B"f(bowl,n,1)=087553" !*n=bf1;1;"*";:8640! !n<10 " "; !n; !a$(bowl,n,10 ); !"f(bowl,n,1)<10 " "; !Ff(bowl,n,1)ɺf(bowl,n,1)f(bowl,n,1);:8693! !f(bowl,n,1);" "; !"f(bowl,n,2)<10 " "; !f(bowl,n,2);" "; "!z=f(bowl,n,3):7340 "$23;f(bowl,n,4); ")Af(bowl,n,5)=125;1;"INJ":87553" "* 24; "+!f(bowl,n,7)0" "; ",%(f(bowl,n,7))<10 " "; ".-f(bowl,n,7)02:1 "/&f(bowl,n,7);:0:0 "228;1100L+(((f(bowl,n,8)/60<))*100d)+(f(bowl,n,8)-(((f(bowl,n,8)/60<))*60<)) "3n "8 "B3;"OVERS : ";ov "D "G<(ov+az)72;1;"NEW BALL IN OPERATION" "Hl:"DAY : ";day;", TIME : ";1100L+(((time/60<))*100d)+(time-(((time/60<))*60<)) "J "Lfld=1"NORMAL FIELD" "M!fld=2"DEFENSIVE FIELD"; "N!fld=3"ATTACKING FIELD"; "O*fld=2fld=3" - LEVEL ";ect "P 4 "Q "Vn=111 "[0b(n,1)=1e$(n)="N/O":8830~" "` n,0; "jn<10 7;" "; "t 7;n "~n " "0n=1421:n,0;4;q$:n " "%"014014024162132261141930040150970" "%"164231030030030040040170170870980" "%"254114123282132271231030030240910" "%"940060060060060060060070070940940" "%"014014012011050050050050950860850" "%"204301271080080080170020090970920" "%"101261130030080080080080240970850" "%"104302131040040040040170150970980" "%"206114272101030030030170090920980" "%"196196284014313192012202211240240" "%"206194114103312162252221211220220" "%"312021131231040040040150090980990" #(%"014014024163132022231930231150970" #-%"194271141030030030040170090770990" #2%"204114124163102272131141221240960" #7%"940060060060060060060070840940940" #<%"016014014012011050050050950960850" #A%"204022111080080080090090830970940" #F%"222311141301080080240240240970880" #K%"024312022132930040220150150980990" #P%"206114102272111060030220090920990" #U%"196196194274014193193211191210210" #Z%"206194114104124163132222221780780" #_%"273022101301220040180090150990990" #%"016024014114133262272311930820960" #%"204302231261131030030170090980990" #%"286124104204133112141231220870960" #%"940231060060060060070070800940940" #%"016016014013012011050050950850850" #%"164024302271080170220090970910850" #%"104272301271220080240240090970850" #%"124032132112930240150220150910990" #%"206324104322112930220150960910990" #%"196196014194314103282212211760760" #%"196206274114104233282112221240240" #%"274022022131271240150090970910990" #%"196016016104194164013273930920850" #%"206194114163122312101970960980990" #%"196206314124104113222221240980990" #%"940204272251060070940940940940940" $%"016016014014014213950960960960880" $ %"294024133162302301970960920990990" $%"240314263312291240970920980990990" $%"284024254302301090970910980990990" $%"206196104324114313231960900940890" $%"196016014194104313212222271960960" $"%"196206106114164314123272221960960" $'%"204024103262231970960910980990990" $c SC=0 $h %"HOOK" %"CUT" %"FORWARD DEFENSIVE" %"BACK DEFENSIVE" % "DUCKED" %! "BLOCKED" %""JUST BLOCKED" %#"WITHDREW BAT" %$ "BEATEN" %% "ON-DRIVE" %& "OFF-DRIVE" %'"COVER DRIVE" %("CLIPPED OFF PADS" %)"PUSH ON OFF-SIDE" %*"STRUCK ON PADS" %+"DRIVEN SQUARE ON OFF" %,"HURRIED DEFENSIVE" %- "PADDED UP" %."PULL" %/"STRAIGHT DRIVE" %0"MIS-HIT HOOK" %1"MIS-TIMED DRIVE" %2"PUSH INTO COVERS" %3"PLAYED AT & MISSED" %4"DRIVEN INTO COVERS" %5"RUN DOWN TO THIRD MAN" %6"PUSH TO MID-WICKET" %7"FORCED AWAY TO LEG" %8"DRIVE OVER MID-OFF" %9"STEERED PAST GULLY" %:"TURNED TO LEG" %; "LEG SWEEP" %<"DROPS SAFE" %?"HOT AND HUMID" %@"HOT AND SUNNY" %A"SUNNY-BUT SOME CLOUD ABOUT" %B#"CLOUDY BUT SOME SUNNY INTERVALS" %C"CHANCE OF SHOWERS" %D"LIGHT CLOUD" %E"HEAVY CLOUD" %F "OVERCAST" %G"RAIN FORECAST" %H"RAIN" %N "SHORT" %O"GOOD LENGTH" %P"OVERPITCHED" %Q "YORKER" %R "BOUNCER" %S "SWING" %T"LIFT" %U"MOVEMENT OFF PITCH" %V"WELL-FLIGHTED" %W "LONG HOP" %X "FULL TOSS" %Y"TURN" &H7"GOOD BATTING WICKET - BOWLERS LOSE ALL ADVANTAGES" &M8"GOOD BATTING WICKET - BOWLERS LOSE MOST ADVANTAGES" &R!"NORMAL WICKET - NO ADVANTAGES" &W!"NORMAL WICKET - NO ADVANTAGES" &\!"NORMAL WICKET - NO ADVANTAGES" &aT"GREEN WICKET - FAST MEDIUM AND MEDIUM BOWLERS HAVE A 33% CHANCEOF BEING FAVOURED" &fB"UNEVEN BOUNCE - ALL BOWLERS HAVEA 33% CHANCE OF BEING FAVOURED" &kB"TAKING SPIN - SLOW BOWLERS HAVE A 66% CHANCE OF BEING FAVOURED" &pn"WICKET SHOWING SIGNS OF DAMAGE -ALL BOWLERS FROM SCOREBOARD END FAVOURED ON ALL GOOD LENGTH DELIVERIES" &uL"WICKET BREAKING UP - ALL BOWLERSHAVE A 66% CHANCE OF BEING FAVOURED" &zi"VERY SLOW PACE WICKET - BOWLERS LOSE ALL ADVANTAGES, BATSMAN ALSO LOSE ADVANTAGES ON SOME SHOTS" &3"DRY AND GRASSLESS - BOWLERS LOSEMOST ADVANTAGES" &n"HARD PITCH WITH EXCESSIVE BOUNCE- FAST BOWLERS FAVOURED ON ALL SHORT, LIFT AND BOUNCER DELIVERIES" &q"FAST PACED WICKET - FAST BOWLERSHAVE A 33% CHANCE OF BEING FAVOURED, BATSMAN ALSO FAVOURED ON SOME SHOTS" &L"SOME HELP FOR SPINNERS - SLOW HAVE A 16% CHANCE OF BEING FAVOURED" &^"SPINNERS PARADISE ! - SLOW BOWLERS FAVOURED ON ALL TURNING AND GOOD LENGTH DELIVERIES" ' ' fff=10 :ttt=9991' '  ' zzz '  '  '1"Free Space : ";p(23730\)-p(23641Y\) ' l 5DAY6B/???Bӕ"CHAMPIONS OF CRICKET" &p(nY\)=n+256*(n+1) c(n)=(*n+1)  4:4:0: %wc=0:ovr=0:ed=0 dn=12 iq=111 n z$=b$(n,q) s'f(n,q,6)=z$(2223) xf(n,q,7)=f(n,q,6) }f(n,q,9 )=z$(24) q n :7 st=6:5350 wet=10 5660 time>0157  S2;"EARLY MORNING WEATHER CHECKS";2;"----------------------------": :time-491tlost=1:"TIME : 1012":5200P Ltime-15time=-16:tlost=1::"TIME : 1045":5200P time<0time=0 xa=time:xtr=0 xa60<xtr=60< 150 /n=111 :f(bowl,n,8)=time:n :4 8380 8790V" ev=0:z=1 g(11 ) =21,0;q$;21,0;"Opening batsman ";z z$ er=190:7940 z=1b1=x z=2b2=x /a$(bat,x,35#)"O"b(x,1)=-1 e$(x)="N/O" A(c(6)+c(6))=j(bat)xk(bat)b(x,1)=1 !z=1z=2:189 bwf=b1 ; 1120` @ 8570z! J"Opening bowler : ";z$ L2z$="u"z$="U"tm=1:8575!:330J Ter=330J:7940 hbw1=x w@tm1a$(bowl,bw1,34")"B"er=330J:79906 |bw2=0:bf=bw1  7500L  8000@ (cf=0:off=0:tlost=0 !c(6)=j(bowl)cf=1 q=16 g(bwf)=g(bwf)+1 `w1=c(6):r1=c(6):r2=c(6):g1=c(6):g2=c(6):nr=c(6) #b(bwf,2)=4p=6 #b(bwf,2)=3p=4 #b(bwf,2)=2p=3 #b(bwf,2)=1p=2 rt=r1+r2-1 gt=g1+g2-1 nr>p485 rt=11 g1=g21600@ 'rt=11 ball=13 :775 nr>prt=11 rt=2 z$=b$(bowl,bf) ,x$=z$(((rt*2)-1)(rt*2)) ball=x$(1)-64@ 'f(bowl,bf,7)>0520 %rt=5rt=6ball=1 %rt=8rt=9 ball=3 mod=x$(2) +pit=2pit=12 mod=mod-1 &(pit=14z$(25)="A"w12)(pit=15z$(25)="D"w1=1)(pit=13 (ball=1ball=5ball=7))(pit=10 w14)(ov<8w1=5)(pit=7w12)(pit=8w14z$(25)="D")mod=mod+1 0Mpit=6w12(z$(25)="C"z$(25)="B")mod=mod+1 N2pit=9 ball=2bw2=bfmod=mod+1 b=pit=16(ball=2ball=12 )mod=mod+(ball) lH(wet=1wet=8)z$(25)"D"w1=6mod=mod+1 q5mod<0f(bowl,bf,7)0mod=0 r'pit=1pit=11 mod=0 snr>pmod=0 vz$=a$(bat,bwf,11 ) ,x$=z$(((gt*2)-1)(gt*2)) y$=x$(2) (nr>py$="*"y$=x$(1):680 B(y$="*"r(bwf)=0)(b(bwf,1)1)y$=x$(1) ?y$="*"b(bwf,1)=b(bwf,1)+1:y$=x$(1) str=y$-63? nr>p710 4str=1ball=10 ball=11 700  str=str+mod cf=0695 str=3str=4 *j(bowl)>1str=4str=5 *j(bowl)=3str=5str=6 fld17700 str>11 str=11 7pit=11 str1str5str=str+2 7pit=14str3str6str=str-1 :((8795["+(b(bwf,2)*100d))+(ball*5)) z$ .x$=z$(((str*3)-2)(str*3)) #sc=x$(3):sh=x$(2) z=c(6) ect2910  #b(bwf,2)=4790  .b(bwf,2)=3nr<5790  nr>p910 6a$(bowl,bf,10 );" HAS BOWLED ";" (BALL ";q;")" ball=13 1430  (9549M%+ball) z$  z$ " 20 %sh>33!2460 *(9499%+sh) +z$ ,z$ 1" - ";sc;" RUN"; 2sc=1:829= 3"S" =r(bwf)=r(bwf)+sc >t(inns,bat)=t(inns,bat)+sc C*f(bowl,bf,3)=f(bowl,bf,3)+sc E off=off+sc H'(sc/2)=(sc/2)880p Rz=bwf:bwf=b1 \b1=zbwf=b2 p 8040h z 100d  8850" ct=0:ch=0 inns=2t(2,bowl)0(t(1,bat)+t(2,bat))>(t(1,bowl)+t(2,bowl))end=1:ed=1:1910v q z=bwf:bwf=b1 b1=zbwf=b2 4off=0:::" A MAIDEN OVER":502 ov=ov+1 /f(bowl,bf,1)=f(bowl,bf,1)+1 <off=0f(bowl,bf,2)=f(bowl,bf,2)+1 z$=b$(bowl,bf)  z=4 z$(25)="A"z=5 z$(25)="D"z=3 tlost=tlost+z :f(bowl,bf,7)=f(bowl,bf,7)-f(bowl,bf,9 ) f(bowl,bf,8)=time+tlost  5180<  8380 &"m,s,c,d,f or 'ENTER' to cont. ";z$ z$="m"z$="M"1120` z$="s"z$="S"7310 z$="c"z$="C"1310 z$="d"z$="D"7280p z$="f"z$="F"7000X  8570z! #az=0ov85U992 &(ov+az-1)<85U1000 &"DO YOU WANT THE NEW BALL Y/N? ";z$ z$="n"z$="N"1000 z$"y"z$"Y"992 #az=0ov=0:990  az=1  990 ""'F' or enter bowler no. : ";z$ 3z$="U"z$="u"tm=1:8575!:1000 &z$="f"z$="F"7500L:989 er=1000:7940 z=x Ytm1a$(bowl,z,34")"B"f(bowl,z,1)=0er=1000:79906 $Sz=bf#1;"BOWLER HAS JUST BOWLED":.5,10 :150:1000 )qf(bowl,z,5)=1#1;"BOWLER INJURED - UNABLE TO BOWL":.5,10 :150:1000 .x=bf 0z1=time-f(bowl,z,8) 2'z110 (z=bw1z=bw2)z1=0 8bw1=xbw2=z Bbw2=xbw1=z Gbf=z N:f(bowl,bf,7)0x=(z1/10 ):1104P Ox=(z1/6) P)f(bowl,bf,7)=f(bowl,bf,7)+x QNf(bowl,bf,7)>f(bowl,bf,6)f(bowl,bf,7)=f(bowl,bf,6) V 400 ` 7: j"ENTER MODE" tAn=14:(n*2)+1,2;n;". ";d$(n):n  z=1 z=1x=b1 z=2x=b2  18,0;"MODE FOR "; x$=a$(bat,x) x$(10 ) 20,0;"WAS : "; ,b(x,2)=0b(x,2)=5 d$(b(x,2)) "STATUS : "; $b(x,1)0"PLAYING IN" &b(x,1)1"BATTING WELL" x$ 8x$"1"x$"2"x$"3"x$"4"er=1210:79906 b(x,2)=x$ 19,0;q$;q$;q$ "z=1z=2:1173  4   7: (/11 ;"CONDITIONS";11 ;"----------" <3,0;"WEATHER :-" C(9534>%+wet) Dz$ F 1;z$ Kywet=1wet=8:"FAST, FAST-MEDIUM AND MEDIUM- PACE BOWLERS ALL HAVE A 16% CHANCE OF BEING FAVOURED": Z:"PITCH CONDITION :-" d(9795C&+(pit*5)) nx$ xCx$:::1;"PITCH COUNT : ";pc;1;"PITCH TYPE : ";pt }9ov7:5;1;"NEW BALL IN OPERATION"  8360  4  %gt=gt+b$(bowl,bf,21)+1  sc=0 1gt=3gt13 "A NO BALL":sc=1 9gt=5gt=8gt=12 "A WIDE":sc=1 sc=1t(inns,bat)=t(inns,bat)+1:off=off+1:q=q-1:ex=ex+1:f(bowl,bf,3)=f(bowl,bf,3)+1:g(bwf)=g(bwf)-1:880p #gt=4gt=9 sc=1 $gt=6gt=10 sc=2 gt=7sc=3 gt=11 sc=4  sc;" "; ",gt=4gt=7gt=10 "LEG "; ,"BYE"; .sc1"S" 1 ex=ex+sc 3t(inns,bat)=t(inns,bat)+sc 6 840H @z=c(6)+c(6) J=z3z11 gt=13 :ball=13 :775 Tz=12 15,0;a$(bat,bwf,10 );" PULLS MUSCLE - MAY BAT ON (WITH RUNNER) BUT LOSES BATTING WELL STATUS IF IT EXISTS":b(bwf,1)=0 ^z=215,0;a$(bowl,bf,10 );" PULLS MUSCLE - MAY COMPLETE OVER BUT CANNOT BOWL AGAIN THIS INNINGS":f(bowl,bf,5)=1 h 150 r 8850" | 420 v 7: -10 ,1;1;"END OF INNINGS" z$=(q*2) z$="6"z$="10" z=z$/10 2(w(inns,bat)+rh)10 ed11935  ov=ov+z )f(bowl,bf,1)=f(bowl,bf,1)+z &b(b1,5)=b(b1,5)+zl+tlost &b(b2,5)=b(b2,5)+zl+tlost  150   8380  7380  8570z!  7380 zz=1:7110  zz=0  7: F1,11 ;"TEST MATCH":87W,157:82R,0   "AT ";v$ >0,141:(((v$+3)*8)-1),0 #6,1;t$(bfirst);" "; !z=t(1,bfirst):7340 *w(1,bfirst)=10 :2040 " - ";w(1,bfirst) 't(2,bfirst)=02060   16; !z=t(2,bfirst):7340 *w(2,bfirst)=10 :2060  " - ";w(2,bfirst)  : %t(1,bsec)=02085% 1;t$(bsec);" "; z=t(1,bsec):7340 (w(1,bsec)=10 :2085%  " - ";w(1,bsec) % 2160p *`inns=1t(1,bsec)0(t(1,bfirst)-t(1,bsec))2002220 1batbfirstinns=2 2z=bat:bat=bowl:bowl=z 3an=12:q=111 :f(n,q,7)=f(n,q,6):f(n,q,8)=time:q:n 4 ::1;t$(bat);" TO BAT" 90bf=0:ex=0:ov=0:rh=0 >\a(10 ):b(11 ,5):r(11 ):e$(11 ,3):f$(11 ,10 ) CUn=12:q=111 :x=15:f(n,q,x)=0:x:q:n Htlost=10 M 100d O R 5200P \ rh=0 f 165 p%t(2,bsec)=02190 q 16; rz=t(2,bsec):7340 z(w(2,bsec)=10 :2190 " - ";w(2,bsec) fct=1 end=16500d inns=12090* [t(2,bsec)=0t(1,bsec)>(t(1,bfirst)+t(2,bfirst))6500d st(2,bfirst)=0t(2,bsec)0t(1,bfirst)>(t(1,bsec)+t(2,bsec))6500d ?t(2,bsec)0t(2,bfirst)06500d  2090* ::t$(bowl);" DO YOU" $"1. WANT TO ENFORCE THE FOLLOW-ON" "2. BAT AGAIN" z$ z$="2"20971 #z$"1"er=2260:79906 inns=2  21004  l=c(6) sh88X2530 2480 z$ ("285398185285394291292185194685192298" Bz$=z$((((sh-75K)*3)-2)((sh-75K)*3)) )lǰz$(1)sh=z$(23) =sh=79Osh=83Ssc=1:sh=23:810* sh=85U2650Z %sh<88Xsh=24:810* 2540 z$ +"265265260260260349265376399399399399265" %sh=93]sh=95_8850" M((z$((((sh-87W)*3)-2)((sh-87W)*3)))*10 ) * 8850" 2l=c(6)+c(6) < 7900 A@l=2l=6l=7l=8l=12 2650Z F16,0; Hsh=92\"CAUGHT BEHIND"; Jsh=91["LBW"; Lsh=90Z"STUMPING"; M sh=101e"BAT/PAD CATCH"; N" APPEAL - "; P 2970 Z<18,10 ;1;2;7;"***OUT!***" d 200 n 8850" x15,0; z$=a$(bat,bwf) z$(10 );" IS OUT "; Csh=92\sh=88X"CAUGHT BEHIND":ct=u(bowl):e$(bwf)="C" 0sh=91[sh=100d"LBW":e$(bwf)="LBW" 2sh=90Zsh=89Y"STUMPED":e$(bwf)="ST" &sh=94^"BOWLED":e$(bwf)=" B " jsh=85Uct=bf"CAUGHT AND BOWLED BY ";:z$=a$(bowl,bf):z$(10 ):e$(bwf)="C&B":2740 &sh=85Ue$(bwf)="C":3040 e$(bwf)"C "2740 *ct10 e$(bwf)="C"+ct:2740 e$(bwf)="C "+ct /f(bowl,bf,4)=f(bowl,bf,4)+1 :f(bowl,bf,7)=f(bowl,bf,7)+f(bowl,bf,9 ) f$(bwf)=a$(bowl,bf,10 ) !w(inns,bat)=w(inns,bat)+1 tlost=tlost+2 a(w(inns,bat))=t(inns,bat) 200 #tl=71G-b$(bowl,bf,25) zl=(tl/6*q) >(tl=6q>3)(tl=5q>4)zl=zl-1 u(tl=3(q=1q=3q=5))(tl=5q=1)(tl=4q1q5)zl=zl+1 ?b(bwf,5)<0b(bwf,5)=b(bwf,5)+2 '(w(inns,bat)+rh)=10 2920h "b(bwf,5)=b(bwf,5)+zl 8380 8790V" "Enter new batsman : ";z$ er=2812 :7940 z=x '(e$(z)" "er=2812 :79906 )"z=bwfer=2812 :79906 ,b1=bwfb1=z 6b2=bwfb2=z @bwf=z Cb(z,1)=0 E&b(z,5)=b(z,5)-zl-2 Je$(z)="N/O":f$(z)=q$ MA(c(6)+c(6))=j(bat)zk(bat)b(z,1)=1 O 1120` Qq=6910 T 8000@ ^ 910 Fz=1off=0f(bowl,bf,2)=f(bowl,bf,2)+1 1910v "NOT OUT" 100d 890z "CAUGHT" "BY "; $ch=1ch=0:3230 ch=0  vc=1  3998 & 31255 0z$ 5"123456789:;213456789:" :ct=z$(l)-480 )f(bowl,ct,5)=1ct=12 ro=1ro=0: ct=bf3060 ct=u(bowl)3060 ch=1 ct=03060 a$(bowl,ct,10 )  8850" "15,0;"QUICK SINGLE" ro=1:3055 z$=a$(bowl,ct) 'z$(10 );" THROWS AT THE WICKET" 75K mod=b(bwf,2) out=0 l=c(6)+c(6) Hl=4(mod=2l=3)(mod3l=6)out=1 Jl=10 (mod=2l=11 )(mod3l=8)out=2 xout=0((out=1out=2)(z$(33!)+(*6+1)+(*6+1)))<10 3690j $eout=1z$=a$(bat,bwf):z$(10 );" IS RUN OUT":e$(bwf)="RUN":f$(bwf)=" OUT":2770 8z=bwf Bb1=zbwf=b2 Lb2=zbwf=b1 V out=1 ` 3620$ jz=b1 o.5z=b2 tPl2l12 a$(bat,z,10 );" JUST GOT HOME - 1 RUN":sc=1 ~6l=12 "WILD RETURN - 4 OVERTHROWS":sc=5 4l=2"WILD RETURN - 1 OVERTHROW":sc=2  8204 15,1;"STRUCK"  200  8850" l1=c(6)+c(6) 15,0; &l15l19 "STRUCK ON "; l1=5"BODY"; l1=6"HAND"; l1=7"SHOULDER";  l1=8"FOREARM"; l1=9 "UPPER ARM"; 2l15l19 " - NO EFFECT":880p #b(bwf,1)=0 (l1=4"STRUCK ON FACE" 2l1=10 "STRUCK ON HAND" <_l1=4l1=10 "MAY BAT ON - BUT LOSES BATTING WELL STATUS IF IT EXISTS":880p Fl1=3"STRUCK ON HEAD" P#l1=11 "STRUCK BELOW HEART" Zl1=3l1=11 "RETIRES HURT BUT CAN RETURN ON FALL OF THE NEXT WICKET":e$(bwf)=" ":f$(bwf)="RET. HURT":b(bwf,1)=1:b(bwf,2)=0 d(l1=2"FELLED BY BLOW ON TEMPLE" n,l1=12 "STRUCK ON HAND, BONE BROKEN" xdl1=2l1=12 "RETIRE HURT, CANNOT RETURN":e$(bwf)="RET":f$(bwf)="HURT":rh=rh+1 } 300, Dl1=2l1=3l1=11 l1=12 tlost=tlost+5 H(l1=3l1=11 )(w(inns,bat)+rh+1)=10 1910v  2790  8850"  vc=0 r1=c(6) r2=c(6) r1r2z$=r2+r1 r14430N+((sh-96`)*10 )+(z$(25)-64@) Iz$ RC"85:85933185485733285885770285633265369185485:85385:856856333723" \C"88533033433285788633188:33133433388388788:85633133285:857858887" dC"910740887940750889920740750920750920910856920940920750884887910" eC"750910898920910750900856750940910910857750920887898750910750940" fC"88694092091075090090091094074085675089<920750910898920940920910" nC"94085885573785:94085785494085594085685388985:857856940857940857" oC"85:940857854856855940883739896856940854856940857856857940940859" pC"89:85494085673585885:940940855856940855857940897857854940855940" sa=sh csa=97a14,10 ;1;2;7;"*** EDGED ***":200:8850" lsa=96`14,7;1;2;7;"*** BALL IN THE AIR ***":200:8850" 15,0; )x$=z$((((l*3)-3)+1)) x$=x$(3) sh=x$(2) cat=3+(*10 ) sc=(*4) ?sh=33!sc=4b(bwf,3)=b(bwf,3)+1 sh=33!810* *sh72Hcat=sh-60<:5000 *sh=74Jsh=75Ksh=175-sh sh=94^2650Z sa=98b7900  sh=100d2650Z >sh=91[sh=92\sh=90Zsh=101e2630F  sh=88Xsh=97a *1sh=97ash=89Yct=u(bowl):5010 4-sh=73Ict=bf:sh=97a:5010 >sh=96`+(+.5) H 5000 ch=1:3060  sa=96`sa=97ash=sa 15,0; z$=a$(bowl,ct) z$(10 );" "; 4sh=96`sh72H"GOES FOR THE CATCH-";cat (sh=97a"DIVES FOR THE BALL-";cat )sh=89Y"WHIPS THE BAILS OFF-";cat  100d xl=c(6)+c(6) $(z$(33!)+xl)cat5110 :sh=89Y"BUT IS NOT QUITE QUICK ENOUGH":5095 "BUT DROPS IT" Esh72Hsh=33!:8850":15,0;:810*  890z 1ct=u(bowl)sh89Ysh=88X:2650Z $ct=u(bowl)sh=89Y2650Z  sh=85U  ch=1  2650Z  4 ( 2 989 <#b(b1,5)=b(b1,5)+tlost F#b(b2,5)=b(b2,5)+tlost Pst=0:dly=0 U wc=0 Zl=1tlost _st=5wc=1 dtime=time+1 ntime=120xst=3 s'st=3time=160st=0 xtime=280st=2 y'st=2time=300,st=0 z(time=360hday=5st=6 }^((time>120xtime160)(time>280time300,))dly0xa=xa-1 ~$az0ov20st=4 Baz0ov=10 time=time+(tlost-l):l=tlost:7640 .time=(420+xtr)day5st=4 st25270 time=-480time=-15time=12 time=45-time=72Htime=105itime=132time=165time=192time=225time=252time=285time=3128time=345Ytime=372ttime=405st=1 +time=432time=465st=1 #wc=1st=1st=0 l xa60<xtr=60< st=0st=5 3time-480time-1515,0; ,st=1"WEATHER CHECK :-":5890 'st=3"LUNCH - 40 MINUTE BREAK" %st=2"TEA - 20 MINUTE BREAK" !st=4"END OF DAY'S PLAY" ךst=6z=ov:ov=az:az=z+1:"IT'S NOW PAST 5.00pm ON THE LASTDAY - ONLY ";20-ov;" OVERS REMAIN UNTIL THE END OF THE MATCH":200: st=3time=160 st=2time=300, pc=pc+c(6)  z=1 x=n$(z(z+1)) pc>xz=z+4:5370  z$=n$((z+2)(z+3)) z$="1A"z$="11" z$="2A"z$="12" z$="6A"z$="13" z$="7A"z$="14" z$="8A"z$="15" z$="8B"z$="16"  pit=z$  150 wet=10 "st41310: 1&day=5end=1:1910v 6time=0:xa=0:xtr=0:b(b1,2)=1:b(b2,2)=1:day=day+1:b(b1,1)=0:b(b2,1)=0 ;C(c(6)+c(6))=j(bat)b1k(bat)b(b1,1)=1 @C(c(6)+c(6))=j(bat)b2k(bat)b(b2,1)=1 JWn=111 :f(bowl,n,7)=f(bowl,n,6):f(bowl,n,8)=0:n cgday=4rd=0:"REST DAY - THE PLAYERS NOW HAVE A WHOLE DAYS REST.":250:rd=2 h#l=c(6)+c(6)-1 r(5500|+(wet*10 )) |z$ "11223466789" "11222233455" "22222344569" "22223334677" "22233345688" "11222334489" "44455568990" "99986443310" "77666444320" "66666444330"  wet=z$(l) wet=0wet=10 $rd=2rd=1:5480h wet=10 5660  1310    :time=-491:tlost=1:"TIME : 1012":5200P  Ltime-15time=-16:tlost=1::"TIME : 1045":5200P  time0time=0  150  l=c(6)+c(6) & 8850" 0$15,0;"HEAVY RAIN - "; :=l=2l=3"NO PLAY TODAY":250:5800 D 5750v Nz$ XBtlost=z$((((l-3)*3)-2)((l-3)*3)) v"260205170150150130130100100" tlost;" MINUTES LOST"  time=tlost tlost60<xtr=60<  wet=4  250  1310 l=c(6)+c(6) day=day+1 l6wet=6 "l7l9 wet=4 $l=10 l=11 wet=3 l=12 wet=10  1310 wet=10 5660   100d  dly=0  l=c(6)+c(6) %wet=1l=11 dly=4  $wet=3l=2dly=2 *%wet=3l=11 dly=1 4$wet=5l=5dly=1 >%wet=5l=11 dly=2 H$wet=6l=3dly=1 R%wet=7l=10 dly=3 \%wet=7l=12 dly=1 f3wet=7l=4time360hdly=5 p$wet=8l=2dly=3 z3wet=8l=7time360hdly=5 $wet=9 l=5dly=3 'dly=0"NO CHANGE":100d: dly=1"LIGHT SHOWER"; dly=2"HEAVY SHOWER"; dly=3"RAIN"; dly=4"THUNDERSTORM"; 'dly=5"BAD LIGHT";:62008 #l=c(6)+c(6)-1 (6100+(dly*10 )) z$ %"012022043028045025030036015019050" %"024019026042036047055033041038030" %"000062106047034055052075130085143" %"107068100033052043038070055084000" .tlost=z$(((l*3)-2)(l*3))  tlost=062008 " - ";tlost;" MINUTES LOST"  150 $7time-480time-158850":6185) & ) st=5 *Jday=5(time+tlost)360haz=((time+tlost-360h)/4) +$az0ov=ov+(tlost/4) , xa=xa+tlost . 5210Z 8:"NO FURTHER PLAY TODAY" B st=4 L 150 V 8850" ` 5290 d18,0; nHday=5time420(ovr+ov)209 ;"MATCH DRAWN": x*z1=t(1,1)+t(2,1) *z2=t(1,2)+t(2,2) z1>z2t$(1); z10z;" RUNS AHEAD" z<0z;" BEHIND" #z=0"LEVEL WITH":t$(bowl) n::"DAY : ";day;", TIME : ";1100L+(((time/60<))*100d)+(time-(((time/60<))*60<))  8360  7: $1;" ";t$(bat);" - BATTING " ":13 ;"4's 6's MINS. RUNS" n=111 2e$(n)="N/O"b(n,1)11;"BW"; z$=a$(bat,n) 2;z$(10 );" "; .e$(n)=" "f$(n)"RET. HURT ":72259 b(n,3)<10 " "; 'b(n,3);" ";b(n,4);" "; z=b(n,5):7340 " ";  z=r(n):7340 *e$(n)"N/O"7214. ,"*"; 4 9n :"PRESS ENTER TO CONTINUE";z$ ;2,21;"BLS. " <:n=111 :n+2,21;" ";g(n);" ":n > 4 Czz=17380 H 8360 R"ARE YOU SURE Y/N ? ";z$ \)z$"n"z$"N"z$"y"z$"Y"7250R f p 7250R zz$="y"z$="Y"1910v  989  7250R z$="n"z$="N"989 "COMP-TEST"5150: z<100d" "; z<10 " ";  0 z;  &"'C' to copy, 'ENTER' to cont. ";z$ z$="c"z$="C"  L 7: V+1,1;"ENTER TYPE OF FIELD :-" `&4,0;" 1. NORMAL FIELD" j)6,0;" 2. DEFENSIVE FIELD" t)8,0;" 3. ATTACKING FIELD" ~z$ 1z$"1"z$"2"z$"3"er=7550~:79906  fld=z$ fld=17620 "LEVEL (1=LOW, 4=HIGH) ";z$ 3z$<491ůz$>524űz$17590  ect=z$  4  O20,0;"DO BOTH CAPTAINS WISH TO DECLARETHE GAME A DRAW NOW Y/N ?" z$ z$="n"z$="N" 6z$="y"z$="Y"end=1:ovr=10 :1910v  7640 g1=g2g1=r1g1=r2z=g1 g2=r1g2=r2z=g2  r1=r2z=r1  ect57979906 z$=17965 9z$(2)<480ůz$(2)>57979906 x=z$ ""x<1x>11 79906 , er+20 6<#1;"INVALID ENTRY":.5,10 :150:er @ 4: E 7 Jn=013 Tn,0;1;q$ ^n h 7 m(1,10 ;"TOTAL ";t(inns,bat) r13,14;"FOR ";w(inns,bat);" WICKET"; t#w(inns,bat)=1:8060| w"S" |5,1; bwf=b11 2b(b1,1)11;"BW":8100 1;"**"  0 6,1; bwf=b21 2b(b2,1)11;"BW":8140 1;"**"  0 5,4; d$(b(b1,2),1) 5,6; a$(bat,b1,10 );" "; 1:z=r(b1):7340  6,4; d$(b(b2,2),1) 6,6; a$(bat,b2,10 );" "; 1:z=r(b2):7340  8,1;"BOWLERS :" "9 ,2;"PAVILION END:" &9 ,18; :&a$(bowl,bw1,10 );1;" "; ?bw1=bf1;"*" @ bw1bf D%10 ,2;"SCOREBOARD END:" Ibw2=08300l N10 ,18; b&a$(bowl,bw2,10 );1;" "; gbw2=bf1;"*" h bw2bf l05,23;"OVERS";6,25;ov |12 ,1;"DAY : ";day;", TIME : ";1100L+(((time/60<))*100d)+(time-(((time/60<))*60<)) E(az+ov)713 ,1;1;"NEW BALL IN OPERATION" 4  ""Press 'ENTER' to continue ";z$  7: $1;" ";t$(bat);" - BATTING " n=111 .b(n,1)0e$(n)"N/O"8410 1;"BW"; 73;a$(bat,n,10 );" ";e$(n);" ";f$(n);" "; f$(n)="RET. HURT "8450! e$(n)=" ":8460 ! !z=r(n):7340 ! ! n !4;"EXTRAS";30; ! ex<10 " "; !*ex !/29;"---" !4(5;"TOTAL (";w(inns,bat);" WKT"; !6:w(inns,bat)=1")";14,29;:8510>! !9"S)";14,29; !>z=t(inns,bat):7340 !R !\816,3;"OVERS : ";ov;21;"DAY : ";day !^m17,20;"TIME : ";1100L+(((time/60<))*100d)+(time-(((time/60<))*60<)) !a=w(inns,bat)018,0;"FALL OF WICKETS :-" !bn=1w(inns,bat) !c8n>520,(n*6)-35#;:8549e! !d 19,(n*6)-5; !e n;"-";a(n) !fn !k 4 !p !z tm=0 ! 7: !%1;" ";t$(bowl);" - BOWLING " !)2,13 ;"O M R W S TIME" ! !n=111 !Jtm=0a$(bowl,n,34")"B"f(bowl,n,1)=087553" !*n=bf1;1;"*";:8640! !n<10 " "; !n; !a$(bowl,n,10 ); !"f(bowl,n,1)<10 " "; !Ff(bowl,n,1)ɺf(bowl,n,1)f(bowl,n,1);:8693! !f(bowl,n,1);" "; !"f(bowl,n,2)<10 " "; !f(bowl,n,2);" "; "!z=f(bowl,n,3):7340 "$23;f(bowl,n,4); ")Af(bowl,n,5)=125;1;"INJ":87553" "* 24; "+!f(bowl,n,7)0" "; ",%(f(bowl,n,7))<10 " "; ".-f(bowl,n,7)02:1 "/&f(bowl,n,7);:0:0 "228;1100L+(((f(bowl,n,8)/60<))*100d)+(f(bowl,n,8)-(((f(bowl,n,8)/60<))*60<)) "3n "8 "B3;"OVERS : ";ov "D "G<(ov+az)72;1;"NEW BALL IN OPERATION" "Hl:"DAY : ";day;", TIME : ";1100L+(((time/60<))*100d)+(time-(((time/60<))*60<)) "J "Lfld=1"NORMAL FIELD" "M!fld=2"DEFENSIVE FIELD"; "N!fld=3"ATTACKING FIELD"; "O*fld=2fld=3" - LEVEL ";ect "P 4 "Q "Vn=111 "[0b(n,1)=1e$(n)="N/O":8830~" "` n,0; "jn<10 7;" "; "t 7;n "~n " "0n=1421:n,0;4;q$:n " "%"014014024162132261141930040150970" "%"164231030030030040040170170870980" "%"254114123282132271231030030240910" "%"940060060060060060060070070940940" "%"014014012011050050050050950860850" "%"204301271080080080170020090970920" "%"101261130030080080080080240970850" "%"104302131040040040040170150970980" "%"206114272101030030030170090920980" "%"196196284014313192012202211240240" "%"206194114103312162252221211220220" "%"312021131231040040040150090980990" #(%"014014024163132022231930231150970" #-%"194271141030030030040170090770990" #2%"204114124163102272131141221240960" #7%"940060060060060060060070840940940" #<%"016014014012011050050050950960850" #A%"204022111080080080090090830970940" #F%"222311141301080080240240240970880" #K%"024312022132930040220150150980990" #P%"206114102272111060030220090920990" #U%"196196194274014193193211191210210" #Z%"206194114104124163132222221780780" #_%"273022101301220040180090150990990" #%"016024014114133262272311930820960" #%"204302231261131030030170090980990" #%"286124104204133112141231220870960" #%"940231060060060060070070800940940" #%"016016014013012011050050950850850" #%"164024302271080170220090970910850" #%"104272301271220080240240090970850" #%"124032132112930240150220150910990" #%"206324104322112930220150960910990" #%"196196014194314103282212211760760" #%"196206274114104233282112221240240" #%"274022022131271240150090970910990" #%"196016016104194164013273930920850" #%"206194114163122312101970960980990" #%"196206314124104113222221240980990" #%"940204272251060070940940940940940" $%"016016014014014213950960960960880" $ %"294024133162302301970960920990990" $%"240314263312291240970920980990990" $%"284024254302301090970910980990990" $%"206196104324114313231960900940890" $%"196016014194104313212222271960960" $"%"196206106114164314123272221960960" $'%"204024103262231970960910980990990" $c sc=0 $h %"HOOK" %"CUT" %"FORWARD DEFENSIVE" %"BACK DEFENSIVE" % "DUCKED" %! "BLOCKED" %""JUST BLOCKED" %#"WITHDREW BAT" %$ "BEATEN" %% "ON-DRIVE" %& "OFF-DRIVE" %'"COVER DRIVE" %("CLIPPED OFF PADS" %)"PUSH ON OFF-SIDE" %*"STRUCK ON PADS" %+"DRIVEN SQUARE ON OFF" %,"HURRIED DEFENSIVE" %- "PADDED UP" %."PULL" %/"STRAIGHT DRIVE" %0"MIS-HIT HOOK" %1"MIS-TIMED DRIVE" %2"PUSH INTO COVERS" %3"PLAYED AT & MISSED" %4"DRIVEN INTO COVERS" %5"RUN DOWN TO THIRD MAN" %6"PUSH TO MID-WICKET" %7"FORCED AWAY TO LEG" %8"LOFTED DRIVE" %9"STEERED PAST GULLY" %:"TURNED TO LEG" %; "LEG SWEEP" %<"DROPS SAFE" %?"HOT AND HUMID" %@"HOT AND SUNNY" %A"SUNNY-BUT SOME CLOUD ABOUT" %B#"CLOUDY BUT SOME SUNNY INTERVALS" %C"CHANCE OF SHOWERS" %D"LIGHT CLOUD" %E"HEAVY CLOUD" %F "OVERCAST" %G"RAIN FORECAST" %H"RAIN" %N "SHORT" %O"GOOD LENGTH" %P"OVERPITCHED" %Q "YORKER" %R "BOUNCER" %S "SWING" %T"LIFT" %U"MOVEMENT OFF PITCH" %V"WELL-FLIGHTED" %W "LONG HOP" %X "FULL TOSS" %Y"TURN" &H7"GOOD BATTING WICKET - BOWLERS LOSE ALL ADVANTAGES" &M8"GOOD BATTING WICKET - BOWLERS LOSE MOST ADVANTAGES" &R!"NORMAL WICKET - NO ADVANTAGES" &W!"NORMAL WICKET - NO ADVANTAGES" &\!"NORMAL WICKET - NO ADVANTAGES" &aU"GREEN WICKET - FAST MEDIUM AND MEDIUM BOWLERS HAVE A 33% CHANCEOF BEING FAVOURED" &fB"UNEVEN BOUNCE - ALL BOWLERS HAVEA 33% CHANCE OF BEING FAVOURED" &kB"TAKING SPIN - SLOW BOWLERS HAVE A 66% CHANCE OF BEING FAVOURED" &pn"WICKET SHOWING SIGNS OF DAMAGE -ALL BOWLERS FROM SCOREBOARD END FAVOURED ON ALL GOOD LENGTH DELIVERIES" &uL"WICKET BREAKING UP - ALL BOWLERSHAVE A 66% CHANCE OF BEING FAVOURED" &zi"VERY SLOW PACE WICKET - BOWLERS LOSE ALL ADVANTAGES, BATSMAN ALSO LOSE ADVANTAGES ON SOME SHOTS" &3"DRY AND GRASSLESS - BOWLERS LOSEMOST ADVANTAGES" &n"HARD PITCH WITH EXCESSIVE BOUNCE- FAST BOWLERS FAVOURED ON ALL SHORT, LIFT AND BOUNCER DELIVERIES" &q"FAST PACED WICKET - FAST BOWLERSHAVE A 33% CHANCE OF BEING FAVOURED, BATSMAN ALSO FAVOURED ON SOME SHOTS" &L"SOME HELP FOR SPINNERS - SLOW HAVE A 16% CHANCE OF BEING FAVOURED" &^"SPINNERS PARADISE ! - SLOW BOWLERS FAVOURED ON ALL TURNING AND GOOD LENGTH DELIVERIES" ' ' fff=10 :ttt=9991' '  ' zzz '  '  '1"Free Space : ";p(23730\)-p(23641Y\) ' 5