home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / GRAPHIC-BLACKJACK (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.8 KB  |  333 lines
  1. 10 PRINT"[147]":GOTO2950"
  2. 80 MO[178]1000:[137]110
  3. 90 [153]B$[163]7)"--- PRESS SPACE BAR ---"
  4. 100 [161]W$:[139]W$[178]""[167]100
  5. 110 MO[178]MO[172]10
  6. 120 [151]835,0:[151]834,0:[151]836,0
  7. 130 D[178][181](MO[173]256):[151]835,D:[151]834,MO[171]D[172]256:[151]836,BE
  8. 140 [153]"LOAD":[156]
  9. 150 A$[178]""
  10. 160 B$[178][200](A$,11)
  11. 170 C$[178][200](A$,8)
  12. 180 D$[178]"                                       "
  13. 190 QQ$[178]"A234567890JQK"
  14. 200 VV$[178]"(null)(null)(null)ATN"
  15. 205 Z$[178]"CMDCMDCMD"
  16. 210 MO[178]256[172][194](835)[170][194](834):BE[178][194](836)
  17. 220 MO[178]MO[173]10
  18. 230 [153]B$"     "[199](34)"...SHUFFLE.....SHUFFLE..."[199](34)
  19. 240 [141]870
  20. 250 [137]280
  21. 260 [143]"  DEAL THE HAND, 4 CARDS"
  22. 270 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  23. 280 [139]SB[179][177]0[167]310
  24. 290 [139]QA[178]2[167]1960
  25. 300 [143]
  26. 310 FB[178]0:SB[178]0:SM[178]0:SR[178]0:DBJ[178]0:E[178]0:F[178]0:G[178]0:H[178]0:[139]DO[178]1[167]BE[178]BE[173]2
  27. 320 J[178]0:K[178]0:L[178]0:M[178]0:N[178]0:P[178]0:DO[178]0:QQ[178]0:QA[178]0:[139]MO[178][177]5000[167]2140
  28. 330 [139]I[177]34[167]90
  29. 340 [153]A$""D$
  30. 350 G$[178][196](MO):[153]B$"YOU HAVE $"G$", PLACE YOUR BET. "BE
  31. 360 [153][163]26[170][195](G$)):[133]"ON";BE
  32. 370 [137]2040
  33. 380 [153]"LOAD"A$"YOU HOLD $"SH", YOUR BET IS $"BE
  34. 390 [143]
  35. 400 T[178]0:[153]A$;:[141]970:[141]1120:A[178]NU:[141]1200
  36. 410 [143]
  37. 420 [141]1090:[153]"";:[141]970:[141]1120;:[141]1200:B[178]NU:[141]1090
  38. 430 T[178]6:[153]""A$;:[141]970:[141]1120:[141]1200:C[178]NU:QQ[178]C%(I)
  39. 440 [143]
  40. 450 [141]1090:[153]"";:[141]970:[141]1120:D[178]NU:ZZ[178]C%(I):[141]1090
  41. 460 [137]490
  42. 470 [143]"  CHECK DEALER FOR BLACKJACK"
  43. 480 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  44. 490 [139]B[178]1[167][141]1620
  45. 500 [139]B[178]1[175]D[177]9[167]DBJ[178]1
  46. 510 [139]D[178]1[175]B[177]9[167]DBJ[178]1
  47. 520 [137]550
  48. 530 [143]"  CHECK PLAYER FOR BLACKJACK "
  49. 540 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  50. 550 [139]A[178]1[175]C[177]9[167]620
  51. 560 [139]C[178]1[175]A[177]9[167]620
  52. 570 [137]600
  53. 580 [143]"  IF ONE OR BOTH HAVE BLACKJACK"
  54. 590 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  55. 600 [139]DBJ[178]0[167][141]1090:[137]710
  56. 610 [153]C$"DEALER BLACKJACK":[141]2230:[137]670
  57. 620 [139]DBJ[178]1[167]660
  58. 630 [139]QA[178]1[167][153]"ONON BLACKJACK":[141]1090:SB[178]1:FB[178]1:[141]2310:[137]1790
  59. 640 [139]QA[178]2[167][153]"ONONONONONONON BLACKJACK":SB[178]2:[141]1090:[141]2310:[137]1890
  60. 650 [153]" PLAYER BLACKJACK":[141]1090:[141]2310:[137]670
  61. 660 [153]" PUSH--NO WINNERS!!"
  62. 670 [141]2820
  63. 680 [137]280
  64. 690 [143]"  DECISION ON HIT OR HOLD"
  65. 700 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  66. 710 [139]QA[179][177]0[167]750
  67. 720 [139]A[178]C [176] A[177]9 [175] C[177]9 [167][153]B$"DO YOU WANT TO SPLIT? (S)"
  68. 730 [153]B$"YOU WANT ONE CARD FOR DOUBLE? (D)"
  69. 740 [143]
  70. 750 [153]B$"ONONDO YOU WANT A CARD? (SPACE BAR)"
  71. 760 [153]B$"DO YOU HOLD? (H)"
  72. 770 [161]W$:[139]W$[178]""[167]770
  73. 780 [139]W$[178]" "[167]1240
  74. 790 [139]W$[178]"H"[167]1430
  75. 800 [139]W$[178]"D"[175]T[179]12[175]QA[178]0[167][137]2270
  76. 810 [139]W$[178]"S"[175]A[178]C[176]A[177]9[175]C[177]9[175]QA[178]0[167]2190
  77. 820 [137]770
  78. 830 [143] BEGIN ALL SUBROUTINES
  79. 840 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  80. 850 [143]"     SHUFFLE THE DECK"
  81. 860 [143]"    FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  82. 870 [134] CK(52),C%(52)
  83. 880 [129]I[178]1[164]50
  84. 890 R%[178]52[172][187](0)[170]1
  85. 900 [139]CK(R%)[179][177]0[137]890
  86. 910 C%(I)[178]R%:CK(R%)[178]1
  87. 920 [130]
  88. 930 [143]
  89. 940 I[178]0:[153]"LOAD":[142]
  90. 950 [143]
  91. 960 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  92. 970 I[178]I[170]1
  93. 980 NUMBER[178]C%(I)
  94. 990 [139]NUMBER[177]39[167]SUIT[178]4:NU[178]NU[171]39:[137]1050
  95. 1000 [139]NUMBER[177]26[167]SUIT[178]3:NU[178]NU[171]26:[137]1050
  96. 1010 [139]NUMBER[177]13[167]SUIT[178]2:NU[178]NU[171]13:[137]1050
  97. 1020 SUIT[178]1:[137]1050
  98. 1030 [143]
  99. 1040 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  100. 1050 N$[178][202](QQ$,NU,1)
  101. 1060 S$[178][202](VV$,SU,1):[142]
  102. 1070 [143]
  103. 1080 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFRE"
  104. 1090 [129]Q[178]1[164]200:[130]:[142]
  105. 1100 [143]
  106. 1110 [143]
  107. 1120 [153][163]T)"(null)TANTANTANRIGHT$"
  108. 1130 [153][163]T)"(null)(null)  (null)"
  109. 1140 [153][163]T)"(null)(null)(null) (null)"
  110. 1150 [153][163]T)"(null) (null)(null)(null)"
  111. 1160 [153][163]T)"(null)  (null)(null)"
  112. 1170 [153][163]T)"MID$TANTANTAN(null)":[142]
  113. 1180 [143]
  114. 1190 [143]
  115. 1200 [139]N$[178]"0"[167]N$[178]"10":[153][163]T)"ONONONONON"N$[170]S$;:[153]Z$[170]S$[170]N$:[142]
  116. 1210 [153][163]T)"ONONONONON"N$;" ";S$;:[153]Z$;:[153]S$;:[153]" "N$:[142]
  117. 1220 [143]
  118. 1230 [143]
  119. 1240 [153]B$"ONON"D$:[153]B$[170]D$:[153]B$""D$:[153]B$""D$:[153]
  120. 1250 T[178]T[170]6:[139]T[177]28[167]T[178]T[171]1:[139]T[177]35[167]1430
  121. 1260 [141]970
  122. 1270 [139]T[178]12[167]E[178]NU
  123. 1280 [139]T[178]18[167]F[178]NU
  124. 1290 [139]T[178]24[167]G[178]NU
  125. 1300 [139]T[178]29[167]H[178]NU
  126. 1310 [139]T[178]34[167]J[178]NU
  127. 1320 [141]1120:[141]1200:[141]2720
  128. 1330 TT[178]A[170]C[170]E[170]F[170]G[170]H[170]J
  129. 1340 [139]TT[177]21[167][153]"ONONONONONONONYOU HAVE"TT"YOU LOSE":[137]1370
  130. 1350 [139]DO[178]1[167]1430
  131. 1360 [137]750
  132. 1370 [139]QA[179][177]1[167][141]2230
  133. 1380 [139]QA[178]1[167]1790
  134. 1390 [139]QA[178]2[175]TA[179]22[167]1890
  135. 1400 [141]2820:[141]1090:[141]280
  136. 1410 [143]
  137. 1420 [143]
  138. 1430 [153]B$"ONON"D$:[153]B$[170]D$:[153]B$""D$:[153]B$""D$
  139. 1440 [141]2720
  140. 1450 TT[178]A[170]C[170]E[170]F[170]G[170]H[170]J
  141. 1460 A[178]A[171](A[178]1)[172]10:[141]1560:C[178]C[171](C[178]1)[172]10:[141]1560:E[178]E[171](E[178]1)[172]10:[141]1560
  142. 1470 F[178]F[171](F[178]1)[172]10:[141]1560:G[178]G[171](G[178]1)[172]10:[141]1560:H[178]H[171](H[178]1)[172]10:[141]1560
  143. 1480 J[178]J[171](J[178]1)[172]10:[141]1560
  144. 1490 [153]"ONYOU HAVE"TT
  145. 1500 [139]QA[178]1[167]1790
  146. 1510 [139]QA[178]2[167]1890
  147. 1520 [141]2820
  148. 1530 [137]2350
  149. 1540 [143]
  150. 1550 [143]
  151. 1560 R[178]A[170]C[170]E[170]F[170]G[170]H[170]J
  152. 1570 [139]R[179]22[167]SM[178]R
  153. 1580 [139]SM[177]TT[167]TT[178]SM
  154. 1590 [142]
  155. 1600 [143]
  156. 1610 [143]
  157. 1620 [139]A[178]1[175]C[177]9[167][142]
  158. 1630 [139]C[178]1[175]A[177]9[167][142]
  159. 1640 [153]B$"INSURANCE ? (Y/N)"
  160. 1650 [161]W$:[139]W$[178]""[167]1650
  161. 1660 [139]W$[179][177]"Y"[167][153]B$D$:[142]
  162. 1670 [139]SH[179]BE[173]2[167][153]B$D$"ONSORRY, NO CREDIT."
  163. 1675 [139]SH[179]BE[173]2[167][129]W[178]1[164]2000:[130]:[153]B$D$:[142]
  164. 1680 [139]D[177]9[167][153]B$D$:MO[178]MO[170]BE:[142]
  165. 1690 MO[178]MO[171]BE[173]2:[153]B$D$"ONNO BLACKJACK, YOU LOSE $"BE[173]2
  166. 1700 [153]A$""D$
  167. 1710 [153]A$"YOU HOLD $"SH[171]BE[173]2", YOUR BET IS $"BE
  168. 1720 [129]W[178]1[164]2000:[130]:[153]B$D$:[142]
  169. 1730 [143]
  170. 1740 [143]
  171. 1750 [153]A$;:[129]Q[178]1[164]6:[153][163]6)"     ":[130]
  172. 1760 [153]A$"ON":[141]970:[141]1120:[141]1200
  173. 1770 T[178]6:C[178]NU:QA[178]1:[153]B$""D$[170]B$""D$
  174. 1780 [137]550
  175. 1790 [153][163]20)"ONFIRST HAND"
  176. 1800 [153]B$"--- PRESS KEY FOR SECOND HAND ---"
  177. 1810 TA[178]TT:TT[178]0:QA[178]2:E[178]0:F[178]0:G[178]0:H[178]0:J[178]0:SM[178]0:
  178. 1820 [161]W$:[139]W$[178]""[167]1820
  179. 1830 [153]B$
  180. 1840 [129]Q[178]1[164]11:[153]D$:[130]
  181. 1850 [143]
  182. 1860 T[178]0:[153]A$"ON":NU[178]QQ:[141]990:[141]1120:[141]1200:A[178]NU
  183. 1870 T[178]6:[153]A$"ON":[141]970:[141]1120:[141]1200:C[178]NU
  184. 1880 [137]550
  185. 1890 [153][163]20)"ONSECOND HAND"
  186. 1900 [141]2820
  187. 1910 [139]SB[178]2[175]FB[178]1[167]310
  188. 1920 [139]SB[178]2[175]TA[177]21[167]1970
  189. 1930 [139]SB[178]1[175]TT[177]21[167]310
  190. 1940 [139]TA[177]21[175]TT[177]21[167]280
  191. 1950 [137]2350
  192. 1960 [139]SB[178]1[167]310
  193. 1970 [139]TA[177]21[167]2010
  194. 1980 [139]DT[178]TA[167][153]B$"YOU HAVE"TA"PUSH FIRST HAND":[137]310
  195. 1990 [139]DT[177]TA[175]DT[179]22[167]2010
  196. 2000 [153]B$"YOU HAVE"TA"YOU WIN FIRST HAND":[141]2100:[137]310
  197. 2010 [153]B$"YOU HAVE"TA"YOU LOSE FIRST HAND":[141]2230:[137]310
  198. 2020 [143]
  199. 2030 [143]
  200. 2040 BE[178][182]([181](BE))
  201. 2045 [139]MO[179][178]0[167][153]"LOAD"C$"SORRY, YOUR BROKE.RUN80":[128]
  202. 2050 [139]BE[177]200[167][153]"LOAD"C$"SORRY, $200 BETTING LIMIT.":[137]340
  203. 2060 [139]BE[177]MO[167][153]"LOAD"C$"SORRY, NO CREDIT.":[137]340
  204. 2070 SH[178]MO[171]BE:[137]380
  205. 2080 [143]
  206. 2090 [143]
  207. 2100 MO[178]MO[170]BE
  208. 2110 [142]
  209. 2120 [143]
  210. 2130 [143]
  211. 2140 [129]Q[178]1[164]1000:[161]A$:[130]
  212. 2150 [153]"LOAD"B$"CONGRATULATIONS YOU HAVE BROKE THE BANK."
  213. 2160 [153][163]11)"THIS TABLE IS CLOSED.RUN 80":[128]
  214. 2170 [143]
  215. 2180 [143]
  216. 2190 [139]MO[179]BE[172]2[167][153]B$"SORRY NOT ENOUGH MONEY, NO SPLIT":[137]770
  217. 2200 [137]1750
  218. 2210 [143]
  219. 2220 [143]
  220. 2230 MO[178]MO[171]BE
  221. 2240 [142]
  222. 2250 [143]
  223. 2260 [143]
  224. 2270 [139]MO[179]BE[172]2[167][153]B$"SORRY, NOT ENOUGH MONEY, NO DOUBLE.":[137]770
  225. 2280 DO[178]1:BE[178]BE[172]2:[137]1240
  226. 2290 [143]
  227. 2300 [143]
  228. 2310 MO[178]MO[170]BE[172]2
  229. 2320 [142]
  230. 2330 [143]
  231. 2340 [143]
  232. 2350 [141]2850
  233. 2360 DT[178]B[170]D[170]K[170]L[170]M[170]N[170]P
  234. 2370 [139]DT[177]21[167][153]C$"DEALER HAS"DT:[137]2650
  235. 2380 [139]DT[177]16[167][153]C$"DEALER HAS"DT:[137]2610
  236. 2390 B[178]B[171](B[178]1)[172]10:[141]2550:D[178]D[171](D[178]1)[172]10:[141]2550:K[178]K[171](K[178]1)[172]10:[141]2550
  237. 2400 L[178]L[171](L[178]1)[172]10:[141]2550:M[178]M[171](M[178]1)[172]10:[141]2550:N[178]N[171](N[178]1):[141]2550
  238. 2410 P[178]P[171](P[178]1)[172]10:[141]2550
  239. 2420 [139]DT[177]16[167][153]C$"DEALER HAS"DT:[137]2610
  240. 2430 B[178]B[170](B[178]11)[172]10:D[178]D[170](D[178]11)[172]10:K[178]K[170](K[178]11)[172]10:L[178]L[170](L[178]11)[172]10
  241. 2440 M[178]M[170](M[178]11)[172]10:N[178]N[170](N[178]11)[172]10:P[178]P[170](P[178]11)[172]10
  242. 2450 T[178]T[170]6:[139]T[177]28[167]T[178]T[171]1:[139]T[177]35[167]2610
  243. 2460 [141]970
  244. 2470 [139]T[178]12[167]K[178]NU
  245. 2480 [139]T[178]18[167]L[178]NU
  246. 2490 [139]T[178]24[167]M[178]NU
  247. 2500 [139]T[178]29[167]N[178]NU
  248. 2510 [139]T[178]34[167]P[178]NU
  249. 2520 [153]"LOAD":[141]1120:[141]1200:[141]1090:[141]1090:[137]2350
  250. 2530 [143]
  251. 2540 [143]
  252. 2550 U[178]B[170]D[170]K[170]L[170]M[170]N[170]P
  253. 2560 [139]U[179]22[167]SR[178]U
  254. 2570 [139]SR[177]DT[167]DT[178]SR
  255. 2580 [142]
  256. 2590 [143]
  257. 2600 [143]
  258. 2610 [139]TT[177]21[167]1960
  259. 2620 [139]SB[178]2[167]2680
  260. 2630 [139]DT[178]TT[167][153]A$[163]12)"ONONPUSH":[137]280
  261. 2640 [139]DT[177]TT[167][153]A$[163]12)"ONONYOU LOSE":[141]2230:[137]280
  262. 2650 [139]TT[177]21[167]1960
  263. 2660 [139]SB[178]2[167]2000
  264. 2670 [137]2690
  265. 2680 [139]TA[179]21[167]1960
  266. 2690 [153]A$[163]12)"ONONYOU WIN":[141]2100:[137]280
  267. 2700 [143]  ***
  268. 2710 [143]  ***
  269. 2720 [139]A[177]9[167]A[178]10
  270. 2730 [139]C[177]9[167]C[178]10
  271. 2740 [139]E[177]9[167]E[178]10
  272. 2750 [139]F[177]9[167]F[178]10
  273. 2760 [139]G[177]9[167]G[178]10
  274. 2770 [139]H[177]9[167]H[178]10
  275. 2780 [139]J[177]9[167]J[178]10
  276. 2790 [142]
  277. 2800 [143]  ***
  278. 2810 [143]  ***
  279. 2820 NU[178]ZZ:T[178]6:[141]990:[153]"":[141]1200:[141]1090:[142]
  280. 2830 [143]  ***
  281. 2840 [143]  ***
  282. 2850 [139]B[177]9[167]B[178]10
  283. 2860 [139]D[177]9[167]D[178]10
  284. 2870 [139]K[177]9[167]K[178]10
  285. 2880 [139]L[177]9[167]L[178]10
  286. 2890 [139]M[177]9[167]M[178]10
  287. 2900 [139]N[177]9[167]N[178]10
  288. 2910 [139]P[177]9[167]P[178]10
  289. 2920 [142]
  290. 2930 [143]  ***
  291. 2940 [143]  ***
  292. 2950 [151]53280,0:[151]53281,0:[153][199](155)
  293. 2960 [153]"LOAD"[163]7)"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$CMD(null)ON"
  294. 2970 [153][163]7)"(null)CMD(null)  (null)(null)(null)ATN BLACKJACK (null)(null)(null)ATN  (null)CMD(null)ON"
  295. 2980 [153][163]7)"(null)CMDMID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
  296. 2990 [153][163]10)"    BY T.P.U.G."
  297. 3000 [153][163]5)"DO YOU WANT INFORMATION? (Y/N)"
  298. 3010 [161]Q$:[139]Q$[178]""[167]3010
  299. 3020 [139]Q$[178]"Y"[167]3040
  300. 3030 [137]80
  301. 3040 [153]"LOADRULES DIFFER AMONG CASINOS, THE"
  302. 3045 [153]"FOLLOWING ARE THE MOST POPULAR. YOU CAN"
  303. 3050 [153]"GO 'DOWN FOR DOUBLES' WITH ANY NUMBER."
  304. 3060 [153]"YOU CAN SPLIT ANY PAIR. YOU CAN ONLY    SPLIT ONCE. YOU CANNOT";
  305. 3070 [153]" GO 'DOWN FOR     DOUBLES' ON A SPLIT, OR";
  306. 3075 [153]" BLACKJACK."
  307. 3080 [153]"DEALER MUST HIT 16, AND STAND ON 17."
  308. 3090 [153]"BLACKJACK PAYS 1.5 TO 1."
  309. 3100 [153]"CARD COUNTING WORKS. AT THE END OF A"
  310. 3110 [153]"HAND, IF THE DEALER HAS LESS THAN 18"
  311. 3115 [153]"CARDS LEFT, THE DECK WILL BE SHUFFLED."
  312. 3120 [153]"YOU MAY WATCH A HAND BY BETTING 0."
  313. 3130 [153][163]10)"(PRESS SPACE BAR)"
  314. 3140 [161]Q$:[139]Q$[178]""[167]3140
  315. 3150 [153]"LOADIF YOU WIN $5000 YOU HAVE 'BROKE THE    TABLE' AND THE TABLE";
  316. 3160 [153]" WILL CLOSE."
  317. 3170 [153]"MAXIMUM BET IS $200, MINIMUM IS $1."
  318. 3180 [153]"FOR EASE OF PLAYING, YOU CAN REPEAT YOURPREVIOUS BET BY ";
  319. 3190 [153]"HITTING <RET>."
  320. 3195 [153]"OTHER-WISE, ENTER THE AMOUNT YOU WISH TOBET.";
  321. 3200 [153]"IF THE DEALER HAS AN ACE UP, YOU MAYBUY INSURANCE AGAINST";
  322. 3210 [153]" A DEALERS         BLACKJACK FOR 1/2 YOUR BET."
  323. 3220 [153]"YOU HAVE $1000 TO START, GOOD LUCK."
  324. 3230 [153][163]10)"(PRESS SPACE BAR)"
  325. 3240 [161]Q$:[139]Q$[178]""[167]3240
  326. 3250 [137]80
  327. 3260 [143]  ***
  328. 3270 [143]  ***
  329. 3280 [143]  ***
  330. 3290 [143]  ***
  331. 3300 [143]  ***
  332. 0 
  333.