ZXTape! 0Created with Ramsoft MakeTZXTENNIS z Started 3.11.88 "W$(2):P$(2,2) 8B$(20):C$(20):D$(20):E$(20) (a$(24):h$(24) 2h(2):j(2) d 4 iDa=117:6;" ":a j76;2,3;" " k76;3,3;" " l76;4,3;" " m76;5,3;" " n76;6,3;" " o76;8,4;" " p76;9 ,4;" " q86;10 ,4;" " r86;11 ,4;" " s86;12 ,4;" " yy2:6;14,7;" By John Gardiner":6;16,0;"" z<7:18,1;"Adapted from Lambourne Games'" {," game 'TOP TENNIS' which is " |&20,8;"their copyright." }150:0 ~ 150  500 Inj=0 418,1;"Enter 1. For Seeded Draw " 419,1;" 2. To Choose Players " 520,1;" 3. Change Tournament Name" 521,1;" 4. Create Player Rating " Q$ part=0 Q$="1"200 Q$="2"600X Q$="3"500 Q$="4"4500 Q$>"4"Q$<"1"135 Cap Lock and Print Width 23658j\,8 ""80 Col. Wide Printer (Y/N)?";Q$ Q$="N"Q$="n"col=32 : Q$="Y"Q$="y"col=80P: 160 Seeded draw routine 5:7:1: 34,5;"SEEDED TOURNAMENT DRAW" 35,5;"======================" W10 ,0;"This routine will allow you to set up the first round of any Tournament if all players are seeded in numeric order. Total number of players must be 4,8,1632,64,128,256, or 512 ! If you have an odd number of players then play a knockout round firstbetween lowest rated players to obtain one of the above numbers" "Number of players ? ";n en=4n=8n=16n=32 n=64@n=128n=256n=512260  250   19 ,6;1;"Draw being made...." k=(n)/(2) l=(k) " g(n):h(n) ,"seed=1:g(1)=1 6 i=1l @ k=1 Jj=12^(i-1) ^seed=seed+1 h+h(k)=g(j):h(k+1)=seed:k=k+2 rj |j=1n:g(j)=h(j):j i z=seed+1n seed=seed+1  g(z)=seed z  0: "" line=1 line,3;"FIRST ROUND:" : line=line+2 i=1n2 33;g(i);6;"v.";9 ;g(i+1) line=line+1 line=20490 i ""Press 'C' to copy or ENTER ";Q$ Q$="C"Q$="c" `line=20:line=1:line,3;"FIRST ROUND CONTINUED:":::line=line+2:  :0  8000@  130 Tournament Name 617,0;" " :a=14:" ":a 518,0;" Name of Tournament to Replay ?" 419,7;"(Max 30 Letters)" T$ !T$>30500 &(20,1;1;1;T$ 0"Is this correct (Y/N) ? ";Q$ :Q$="N"Q$="n"500 D 8000@ N 128 XInput Player data b 8200 l618,0;"Enter Singles (S) or Doubles (D)" q W$(1) s,W$(1)="D"W$(1)="S"630v t 620l vGW$(1)="D"18,0;"Enter (M)en,(W)omen,or Mixed(B) " xGW$(1)="S"18,0;"Enter (M)en or (W)omen " { W$(2) |,W$(2)="B"W$(1)="S"630v }<W$(2)="M"W$(2)="W"W$(2)="B"640 ~ 630v Q18,0;"(I)nput players yourself or (R)ecall data from memory ?" Q$ Q$="R"Q$="r"780  Q$"I"640 R18,0;"Enter Name of first player (max of 13 letters) " B$(13 )  4,0;B$(13 ) R18,0;"Enter Name of second player (max of 13 letters) " C$(13 ) !4,17;C$(13 ) ,W$(1)="D"W$(1)="d"950  8200 @18,0;"Enter Grade of first player(s) (2 Digits)" RB$(1415):b=B$(1415):b>10 b<1695 NW$(1)="D"W$(1)="d"D$(1415)=B$(1415) 18,3;4;B$(1415) A18,0;"Enter PP No. of first player(s) (2 Digits) " RB$(1617):d=B$(1617):d<7d>12 710 NW$(1)="D"W$(1)="d"D$(1617)=B$(1617) 18,6;4;B$(1617) @18,0;"Enter Grade of second player(s) (2 Digits)" RC$(1415):c=C$(1415):c<1c>10 725 NW$(1)="D"W$(1)="d"E$(1415)=C$(1415) 28,24;4;C$(1415) A18,0;"Enter PP No. of second player(s)(2 Digits) " RC$(1617):e=C$(1617):e>12 e<7740 NW$(1)="D"W$(1)="d"E$(1617)=C$(1617) 28,27;4;C$(1617) "Is this correct (Y/N) ? ";Q$ Q$="Y"Q$="y"1000 2Q$="N"Q$="n""Change (P)layers / (Grades)?";O$ O$="P"O$="p"650 O$="G"O$="g"690  1000  Recall player data  p=0 U18,0;"Enter code No. of first player- " p (W$(2)="M"p>100d785 (W$(2)="W"p<101e785 (p=2009999':B$:800  9000(#+(p*5):B$  4,0;B$(13 ):8,3;4;B$(1415):8,6;4;B$(1617):b=B$(1415):d=B$(1617) * p=0 4V18,0;"Enter code No. of second player- " 6p 7(W$(2)="M"p>100d8204 8(W$(2)="W"p<101e8204 ;(p=2009999':C$:835C < 8200 >9000(#+(p*5):C$ C4,17;C$(13 ):8,24;4;C$(1415):8,27;4;C$(1617):c=C$(1415):e=C$(1617) H"Is this correct (Y/N)? ";Q$ JQ$="y"Q$="Y"850R L2Q$="N"Q$="n""Change (P)layers / (Grades)?";O$ NO$="P"O$="p"780  PO$="G"O$="g"690 R-W$(1)="S"W$(1)="s"1000 W p=0 \V18,0;"Enter code No. of first partner- " _p `(W$(2)="M"p>100d860\ a(W$(2)="W"p<101e860\ c(p=2009999':D$:875k f9000(#+(p*5):D$ p!11 ,0;D$(13 ) u p=0 zV18,0;"Enter code No. of second partner " }p ~(W$(2)="M"p>100d890z (W$(2)="W"p<101e890z (p=2009999':E$:905  8200 9000(#+(p*5):E$ "11 ,17;E$(13 ) #"Are Partners correct (Y/N)? ";Q$ Q$="y"Q$="Y"910 Q$="N"Q$="n"850R U18,0;"Change ratings of partnerships ? Input (Y) or (N) " Q$ Q$="N"Q$="n"1000 V18,0;"Input Grading of first partners (2 digits) " RB$(1415):b=B$(1415):b>10 b<1925 :8,3;4;0;B$(1415) V18,0;"Input Grading of second partners (2 digits) " RD$(1415):c=D$(1415):c>10 c<1935 ;8,24;4;0;D$(1415) V18,0;"Input PP rate of first partners (2 digits) " RB$(1617):d=B$(1617):d<7d>12 939 :8,6;4;0;B$(1617) W18,0;"Input PP rate of second partners (2 digits) " RD$(1617):e=D$(1617):e<7e>12 943 ;8,27;4;0;D$(1617) V18,0;" " "Is this correct (Y/N)? ";Q$ Q$="n"Q$="N"925  1000 Input Doubles Info R18,0;"Enter Name of first partner (max of 13 letters) " D$(13 ) !11 ,0;D$(13 ) R18,0;"Enter Name of second partner (max of 13 letters) " E$(13 ) "11 ,17;E$(13 )   Short or long game bh=0:ch=0  8200 mix=0:b2=b:c2=c  "(L)ong or (S)hort game? " ;L$ L$="S"L$="s"v=557 .L$="L"L$="l""Speed of replay (1-100) ?";v #v<1v>100d1020 "Best of how many sets ? ";z  +z>5z=2z=41030 k=z  Toss routine for serve 618,0;"Press key for toss for serve "; Q$ $ 8250: ) 8300l .Ud1d318,0;"Toss won by ";B$(13 );" who will ";S$:t=1  Bd1=d31060$ Q s=2t=2y=1 V s=1t=2y=2 [ s=1t=1y=1 ` s=2t=1y=2 j0:10 tL$="L"L$="l"1500  Start Game #x=0:p1=0:p2=0 xq1=0:q2=0:r1=0:r2=0:s1=0:s2=0:t1=0:t2=0:u1=0:u2=0  x=1z  7000X X=17300 X>17330 $p1>(z/2)p2>(z/2)x=z v x $Inj=1"(C)opy or Enter ";Q$ -Inj=0"(C)opy, (P)rint or Enter ";Q$ -Q$="P"Q$="p"bh=B$(1415)-b2 Q$="P"Q$="p"B$(13 );1,15;p1;":";1,17;q1;1,19;r1;1,21;s1;1,23;t1;1,25;u1;1,27;"(";bh;")" '-Q$="P"Q$="p"ch=C$(1415)-c2 (Q$="P"Q$="p"C$(13 );2,15;p2;":";2,17;q2;2,19;r2;2,21;s2;2,23;t2;2,25;u2;2,27;"(";ch;")" 23Q$="P"Q$="p"" - - - - - - - - - - - - - - - -" PQ$="C"Q$="c" Z!"Enter 'R' to replay match ";Q$ dtQ$="R"Q$="r"4;9 ,9 ;" ";9 ,13 ;" ";9 ,24;" ";9 ,28;" " n[Q$="R"Q$="r"b=B$(1415):c=C$(1415):b2=b:c2=c:1000 rInj=11400x s 7900 x#8000@:8200 :128  Start Long Game #x=0:p1=0:p2=0 xq1=0:q2=0:r1=0:r2=0:s1=0:s2=0:t1=0:t2=0:u1=0:u2=0 pt1=0:pt2=0 Ygm1=0:gm2=0:r=0:pf1=0:pf2=0:mo1=0:mo2=0 #"Raise game option (Y)or(N)? ";R$ R$="Y"R$="y"r=1 r=1rg1=2:rg2=2:7;4;15,10 ;rg1;15,13 ;"Chance";15,20;rg2 "<W$(2)="M"W$(2)="m"serve=2:1700 ,<W$(2)="W"W$(2)="w"serve=1:1700 6DW$(2)="B"W$(2)="b""(M)an or (W)oman serve 1st? ";Z$ @BW$(2)="B"W$(2)="b""And for opponents (M/W) ? ";Y$ J(Z$="M"Z$="m"Y$="M"Y$="m"X$="2211" T(Z$="M"Z$="m"Y$="W"Y$="w"X$="2112" ^(Z$="W"Z$="w"Y$="W"Y$="w"X$="1122" h(Z$="W"Z$="w"Y$="M"Y$="m"X$="1221" r mix=1 | seq=1 MW$(2)="M"W$(1)="D"W$(2)="W"W$(1)="D"3800 $P$(1)="00":P$(2)="00"  DC=0  8200  7600 Aset=1:mo1=5:mo2=5:rg1=2:rg2=2 /7;4;14,13 ;"Morale"  Run Line  8450! hr=17;4;15,10 ;rg1;15,13 ;"Chance";15,20;rg2 mix=17400 part=14000  7000X & 7630 0Ov:6:1:19,30;0;"00";21,30;"00" 5,0:0:pf1=0:pf2=0 :1setkgm16gm2(gm1-2)1900l D1setkgm26gm1(gm2-2)1900l N<setkgm1=6gm2=6y2=y:y=0:1800 S1setkgm1=7setkgm2=71900l X1set=kgm16gm2(gm1-2)1900l ]1set=kgm26gm1(gm2-2)1900l b 1800 lfr=1rg1=2:rg2=2:7;4;15,10 ;rg1;15,20;rg2 q4set=1gm1>gm2p1=p1+1:q1=gm1:q2=gm2 v4set=1gm1gm2p1=p1+1:r1=gm1:r2=gm2 4set=2gm1gm2p1=p1+1:s1=gm1:s2=gm2 4set=3gm1gm2p1=p1+1:t1=gm1:t2=gm2 4set=4gm1gm2p1=p1+1:u1=gm1:u2=gm2 4set=5gm1z/2p2>z/22030  1800 80;19,29;"";21,29;"" $Inj=1"(C)opy or Enter ";Q$ -Inj=0"(C)opy, (P)rint or Enter ";Q$ -Q$="P"Q$="p"bh=B$(1415)-b2 (Q$="P"Q$="p"COL=80P2042 Q$="P"Q$="p"B$(13 );1,15;p1;":";1,17;q1;1,19;r1;1,21;s1;1,23;t1;1,25;u1;1,27;"(";bh;")" -Q$="P"Q$="p"ch=C$(1415)-c2 (Q$="P"Q$="p"COL=80P2052 Q$="P"Q$="p"C$(13 );2,15;p2;":";2,17;q2;2,19;r2;2,21;s2;2,23;t2;2,25;u2;2,27;"(";ch;")" p1>p2Q$="P"COL=80PB$(13 );" ";"(";bh;")";" BT " ;C$(13 );" (";ch;")";" By ";p1;"-";p2;" ";q1;"-";q2;" ";r1;"-";r2;" ";s1;"-";s2;" ";t1;"-";t2;" ";u1;"-";u2 p1>p2Q$="p"COL=80PB$(13 );" ";"(";bh;")";" BT " ;C$(13 );" (";ch;")";" By ";p1;"-";p2;" ";q1;"-";q2;" ";r1;"-";r2;" ";s1;"-";s2;" ";t1;"-";t2;" ";u1;"-";u2 p2>p1Q$="P"COL=80PC$(13 );" ";"(";ch;")";" BT " ;B$(13 );" (";bh;")";" By ";p2;"-";p1;" ";q2;"-";q1;" ";r2;"-";r1;" ";s2;"-";s1;" ";t2;"-";t1;" ";u2;"-";u1 p2>p1Q$="p"COL=80PC$(13 );" ";"(";ch;")";" BT " ;B$(13 );" (";bh;")";" By ";p2;"-";p1;" ";q2;"-";q1;" ";r2;"-";r1;" ";s2;"-";s1;" ";t2;"-";t1;" ";u2;"-";u1  (Q$="P"Q$="p"COL=80P2062  3Q$="P"Q$="p"" - - - - - - - - - - - - - - - -" Q$="C"Q$="c"  !"Enter 'R' to replay match ";Q$ *tQ$="R"Q$="r"4;9 ,9 ;" ";9 ,13 ;" ";9 ,24;" ";9 ,28;" " /Tmo1=5:mo2=5:14,10 ;4;" ";14,20;" " 0Tmo1=5:mo2=5:15,10 ;4;" ";15,20;" " 4[Q$="R"Q$="r"b=B$(1415):c=C$(1415):b2=b:c2=c:1000 8Inj=12110> 9 7900 >#8000@:8200 :128 H $P$(1)="00":P$(2)="00" Doubles Serve choice ""First Partners Server (1/2) ";o #"Second Partners Server (1/2) ";q  o=1q=1O$="1122"  o=1q=2O$="1221"  o=2q=1O$="2112"  o=2q=2O$="2211"  f=1 part=1  Update doubles serve #f=f+1:f=5f=1  Create players  &2,8;"PLAYER GENERATION" 5,0;"This routine creates a random player rating for you to use if you want to play 'extras' in thetournament or even create some for yourself to take part as a player !" q12 ,0;"It will print up to 20 players on the screen which you can copyto a printer or write down." "Number to create ? ";M M>204540  3"Player No.";14;"Grade";22;"PP No."   a=1M roll=1+(*100d)  5000 pp=1+(*12 ) pp64580 )7;a;16;grade;24;pp a \"Enter 'C' to Copy ";Q$ f Q$="C" p"Enter 'R' to Rerun ";Q$ zQ$="R"4500 %:8000@:8200 :128  grading of players roll6grade=10 +roll16roll>6grade=9 ,roll31roll>16grade=8 ,roll42*roll>31grade=7 ,roll62>roll>42*grade=6 ,roll74Jroll>62>grade=5 ,roll84Troll>74Jgrade=4 ,roll92\roll>84Tgrade=3 ,roll97aroll>92\grade=2 -roll100droll>97agrade=1  p XRecall and process data q 8250: vd3=db<6b=11 xd3=db>5b=12 {d4=ec<6c=11 }d4=ec>5c=12 8900"+b:h$ 8900"+c:a$ Qh$(d1*2-1)="X"L$="L"h$(d1*2-1)="X"L$="l"7110 Qa$(d2*2-1)="X"L$="L"a$(d2*2-1)="X"L$="l"7130 h$(d1*2-1)="X"L$="S"h$(d1*2-1)="X"L$="s"19,29;1;"Inj":Inj=1:1300 a$(d2*2-1)="X"L$="S"a$(d2*2-1)="X"L$="s"21,29;1;"Inj":Inj=1:1300 L$="L"L$="l"7500L hs=h$(d1*2-1) as=a$(d2*2-1) hsas7199 hs=as8290b hs=h$(d7*2-1) as=a$(d8*2-1) hs=as7082 hs>ashs=7:as=6 as>hsas=7:hs=6  7199 Injury check First player injury Jd5=d1I$="Inj":19,29;1;I$:Inj=1:2035 d5d1d1=d5:7055 second player injury Jd6=d2I$="Inj":19,29;1;I$:Inj=1:2035 d6d2d1=d6:7056   Ch$(d1*2)="L"b=b-1:b2=b:b<1b=1:b2=b %Eh$(d1*2)="R"b=b+1:b2=b:b>10 b=10 :b2=b *Ca$(d2*2)="L"c=c-1:c2=c:c<1c=1:c2=c 4Ea$(d2*2)="R"c=c+1:c2=c:c>10 c=10 :c2=c >Bb=11 h$(d1*2)="P"b=12 h$(d1*2)="P"b=b CCb=11 h$(d1*2)"P"b=12 h$(d1*2)"P"b=b2 HCc=11 a$(d2*2)"P"c=12 a$(d2*2)"P"c=c2 MBc=11 a$(d2*2)="P"c=12 a$(d2*2)="P"c=c OL$="L"L$="l"7270f Rhs>asp1=p1+1 \as>hsp2=p2+1 f_b2B$(1415)9 ,3;4;6;"-";(b2-B$(1415)) n`c2C$(1415)9 ,24;4;6;"-";(c2-C$(1415)) t5b>10 9 ,6;1;4;" P" u5b<11 9 ,6;1;4;" " v6c>10 9 ,27;1;4;" P" w6c<11 9 ,27;1;4;" "  Print scores A17,0;6;" 1 2 3 4 5 SET GM PT" Ca=14:1;" ":a w19,11 ;B$(13 ):21,11 ;C$(13 ):6;0;1;20,17;"v" >y=119,24;1;6;0;"." >y=221,24;1;6;0;"." 6;0;1;19,1;q1;19,3;r1;19,5;s1;19,7;t1;19,9 ;u1;19,25;"0" 6;0;1;21,1;q2;21,3;r2;21,5;s2;21,7;t2;21,9 ;u2;21,25;"0":v 'hsas+6hs=6:as=0 'ashs+6as=6:hs=0 'hs=as+5hs=6:as=1 'as=hs+5as=6:hs=1 'hs=as+4hs=6:as=2 'as=hs+4as=6:hs=2 'hs=as+3hs=6:as=3 'as=hs+3as=6:hs=3 'hs=as+2hs=6:as=4 'as=hs+2as=6:hs=4 'hs=as+1hs=7:as=5 'as=hs+1as=7:hs=5 x=1q1=hs:q2=as x=2r1=hs:r2=as x=3s1=hs:s2=as x=4t1=hs:t2=as x=5u1=hs:u2=as ԛ6;0;1;19,25;p1;19,1;q1;19,3;r1;19,5;s1;19,7;t1;19,9 ;u1 ٛ6;0;1;21,25;p2;21,1;q2;21,3;r2;21,5;s2;21,7;t2;21,9 ;u2 v  Mixed Doubles serve check !seq=1serve=X$(1) !seq=2serve=X$(2) !seq=3serve=X$(3) !seq=4serve=X$(4) +seq=seq+1:seq=5seq=1 $ LLong game score checks Vhs=h$(d1*2-1) `as=a$(d2*2-1) e 7200  jhs=hs+pf1:as=as+pf2 oy=07554 ty=1hs=hs+serve ~y=2as=as+serve hsas7700 ]hs=as6;0;1;19,30;"Dc";21,30;"Dc":12 hs=as8290b hs=h$(d7*2-1) as=a$(d8*2-1) hs=as7560 Hhs>asP$(1)="Gm":P$(2)="Dc":gm1=gm1+1:Dc=1 Hhsy=119,24;1;6;0;"." ^y=221,24;1;6;0;".";19,24;0;"" 6;0;1;19,1;q1;19,3;r1;19,5;s1;19,7;t1;19,9 ;u1;19,25;"0";19,28;gm1;19,30;P$(1) 6;0;1;21,1;q2;21,3;r2;21,5;s2;21,7;t2;21,9 ;u2;21,25;"0";21,28;gm2;21,30;P$(2):v  Long game print scores  8700! y=0y=y2 #y=y+1:y>2y=1 $Dc=1Dc=0:7765U Rhs=as+1hs=as+2P$(1)="Gm":P$(2)="30":gm1=gm1+1 (Rhs=as+3hs=as+4P$(1)="Gm":P$(2)="15":gm1=gm1+1 2Dhsas+5P$(1)="Gm":P$(2)="00":gm1=gm1+1 as13 ,9 ;1;2;"< Serve break":150 VRy=2as>hs13 ,10 ;1;2;"Serve break >":150 X613 ,9 ;0;4;" " Z6;0;1;19,1;q1;19,3;r1;19,5;s1;19,7;t1;19,9 ;u1;19,25;p1;19,28;gm1;19,30;P$(1) _6;0;1;21,1;q2;21,3;r2;21,5;s2;21,7;t2;21,9 ;u2;21,25;p2;21,28;gm2;21,30;P$(2):v a^y=119,24;1;6;0;".";21,24;0;"" b^y=221,24;1;6;0;".";19,24;0;"" dPmix=1y=1serve=10;1;20,24;"w"; iPmix=1y=2serve=10;1;20,24;"w"; nPmix=1y=1serve=20;1;20,24;"m"; sPmix=1y=2serve=20;1;20,24;"m"; x:part=10;1;20,24;O$(f)  SCREEN PRINT RESULT   bl=p1+p2 p1>p26,1;B$(13 );" BT ";C$(13 );9 ,8;"By ";p1;" Sets to ";p2;12 ,6;q1;"-";q2;" ";r1;"-";r2;" ";s1;"-";s2;" ";t1;"-";t2;" ";u1;"-";u2 p2>p16,1;C$(13 );" BT ";B$(13 );9 ,8;"By ";p2;" Sets to ";p1;12 ,6;q2;"-";q1;" ";r2;"-";r1;" ";s2;"-";s1;" ";t2;"-";t1;" ";u2;"-";u1 7bl=112 ,10 ;" " 3bl=212 ,14;" " /bl=312 ,18;" " +bl=412 ,22;" " #"ENTER 'C' TO COPY OR ENTER ";Z$  Z$="C" " @Court draw routine B E4:4 J;a=118:" ":a T 7 ^:a=14:" ":a h'20,165:220,0 r<0,-120x:-220,0:0,+120x |)127,171:0,-132 (70F,155:0,-100d )185,155:0,-100d '20,155:220,0 &20,557:220,0 r20,105i:3,0:70F,105i:115s,0:237,105i:3,0 >0,0;6;" " 0,1;6;T$  Clear bottom screen 617,0;" " :a=14:" ":a  :Dice roll routine D N2d1=(1+(*6))+(1+(*6)) S2d2=(1+(*6))+(1+(*6)) X2d3=(1+(*6))+(1+(*6)) ]2d4=(1+(*6))+(1+(*6)) _2d5=(1+(*6))+(1+(*6)) a2d6=(1+(*6))+(1+(*6)) b2d7=(1+(*6))+(1+(*6)) d2d8=(1+(*6))+(1+(*6)) g lServe/receive routine qd2=d2+2 v d2d4S$="Serve":s=1 d2=d4S$="Serve":s=1  !Draw morale routine ! /mo1<10 14,11 ;7;" " !/mo2<10 14,21;7;" " ! A1;7;14,10 ;mo1;14,20;mo2 !*r=01806 !4Raise game routine !9rg1=0rg2=0 !>!"Raise game - 1,2,3, or 0 ? ";i !H!i>3i<08510>! !R i=0 !WFi=1rg1=0"Chances used up. PRESS enter";Q$:85004! !\Fi=2rg2=0"Chances used up. PRESS enter";Q$:85004! !p 8250: !r"mo1=1h(1)=-2 !s.mo1=2mo1=3h(1)=-1 !t-mo1>3mo1<7h(1)=0 !u.mo1=7mo1=8h(1)=+1 !v"mo1=9 h(1)=+2 !w#mo1=10 h(1)=+3 !y"mo2=1h(2)=-2 !z.mo2=2mo2=3h(2)=-1 !{-mo2>3mo2<7h(2)=0 !|.mo2=7mo2=8h(2)=+1 !}"mo2=9 h(2)=+2 !~#mo2=10 h(2)=+3 !i=28590! !i=38600! !%i=1j(1)=d1+h(1) !i=1rg1=rg1-1 !_j(1)dj(1)10 pf1=1:j(1)asmo2=mo2-1:mo1=mo1+1 "mo1>10 mo1=10 "$mo2>10 mo2=10 ".mo2<1mo2=1 "8mo1<1mo1=1 "B " "Chart data lines "" 0011663R44665544552233" "" 006L113R44556644225533" "" 336L113R44554466220055" "" 336L1R4433445566220055" "" 336L442R33445511660055" "" 66336L2R44335511004455" "" 66336L2R11335544004455" "" 446L330R11223355443355" "" 44665L3R00221133443322" "" 66225L3300112233444433" "" XX666P55557P556P666P44" "" XX665P55446P557P556P33" #(Men data 15.8.88 #-"Ivan Lendl 0110" #2"Mats Wilander0209" #7"Stefan Edberg0208" #<"Andre Agassi 0210" #A"Boris Becker 0209" #F"Jimmy Connors0309" #K"Pat Cash 0309" #P"Yannick Noah 0308" #U"Miloslv Mecir0307" #Z"Tim Mayotte 0308" #_"Henri Leconte0308" #d"Kent Carlsson0310" #i"Brad Gilbert 0409" #n"G.Perez-Roldn0409" #s"Jonas Svenson0410" #x"Andres Gomez 0409" #}"John McEnroe 0410" #"Anders Jarryd0409" #"And.Chesnokov0410" #"Thomas Muster0410" #"Emilo Sanchez0410" #"Kevin Curren 0508" #"A. Krickstein0509" #"A. Mansdorf 0509" #"Ron Agenor 0510" #"Martin Jaite 0510" #"J. Fitzgerald0510" #"S.Zivojinovic0508" #"Jakob Hlasek 0509" #"Mike Pernfors0508" #"Dan Goldie 0510" #"Luiz Mattar 0510" #"Darren Cahill0610" #"David Pate 0609" #"Jay Berger 0610" #"Paul Annacone0608" #"Peter Lundgen0610" #"Mark Woodford0610" #"Jordi Arrese 0611" #"Mike Schapers0610" #"Ram. Krishnan0609" #"Elt.Teltscher0609" #"Mg.Gustafsson0610" $"Albt. Mancini0610" $ "Cld. Mezzadri0611" $"John Frawley 0610" $"Dk. Rostagno 0610" $"Guy Forget 0610" $"Eric Jelen 0610" $""Wally Masur 0609" $'"Robert Seguso0609" $,"Milan Srejber0610" $1"Patrk. Kuhnen0611" $6"Lawson Duncan0611" $;"Tomas Smid 0709" $@"C.VanRensburg0710" $E"Todd Witsken 0710" $J"Jim Pugh 0709" $O"Joakm Nystrom0709" $T"Mrc Filippini0710" $Y"Jim Grabb 0710" $^"Fernando Luna0710" $c"Horst Skoff 0710" $h"Thry Tulasne 0709" $m"Johan Kriek 0709" $r"Michael Chang0711" $w"Hrco.DeLaPena0809" $|"Chris.Saceanu0811" $"Sergio Casal 0810" $"E.Bengoechea 0810" $"Jorge Lozano 0810" $"A. Olbovskiy 0810" $"Bruno Oresar 0810" $"Kelly Everndn0810" $"C. Bergstrom 0811" $"Cassio Motta 0809" $"Jamie Yzaga 0811" $"Yahya Doumbia0811" $"Jim Courier 0811" $"Crl-Uwe Steeb0811" $"Javier Frana 0810" $"Franco Davin 0811" $"Todd Nelson 0909" $"F.Cancellotti0909" $"Brod Dkye 0910" $"Joey Rive 0910" $"Jan Gunnarson0910" $"Tore Meinecke0910" $"Udo Riglewski0910" $"Thry Champion0910" $"Eduardo Masso0911" $"Jeremy Bates 0910" $"Ken Flach 0909" $"Marian Vajda 0911" %"Chris Pridham0911" %"Martin Davis 1010" % "S.Giammalva J1009" %"Rik Osterthun1010" %"Tim Wilkison 1010" %"Javer Sanchez1011" %!"Steffi Graf 0107" %&"M.Navratilova0207" %+"Chris Evert 0308" %0"Gabi Sabatini0309" %5"Pam Shriver 0310" %:"Helena Sukova0409" %?"Natla.Zvereva0410" %D"Manla.Maleeva0408" %I"Lori McNeil 0409" %N"C.KohdeKilsch0409" %S"H. Mandlikova0411" %X"Zina Garrison0409" %]"Barbra Potter0410" %b"M-J.Fernandez0410" %g"Katra.Maleeva0509" %l"Stephani Rehe0509" %q"Sylvia Hanika0510" %v"Sdra.Cecchini0510" %{"Lsa.Savchenko0509" %"Helen Kelesi 0510" %"Arnta Sanchez0510" %"Patty Fendick0511" %"Rafaela Reggi0609" %"Isabel Cueto 0610" %"Bettina Fulco0610" %"Natle Tauziat0610" %"Pascl.Paradis0609" %"Ctn.Lindqvist0609" %"Anne Minter 0610" %"Pat Tarabini 0610" %"Judy Wiesner 0611" %"Eina Reinach 0609" %"Barbra Paulus0610" %"Nicole Provis0611" %"Halle Cioffi 0611" %"Niege Dias 0611" %"Robin White 0610" %"Ros Fairbank 0611" %"Is. Demongeot0708" %"Bettina Bunge0709" %"Leila Meskhi 0710" %"R. Zrubakova 0710" %"Grtchn Magers0710" %"Jana Novotna 0710" %"Etsuko Inoue 0710" &"Sabrina Goles0708" &"Brnda Schultz0711" & "Julie Halard 0711" &"Sarah Gomer 0711" &"Dne.Balestrat0710" &"Peanut Harper0709" & "Chta.Martinez0711" &%"Mercedes Paz 0710" &*"Anne Smith 0809" &/"Terry Phelps 0810" &4"Blda.Cordwell0810" &9"Gi.Fernandez 0810" &>"Jo Durie 0810" &C"Kathy Jordan 0809" &H"Wndy Turnbull0810" &M"M-Lou Daniels0810" &R"M.PerezRoldan0810" &W"Kathy Horvath0809" &\"Wiltrd Probst0810" &a"Mrne. Werdel 0810" &f"Susan Sloane 0811" &k"Silke Meier 0811" &p"I.Kuczynska 0811" &u"Elly Hakami 0811" &z"Laura Golarsa0909" &"Kate Gompert 0909" &"Cldia Porwik 0910" &"Laura Garrone0909" &"Amy Frazier 0910" &"Linda Ferando0910" &"Sdr.Wasserman0911" &"D.VanRensburg0910" &"Hu Na 0910" &"A.Kanelipolos0910" &"An Henrickson0911" &"Monique Javer0910" &"Michle Torres0910" &"Ann Grossman 0910" &"Cmle.Benjamin0909" &"Akio Kijimuta0910" &"Karen Shimper0911" &"Wendy White 0910" &"S.Parkhomenko1010" &"Ncle Jagerman1010" &"Chris Singer 1010" &"Ann Devries 1011" &"Man.Bollegraf1011" &"Katrina Adams1010" &"F.Bonsignori 1010" &"Elizbh Minter1010" &"Melisa Gurney1009" '"Ronni Reis 1011" '"Iva Budarova 1011" ' "Hestr Witvoet1011" '|q1=6:q2=4:r1=4:r2=6:k=3:gm1=5:gm2=5:set=3:p1=1:p2=1: '"Cat. Tanvier 1010"  o pb d cettmmrffooie vk styeggervoqfarmrad ol nlee|inYWX2112OPnIInjSW 0000Jimmy Connors0309 Yannick Noah 0308    66336L2R44335511004455 44665L3R00221133443322  LLSServeRNZTXYZ OPENQRe TENNIS za Started 3.11.88 "W$(2):P$(2,2) 8B$(20):C$(20):D$(20):E$(20) (a$(24):h$(24) 2h(2):j(2) d 4 iDa=117:6;" ":a j76;2,3;" " k76;3,3;" " l76;4,3;" " m76;5,3;" " n76;6,3;" " o76;8,4;" " p76;9 ,4;" " q86;10 ,4;" " r86;11 ,4;" " s86;12 ,4;" " yy2:6;14,7;" By John Gardiner":6;16,0;"" z<7:18,1;"Adapted from Lambourne Games'" {," game 'TOP TENNIS' which is " |&20,8;"their copyright." }150:0 ~ 150  500 Inj=0 418,1;"Enter 1. For Seeded Draw " 419,1;" 2. To Choose Players " 520,1;" 3. Change Tournament Name" 521,1;" 4. Create Player Rating " Q$ part=0 Q$="1"200 Q$="2"600X Q$="3"500 Q$="4"4500 Q$>"4"Q$<"1"135 Cap Lock and Print Width 23658j\,8 ""80 Col. Wide Printer (Y/N)?";Q$ Q$="N"Q$="n"col=32 : Q$="Y"Q$="y"col=80P: 160 Seeded draw routine 5:7:1: 34,5;"SEEDED TOURNAMENT DRAW" 35,5;"======================" W10 ,0;"This routine will allow you to set up the first round of any Tournament if all players are seeded in numeric order. Total number of players must be 4,8,1632,64,128,256, or 512 ! If you have an odd number of players then play a knockout round firstbetween lowest rated players to obtain one of the above numbers" "Number of players ? ";n en=4n=8n=16n=32 n=64@n=128n=256n=512260  250   19 ,6;1;"Draw being made...." k=(n)/(2) l=(k) " g(n):h(n) ,"seed=1:g(1)=1 6 i=1l @ k=1 Jj=12^(i-1) ^seed=seed+1 h+h(k)=g(j):h(k+1)=seed:k=k+2 rj |j=1n:g(j)=h(j):j i z=seed+1n seed=seed+1  g(z)=seed z  0: "" line=1 line,3;"FIRST ROUND:" : line=line+2 i=1n2 33;g(i);6;"v.";9 ;g(i+1) line=line+1 line=20490 i ""Press 'C' to copy or ENTER ";Q$ Q$="C"Q$="c" `line=20:line=1:line,3;"FIRST ROUND CONTINUED:":::line=line+2:  :0  8000@  130 Tournament Name 617,0;" " :a=14:" ":a 518,0;" Name of Tournament to Replay ?" 419,7;"(Max 30 Letters)" T$ !T$>30500 &(20,1;1;1;T$ 0"Is this correct (Y/N) ? ";Q$ :Q$="N"Q$="n"500 D 8000@ N 128 XInput Player data b 8200 l618,0;"Enter Singles (S) or Doubles (D)" q W$(1) s,W$(1)="D"W$(1)="S"630v t 620l vGW$(1)="D"18,0;"Enter (M)en,(W)omen,or Mixed(B) " xGW$(1)="S"18,0;"Enter (M)en or (W)omen " { W$(2) |,W$(2)="B"W$(1)="S"630v }<W$(2)="M"W$(2)="W"W$(2)="B"640 ~ 630v Q18,0;"(I)nput players yourself or (R)ecall data from memory ?" Q$ Q$="R"Q$="r"780  Q$"I"640 R18,0;"Enter Name of first player (max of 13 letters) " B$(13 )  4,0;B$(13 ) R18,0;"Enter Name of second player (max of 13 letters) " C$(13 ) !4,17;C$(13 ) ,W$(1)="D"W$(1)="d"950  8200 @18,0;"Enter Grade of first player(s) (2 Digits)" RB$(1415):b=B$(1415):b>10 b<1695 NW$(1)="D"W$(1)="d"D$(1415)=B$(1415) 18,3;4;B$(1415) A18,0;"Enter PP No. of first player(s) (2 Digits) " RB$(1617):d=B$(1617):d<7d>12 710 NW$(1)="D"W$(1)="d"D$(1617)=B$(1617) 18,6;4;B$(1617) @18,0;"Enter Grade of second player(s) (2 Digits)" RC$(1415):c=C$(1415):c<1c>10 725 NW$(1)="D"W$(1)="d"E$(1415)=C$(1415) 28,24;4;C$(1415) A18,0;"Enter PP No. of second player(s)(2 Digits) " RC$(1617):e=C$(1617):e>12 e<7740 NW$(1)="D"W$(1)="d"E$(1617)=C$(1617) 28,27;4;C$(1617) "Is this correct (Y/N) ? ";Q$ Q$="Y"Q$="y"1000 2Q$="N"Q$="n""Change (P)layers / (Grades)?";O$ O$="P"O$="p"650 O$="G"O$="g"690  1000  Recall player data  p=0 U18,0;"Enter code No. of first player- " p (W$(2)="M"p>100d785 (W$(2)="W"p<101e785 (p=2009999':B$:800  9000(#+(p*5):B$  4,0;B$(13 ):8,3;4;B$(1415):8,6;4;B$(1617):b=B$(1415):d=B$(1617) * p=0 4V18,0;"Enter code No. of second player- " 6p 7(W$(2)="M"p>100d8204 8(W$(2)="W"p<101e8204 ;(p=2009999':C$:835C < 8200 >9000(#+(p*5):C$ C4,17;C$(13 ):8,24;4;C$(1415):8,27;4;C$(1617):c=C$(1415):e=C$(1617) H"Is this correct (Y/N)? ";Q$ JQ$="y"Q$="Y"850R L2Q$="N"Q$="n""Change (P)layers / (Grades)?";O$ NO$="P"O$="p"780  PO$="G"O$="g"690 R-W$(1)="S"W$(1)="s"1000 W p=0 \V18,0;"Enter code No. of first partner- " _p `(W$(2)="M"p>100d860\ a(W$(2)="W"p<101e860\ c(p=2009999':D$:875k f9000(#+(p*5):D$ p!11 ,0;D$(13 ) u p=0 zV18,0;"Enter code No. of second partner " }p ~(W$(2)="M"p>100d890z (W$(2)="W"p<101e890z (p=2009999':E$:905  8200 9000(#+(p*5):E$ "11 ,17;E$(13 ) #"Are Partners correct (Y/N)? ";Q$ Q$="y"Q$="Y"910 Q$="N"Q$="n"850R U18,0;"Change ratings of partnerships ? Input (Y) or (N) " Q$ Q$="N"Q$="n"1000 V18,0;"Input Grading of first partners (2 digits) " RB$(1415):b=B$(1415):b>10 b<1925 :8,3;4;0;B$(1415) V18,0;"Input Grading of second partners (2 digits) " RD$(1415):c=D$(1415):c>10 c<1935 ;8,24;4;0;D$(1415) V18,0;"Input PP rate of first partners (2 digits) " RB$(1617):d=B$(1617):d<7d>12 939 :8,6;4;0;B$(1617) W18,0;"Input PP rate of second partners (2 digits) " RD$(1617):e=D$(1617):e<7e>12 943 ;8,27;4;0;D$(1617) V18,0;" " "Is this correct (Y/N)? ";Q$ Q$="n"Q$="N"925  1000 Input Doubles Info R18,0;"Enter Name of first partner (max of 13 letters) " D$(13 ) !11 ,0;D$(13 ) R18,0;"Enter Name of second partner (max of 13 letters) " E$(13 ) "11 ,17;E$(13 )   Short or long game bh=0:ch=0  8200 mix=0:b2=b:c2=c  "(L)ong or (S)hort game? " ;L$ L$="S"L$="s"v=557 .L$="L"L$="l""Speed of replay (1-100) ?";v #v<1v>100d1020 "Best of how many sets ? ";z  +z>5z=2z=41030 k=z  Toss routine for serve 618,0;"Press key for toss for serve "; Q$ $ 8250: ) 8300l .Ud1d318,0;"Toss won by ";B$(13 );" who will ";S$:t=1  Bd1=d31060$ Q s=2t=2y=1 V s=1t=2y=2 [ s=1t=1y=1 ` s=2t=1y=2 j0:10 tL$="L"L$="l"1500  Start Game #x=0:p1=0:p2=0 xq1=0:q2=0:r1=0:r2=0:s1=0:s2=0:t1=0:t2=0:u1=0:u2=0  x=1z  7000X X=17300 X>17330 $p1>(z/2)p2>(z/2)x=z v x $Inj=1"(C)opy or Enter ";Q$ -Inj=0"(C)opy, (P)rint or Enter ";Q$ -Q$="P"Q$="p"bh=B$(1415)-b2 Q$="P"Q$="p"B$(13 );1,15;p1;":";1,17;q1;1,19;r1;1,21;s1;1,23;t1;1,25;u1;1,27;"(";bh;")" '-Q$="P"Q$="p"ch=C$(1415)-c2 (Q$="P"Q$="p"C$(13 );2,15;p2;":";2,17;q2;2,19;r2;2,21;s2;2,23;t2;2,25;u2;2,27;"(";ch;")" 23Q$="P"Q$="p"" - - - - - - - - - - - - - - - -" PQ$="C"Q$="c" Z!"Enter 'R' to replay match ";Q$ dtQ$="R"Q$="r"4;9 ,9 ;" ";9 ,13 ;" ";9 ,24;" ";9 ,28;" " n[Q$="R"Q$="r"b=B$(1415):c=C$(1415):b2=b:c2=c:1000 rInj=11400x s 7900 x#8000@:8200 :128  Start Long Game #x=0:p1=0:p2=0 xq1=0:q2=0:r1=0:r2=0:s1=0:s2=0:t1=0:t2=0:u1=0:u2=0 pt1=0:pt2=0 Ygm1=0:gm2=0:r=0:pf1=0:pf2=0:mo1=0:mo2=0 #"Raise game option (Y)or(N)? ";R$ R$="Y"R$="y"r=1 r=1rg1=2:rg2=2:7;4;15,10 ;rg1;15,13 ;"Chance";15,20;rg2 "<W$(2)="M"W$(2)="m"serve=2:1700 ,<W$(2)="W"W$(2)="w"serve=1:1700 6DW$(2)="B"W$(2)="b""(M)an or (W)oman serve 1st? ";Z$ @BW$(2)="B"W$(2)="b""And for opponents (M/W) ? ";Y$ J(Z$="M"Z$="m"Y$="M"Y$="m"X$="2211" T(Z$="M"Z$="m"Y$="W"Y$="w"X$="2112" ^(Z$="W"Z$="w"Y$="W"Y$="w"X$="1122" h(Z$="W"Z$="w"Y$="M"Y$="m"X$="1221" r mix=1 | seq=1 MW$(2)="M"W$(1)="D"W$(2)="W"W$(1)="D"3800 $P$(1)="00":P$(2)="00"  DC=0  8200  7600 Aset=1:mo1=5:mo2=5:rg1=2:rg2=2 /7;4;14,13 ;"Morale"  Run Line  8450! hr=17;4;15,10 ;rg1;15,13 ;"Chance";15,20;rg2 mix=17400 part=14000  7000X & 7630 0Ov:6:1:19,30;0;"00";21,30;"00" 5,0:0:pf1=0:pf2=0 :1setkgm16gm2(gm1-2)1900l D1setkgm26gm1(gm2-2)1900l N<setkgm1=6gm2=6y2=y:y=0:1800 S1setkgm1=7setkgm2=71900l X1set=kgm16gm2(gm1-2)1900l ]1set=kgm26gm1(gm2-2)1900l b 1800 lfr=1rg1=2:rg2=2:7;4;15,10 ;rg1;15,20;rg2 q4set=1gm1>gm2p1=p1+1:q1=gm1:q2=gm2 v4set=1gm1gm2p1=p1+1:r1=gm1:r2=gm2 4set=2gm1gm2p1=p1+1:s1=gm1:s2=gm2 4set=3gm1gm2p1=p1+1:t1=gm1:t2=gm2 4set=4gm1gm2p1=p1+1:u1=gm1:u2=gm2 4set=5gm1z/2p2>z/22030  1800 80;19,29;"";21,29;"" $Inj=1"(C)opy or Enter ";Q$ -Inj=0"(C)opy, (P)rint or Enter ";Q$ -Q$="P"Q$="p"bh=B$(1415)-b2 (Q$="P"Q$="p"COL=80P2042 Q$="P"Q$="p"B$(13 );1,15;p1;":";1,17;q1;1,19;r1;1,21;s1;1,23;t1;1,25;u1;1,27;"(";bh;")" -Q$="P"Q$="p"ch=C$(1415)-c2 (Q$="P"Q$="p"COL=80P2052 Q$="P"Q$="p"C$(13 );2,15;p2;":";2,17;q2;2,19;r2;2,21;s2;2,23;t2;2,25;u2;2,27;"(";ch;")" p1>p2Q$="P"COL=80PB$(13 );" ";"(";bh;")";" BT " ;C$(13 );" (";ch;")";" By ";p1;"-";p2;" ";q1;"-";q2;" ";r1;"-";r2;" ";s1;"-";s2;" ";t1;"-";t2;" ";u1;"-";u2 p1>p2Q$="p"COL=80PB$(13 );" ";"(";bh;")";" BT " ;C$(13 );" (";ch;")";" By ";p1;"-";p2;" ";q1;"-";q2;" ";r1;"-";r2;" ";s1;"-";s2;" ";t1;"-";t2;" ";u1;"-";u2 p2>p1Q$="P"COL=80PC$(13 );" ";"(";ch;")";" BT " ;B$(13 );" (";bh;")";" By ";p2;"-";p1;" ";q2;"-";q1;" ";r2;"-";r1;" ";s2;"-";s1;" ";t2;"-";t1;" ";u2;"-";u1 p2>p1Q$="p"COL=80PC$(13 );" ";"(";ch;")";" BT " ;B$(13 );" (";bh;")";" By ";p2;"-";p1;" ";q2;"-";q1;" ";r2;"-";r1;" ";s2;"-";s1;" ";t2;"-";t1;" ";u2;"-";u1  (Q$="P"Q$="p"COL=80P2062  3Q$="P"Q$="p"" - - - - - - - - - - - - - - - -" Q$="C"Q$="c"  !"Enter 'R' to replay match ";Q$ *tQ$="R"Q$="r"4;9 ,9 ;" ";9 ,13 ;" ";9 ,24;" ";9 ,28;" " /Tmo1=5:mo2=5:14,10 ;4;" ";14,20;" " 0Tmo1=5:mo2=5:15,10 ;4;" ";15,20;" " 4[Q$="R"Q$="r"b=B$(1415):c=C$(1415):b2=b:c2=c:1000 8Inj=12110> 9 7900 >#8000@:8200 :128 H $P$(1)="00":P$(2)="00" Doubles Serve choice ""First Partners Server (1/2) ";o #"Second Partners Server (1/2) ";q  o=1q=1O$="1122"  o=1q=2O$="1221"  o=2q=1O$="2112"  o=2q=2O$="2211"  f=1 part=1  Update doubles serve #f=f+1:f=5f=1  Create players  &2,8;"PLAYER GENERATION" 5,0;"This routine creates a random player rating for you to use if you want to play 'extras' in thetournament or even create some for yourself to take part as a player !" q12 ,0;"It will print up to 20 players on the screen which you can copyto a printer or write down." "Number to create ? ";M M>204540  3"Player No.";14;"Grade";22;"PP No."   a=1M roll=1+(*100d)  5000 pp=1+(*12 ) pp64580 )7;a;16;grade;24;pp a \"Enter 'C' to Copy ";Q$ f Q$="C" p"Enter 'R' to Rerun ";Q$ zQ$="R"4500 %:8000@:8200 :128  grading of players roll6grade=10 +roll16roll>6grade=9 ,roll31roll>16grade=8 ,roll42*roll>31grade=7 ,roll62>roll>42*grade=6 ,roll74Jroll>62>grade=5 ,roll84Troll>74Jgrade=4 ,roll92\roll>84Tgrade=3 ,roll97aroll>92\grade=2 -roll100droll>97agrade=1  p XRecall and process data q 8250: vd3=db<6b=11 xd3=db>5b=12 {d4=ec<6c=11 }d4=ec>5c=12 8900"+b:h$ 8900"+c:a$ Qh$(d1*2-1)="X"L$="L"h$(d1*2-1)="X"L$="l"7110 Qa$(d2*2-1)="X"L$="L"a$(d2*2-1)="X"L$="l"7130 h$(d1*2-1)="X"L$="S"h$(d1*2-1)="X"L$="s"19,29;1;"Inj":Inj=1:1300 a$(d2*2-1)="X"L$="S"a$(d2*2-1)="X"L$="s"21,29;1;"Inj":Inj=1:1300 L$="L"L$="l"7500L hs=h$(d1*2-1) as=a$(d2*2-1) hsas7199 hs=as8290b hs=h$(d7*2-1) as=a$(d8*2-1) hs=as7082 hs>ashs=7:as=6 as>hsas=7:hs=6  7199 Injury check First player injury Jd5=d1I$="Inj":19,29;1;I$:Inj=1:2035 d5d1d1=d5:7055 second player injury Jd6=d2I$="Inj":19,29;1;I$:Inj=1:2035 d6d2d1=d6:7056   Ch$(d1*2)="L"b=b-1:b2=b:b<1b=1:b2=b %Eh$(d1*2)="R"b=b+1:b2=b:b>10 b=10 :b2=b *Ca$(d2*2)="L"c=c-1:c2=c:c<1c=1:c2=c 4Ea$(d2*2)="R"c=c+1:c2=c:c>10 c=10 :c2=c >Bb=11 h$(d1*2)="P"b=12 h$(d1*2)="P"b=b CCb=11 h$(d1*2)"P"b=12 h$(d1*2)"P"b=b2 HCc=11 a$(d2*2)"P"c=12 a$(d2*2)"P"c=c2 MBc=11 a$(d2*2)="P"c=12 a$(d2*2)="P"c=c OL$="L"L$="l"7270f Rhs>asp1=p1+1 \as>hsp2=p2+1 f_b2B$(1415)9 ,3;4;6;"-";(b2-B$(1415)) n`c2C$(1415)9 ,24;4;6;"-";(c2-C$(1415)) t5b>10 9 ,6;1;4;" P" u5b<11 9 ,6;1;4;" " v6c>10 9 ,27;1;4;" P" w6c<11 9 ,27;1;4;" "  Print scores A17,0;6;" 1 2 3 4 5 SET GM PT" Ca=14:1;" ":a w19,11 ;B$(13 ):21,11 ;C$(13 ):6;0;1;20,17;"v" >y=119,24;1;6;0;"." >y=221,24;1;6;0;"." 6;0;1;19,1;q1;19,3;r1;19,5;s1;19,7;t1;19,9 ;u1;19,25;"0" 6;0;1;21,1;q2;21,3;r2;21,5;s2;21,7;t2;21,9 ;u2;21,25;"0":v 'hsas+6hs=6:as=0 'ashs+6as=6:hs=0 'hs=as+5hs=6:as=1 'as=hs+5as=6:hs=1 'hs=as+4hs=6:as=2 'as=hs+4as=6:hs=2 'hs=as+3hs=6:as=3 'as=hs+3as=6:hs=3 'hs=as+2hs=6:as=4 'as=hs+2as=6:hs=4 'hs=as+1hs=7:as=5 'as=hs+1as=7:hs=5 x=1q1=hs:q2=as x=2r1=hs:r2=as x=3s1=hs:s2=as x=4t1=hs:t2=as x=5u1=hs:u2=as ԛ6;0;1;19,25;p1;19,1;q1;19,3;r1;19,5;s1;19,7;t1;19,9 ;u1 ٛ6;0;1;21,25;p2;21,1;q2;21,3;r2;21,5;s2;21,7;t2;21,9 ;u2 v  Mixed Doubles serve check !seq=1serve=X$(1) !seq=2serve=X$(2) !seq=3serve=X$(3) !seq=4serve=X$(4) +seq=seq+1:seq=5seq=1 $ LLong game score checks Vhs=h$(d1*2-1) `as=a$(d2*2-1) e 7200  jhs=hs+pf1:as=as+pf2 oy=07554 ty=1hs=hs+serve ~y=2as=as+serve hsas7700 ]hs=as6;0;1;19,30;"Dc";21,30;"Dc":12 hs=as8290b hs=h$(d7*2-1) as=a$(d8*2-1) hs=as7560 Hhs>asP$(1)="Gm":P$(2)="Dc":gm1=gm1+1:Dc=1 Hhsy=119,24;1;6;0;"." ^y=221,24;1;6;0;".";19,24;0;"" 6;0;1;19,1;q1;19,3;r1;19,5;s1;19,7;t1;19,9 ;u1;19,25;"0";19,28;gm1;19,30;P$(1) 6;0;1;21,1;q2;21,3;r2;21,5;s2;21,7;t2;21,9 ;u2;21,25;"0";21,28;gm2;21,30;P$(2):v  Long game print scores  8700! y=0y=y2 #y=y+1:y>2y=1 $Dc=1Dc=0:7765U Rhs=as+1hs=as+2P$(1)="Gm":P$(2)="30":gm1=gm1+1 (Rhs=as+3hs=as+4P$(1)="Gm":P$(2)="15":gm1=gm1+1 2Dhsas+5P$(1)="Gm":P$(2)="00":gm1=gm1+1 as13 ,9 ;1;2;"< Serve break":150 VRy=2as>hs13 ,10 ;1;2;"Serve break >":150 X613 ,9 ;0;4;" " Z6;0;1;19,1;q1;19,3;r1;19,5;s1;19,7;t1;19,9 ;u1;19,25;p1;19,28;gm1;19,30;P$(1) _6;0;1;21,1;q2;21,3;r2;21,5;s2;21,7;t2;21,9 ;u2;21,25;p2;21,28;gm2;21,30;P$(2):v a^y=119,24;1;6;0;".";21,24;0;"" b^y=221,24;1;6;0;".";19,24;0;"" dPmix=1y=1serve=10;1;20,24;"w"; iPmix=1y=2serve=10;1;20,24;"w"; nPmix=1y=1serve=20;1;20,24;"m"; sPmix=1y=2serve=20;1;20,24;"m"; x:part=10;1;20,24;O$(f)  SCREEN PRINT RESULT   bl=p1+p2 p1>p26,1;B$(13 );" BT ";C$(13 );9 ,8;"By ";p1;" Sets to ";p2;12 ,6;q1;"-";q2;" ";r1;"-";r2;" ";s1;"-";s2;" ";t1;"-";t2;" ";u1;"-";u2 p2>p16,1;C$(13 );" BT ";B$(13 );9 ,8;"By ";p2;" Sets to ";p1;12 ,6;q2;"-";q1;" ";r2;"-";r1;" ";s2;"-";s1;" ";t2;"-";t1;" ";u2;"-";u1 7bl=112 ,10 ;" " 3bl=212 ,14;" " /bl=312 ,18;" " +bl=412 ,22;" " #"ENTER 'C' TO COPY OR ENTER ";Z$  Z$="C" " @Court draw routine B E4:4 J;a=118:" ":a T 7 ^:a=14:" ":a h'20,165:220,0 r<0,-120x:-220,0:0,+120x |)127,171:0,-132 (70F,155:0,-100d )185,155:0,-100d '20,155:220,0 &20,557:220,0 r20,105i:3,0:70F,105i:115s,0:237,105i:3,0 >0,0;6;" " 0,1;6;T$  Clear bottom screen 617,0;" " :a=14:" ":a  :Dice roll routine D N2d1=(1+(*6))+(1+(*6)) S2d2=(1+(*6))+(1+(*6)) X2d3=(1+(*6))+(1+(*6)) ]2d4=(1+(*6))+(1+(*6)) _2d5=(1+(*6))+(1+(*6)) a2d6=(1+(*6))+(1+(*6)) b2d7=(1+(*6))+(1+(*6)) d2d8=(1+(*6))+(1+(*6)) g lServe/receive routine qd2=d2+2 v d2d4S$="Serve":s=1 d2=d4S$="Serve":s=1  !Draw morale routine ! /mo1<10 14,11 ;7;" " !/mo2<10 14,21;7;" " ! A1;7;14,10 ;mo1;14,20;mo2 !*r=01806 !4Raise game routine !9rg1=0rg2=0 !>!"Raise game - 1,2,3, or 0 ? ";i !H!i>3i<08510>! !R i=0 !WFi=1rg1=0"Chances used up. PRESS enter";Q$:85004! !\Fi=2rg2=0"Chances used up. PRESS enter";Q$:85004! !p 8250: !r"mo1=1h(1)=-2 !s.mo1=2mo1=3h(1)=-1 !t-mo1>3mo1<7h(1)=0 !u.mo1=7mo1=8h(1)=+1 !v"mo1=9 h(1)=+2 !w#mo1=10 h(1)=+3 !y"mo2=1h(2)=-2 !z.mo2=2mo2=3h(2)=-1 !{-mo2>3mo2<7h(2)=0 !|.mo2=7mo2=8h(2)=+1 !}"mo2=9 h(2)=+2 !~#mo2=10 h(2)=+3 !i=28590! !i=38600! !%i=1j(1)=d1+h(1) !i=1rg1=rg1-1 !_j(1)dj(1)10 pf1=1:j(1)asmo2=mo2-1:mo1=mo1+1 "mo1>10 mo1=10 "$mo2>10 mo2=10 ".mo2<1mo2=1 "8mo1<1mo1=1 "B " "Chart data lines "" 0011663R44665544552233" "" 006L113R44556644225533" "" 336L113R44554466220055" "" 336L1R4433445566220055" "" 336L442R33445511660055" "" 66336L2R44335511004455" "" 66336L2R11335544004455" "" 446L330R11223355443355" "" 44665L3R00221133443322" "" 66225L3300112233444433" "" XX666P55557P556P666P44" "" XX665P55446P557P556P33" #(Men data 15.8.88 #-"Ivan Lendl 0110" #2"Mats Wilander0209" #7"Stefan Edberg0208" #<"Andre Agassi 0210" #A"Boris Becker 0209" #F"Jimmy Connors0309" #K"Pat Cash 0309" #P"Yannick Noah 0308" #U"Miloslv Mecir0307" #Z"Tim Mayotte 0308" #_"Henri Leconte0308" #d"Kent Carlsson0310" #i"Brad Gilbert 0409" #n"G.Perez-Roldn0409" #s"Jonas Svenson0410" #x"Andres Gomez 0409" #}"John McEnroe 0410" #"Anders Jarryd0409" #"And.Chesnokov0410" #"Thomas Muster0410" #"Emilo Sanchez0410" #"Kevin Curren 0508" #"A. Krickstein0509" #"A. Mansdorf 0509" #"Ron Agenor 0510" #"Martin Jaite 0510" #"J. Fitzgerald0510" #"S.Zivojinovic0508" #"Jakob Hlasek 0509" #"Mike Pernfors0508" #"Dan Goldie 0510" #"Luiz Mattar 0510" #"Darren Cahill0610" #"David Pate 0609" #"Jay Berger 0610" #"Paul Annacone0608" #"Peter Lundgen0610" #"Mark Woodford0610" #"Jordi Arrese 0611" #"Mike Schapers0610" #"Ram. Krishnan0609" #"Elt.Teltscher0609" #"Mg.Gustafsson0610" $"Albt. Mancini0610" $ "Cld. Mezzadri0611" $"John Frawley 0610" $"Dk. Rostagno 0610" $"Guy Forget 0610" $"Eric Jelen 0610" $""Wally Masur 0609" $'"Robert Seguso0609" $,"Milan Srejber0610" $1"Patrk. Kuhnen0611" $6"Lawson Duncan0611" $;"Tomas Smid 0709" $@"C.VanRensburg0710" $E"Todd Witsken 0710" $J"Jim Pugh 0709" $O"Joakm Nystrom0709" $T"Mrc Filippini0710" $Y"Jim Grabb 0710" $^"Fernando Luna0710" $c"Horst Skoff 0710" $h"Thry Tulasne 0709" $m"Johan Kriek 0709" $r"Michael Chang0711" $w"Hrco.DeLaPena0809" $|"Chris.Saceanu0811" $"Sergio Casal 0810" $"E.Bengoechea 0810" $"Jorge Lozano 0810" $"A. Olbovskiy 0810" $"Bruno Oresar 0810" $"Kelly Everndn0810" $"C. Bergstrom 0811" $"Cassio Motta 0809" $"Jamie Yzaga 0811" $"Yahya Doumbia0811" $"Jim Courier 0811" $"Crl-Uwe Steeb0811" $"Javier Frana 0810" $"Franco Davin 0811" $"Todd Nelson 0909" $"F.Cancellotti0909" $"Brod Dkye 0910" $"Joey Rive 0910" $"Jan Gunnarson0910" $"Tore Meinecke0910" $"Udo Riglewski0910" $"Thry Champion0910" $"Eduardo Masso0911" $"Jeremy Bates 0910" $"Ken Flach 0909" $"Marian Vajda 0911" %"Chris Pridham0911" %"Martin Davis 1010" % "S.Giammalva J1009" %"Rik Osterthun1010" %"Tim Wilkison 1010" %"Javer Sanchez1011" %!"Steffi Graf 0107" %&"M.Navratilova0207" %+"Chris Evert 0308" %0"Gabi Sabatini0309" %5"Pam Shriver 0310" %:"Helena Sukova0409" %?"Natla.Zvereva0410" %D"Manla.Maleeva0408" %I"Lori McNeil 0409" %N"C.KohdeKilsch0409" %S"H. Mandlikova0411" %X"Zina Garrison0409" %]"Barbra Potter0410" %b"M-J.Fernandez0410" %g"Katra.Maleeva0509" %l"Stephani Rehe0509" %q"Sylvia Hanika0510" %v"Sdra.Cecchini0510" %{"Lsa.Savchenko0509" %"Helen Kelesi 0510" %"Arnta Sanchez0510" %"Patty Fendick0511" %"Rafaela Reggi0609" %"Isabel Cueto 0610" %"Bettina Fulco0610" %"Natle Tauziat0610" %"Pascl.Paradis0609" %"Ctn.Lindqvist0609" %"Anne Minter 0610" %"Pat Tarabini 0610" %"Judy Wiesner 0611" %"Eina Reinach 0609" %"Barbra Paulus0610" %"Nicole Provis0611" %"Halle Cioffi 0611" %"Niege Dias 0611" %"Robin White 0610" %"Ros Fairbank 0611" %"Is. Demongeot0708" %"Bettina Bunge0709" %"Leila Meskhi 0710" %"R. Zrubakova 0710" %"Grtchn Magers0710" %"Jana Novotna 0710" %"Etsuko Inoue 0710" &"Sabrina Goles0708" &"Brnda Schultz0711" & "Julie Halard 0711" &"Sarah Gomer 0711" &"Dne.Balestrat0710" &"Peanut Harper0709" & "Chta.Martinez0711" &%"Mercedes Paz 0710" &*"Anne Smith 0809" &/"Terry Phelps 0810" &4"Blda.Cordwell0810" &9"Gi.Fernandez 0810" &>"Jo Durie 0810" &C"Kathy Jordan 0809" &H"Wndy Turnbull0810" &M"M-Lou Daniels0810" &R"M.PerezRoldan0810" &W"Kathy Horvath0809" &\"Wiltrd Probst0810" &a"Mrne. Werdel 0810" &f"Susan Sloane 0811" &k"Silke Meier 0811" &p"I.Kuczynska 0811" &u"Elly Hakami 0811" &z"Laura Golarsa0909" &"Kate Gompert 0909" &"Cldia Porwik 0910" &"Laura Garrone0909" &"Amy Frazier 0910" &"Linda Ferando0910" &"Sdr.Wasserman0911" &"D.VanRensburg0910" &"Hu Na 0910" &"A.Kanelipolos0910" &"An Henrickson0911" &"Monique Javer0910" &"Michle Torres0910" &"Ann Grossman 0910" &"Cmle.Benjamin0909" &"Akio Kijimuta0910" &"Karen Shimper0911" &"Wendy White 0910" &"S.Parkhomenko1010" &"Ncle Jagerman1010" &"Chris Singer 1010" &"Ann Devries 1011" &"Man.Bollegraf1011" &"Katrina Adams1010" &"F.Bonsignori 1010" &"Elizbh Minter1010" &"Melisa Gurney1009" '"Ronni Reis 1011" '"Iva Budarova 1011" ' "Hestr Witvoet1011" '|q1=6:q2=4:r1=4:r2=6:k=3:gm1=5:gm2=5:set=3:p1=1:p2=1: '"Cat. Tanvier 1010" SW          oPTQWERTYnarQRp