home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / LAS-VEGAS-GAMES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  27.8 KB  |  1,156 lines
  1. 1 FORI=54272TO54296:POKEI,0:NEXT
  2. 2 POKE54296,15:VD=1:TI$="000000"
  3. 3 GOTO299
  4. 4 FORK=1TO15
  5. 5 POKE53280,K:FORL=1TO10:NEXTL
  6. 6 NEXTK
  7. 7 RETURN
  8. 8 N=INT(RND(TI)*13+1)
  9. 9 S=INT(RND(TI)*4+1)
  10. 10 C=N*S
  11. 11 FORCD=0TOK-1
  12. 12 IFCC(CD)=CTHEN8
  13. 13 NEXTCD
  14. 14 CC(K)=C:K=K+1
  15. 15 RETURN
  16. 16 PRINTTAB(T)"[144][207][183][183][183][183][183][208]"
  17. 17 PRINTTAB(T)"[144][180][150][166][166][166][166][166][144][170]"
  18. 18 PRINTTAB(T)"[144][180][150][166][166][166][166][166][144][170]"
  19. 19 PRINTTAB(T)"[144][180][150][166][166][166][166][166][144][170]"
  20. 20 PRINTTAB(T)"[144][180][150][166][166][166][166][166][144][170]"
  21. 21 PRINTTAB(T)"[144][180][150][166][166][166][166][166][144][170]"
  22. 22 PRINTTAB(T)"[144][180][150][166][166][166][166][166][144][170]"
  23. 23 PRINTTAB(T)"[144][180][150][166][166][166][166][166][144][170]"
  24. 24 PRINTTAB(T)"[144][204][175][175][175][175][175][186]"
  25. 25 RETURN
  26. 26 IFS=1THENS$="[216]":PRINT"[144]"
  27. 27 IFS=2THENS$="[218]":PRINT"[150]"
  28. 28 IFS=3THENS$="[211]":PRINT"[150]"
  29. 29 IFS=4THENS$="[193]":PRINT"[144]"
  30. 30 IFN=1THEN43
  31. 31 IFN=2THEN51
  32. 32 IFN=3THEN59
  33. 33 IFN=4THEN67
  34. 34 IFN=5THEN75
  35. 35 IFN=6THEN83
  36. 36 IFN=7THEN91
  37. 37 IFN=8THEN99
  38. 38 IFN=9THEN107
  39. 39 IFN=10THEN115
  40. 40 IFN=11THEN123
  41. 41 IFN=12THEN131
  42. 42 IFN=13THEN139
  43. 43 PRINTTAB(T+1)"A    "
  44. 44 PRINTTAB(T+1)"     "
  45. 45 PRINTTAB(T+1)"     "
  46. 46 PRINTTAB(T+1)"  ";S$;"  "
  47. 47 PRINTTAB(T+1)"     "
  48. 48 PRINTTAB(T+1)"     "
  49. 49 PRINTTAB(T+1)"    A"
  50. 50 RETURN
  51. 51 PRINTTAB(T+1)"2    "
  52. 52 PRINTTAB(T+1)"     "
  53. 53 PRINTTAB(T+1)" ";S$;"   "
  54. 54 PRINTTAB(T+1)"     "
  55. 55 PRINTTAB(T+1)"   ";S$;" "
  56. 56 PRINTTAB(T+1)"     "
  57. 57 PRINTTAB(T+1)"    2"
  58. 58 RETURN
  59. 59 PRINTTAB(T+1)"3    "
  60. 60 PRINTTAB(T+1)"     "
  61. 61 PRINTTAB(T+1)" ";S$;"   "
  62. 62 PRINTTAB(T+1)"  ";S$;"  "
  63. 63 PRINTTAB(T+1)"   ";S$;" "
  64. 64 PRINTTAB(T+1)"     "
  65. 65 PRINTTAB(T+1)"    3"
  66. 66 RETURN
  67. 67 PRINTTAB(T+1)"4    "
  68. 68 PRINTTAB(T+1)"     "
  69. 69 PRINTTAB(T+1)" ";S$;" ";S$;" "
  70. 70 PRINTTAB(T+1)"     "
  71. 71 PRINTTAB(T+1)" ";S$;" ";S$;" "
  72. 72 PRINTTAB(T+1)"     "
  73. 73 PRINTTAB(T+1)"    4"
  74. 74 RETURN
  75. 75 PRINTTAB(T+1)"5    "
  76. 76 PRINTTAB(T+1)"     "
  77. 77 PRINTTAB(T+1)" ";S$;" ";S$;" "
  78. 78 PRINTTAB(T+1)"  ";S$;"  "
  79. 79 PRINTTAB(T+1)" ";S$;" ";S$;" "
  80. 80 PRINTTAB(T+1)"     "
  81. 81 PRINTTAB(T+1)"    5"
  82. 82 RETURN
  83. 83 PRINTTAB(T+1)"6    "
  84. 84 PRINTTAB(T+1)" ";S$;" ";S$;" "
  85. 85 PRINTTAB(T+1)"     "
  86. 86 PRINTTAB(T+1)" ";S$;" ";S$;" "
  87. 87 PRINTTAB(T+1)"     "
  88. 88 PRINTTAB(T+1)" ";S$;" ";S$;" "
  89. 89 PRINTTAB(T+1)"    6"
  90. 90 RETURN
  91. 91 PRINTTAB(T+1)"7    "
  92. 92 PRINTTAB(T+1)" ";S$;" ";S$;" "
  93. 93 PRINTTAB(T+1)"  ";S$;"  "
  94. 94 PRINTTAB(T+1)" ";S$;" ";S$;" "
  95. 95 PRINTTAB(T+1)"     "
  96. 96 PRINTTAB(T+1)" ";S$;" ";S$;" "
  97. 97 PRINTTAB(T+1)"    7"
  98. 98 RETURN
  99. 99 PRINTTAB(T+1)"8    "
  100. 100 PRINTTAB(T+1)" ";S$;" ";S$;" "
  101. 101 PRINTTAB(T+1)"  ";S$;"  "
  102. 102 PRINTTAB(T+1)" ";S$;" ";S$;" "
  103. 103 PRINTTAB(T+1)"  ";S$;"  "
  104. 104 PRINTTAB(T+1)" ";S$;" ";S$;" "
  105. 105 PRINTTAB(T+1)"    8"
  106. 106 RETURN
  107. 107 PRINTTAB(T+1)"9";S$;" ";S$;" "
  108. 108 PRINTTAB(T+1)"     "
  109. 109 PRINTTAB(T+1)" ";S$;" ";S$;" "
  110. 110 PRINTTAB(T+1)"  ";S$;"  "
  111. 111 PRINTTAB(T+1)" ";S$;" ";S$;" "
  112. 112 PRINTTAB(T+1)"     "
  113. 113 PRINTTAB(T+1)" ";S$;" ";S$;"9"
  114. 114 RETURN
  115. 115 PRINTTAB(T+1)"1";S$;" ";S$;" "
  116. 116 PRINTTAB(T+1)"0 ";S$;"  "
  117. 117 PRINTTAB(T+1)" ";S$;" ";S$;" "
  118. 118 PRINTTAB(T+1)"     "
  119. 119 PRINTTAB(T+1)" ";S$;" ";S$;" "
  120. 120 PRINTTAB(T+1)"  ";S$;" 1"
  121. 121 PRINTTAB(T+1)" ";S$;" ";S$;"0"
  122. 122 RETURN
  123. 123 PRINTTAB(T+1)"J    "
  124. 124 PRINTTAB(T+1)"  J  "
  125. 125 PRINTTAB(T+1)"  A  "
  126. 126 PRINTTAB(T+1)" ";S$;" ";S$;" "
  127. 127 PRINTTAB(T+1)"  C  "
  128. 128 PRINTTAB(T+1)"  K  "
  129. 129 PRINTTAB(T+1)"    J":N=10
  130. 130 RETURN
  131. 131 PRINTTAB(T+1)"Q    "
  132. 132 PRINTTAB(T+1)"  Q  "
  133. 133 PRINTTAB(T+1)"  U  "
  134. 134 PRINTTAB(T+1)" ";S$;"E";S$;" "
  135. 135 PRINTTAB(T+1)"  E  "
  136. 136 PRINTTAB(T+1)"  N  "
  137. 137 PRINTTAB(T+1)"    Q":N=10
  138. 138 RETURN
  139. 139 PRINTTAB(T+1)"K    "
  140. 140 PRINTTAB(T+1)"  K  "
  141. 141 PRINTTAB(T+1)"  I  "
  142. 142 PRINTTAB(T+1)" ";S$;" ";S$;" "
  143. 143 PRINTTAB(T+1)"  N  "
  144. 144 PRINTTAB(T+1)"  G  "
  145. 145 PRINTTAB(T+1)"    K":N=10
  146. 146 RETURN
  147. 147 D=INT(RND(TI)*6+1)
  148. 148 IFD=1THEN155
  149. 149 IFD=2THEN163
  150. 150 IFD=3THEN171
  151. 151 IFD=4THEN179
  152. 152 IFD=5THEN187
  153. 153 IFD=6THEN195
  154. 154 GOTO147
  155. 155 PRINTTAB(T)"       "
  156. 156 PRINTTAB(T)" [146]      "
  157. 157 PRINTTAB(T)" [146]      "
  158. 158 PRINTTAB(T)" [146]  [209]   "
  159. 159 PRINTTAB(T)" [146]      "
  160. 160 PRINTTAB(T)" [146]      "
  161. 161 PRINTTAB(T)"       "
  162. 162 RETURN
  163. 163 PRINTTAB(T)"       "
  164. 164 PRINTTAB(T)" [146]      "
  165. 165 PRINTTAB(T)" [146] [209]    "
  166. 166 PRINTTAB(T)" [146]      "
  167. 167 PRINTTAB(T)" [146]   [209]  "
  168. 168 PRINTTAB(T)" [146]      "
  169. 169 PRINTTAB(T)"       "
  170. 170 RETURN
  171. 171 PRINTTAB(T)"       "
  172. 172 PRINTTAB(T)" [146]      "
  173. 173 PRINTTAB(T)" [146] [209]    "
  174. 174 PRINTTAB(T)" [146]  [209]   "
  175. 175 PRINTTAB(T)" [146]   [209]  "
  176. 176 PRINTTAB(T)" [146]      "
  177. 177 PRINTTAB(T)"       "
  178. 178 RETURN
  179. 179 PRINTTAB(T)"       "
  180. 180 PRINTTAB(T)" [146]      "
  181. 181 PRINTTAB(T)" [146] [209] [209]  "
  182. 182 PRINTTAB(T)" [146]      "
  183. 183 PRINTTAB(T)" [146] [209] [209]  "
  184. 184 PRINTTAB(T)" [146]      "
  185. 185 PRINTTAB(T)"       "
  186. 186 RETURN
  187. 187 PRINTTAB(T)"       "
  188. 188 PRINTTAB(T)" [146]      "
  189. 189 PRINTTAB(T)" [146] [209] [209]  "
  190. 190 PRINTTAB(T)" [146]  [209]   "
  191. 191 PRINTTAB(T)" [146] [209] [209]  "
  192. 192 PRINTTAB(T)" [146]      "
  193. 193 PRINTTAB(T)"       "
  194. 194 RETURN
  195. 195 PRINTTAB(T)"       "
  196. 196 PRINTTAB(T)" [146]      "
  197. 197 PRINTTAB(T)" [146] [209] [209]  "
  198. 198 PRINTTAB(T)" [146] [209] [209]  "
  199. 199 PRINTTAB(T)" [146] [209] [209]  "
  200. 200 PRINTTAB(T)" [146]      "
  201. 201 PRINTTAB(T)"       "
  202. 202 RETURN
  203. 203 PRINT:PRINTTAB(T+1)"     "
  204. 204 PRINTTAB(T+1)"     "
  205. 205 PRINTTAB(T+1)"     "
  206. 206 PRINTTAB(T+1)"     "
  207. 207 PRINTTAB(T+1)"     "
  208. 208 PRINTTAB(T+1)"     "
  209. 209 PRINTTAB(T+1)"     "
  210. 210 GOTO501
  211. 211 RETURN
  212. 212 PRINT"[144]":PRINTTAB(T+1)"     "
  213. 213 PRINTTAB(T+1)"     "
  214. 214 PRINTTAB(T+1)"     "
  215. 215 PRINTTAB(T+1)"     [146]"
  216. 216 PRINTTAB(T+1)"     "
  217. 217 PRINTTAB(T+1)"     "
  218. 218 PRINTTAB(T+1)"     "
  219. 219 RETURN
  220. 220 PRINT"[144]":PRINTTAB(T+1)"     "
  221. 221 PRINTTAB(T+1)"     "
  222. 222 PRINTTAB(T+1)"     [146]"
  223. 223 PRINTTAB(T+1)"     "
  224. 224 PRINTTAB(T+1)"     [146]"
  225. 225 PRINTTAB(T+1)"     "
  226. 226 PRINTTAB(T+1)"     "
  227. 227 RETURN
  228. 228 PRINT"[144]":PRINTTAB(T+1)"     "
  229. 229 PRINTTAB(T+1)"     [146]"
  230. 230 PRINTTAB(T+1)"     "
  231. 231 PRINTTAB(T+1)"     [146]"
  232. 232 PRINTTAB(T+1)"     "
  233. 233 PRINTTAB(T+1)"     [146]"
  234. 234 PRINTTAB(T+1)"     "
  235. 235 RETURN
  236. 236 PRINT" PLACE YOUR BET (1-9) ";
  237. 237 GETA$:IFA$=""THEN237
  238. 238 IFA$="1"THENB=1:GOTO244
  239. 239 IFA$="2"THENB=2:GOTO244
  240. 240 IFA$="3"THENB=3:GOTO244
  241. 241 IFA$="4"THENB=4:GOTO244
  242. 242 IFA$="5"THENB=5:GOTO244
  243. 243 GOTO265
  244. 244 PRINTTAB(27)"   BET:";B;"[157]   "
  245. 245 RETURN
  246. 246 TL=0:Q=0
  247. 247 FORL=1TO5:IFPP(L,I)>10THENPP(L,I)=10
  248. 248 IFPP(L,I)=1THENQ=Q+1:TL=TL+10
  249. 249 TL=TL+PP(L,I)
  250. 250 NEXTL
  251. 251 IFTL<=21THENRETURN
  252. 252 IFQ<=0THENRETURN
  253. 253 TL=TL-10:Q=Q-1:GOTO251
  254. 254 TL=0
  255. 255 FORL=1TO3:IFPP(L,I)>9THENPP(L,I)=0
  256. 256 TL=TL+PP(L,I)
  257. 257 IFTL>9THENTL=TL-10
  258. 258 NEXTL
  259. 259 RETURN
  260. 260 V=0:H=N:PRINT""
  261. 261 IFH>10THENV=V+1:H=H-10:GOTO261
  262. 262 FORL=0TOV:PRINT"":NEXTL
  263. 263 K=4*H-4:IFN<10THENK=K+1
  264. 264 PRINTTAB(K)"[145]"N;"[157][157][157][157][146] ":ON TC GOTO518,538,477,614
  265. 265 IFA$="6"THENB=6:GOTO244
  266. 266 IFA$="7"THENB=7:GOTO244
  267. 267 IFA$="8"THENB=8:GOTO244
  268. 268 IFA$="9"THENB=9:GOTO244
  269. 269 GOTO237
  270. 270 N=INT(RND(TI)*38)
  271. 271 PRINT""
  272. 272 IFN=2THENPRINT"[144]"
  273. 273 IFN=4THENPRINT"[144]"
  274. 274 IFN=6THENPRINT"[144]"
  275. 275 IFN=8THENPRINT"[144]"
  276. 276 IFN=10THENPRINT"[144]"
  277. 277 IFN=11THENPRINT"[144]"
  278. 278 IFN=13THENPRINT"[144]"
  279. 279 IFN=15THENPRINT"[144]"
  280. 280 IFN=17THENPRINT"[144]"
  281. 281 IFN=20THENPRINT"[144]"
  282. 282 IFN=24THENPRINT"[144]"
  283. 283 IFN=26THENPRINT"[144]"
  284. 284 IFN=28THENPRINT"[144]"
  285. 285 IFN=29THENPRINT"[144]"
  286. 286 IFN=31THENPRINT"[144]"
  287. 287 IFN=33THENPRINT"[144]"
  288. 288 IFN=35THENPRINT"[144]"
  289. 289 IFN=22THENPRINT"[144]"
  290. 290 IFN=0THENPRINT""
  291. 291 IFN=37THENPRINT""
  292. 292 PRINT""
  293. 293 FORI=1TO3:PRINTTAB(29)"    ":NEXT
  294. 294 PRINT""
  295. 295 IFN=37THENPRINTTAB(30)"00":RETURN
  296. 296 IFN>9THENPRINTTAB(29)"";N:RETURN
  297. 297 IFN<10THENPRINTTAB(30)"";N:RETURN
  298. 298 RETURN
  299. 299 DIMCC(53),M(25),P(5,3):MM=50:XX=0
  300. 300 GOTO308
  301. 301 PRINT"":T=20
  302. 302 GOSUB16:PRINT"":IFD=1THENGOSUB212
  303. 303 IFD=2THENGOSUB220
  304. 304 IFD=3THENGOSUB228
  305. 305 IFD>3THENGOSUB203
  306. 306 FORI=1TO500:NEXTI
  307. 307 GOTO&1
  308. 308 POKE53280,2:POKE53281,1:PRINT"[147]":GOTO318
  309. 309 GETA$:IFA$="1"THEN328
  310. 310 IFA$="2"THEN693
  311. 311 IFA$="3"THEN431
  312. 312 IFA$="4"THEN787
  313. 313 IFA$="5"THEN893
  314. 314 IFA$="6"THEN988
  315. 315 IFA$="7"THEN1157
  316. 316 IFA$="8"THEN&12000
  317. 317 GOSUB4:GOTO309
  318. 318 PRINT"    YOU ARE IN LAS VEGAS, WITH $";MM
  319. 319 PRINT:PRINT"    WHAT WILL YOU DO?"
  320. 320 PRINT:PRINT:PRINT"        1. PLAY THE SLOT MACHINES"
  321. 321 PRINT:PRINT"        2. PLAY BLACKJACK"
  322. 322 PRINT:PRINT"        3. PLAY KENO"
  323. 323 PRINT:PRINT"        4. PLAY POKER"
  324. 324 PRINT:PRINT"        5. PLAY CHUCK-A-LUCK"
  325. 325 PRINT:PRINT"        6. PLAY BACCARAT"
  326. 326 PRINT:PRINT"        7. GO HOME      "
  327. 327 GOTO309
  328. 328 PRINT"[147]";:POKE53280,8:REM- SLOTS
  329. 329 FORI=1TO11:PRINT"[129]                                       ":NEXT
  330. 330 FORI=40TO440STEP40:POKE55295+I,8:POKE1023+I,224:NEXTI:O=0
  331. 331 FORI=1TO3:T=10*I-4:PRINT"":GOSUB16:NEXTI
  332. 332 FORI=1TO500:NEXTI
  333. 333 PRINT"      PAYOFF"
  334. 334 PRINT"[144] [162][162]  [162][162]  [162][162]"
  335. 335 PRINT"[144] [162][162]  [162][162]  [162][162]  = 100"
  336. 336 PRINT"[144] [162][162]  [162][162]  [162][162]"
  337. 337 PRINT"[129][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  338. 338 PRINT"[144] [162][162]  [162][162]  [162][162]"
  339. 339 PRINT"[144] [162][162]  [162][162]  [162][162]  =  50"
  340. 340 PRINT"[129][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  341. 341 PRINT"[144] [162][162]  [162][162]  [162][162]  =  20"
  342. 342 PRINT"[129][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  343. 343 PRINT
  344. 344 PRINT"  ANY BARS   =  10"
  345. 345 FORI=1TO14:J=40*I:POKE55715+J,8:POKE1443+J,224:NEXTI
  346. 346 PRINT"":T=6:PRINT"":GOSUB220
  347. 347 PRINT"":T=16:PRINT"":GOSUB203
  348. 348 PRINT"":T=26:PRINT"":GOSUB228
  349. 349 PRINT"":PRINTTAB(20)"TO PLAY HIT ANY KEY"
  350. 350 PRINT"":PRINTTAB(25)"TOTAL: 0"
  351. 351 GETA$:IFA$=""THEN351
  352. 352 FORI=1TO3:PRINT"":T=10*I-4:GOSUB16:NEXTI:S=0
  353. 353 O=O-1:PRINT"":PRINTTAB(25)"TOTAL:";O;"[157]  "
  354. 354 PRINT"":PRINTTAB(20)" 98 PERCENT PAYOUT"
  355. 355 FOR J=1TO1200:NEXTJ
  356. 356 FORI=1TO3:T=10*I-4:PRINT""
  357. 357 R=INT(RND(TI)*242+1)
  358. 358 IFR>100THEND=0:GOSUB203:GOTO363
  359. 359 IFR>50THEND=1:GOSUB212:GOTO362
  360. 360 IFR>10THEND=2:GOSUB220:GOTO362
  361. 361 D=3:GOSUB228
  362. 362 GOTO505
  363. 363 S=S+D*10^(I-1):FORJ=1TO600:NEXTJ
  364. 364 NEXTI
  365. 365 IFS<111THENP=0:GOTO394
  366. 366 IFS=111THENP=20:GOTO394
  367. 367 IFS=222THENP=50:GOTO394
  368. 368 IFS=122THENP=10:GOTO394
  369. 369 IFS=123THENP=10:GOTO394
  370. 370 IFS=121THENP=10:GOTO394
  371. 371 IFS=131THENP=10:GOTO394
  372. 372 IFS=132THENP=10:GOTO394
  373. 373 IFS=133THENP=10:GOTO394
  374. 374 IFS=211THENP=10:GOTO394
  375. 375 IFS=212THENP=10:GOTO394
  376. 376 IFS=231THENP=10:GOTO394
  377. 377 IFS=221THENP=10:GOTO394
  378. 378 IFS=223THENP=10:GOTO394
  379. 379 IFS=232THENP=10:GOTO394
  380. 380 IFS=233THENP=10:GOTO394
  381. 381 IFS=311THENP=10:GOTO394
  382. 382 IFS=312THENP=10:GOTO394
  383. 383 IFS=313THENP=10:GOTO394
  384. 384 IFS=321THENP=10:GOTO394
  385. 385 IFS=322THENP=10:GOTO394
  386. 386 IFS=323THENP=10:GOTO394
  387. 387 IFS=331THENP=10:GOTO394
  388. 388 IFS=332THENP=10:GOTO394
  389. 389 IFS=333THENP=100:GOTO394
  390. 390 IFS=112THENP=10:GOTO394
  391. 391 IFS=113THENP=10:GOTO394
  392. 392 IFS=213THENP=10:GOTO394
  393. 393 P=0
  394. 394 O=O+P:IFP<1THEN404
  395. 395 FORJ=1TOP
  396. 396 GOSUB4
  397. 397 POKE53280,8
  398. 398 PRINT"":PRINTTAB(24)"PAYOFF:";J;"[157]   "
  399. 399 PRINT""
  400. 400 PRINTTAB(25)"TOTAL:";O-P+J;"[157]  "
  401. 401 TD=1:GOTO481
  402. 402 NEXTJ
  403. 403 POKE53280,8
  404. 404 PRINT"":PRINTTAB(24)"PAYOFF:";P;"[157]   "
  405. 405 PRINT""
  406. 406 PRINTTAB(25)"TOTAL:";O;"[157]  "
  407. 407 PRINT"":PRINTTAB(21)"TO QUIT - HIT 'Q'"
  408. 408 GETA$:IFA$=""THEN408
  409. 409 IFA$="Q"THENMM=MM+O:GOTO308
  410. 410 IFMM+O<=0THENMM=MM+O:GOTO1127
  411. 411 GOTO352
  412. 412 POKE53280,2:POKE53281,1
  413. 413 PRINT"[147]";CHR$(14)
  414. 414 PRINT"   [201]F YOU HAVE RECEIVED A [198][210][197][197] COPY OF"
  415. 415 PRINT" THIS PROGRAM FROM A FRIEND, OR OTHER"
  416. 416 PRINT" SOURCE, AND YOU ENJOY THIS GAME, THEN"
  417. 417 PRINT" SEND A CONTRIBUTION OF $5.00 TO:"
  418. 418 PRINT"          [208]ETER [193]. [210]UDMAN"
  419. 419 PRINT"          3745 [215]OODVALE [210]OAD"
  420. 420 PRINT"          [194]IRMINGHAM, [193][204] 35223"
  421. 421 PRINT"   [201]'M SURE YOU'LL AGREE THAT $5.00 IS"
  422. 422 PRINT" A SMALL COMPENSATION FOR ALL THE TIME"
  423. 423 PRINT" AND EFFORT WHICH [201]'VE PUT IN TO DEVEL-"
  424. 424 PRINT" OP THIS PROGRAM."
  425. 425 PRINT"                    [212]HANK YOU."
  426. 426 PRINT"                    [208]ETER [193]. [210]UDMAN"
  427. 427 FORI=1TO18000:NEXT
  428. 428 PRINTCHR$(142):TI$="000000"
  429. 429 GOTO308
  430. 430 GETA$:IFA$=""THEN430
  431. 431 REM- KENO
  432. 432 PRINT"[147]":POKE53280,15:POKE53281,1:O=0
  433. 433 PRINT"[147]                 KENO":PRINT"                 ----"
  434. 434 PRINT"         WOULD YOU LIKE TO SEE ":PRINT
  435. 435 PRINT"          THE PAYOFF TABLES?"
  436. 436 GETA$:IFA$=""THEN436
  437. 437 IFA$="Y"THEN667
  438. 438 IFA$="N"THEN440
  439. 439 GOTO436
  440. 440 PRINT"[147]                  KENO"
  441. 441 PRINT:PRINT" 1 2 3 4 5 6 7 8 910"
  442. 442 PRINT:PRINT"11121314151617181920"
  443. 443 PRINT:PRINT"21222324252627282930"
  444. 444 PRINT:PRINT"31323334353637383940"
  445. 445 PRINT:PRINT"41424344454647484950"
  446. 446 PRINT:PRINT"51525354555657585960"
  447. 447 PRINT:PRINT"61626364656667686970"
  448. 448 PRINT:PRINT"71727374757677787980"
  449. 449 FORI=0TO20:CC(I)=0:NEXTI:Z=0
  450. 450 PRINT"  HOW MANY NUMBERS":PRINT
  451. 451 PRINT"   WILL YOU GUESS?":PRINT:PRINT"      (1 TO 9)"
  452. 452 GETA$:IFA$=""THEN452
  453. 453 IFA$="1"THENA=1:GOTO463
  454. 454 IFA$="2"THENA=2:GOTO463
  455. 455 IFA$="3"THENA=3:GOTO463
  456. 456 IFA$="4"THENA=4:GOTO463
  457. 457 IFA$="5"THENA=5:GOTO463
  458. 458 IFA$="6"THENA=6:GOTO463
  459. 459 IFA$="7"THENA=7:GOTO463
  460. 460 IFA$="8"THENA=8:GOTO463
  461. 461 IFA$="9"THENA=9:GOTO463
  462. 462 GOTO452
  463. 463 PRINT""
  464. 464 FORI=1TO6:PRINT"                                      ":NEXTI
  465. 465 PRINT""
  466. 466 PRINT"ENTER YOUR NUMBER";
  467. 467 INPUTN$
  468. 468 PRINT""
  469. 469 FORI=1TO6:PRINT"                                      ":NEXTI
  470. 470 N=VAL(N$)
  471. 471 IFN<1ORN>80THEN463
  472. 472 GOTO514
  473. 473 POKE54277,1:POKE54278,240:POKE54273,51:POKE54272,97:POKE54276,17
  474. 474 FOR SS=1TO100:NEXT
  475. 475 POKE54276,16
  476. 476 GOTO536
  477. 477 POKE54277,1:POKE54278,240:POKE54273,34:POKE54272,75:POKE54276,17
  478. 478 FOR SS=1TO100:NEXT
  479. 479 POKE54276,16
  480. 480 GOTO541
  481. 481 POKE54277,1:POKE54278,240:POKE54273,34:POKE54272,75:POKE54276,17
  482. 482 FOR SS=1TO50:NEXT
  483. 483 POKE54276,16
  484. 484 POKE54277,1:POKE54278,240:POKE54273,38:POKE54272,126:POKE54276,17
  485. 485 FOR SS=1TO50:NEXT
  486. 486 POKE54276,16
  487. 487 POKE54277,1:POKE54278,240:POKE54273,43:POKE54272,52:POKE54276,17
  488. 488 FOR SS=1TO50:NEXT
  489. 489 POKE54276,16
  490. 490 POKE54277,1:POKE54278,240:POKE54273,45:POKE54272,198:POKE54276,17
  491. 491 FOR SS=1TO50:NEXT
  492. 492 POKE54276,16
  493. 493 POKE54277,1:POKE54278,240:POKE54273,51:POKE54272,97:POKE54276,17
  494. 494 FOR SS=1TO50:NEXT
  495. 495 POKE54276,16
  496. 496 IFTI<72000THEN500
  497. 499 GOTO412
  498. 500 ONTDGOTO402,588,747,779,739,882,976,1095,6
  499. 501 POKE54277,1:POKE54278,240:POKE54273,34:POKE54272,75:POKE54276,17
  500. 502 FOR SS=1TO100:NEXT
  501. 503 POKE54276,16
  502. 504 GOTO211
  503. 505 POKE54277,1:POKE54278,240:POKE54273,51:POKE54272,97:POKE54276,17
  504. 506 FOR SS=1TO100:NEXT
  505. 507 POKE54276,16
  506. 508 GOTO363
  507. 509 POKE54277,1:POKE54278,240:POKE54273,51:POKE54272,97:POKE54276,17
  508. 510 POKE54276,16
  509. 511 POKE54277,1:POKE54278,240:POKE54273,34:POKE54272,75:POKE54276,17
  510. 512 POKE54276,16
  511. 513 GOTO6
  512. 514 FORI=0TOZ
  513. 515 IFN=CC(I)THEN463
  514. 516 NEXTI
  515. 517 PRINT"":TC=1:GOTO260
  516. 518 CC(Z+1)=N
  517. 519 Z=Z+1:IFZ>=ATHEN521
  518. 520 GOTO463
  519. 521 GOTO618
  520. 522 M=0:P=0:O=O-1
  521. 523 PRINT"":PRINT" TOTAL:";O;"[157] ";
  522. 524 FORL=1TO21:M(L)=0
  523. 525 R=INT((RND(TI)*80)+1)
  524. 526 M(L)=R:NEXTL
  525. 527 L=21
  526. 528 FORK=1TO20:FORJ=KTO20
  527. 529 X=M(K):Y=M(J+1)
  528. 530 IFX<>YTHEN534
  529. 531 M(J+1)=INT(80*RND(TI)+1)
  530. 532 Y=M(J+1)
  531. 533 GOTO530
  532. 534 NEXTJ:NEXTK
  533. 535 FORI=1TO20:FORQ=1TO150:NEXTQ
  534. 536 FORJ=1TOA
  535. 537 IFM(I)=CC(J)THENN=CC(J):PRINT"[158]":TC=2:GOTO260
  536. 538 IFM(I)=CC(J)THENI=I+1:M=M+1:TD=2:GOTO473
  537. 539 NEXTJ
  538. 540 N=M(I):PRINT"[129]":TC=3:GOTO260
  539. 541 NEXTI
  540. 542 IFA=1ANDM=1THENP=3
  541. 543 IFA=2ANDM=2THENP=12
  542. 544 IFA=3ANDM=2THENP=1
  543. 545 IFA=3ANDM=3THENP=42
  544. 546 IFA=4ANDM=2THENP=1
  545. 547 IFA=4ANDM=3THENP=3
  546. 548 IFA=4ANDM=4THENP=120
  547. 549 IFA=5ANDM=3THENP=1
  548. 550 IFA=5ANDM=4THENP=9
  549. 551 IFA=5ANDM=5THENP=800
  550. 552 IFA=6ANDM=3THENP=1
  551. 553 IFA=6ANDM=4THENP=4
  552. 554 IFA=6ANDM=5THENP=88
  553. 555 IFA=6ANDM=6THENP=1490
  554. 556 IFA=7ANDM=4THENP=2
  555. 557 IFA=7ANDM=5THENP=20
  556. 558 IFA=7ANDM=6THENP=350
  557. 559 IFA=7ANDM=7THENP=7000
  558. 560 IFA=8ANDM=5THENP=9
  559. 561 IFA=8ANDM=6THENP=90
  560. 562 IFA=8ANDM=7THENP=1490
  561. 563 IFA=8ANDM=8THENP=20000
  562. 564 IFA=9ANDM=5THENP=4
  563. 565 IFA=9ANDM=6THENP=44
  564. 566 IFA=9ANDM=7THENP=300
  565. 567 IFA=9ANDM=8THENP=4000
  566. 568 IFA=9ANDM=9THENP=22000
  567. 569 O=O+P
  568. 570 IFP>0GOTO579
  569. 571 PRINT""
  570. 572 FORI=1TO7:PRINT"                                     ":NEXTI
  571. 573 PRINT"                                     ";
  572. 574 PRINT""
  573. 575 PRINT"        THERE ARE NO WINNERS":PRINT
  574. 576 PRINT"        YOU CAUGHT";M;"OUT OF";A:PRINT
  575. 577 PRINT" TOTAL:";O;"[157]  "
  576. 578 GOTO589
  577. 579 PRINT""
  578. 580 FORI=1TO7:PRINT"                                     ":NEXTI
  579. 581 PRINT"                                     ";
  580. 582 PRINT""
  581. 583 PRINT"     YOU WIN!  YOUR PAYOFF IS $";P:PRINT
  582. 584 PRINT"        YOU CAUGHT";M;"OUT OF";A:PRINT
  583. 585 PRINT" TOTAL:";O;"[157]  "
  584. 586 W=P:IFW>50THENW=50
  585. 587 FORI=1TOW:GOSUB4:TD=2:GOTO481
  586. 588 NEXTI
  587. 589 FORI=1TO2000:NEXTI:IFO+MM<=0THEN1127
  588. 590 PRINT""
  589. 591 FORI=1TO6:PRINT"                                     ":NEXTI
  590. 592 PRINT""
  591. 593 PRINT"       DO YOU WANT TO PLAY AGAIN?   "
  592. 594 GETA$:IFA$=""THEN594
  593. 595 IFA$="N"THENMM=MM+O:GOTO308
  594. 596 IFA$="Y"THEN598
  595. 597 GOTO593
  596. 598 PRINT""
  597. 599 PRINT"     DO YOU WANT THE SAME NUMBERS?"
  598. 600 GETA$:IFA$=""THEN600
  599. 601 IFA$="N"THEN433
  600. 602 IFA$="Y"THEN604
  601. 603 GOTO600
  602. 604 PRINT""
  603. 605 PRINT:PRINT" 1 2 3 4 5 6 7 8 910[146]"
  604. 606 PRINT:PRINT"11121314151617181920[146]"
  605. 607 PRINT:PRINT"21222324252627282930[146]"
  606. 608 PRINT:PRINT"31323334353637383940[146]"
  607. 609 PRINT:PRINT"41424344454647484950[146]"
  608. 610 PRINT:PRINT"51525354555657585960[146]"
  609. 611 PRINT:PRINT"61626364656667686970[146]"
  610. 612 PRINT:PRINT"71727374757677787980[146]"
  611. 613 FORI=1TOA:N=CC(I):PRINT"":TC=4:GOTO260
  612. 614 NEXTI
  613. 615 PRINT""
  614. 616 PRINT"                                   "
  615. 617 GOTO521
  616. 618 PRINT""
  617. 619 PRINTTAB(14)"PAYOFF TABLES":IFA=1THEN628
  618. 620 IFA=2THEN631
  619. 621 IFA=3THEN633
  620. 622 IFA=4THEN636
  621. 623 IFA=5THEN640
  622. 624 IFA=6THEN644
  623. 625 IFA=7THEN649
  624. 626 IFA=8THEN654
  625. 627 IFA=9THEN659
  626. 628 PRINT
  627. 629 PRINTTAB(16)"1 -     3"
  628. 630 GOTO665
  629. 631 PRINT:PRINTTAB(16)"2 -    12"
  630. 632 GOTO665
  631. 633 PRINT:PRINTTAB(16)"2 -     1"
  632. 634 PRINTTAB(16)"3 -    42"
  633. 635 GOTO665
  634. 636 PRINT:PRINTTAB(16)"2 -     1"
  635. 637 PRINTTAB(16)"3 -     3"
  636. 638 PRINTTAB(16)"4 -   120"
  637. 639 GOTO665
  638. 640 PRINT:PRINTTAB(16)"3 -     1"
  639. 641 PRINTTAB(16)"4 -     9"
  640. 642 PRINTTAB(16)"5 -   800"
  641. 643 GOTO665
  642. 644 PRINT:PRINTTAB(16)"3 -     1"
  643. 645 PRINTTAB(16)"4 -     4"
  644. 646 PRINTTAB(16)"5 -    88"
  645. 647 PRINTTAB(16)"6 -  1490";
  646. 648 GOTO665
  647. 649 PRINT:PRINTTAB(16)"4 -     2"
  648. 650 PRINTTAB(16)"5 -    20"
  649. 651 PRINTTAB(16)"6 -   350"
  650. 652 PRINTTAB(16)"7 -  7000";
  651. 653 GOTO665
  652. 654 PRINT:PRINTTAB(16)"5 -     9"
  653. 655 PRINTTAB(16)"6 -    90"
  654. 656 PRINTTAB(16)"7 -  1490"
  655. 657 PRINTTAB(16)"8 - 20000";
  656. 658 GOTO665
  657. 659 PRINTTAB(16)"5 -     4"
  658. 660 PRINTTAB(16)"6 -    44"
  659. 661 PRINTTAB(16)"7 -   300"
  660. 662 PRINTTAB(16)"8 -  4000"
  661. 663 PRINTTAB(16)"9 - 22000";
  662. 664 GOTO665
  663. 665 GOTO522
  664. 666 GOTO691      
  665. 667 PRINT"[147]             PAYOFF TABLES":PRINT"             -------------"
  666. 668 PRINT" GUESS  PULL  PAY  [144] [146]  GUESS  PULL  PAY"
  667. 669 PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][144] [146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  668. 670 PRINT"   1     1      3  [144] [146]    7     4      2"
  669. 671 PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146]          5     20"
  670. 672 PRINT"   2     2     12  [144] [146]          6    350"
  671. 673 PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146]          7   7000"
  672. 674 PRINT"   3     2      1  [144] [146]                  "
  673. 675 PRINT"         3     42  [144] [146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  674. 676 PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146]    8     5      9"
  675. 677 PRINT"   4     2      1  [144] [146]          6     90"
  676. 678 PRINT"         3      3  [144] [146]          7   1490"
  677. 679 PRINT"         4    120  [144] [146]          8  20000"
  678. 680 PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][144] [146]                  "
  679. 681 PRINT"   5     3      1  [144] [146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  680. 682 PRINT"         4      9  [144] [146]    9     5      4"
  681. 683 PRINT"         5    800  [144] [146]          6     44"
  682. 684 PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][144] [146]          7    300"
  683. 685 PRINT"   6     3      1  [144] [146]          8   4000"
  684. 686 PRINT"         4      4  [144] [146]          9  22000"
  685. 687 PRINT"         5     88  [144] [146]                  "
  686. 688 PRINT"         6   1490  [144] [146]     HIT ANY KEY"
  687. 689 GETA$:IFA$=""THEN689
  688. 690 GOTO440
  689. 691 GETA$:IFA$=""THEN691
  690. 692 GOTO440
  691. 693 O=0:K=1:POKE53280,5:POKE53281,1:PRINT"[147]";:REM - BLACKJACK
  692. 694 FORI=1TO24:PRINT"                                       ":NEXT
  693. 695 PRINT"                                       [146]"
  694. 696 FORI=40TO1000STEP40:POKE55295+I,5:POKE1023+I,224:NEXTI
  695. 697 FORI=1TO53:CC(I)=0:NEXTI:K=1
  696. 698 GOSUB236
  697. 699 FORI=1TO5
  698. 700 FORJ=1TO3
  699. 701 PP(I,J)=0
  700. 702 NEXTJ:NEXTI
  701. 703 PRINT"":T=0:GOSUB16:PRINT"":GOSUB16:FORI=1TO200:NEXTI
  702. 704 PRINT"":GOSUB8:GOSUB26:PP(1,2)=N
  703. 705 T=8:PRINT"":GOSUB16:PRINT"":GOSUB16:FORI=1TO300:NEXTI
  704. 706 PRINT"":GOSUB8:GOSUB26:PP(2,1)=N
  705. 707 PRINT"":GOSUB8:GOSUB26:PP(2,2)=N
  706. 708 GOSUB8:PP(1,1)=N
  707. 709 I=2:GOSUB246:IFTL=21THEN776
  708. 710 I=1:GOSUB246:IFTL=21THEN780
  709. 711 J=2
  710. 712 PRINT" H[146]IT, S[146]TAND, D[146]OUBLE?   ":I=2
  711. 713 GETA$:IFA$=""THEN713
  712. 714 IFA$="H"THEN718
  713. 715 IFA$="S"THEN724
  714. 716 IFA$="D"THEN725
  715. 717 GOTO713
  716. 718 I=2:J=J+1:IFJ>5THEN748
  717. 719 T=J*8-8:PRINT"":GOSUB16:FORM=1TO300:NEXTM
  718. 720 T=J*8-8:PRINT"":GOSUB8:GOSUB26:PP(J,2)=N
  719. 721 GOSUB246:IFTL>21THEN729
  720. 722 IFJ=5THENPT=TL:GOTO748
  721. 723 GOTO712
  722. 724 GOSUB246:PT=TL:GOTO748
  723. 725 IFJ>2THEN712
  724. 726 B=2*B:T=16:PRINT"":GOSUB16:GOSUB8:PP(3,2)=N
  725. 727 FORM=1TO300:NEXTM:PRINT"":GOSUB26
  726. 728 GOSUB246:PT=TL:GOTO748
  727. 729 REM- PLAYER BUST
  728. 730 O=O-B:PRINT" OVER 21 - YOU LOSE  TOTAL:";O;"[157] "
  729. 731 PT=TL:GOTO748
  730. 732 REM- DEALER STANDS
  731. 733 IFPT>DTTHENO=O+B:GOTO736
  732. 734 IFDT>PTTHENO=O-B:GOTO740
  733. 735 IFDT=PTTHEN742
  734. 736 PRINT" YOU WIN WITH";PT;"[157]        [146] TOTAL:";O;"[157] "
  735. 737 PRINT" YOU WIN WITH";PT;"[157]        [146] TOTAL:";O;"[157] "
  736. 738 GOSUB4:POKE53280,5:TD=5:GOTO481
  737. 739 GOTO785
  738. 740 PRINT" DEALER WINS WITH";DT;"  TOTAL:";O;"[157] "
  739. 741 GOTO785
  740. 742 PRINT" PUSH - NO WINNER     [146] TOTAL:";O;"[157] "
  741. 743 GOTO785
  742. 744 REM- DEALER BUSTS
  743. 745 O=O+B:PRINT" DEALER OVER - YOU WIN!  TOTAL:";O;"[157] "
  744. 746 GOSUB4:POKE53280,5:TD=3:GOTO481
  745. 747 GOTO759
  746. 748 REM- PLAYER STANDS
  747. 749 T=0:PRINT"":N=PP(1,1):GOSUB26
  748. 750 I=1:GOSUB246:DT=TL:IFPT>21THEN785
  749. 751 IFDT>=17THEN732
  750. 752 J=3
  751. 753 T=J*8-8:PRINT"":GOSUB16:FORM=1TO400:NEXTM
  752. 754 T=J*8-8:PRINT"":GOSUB8:GOSUB26:PP(J,1)=N
  753. 755 GOSUB246:DT=TL:IFDT>21THEN744
  754. 756 IFDT>=17THEN732
  755. 757 IFJ=5THEN732
  756. 758 J=J+1:GOTO753
  757. 759 FORI=1TO1500:NEXTI:IFO+MM<=0THEN1127
  758. 760 PRINT" PLAY AGAIN?             "
  759. 761 GETA$:IFA$=""THEN761
  760. 762 IFA$="Y"THEN765
  761. 763 IFA$="N"THENMM=MM+O:GOTO308
  762. 764 GOTO761
  763. 765 FORI=1TO5
  764. 766 PRINT""
  765. 767 FORJ=1TO9
  766. 768 PRINTTAB(8*I-8)"       [146]"
  767. 769 NEXTJ
  768. 770 PRINT""
  769. 771 FORJ=1TO9
  770. 772 PRINTTAB(8*I-8)"       [146]"
  771. 773 NEXTJ
  772. 774 NEXTI
  773. 775 GOTO697
  774. 776 O=O+2*B
  775. 777 PRINT" YOU HAVE BLACKJACK!  TOTAL:";O;"[157]   "
  776. 778 GOSUB4:POKE53280,5:TD=4:GOTO481
  777. 779 GOTO759
  778. 780 O=O-B
  779. 781 PRINT"":T=0:N=PP(1,1):GOSUB26
  780. 782 PRINT" DEALER HAS BLACKJACK  TOTAL:";O;"[157]   "
  781. 783 GOTO759
  782. 784 GOTO759
  783. 785 GOTO759
  784. 786 GETA$:IFA$=""THEN786
  785. 787 PRINT"[147]";:POKE53280,5:REM- POKER
  786. 788 FORI=1TO12:PRINT"                                       ":NEXT
  787. 789 FORI=40TO480STEP40:POKE55295+I,5:POKE1023+I,224:NEXTI:O=0
  788. 790 PRINT"    PAYOFF TABLE":PRINT"    ------------"
  789. 791 PRINT" ROYAL FLUSH     300":PRINT" STRAIGHT FLUSH   50"
  790. 792 PRINT"[129] FOUR OF A KIND   25":PRINT" FULL HOUSE        9"
  791. 793 PRINT" FLUSH             6":PRINT" STRAIGHT          4"
  792. 794 PRINT" THREE OF A KIND   3":PRINT" TWO PAIR          2":PRINT" ONE PAIR          0.5"
  793. 795 FOR I=1TO5:T=8*I-8:PRINT"":GOSUB16:NEXTI:PY=0
  794. 796 PRINT"12345"
  795. 797 PRINT"":PRINTTAB(25)"DRAW POKER":PRINTTAB(25)"----------"
  796. 798 PRINTTAB(22)"TO DISCARD ENTER":PRINTTAB(22)"THE CARD NUMBER"
  797. 799 PRINTTAB(22)"TO DRAW/HOLD HIT":PRINTTAB(22)"     <SPACE>"
  798. 800 FORI=1TO3:PRINTTAB(21)"                  ":NEXTI
  799. 801 O=O-1:PRINTTAB(26)"TOTAL:";O;"[157]  ":K=1
  800. 802 FORI=1TO5:PP(I,1)=0:NEXTI
  801. 803 FORI=1TO5:T=8*I-8:GOSUB8:PP(I,1)=N:PP(I,2)=S:PRINT"":GOSUB26:NEXTI:P=1
  802. 804 GETA$:IFA$=""THEN804
  803. 805 IFA$=" "THEN813
  804. 806 IFA$="1"THENPP(1,1)=0:PRINT"":T=0:GOSUB16:P=P+1
  805. 807 IFA$="2"THENPP(2,1)=0:PRINT"":T=8:GOSUB16:P=P+1
  806. 808 IFA$="3"THENPP(3,1)=0:PRINT"":T=16:GOSUB16:P=P+1
  807. 809 IFA$="4"THENPP(4,1)=0:PRINT"":T=24:GOSUB16:P=P+1
  808. 810 IFA$="5"THENPP(5,1)=0:PRINT"":T=32:GOSUB16:P=P+1
  809. 811 IFP>=5THEN813
  810. 812 GOTO804
  811. 813 FOR I=1TO5
  812. 814 IFPP(I,1)=0THEN817
  813. 815 NEXTI
  814. 816 GOTO820
  815. 817 GOSUB8:PP(I,1)=N:PP(I,2)=S:T=I*8-8
  816. 818 PRINT"":GOSUB26
  817. 819 GOTO815
  818. 820 REM
  819. 821 FORI=0TO15:CC(I)=0:NEXTI:PY=0
  820. 822 FORI=1TO5
  821. 823 IFPP(I,1)=1THENCC(1)=CC(1)+1
  822. 824 IFPP(I,1)=2THENCC(2)=CC(2)+1
  823. 825 IFPP(I,1)=3THENCC(3)=CC(3)+1
  824. 826 IFPP(I,1)=4THENCC(4)=CC(4)+1
  825. 827 IFPP(I,1)=5THENCC(5)=CC(5)+1
  826. 828 IFPP(I,1)=6THENCC(6)=CC(6)+1
  827. 829 IFPP(I,1)=7THENCC(7)=CC(7)+1
  828. 830 IFPP(I,1)=8THENCC(8)=CC(8)+1
  829. 831 IFPP(I,1)=9THENCC(9)=CC(9)+1
  830. 832 IFPP(I,1)=10THENCC(10)=CC(10)+1
  831. 833 IFPP(I,1)=11THENCC(11)=CC(11)+1
  832. 834 IFPP(I,1)=12THENCC(12)=CC(12)+1
  833. 835 IFPP(I,1)=13THENCC(13)=CC(13)+1
  834. 836 NEXTI
  835. 837 FORI=1TO13:IFCC(I)>=4THENPY=25
  836. 838 NEXTI
  837. 839 FORI=1TO13:IFCC(I)=3THENGOSUB852
  838. 840 NEXTI
  839. 841 FORI=1TO13:IFCC(I)=2THENGOSUB859
  840. 842 NEXTI
  841. 843 FORI=1TO9:IFCC(I)=1THENGOSUB868
  842. 844 NEXTI
  843. 845 FORI=2TO5
  844. 846 IFPP(I,2)<>PP(1,2)THEN871
  845. 847 NEXTI
  846. 848 IFPY=4THENPY=50:GOTO850
  847. 849 PY=6:GOTO871
  848. 850 IFCC(13)=1THENPY=300
  849. 851 GOTO871
  850. 852 FORJ=0TOI-1
  851. 853 IFCC(J)=2THENPY=9:RETURN
  852. 854 NEXTJ
  853. 855 FORJ=I+1TO14
  854. 856 IFCC(J)=2THENPY=9:RETURN
  855. 857 NEXTJ
  856. 858 PY=3:RETURN
  857. 859 FORJ=0TOI-1
  858. 860 IFCC(J)=2THENPY=2:RETURN
  859. 861 IFCC(J)>2THENRETURN
  860. 862 NEXTJ
  861. 863 FORJ=I+1TO14
  862. 864 IFCC(J)=2THENPY=2:RETURN
  863. 865 IFCC(J)>2THENRETURN
  864. 866 NEXTJ
  865. 867 PY=.5:RETURN
  866. 868 FORJ=I+1TOI+4
  867. 869 IFCC(J)<>1THENRETURN
  868. 870 NEXTJ:PY=4:RETURN
  869. 871 O=O+PY:IFO+MM<=0THEN1127
  870. 872 IFPY>0THEN877
  871. 873 PRINT""
  872. 874 PRINTTAB(26)"PAYOFF: 0"
  873. 875 PRINT:PRINTTAB(26)"TOTAL:";O;"[157]  "
  874. 876 GOTO884
  875. 877 FORI=1TOPY:GOSUB4:POKE53280,5
  876. 878 PRINT""
  877. 879 IFPY=.5THENPRINTTAB(26)"PAYOFF:";PY:GOTO881
  878. 880 PRINTTAB(26)"PAYOFF:";I
  879. 881 PRINT:PRINTTAB(26)"TOTAL:";O-INT(PY+.6)+I;"[157]  ":TD=6:GOTO481
  880. 882 NEXTI
  881. 883 POKE53280,5
  882. 884 PRINT""
  883. 885 FORM=1TO1000:NEXTM
  884. 886 PRINTTAB(21)"    PLAY AGAIN?"
  885. 887 GETA$:IFA$=""THEN887
  886. 888 IFA$="Y"THEN795
  887. 889 IFA$="N"THENMM=MM+O:GOTO308
  888. 890 GOTO887
  889. 891 GETA$:IFA$=""THEN891
  890. 892 GOTO795
  891. 893 O=0:REM- CHUCK A LUCK
  892. 894 PRINT"[147]":POKE53280,7:POKE53281,7:PRINT"[144]              CHUCK-A-LUCK"
  893. 895 PRINT"                          [146]"
  894. 896 FORI=1TO3:PRINT"               [165] [165] [165][160][165][160][165][160][165] ":NEXT
  895. 897 PRINT"             [146]  [205] [205][160][205][206][160][206][160][206][160][160] [146]"
  896. 898 PRINT"             [146]   [205][160][205]  [206][160][206]    [146]"
  897. 899 PRINT"             [146][175][175][175][175][175][157][205] [205][206] [206][175][175][175][175] [146]"
  898. 900 PRINT"             [146][183][183][183][183][183][157][206][160][206][205][160][205][183][183][183][183] [146]"
  899. 901 PRINT"             [146]   [206][160][206]  [205][160][205][160]   [146]"
  900. 902 PRINT"             [146]  [206][160][206][160][206][205][160][205][160][205]   [146]"
  901. 903 FORI=1TO3:PRINT"             [146]  [165][160][165][160][165][160][165][160][165][160][165]  [146]":NEXTI
  902. 904 PRINT"             [146]             [146]  [146]"
  903. 905 PRINT"             [146]               [146]"
  904. 906 PRINT"             [146]               [146]"
  905. 907 PRINT"                                [146]"
  906. 908 PRINT"                                [146]"
  907. 909 FOR K=1TO2
  908. 910 PRINT""
  909. 911 FORJ=1TO9:PRINT"                   ":NEXTJ
  910. 912 PRINT""
  911. 913 PRINT"  CHOOSE   CHOOSE":PRINT
  912. 914 PRINT"   YOUR YOUR":PRINT
  913. 915 PRINT"  NUMBER NUMBER":PRINT
  914. 916 PRINT" (1 TO 6)(1 TO 6)"
  915. 917 FORI=1TO200:NEXTI
  916. 918 NEXTK
  917. 919 GETA$:IFA$=""THEN919
  918. 920 IFA$="1"THENA=1:GOTO927
  919. 921 IFA$="2"THENA=2:GOTO927
  920. 922 IFA$="3"THENA=3:GOTO927
  921. 923 IFA$="4"THENA=4:GOTO927
  922. 924 IFA$="5"THENA=5:GOTO927
  923. 925 IFA$="6"THENA=6:GOTO927
  924. 926 GOTO919
  925. 927 PRINT"[147]":POKE53280,13:POKE53281,1
  926. 928 PRINT"[144]YOUR NUMBER"
  927. 929 PRINT"[176][192][192][192][174]"
  928. 930 FORI=1TO3:PRINT"[221]   [221]":NEXTI
  929. 931 PRINT"[173][192][192][192][189]"
  930. 932 PRINT"[144]"
  931. 933 IFA=1THENPRINT"[209]"
  932. 934 IFA=2THENPRINT"[209]":PRINT"[209]"
  933. 935 IFA=3THENPRINT"[209]":PRINT"[209]":PRINT"[209]"
  934. 936 IFA=4THENPRINT"[209] [209]":PRINT"[209] [209]"
  935. 937 IFA=5THENPRINT"[209] [209]":PRINT"[209]":PRINT"[209] [209]"
  936. 938 IFA=6THENPRINT"[209] [209]":PRINT"[209] [209]":PRINT"[209] [209]"
  937. 939 FORI=1TO2
  938. 940 PRINT""
  939. 941 FORJ=1TO4:PRINTTAB(19)"                  ":NEXTJ:FORM=1TO60:NEXTM
  940. 942 PRINT"":PRINTTAB(19)"PLACE YOUR BET":PRINT
  941. 943 PRINTTAB(19)"   (1 TO 5)":FORJ=1TO300:NEXTJ
  942. 944 NEXTI
  943. 945 GETB$:IFB$=""THEN945
  944. 946 IFB$="1"THENB=1:GOTO952
  945. 947 IFB$="2"THENB=2:GOTO952
  946. 948 IFB$="3"THENB=3:GOTO952
  947. 949 IFB$="4"THENB=4:GOTO952
  948. 950 IFB$="5"THENB=5:GOTO952
  949. 951 GOTO945
  950. 952 PRINT""
  951. 953 PRINTTAB(25)"TOTAL BET":PRINT
  952. 954 PRINTTAB(19)"        [176][192][192][192][174][146]   "
  953. 955 FORI=1TO3:PRINTTAB(19)"        [221][146]   [221][146]   ":NEXTI
  954. 956 PRINTTAB(19)"        [173][192][192][192][189][146]   "
  955. 957 PRINT"":PRINTTAB(28)B:FORI=1TO600:NEXTI
  956. 958 PRINT"":PRINTTAB(13)"GAME CLOSED":PRINT
  957. 959 PRINTTAB(13)"  NO BETS"
  958. 960 FORI=1TO12
  959. 961 FORJ=1TO3:T=11*J-7
  960. 962 IFJ=1THENPRINT""
  961. 963 IFJ=2THENPRINT"[158]"
  962. 964 IFJ=3THENPRINT""
  963. 965 PRINT""
  964. 966 GOSUB147:R(J)=D:NEXTJ:NEXTI
  965. 967 G=0
  966. 968 FORI=1TO3
  967. 969 IFR(I)=ATHENPRINT"":PRINTTAB(11*I-5)"[144]WIN":G=G+1
  968. 970 NEXTI
  969. 971 P=B*G:IFG=0THENP=-B
  970. 972 IFG=0THEN978
  971. 973 FORI=1TOP
  972. 974 PRINT"    YOU WIN! - YOUR PAYOFF IS $";I:GOSUB4:POKE53280,5
  973. 975 PRINT"              TOTAL:";O+I;"[157]  ":TD=7:GOTO481
  974. 976 NEXTI:POKE53280,13
  975. 977 GOTO979
  976. 978 PRINT"        THERE ARE NO WINNERS":PRINT
  977. 979 PRINT"    WOULD YOU LIKE TO PLAY AGAIN?"
  978. 980 O=O+P:IFO+MM<=0THEN1127
  979. 981 PRINT"              TOTAL:";O;"[157]  "
  980. 982 GETA$:IFA$=""THEN982
  981. 983 IFA$="N"THENMM=MM+O:GOTO308
  982. 984 IFA$="Y"THEN894
  983. 985 GOTO982
  984. 986 GETA$:IFA$=""THEN986
  985. 987 GOTO893
  986. 988 REM- BACCARAT
  987. 989 PRINT"[147]";:POKE53280,6:POKE53281,1
  988. 990 FORI=1TO24:PRINT"                                       ":NEXT
  989. 991 PRINT"                                       [146]"
  990. 992 FORI=40TO1000STEP40:POKE55295+I,6:POKE1023+I,224:NEXTI:O=0
  991. 993 T=3:PRINT"":GOSUB16
  992. 994 T=11:PRINT"":GOSUB16
  993. 995 T=21:PRINT"":GOSUB16
  994. 996 T=29:PRINT"":GOSUB16
  995. 997 PRINT"        DEALER"
  996. 998 PRINT"                          PLAYER"
  997. 999 PRINT"YOUR WAGER, PLEASE?"
  998. 1000 PRINT" (10,20,30,40,50)  "
  999. 1001 PRINT"TOTAL:";O;"[157]  "
  1000. 1002 GETA$:IFA$=""THEN1002
  1001. 1003 IFA$="1"THENB=10:GOTO1009
  1002. 1004 IFA$="2"THENB=20:GOTO1009
  1003. 1005 IFA$="3"THENB=30:GOTO1009
  1004. 1006 IFA$="4"THENB=40:GOTO1009
  1005. 1007 IFA$="5"THENB=50:GOTO1009
  1006. 1008 GOTO1002
  1007. 1009 FORI=1TO3:FORJ=1TO2:PP(I,J)=0:NEXT:NEXT:K=1:SS=0
  1008. 1010 PRINT"                   "
  1009. 1011 PRINT"                   "
  1010. 1012 PRINT"WAGER:";B;"[157]  "
  1011. 1013 T=21:PRINT"":GOSUB8:PP(1,2)=N:GOSUB26:FORM=1TO600:NEXTM
  1012. 1014 T=29:PRINT"":GOSUB8:PP(2,2)=N:GOSUB26:FORM=1TO600:NEXTM
  1013. 1015 I=2:GOSUB254:PT=TL
  1014. 1016 PRINT"PLAYER HAS:";PT:FORM=1TO600:NEXTM
  1015. 1017 IFPT>7THEN1120
  1016. 1018 GOTO1029
  1017. 1019 PRINT"PLAYER WILL STAND"
  1018. 1020 FORM=1TO600:NEXTM:GOTO1034
  1019. 1021 PRINT"PLAYER WILL DRAW "
  1020. 1022 FORM=1TO600:NEXTM
  1021. 1023 PRINT"":T=25:GOSUB16:FORM=1TO600:NEXTM
  1022. 1024 PRINT"":T=25:GOSUB8:PP(3,2)=N:GOSUB26:GOSUB254:PT=TL
  1023. 1025 PRINT:PRINT"PLAYER"
  1024. 1026 PRINT"PLAYER HAS:";PT:FORM=1TO600:NEXTM
  1025. 1027 SS=1
  1026. 1028 GOTO1019
  1027. 1029 PRINT"WILL YOU DRAW?   "
  1028. 1030 GETA$:IFA$=""THEN1030
  1029. 1031 IFA$="Y"THEN1021
  1030. 1032 IFA$="N"THEN1019
  1031. 1033 GOTO1030
  1032. 1034 REM- DEALER TURN
  1033. 1035 GOSUB8:PP(1,1)=N:PRINT""
  1034. 1036 T=3:GOSUB26:FORM=1TO600:NEXTM
  1035. 1037 GOSUB8:PP(2,1)=N:PRINT""
  1036. 1038 T=11:GOSUB26:FORM=1TO600:NEXTM
  1037. 1039 I=1:GOSUB254:DT=TL
  1038. 1040 PRINT"DEALER HAS:";DT
  1039. 1041 FORM=1TO600:NEXTM
  1040. 1042 IFSS=1THEN1045
  1041. 1043 IFDT<6THEN1061
  1042. 1044 GOTO1069
  1043. 1045 IFDT<3THEN1061
  1044. 1046 IFDT=3ANDPP(3,2)=8THEN1069
  1045. 1047 IFDT=3THEN1061
  1046. 1048 IFDT=4ANDPP(3,2)=1THEN1069
  1047. 1049 IFDT=4ANDPP(3,2)=8THEN1069
  1048. 1050 IFDT=4ANDPP(3,2)=9THEN1069
  1049. 1051 IFDT=4ANDPP(3,2)=10THEN1069
  1050. 1052 IFDT=4THEN1061
  1051. 1053 IFDT=5ANDPP(3,2)=5THEN1069
  1052. 1054 IFDT=5ANDPP(3,2)=6THEN1069
  1053. 1055 IFDT=5ANDPP(3,2)=7THEN1069
  1054. 1056 IFDT=5THEN1061
  1055. 1057 IFDT=6ANDPP(3,2)=6THEN1061
  1056. 1058 IFDT=6ANDPP(3,2)=7THEN1061
  1057. 1059 IFDT=6THEN1069
  1058. 1060 GOTO1069
  1059. 1061 PRINT"DEALER WILL DRAW"
  1060. 1062 FORM=1TO600:NEXTM
  1061. 1063 PRINT"":T=7:GOSUB16:FORM=1TO600:NEXTM
  1062. 1064 GOSUB8:PP(3,1)=N
  1063. 1065 PRINT"":T=7:GOSUB26
  1064. 1066 PRINT"       DEALER"
  1065. 1067 I=1:GOSUB254:DT=TL
  1066. 1068 PRINT"DEALER HAS:";DT
  1067. 1069 PRINT"DEALER WILL STAND"
  1068. 1070 FORM=1TO900:NEXTM
  1069. 1071 I=1:GOSUB254:DT=TL
  1070. 1072 IFDT>PTTHEN1075
  1071. 1073 IFDT<PTTHEN1085
  1072. 1074 IFDT=PTTHEN1096
  1073. 1075 PRINT"          "
  1074. 1076 PRINT""
  1075. 1077 FORM=1TO8
  1076. 1078 PRINT"                   "
  1077. 1079 NEXTM
  1078. 1080 PRINT"     I'M SORRY,    "
  1079. 1081 PRINT"THE HOUSE WINS"
  1080. 1082 O=O-B:IFO+MM<=0THEN1127
  1081. 1083 PRINT"TOTAL:";O;"[157]  "
  1082. 1084 GOTO1104
  1083. 1085 PRINT"          "
  1084. 1086 PRINT""
  1085. 1087 FORM=1TO8
  1086. 1088 PRINT"                   "
  1087. 1089 NEXTM
  1088. 1090 PRINT"   CONGRATULATIONS,"
  1089. 1091 PRINT"YOU'VE WON!"
  1090. 1092 O=O+B
  1091. 1093 PRINT"TOTAL:";O;"[157]  "
  1092. 1094 GOSUB4:POKE53280,6:TD=8:GOTO481
  1093. 1095 GOTO1104
  1094. 1096 PRINT"          "
  1095. 1097 PRINT""
  1096. 1098 FORM=1TO8
  1097. 1099 PRINT"                   "
  1098. 1100 NEXTM
  1099. 1101 PRINT"  PUSH - NO WINNER"
  1100. 1102 PRINT"TOTAL:";O;"[157]  "
  1101. 1103 GOTO1104
  1102. 1104 FORM=1TO1000:NEXTM
  1103. 1105 PRINT"                   "
  1104. 1106 PRINT"                   "
  1105. 1107 PRINT"    PLAY AGAIN?    "
  1106. 1108 GETA$:IFA$=""THEN1108
  1107. 1109 IFA$="Y"THEN1112
  1108. 1110 IFA$="N"THENMM=MM+O:GOTO308
  1109. 1111 GOTO1108
  1110. 1112 PRINT""
  1111. 1113 FORI=1TO22
  1112. 1114 PRINT"                                      "
  1113. 1115 NEXTI
  1114. 1116 PRINTTAB(20)"                 ";
  1115. 1117 GOTO993
  1116. 1118 GETA$:IFA$=""THEN1118
  1117. 1119 GOTO993
  1118. 1120 PRINT"YOU HAVE A NATURAL"
  1119. 1121 GOSUB8:PRINT"":T=3:PP(1,1)=N:GOSUB26:FORM=1TO500:NEXTM
  1120. 1122 GOSUB8:PRINT"":T=11:PP(2,1)=N:GOSUB26:FORM=1TO500:NEXTM
  1121. 1123 I=1:GOSUB254:DT=TL
  1122. 1124 PRINT"DEALER HAS:";DT
  1123. 1125 FORM=1TO600:NEXTM
  1124. 1126 GOTO1072
  1125. 1127 PRINT"[147]":POKE53280,8:POKE53281,3
  1126. 1128 PRINT""
  1127. 1129 PRINT"      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  1128. 1130 PRINT"      [180] FRIENDLY FINANCE COMPANY  [170]"
  1129. 1131 PRINT"      [180]                           [170]"
  1130. 1132 PRINT"      [180] (LET THE BORROWER BEWARE) [170]"
  1131. 1133 PRINT"      [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  1132. 1134 FORI=1TO1000:NEXTI:MM=MM+O:IFXX=1THEN1143
  1133. 1135 PRINT"      CAN I BE OF HELP TO YOU?":PRINT"           YOU OWE $";-MM
  1134. 1136 FORI=1TO1000:NEXTI:PRINT
  1135. 1137 PRINT"   WOULD YOU LIKE TO BORROW $ 50?"
  1136. 1138 GETA$:IFA$=""THEN1138
  1137. 1139 IFA$="Y"THEN1142
  1138. 1140 IFA$="N"THEN1157
  1139. 1141 GOTO1138
  1140. 1142 IFXX=0THENMM=MM+50:XX=1:GOTO308
  1141. 1143 PRINT"[147]":POKE53280,0:POKE53281,0
  1142. 1144 PRINT"[147]     YOU'VE ALREADY LOST YOUR $ 50":PRINT
  1143. 1145 FORI=1TO1000:NEXTI
  1144. 1146 PRINT:PRINT"         THEN YOU LOST MY $ 50":PRINT:PRINT:PRINT
  1145. 1147 FORI=1TO1500:NEXTI
  1146. 1148 PRINT"   NOW YOU'RE BROKE AND OWE ME $ 100":PRINT
  1147. 1149 FORI=1TO2000:NEXTI
  1148. 1150 PRINT"   GET OUT OF HERE!!  WHILE YOU CAN!"
  1149. 1151 FORI=1TO3000:NEXTI
  1150. 1152 GOTO1157
  1151. 1153 GETA$:IFA$=""THEN1153
  1152. 1154 GOTO308
  1153. 1155 GETA$:IFA$=""THEN1155
  1154. 1156 GOTO993
  1155. 1157 PRINT"[147][154]":POKE53280,14:POKE53281,6
  1156.