1 PRINT TAB(30)"TENNIS MATCH" 2 PRINT TAB(15)"CREATIVE COMPUTING, MORRISTOWN, NEW JERSEY" 10 PRINT:PRINT:PRINT 21 PRINT "THERE ARE SEVERAL OPTIONS AVAILABLE TO YOU AS TO POSITION," 22 PRINT "PLACEMENT OF SHOT, AND SPEED (TYPE) OF SHOT. THE KEY THAT " 23 PRINT "YOU WILL USE IS..." 24 PRINT TAB(5)"POSITION(PLACEMENT, TOO): L.BACKCOURT(1);R.BACK-" 25 PRINT "COURT(2); L. FORECOURT(3); R. FORECOURT(4)." 26 PRINT TAB(5)"SPEED (TYPE) OF SHOT: FAST-SLAM(S);SLOWLOB(L)." 27 PRINT TAB(3)"BACKHANDS AND FOREHANDS WILL MERELY BE ASSUMED AS YOU " 28 PRINT "SHOOT FROM A CERTAIN SECTION OF THE COURT." 29 PRINT TAB(5) "ON SERVES, YOU CANNOT HAVE PLACEMENT OPTIONS, BUT YOU" 30 PRINT "WILL BE ABLE TO ALTER THE SPEED OF IT. BY THE WAY, YOU" 31 PRINT "WILL BE ALLOWED TO SERVE FIRST IN ALL GAMES." 32 PRINT TAB(10);"ARE YOU READY?... HERE WE GO!!!" 35 Y=0 36 Z=0 38 PRINT 39 PRINT 40 PRINT " SERVE! TYPE"; 41 INPUT A$: IF A$<>"L" AND A$<>"S" THEN PRINT "'L' OR 'S'": GOTO 40 42 A=100*RND (1) 43 IF A$="L" THEN 52 44 C=6 45 D=51 46 IF A"L" AND B$<>"S" THEN PRINT "'L' OR 'S'": GOTO 55 57 E=100*RND(1) 58 IF B$="L" THEN 67 59 G=5 60 H=41 61 IF E6 THEN 74 72 PRINT TAB(10);"SERVE IS GOOD... ACE!!" 73 GOTO 128 74 K=100*RND (1) 75 IF A$="L" THEN 81 76 IF B$="L" THEN 81 77 N=61 78 IF K=4 AND Y>Z+1 THEN 137 135 IF Z>=4 AND Z>Y+1 THEN 139 136 GOTO 38 137 Y1=Y1+1 138 GOTO 140 139 Z1=Z1+1 140 PRINT"--------------- GAME OVER ----------------" 141 PRINT TAB(15);"SCORE-GAMES YOU...ME" 142 PRINT TAB(32);Y1;" ";Z1 143 IF Y1>=6 AND Y1>Z1+1 THEN 146 144 IF Z1>=6 AND Z1>Y1+1 THEN 149 145 GOTO 35 146 PRINT 147 PRINT "*****CONGRATULATIONS...YOU WON*****" 148 GOTO 151 149 PRINT 150 PRINT "*****AS PREDICTED, THE COMPUTER IS AGAIN TRIUMPHANT!*****" 151 PRINT 152 PRINT" I'D LIKE TO PLAY YOU AGAIN SOMETIME, BUT RIGHT NOW, I" 153 PRINT "HAVE TO REST.........BYE!!!" 154 PRINT 200 IF Y>=2 AND Z>=2 THEN 300 210 IF Y=4 OR Z=4 THEN S$="GAME": GOTO 400 220 IF Y=0 THEN Y$="LOVE" 230 IF Y=1 THEN Y$="15 - " 240 IF Y=2 THEN Y$="30 - " 245 IF Y=3 THEN Y$="40 - " 250 IF Z=0 THEN Z$="LOVE" 255 IF Z=1 THEN Z$="15" 260 IF Z=2 THEN ZI="30" 265 IF Z=3 THEN Z$="40" 270 S$=Y$+Z$:GOTO 400 300 IF Y=Z THEN S$="DUCE":GOTO 400 310 IF Y=Z+1 THEN S$="ADD IN ": GOTO 400 320 IF Y=Z-1 THEN SI="ADD OUT": GOTO 400 330 IF Y=Z+2 OR Z=Y+2 THEN S$="GAME" 400 RETURN 500 END