home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / SPORTS.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  3.0 KB  |  67 lines
  1. 1 W=0
  2. 5 R=0
  3. 10 PRINT " TEST YOUR KNOWLEDGE ON SPORTS"
  4. 15 PRINT " THIS IS A MULTIPLE CHOICE QUIZ"
  5. 20 PRINT " TYPE A 1, 2, 3, OR 4 AFTER THE QUESTION MARK"
  6. 25 PRINT " WHO WON THE 73 WORLD SERIES?"
  7. 30 PRINT " 1)CLEVELAND, 2)K.C. 3)NEW YORK 4)OAKLAND ";
  8. 35 INPUT A:  IF A=4 THEN R=R+1: GOTO 45
  9. 40 PRINT "SORRY..OAKLAND WON": W=W+1: GOTO 50
  10. 45 PRINT "VERY GOOD. GO ON AND TRY AGAIN"
  11. 50 PRINT "WHO PLAYED IN THE 74 SUPER BOWL?"
  12. 55 PRINT "1)STEELERS-VIKINGS 2) CHIEFS-CARDINALS "
  13. 56 PRINT "3) DOLPHINS-VIKINGS 4)ROYALS-TIGERS";
  14. 60 INPUT A : IF A=1 THEN R=R+1: GOTO 65
  15. 63 PRINT "SORRY .. IT WAS #1. KEEP GOIN":W=W+1:GOTO 70
  16. 65 PRINT "VERY GOOD.. KEEP ON GOIN"
  17. 70 PRINT " WHAT TEAM DID THE NEW HOME RUN KING"
  18. 71 PRINT "PLAY ON WHEN HE BROKE THE RECORD?"
  19. 75 PRINT "1) MILWAUKEE 2) BOSTON 3)ATLANTA 4)OAKLAND";
  20. 80 INPUT A: IF A=3 THEN R=R+1: GOTO 90
  21. 85 PRINT "OOPS, IT WAS ATLANTA. GO AGAIN":W=W+1:GOTO 95
  22. 90 PRINT "ALRIGHT, DO IT AGAIN"
  23. 95 PRINT "WHAT TEAM DID O J SIMPSON PLAY ON IN COLLEGE?"
  24. 100 PRINT "1)NOTRE DAME 2) MIZZOU 3)USC 4)PURDUE";
  25. 105  INPUT A: IF A=3 THEN R=R+1: GOTO 115
  26. 110 PRINT "NOPE HE WAS ON USC. CONTINUE ON":W=W+1:GOTO 120
  27. 115 PRINT "GREAT.. KEEP ON TRUCKIN'"
  28. 120 PRINT "WHAT TEAMS PLAYED IN THE NBA PLAYOFFS?"
  29. 125 PRINT "1)GOLDEN STATE:WASHINGTON 2)BOSTON-SEATTLE"
  30. 130 PRINT "3)MEMPHIS-NEW YORK 4)KC-MILWAUKEE";
  31. 135 INPUT A :IF A =1 THEN R=R+1: GOTO 145
  32. 140 PRINT "WRONG.. CORRECT ANSWER IS #1. NEXT":W=W+1:GOTO 150
  33. 145 PRINT "YEA.. GO ON"
  34. 150 PRINT "WHAT IS THE NAME OF THE BRAZILIAN SOCCER"
  35. 151 PRINT "STAR WHO NOW PLAYS FOR NEW YORK?"
  36. 155 PRINT "1)PRONKE 2)EISENSTEIN 3)RIOS 4)PELE";
  37. 160 INPUT A:IF A=4 THEN R=R+1:GOTO 170
  38. 165 PRINT "WRONG IT WAS PELE. GO ON":W=W+1:GOTO 175
  39. 170 PRINT "YEA YOU KNOW WHATS GOIN ON. NEXT"
  40. 175 PRINT "HOW MANY GOLD MEDALS DID MARK SPITZ WIN?"
  41. 180 PRINT "1) 5 2) 6 3) 8 4) 7";
  42. 185 INPUT A :IF A =4 THEN R=R+1: GOTO 195
  43. 190 PRINT "YOU GOT YOUR NUMBERS MIXED UP. IT WAS 7."
  44. 191 PRINT "GO AND TRY IT AGAIN.":W=W+1:GOTO 200
  45. 195 PRINT "ALRIGHT, SMARTY, TRY THE NEXT ONE"
  46. 200 PRINT "WHERE ARE THE 1976 WINTER OLYMPICS BEING HELD?"
  47. 205 PRINT "1) CANADA 2)GERMANY 3)AUSTRIA 4)RUSSIA";
  48. 210 INPUT A:IF A=3 THEN R=R+1: GOTO 220
  49. 215 PRINT "GEOGRAPHY STUMP YOU? ITS GOING TO BE IN AUSTRIA"
  50. 216 PRINT "TRY AGAIN":W=W+1:GOTO 225
  51. 220 PRINT "EXCELLENT .. I BET I GET YOU ON THE NEXT ONE"
  52. 225 PRINT "WHO IS THE WORLD RECORD HOLDER IN THE SHOT PUT?"
  53. 230 PRINT "1) JIM RYAN 2)DAVE WADDLE 3) BOB HAYES"
  54. 231 PRINT "4) BRIAN O'FIELD";
  55. 235 INPUT A: IF A=4 THEN R=R+1: GOTO 245
  56. 240 PRINT "SORRY IT WAS BRIAN O'FIELD. GO ON":W=W+1:GOTO 250
  57. 245 PRINT "YEA YOU'RE NOT BAD. TRY AGAIN"
  58. 250 PRINT "WHO WAS THE HEISMANN TROPHY WINNER IN 1974?"
  59. 255 PRINT "1) BARKOWSKI 2) GRIFFIN 3)DAVIS 4)MOSELY";
  60. 260 INPUT A: IF A=2 THEN R=R+1: GOTO 270
  61. 265 PRINT "YOU MISSED IT . IT WAS GRIFFIN":W=W+1:GOTO 275
  62. 270 PRINT " GREAT. YOU'RE RIGHT "
  63. 275 PRINT " YOU GOT THIS MANY RIGHT:"R
  64. 280 PRINT " YOU GOT THIS MANY WRONG:"W
  65. 285 PRINT "THANKS FOR PLAYING !"
  66. 290 END
  67.