mirror of
https://github.com/PDP-10/stacken.git
synced 2026-03-01 09:21:15 +00:00
183 lines
5.5 KiB
QBasic
183 lines
5.5 KiB
QBasic
10 PRINT "YOU ARE NOW INTERACTING WITH A BASIC QUIZ ON SPORTS!!!"
|
|
20 PRINT "YOU MAY CONTINUE UNTIL YOU MISS THREE IN A ROW OR GET"
|
|
30 PRINT "FIVE IN A ROW CORRECT."
|
|
40 PRINT
|
|
50 PRINT
|
|
60 PRINT "BOBBY HULL IS A FORWARD FOR THE:"
|
|
70 PRINT "1)NEW YORK YANKEES....2)CHICAGO BLACKHAWKS 3)MAFIA"
|
|
80 PRINT "4)WELSH RAREBITS 5)SPANISH OMELETS"
|
|
90 INPUT X
|
|
100 IF X=2 THEN 110
|
|
102 GOSUB 1500
|
|
104 GOTO 113
|
|
110 GOSUB 1900
|
|
113 PRINT "ROGER MARIS HIT 61 HOME RUNS IN WHAT YEAR?"
|
|
114 PRINT "1)1950 2)1932 3)1961 4)1967 5)1845"
|
|
115 INPUT X
|
|
116 IF X=3 THEN 120
|
|
117 GOSUB 1500
|
|
118 GOTO 122
|
|
120 GOSUB 1900
|
|
122 PRINT "EDDIE ARCARO IS A FAMOUS:"
|
|
124 PRINT "1)PIMP 2)BOXER 3)PITCHER 4)WRESTLER 5)JOCKEY "
|
|
126 INPUT X
|
|
128 IF X=5 THEN 138
|
|
130 GOSUB 1500
|
|
132 GOTO 150
|
|
138 GOSUB 1900
|
|
150 PRINT "THE FAMOUS 'LONG COUNT' OCCURRED BETWEEN:"
|
|
152 PRINT "1)DEMPSEY AND TUNNEY 2)LOUIS AND SCHMELLING"
|
|
154 PRINT "3)JIGGS AND MAGGIE 4)ROMEO AND JULIET 5)LIZ AND RICHARD"
|
|
156 INPUT X
|
|
158 IF X=1 THEN 164
|
|
160 GOSUB 1500
|
|
162 GOTO 165
|
|
164 GOSUB 1900
|
|
165 GOTO 378
|
|
166 PRINT "THE FIRST MAN TO BREAK THE FOUR MINUTE MILE WAS:"
|
|
168 PRINT "1)BERNARD MCFADDEN 2)SYDNEY GREENSTREET 3)MICKEY MOUSE"
|
|
170 PRINT "4)ROGER BANNISTER 5)AL JOLSON "
|
|
172 INPUT X
|
|
174 IF X=4 THEN 180
|
|
176 GOSUB 1500
|
|
178 GOTO 182
|
|
180 GOSUB 1900
|
|
182 PRINT "JOE NAMATH IS FAMOUS FOR PLAYING"
|
|
184 PRINT "1)WATER POLO 2)MARATHONS 3)FOOTBALL 4)SOCCER 5)NONE OF THESE"
|
|
186 INPUT X
|
|
188 IF X=3 THEN 194
|
|
190 GOSUB 1500
|
|
192 GOTO 196
|
|
194 GOSUB 1900
|
|
196 PRINT
|
|
198 PRINT "A FAMOUS BROTHER TEAM IN BASEBALL WAS FROM WHAT FAMILY?"
|
|
200 PRINT "1)BAER 2)DIMAGGIO 3)SMOTHERS 4)COSTELLO 5)SMITH"
|
|
202 INPUT X
|
|
204 IF X=2 THEN 210
|
|
206 GOSUB 1500
|
|
208 GOTO 212
|
|
210 GOSUB 1900
|
|
212 PRINT "HOW MANY PLAYERS ON A LACROSSE TEAM?"
|
|
214 PRINT "1)5 2)8 3)9 4)10 5)11"
|
|
216 INPUT X
|
|
218 IF X=4 THEN 224
|
|
220 GOSUB 1500
|
|
222 GOTO 225
|
|
224 GOSUB 1900
|
|
225 GOTO 396
|
|
226 PRINT "THE 'MANASSA MAULER' WAS A NICKNAME FOR:"
|
|
228 PRINT "1)MAMIE VAN DOREN 2) DON KNOTTS 3)JACK BENNY "
|
|
230 PRINT "4)JOE LOUIS 5)JACK DEMPSEY"
|
|
240 INPUT X
|
|
242 IF X=5 THEN 248
|
|
244 GOSUB 1500
|
|
246 GOTO 250
|
|
248 GOSUB 1900
|
|
250 PRINT "THE 1968 OLYMPICS WERE HELD IN:"
|
|
260 PRINT "1)TOKYO 2)BERLIN 3)ROME 4)MEXICO CITY 5)LOS ANGELES"
|
|
280 INPUT X
|
|
282 IF X=4 THEN 288
|
|
284 GOSUB 1500
|
|
286 GOTO 290
|
|
288 GOSUB 1900
|
|
290 PRINT "OF THE FOLLOWING, THE TALLEST BASKETBALL PLAYER IS"
|
|
292 PRINT "1)BOB COUSY 2)BILL RUSSELL 3)JERRY WEST 4)WILT"
|
|
294 PRINT "CHAMBERLAIN 5)LEW ALCINDOR."
|
|
296 INPUT X
|
|
298 IF X=5 THEN 304
|
|
300 GOSUB 1500
|
|
302 GOTO 306
|
|
304 GOSUB 1900
|
|
306 PRINT "WHO WAS THE YOUNGEST BASEBALL PLAYER TO WIN A MAJOR"
|
|
308 PRINT "LEAGUE BATTING TITLE?"
|
|
310 PRINT "1)JOE DIMAGGIO 2) BABE RUTH 3)PEE WEE REESE 4)AL KALINE"
|
|
312 PRINT "5)MICKEY MANTLE."
|
|
314 INPUT X
|
|
316 IF X=4 THEN 322
|
|
318 GOSUB 1500
|
|
320 GOTO 323
|
|
322 GOSUB 1900
|
|
323 GOTO 414
|
|
324 PRINT "THE GOLF PLAYER WHO WON THE 1969 U.S. OPEN IS:"
|
|
326 PRINT "1)CHARLES COOTY 2)ORVILLE MOODY 3)BEN HOGAN "
|
|
328 PRINT "4)ARNOLD PALMER 5)LORD BYRON "
|
|
330 INPUT X
|
|
332 IF X=2 THEN 338
|
|
334 GOSUB 1500
|
|
336 GOTO 340
|
|
338 GOSUB 1900
|
|
340 PRINT "THE PROFESSIONAL TENNIS PLAYER FAMOUS FOR HIS TWO-HAND"
|
|
342 PRINT "SERVICE IS:"
|
|
344 PRINT "1)JACK KRAMER 2)PANCHO GONZALES 3)LEW HOAD 4)PANCHO"
|
|
346 PRINT "SEGURA 5)ART BUCHHOLZ"
|
|
348 INPUT X
|
|
350 IF X=4 THEN 356
|
|
352 GOSUB 1500
|
|
354 GOTO 358
|
|
356 GOSUB 1900
|
|
358 PRINT "THE LAST WINNER OF THE TRIPLE CROWN OF RACING WAS:"
|
|
360 PRINT "1)MAN O' WAR 2)SWAPS 3)NASHUA 4)MAJESTIC PRINCE"
|
|
362 PRINT "5)CITATION."
|
|
364 INPUT X
|
|
366 IF X=5 THEN 372
|
|
368 GOSUB 1500
|
|
370 GOTO 374
|
|
372 GOSUB 1900
|
|
374 PRINT "WE HAVE TEMPORARILY RUN OUT OF QUESTIONS!!!!!!!!"
|
|
376 STOP
|
|
378 PRINT "THE BOWLER REPUTED TO BE THE LAST TO USE A TWO-FINGERED"
|
|
380 PRINT "BALL WAS: 1)ANDY VARIPAPA 2)DICK WEBER 3)DON CARTER"
|
|
382 PRINT "4)NED DAY 5)DENNIS DAY"
|
|
384 INPUT X
|
|
386 IF X=4 THEN 392
|
|
388 GOSUB 1500
|
|
390 GOTO 166
|
|
392 GOSUB 1900
|
|
394 GOTO 166
|
|
396 PRINT "BUDDY YOUNG PLAYED AS A HALFBACK FOR THE:"
|
|
398 PRINT "1)NEW YORK GIANTS 2)CLEVELAND BROWNS 3)BROOKLYN"
|
|
400 PRINT "DODGERS 4)NEW YORK YANKEES 5)NEW YORK JETS."
|
|
402 INPUT X
|
|
404 IF X=4 THEN 410
|
|
406 GOSUB 1500
|
|
408 GOTO 226
|
|
410 GOSUB 1900
|
|
412 GOTO 226
|
|
414 PRINT "WHO WON THE 1968-9 LADY BYNG TROPHY IN HOCKEY?"
|
|
416 PRINT "1)ALEX DELVECCHIO 2)GORDIE HOWE 3) BOBBY HULL"
|
|
418 PRINT "4)STAN MIKITA 5)HARRY HOWELL."
|
|
420 INPUT X
|
|
422 IF X=1 THEN 428
|
|
424 GOSUB 1500
|
|
426 GOTO 324
|
|
428 GOSUB 1900
|
|
430 GOTO 324
|
|
1500 LET Y=Y+1
|
|
1502 LET Z=0
|
|
1505 IF Y=3 THEN 1550
|
|
1507 IF Y=2 THEN 1600
|
|
1510 PRINT "NOT QUITE RIGHT,SPORTS FAN,TRY AGAIN!!!!!!"
|
|
1520 RETURN
|
|
1550 PRINT "WE HAVE DECIDED YOU SHOULD TRY ANOTHER QUIZ AREA"
|
|
1560 PRINT "GOODBYE AND GOOD LUCK!!!!!"
|
|
1570 STOP
|
|
1600 PRINT "IF YOU MISS THE NEXT QUESTION YOU WILL END THE QUIZ!!"
|
|
1620 RETURN
|
|
1900 LET Z=Z+1
|
|
1902 LET Y=0
|
|
1905 IF Z=5 THEN 1950
|
|
1906 IF Z=2 THEN 2000
|
|
1907 IF Z=3 THEN 2020
|
|
1908 IF Z=4 THEN 2030
|
|
1910 PRINT "BEAUTIFUL RESPONSE!!!YOU'RE REALLY ON THE BALL!!!!"
|
|
1920 RETURN
|
|
1950 PRINT "YOU'RE TOO SMART FOR US!!!TRY ANOTHER QUIZ AREA!!!"
|
|
1960 STOP
|
|
2000 PRINT "THINK YOU'RE SMART!!!!!TRY THE NEXT ONE!!!!"
|
|
2002 RETURN
|
|
2020 PRINT "THREE IN A ROW RIGHT!!!!WOW YOU'RE SMART!!!!"
|
|
2022 RETURN
|
|
2030 PRINT "ONE MORE RIGHT AND YOU'VE BEATEN US!!!!!!"
|
|
2032 RETURN
|
|
2046 END
|