home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / WARGAMES.ARC / POKER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.4 KB  |  252 lines

  1. 0 GOTO500
  2. 1 POKE792,207:POKE793,2:CLR:RESTORE:DIM FL(52),C%(52):X=RND(-TI)
  3. 2 POKE 53280,5:POKE 53281,15:PRINT"[151]":DO=1000
  4. 3 GOTO 11
  5. 4 PRINT"  [213][195][195][195][201]"
  6. 5 PRINT"  [221][166][166][166][221]"
  7. 6 PRINT"  [221][166][166][166][221]"
  8. 7 PRINT"  [221][166][166][166][221]"
  9. 8 PRINT"  [221][166][166][166][221]"
  10. 9 PRINT"  [202][195][195][195][203]"
  11. 10 GOTO76
  12. 11 PRINT"[147]";SPC(8);"***********************"
  13. 12 PRINTSPC(8);"* WAR GAMES BLACKJACK[146] *"
  14. 13 PRINTSPC(8);"***********************"
  15. 16 GOTO19
  16. 17 IF H>=41 THENGOTO19
  17. 18 FORTD=1TO2000:NEXT:PRINT"[147]":GOTO 31
  18. 19 PRINT"";:ZW=ZW+1:IFZW>2THENGOTO1000
  19. 20 PRINT"  SHUFFLING":SAY"I'M SHUFFLING.":T=149
  20. 21 FORDT=1TO300:PRINTCHR$(T);"  SHUFFLING":IFT>155THENT=149
  21. 22 T=T+1:NEXTDT:H=1
  22. 23 FOR XY=0TO52
  23. 24 FL(XY)=0:C%(XY)=0
  24. 25 NEXT XY
  25. 26 REM
  26. 27 FOR I=1TO52
  27. 28 D%=52*RND(TI)+1
  28. 29 IF FL(D%)<>0 GOTO 28
  29. 30 C%(I)=D%:FL(D%)=1:NEXTI
  30. 31 PRINT"[151][147]":DB$=""
  31. 32 DO$=STR$(DO):IFDO=0THENPRINT" SORRY BROKE!!":SAY"SORRY YOUR BROKE.":DO=1000:GOTO19
  32. 33 PRINT"   BANK ";:SAY"THE BANK IS.":PRINTTAB(8);"";DO;"[151]";
  33. 34 GOSUB300:PRINT" YOUR BET* ";:SAY"YOUR BET?"
  34. 35 DI$="":GETDI$:IFDI$=""THEN35
  35. 36 IFASC(DI$)>47ANDASC(DI$)<58THENPRINTDI$;:DB$=DB$+DI$:GOTO35
  36. 37 IFASC(DI$)=13THENDB=VAL(DB$):GOTO42
  37. 38 IFASC(DI$)=133THENDO=1000:GOTO31
  38. 39 IFASC(DI$)=134ANDDO<24001THENDO=DO+1000:GOTO31
  39. 40 IFASC(DI$)=135THEN31
  40. 41 GOTO35
  41. 42 IFDO<DBORDB<1THEN32
  42. 43 CS(1)=0:CS(2)=0:CS(4)=0:CS(5)=0:CS(3)=0:CS(6)=0:CH=0:CD=0
  43. 44 GOTO 71
  44. 45 AA=C%(H):H=H+1:BB=AA:GOTO 4
  45. 46 AA=BB:J=4
  46. 47 A=O:GOSUB 101
  47. 48 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  48. 49 GOTO54
  49. 50 AA=C%(H):H=H+1:J=4
  50. 51 A=6:GOSUB 101
  51. 52 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  52. 53 GOTO 80
  53. 54 GOTO 191
  54. 55 AA=C%(H):H=H+1:J=4
  55. 56 A=12:GOSUB 101
  56. 57 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  57. 58 GOTO191
  58. 59 AA=C%(H):H=H+1:J=4
  59. 60 A=18:GOSUB 101
  60. 61 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  61. 62 GOTO191
  62. 63 AA=C%(H):H=H+1:J=4
  63. 64 A=24:GOSUB 101
  64. 65 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  65. 66 GOTO191
  66. 67 AA=C%(H):H=H+1:J=4
  67. 68 A=30:GOSUB 101
  68. 69 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  69. 70 GOTO 197
  70. 71 REM
  71. 72 AA=C%(H):H=H+1:J=1
  72. 73 A=400:GOSUB 101
  73. 74 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  74. 75 GOTO 45
  75. 76 AA=C%(H):H=H+1:J=1
  76. 77 A=406:GOSUB 101
  77. 78 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  78. 79 GOTO 50
  79. 80 GOTO166
  80. 81 AA=C%(H):H=H+1:J=1
  81. 82 A=412:GOSUB 101
  82. 83 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  83. 84 IF CS(2)>21THEN208
  84. 85 GOTO183
  85. 86 AA=C%(H):H=H+1:J=1
  86. 87 A=418:GOSUB 101
  87. 88 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  88. 89 IF CS(2)>21THEN208
  89. 90 GOTO183
  90. 91 AA=C%(H):H=H+1:J=1
  91. 92 A=424:GOSUB 101
  92. 93 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  93. 94 IF CS(2)>21THEN208
  94. 95 GOTO183
  95. 96 AA=C%(H):H=H+1:J=1
  96. 97 A=430:GOSUB 101
  97. 98 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  98. 99 IF CS(2)>21THEN208
  99. 100 GOTO 46
  100. 101 IF AA=1  THEN CC=1:E=1:EE=32:C=32:DD=83:FF=2:CT(J)=11:CT(J+1)=1
  101. 102 IF AA=2  THEN CC=50:E=50:EE=32:C=32:DD=83:FF=2:CT(J)=2:CT(J+1)=2
  102. 103 IF AA=3  THEN CC=51:E=51:EE=32:C=32:DD=83:FF=2:CT(J)=3:CT(J+1)=3
  103. 104 IF AA=4  THEN CC=52:E=52:EE=32:C=32:DD=83:FF=2:CT(J)=4:CT(J+1)=4
  104. 105 IF AA=5  THEN CC=53:E=53:EE=32:C=32:DD=83:FF=2:CT(J)=5:CT(J+1)=5
  105. 106 IF AA=6  THEN CC=54:E=54:EE=32:C=32:DD=83:FF=2:CT(J)=6:CT(J+1)=6
  106. 107 IF AA=7  THEN CC=55:E=55:EE=32:C=32:DD=83:FF=2:CT(J)=7:CT(J+1)=7
  107. 108 IF AA=8  THEN CC=56:E=56:EE=32:C=32:DD=83:FF=2:CT(J)=8:CT(J+1)=8
  108. 109 IF AA=9  THEN CC=57:E=57:EE=32:C=32:DD=83:FF=2:CT(J)=9:CT(J+1)=9
  109. 110 IF AA=10 THEN CC=49:E=48:EE=48:C=49:DD=83:FF=2:CT(J)=10:CT(J+1)=10
  110. 111 IF AA=11 THEN CC=10:E=10:EE=32:C=32:DD=83:FF=2:CT(J)=10:CT(J+1)=10
  111. 112 IF AA=12 THEN CC=17:E=17:EE=32:C=32:DD=83:FF=2:CT(J)=10:CT(J+1)=10
  112. 113 IF AA=13 THEN CC=11:E=11:EE=32:C=32:DD=83:FF=2:CT(J)=10:CT(J+1)=10
  113. 114 IF AA=14 THEN CC=1:E=1:EE=32:C=32:DD=90:FF=2:CT(J)=11:CT(J+1)=1
  114. 115 IF AA=15 THEN CC=50:E=50:EE=32:C=32:DD=90:FF=2:CT(J)=2:CT(J+1)=2
  115. 116 IF AA=16 THEN CC=51:E=51:EE=32:C=32:DD=90:FF=2:CT(J)=3:CT(J+1)=3
  116. 117 IF AA=17 THEN CC=52:E=52:EE=32:C=32:DD=90:FF=2:CT(J)=4:CT(J+1)=4
  117. 118 IF AA=18 THEN CC=53:E=53:EE=32:C=32:DD=90:FF=2:CT(J)=5:CT(J+1)=5
  118. 119 IF AA=19 THEN CC=54:E=54:EE=32:C=32:DD=90:FF=2:CT(J)=6:CT(J+1)=6
  119. 120 IF AA=20 THEN CC=55:E=55:EE=32:C=32:DD=90:FF=2:CT(J)=7:CT(J+1)=7
  120. 121 IF AA=21 THEN CC=56:E=56:EE=32:C=32:DD=90:FF=2:CT(J)=8:CT(J+1)=8
  121. 122 IF AA=22 THEN CC=57:E=57:EE=32:C=32:DD=90:FF=2:CT(J)=9:CT(J+1)=9
  122. 123 IF AA=23 THEN CC=49:E=48:EE=48:C=49:DD=90:FF=2:CT(J)=10:CT(J+1)=10
  123. 124 IF AA=24 THEN CC=10:E=10:EE=32:C=32:DD=90:FF=2:CT(J)=10:CT(J+1)=10
  124. 125 IF AA=25 THEN CC=17:E=17:EE=32:C=32:DD=90:FF=2:CT(J)=10:CT(J+1)=10
  125. 126 IF AA=26 THEN CC=11:E=11:EE=32:C=32:DD=90:FF=2:CT(J)=10:CT(J+1)=10
  126. 127 IF AA=27 THEN CC=1:E=1:EE=32:C=32:DD=65:FF=0:CT(J)=11:CT(J+1)=1
  127. 128 IF AA=28 THEN CC=50:E=50:EE=32:C=32:DD=65:FF=0:CT(J)=2:CT(J+1)=2
  128. 129 IF AA=29 THEN CC=51:E=51:EE=32:C=32:DD=65:FF=0:CT(J)=3:CT(J+1)=3
  129. 130 IF AA=30 THEN CC=52:E=52:EE=32:C=32:DD=65:FF=0:CT(J)=4:CT(J+1)=4
  130. 131 IF AA=31 THEN CC=53:E=53:EE=32:C=32:DD=65:FF=0:CT(J)=5:CT(J+1)=5
  131. 132 IF AA=32 THEN CC=54:E=54:EE=32:C=32:DD=65:FF=0:CT(J)=6:CT(J+1)=6
  132. 133 IF AA=33 THEN CC=55:E=55:EE=32:C=32:DD=65:FF=0:CT(J)=7:CT(J+1)=7
  133. 134 IF AA=34 THEN CC=56:E=56:EE=32:C=32:DD=65:FF=0:CT(J)=8:CT(J+1)=8
  134. 135 IF AA=35 THEN CC=57:E=57:EE=32:C=32:DD=65:FF=0:CT(J)=9:CT(J+1)=9
  135. 136 IF AA=36 THEN CC=49:E=48:EE=48:C=49:DD=65:FF=0:CT(J)=10:CT(J+1)=10
  136. 137 IF AA=37 THEN CC=10:E=10:EE=32:C=32:DD=65:FF=0:CT(J)=10:CT(J+1)=10
  137. 138 IF AA=38 THEN CC=17:E=17:EE=32:C=32:DD=65:FF=0:CT(J)=10:CT(J+1)=10
  138. 139 IF AA=39 THEN CC=11:E=11:EE=32:C=32:DD=65:FF=0:CT(J)=10:CT(J+1)=10
  139. 140 IF AA=40 THEN CC=1:E=1:EE=32:C=32:DD=88:FF=0:CT(J)=11:CT(J+1)=1
  140. 141 IF AA=41 THEN CC=50:E=50:EE=32:C=32:DD=88:FF=0:CT(J)=2:CT(J+1)=2
  141. 142 IF AA=42 THEN CC=51:E=51:EE=32:C=32:DD=88:FF=0:CT(J)=3:CT(J+1)=3
  142. 143 IF AA=43 THEN CC=52:E=52:EE=32:C=32:DD=88:FF=0:CT(J)=4:CT(J+1)=4
  143. 144 IF AA=44 THEN CC=53:E=53:EE=32:C=32:DD=88:FF=0:CT(J)=5:CT(J+1)=5
  144. 145 IF AA=45 THEN CC=54:E=54:EE=32:C=32:DD=88:FF=0:CT(J)=6:CT(J+1)=6
  145. 146 IF AA=46 THEN CC=55:E=55:EE=32:C=32:DD=88:FF=0:CT(J)=7:CT(J+1)=7
  146. 147 IF AA=47 THEN CC=56:E=56:EE=32:C=32:DD=88:FF=0:CT(J)=8:CT(J+1)=8
  147. 148 IF AA=48 THEN CC=57:E=57:EE=32:C=32:DD=88:FF=0:CT(J)=9:CT(J+1)=9
  148. 149 IF AA=49 THEN CC=49:E=48:EE=48:C=49:DD=88:FF=0:CT(J)=10:CT(J+1)=10
  149. 150 IF AA=50 THEN CC=10:E=10:EE=32:C=32:DD=88:FF=0:CT(J)=10:CT(J+1)=10
  150. 151 IF AA=51 THEN CC=17:E=17:EE=32:C=32:DD=88:FF=0:CT(J)=10:CT(J+1)=10
  151. 152 IF AA=52 THEN CC=11:E=11:EE=32:C=32:DD=88:FF=0:CT(J)=10:CT(J+1)=10
  152. 153 RESTORE
  153. 154 FOR V=1106TO1306STEP40
  154. 155 FOR N=0TO4
  155. 156 READ Q:POKE A+V+N,Q:POKE A+V+N+54272,FF:NEXT N
  156. 157 NEXT V
  157. 158 RESTORE
  158. 159 POKE A+1147,CC:POKE A+55419,FF:POKE A+1148,EE:POKE A+55420,FF
  159. 160 POKE A+1187,DD:POKE A+55459,FF:POKE A+1269,E:POKEA+55541,FF
  160. 161 POKE A+1268,C:POKE A+55540,FF:POKE A+1229,DD:POKE A+55501,FF
  161. 162 RETURN
  162. 163 DATA 85,67,67,67,73,66,32,32,32,66
  163. 164 DATA 66,32,32,32,66,66,32,32,32,66
  164. 165 DATA 66,32,32,32,66,74,67,67,67,75,10001
  165. 166 IFCT(4)=11ANDDO>=1.5*DBTHEN211
  166. 167 GOTO223
  167. 168 PRINT"   "
  168. 169 PRINT"   H[146]IT";:SAY"HIT?"
  169. 170 IFDO<2*DBTHEN172
  170. 171 IFCS(1)>8ANDCS(1)<12THENPRINT", S[146]TAND OR D[146]OUBLE ";:SAY"STAND OR DOUBLE?":GOTO173
  171. 172 PRINT" OR S[146]TAND ";:SAY"OR STAND?"
  172. 173 C$="":GETC$:IFC$=""THEN173
  173. 174 IF C$="S"THENPRINTC$:GOTO182
  174. 175 IF C$="H"THENPRINTC$:GOTO81
  175. 176 IF C$="D"THENPRINTC$:GOTO178
  176. 177 GOTO 173
  177. 178 DB=2*DB:PRINT"                                "
  178. 179 PRINT"[145]   BET NOW ";:SAY"BET NOW.":PRINTTAB(11);DB;
  179. 180 AA=C%(H):H=H+1:A=412:J=1:GOSUB101
  180. 181 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
  181. 182 GOTO46
  182. 183 PRINT"                                  "
  183. 184 PRINT"[145]   H[146]IT OR S[146]TAND ";:SAY"HIT.   OR STAND?"
  184. 185 C$="":GETC$:IFC$=""THEN185
  185. 186 IFC$="H"ORC$="S"THENPRINTC$
  186. 187 IF C$="H"THENCH=CH+1:ONCHGOTO86,91,96
  187. 188 IF C$="S"THEN 46
  188. 189 GOTO 183
  189. 190 CD=CD+1:ONCDGOTO55,59,63,67
  190. 191 PRINT"                                     "
  191. 192 IF CS(J)=17ANDCS(J+1)<17THENWW$="[145]   DEALER TAKES A HIT":PRINTWW$:SAYWW$:GOTO190
  192. 193 IF CS(J)<17THENWW$="[145]   DEALER TAKES A HIT":PRINTWW$:SAYWW$:GOTO190
  193. 194 IF CS(J)>21ANDCS(J+1)<17THENWW$="[145]   DEALER TAKES A HIT":PRINTWW$:SAYWW$:GOTO190
  194. 195 IFCS(J)>16ANDCS(J)<22THENWW$="[145]   DEALER STANDS":PRINTWW$:SAYWW$:GOTO197
  195. 196 IFCS(J+1)<22ANDCS(J+1)>16THENWW$="[145]   DEALER STANDS":PRINTWW$:SAYWW$:GOTO197
  196. 197 GOSUB300:IF CS(1)<22THENCS(3)=CS(1):GOTO199
  197. 198 CS(3)=CS(2)
  198. 199 IFCS(5)>21THENPRINT"   DEALER BUSTED! YOU WIN":DO=DO+DB:DB=0:SAY"OWEL."
  199. 200 IFCS(5)>21THEN210
  200. 201 IF CS(4)<22THENCS(6)=CS(4):GOTO203
  201. 202 CS(6)=CS(5)
  202. 203 SAY"TOTALS.ME.":PRINT"   DEALER";CS(6);:GOSUB300:PRINTTAB(13);" YOU";CS(3);
  203. 204 SAY"YOU.":IF CS(3)=CS(6)THENPRINT" WE PUSH":SAY"WE PUSH.":DB=0:GOTO210
  204. 205 IFCS(6)>CS(3)ANDCS(6)<22THENPRINT" YOU LOSE":SAY"YOU LOOSE.":DO=DO-DB:DB=0:GOTO210
  205. 206 PRINT" YOU WIN":SAY"YOU WIN.":DO=DO+DB:DB=0
  206. 207 GOTO 210
  207. 208 PRINT"   YOU BUSTED!!":SAY"YOU BUSTED.":DO=DO-DB:DB=0:GOTO210
  208. 209 AA=BB:A=0:GOSUB101
  209. 210 GOTO17
  210. 211 PRINT"   INSURANCE Y[146] OR N[146] ";:SAY"INSURENCE  YES OR NO."
  211. 212 IN$="":GETIN$:IFIN$=""THEN212
  212. 213 IFIN$="Y"THENPRINTIN$:GOTO216
  213. 214 IFIN$="N"THENPRINTIN$:GOTO223
  214. 215 GOTO212
  215. 216 IFBB=10ORBB=11ORBB=12ORBB=13ORBB=23ORBB=24ORBB=25ORBB=26THEN220
  216. 217 IFBB=36ORBB=37ORBB=38ORBB=39ORBB=49ORBB=50ORBB=51ORBB=52THEN220
  217. 218 PRINT"                         ":DO=DO-DB/2
  218. 219 PRINT"   NO BLACKJACK!":SAY"NO BLACKJACK.":GOTO223
  219. 220 IFCT(1)=21THENPRINT"                               ":DO=DO+DB/2
  220. 221 IFCT(1)=21THENPRINT"   WE PUSH!!":SAY"WE PUSH.":GOTO209
  221. 222 PRINT"   BLACKJACK!!":SAY"BLACKJACK!":GOTO209
  222. 223 IFCS(1)=21THENCS(3)=21
  223. 224 IFCS(4)=10ORCS(4)=11THEN228
  224. 225 IFCS(3)=21THENPRINT"   YOUR BLACKJACK!":DO=DO+DB*1.5:SAY"YOURBLACKJACK"
  225. 226 IFCS(3)=21THEN210
  226. 227 GOTO168
  227. 228 IFCS(4)=10THEN232
  228. 229 IFBB=10ORBB=11ORBB=12ORBB=13ORBB=23ORBB=24ORBB=25ORBB=26THEN234
  229. 230 IFBB=36ORBB=37ORBB=38ORBB=39ORBB=49ORBB=50ORBB=51ORBB=52THEN234
  230. 231 GOTO225
  231. 232 IFBB=1ORBB=14ORBB=27ORBB=40THEN234
  232. 233 GOTO225
  233. 234 IFCS(3)=21THENPRINT"   WE PUSH!!":SAY"WE PUSH.":GOTO209
  234. 235 PRINT"   DEALER BLACKJACK!!":SAY"DEALER BLACKJACK.":DO=DO-DB:GOTO209
  235. 300 FORWW=1TO1000:NEXT:RETURN
  236. 500 IFPEEK(49153)=187THEN550
  237. 510 POKE53280,6:POKE53281,6:PRINT"[147]";TAB(8);"  LOADING SUB PROGRAMS  [146]"
  238. 520 LOAD"SAM",8,1
  239. 550 POKE52,125:POKE54,125:POKE56,125:SYS38144:]RE:]SP 68:]PI 68:]LI 1
  240. 555 POKE720,8:POKE739,49:POKE744,48:POKE749,48:POKE754,48:POKE758,169
  241. 560 POKE743,169:]KN 150,150:PRINT"[147]":GOTO1
  242. 1000 POKE53280,6:POKE53281,6
  243. 1001 POKE792,207:POKE793,2:PRINT"[147]  DO YOU WANT TO RETURN TO WAR GAMES":X$=""
  244. 1002 PRINT"  OR PLAY MORE POKER OR QUIT ? (W/P/Q)"
  245. 1003 SAY"DO YOU WANT TO RETURN TO WAR GAMES OR PLAY MORE POKER       ..SUCKER."
  246. 1005 GETX$:IFX$=""THEN1005
  247. 1010 IFX$="Q"THENPRINT"[147]  BYE BYE":SAY"BYE BYE.":END
  248. 1015 IFX$="W"THEN1020
  249. 1017 GOTO1
  250. 1020 PRINT"[147]LOAD";CHR$(34);"WAR MENU";CHR$(34);",8,1"
  251. 1030 POKE631,19:POKE632,13:POKE633,82:POKE634,117:POKE635,13:POKE198,5:END
  252.