ZXTape! 2 World Series Cricket - Side ABosoft1984EnglishSportUnknownNoneOriginalpTZXed by Andrew Barker For Chris Thompson Inlay says "Test Match" on front and "World Series Cricket" on spine.5Instructions PLEASE NOTE ----------- Due to a small bug in this program please take care when entering team or player names in CAPS LOCK mode. Befrore pressing the ENTER key please remove the CAPS LOCK otherwise the program will lock up. We trust that this oversight will not affect your enjoyment of the game. -------------------------------------------------------- Cheat ?? Written inside inlay, not part of above notice: LOAD as normal then break into program, add to line 35 LET ou=0 0England v West IndiesW Indies J 0:0:6: 7,11 ;"TESTMATCH";9 ,5;"ENGLAND V WEST INDIES";11 ,10 ;"IS LOADING";15,10 ;1;2;"PLEASE WAIT" 63000:0:"" 3:4:0: #H7;2;"   " (H7;2;"    " -V7;2;"      " 2\7;2;"       " 7V7;2;"       " <-7;" " d165,70F:17,17:165,70F:10 ,0:182,87W:10 ,0:185,77M:4,4 nr185,77M:0,10 :187,79O:0,10 :189,81Q:0,10 so21,77M:0,10 :23,79O:0,10 :25,81Q:0,10 x21,77M:4,4:38&,70F:17,17:38&,70F:-10 ,0:557,87W:-10 ,0:15,72H:17,17 X10 ,5;144;11 ,5;145;11 ,4;146 s9 ,4;149;8,4;144;9 ,15;161;8,15;160 w15,7;144;16,7;149;14,25;160;15,25;161 s10 ,1;144;11 ,1;149;8,2;144;9 ,2;149 w6,27;160;7,27;161;18,29;160;19,29;161 511 ,28;"o ";12 ,28;" " =18,16;160;19,16;161 , 4:"" SPEECH  >????&??xpq~>???p~>??~????p?1???>1??`?????B? 7~3?=?c2M&f$1mԶLɱ8̶g;$c-yM1s!N ̉ݒnd˴ۛf^I6gٛ"=g3D0gcfc1Bwm`?{@?h?A!p?<s|c<???#/ ??πx?O~b|C7?ǘ?|??????????`g9a{?1{| !R#LE8: >0+o Z8 {w+z0 #~<(+DM P P P 88 MPP \Wq !v>pxp PPPx `0 ID‚`08x8||||| ? c=1c=45,5;"The Weather is Fine." jfc=25,2;"The Weather is showery and"," the Light poor.",,," Expect stoppages." kSc=35,5;"The Weather is wet."," Expect stoppages for rain." w 200 z:"You have just be selected to","Captain England.":4,0;"As England's best batsman, you","will bat third." 6,0;"Each Innings has 40 overs but","there could be stoppages for","bad weather. If the No. of overs";"lost on each side are unequal,","the match will be decided on run-rate." ^13 ,0;"In the interests of realism the last man will always be nought not out." ^18,0;"First you must take the toss!","Enter H or T for heads or tails." a$::a$="h"a$="t"150 145 c=(*2)+1 c=2170 10 ,10 ;1;"You've won.";12 ,6;0;"Bat first? (Y OR N)":a$::a$="y"bf=1:180 a$="n"1000 160 p:10 ,10 ;1;"You've lost.";12 ,3;0;"West Indies are deciding.":100d V<.516,0;"They've decided to bat first.":200:1000 K16,1;"They've decided to bat second.":bf=1:100d 5:5:1: ^10 ,1;1;"England's innings begins now.":150:0::2000 Et=0:sc=0:o=40(:v=20:x=0:p=1 O3,2;"Your team is:-":n=111 :,e$(n):n:150: :2500 @o=o-1-st-m:eo=eo+1:g=g+st:st=0:m=0 (o+1)>0225 2eo>wow=20(o+1)>01400x &(o+1)0eowo545! '(o+1)0eo10 ga=10 :225 b=3ho=ho+1 Pb=3ho10 w$(10 );"is to bowl this over.",,,"Skill value ";b /b=3ho>10 ho=10 :225 b=2qu=qu+1 Ob=2qu10 w$(9 );"is to bowl this over.",,,"Skill value ";b  /b=2qu>10 qu=10 :225 b=1im=im+1 Ob=1im10 w$(8);"is to bowl this over.",,,"Skill value ";b /b=1im>10 im=10 :225 M6,0;"Enter first letter of stroke andfirst letter of bowler:-" "10 ,10 ;"D = DEFENCE":12 ,10 ;"A = ATTACK":11 ,10 ;"S = STROKE":13 ,10 ;"B = BIG SLOG":c$ '+c$="dg"sc=(*3):ou=(*5) (,c$="dh"sc=( *4):ou=(*6) ),c$="dm"sc=(*4):ou=(*10 ) *,c$="db"sc=(*5):ou=(*12 ) ++c$="sg"sc=(*6):ou=(*4) ,+c$="sh"sc=(*7):ou=(*5) -+c$="sm"sc=(*8):ou=(*5) .+c$="sb"sc=(*9 ):ou=(*7) /;c$="ag"sc=(*5)+3:ou=(*3)+1 03c$="ah"sc=(*9 )+3:ou=(*4) 13c$="am"sc=(*9 )+5:ou=(*5) 23c$="ab"sc=(*7)+7:ou=(*5) 3/c$="bg"sc=(*10 )+4:ou=2 4/c$="bh"sc=(*10 )+6:ou=2 5=c$="bm"sc=(*10 )+10 :ou=(*2)+1 6=c$="bb"sc=(*15)+15:ou=(*2)+1 ;ou=2sc=(*4) <t=t+sc:x=x+sc: =bc=4gar=gar+sc >bc=3hor=hor+sc ?bc=2qur=qur+sc @bc=1imr=imr+sc A(bc=4ou=2gaw=gaw+1 B(bc=3ou=2how=how+1 C(bc=2ou=2quw=quw+1 D(bc=1ou=2imw=imw+1 O P 3700t Q5:5:1: R 9600% S 3500 TIou=2p3e$(p);"is out - ";h$(h):j$(p)=h$(h):fir=0 YHou=2p=3"You are out - ";h$(h):j$(p)=h$(h):fir=0 c e(p)=x:b$(p)=w$(bc+7): hKp3e$(p);"scored ";sc;" runs.","His innings total is ";x;" runs." mJp=3"You scored ";sc;" runs.","Your innings total is ";x;" runs." 3ou=2p=p+1:x=0:esp=p-1 $eti=eti+i:t=t+i:i=0:esc=t Jp=11 "The Score is ";t;" runs all out."::"Overs remaining = ";o Xp<11 "The Score is ";t;" runs for ";p-1;" wks."::"Overs remaining = ";o <:"Overs bowled = ";eo::"England's run-rate = ";esc/eo: 6w=20"W.Indies' run-rate = ";wsc/(wo-1) Ew=2019,0;"England = ";esc;" W.Indies = ";wsc 821,1;"PRESS ANY LETTER TO CONTINUE" =""520  ou=27000X  "p=11 ou=2545!  esc>wscw=201400x p12 195 !:w=20p-1<10 10 ,7;"Innings complete.",,," Total is ";t;" runs for ";p-1;" wks.",,," Wait for final result." #w=20p-1=10 10 ,7;"Innings complete.",,," Total is ";t;" runs for all out.",,," Wait for final result." &w20p-1<10 10 ,7;"Innings complete.",,," Total is ";t;" runs for ";p-1;" wks.",,,"W.Indies's innings to start now.",," They have ";t;" runs to beat." (w20p-1=10 10 ,7;"Innings complete.",,," Total is ";t;" runs all out.",,,"W.Indies's innings to start now.",," They have ";t;" runs to beat." +%300,::ou27000X 0w=201400x 7:7:2 !WEST INDIES BATTING S:sc=0:t=0:o=40(:te=0:p=1:w=20:x=0 ^10 ,1;1;"W.Indies' innings begins now.":150:0::2000 Q3,1;"W.Indies team is:-":n=111 :,w$(n):n:200 :2500 ao=o-1-st-g:m=m+st:st=0:g=0:wo=wo+1:(o+1)>01035  %o+10woeo1350F 0wo>eov=20o+1>01400x %o+10woescv=201410  1012 F:v20p-1<10 10 ,8;"INNINGS COMPLETE",,," Total is ";t;" runs for ";p-1;" wks.",,," England's innings to start now.",," They have ";t;" runs to beat." Hv20p-1=10 10 ,8;"INNINGS COMPLETE",,," Total is ";t;" runs for all out.",,," England's innings to start now.",," They have ";t;" runs to beat." Pv=20p-1<10 10 ,8;"INNINGS COMPLETE",,," Total is ";t;" runs for ";p-1;".",,," Wait for final result." Rv=20p-1=10 10 ,8;"INNINGS COMPLETE",,," Total is ";t;" runs for all out.",,," Wait for final result." Z 300, iv20180 x6:6:0: z:esc>wscbf=110 ,3;"England win by ";esc-wsc;" runs.",,,,," ";1;"CONGRATULATIONS";0,,,,,"You keep your place as Captain." zescwscbf=010 ,2;"England win by ";10 -esp;" wickets.",,,,,1;12 ,7;"CONGRATULATIONS";0 escg$(1)="No Balls" Cg$(2)="Byes" Hg$(3)="Leg Byes" Mg$(4)="Overthrows" Rg$(5)="Wides" Wh$(1)=" " Xh$(6)="lbw." Yh$(7)="bowled." Zh$(2)="caught." [h$(4)="caught." \h$(3)="stumped." ]h$(5)="played-on." ^h$(8)="bowled." _h$(9 )="bowled."  7c=1c=4o35#o152800 (o<35#o>15a=(*502) !a=2a=12600( a=32700 +a1a2a32800 (st=(*5)+1:10 ,5;"Bad Light stops play.";12 ,2;"Play is reduced by ";st;" overs.":a=0:200::2800 st=(*12 )+1:10 ,5;"Rain disrupts play.";12 ,2;"Play is reduced by ";st;" overs.":200 : w200::10 ,0;"England's run-rate = ";esc/(eo-1)::"W.Indies' run-rate = ";wsc/(wo-1): 8:(esc/eo)>(wsc/wo)"England win. Superior run-rate." 7(esc/eo)<(wsc/wo)"W.Indies win. Superior run-rate." Cesc/eo=wsc/woesp>wsp" W.Indies win by ";10 -wsp;" wkts." Cesc/eo=wsc/woesp.2~L9500% 0l=(*5)+1:i=(*4)+1 g$(l);" = ";i;" runs." l=0:  <3:4:0: *****FIELD PLACINGS**** =11 ,31;160;12 ,31;161 ^3,0;2;""  0,0;6;"";1;1;0,0;"** *** **** ****** ***** **** ********** *** ****** * ** ******** **** ******* ***** ***** *****";0 1,5;0;"";2,5;"";3,5;"";4,5;"":2,5;1;;"~:.'";3,5;"~:'";1,5;"#" s9 ,4;149;8,4;144;9 ,15;161;8,15;160 73,12 ;1;7;"C O R N H I L L" 15,7;144;16,7;149;18,16;160;19,16;161;14,25;160;15,25;161 s10 ,1;144;11 ,1;149;8,2;144;9 ,2;149 w5,27;160;6,27;161;20,29;160;21,29;161 ǘ165,70F:17,17:165,70F:10 ,0:182,87W:10 ,0:185,77M:4,4 r185,77M:0,10 :187,79O:0,10 :189,81Q:0,10 o21,77M:0,10 :23,79O:0,10 :25,81Q:0,10 ʖ21,87W:4,4:38&,70F:17,17:38&,70F:-10 ,0:557,87W:-10 ,0 &15,72H:17,17 **,,,,,*BATSMAN***** 10 ,5;144 11 ,5;145 11 ,4;146  502  RUN-UP  K.25~,0:.25~,0:.25~,0:1,-3  u=30 /11 ,31;" ";12 ,31;" "  n=17:u=u-1 M11 ,u;"o ";12 ,u;" ":2:12 ,u;" ":2 n %11 ,u;" ";12 ,u;" " 165,70F:17,17:165,70F:10 ,0:182,87W:10 ,0:185,77M:4,4 =11 ,23;160;12 ,23;161 ****DELIVERY,,,,,,,,,, @d=21:b=15:d=d-3:11 ,d;"o " d=18165,70F:17,17:165,70F:10 ,0:182,87W:10 ,0:185,77M:4,4  STROKE  &189,81Q:0,10 :d=1511 ,4;" ":10 ,4;"" #d=12 10 ,4;"" 9d=9 11 ,4;" ":10 ,4;"" |d=610 ,4;" ":11 ,4;"";11 ,4;" ";11 ,5;"";11 ,6;"o" b:11 ,7;" " L38&,70F:17,17:557,87W:-10 ,0 ****HOW OUT!********** ou=25200P ou25096 tn=0:yst=0 &sc10 tn=(*4)+1 tn=15115 tn=25160( tn=351702 tn=45130  'sc<10 yst=(*3)+1 yst=15150 yst=25140 yst=35180< gd=11 :e=7:n=18:d=d-1:e=e+2:d,e;"o";d+1,e-2;" " +d=34,21;2;""  n:d,e;" "  3,23;7;""  5184@  td=11 :e=7:n=18:d=d+1:e=e+1:d,e;"o";d-1,e-1;" ":n:d,e;" "  5184@ We=7:n=14:e=e+1:11 ,e;"o";11 ,e-1;" ":n  5184@ td=13 :e=5:n=15:d=d+1:e=e-1:d,e;"o";d-1,e+1;" ":n:d,e;" " ! 5184@ (td=11 :e=8:n=17:d=d+1:e=e+3:d,e;"o";d-1,e-3;" ":n:d,e;" " + 5184@ 2td=11 :e=8:n=17:d=d-1:e=e+3:d,e;"o";d+1,e-3;" ":n:d,e;" " 4 2;4,29;"" 5 5184@  n:d,e;" " ?21,87W:4,4:38&,70F:17,17:38&,70F:-10 ,0:557,87W:-10 ,0 @~.1}L,0:.1}L,1:.1}L,2:.1}L,3:.1}L,4:.1}L,5:.1}L,6 A 5827 Ph=(*7)+2 Uh75300 Z!h=2h=45400 _h=35600 ah=65700D dh=55800 11 ,2;"o" H20,89Y:2,2:23,91[:2,2 64899  8000@  5826 jd=11 :e=7:n=14:d=d-1:e=e+2:d,e;"o";d+1,e-2;" ":n g7,15;162;8,15;163;9 ,15;" ";6,15;"o" 64899 , 8000@ . 5826 }10 ,2;151;11 ,2;145;10 ,3;"o";10 ,1;" ";11 ,1;" " 64899  8000@:  5826 DQ10 ,5;144;11 ,5;149;11 ,6;"o" E64899 I 8000@ N 5826 11 ,5;" ";10 ,5;" ";12 ,3;"o";10 ,4;151;11 ,4;145;12 ,3;" "  5 11 ,2;" ";10 ,3;144;11 ,3;149;10 ,4;" ";11 ,4;" ";12 ,2;"o" s21,77M:-12 ,10 :23,79O:-8,10 :25,81Q:-5,10 L38&,70F:17,17:557,87W:-10 ,0 64899  8000@ .5,0:.5,0:.1}L,0:.5,0:.5,3:.1}L,2:.5,2:.1}L,0:.5,0:.1}L,-1:.5,0 : p3:3:7: sa=32 :k=-1 u.n=121:a=a-1:k=k+1 z8k,a;"   WELCOME TO THE TESTMATCH " {#a=310,31;" " n 521,12 ;"  "  502 1;2,3;"W";3,3;"E";4,3;"L";5,3;"C";6,3;"O";7,3;"M";8,3;"E" 1;10 ,3;"T";11 ,3;"O";13 ,3;"T";14,3;"H";15,3;"E";17,3;"T";18,3;"E" 61;19,3;"S";20,3;"T"  200 4:4: ,a=12 :n=08:a=a+1 a,13 ;" " n 12 ,13 ;"" Ia=31:n=115:a=a-2:2;13 ,a;"O " Ya=13 11 ,15;"";11 ,13 ;"";12 ,13 ;" " Fa=11 10 ,11 ;" ";11 ,13 ;" " Ha=9 9 ,9 ;" ";10 ,11 ;" " La=78,7;" ";9 ,9 ;" " Ta=57,5;" ";8,7;" " \a=36,5;" ";7,5;" " da=15,5;" ";6,5;" "  Aa=10;5,5;"H O W ' S T H A T !" N 64899 X100d:1;5,2;" COPYRIGHT TO BOSOFT 1984 ":100d: 7 X ]*1,7;"ENGLAND SCORECARD" b:n=1esp+1:0;e$(n);9 ;j$(n);20;b$(n);29;e(n):n:esp+3,9 ;"not out " *16,1;"Extras";29;eti Vesp<10 18,1;"Total";15;"(for ";esp;" wkts)";29;esc Mesp=10 18,1;"Total";15;"(all out)";29;esc 321,2;"PRESS ANY KEY TO CONTINUE" =""7130 *:3,8;"BOWLING FIGURES" H5,11 ;"OVRS";19;"RUNS";27;"WKTS" H7,1;w$(11 );12 ;ga;20;gar;29;gaw H9 ,1;w$(10 );12 ;ho;20;hor;29;how H11 ,1;w$(9 );12 ;qu;20;qur;29;quw H13 ,1;w$(8);12 ;im;20;imr;29;imw 321,2;"PRESS ANY KEY TO CONTINUE"  =""7435  K Q/:1,7;"W.INDIES SCORECARD": Un=1wsp+1:0;w$(n);9 ;l$(n);20;f$(n);29;w(n):n:wsp+3,9 ;"not out " [*16,1;"Extras";29;wti `Vwsp<10 18,1;"Total";15;"(for ";wsp;" wkts)";29;wsc cMwsp=10 18,1;"Total";15;"(all out)";29;wsc e321,2;"PRESS ANY KEY TO CONTINUE" j=""7530j *:3,8;"BOWLING FIGURES" H5,11 ;"OVRS";19;"RUNS";27;"WKTS" P7,1;e$(11 );12 ;wi+1;20;wir;29;wiw P9 ,1;e$(10 );12 ;co+1;20;cor;29;cow P11 ,1;e$(9 );12 ;di+1;20;dir;29;diw P13 ,1;e$(8);12 ;bo+1;20;bor;29;bow 321,3;"PRESS ANY KEY TO CONTINUE" =""7650 ? @n=110 A!h=2h=48004D B;8,15;162;9 ,15;163 D15,7;162;16,7;163;18,16;162;19,16;163;14,25;162;15,25;163 E98,2;162;9 ,2;163 J5,27;162;6,27;163;20,29;162;21,29;163;9 ,4;163;8,4;162 L.015zu\,40( O15,7;160;16,7;161;18,16;160;19,16;161;14,25;160;15,25;161 Q5,27;160;6,27;161;20,29;160;21,29;161;9 ,4;161;8,4;160 S!h=2h=48025Y T;8,15;160;9 ,15;161 Y.015zu\,30 ]n ^ %rx502fir=0:1;10 ,3;"APPLAUSE FOR A SUPER 50":0:fir=1:9830f& %xx100dfir=1:1;10 ,1;"APPLAUSE FOR A GREAT CENTURY":0:fir=2:9830f& %tx150fir=2:1;10 ,3;"APPLAUSE FOR A GREAT 150":0:fir=3:9830f& %nx200fir=3:1;10 ,7;"A DOUBLE CENTURY !":0:fir=4:9830f& %: &fbn=120:.05|L,n*2:n:tun=n:n=125:.025{L,tun*2:n &z j