ZXTape! 2 AshesPulsonic C. J. Dunn1984BASICCricket Simulator2.99NoneQPerfect TZX sampled from the original cassette by Church of the Latter-Day SpeccyeCRASH #5; "Rather an odd-ball simulation, but for those who enjoy cricket it may prove to be fun" 49%ASHES ݖF' M:0:"Ashes":800 :0::23658j\,23658j\+8 ,8900":W="a""u"+7:a:W,a:W 7::4,7;"PUBLISHED BY ";1;"";0;5,7;1;" C.J.DUNN";0;" ";1;"":9 ,7;"COPYRIGHT WARNING":,,,,"CASES COMPUTER SIMULATIONS LTD will rigorously protect the copyright of ASHES. Please note unauthorised copying, hiring, and lending of this software is strictly prohibited.";21,2;6;1;"Press any key to continue":0 A>2:2::TEAM=0:7:.5,35# FY10 ,0;" DO YOU REQUIRE INSTRUCTIONS (Y/N)?":=""70F P="N"190 U="Y"90Z X 70F Z:10 ,9 ;1;"INSTRUCTIONS":.5,20:150::.2~L,35#:5,0;" ASHES is a cricket game which simulates a test match between England and Australia for the Ashes.";11 ,0;" The program allows for choice of venue,naming of team members,field placement,bowling and batting,all depicted graphicallyon screen."::21,6;"ENTER to continue":0 d :.2~L,35#:0,5;"VENUE AND TEAM CHOICE";2,0;" There are ten possible venues at which the game can be played.Each of these pitches plays differently. It is important to remember this fact,especially inchoosing types of bowler." i9 ,0;" Each team of eleven is made upas follows: 1-5 BATSMEN";11 ,14;"6 ALL-ROUNDER";12 ,14;"7 WICKET KEEPER";13 ,11 ;"8-11 BOWLERS (The all-rounder is both a batsman and a bowler). You are also allowed to specify types of bowler as detailed below:";19,0;"(1)FAST (2)SEAM/SWING (3)SPIN"::21,6;"ENTER to continue":0  n:.2~L,35#:4,0;" If you do not wish to name your own teams then there is an option which allows you to use two teams stored in the computer";10 ,12 ;"THE TOSS";12 ,0;" The winner of the toss decideswhich team bats first. To an extent this decision should be guided by the pitch and the types of bowlers in the respective teams"::21,6;"ENTER to continue":0 s?:.2~L,35#:0,8;"FIELD PLACEMENT";3,0;" Excluding the bowler and wicket keeper you have nine fielders.The placement and alteration of the field is a crucial part of ASHES,for instance if a batsman hooks he is more likely to be caught if there are fielders in position for such a catch.The positioningof the field also affects the number of runs scored from a shot. There are - including slips - twenty possible fieldingpositions for the nine fielders."::21,6;"ENTER to continue":0 x~:.2~L,35#:0,12 ;"BOWLING";3,0;" You have five bowlers who may bowl without any limit but may not bowl CONSECUTIVE overs. A ball is bowled by specifyingits line and length: LINE:";9 ,0;"1-outside of leg stump. 2-on leg stump. 3-middle and off stump. 4-just outside of off stump. 5-wide of off stump. LENGTH:";15,0;"1-bouncer 2-short 3-good length 4-over pitched";18,0;" Thus to bowl a leg stump bouncer key in 21 ENTER."::21,6;"ENTER to continue":0  }f:.2~L,35#:0,0;"You will soon get the hang of this,just remember that to bowl you type in line length ENTER, where line can be 1,2,3,4,or 5, and length can be 1,2,3or 4. On screen the pitch of a ball is marked by a change in the colour(from white to black)of the plot of the ball's course.";11 ,12 ;"BATTING" 13 ,0;" The batsman must try to match his stroke to the ball. The better he acheives this the lesschance there is of being out. You will doubtless soon find this out for yourself."::21,6;"ENTER to continue":0 b:.2~L,35#:0,0;"Batting Strokes:";2,0;"1-DEFENSIVE";3,0;"2-LEG GLANCE";4,0;"3-HOOK";5,0;"4-PULL";6,0;"5-ON DRIVE";7,0;"6-STRAIGHT DRIVE";8,0;"7-OFF DRIVE";9 ,0;"8-COVER DRIVE";10 ,0;"9-CUT";12 ,0;" If none of these keys are pressed then the batsman is assumed not to have played a stroke. By looking at the position of the stroke keys on the keyboard it is easy to see their arrangement."::21,6;"ENTER to continue":0 :.2~L,35#:3,0;"TREATING STROKE 6 (straight drive) AS MIDDLE,ON-SIDE SHOTS ARE ON THE LEFT HAND SIDE OF THEKEYBOARD (note that 1 is the defensive shot) AND OFF-SIDE SHOTS ARE ON THE RIGHT HAND SIDEOF THE KEYBOARD.";11 ,0;" A stroke can be played once the ball reaches the stumps by pressing the appropriate stroke key, until the dual tone is heard, within the required time.Otherwise the batsman is assumednot to have played a stroke."::21,6;"ENTER to continue":0 9:.2~L,35#:2,3;"DECLARATION AND FOLLOW-ON";5,0;" When a captain of a team feelshe has enough runs and that to continue batting would not be advantageous to his chances of winning he may declare his sidesinnings closed. If after completion of first innings the team batting second trails by 200 or more runs,the team batting first may enforce the follow-on making the other team bat again straight-away. Declarations can be made via theFacilities Menu."::21,6;"ENTER to continue":0 :.2~L,35#:3,8;"FACILITIES MENU";5,0;"May be accessed by typing 99 in reply to TYPE OF BALL ? Includes field changes,venue andteam lists,scorecards and declarations.";12 ,13 ;"WEATHER";14,0;" At any stage of the game the weather may interrupt play. Rainis likely to change the character of the pitch, normallyin favour of spin for a few overs and then pace."::21,6;"ENTER to continue":0 :236099\,120x f1:1::11 ,10 ;7;1;"TEST VENUE":.05|L,35#:150 :.05|L,35#:8,0;6;" You have a choice of ten test match venues. One pitch may suitfast bowlers while another may suit the slower bowlers. Thus the choice of pitch and how it will play has implications for team selection later on." fVEN=0:21,6;7;"ENTER to continue":0:85004!:.05|L,35# BWIN=0:COPY=0:FON=0:F(10 ):U(10 ) .8750.":N=110 :U(N),F(N):N N"CHOICE OF VENUE (1-10)? ";VEN:VENɺVENVEN>10 VEN<1210 CH=U(VEN):PITCH=F(VEN) G(10 ):ROT=0:K(4):H$(11 ,9 ):M=0:BA=1:BB=2:SW=0:BWLR=0:W(4):L(4):O(4):C(44,):D(44,):E(44,):C$(2,9 ):C$(1)="AUSTRALIA":C$(2)=" ENGLAND" TEAM=1420 [A(11 ):B(11 ):A$(11 ,9 ):B$(11 ,9 ):0:0:7::10 ,8;1;"TEAM SELECTION":200::.05|L,35#:10 ,0;6;"Do you wish to name your own teams (Y) or to use the teams stored in the computer(N) ?":0,0;"Y/N ?";l$:l$="Y"280 l$"N"260 P0:0::4,0;"ENGLAND","AUSTRALIA":.05|L,35#  N=111 :B$(N),A$(N):.1}L,-20:5+N,0;N;5+N,3;B$(N),N;5+N,19;A$(N):.1}L,-20:N=6N>7N11 B(N),A(N):5+N,12 ;"(";B(N);")";5+N,28;"(";A(N);")" N:18,0;"BOWLER TYPE: (1)Fast (2)Swing/seam (3)Spin";21,0;"Press ENTER to continue":0::420 p8900"::J=12:J=16;2,12 ;"ENGLAND":.2~L,40(:290" ;6;2,11 ;"AUSTRALIA":.2~L,40( "@I=111 :4+I,4;I:J=1300, #;("TEAM MEMBER No.";I;" ");A$(I):4+I,8;A$(I) $I=6I>7I11 0,0;"TYPE OF BOWLER: (1) FAST (2) SEAM/SWING (3)SPIN INPUT TYPE(1,2 OR 3) ";A(I):A(I)1A(I)2A(I)3292$ %BI=6I>7I11 4+I,18;"(";A(I);")" &I:3106 ,;("TEAM MEMBER No.";I;" ");B$(I):4+I,8;B$(I) -I=6I>7I11 0,0;"TYPE OF BOWLER: (1) FAST (2)SEAM/SWING (3)SPIN INPUT TYPE(1,2 OR 3) ";B(I):B(I)1B(I)2B(I)3301- .BI=6I>7I11 4+I,18;"(";B(I);")" 0I 6150::J Y0:0::.05|L,35#:1;7;11 ,12 ;"THE TOSS" <150:11 ,7;7;"The toss is won by" ؙN=1̺(*20)+20:N/2=(N/2)6;13 ,11 ;"AUSTRALIA":.09}8Q,35#:.09}8Q,35#:N:480 _13 ,11 ;5;" ENGLAND ":.09}8Q,42*:.09}8Q,42*:N:480  120x 7:11 ,7;" ";12 ,2;"The captain of";14,16;"may choose which team bats first":0,0;"Name the team batting first (i.e.ENGLAND OR AUSTRALIA) ";J$ kJ$="AUSTRALIA"K(1)=1:K(2)=2:K(3)=1:K(4)=2:500 iJ$="ENGLAND"K(1)=2:K(2)=1:K(3)=2:K(4)=1:500  481 H(2):NEWINNS=0:DEC=0:OUT=0:RUNS=0:BOUN=0:Q=0:SLPS=0:FLDRS=0:V$(1,5):P(16):R(16):S(16):T$(16,19) T:.05|L,35#:1;10 ,7;"FIELDING POSITIONS":200: 49000(#:N=116:R(N),S(N),T$(N):N &RET=1:8100:RET=0 N=116 ?20,0;"Positions chosen so far: ";FLDRS;" "  %FLDRS=9 300,:596T M21,0;"(";N;")";T$(N);" ?(Y/N) ":I$:I$"Y"I$"N"530 I$"Y"5600 &>R(N),S(N);6;"";N:P(N)=1:FLDRS=FLDRS+1 0(N:FLDRS=9 300,:596T :A5100:21,0;"Positions chosen so far: ";FLDRS DF"Number of slips(max 4)?";SLPS:SLPS>4SLPS<0580D NrFLDRS+SLPS=9 21,25;"9":502:RET=1:8130:RET=0:300,:596T S9000(#::10 ,0;"You have 9 fielding positions to choose, no more, no less!":1,45-:150::500 TM=03::5:5::M<211 ,5;0;1;C$(K(M+1));" 1ST INNS.":598V UE11 ,5;1;0;C$(K(M+1));" 2ND INNS." VaH(1)>H(2)21,2;C$(1);" lead by ";H(1)-H(2);" runs." WaH(2)>H(1)21,2;C$(2);" lead by ";H(2)-H(1);" runs." X*N=170F:.04|# =,0:N Y:BA=1+M*11 :BB=2+M*11 :5000 Z"Bowler number ?";BWLR:BWLR=7BWLR>11 BWLR<6:10 ,0;0;"ONLY PLAYERS 6,8,9,10 AND 11 MAYBOWL":.3,-15:.73333,-20:200:BWLR=0:5000:602Z [1CO=1:BA-M*11 >6CO=1.5@ ]z0;6;20,11 ;"";20,19;" ";7;20,5;BWLR:RUNS=0:710 _EOUT0T7=BA:1700:NEWINNS=1NEWINNS=0:M `7E(BA)<502E(BA)+RUNS502T6=BA:4200h a9E(BA)<100dE(BA)+RUNS100dT6=BA:4000 bE(BA)=E(BA)+RUNS:L(M+1)=L(M+1)+RUNS:O(M+1)=O(M+1)+1:5050:M=3H(K(4))+L(4)>H(K(3))8640! c9(O(M+1)/6)O(M+1)/6614f dN=130:.01z# =,45-:N:0,0;1;"NEW OVER.......number of NEW bowler ? ";SW:SW=BWLRSW=7SW>11 SW<6611c eBWLR=SW:7;0;20,5;BWLR;" ":SW=0:CH=CH+1:CH=40(PITCH<3PITCH=PITCH+1:CH=0 fVRUNS/2=(RUNS/2)O(M+1)/6=(O(M+1)/6)650 gVRUNS/2=(RUNS/2)O(M+1)/6=(O(M+1)/6)605] 1CO=1:BB-M*11 >6CO=1.5@ Z0;6;20,11 ;" ";20,19;"":RUNS=0:710 EOUT0T7=BB:1700:NEWINNS=1NEWINNS=0:M 7E(BB)<502E(BB)+RUNS502T6=BB:4200h 9E(BB)<100dE(BB)+RUNS100dT6=BB:4000 E(BB)=E(BB)+RUNS:L(M+1)=L(M+1)+RUNS:O(M+1)=O(M+1)+1:5050:M=3H(K(4))+L(4)>H(K(3))8640! 9(O(M+1)/6)O(M+1)/6659 n=130:.01z# =,45-:n:0,0;1;"NEW OVER.......number of NEW bowler ? ";SW:SW=BWLRSW>11 SW=7SW<6656 BWLR=SW:7;0;20,5;BWLR;" ":SW=0:CH=CH+1:CH=40(PITCH<3PITCH=PITCH+1:CH=0 VRUNS/2=(RUNS/2)O(M+1)/6=(O(M+1)/6)605] VRUNS/2=(RUNS/2)O(M+1)/6=(O(M+1)/6)650  605] F8000@:DEC=1DEC=0:1770:NEWINNS=0:M  5000 B(*200)=100d5:5:502:7510V HSIM=(*100d)+1:"TYPE OF BALL ? ";B:B=99c705 |(B/10 )>5ź(B/10 )<1źBBź((B+5)/10 )>(B/10 )B/10 =(B/10 )711 !K(M+1)=1720 (A(BWLR)=1RU=5:723 (A(BWLR)=2RU=4:723 RU=2:723 (B(BWLR)=1RU=5:723 (B(BWLR)=2RU=4:723  RU=2 4:130,112p:0:.1}L,5:20:N=1RU:6-RU+N,16;" ";7-RU+N,16;"":.04|# =,-20:25/RU-RU+1:7-RU+N,16;"":.04|# =,-18:25/RU-RU+1:N:7,16;""  7 "11 >BB>14740 2V=B-10 :Z=2:X1=131:880p "21>BB>24760 2V=B-20:Z=4:X1=128:880p "31>BB>34"780  2V=B-30:Z=8:X1=128:880p  "41)>BB>44,810* 3V=B-40(:Z=16:X1=130:880p **V=B-502:X1=131:Y1=112p 4LX=132 2:X1,Y1-1:Y1=112p-V*80 R0Y1=Y1-1:X1,Y1-1:Y1=Y1-1:X f 950 pY1=112p zX=132 Z Y=1Z2 X1,Y1-1:Y1=Y1-1 6X1,Y1-1:Y1=Y1-1:Y1=80P950 !Y1=112p-V*80 Y X1=X1-1:X @5:557:S$=:.30,25:.2~L,20 S$="3"(B=12 B=21B=22B=31B=32 )S$="2"(B=24B=13 B=14)S$="1"(B=22B=23B=24B=32 B=33!B=44,B=34"B=42*B=43+)1100L S$="5"(B=24B=34")S$="6"(B=34"B=44,)S$="4"(B=42*B=44,B=524)S$="9"(B=42*B=524)S$="7"(B=44,B=546)S$="8"(B=535B=546)1100L 0S$="3"(B=11 B=13 B=14B=23B=41)B=42*)S$="1"(B=11 B=12 B=13 B=14B=524B=535B=546)S$="5"(B=12 B=13 B=14B=23B=33!)S$="2"(B=12 B=22B=23B=33!B=34")1120` S$="6"(B=23B=24B=33!B=43+)S$="4"(B=32 B=43+B=535)S$="7"(B=34"B=43+B=535)S$="9"(B=41)B=43+B=513B=535)S$="8"(B=43+B=44,)1120` HS$="1"(B=21B=31B=41)B=513)S$="7"(B=22B=23B=24B=32 B=33!B=42*B=524)S$="6"(B=22B=32 B=42*B=524)S$="5"(B=22B=32 )S$="9"(B=23B=24B=31B=32 B=33!B=34"B=44,)1140t  S$="8"(B=23B=24B=32 B=34"B=33!B=42*B=524)S$="4"(B=23B=24B=31B=33!B=34")S$="3"(B=24B=33!B=34"B=43+B=44,B=513B=524)S$="2"B=32 1140t 9B=23B=24B=33!B=34"1300 :N=14:7+N,14;1;" ":N:0:1;123{-X1,71G-Y1:.5,-20:18,0;1;2;7;RUNS;18,31;RUNS:100d:18,0;" ";18,31;" ":X1,Y1:1;123{-X1,71G-Y1:1;X1,Y1: LPQ=8*CO:K(M+1)=1PITCH=B(BWLR)SIM17*CO1340< NBK(M+1)=2PITCH=A(BWLR)SIM17*CO1340< QSIM>13 *CO1450 V 1340< `QQ=12 *CO:K(M+1)=1PITCH=B(BWLR)SIM28*CO1340< bBK(M+1)=2PITCH=A(BWLR)SIM28*CO1340< eSIM>21*CO1450 j 1340< tQQ=18*CO:K(M+1)=1PITCH=B(BWLR)SIM557*CO1340< vBK(M+1)=2PITCH=A(BWLR)SIM557*CO1340< ySIM>45-*CO1450 ~ 1340< 5100:6:73I,1:0,10 :76L,1:1,10 :79O,1:3,10 :74J,13 :4,1:86V,11 :-2,3 90;21,14;"BOWLED":.73333,40( SN=07:N:.4L,35#-N:N:4:1,27:20 "OUT=1:0:3000 <1PT=(*5)+1:PT=11300 ?PT=21350F @S(PT=3PT=5)(B=23B=24B=33!B=34")1400x APT41420 C'(*5)+1>SLPS1450 D 1375_ Fv0:123{-X1,71G-Y1:2:1,30:6:.6,35#:4:.6,40( Kv5100:6;0;20,0;"OUT.......Caught behind by the wicket-keeper":250 POUT=2:3000 _5100:CA=(*SLPS):5;0;20,4;"AN EDGE.....":X1,Y1:0:131+CA*8-X1,59;+CA*8-Y1:20:.5,-15:.3,-10 :7:.5,-15:1:4 dQ7;0;20,17;"taken by slip.";21,22;"OUT!" i$OUT=2:250:3000 x5100:0;20,1;6;"Appeal for LBW.......":1,25:150:5100:1,20:0;5;20,13 ;"";21,13 ;"";21,15;7;"OUT" }^0:.5,20:.9ffff,25:6:1,-5:4:150 OUT=3:3000 05100:0;6;20,1;"Appeal for LBW.......":.73333,25:150:5100:.5,2:0;7;20,15;"NOT";21,15;"OUT":.5,-8:200:N=14:7+N,14;1;" ":N:5100: ;NK=(*100d)+1:AG=0:S$"1"1500 D30:N=14:7+N,14;1;" ":N 0:TG=(*32 )-16:GT=(*32 )-16:1;TG,GT:1;7;2;18,0;RUNS;18,31;RUNS:120x:18,0;" ";18,31;" ":X1,Y1:1;TG,GT:1;X1,Y1: "S$"2"S$"3"S$"9"1550 NK>Q1510 S$"9"1506 ?AG=(*3)+6:AG=8P(AG)=01510  2000 4AG=(*5)+8:P(AG)=01510  2000 PF=-1:F1=8:F2=12 :S$="9"F=1:F1=6:F2=7 ^J=(*123{)+1:K=(*88X)-80P:K/J>.069} OQ1560 S$"4"1556 AAG=(*3)+13 :AG=15P(AG)=01560  2000 ?AG=(*3)+4:AG=6P(AG)=01560  2000 QF=1:F1=4:F2=6:S$="4"F=-1:F1=12 :F2=14 "VJ=(*123{)+1:K=(*96`):K/J>.762CnK/J<.069} O<1570" ' 7280p , @S$"5"S$"7"1650r BNK>Q1610J CS$"5"1606F DAAG=(*3)+15:AG=17P(AG)=01610J E 2000 F?AG=(*3)+2:AG=4P(AG)=01610J G 2000 JQF=1:F1=2:F2=3:S$="5"F=-1:F1=15:F2=16 TYJ=(*123{)+1:K=(*112p):K/J>2.4445r!K/J<.762Cn1620T Y 7280p ^ r S$"6" tNK>Q1660| u?AG=(*3)+1:AG=3P(AG)=01660| v 2000 |MF=1:F1=1:F2=2:(*2)+1=2F=-1 WJ=(*36$)+1:K=(*112p):K/J>120xK/J<2.4445r!1670  7280p  T7:C(T7)=OUT:D(T7)=BWLR:OUT=0:E(T7)=01900l:1719 [1:1::K(M+1)110 ,0;B$(T7-M*11 ):1715 Q10 ,0;A$(T7-M*11 ):C(T7)=210 ,10 ;"CAUGHT" ,C(T7)=310 ,10 ;"L.B.W." 910 ,17;"B.";B$(D(T7));" ";E(T7):1718 ,C(T7)=210 ,10 ;"CAUGHT" ,C(T7)=310 ,10 ;"L.B.W." -10 ,17;"B.";A$(D(T7));" ";E(T7) 1,-20:100d (T7=BBBA>BBBB=BA+1:1750 "T7=BBBB=BB+1:1750 "BA>BBBA=BA+1:1750 BA=BB+1 FW(M+1)=W(M+1)+1:W(M+1)=10 1770 ROT=1ROT=0:  5000  ?H(K(M+1))=H(K(M+1))+L(M+1):NEWINNS=1 @M=2FON=1H(K(1))>H(K(2))8600! @M=2FON=0H(K(2))>H(K(1))8620! 4M=3H(K(3))>H(K(4))8660! :M=3N=140(:.1}L,N:N:8720" 5:5::M310 ,9 ;1;"END OF INNINGS";0;21,0;"Scorecard sequence follows......":.3,-10 :.3,-10 :.3,-10 :1,-16:502:8200 7M=1L(1)>L(2)+2001800    N=15:.3,5-N:.2~L,4-N:N:.9ffff,-2:8,11 ;"FOLLOW ON";9 ,0;" Will the captain of ";C$(K(1));10 ,0;"decide whether to enforce the follow on or not (Y/N)?":Z$:Z$="N" EZ$="Y"K(3)=K(2):K(4)=K(1):FON=1:  1801  l61:1::K(M+1)11906r ma6,0;6;A$(T7-M*11 ):C(T7)=26,10 ;6;"CAUGHT" n4C(T7)=36,10 ;6;"L.B.W." o<6,17;6;"B.";B$(D(T7));" 0":1910v ra6,0;7;B$(T7-M*11 ):C(T7)=26,10 ;7;"CAUGHT" s4C(T7)=36,10 ;7;"L.B.W." t06,17;7;"B.";A$(D(T7));" 0" vyN=280-1:6;20,N;" ";21,N;" ":2:.07}\(,N-10 :N:25: :N=14:7+N,14;1;" ":N >0:8*S(AG)+2-X1,171-8*R(AG)-Y1 5100:N=07:N:.3,0-N:N:4:.8L,-8:0;7;20,0;" CAUGHT at ";20,11 ;T$(AG):200 OUT=2: : eN=15:A=110 :.05|L,10 -2*N+A*N:A:10 :N:4205m hLN=12:A=112 :.07}\(,25+A:A:5:N me7:5100:K(M+1)=120,6;0;A$(T6-M*11 ):4220| r.20,6;0;B$(T6-M*11 ) |20,16;0;"NOT OUT ";E(T6)+RUNS;21,10 ;6;"WELL PLAYED":250:1,20:5045:  4:4::0:159,167:-73I,0:0,-144,:73I,0:0,144,:119w,79O:8,0:7,15;"_":N=14:7+N,14;1;4;4;" ":N a13 ,15;"":7,16;"":H=116:P(H)=1R(H),S(H);"" H SLPS=05045 /N=1SLPS:15-N,15+N;"":N  5100 ?L(M+1)1000L(M+1)=L(M+1)-1000 z7;0;20,0;"BWLR ";BWLR:6;0;20,12 ;"BATSMAN";20,20;BB-M*11 ;7;20,23;"TOTAL ";L(M+1);2;21,24;"WKTS ";W(M+1);5;21,0;"OVERS ";(O(M+1)/6):BA-M*11 <10 20,10 ;6;0;BA-M*11 :5060 320,9 ;0;6;BA-M*11 IE(BA)=10;7;21,10 ;E(BA):5070 +0;7;21,9 ;E(BA) IE(BB)20;7;21,20;E(BB):5080 ,7;0;21,19;E(BB)  0;20,0;"":0,16:0;255,0  pBOUN=((J-36$)^2+(K-16)^2):MID=79O+K:MID<167MID>23BOUN<5184@J<36$MID<167MID>237340 iBOUN5184@BOUN<8100J>36$K-568K>-72HK88XK<104hRUNS=4 7BOUN8100K-72HK104hRUNS=6 J>112pJ=112p K>94^K=94^ K<-61=K=-61= :N=14:7+N,14;1;" ":N 20:1;123{-X1+F*J,79O-Y1+K 502:7400 :N=14:7+N,14;1;" ":N 20:1;123{-X1+F*J,79O-Y1+K 'DO=11 +Y1-K:DU=244-X1+F*J wN=F1F2:P(N)=1(((DO-8*R(N)))^2+((8*S(N)-DU))^2)<256RUNS=1:7400 N HYOT=(J^2+(K)^2):YOT6400RUNS=3:7400 *YOT2304 RUNS=2:7400 YOT1024RUNS=1 K18,0;2;7;1;RUNS;18,31;RUNS GRUNS>0N=1RUNS:.1}L,20+3*N:3:N {110n:X1,Y1:1;123{-X1+F*J,79O-Y1+K:1;X1,Y1:18,0;" ";18,31;" ": VT5:5::25:16,4;4;" " `g5,13 ;0;"";6,10 ;"";7,9 ;"" jj=15:gg=(*40()+119w:502:0;gg,111o:1:7:-8,-36$:8,8:-8,-36$:7:4:5:4:7:4:5 t-n=190Z:.01z# =,60<-n:n ~b0;gg,111o:7:-8,-36$:8,8:-8,-36$:0 18,0;1;"RAINSTORM...........PLAY DELAYED":j:200:18,0;" PLAY MAY NOW RE-START ":.5,20:100d:CH=30:PITCH=3:5000:712 @ 0::0:6;4,8;"FACILITIES MENU";7;8,3;"1) Field changes.";9 ,3;"2) Scorecards.";10 ,3;"3) Declaration.";11 ,3;"4) Team listings.";12 ,3;"5) Test venue list.";13 ,3;"6) Exit." JU0,0;"Option required (1,2,3,4,5, OR 6)? ";OPT:OPT=18100 TOPT=28200 ^OPT=38300l hOPT=48400 mNOPT=585004!:0,6;"ENTER to continue";u$:8000@ rOPT=6 | 8010J :7:159,167:-73I,0:0,-144,:73I,0:0,144,:119w,79O:8,0:7,15;"_";13 ,15;6;"";7,16;"" LN=116:P(N)=1R(N),S(N);6;"";N:N:8130 R(N),S(N);3;"";N:N ON=14:NSLPS6;15-N,15+N;"":N:8150 3;15-N,15+N;"":N:13 ,19;5;"Slips";14,20;"17";20,0;2;"KEY: Yellow=present positions Magenta=possible positions" RET=1350^: ]0,0;"Number of fielder to be moved (0 TO EXIT)? ";MO:MO=08000@ $MO>17MO<08150 &MO=17SLPS=08150 ,MO=17SLPS=SLPS-1:8160 P(MO)=08150 P(MO)=0 T0,0;"Number of NEW position ?";PO:PO>17PO<18160 PO=178167 P(PO)=18160 P(PO)=1:8100 SLPS=SLPS+1:SLPS=50,0;2;"Max no. of slips is 4":SLPS=4:150:0,0;" ":8160  8100 >J=1M+1:NO=0:0:5:5: \N=111 :K(J)=1H$(N)=A$(N):N:2,5;"AUSTRALIA":8230& ,H$(N)=B$(N):N:2,7;"ENGLAND" &6J22,15;"1st INNS.":82400 +2,15;"2nd INNS." 0N=111 :.1}L,5:4+N,0;H$(N):C(N+(J-1)*11 )=24+N,10 ;"CAUGHT" 5AC(N+(J-1)*11 )=34+N,10 ;"L.B.W." :D(N+(J-1)*11 )>0K(J)=14+N,17;"B.";B$(D(N+(J-1)*11 )):4+N,29;E(N+(J-1)*11 ):N:8265I ?D(N+(J-1)*11 )>04+N,17;"B.";A$(D(N+(J-1)*11 )):4+N,29;E(N+(J-1)*11 ):N:8265I DD(N+(J-1)*11 )=0NO<24+N,16;"NOT OUT";4+N,29;E(N+(J-1)*11 ):NO=NO+1 EN I0,41):255,0:17,0;"OVERS ";(O(J)/6);17,23;1;"TOTAL ";L(J);18,21;"FOR ";W(J);" WKTS" KCOPY=1 N>21,4;0;"ENTER to continue":0:J: l-7::K(M+1)=28320 qDH(1)+L(M+1)>H(2)M>1M18350 v}10 ,0;7;"A DECLARATION CAN NOT BE MADE ASSUCH A MOVE IMPLIES AUTO-MATIC DEFEAT.":300,:8000@ :H(2)+L(M+1)H(1)M>18310v 9 ,0;"INNINGS DECLARED CLOSED AT : ";L(M+1);" FOR ";W(M+1);" WKTS.";12 ,5;"CONFIRM (Y/N)?":=""8350 ="N"8000@ ="Y"DEC=1: 8350 W1:1::7:3,3;"ENGLAND";3,19;"AUSTRALIA" N=111 :.05|L,10 :5+N,0;N;5+N,3;B$(N);5+N,16;N:.05|L,7:5+N,19;A$(N):N=6N>7N11 5+N,12 ;"(";B(N);")";5+N,28;"(";A(N);")" ߗN:19,0;"Bowling key:";20,0;"(1)Fast (2)Seam/swing (3)Spin";6;21,9 ;"ENTER to exit":0:8000@ !47:7::0,0;1;"ENGLAND";1,0;"(1)EDGBASTON";2,0;"Very good batting track";3,0;"(2)HEADINGLEY";4,0;"Seam,swing and bounce";5,0;"(3)LORDS";6,0;"Early pace,bounce,some spin (4)THE OVAL";8,0;"Even bounce,fast and takes spin (5)TRENT BRIDGE";10 ,0;"Paceless,uneven bounce later on" !>v11 ,0;4;"AUSTRALIA";12 ,0;"(6)ADELAIDE";13 ,0;"Green,lively pitch with pace (7)BRISBANE";15,0;"Fast with even bounce and swing (8)MELBOURNE";17,0;"Fast,variable uneven bounce (9)PERTH";19,0;"Grassy pitch unlikely to spin (10)SYDNEY";21,0;"Fast early,taking spin later" !HG0:VEN>0VEN<6VEN*2-1,31;"*": !R(VEN>0VEN*2,31;"*" !\ !*AZ=K(2):AY=K(1):8630! !AZ=K(1):AY=K(2) !0:2:2::N=140(:.1}L,N:N:6,0;C$(AZ);6,15;" ALL OUT";6,29;L(3);1;14,0;C$(AY);" WIN BY AN INNINGS AND";15,13 ;H(AY)-H(AZ);" RUNS":400:WIN=AY:8680! !N=140(:.1}L,N:N:2:2:0::10 ,4;C$(K(4));" WIN BY ";10 -W(4);" WKTS.":400:WIN=K(4):8680! !Ԭ2:2:0::N=140(:.1}L,N:N:10 ,4;C$(K(3));" WIN BY ";H(K(3))-H(K(4));" RUNS":400:WIN=K(3) !:8,14;6;"";9 ,14;"";10 ,14;"";13 ,9 ;"THE ASHES ARE";14,9 ;C$(WIN);"'S";21,0;0;"Scorecard sequence follows......"::400 !COPY=1 !8200 : !r4,10 ;1;C$(WIN);" WON ";0;18,0;"ANOTHER GAME (Y/N)?":="Y":8710" !H="N"20,0;1;"TO RUN AGAIN ENTER:- RUN 20 ": " 8702! "nN=110 :.3,20+N:N:10 ,0;"DO YOU WANT TO KEEP THE SAME TEAMS (Y/N)?" " ="Y"TEAM=1:190 " ="N"TEAM=0:190 " 8711" "1:1:6::8,14;1;"TIE";10 ,14;0;7;"";11 ,14;"";12 ,14;"";14,5;"THE ASHES ARE SHARED";0;21,0;"Scorecard sequence follows......"::400:8700! ".-150,0,-40(,2,20,1,0,1,0,2,-40(,1,-20,1,-30,1,-502,1,-20,1 "`X"BOYCOTT","WOOD","GOOCH","DYSON","TAVARE","HUGHES","GOWER","YALLOP","RANDALL","BORDER" "j"BOTHAM","CHAPPELL",2,2,"KNOTT","MARSH","EDMONDS","BRIGHT",3,3,"DILLEY","LAWSON",1,1,"COWANS","LILLEE",1,1,"WILLIS","HOGG",1,1 "Ċ0,0,0,0,0,0,0,0,28,44,,252,28,12 ,12 ,31,63? "΋0,0,0,1,2,14,252,252,63?,31,64@,33!,24,6,2,0 "؛248,240,7,128,120x,7,192,0,192,192,192,192,192,240,252,254 "254,254,254,254,252,124|,120x,120x,0,0,0,0,0,0,1,3 "0,24,24,60<,126~,255,255,255,0,0,0,0,0,0,128,192 "3,3,15,11 ,11 ,7,3,3,192,192,240,208,208,224,192,192 #0,0,0,0,0,0,3,15,255,60<,24,24,24,255,255,255,0,0,0,0,0,0,192,240 # )0,568,568,16,124|,16,40(,68D,31,63?,112p,224,224,112p,63?,31,0,15,15,3,1,0,127,127,0,254,254,128,192,224,240,240 #240,240,192,192,0,0,0,0,0,0,0,0,240,240,480,480 #(r 2,13 ,"Long on",2,19,"Long off",7,18,"Mid off",5,26,"Deep cover" #29 ,20,"Cover",11 ,27,"Deep point",17,20,"Third man",17,10 ,"Deep fine leg",14,13 ,"Short fine leg" #<11 ,10 ,"Square leg",15,5,"Deep b'ckw'd sq'leg",11 ,3,"Deep square leg",7,4,"Deep mid-wicket",9 ,11 ,"Mid-wicket",3,7,"Deep mid-on",7,12 ,"Mid-on" a0Ashes @e@@2@ ͠ 8@ <@0B@~B<@Bx@?~B<~BBx&00:`N@@0P<<B>  ~@ @@x8888x8888h8h 8x88@x<8@(88D@@888DD 0DDD DTDT< D DD|DD0@x 0 0DTx0 x<0D<D<x DD<x xTxT" D<< 88D< < |B|@  @<@ <8@8BD8BB8@BDD~DDD8BB<BxxDD<<~x<<@  @B|D<<8<(8 <<