CP/M/CPM_CDROM.iso/simtel/cpmug/cpmug054.ark/TENNIS.BAS

BASIC Source File | 1984-04-29 | 3.2 KB | 97 lines

1 Z=0
2 PRINT "TEST YOUR KNOWLEDGE IN TENNIS."
3 PRINT "THIS IS A MULTIPLE-CHOICE QUIZ."
5 PRINT "TYPE A 1,2, OR 3 AFTER THE QUESTION MARK."
7 PRINT "GOOD LUCK!"
9 PRINT "WHAT IT IS CALLED WHEN SOMEONE HAS SCORED NO POINTS?"
11 PRINT "1) DUECE 2) 0 3) LOVE";
13 INPUTA:  IF A =3 THEN 17
15 PRINT "TOO BAD.....IT IS CALLED LOVE.": GOTO 21
17 PRINT "PRETTY GOOD!  HOW ABOUT ANOTHER?"
19 Z=Z+1
21 PRINT:PRINT
23 PRINT "WHERE ON THE COURT IS A SHOT CALLED THE VOLLEY"
24 PRINT "USUALLY HIT?"
25 PRINT "1) BASE LINE 2) NET 3) SERVICE LINE";
27 INPUT A: IF A =2 THEN 31
29 PRINT "SORRY.... AT THE NET.":  GOTO 35
31 PRINT "GREAT!"
33 Z=Z+1
35 PRINT:PRINT
37 PRINT "FROM WHICH LINE DO YOU SERVE?"
39 PRINT "1)SERVICE LINE 2) BASE LINE 3) FOOT LINE";
41 INPUT A:  IF A =2 THEN 45
43 PRINT "BAD LUCK... FROM THE BASE LINE.":  GOTO 49
45 PRINT "GOOD ...HERE'S ANOTHER."
47 Z=Z+1
49 PRINT:PRINT
51 PRINT"WHO WON THE 1975 WIMBELTON WOMEN'S SINGLES TITLE?"
53 PRINT "1) CHRIS EVERT 2) MARTINA NAVRATILOVA 3)  BILLY"
54 PRINT "JEAN KING";
55 INPUT A: IF A=3 THEN 59
57 PRINT "TOO BAD... IT WAS BILLY JEAN KING.":  GOTO 63
59 PRINT "EXCELLENT...NOW THE MEN."
61 Z=Z+1
63 PRINT:PRINT
65 PRINT "WHO WON THE MEN'S SINGLES"
66 PRINT "TITLE AT WIMBELTON IN 1975?"
67 PRINT "1)JIMMY CONNORS 2)ARTHUR ASHE 3) ROD LAVER";
69 INPUT A:  IF A =2 THEN 73
71 PRINT "SORRY.... IT WAS ARTHUR ASHE.":  GOTO 79
73 PRINT "EXCELLENT!"
75 Z=Z+1
79 PRINT: PRINT
81 PRINT "WHAT IS THE PART OF THE COURT THAT IS USED IN DOUBLES"
82 PRINT "AND NOT IN SINGLES?"
89 PRINT "1)MID COURT 2)CROSS COURT 3)ALLEY";
91 INPUT A:  IF A =3 THEN 95
93 PRINT"HOW TERRIBLE... IT IS AN ALLEY.": GOTO99
95 PRINT "YOU GOT IT... HOW ABOUT ANOTHER?"
97 Z=Z+1
99 PRINT:PRINT
101 PRINT "IN A PRO 8 SET WHICH ONE OF THE FOLLOWING WOULD BE"
102 PRINT "A FINAL SET SCORE?"
103 PRINT "1)8-6 2)6-2 3)5-1";
105 INPUT A:  IF A =1 THEN 109
107 PRINT "YOU DUMMY... 8-6.":  GOTO 113
109 PRINT "FAIRLY GOOD...NOT A HARD QUESTION."
111 Z=Z+1
113 PRINT:PRINT
115 PRINT "IN THE TENNIS MATCH, BATTLE BETWEEN"
116 PRINT "THE SEXES, WHO WON?"
117 PRINT "1)BOBBY RIGGS 2)BILLY JEAN KING 3)"
118 PRINT "MARGARET COURT";
119 INPUT A:  IF A =2 THEN 123
121 PRINT "YOU'RE REALLY DUMB..IT WAS BILLY JEAN KING."
122 GOTO 127
123 PRINT "WHAT A SMARTY ...HERE'S ANOTHER."
125 Z=Z+1
127 PRINT:PRINT
129 PRINT "WHAT SHOT IS HIT HIGH INTO THE AIR AND GENERALLY"
130 PRINT "DEEP INTO THE OPPONENT'S COURT?"
131 PRINT"1)DINK 2)LOB 3)GROUND STROKE";
133 INPUT A:  IF A=2 THEN 137
135 PRINT "TOO BAD...IT'S A LOB.": GOTO 141
137 PRINT"GREAT....THAT WAS A TOUGHY."
139 Z=Z+1
141 PRINT:PRINT
143 PRINT "WHEN THE SCORE IS 40-40, WHAT IS IT CALLED?"
145 PRINT "1)ADD OUT 2)ADD IN 3)DUECE";
147 INPUT A:  IF A =3 THEN 151
149 PRINT "HOW TERRIBLE..IT'S CALLED DUECE.": GOTO 153
151 PRINT "PRETTY GOOD...THAT WAS THE LAST ONE."
153 PRINT "NUMBER OF CORRECT ANSWERS IS:" Z
155 IF Z>=8 THEN 163
157 IF Z>=6 THEN 165
159 IF Z>=4 THEN167
161 IF Z<=3 THEN169
163 PRINT "YOU'RE A TENNIS WIZARD."
164 GOTO 173
165 PRINT"YOU'RE AN AMATEUR."
166 GOTO 173
167 PRINT "TAKE SOME LESSONS."
168 GOTO 173
169 PRINT "HANG UP YOUR RACKET."
173 PRINT "THANKS FOR PLAYING."
175 END