home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug003.ark / KENO.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  6.6 KB  |  204 lines
  1. 10 REM KENO ACCORDING TO PAYOFFS OF
  2. 11 REM MGM GRAND CASINO LAS VEGAS JAN 1976
  3. 12 REM WRITTEN BY G.W.FLEMMING MEMBER SCCS
  4. 13 REM MODIFIED BY ED HALL
  5. 15 PRINT TAB(15);"$$$$$ K E N O $$$$$"
  6. 16 PRINT CHR$(7);CHR$(7);CHR$(7);TAB(15);"     $$$$$$$$$";CHR$(7)
  7. 17 PRINT CHR$(7);CHR$(7);CHR$(7);CHR$(7);CHR$(7)
  8. 18 INPUT "DO YOU WANT INSTRUCTIONS";D$
  9. 19 IF LEFT$(D$,1)="N" THEN 145
  10. 20 PRINT:PRINT "EACH PLAY WILL COST YOU $1. YOU MAY SELECT"
  11. 21 PRINT "FROM 1 TO 15 NUMBERS TO PLAY. WHEN ASKED FOR YOUR"
  12. 22 PRINT "NUMBERS, TYPE IN EACH NUMBER SEPARATED BY COMMAS."
  13. 23 PRINT "IF YOU ACCIDENTILY PLACE A COMMA AFTER YOUR LAST"
  14. 24 PRINT "NUMBER, THE COMPUTER WILL TELL YOU THAT THE EXTRA"
  15. 25 PRINT "NUMBER WAS IGNORED (IN THIS CASE, THE EXTRA WAS"
  16. 26 PRINT "A SPACE). IF YOU PUT IN MORE NUMBERS THAN ARE NEEDED,"
  17. 27 PRINT "ONLY THE FIRST REQUIRED ONES WILL BE USED. IF"
  18. 28 PRINT "YOU DON'T ENTER ENOUGH NUMBERS, THE COMPUTER WILL"
  19. 29 PRINT "RESPOND WITH '??'. ENTER THE REQUIRED EXTRA NUMBERS."
  20. 30 PRINT:PRINT "      THE COMPUTER WILL BE CHOOSING 20 NUMBERS"
  21. 31 PRINT "AT RANDOM FROM NUMBER 1 TO NUMBER 80."
  22. 32 PRINT:PRINT "TO QUIT, TYPE '0' WHEN ASKED HOW MANY NUMBERS YOU WANT."
  23. 33 PRINT:PRINT:PRINT "G O O D   L U C K ! ! ! ! !"
  24. 34 PRINT:PRINT
  25. 145 DIM A(20),H(80)
  26. 146 INPUT "IS THIS A CONTINUATION OF AN OLD GAME";A$
  27. 147 IF LEFT$(A$,1)="N" THEN 151
  28. 148 INPUT "HOW MANY DOLLARS WERE LEFT";S
  29. 150 GOTO 160
  30. 151 E=0
  31. 155 INPUT "HOW MUCH CASH DID YOU BRING";S
  32. 160 W=S
  33. 170 Q=0:PRINT
  34. 180 REM INPUT NUMBERS
  35. 190 INPUT "HOW MANY NUMBERS DO YOU WANT";T
  36. 191 IF T=0 THEN 2000
  37. 195 PRINT "YOUR NUMBERS: "
  38. 200 IF T=1 THEN INPUT A(1)
  39. 201 IF T=2 THEN INPUT A(1),A(2)
  40. 202 IF T=3 THEN INPUT A(1),A(2),A(3)
  41. 203 IF T=4 THEN INPUT A(1),A(2),A(3),A(4)
  42. 204 IF T=5 THEN INPUT A(1),A(2),A(3),A(4),A(5)
  43. 205 IF T=6 THEN INPUT A(1),A(2),A(3),A(4),A(5),A(6)
  44. 206 IF T=7 THEN INPUT A(1),A(2),A(3),A(4),A(5),A(6),A(7)
  45. 207 IF T=8 THEN INPUT A(1),A(2),A(3),A(4),A(5),A(6),A(7),A(8)
  46. 208 IF T=9 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  47. 209 IF T=9 THEN INPUT "LAST FOUR:";A(6),A(7),A(8),A(9)
  48. 210 IF T=10 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  49. 211 IF T=10 THEN INPUT "LAST FIVE:";A(6),A(7),A(8),A(9),A(10)
  50. 212 IF T=11 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  51. 213 IF T=11 THEN INPUT "LAST SIX:";A(6),A(7),A(8),A(9),A(10),A(11)
  52. 216 IF T=12 THEN INPUT "FIRST SIX:";A(1),A(2),A(3),A(4),A(5),A(6)
  53. 217 IF T=12 THEN INPUT "LAST SIX:";A(7),A(8),A(9),A(10),A(11),A(12)
  54. 218 IF T=13 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  55. 219 IF T=13 THEN INPUT "NEXT FIVE:";A(6),A(7),A(8),A(9),A(10)
  56. 220 IF T=13 THEN INPUT "LAST THREE:";A(11),A(12),A(13)
  57. 221 IF T=14 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  58. 222 IF T=14 THEN INPUT "NEXT FIVE:";A(6),A(7),A(8),A(9),A(10)
  59. 223 IF T=14 THEN INPUT "LAST FOUR:";A(11),A(12),A(13),A(14)
  60. 224 IF T=15 THEN INPUT "FIRST FIVE:";A(1),A(2),A(3),A(4),A(5)
  61. 225 IF T=15 THEN INPUT "NEXT FIVE:";A(6),A(7),A(8),A(9),A(10)
  62. 226 IF T=15 THEN INPUT "LAST FIVE:";A(11),A(12),A(13),A(14),A(15)
  63. 227 FOR R=1 TO T-1
  64. 230 FOR M=R+1 TO T
  65. 235 IF A(R)=A(M) THEN 225
  66. 236 IF A(R)>80 THEN 261
  67. 240 NEXT M
  68. 245 NEXT R
  69. 250 GOTO 299
  70. 255 PRINT "YOU HAVE DUPLICATED NUMBERS. TRY AGAIN."
  71. 260 GOTO 191
  72. 261 PRINT "YOU HAVE A NUMBER TOO LARGE. TRY AGAIN."
  73. 262 GOTO 191
  74. 299 N=T
  75. 300 FOR X=1 TO 20:REM SELECT 20 NUMBERS AT RANDOM
  76. 310 H(X)=INT(80*RND)+1
  77. 320 FOR Y=1 TO (X-1)
  78. 330 IF H(X)=H(X-Y) THEN 310
  79. 340 NEXT Y
  80. 350 NEXT X
  81. 399 REM DETERMINE HOW MANY WINNERS
  82. 400 FOR X=1 TO N
  83. 410 FOR Y=1 TO 20
  84. 420 IF A(X)=H(Y) THEN Q=Q+1
  85. 430 NEXT Y
  86. 440 NEXT X
  87. 499 REM DETERMINE PAYOFF
  88. 500 IF N<>1 THEN 550
  89. 510 IF Q=1 THEN W=W+3
  90. 550 IF N<>2 THEN 600
  91. 560 IF Q=2 THEN W=W+12
  92. 600 IF N<>3 THEN 650
  93. 610 IF Q=2 THEN W=W+1
  94. 620 IF Q=3 THEN W=W+43
  95. 650 IF N<>4 THEN 700
  96. 660 IF Q=2 THEN W=W+1
  97. 670 IF Q=3 THEN W=W+4
  98. 680 IF Q=4 THEN W=W+114
  99. 700 IF N<>5 THEN 750
  100. 710 IF Q=3 THEN W=W+1.5
  101. 715 IF Q=4 THEN W=W+21.5
  102. 720 IF Q=5 THEN W=W+485.5
  103. 750 IF N<>6 THEN 800
  104. 760 IF Q=3 THEN W=W+1
  105. 765 IF Q=4 THEN W=W+4.5
  106. 770 IF Q=5 THEN W=W+85.5
  107. 775 IF Q=6 THEN W=W+1571.5
  108. 800 IF N<>7 THEN 850
  109. 810 IF Q=3 THEN W=W+.5
  110. 815 IF Q=4 THEN W=W+1.5
  111. 820 IF Q=5 THEN W=W+21.5
  112. 825 IF Q=6 THEN W=W+328.5
  113. 830 IF Q=7 THEN W=W+5000
  114. 850 IF N<>8 THEN 900
  115. 855 IF Q=5 THEN W=W+8.5
  116. 860 IF Q=6 THEN W=W+85.5
  117. 865 IF Q=7 THEN W=W+1643
  118. 870 IF Q=8 THEN W=W+17857
  119. 900 IF N<>9 THEN 950
  120. 905 IF Q=4 THEN W=W+.5
  121. 910 IF Q=5 THEN W=W+3
  122. 920 IF Q=6 THEN W=W+43
  123. 925 IF Q=7 THEN W=W+285.5
  124. 930 IF Q=8 THEN W=W+4000
  125. 935 IF Q=9 THEN W=W+17857
  126. 950 IF N<>10 THEN 1000
  127. 955 IF Q=5 THEN W=W+2
  128. 956 IF Q=6 THEN W=W+20
  129. 957 IF Q=7 THEN W=W+140
  130. 958 IF Q=8 THEN W=W+1000
  131. 959 IF Q=9 THEN W=W+3800
  132. 960 IF Q=10 THEN W=W+17857
  133. 1000 IF N<>11 THEN 1050
  134. 1001 IF Q=5 THEN W=W+1
  135. 1002 IF Q=6 THEN W=W+8.5
  136. 1003 IF Q=7 THEN W=W+71.5
  137. 1004 IF Q=8 THEN W=W+357
  138. 1005 IF Q=9 THEN W=W+1714
  139. 1006 IF Q=10 THEN W=W+10714
  140. 1007 IF Q=11 THEN W=W+17857
  141. 1050 IF N<>12 THEN 1100
  142. 1055 IF Q=5 THEN W=W+1
  143. 1056 IF Q=6 THEN W=W+4
  144. 1057 IF Q=7 THEN W=W+28.5
  145. 1058 IF Q=8 THEN W=W+214
  146. 1059 IF Q=9 THEN W=W+571.5
  147. 1060 IF Q=10 THEN W=W+1428.5
  148. 1061 IF Q=11 THEN W=W+7143
  149. 1062 IF Q=12 THEN W=W+25000
  150. 1100 IF N<>13 THEN 1150
  151. 1101 IF Q=6 THEN W=W+1.5
  152. 1102 IF Q=7 THEN W=W+17
  153. 1103 IF Q=8 THEN W=W+71.5
  154. 1104 IF Q=9 THEN W=W+678.5
  155. 1105 IF Q=10 THEN W=W+3571.5
  156. 1106 IF Q=11 THEN W=W+6428.5
  157. 1107 IF Q=12 THEN W=W+14285.7
  158. 1108 IF Q=13 THEN W=W+25000
  159. 1150 IF N<>14 THEN 1200
  160. 1160 IF Q=6 THEN W=W+3
  161. 1161 IF Q=7 THEN W=W+8
  162. 1162 IF Q=8 THEN W=W+31.5
  163. 1163 IF Q=9 THEN W=W+250
  164. 1164 IF Q=10 THEN W=W+714
  165. 1165 IF Q=11 THEN W=W+2857
  166. 1166 IF Q=12 THEN W=W+10714
  167. 1167 IF Q=13 THEN W=W+21428.5
  168. 1168 IF Q=14 THEN W=W+25000
  169. 1200 IF N<>15 THEN 1900
  170. 1201 IF Q=6 THEN W=W+1.5
  171. 1202 IF Q=7 THEN W=W+7
  172. 1203 IF Q=8 THEN W=W+21.5
  173. 1204 IF Q=9 THEN W=W+107
  174. 1205 IF Q=10 THEN W=W+285.5
  175. 1206 IF Q=11 THEN W=W+2143
  176. 1207 IF Q=12 THEN W=W+7143
  177. 1208 IF Q=13 THEN W=W+21428.5
  178. 1209 IF Q=14 THEN W=W+25000
  179. 1210 IF Q=15 THEN W=W+25000
  180. 1899 REM PRINT GAME RESULTS
  181. 1900 PRINT "MY NUMBERS WERE: "
  182. 1905 PRINT
  183. 1910 FOR X=1 TO 10
  184. 1920 PRINT H(X);
  185. 1930 NEXT X
  186. 1935 PRINT
  187. 1940 FOR X=11 TO 20
  188. 1950 PRINT H(X);
  189. 1960 NEXT X
  190. 1965 PRINT: PRINT: W=W-1: REM SUBTRACT BET
  191. 1966 E=E+1
  192. 1967 IF W<1 AND W>0 THEN PRINT "YOU HAD ";Q;"RIGHT, BUT NOW YOU"
  193. 1968 IF W<1 AND W>0 THEN PRINT "DON'T HAVE ENOUGH TO BET."
  194. 1969 IF W<1 AND W>0 THEN GOTO 2000
  195. 1970 IF W=0 THEN PRINT "YOU HAD";Q;"RIGHT, BUT NOW YOU'RE BROKE."
  196. 1971 IF W=0 THEN 2000
  197. 1972 PRINT "YOU HAD ";Q;"RIGHT. YOU NOW HAVE ";W;"DOLLARS LEFT."
  198. 1980 GOTO 170
  199. 2000 PRINT "COME BACK AGAIN. BRING MORE MONEY!!!"
  200. 2010 PRINT "TOTAL TURNS ";E
  201. 2020 PRINT "TOTAL MONEY LEFT ";W
  202. 2500 END
  203. 19000 PRINT "MY NUMBERS WERE: "
  204.