ZXTape! 0Created with Ramsoft MakeTZXrcc2-6/7 ppr"CHAMPIONS OF CRICKET" &p(nY\)=n+256*(n+1) c(n)=(*n+1)  4:4:0: rwc=0:ovr=0:ed=0:SCT=0:SRC=0:NBF=0:az=0:ov1=0:dct=0 d#Q1=BOWL:i$="":Q=12 iN=111 n z$=b$(Q,N) o%I$=I$+Z$(2223):BOWL=Q s 5795 }f(Q,N,9 )=z$(24) N Q:BOWL=Q1 :7 (st=6:pc=c(6):5360 wet=10 5660 time>0157  +time-491tlost=1:5200P ;time-15time=-16:tlost=1:5200P time<0time=0 xa=time:xtr=0 xa60<xtr=60< 150 /n=111 :f(bowl,n,8)=time:n :4 8380 8790V" 'NBALL=7+C(5):B1=0 ,ev=0:OBA=1:y=12 g(11 ) &ZL=-2:BWF=0:B2=0 2812 H7:0:z,14;e$(z);z,31;"0";:4:0 Da$(bat,z,35#)"O"B(z,1)=0b(z,1)=-1 y:oba=0 bwf=b1 ; 1120` @1BW1=0:BW2=0:8000@:950  8000@ SADD=0:cf=0:off=0:tlost=0:EXR=0:OF=0:RRO=0:Z$=B$(BOWL,BF)(25):BOL=4+(Z$="A")*(J$(6)="N")-(Z$="D") !c(6)=j(bowl)cf=1 jOW=1:it=0:ic=0:q=16:CT=0:ST1=0:RETH=0:YP=0 g(bwf)=g(bwf)+1 `w1=c(6):r1=c(6):r2=c(6):g1=c(6):g2=c(6):nr=c(6) Dp=b(bwf,2)+(b(bwf,2)<3)+(b(bwf,2)=5) rt=r1+r2-1 gt=g1+g2-1 u14,0;1;7;1;a$(bowl,bf)(10 );" BOWLING TO ";A$(BAT,BWF)(10 ):10 nr>p910 C15,13 ;7;4;1;"BALL ";Q:20 rt=11 g1=g21600@ 'rt=11 ball=13 :775 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) M(pit=1pit=2pit=11 pit=12 )ball=9 627s +pit=2pit=12 mod=mod-1 &(pit=14z$(25)="A"w12)(pit=15ball=12 w13)(pit=13 z$(25)="A"(ball=1ball=5ball=7ball=12 ))(pit=10 w14) (pit=7w12)(pit=8w14z$(25)="D")mod=mod+1 0Epit=6w14(ball=7ball=8)mod=mod+1 N2pit=9 ball=2bw2=bfmod=mod+1 b=pit=16(ball=2ball=12 )mod=mod+(ball) q5mod<0f(bowl,bf,7)0mod=0 r'pit=1pit=11 mod=0 sOOVNBALLW1>3(BALL=6BALL=7BALL=8)MOD=MOD+1 t9(wet=1wet=8)ball=6mod=mod+1 vz$=a$(bat,bwf,11 ) ,x$=z$(((gt*2)-1)(gt*2)) y$=x$(2) 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)-1)*100d+ball*5+(B(BWF,2)=1)*500 z$ .x$=z$(((str*2)-1)(str*2)) 4sc=x$(2)-480:sh=x$(1)-64@ SH>32 SH=SH+37% z=c(6) ect12 1430 (9549M%+ball) z$  Dz$;:MOD0J$(7)="Y"16,24;"(";-MOD;")"; ! " 502 %sh>33!2460 &SC<10 810* '(EXR=(SC/10 ):SC=SC-EXR*10 *(9499%+sh) +z$ ,z$:8171:8204 1O502:" - ";sc;" RUN"EXR3;" LEG BYE"EXR=3;"S"SC1: 4EXR>03492 6RRO=15300 9>EXR=3T(INNS,BAT)=T(INNS,BAT)+SC:EX=EX+SC:840H :4sc=4 b(bwf,3)=b(bwf,3)+1 ;4sc=6 b(bwf,4)=b(bwf,4)+1 =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:SC=SC+(EXR=10 ) Gq((R(BWF)-sc)/502)ɺ(R(BWF)/502)R(BWF)>0st1=bwf:st2=(r(bwf)/502)*502:1700 H'(sc/2)=(sc/2)875k Rz=bwf:bwf=b1 \b1=zbwf=b2 kEXR=10 p 8040h z 100d  8850" inns=2t(2,bowl)0(t(1,bat)+t(2,bat))>(t(1,bowl)+t(2,bowl))end=1:ed=1:1910v XEXR=0:CT=0:CH=0:SC=0:OT=0:RRO=0:q:Q=0 5z=bwf:bwf=b1:13 ,13 ;1;" "; b1=zbwf=b2 off=08850":18,9 ; "A MAIDEN OVER":40(:F(BOWL,BF,2)=F(BOWL,BF,2)+1:8850" ov=ov+1:ov1=ov1+az /f(bowl,bf,1)=f(bowl,bf,1)+1 tlost=tlost+BOL =f(bowl,bf,7)=f(bowl,bf,7)-f(bowl,bf,9 )*OW f(bowl,bf,8)=time+tlost 05180<:ic=19700%:ic=0 nbl=(ovnbo) OB=BW1:BF=BW1OB=BW2 9OK=0:OB>0OK=(F(BOWL,OB,5)=0) 8040h:8850" d"M,S,C,R,B,D,T,F";","NBL=1;1;"N"NBL=1;0;","ok=1;" :";z$ 8Z$="N"NBL=1NBL=0:OV=0:960 7z$="M"1120`:8040h:8850":960 z$="S"7310 +Z$="T"8850":7000X:960 z$="C"1310:955 z$="D"7280p Cz$="R"8380 :8360 :7110:8000@:960 +z$="F"7500L:8850":960 Z$="B"999 &OK=0ER=960:79906 BW1=OBBW2=BF:BF=OB BW2=OBBW1=BF:BF=OB #8850":8040h:402  8570z! ""'F' or enter bowler no. : ";z$ -z$="U" tm=1:8575!:1000 z$="F"7500L:999 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 `8850":Z=1 aX=B1:Z=2X=B2 j:14,2;"ENTER MODE FOR ";A$(BAT,X)(10 ) t8n=15:15+N,2;n;". ";d$(n):n x$ :x$ < "1"x$ > "5"űX$1er=1210:79906 b(x,2)=x$ "z=1z=2:1121a   8850" (215,0;7;1;"WEATHER :-" C(9534>%+wet) Dz$ F16,0;z$ KUwet=1wet=817,0;1;"GOOD SWING BOWLING CONDITIONS" Z(19,0;"PITCH CONDITION :-" d(9795C&+(pit*5)) nx$ xK20,0;X$;21,0;"PITCH COUNT : ";pc;" TYPE : ";pt 8360 :8850"  Igt=gt+b$(bowl,bf,21)+1:GT>15Z=0:1485  Z="0614213751002"(GT-2)  sc=0 Z=26300  16,1;"EXTRAS - "; ҊZ<2Q=Q-1:F(BOWL,BF,3)=F(BOWL,BF,3)+1:OF=OFF+1:SC=1:G(BWF)=G(BWF)-(Z=1):1550 <Z<6SC=Z-2+(Z=5):Z=3:1540 SC=Z-5:Z=4 9SC;" LEG "Z=4;" BYE";"S"SC1;:1560 &"NO BALL"Z=0;"WIDE"Z=1 kBALL=14"HIT INTO GRANDSTAND FOR 6!":SC=6:B(BWF,4)=B(BWF,4)+1:829= "FEX=EX+SC:T(INNS,BAT)=T(INNS,BAT)+SC:840H+40(*(Z<3) @z=c(6)+c(6) JIz3z11 GT=20:ball=13 +(Z>9 ):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 10 :8040h:8850":16,1;A$(BAT,st1)(10 );" "; st2:17,1;"OFF ";G(st1);" BALLS IN ";B(st1,5);" MINS":18,1;B(st1,3);" FOURS AND ";B(st1,4);" SIXES":8360 : 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  7110 FCT=0::SCT=1 4:0:0 WZ$=T$(1)+" v "+T$(2):15-SCT*13 ,(32 -(Z$))/2;Z$; BZ$="AT "+C$:16-SCT*13 ,(32 -(Z$))/2;Z$; ^X=12:Z1=BFIRST*(X=1)+BSEC*(X=2):T(1,Z1)=02043 .18+X-SCT*13 ,0;t$(Z1);" "; !z=t(1,Z1):7340:Z; 1" - ";w(1,Z1);" "W(1,Z1)<10 ; Ot(2,Z1)0Z=T(2,Z1):7340:" ";Z;" - ";W(2,Z1) X:SCT=0:2190 *zinns=1t(1,bsec)0(t(1,bfirst)-t(1,bsec))200-502*(nodays<5)2220 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" 6az=0ov=0 9$bf=0:ex=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 H!tlost=10 -dct:dct=0 J;time=160time=0time=300,tlost=0 M 100d O R 5200P \ rh=0 f 165 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 SCT=0::7040  2090* :t$(bAT);" FOLLOW-ON Y/N" 'z$:Z$="Y"INNS=2:21004 #Z$"N"ER=2260:79906  20971 l=c(6) sh > 87W2540 1Z$="298075279398185079394297291285194085192198" Bz$=z$((((sh-73I)*3)-2)((sh-73I)*3)) )lǰz$(1)sh=z$(23) `sh=79Osh=85UOF=(SH=79O):SH=97a-OF:YP=0:CAC=0:5000 %sh<88Xsh=24:810* .Z$="470470260260260349269376399399399399399" ZCAC=0:((z$((((sh-87W)*3)-2)((sh-87W)*3)))*10 ) 2l=c(36$) 7;Z=(SH=91[)*2+(SH=90Z)*3:9900& JSH=75KA$(BOWL,CT)(10 );" CATCHES A REBOUND FROM THE PAD" @ 7900 Al>182650Z O 2970 P 7900 ZC20,7;1;2;7;" ***OUT!*** " d 502 z$=a$(bat,bwf) 2sh=92\sh=88Xct=u(bowl):e$(bwf)="C" )sh=91[sh=100de$(bwf)="LBW" 'sh=90Zsh=89Ye$(bwf)="ST" dsh=94^Z=2:9900&:(13 );2;7;1;"BOWLED":e$(bwf)=" B " 2ct=bfz$=a$(bowl,bf):e$(bwf)="C&B":2740 'CT>0E$(BWF)="N/O"e$(bwf)="C" e$(bwf)"C "2740 *ct10 e$(bwf)="C"+ct:2740 e$(bwf)="C "+ct /f(bowl,bf,4)=f(bowl,bf,4)+1 OW=0 f$(bwf)=a$(bowl,bf,10 ) !w(inns,bat)=w(inns,bat)+1 tlost=tlost+2 a(w(inns,bat))=t(inns,bat) ST1=0ST1=BWF WZL=(BOL/6*Q+.5):B(ST1,5)=B(ST1,5)+ZL:100d:st2=r(ST1) ?b(ST1,5)<0b(ST1,5)=b(ST1,5)+2 RETH=01700 WRETH=0:(w(inns,bat)+rh)=10 B(ST1,5)=B(ST1,5)-ZL:2920h 8380 8790V" "Enter new batsman : ";z$ er=2812 :7940 z=x '(e$(z)" "er=2812 :79906 )"z=bwfer=2812 :79906 *NBF=128728 ,b1=bwfb1=z 6b2=bwfb2=z 7 2875; 8B1=BWFB2=Z 9B2=BWFB1=Z ;NBF=0BWF=Z @ NBF=0 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 Noba=1 O 1120` T 8000@ ^ 910 Fz=1off=0f(bowl,bf,2)=f(bowl,bf,2)+1 1910v 320,7;" NOT OUT ":8259 100d 890z $ch=1ch=0:3230 ch=0 LCT=V$(BOWL)(C(6)+(OF=1)*6)-64@:CT=BF3060 OF=A$(BOWL,CT)(33!)-64@:FO=(F/7):FC=F-(F/7)*7  8850" "OPTIONAL EXTRA RUN (Y/N)";Z$ Z$="N"EXR=0:8259 #Z$"Y"ER=3492 :79906 OF=(EXR=2):3060 Z$="BEJCFKDGKEHMFJLGKMHLMDDGEEHGGJHHJHHIIIJKKLBDDBDDCEEDFFEGGFHHGIICDDCDDDEEDFFEGGFHHGJJ" (SC*21+FO*3+1SC*21+FO*3+3) 8850":L=C(36$) OT=0:X=13 "L>Z$(X)-64@OT=OT+1 X J15,0;A$(BOWL,CT)(10 );" GATHERS THE BALL":40(: Z=C(2) Z=1BO=BWF !Z=2BO=B1:B1=BWFBO=B2 WBA=(BO=B2):3+BA,6;1;2;7;A$(BAT,BO)(10 );" "; 0SC>0Y$="HURLS":FO>3Y$="FIRES" k17,0;:DH=1:Z$="SHIES AT THE STUMPS":SC>0Z$=Y$+" THE RETURN TO ":DH=0 cSTP=1:(Z=1(SC=0SC=2))(Z=2(SC=1SC=3))STP=2 (RRO=1STP=(STP=1)+1 CT=U(BOWL):STP=2CT=BF *DH=0Z$=Z$+A$(BOWL,CT)(10 ) Z$:60< ZOT<2"DIRECT HIT !"DH=1;"WHO WHIPS THE BAILS OFF !"DH=0:3610 YOT=2"BUT HE MISSES - WILD THROW"DH=1;"BUT THE RETURN IS WILD"DH=0 ^OT=3"BUT HE MISSES - WELL BACKED UP"DH=1;"BUT THE BATSMAN IS SAFE"DH=0 y:40(:OT=2OT=1+(SC=2)*3:OT;" OVERTHROWS":SC=SC+OT+(rro=0):8171:8259 A$(BAT,BO)(10 );" IS SAFELY HOME"RRO=0;" SCRAMBLES BACK"RRO=1;::SC=SC+1-(RRO=1):8171:8259 GW=0:(OT=1(OT=0ƨC(36$)>18))W=1 7900:200  +W=020,1;:3605 !c20,3;7;2;A$(BAT,BO)(10 );" IS RUN OUT!":EXR=10 :8259 "NBF=(BOBWF):ST1=BO $(E$(BO)="RUN":F$(BO)="OUT":2770 17,1;"STRUCK"  200 l1=c(6)+c(6) &l15l19 "STRUCK ON "; i"BODY"L1=5;"HAND"L1=6;"SHOULDER"L1=7;"FOREARM"L1=8; "UPPER ARM"L1=9 ; 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 RETH=1:2773  vc=0 <R1=C(6):R2=C(6):R1 > R2X=R1:R1=R2:R2=X L=R2+"@EILNO"(R1)-64@ vc=1 :z$=b$(bowl,bf) D>4430N+((sh-96`)*10 )+(z$(25)-64@) Iz$ RC"3<:5:10015415830025813925;25910025533:;5613:03303<05615710035>3" \C"4500000040023804600013>000;0040034303804?23503400023:;370380390" dC"800<004:01002004;0:00<00200:00200:00800380:00100:00200450470800" eC"200800790:0080?200;00360200100800<00370200:004:0740100800200100" fC"370100:00800200;00;00800100<003502007<0:0020080?780:00100:00800" nC"100370361680563100551350100340100330550390371561100100563100370" oC"3801003513405705501004406707603501005305511005735523601001005:0" pC"7;03411003703906505:31001003505423603305;1370100350562100570100" sa=sh:4553:4560 8sh=97aZ=0:9900&:W$="*** EDGED ***" Bsh=96`Z=1:9900&:W$="*** BALL IN THE AIR ***" 9Sh=89YZ=3:9900&:W$="*** BEATEN ***" YP=0:Sh=96`Sh=97ash=89Y18,(32 -W$)/2;2;7;1;W$:502+150*(Sh=96`):18,(32 -W$)/2;2;7;0;W$:YP=1  )x$=z$((((l*3)-3)+1)) x$=x$(3) qSA=X$(1)-480:SH=0:SA0SH="949185887986899175929075"(SA*2-1SA*2) CAC=X$(2)-480 SC=X$(3)-480 eSC>9 EXR=1+(SH=79O)+(SC=15)*2:SC=SC-10 :SC=5SC=0 $SH=0SH=33!:810* USH=79OSH=75KSH=85USH=86VSH=88XSH=89Y4700\ sh=94^2680x  %L=19*(SA<8):26157 \rOF=(SH=79O):SH=88XSH=89YCT=U(BOWL):3065 :sh=89Y+(sh=88X)*8:5018 f9SH=86VCT=BF:3065 :sh=96`:5018 ch=1:3060 SH=75K4620  sh=97a-(sh=79O) z$=a$(bowl,ct)(10 ) $YP=04553:YP=0 18,0; 9sh=89YZ$;" WHIPS THE BAILS OFF-";caC:5060 =CAC<6"STRAIGHT TO ";Z$;" ";CAC;" ":5060 2Z$;" ";:CAC<10 "GOES FOR THE CATCH ";CAC (CAC>9 "DIVES FOR THE BALL ";CAC  100d xl=c(6)+c(6) ( FC+xl)caC5110 A"BUT DROPS IT"SH89Y;"BUT ISN'T QUICK ENOUGH"SH=89Y 8171:8204 1ct=u(bowl)sh89Ysh=88X:2650Z $ct=u(bowl)sh=89Y2650Z  sh=85U  ch=1  2650Z 4:23658j\,8 ( 28000@:955 <#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 n=time=120xst=3:ic=1:it=0it=time s@st=3time=160ST=-3:5300:st=0 x=time=280st=2:ic=1:it=0it=time y@st=2time=300,ST=-2:5300:st=0 z'time=360hday=nodaysst=6 }^((time>120xtime160)(time>280time300,))dly0xa=xa-1 ~%az=1ov120st=4 Paz=1ov110 OV1<20time=time+(tlost-l):l=tlost:7640 -time=(420+xtr)daynodaysst=4 st25270 #c(30)=15st=1 #wc=1st=1st=0 l -xa60<xtr=60<*(j$(4)="Y") st=0st=5 st=15890 17,0; *(st)=3"LUNCH - 40 MINUTE BREAK" ((st)=2"TEA - 20 MINUTE BREAK" !st=4"END OF DAY'S PLAY" ׌st=6az=1:"IT'S NOW PAST 5.00pm ON THE LASTDAY - ONLY ";20-ov1;" OVERS REMAIN UNTIL THE END OF THE MATCH":200: st=3time=160 st=2time=300, =pc=pc+c(6)+(nodays=3)*2+(nodays=1)  z=1 x=n$(z(z+1)) pc>xz=z+3:5370 z$=n$(z+2)  pit=z$-480:ST<0  150 wet=10 "st41310: 1%day=nodaysend=1:1910v 6time=0:xa=0:IT=0:xtr=0:b(b1,2)=2:b(b2,2)=2: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 J>n=111 :5795:f(bowl,n,8)=0:n cday=4rd=0J$(5)="Y"nodays>4:"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:5200P  ;time-15time=-16:tlost=1:5200P  time0time=0  150 9700%: l=c(6)+c(6) & 8850" 0$15,0;"HEAVY RAIN - "; :3l<4"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 [Z=(BOWL-1)*22+(N-1)*2+1:F(BOWL,N,6)=I$(ZZ+1) !Z=(F(BOWL,N,6)/10 ) eZ1=C(4)*(j$(8)="Y"):F(BOWL,N,6)=F(BOWL,N,6)+(Z1=1)*Z-(Z1=2)*Z %F(BOWL,N,7)=F(BOWL,N,6)  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 15,0;"LIGHT SHOWER"DLY=1;"HEAVY SHOWER"DLY=2;"RAIN"DLY=3;"THUNDERSTORM"DLY=4;"BAD LIGHT"DLY=5; dly=562008 #l=c(6)+c(6)-1 (6100+(dly*10 )) 3Z$="124242221142124345343306:43557<8>:6:35437580" :TLOST=DLY*10 -10 +L:TLOST=Z$(TLOST)-480  tlost=062008  #TLOST=TLOST*10 +C(10 ) 2" - ";tlost;" MINUTES LOST":ic=1:it=time  150 ) st=5 *nday=5(time+tlost)360hOV1=OV1+((TLOST-(360h-TIME)*(TIME<360h))/4):AZ=1 , xa=xa+tlost . 5210Z 8:"NO FURTHER PLAY TODAY" B st=4 L 150 V 8850" ` 5290 Y20,1;2;7;1;"*QUICK WORK BY CLOSE FIELDER*";:40( OF=0:3060 CZ$="DFJEGIFHJGIKGJKGKLHMP"(1+FC*33+FC*3) %SC=0:RRO=1:3510 d18,0; nGday=nodaystime420(ovr+ov)209 ;"MATCH DRAWN": x*z1=t(1,1)+t(2,1) *z2=t(1,2)+t(2,2) z1>z2t$(1); z10;"TRAIL"Z<0; ;" BY ";z;" RUNS";SRC;" ";   7: -1;" ";t$(bat);" - BATTING ";0 $:11 ;"4s 6s MINS BLLS RUNS" n=111 z$=a$(bat,n) z$(10 );" "; .e$(n)=" "f$(n)"RET. HURT ":72259 Y" "B(N,3)<10 ;b(n,3);" ";" "B(N,4)<10 ;b(n,4);" "; z=b(n,5):7340  Z;" "; Z=G(N):7340:Z;" ";  z=r(n):7340:Z; *e$(n) = "N/O""*"; 4 9n C 7380 H 4: R"ARE YOU SURE Y/N ? ";z$ \z$"N"z$"Y"7250R f p 7250R zz$="Y"1910v  989  7250R z$="N"989 "COMP-TEST"5150: #" "Z<100d;" "Z<10 ;: &"'C' to copy, 'ENTER' to cont. ";z$  z$="C"  L 8850" V,15,1;"ENTER TYPE OF FIELD :-" `g17,1;"1. NORMAL FIELD";18,1;"2. DEFENSIVE";19,1;"3. ATTACKING" ~z$ :z$ < "1"z$ > "3"űZ$1er=7550~:79906  fld=z$ fld=17620 "LEVEL (1=LOW, 4=HIGH) ";z$ 8z$ <"1"z$ >"4"űZ$1ER=7590:79906  ect=z$  4  O20,0;"DO BOTH CAPTAINS WISH TO DECLARETHE GAME A DRAW NOW Y/N ?" z$ z$="N"8850": !z$="Y"end=1:1910v  7640 g1=g2g1=r1g1=r2z=g1 g2=r1g2=r2z=g2  r1=r2z=r1  ect"9"79906 X 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 lk1,2;T$(BAT);1;" ";0;"TOTAL";1;" ";0;T(INNS,BAT);"-";W(INNS,BAT) xX=12 yZ=B1:X=2Z=B2 |2+X,1; bwf=Z1 8Z$="**":b(Z,1)1J$(2)="Y"Z$="BW"  1;Z$  0 Z1=B(Z,2) #2+X,4;d$(Z1,1) .2+X,6;A$(BAT,Z)(10 );" "; ?1:" "R(Z)<100d;" "R(Z)<10 ;:0:R(Z) X 6,1;"BOWLERS :" D7,2;"PAVILION END:";8,2;"SC'BOARD END:"; !,X=12:Z=BW1:X=2Z=BW2 &6+X,15; 0Z=08300l :%a$(bowl,Z)(10 );1;" "; ?Z=bf1;"*"; @ZBF0;1;" "; I~J$(3)="Y"1;" ";0;"(";" "F(BOWL,Z,7)<10 ;F(BOWL,Z,7)*(F(BOWL,Z,7)>0);")"; lX:3,23;"OVERS";3,29;ov;1;" ";:AZ=15,23;"LEFT";5,29;20-OV1; n10 ,2;1100L+(((time/60<))*100d)+(time-(((time/60<))*60<));" DAY ";DAY :SRC=1:12 ,1;:7040:SRC=0 4:0  ""Press 'ENTER' to continue ";z$  7::0 $1;" ";t$(bat);" - BATTING " n=111 .b(n,1)0e$(n)"N/O"8410 !J$(2)="Y"1;"BW"; 73;a$(bat,n,10 );" ";e$(n);" ";f$(n);" "; f$(n)="RET. HURT "8450! e$(n)=" ":8460 ! !z=r(n):7340:Z; ! ! 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:Z; !R !\816,3;"OVERS : ";ov;21;"DAY : ";day !^3X=TIME:17,20;"TIME : ";:8786R" !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:Z; "$23;f(bowl,n,4); ")Af(bowl,n,5)=125;1;"INJ":87553" "*)24;:J$(3)="N"87542" "++Y=F(BOWL,N,7):Y<1Y=0 ",Y<10 " "; "/(Y=0);" ";Y; "2-28;:X=F(BOWL,N,8):8786R" "3n "8 "B3;"OVERS : ";ov "D "H2:"DAY : ";day;", TIME : ";:X=TIME:8786R" "J "LP"NORMAL"FLD=1;"DEFENSIVE"FLD=2;"ATTACKING"FLD=3;" FIELD"; "O*fld=2fld=3" - LEVEL ";ect "P 4 "Q "RA1100L+(X/60<)*100d+(X-(X/60<)*60<): "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 " ""A4A4B4P2M2Z1N1[1D0O0|0" ""P4W1C0C0C0D0D0Q0I0e0}0" ""]4K4L3\3Y2[1W1C:C0V0v0" ""y0F0F0F0F0F0F0G0G0y0y0" ""A4A4A2A1E0E0E0E0z0g0p0" ""]4^1[1H0H0H0Q0I0I0|0w0" ""U1Z1_1D0H0H0H0H0X0|0{0" ""J4_2M1D0D0D0D0Q0O0|0}0" ""T6K4Y2J1C:C0C0Q0I0v0}0" ""S6S4\4A4J3S2A2SFU1X0X0" ""T6S4K4J3Y2P2\2VEU1O0O0" ""]2B1M1W1D0D0D0O0I0}0~0" #("A6A4B4S3M2B2[1^1W1O0|0" #-"S4[1N1C0C0C0D0Q0I0h0~0" #2"]6K4P4L3J2Y2\EN1V1X0{0" #7"y0F0F0F0F:F0F0G0o0y0y0" #<"A6A4A4A2A1E0E0E0z0{0j0" #A"V4B2K1W1H0H0I0I0n0|0y0" #F"V2_1N1^1H0H0_0X0I0|0s0" #K"P4_FB2M2[1D0V0O0O0}0~0" #P"T6K4J2`2`1F0C0V0I0f0~0" #U"S6S6S4A4A4SG\3U2S1X0X0" #Z"T6S4]4J4L4Y3M2V2V0i0i0" #_"^3B4J1ZE_0D0Q0O0I0~0y0" #"A6B4A4K4M3ZF[2_1W1m0{0" #"T4^2Y1Z1_1N0C0Q0X0}0~0" #"]6L4J4T4M3K2Y1N1V0e0{0" #"y0W1F0F0F0F0G0G0k0y0y0" #"A6A6A4A3AFU1E0E0z0j0p0" #"P4B4^2[1H0Q0V0I0|0v0p0" #"V4_2Z;W1H0Q0X0X0I0|0p0" #"L4B3M2K2W1X0ONV0O0v0~0" #"T6`4J4`2K2_1V0O0{0v0~0" #"S6S6A4S4\4J3]2U2UEg0g0" #"S6T6M4K4J4Y3\2K2V1X0X0" #"]4B4B2M1[1X0O0I0|0v0~0" #"S6A6A6J4S4P2U1X0O0}0j0" #"{0S4M3P2V1ON|0{0}0~0y0" #"S6T6M4L4J3K2V1O0X0}0~0" #"y0T4\2Y1F0G0y0y0y0y0y0" $"A6A6A4A4UGX0z0{0{0{0s0" $ "]4B4M2P2^1_;|0{0w0~0y0" $"X0S6Z3_2]EX0|0w0}0~0~0" $"\4B4M4^1O0I0|0v0}0~0~0" $"T6S6J4`4K2WEO0{0u0y0t0" $"S6A6A4S4J4]3U2V2U;{0{0" $""S6T6J4K4P4]3L2Y1X0{0{0" $'"V1B4J3Z2W1ON|0{0v0}0y0" $T"A4B2^;N1Z1[1M0H0D0Q0O0" $Y"l0WDC0C0C0R0C0D0Q0Q0}0" $^"L4K2_2[1N1W1VDC0Q0Q0I0" $c"y0F0F0F0F0F0F0F0G0G0y0" $h"A4E0E0E0E0E0E0E0E0z0p0" $m"^4H0H0H0H0H0N0Q0I0|0w0" $r"|0-;D0D0H0H0H0H0I0l0w0" $w"Y2[1^1D0D0D0D0Q0O0l0}0" $|"l0`3[1C0C0C0C0C0Q0l0}0" $"S4A4\3A2Y2_FW1N1^1X0X0" $"T4J4K3\2T2_;Y1J1V0O0O0" $"l0R0R0D:D0D0D0G0O0l0}0" $ SC=0 $ %"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"CHOPPED 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" %-20,1;"(D)ECLARE OR (C)ONTINUE" %sadd=((time-it)/6):BW1>0F(BOWL,BW1,7)=F(BOWL,BW1,7)+SADD:F(BOWL,BW1,7) > F(BOWL,BW1,6)F(BOWL,BW1,7)=F(BOWL,BW1,6) %BW2>0F(BOWL,BW2,7)=F(BOWL,BW2,7)+SADD:F(BOWL,BW2,7) > F(BOWL,BW2,6)F(BOWL,BW2,7)=F(BOWL,BW2,6) %Z$=:Z$=""9710% % Z$="C" &Z$="D"1910v & 9710% &H"PLUMB BATTING WICKET" &M"GOOD BATTING WICKET" &R"NORMAL WICKET" &W"NORMAL WICKET" &\"NORMAL WICKET" &a"GREEN WICKET" &f"UNEVEN BOUNCE" &k"TAKING SPIN" &p""WICKET SHOWING SIGNS OF DAMAGE" &u"WICKET BREAKING UP" &z"VERY SLOW PACED WICKET" &"DRY AND GRASSLESS" &"HARD AND BOUNCY" &"FAST PACED WICKET" &"SOME HELP FOR SPINNERS" &"SPINNERS PARADISE !" &gY$="DNKQDCDQNUPCBKVV_PB-`S]N\W_GQN_M`\S\UM][ULP\VUJ`[QXIUNXQVSVDSKJXUTX[`SV`XCNNINC_CNXCSLKLI]K\`S]K" &eZ=Y$(Z*24+ball+(B(BWF,2)>3)*12 )-64@:9499%+Z:Y$:Y$:502: ' ' fff=10 :ttt=9991' '  ' zzz '  '  '1"Free Space : ";p(23730\)-p(23641Y\) ' %