1 REM... TENNIS ,Source MERITIS: 12/19/79 R.E.H. 02-16-81
    5 LET Z=RND(0): PRINT "&K"
    6 LET Z$=CHR(4): LET Z$=Z$+Z$+Z$
    8 DIM O$(25),N$(25),D$(25),S$(25)
   10 PRINT TAB(15);"*******************"
   15 PRINT TAB(15);"*   T E N N I S   *"
   17 PRINT TAB(15);"*******************&J"
   18 LET O$="John Newcombe"
   20 PRINT "   This is a TENNIS simulation between you and ";O$
   21 PRINT
   22 PRINT TAB(15);"|-----------------|"
   23 PRINT TAB(15);"|   :    1    :   |  The"
   24 PRINT TAB(15);"|   : - - - - :   |  numbering"
   25 PRINT TAB(15);"| 0 :  2 : 3  : 4 |  for both"
   26 PRINT TAB(15);"|   :    :    :   |  courts"
   28 PRINT TAB(15);"|-----------------|&J"
   29 INPUT "What is your name? ---=>",N$
   30 GOTO 35
   31 LET O$="JOHN NEWCOMBE"
   32 LET D$=N$
   33 LET S$=O$
   34 GOTO 40
   35 IF G/2=INT(G/2) THEN 31
   36 LET O$=N$
   37 LET D$="JOHN NEWCOMBE"
   38 LET S$=O$
   40 FOR S1=1 TO 2
   50   LET S=INT(RND(0)*10+0.5)
   60   IF S<8 THEN 120
   70   PRINT "FAULT"
   80 NEXT S1
   90 PRINT "DOUBLE FAULT"
  100 GOSUB 420
  110 GOTO 35
  120 PRINT "GOOD SERVE ";O$
  125 GOSUB 380
  130 LET R=INT(RND(0)*10+0.5)
  140 IF R<8 THEN 180
  150 PRINT "YOU WIFFED"
  160 GOSUB 420
  165 GOTO 285
  170 GOTO 35
  180 PRINT "GOOD RETURN ";O$
  185 GOSUB 380
  186 IF D$="JOHN NEWCOMBE" THEN 192
  190 INPUT (1,0)"Enter 1 zone to aim for (0 to 4) ---=>",P
  191 GOTO 200
  192 LET P=INT(RND(0)*4+0.5)
  193 IF P=0 THEN 195
  194 GOTO 200
  195 LET P=4
  200 IF O$="JOHN NEWCOMBE" THEN 230
  201 PRINT
  205 PRINT "INPUT 2 Defense zones (0 to 4) ---=>";
  210 INPUT A,B
  229 GOTO 240
  230 LET A=INT(RND(0)*4+0.5)
  231 IF A=0 THEN 233
  232 GOTO 234
  233 LET A=4
  234 LET B=INT(RND(0)*4+0.5)
  235 IF B=0 THEN 237
  236 GOTO 238
  237 LET B=4
  238 IF A=B THEN 234
  239 PRINT O$;" defending zones ";A;" and ";B
  240 IF P=A THEN 300
  250 IF P=B THEN 300
  270 PRINT : PRINT TAB(9);Z$;" POINT ";Z$;"    zone ";P
  280 GOSUB 420
  285 PRINT " <<< GAME SCORE >>>"
  286 PRINT "JOHN NEWCOMBE",M
  287 PRINT N$,O
  290 GOTO 35
  300 PRINT "GOOD RETURN ";O$
  310 GOSUB 380
  315 IF D$="JOHN NEWCOMBE" THEN 192
  320 GOTO 190
  380 LET O$=D$
  390 LET D$=S$
  400 LET S$=O$
  410 RETURN
  420 IF O$=N$ THEN 450
  430 LET O=O+1
  440 GOTO 460
  450 LET M=M+1
  460 IF M>3 THEN 490
  470 IF O>3 THEN 490
  480 GOTO 710
  490 IF ABS(O-M)>1 THEN 510
  500 GOTO 710
  510 IF M>O THEN 550
  520 PRINT "*******GAME ";N$;" *******"
  530 LET O1=O1+1
  540 GOTO 570
  550 PRINT "*******GAME JOHN NEWCOMBE *******"
  560 LET M1=M1+1
  570 PRINT "         SET  SCORE "
  575 LET G=G+1
  580 PRINT "JOHN NEWCOMBE",M1
  590 PRINT N$,O1
  600 PRINT
  605 LET M=0
  606 LET O=0
  610 IF M1>5 THEN 640
  620 IF O1>5 THEN 640
  630 GOTO 710
  640 IF ABS(O1-M1)>1 THEN 660
  650 GOTO 710
  660 IF M1>O1 THEN 690
  670 PRINT "* * * * * * ";N$;" WINS * * * * * *"
  680 GOTO 700
  690 PRINT "* * * * * * JOHN NEWCOMBE WINS * * * * * *"
  700 GOTO 720
  710 RETURN
  720 END