home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG054.ARK / TENNIS.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  3KB  |  97 lines
  1. 1 Z=0
  2. 2 PRINT "TEST YOUR KNOWLEDGE IN TENNIS."
  3. 3 PRINT "THIS IS A MULTIPLE-CHOICE QUIZ."
  4. 5 PRINT "TYPE A 1,2, OR 3 AFTER THE QUESTION MARK."
  5. 7 PRINT "GOOD LUCK!"
  6. 9 PRINT "WHAT IT IS CALLED WHEN SOMEONE HAS SCORED NO POINTS?"
  7. 11 PRINT "1) DUECE 2) 0 3) LOVE";
  8. 13 INPUTA:  IF A =3 THEN 17
  9. 15 PRINT "TOO BAD.....IT IS CALLED LOVE.": GOTO 21
  10. 17 PRINT "PRETTY GOOD!  HOW ABOUT ANOTHER?"
  11. 19 Z=Z+1
  12. 21 PRINT:PRINT
  13. 23 PRINT "WHERE ON THE COURT IS A SHOT CALLED THE VOLLEY"
  14. 24 PRINT "USUALLY HIT?"
  15. 25 PRINT "1) BASE LINE 2) NET 3) SERVICE LINE";
  16. 27 INPUT A: IF A =2 THEN 31
  17. 29 PRINT "SORRY.... AT THE NET.":  GOTO 35
  18. 31 PRINT "GREAT!"
  19. 33 Z=Z+1
  20. 35 PRINT:PRINT
  21. 37 PRINT "FROM WHICH LINE DO YOU SERVE?"
  22. 39 PRINT "1)SERVICE LINE 2) BASE LINE 3) FOOT LINE";
  23. 41 INPUT A:  IF A =2 THEN 45
  24. 43 PRINT "BAD LUCK... FROM THE BASE LINE.":  GOTO 49
  25. 45 PRINT "GOOD ...HERE'S ANOTHER."
  26. 47 Z=Z+1
  27. 49 PRINT:PRINT
  28. 51 PRINT"WHO WON THE 1975 WIMBELTON WOMEN'S SINGLES TITLE?"
  29. 53 PRINT "1) CHRIS EVERT 2) MARTINA NAVRATILOVA 3)  BILLY"
  30. 54 PRINT "JEAN KING";
  31. 55 INPUT A: IF A=3 THEN 59
  32. 57 PRINT "TOO BAD... IT WAS BILLY JEAN KING.":  GOTO 63
  33. 59 PRINT "EXCELLENT...NOW THE MEN."
  34. 61 Z=Z+1
  35. 63 PRINT:PRINT
  36. 65 PRINT "WHO WON THE MEN'S SINGLES"
  37. 66 PRINT "TITLE AT WIMBELTON IN 1975?"
  38. 67 PRINT "1)JIMMY CONNORS 2)ARTHUR ASHE 3) ROD LAVER";
  39. 69 INPUT A:  IF A =2 THEN 73
  40. 71 PRINT "SORRY.... IT WAS ARTHUR ASHE.":  GOTO 79
  41. 73 PRINT "EXCELLENT!"
  42. 75 Z=Z+1
  43. 79 PRINT: PRINT
  44. 81 PRINT "WHAT IS THE PART OF THE COURT THAT IS USED IN DOUBLES"
  45. 82 PRINT "AND NOT IN SINGLES?"
  46. 89 PRINT "1)MID COURT 2)CROSS COURT 3)ALLEY";
  47. 91 INPUT A:  IF A =3 THEN 95
  48. 93 PRINT"HOW TERRIBLE... IT IS AN ALLEY.": GOTO99
  49. 95 PRINT "YOU GOT IT... HOW ABOUT ANOTHER?"
  50. 97 Z=Z+1
  51. 99 PRINT:PRINT
  52. 101 PRINT "IN A PRO 8 SET WHICH ONE OF THE FOLLOWING WOULD BE"
  53. 102 PRINT "A FINAL SET SCORE?"
  54. 103 PRINT "1)8-6 2)6-2 3)5-1";
  55. 105 INPUT A:  IF A =1 THEN 109
  56. 107 PRINT "YOU DUMMY... 8-6.":  GOTO 113
  57. 109 PRINT "FAIRLY GOOD...NOT A HARD QUESTION."
  58. 111 Z=Z+1
  59. 113 PRINT:PRINT
  60. 115 PRINT "IN THE TENNIS MATCH, BATTLE BETWEEN"
  61. 116 PRINT "THE SEXES, WHO WON?"
  62. 117 PRINT "1)BOBBY RIGGS 2)BILLY JEAN KING 3)"
  63. 118 PRINT "MARGARET COURT";
  64. 119 INPUT A:  IF A =2 THEN 123
  65. 121 PRINT "YOU'RE REALLY DUMB..IT WAS BILLY JEAN KING."
  66. 122 GOTO 127
  67. 123 PRINT "WHAT A SMARTY ...HERE'S ANOTHER."
  68. 125 Z=Z+1
  69. 127 PRINT:PRINT
  70. 129 PRINT "WHAT SHOT IS HIT HIGH INTO THE AIR AND GENERALLY"
  71. 130 PRINT "DEEP INTO THE OPPONENT'S COURT?"
  72. 131 PRINT"1)DINK 2)LOB 3)GROUND STROKE";
  73. 133 INPUT A:  IF A=2 THEN 137
  74. 135 PRINT "TOO BAD...IT'S A LOB.": GOTO 141
  75. 137 PRINT"GREAT....THAT WAS A TOUGHY."
  76. 139 Z=Z+1
  77. 141 PRINT:PRINT
  78. 143 PRINT "WHEN THE SCORE IS 40-40, WHAT IS IT CALLED?"
  79. 145 PRINT "1)ADD OUT 2)ADD IN 3)DUECE";
  80. 147 INPUT A:  IF A =3 THEN 151
  81. 149 PRINT "HOW TERRIBLE..IT'S CALLED DUECE.": GOTO 153
  82. 151 PRINT "PRETTY GOOD...THAT WAS THE LAST ONE."
  83. 153 PRINT "NUMBER OF CORRECT ANSWERS IS:" Z
  84. 155 IF Z>=8 THEN 163
  85. 157 IF Z>=6 THEN 165
  86. 159 IF Z>=4 THEN167
  87. 161 IF Z<=3 THEN169
  88. 163 PRINT "YOU'RE A TENNIS WIZARD."
  89. 164 GOTO 173
  90. 165 PRINT"YOU'RE AN AMATEUR."
  91. 166 GOTO 173
  92. 167 PRINT "TAKE SOME LESSONS."
  93. 168 GOTO 173
  94. 169 PRINT "HANG UP YOUR RACKET."
  95. 173 PRINT "THANKS FOR PLAYING."
  96. 175 END
  97.