Top 10k strings from tennisch.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /
Back to the directory listing
4 " ":
4
3 ;" ":
3 ;" "
2 seed=seed+1
2 line=line+2
2 S$="Serve":
2 ;"Chance";
2 ;"(";ch;")"
2 ;"(";bh;")"
2 ;" 1 2 3 4 5 SET GM PT"
2 );" who will ";S$:
2 );" (";ch;")";" By ";p1;"-";p2;" ";q1;"-";q2;" ";r1;"-";r2;" ";s1;"-";s2;" ";t1;"-";t2;" ";u1;"-";u2
2 );" (";bh;")";" By ";p2;"-";p1;" ";q2;"-";q1;" ";r2;"-";r1;" ";s2;"-";s1;" ";t2;"-";t1;" ";u2;"-";u1
2 );" ";"(";ch;")";" BT " ;B$(
2 );" ";"(";bh;")";" BT " ;C$(
2 "Is this correct (Y/N)? ";Q$
2 "Is this correct (Y/N) ? ";Q$
2 "Enter 'R' to replay match ";Q$
2 "Change (P)layers / (Grades)?";O$
2 "Chances used up. PRESS enter";Q$:
2 "(C)opy, (P)rint or Enter ";Q$
2 "(C)opy or Enter ";Q$
2 " - - - - - - - - - - - - - - - -"
2
1 second player injury
1 line=line+1
1 hs=hs+serve
1 hs=hs+pf1:
1 h(k)=g(j):
1 grading of players
1 g(j)=h(j):
1 as=as+serve
1 Update doubles serve
1 Tournament Name
1 TENNIS
1 Started 3.11.88
1 Start Long Game
1 Start Game
1 Short or long game
1 Serve/receive routine
1 Seeded draw routine
1 SCREEN PRINT RESULT
1 S$="Receive":
1 Recall player data
1 Recall and process data
1 Raise game routine
1 Print scores
1 Morale change
1 Mixed Doubles serve check
1 Men data 15.8.88
1 Long game score checks
1 Long game print scores
1 Long Game print scores
1 Input Player data
1 Input Doubles Info
1 Injury check
1 First player injury
1 Draw morale routine
1 Doubles Serve choice
1 Dice roll routine
1 Create players
1 Court draw routine
1 Clear bottom screen
1 Chart data lines
1 Cap Lock and Print Width
1 ;q2;"-";q1;" ";r2;"-";r1;" ";s2;"-";s1;" ";t2;"-";t1;" ";u2;"-";u1
1 ;q1;"-";q2;" ";r1;"-";r2;" ";s1;"-";s2;" ";t1;"-";t2;" ";u1;"-";u2
1 ;"their copyright."
1 ;"Toss won by ";C$(
1 ;"Toss won by ";B$(
1 ;"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"
1 ;"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 !"
1 ;"Serve break >":
1 ;"SEEDED TOURNAMENT DRAW"
1 ;"Press key for toss for serve ";
1 ;"PLAYER GENERATION"
1 ;"It will print up to 20 players on the screen which you can copyto a printer or write down."
1 ;"Input PP rate of second partners (2 digits) "
1 ;"Input PP rate of first partners (2 digits) "
1 ;"Input Grading of second partners (2 digits) "
1 ;"Input Grading of first partners (2 digits) "
1 ;"FIRST ROUND:"
1 ;"FIRST ROUND CONTINUED:":
1 ;"Enter code No. of second player- "
1 ;"Enter code No. of second partner "
1 ;"Enter code No. of first player- "
1 ;"Enter code No. of first partner- "
1 ;"Enter Singles (S) or Doubles (D)"
1 ;"Enter PP No. of second player(s)(2 Digits) "
1 ;"Enter PP No. of first player(s) (2 Digits) "
1 ;"Enter Name of second player (max of 13 letters) "
1 ;"Enter Name of second partner (max of 13 letters) "
1 ;"Enter Name of first player (max of 13 letters) "
1 ;"Enter Name of first partner (max of 13 letters) "
1 ;"Enter Grade of second player(s) (2 Digits)"
1 ;"Enter Grade of first player(s) (2 Digits)"
1 ;"Enter 1. For Seeded Draw "
1 ;"Enter (M)en,(W)omen,or Mixed(B) "
1 ;"Enter (M)en or (W)omen "
1 ;"Draw being made...."
1 ;"Change ratings of partnerships ? Input (Y) or (N) "
1 ;"By ";p2;" Sets to ";p1;
1 ;"By ";p1;" Sets to ";p2;
1 ;"Adapted from Lambourne Games'"
1 ;"======================"
1 ;"< Serve break":
1 ;"(Max 30 Letters)"
1 ;"(I)nput players yourself or (R)ecall data from memory ?"
1 ;" Name of Tournament to Replay ?"
1 ;" 4. Create Player Rating "
1 ;" 3. Change Tournament Name"
1 ;" 2. To Choose Players "
1 ;" "
1 ;" "
1 ;" "
1 ;" "
1 ;" "
1 ;" "
1 );" BT ";C$(
1 );" BT ";B$(
1 "Zina Garrison0409"
1 "Yannick Noah 0308"
1 "Yahya Doumbia0811"
1 "Wndy Turnbull0810"
1 "Wiltrd Probst0810"
1 "Wendy White 0910"
1 "Wally Masur 0609"
1 "Udo Riglewski0910"
1 "Tore Meinecke0910"
1 "Tomas Smid 0709"
1 "Todd Witsken 0710"
1 "Todd Nelson 0909"
1 "Tim Wilkison 1010"
1 "Tim Mayotte 0308"
1 "Thry Tulasne 0709"
1 "Thry Champion0910"
1 "Thomas Muster0410"
1 "Terry Phelps 0810"
1 "Sylvia Hanika0510"
1 "Susan Sloane 0811"
1 "Stephani Rehe0509"
1 "Steffi Graf 0107"
1 "Stefan Edberg0208"
1 "Speed of replay (1-100) ?";v
1 "Silke Meier 0811"
1 "Sergio Casal 0810"
1 "Second Partners Server (1/2) ";q
1 "Sdra.Cecchini0510"
1 "Sdr.Wasserman0911"
1 "Sarah Gomer 0711"
1 "Sabrina Goles0708"
1 "S.Zivojinovic0508"
1 "S.Parkhomenko1010"
1 "S.Giammalva J1009"
1 "Ros Fairbank 0611"
1 "Ronni Reis 1011"
1 "Ron Agenor 0510"
1 "Robin White 0610"
1 "Robert Seguso0609"
1 "Rik Osterthun1010"
1 "Ram. Krishnan0609"
1 "Raise game option (Y)or(N)? ";R$
1 "Raise game - 1,2,3, or 0 ? ";i
1 "Rafaela Reggi0609"
1 "R. Zrubakova 0710"
1 "Press 'C' to copy or ENTER ";Q$
1 "Player No.";
1 "Peter Lundgen0610"
1 "Peanut Harper0709"
1 "Paul Annacone0608"
1 "Patty Fendick0511"
1 "Patrk. Kuhnen0611"
1 "Pat Tarabini 0610"
1 "Pat Cash 0309"
1 "Pascl.Paradis0609"
1 "Pam Shriver 0310"
1 "Number to create ? ";M
1 "Number of players ? ";n
1 "Niege Dias 0611"
1 "Nicole Provis0611"
1 "Ncle Jagerman1010"
1 "Natle Tauziat0610"
1 "Natla.Zvereva0410"
1 "Mrne. Werdel 0810"
1 "Mrc Filippini0710"
1 "Monique Javer0910"
1 "Miloslv Mecir0307"
1 "Milan Srejber0610"
1 "Mike Schapers0610"
1 "Mike Pernfors0508"
1 "Michle Torres0910"
1 "Michael Chang0711"
1 "Mg.Gustafsson0610"
1 "Mercedes Paz 0710"
1 "Melisa Gurney1009"
1 "Mats Wilander0209"
1 "Martin Jaite 0510"
1 "Martin Davis 1010"
1 "Mark Woodford0610"
1 "Marian Vajda 0911"
1 "Manla.Maleeva0408"
1 "Man.Bollegraf1011"
1 "M.PerezRoldan0810"
1 "M.Navratilova0207"
1 "M-Lou Daniels0810"
1 "M-J.Fernandez0410"
1 "Luiz Mattar 0510"
1 "Lsa.Savchenko0509"
1 "Lori McNeil 0409"
1 "Linda Ferando0910"
1 "Leila Meskhi 0710"
1 "Lawson Duncan0611"
1 "Laura Golarsa0909"
1 "Laura Garrone0909"
1 "Kevin Curren 0508"
1 "Kent Carlsson0310"
1 "Ken Flach 0909"
1 "Kelly Everndn0810"
1 "Katrina Adams1010"
1 "Katra.Maleeva0509"
1 "Kathy Jordan 0809"
1 "Kathy Horvath0809"
1 "Kate Gompert 0909"
1 "Karen Shimper0911"
1 "Julie Halard 0711"
1 "Judy Wiesner 0611"
1 "Jorge Lozano 0810"
1 "Jordi Arrese 0611"
1 "Jonas Svenson0410"
1 "John McEnroe 0410"
1 "John Frawley 0610"
1 "Johan Kriek 0709"
1 "Joey Rive 0910"
1 "Joakm Nystrom0709"
1 "Jo Durie 0810"
1 "Jimmy Connors0309"
1 "Jim Pugh 0709"
1 "Jim Grabb 0710"
1 "Jim Courier 0811"
1 "Jeremy Bates 0910"
1 "Jay Berger 0610"
1 "Javier Frana 0810"
1 "Javer Sanchez1011"
1 "Jana Novotna 0710"
1 "Jan Gunnarson0910"
1 "Jamie Yzaga 0811"
1 "Jakob Hlasek 0509"
1 "J. Fitzgerald0510"
1 "Ivan Lendl 0110"
1 "Iva Budarova 1011"
1 "Isabel Cueto 0610"
1 "Is. Demongeot0708"
1 "I.Kuczynska 0811"
1 "Hu Na 0910"
1 "Hrco.DeLaPena0809"
1 "Horst Skoff 0710"
1 "Hestr Witvoet1011"
1 "Henri Leconte0308"
1 "Helena Sukova0409"
1 "Helen Kelesi 0510"
1 "Halle Cioffi 0611"
1 "H. Mandlikova0411"
1 "Guy Forget 0610"
1 "Grtchn Magers0710"
1 "Gi.Fernandez 0810"
1 "Gabi Sabatini0309"
1 "G.Perez-Roldn0409"
1 "Franco Davin 0811"
1 "First Partners Server (1/2) ";o
1 "Fernando Luna0710"
1 "F.Cancellotti0909"
1 "F.Bonsignori 1010"
1 "Etsuko Inoue 0710"
1 "Eric Jelen 0610"
1 "Enter 'R' to Rerun ";Q$
1 "Enter 'C' to Copy ";Q$
1 "Emilo Sanchez0410"
1 "Elt.Teltscher0609"
1 "Elly Hakami 0811"
1 "Elizbh Minter1010"
1 "Eina Reinach 0609"
1 "Eduardo Masso0911"
1 "ENTER 'C' TO COPY OR ENTER ";Z$
1 "E.Bengoechea 0810"
1 "Dne.Balestrat0710"
1 "Dk. Rostagno 0610"
1 "David Pate 0609"
1 "Darren Cahill0610"
1 "Dan Goldie 0510"
1 "D.VanRensburg0910"
1 "Ctn.Lindqvist0609"
1 "Crl-Uwe Steeb0811"
1 "Cmle.Benjamin0909"
1 "Cldia Porwik 0910"
1 "Cld. Mezzadri0611"
1 "Chta.Martinez0711"
1 "Chris.Saceanu0811"
1 "Chris Singer 1010"
1 "Chris Pridham0911"
1 "Chris Evert 0308"
1 "Cat. Tanvier 1010"
1 "Cassio Motta 0809"
1 "C.VanRensburg0710"
1 "C.KohdeKilsch0409"
1 "C. Bergstrom 0811"
1 "Bruno Oresar 0810"
1 "Brod Dkye 0910"
1 "Brnda Schultz0711"
1 "Brad Gilbert 0409"
1 "Boris Becker 0209"
1 "Blda.Cordwell0810"
1 "Bettina Fulco0610"
1 "Bettina Bunge0709"
1 "Best of how many sets ? ";z
1 "Barbra Potter0410"
1 "Barbra Paulus0610"
1 "Arnta Sanchez0510"
1 "Are Partners correct (Y/N)? ";Q$
1 "Anne Smith 0809"
1 "Anne Minter 0610"
1 "Ann Grossman 0910"
1 "Ann Devries 1011"
1 "Andres Gomez 0409"
1 "Andre Agassi 0210"
1 "Anders Jarryd0409"
1 "And.Chesnokov0410"
1 "And for opponents (M/W) ? ";Y$
1 "An Henrickson0911"
1 "Amy Frazier 0910"
1 "Albt. Mancini0610"
1 "Akio Kijimuta0910"
1 "A.Kanelipolos0910"
1 "A. Olbovskiy 0810"
1 "A. Mansdorf 0509"
1 "A. Krickstein0509"
1 "80 Col. Wide Printer (Y/N)?";Q$
1 "(M)an or (W)oman serve 1st? ";Z$
1 "(L)ong or (S)hort game? " ;L$
1 " game 'TOP TENNIS' which is "
1 " XX666P55557P556P666P44"
1 " XX665P55446P557P556P33"
1 " 66336L2R44335511004455"
1 " 66336L2R11335544004455"
1 " 66225L3300112233444433"
1 " 446L330R11223355443355"
1 " 44665L3R00221133443322"
1 " 336L442R33445511660055"
1 " 336L1R4433445566220055"
1 " 336L113R44554466220055"
1 " 006L113R44556644225533"
1 " 0011663R44665544552233"
1 Toss routine for serve
1 By John Gardiner":