home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / CASINO-CRAPS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  17.3 KB  |  730 lines
  1. 0 REM WRITTEN BY GREG W. DAVIS
  2. 1 REM SPRITE DICE ROLL ROUTINE
  3. 2 REM WRITTEN BY RICHARD DAVIS
  4. 3 REM OK TO COPY BUT NOT TO BE SOLD
  5. 4 REM ALL RIGHTS RESERVED 1984
  6. 10 REM READ IN SPRITE DATA
  7. 20 DIMH(12),Q(378):H4$="4":H6$="6":H8$="8":H1$="10"
  8. 30 POKE53280,0
  9. 40 POKE646,1
  10. 50 PRINT"[147]PLEASE WAIT READING SPRITE DATA"
  11. 60 FORS=0TO377
  12. 70 READQ(S):NEXTS
  13. 80 GOSUB200:GOTO1470
  14. 90 REM TIME DELAY
  15. 100 FORT1=1TO500:NEXTT1:RETURN
  16. 110 REM REMOVE LINE BETS
  17. 120 FORI=4TO10:L(I)=0:NEXTI:RETURN
  18. 130 REM REMOVE PLACE BETS
  19. 140 FORI=4TO10:P(I)=0:NEXTI:RETURN
  20. 150 REM CHECK BET FOR LIMITS
  21. 160 PRINT"[205]INIMUM BET IS $"U", AGAIN---":RETURN
  22. 170 PRINT"[212]ABLE LIMIT IS $"T". [193]GAIN, PLEASE!":RETURN
  23. 180 PRINT"[212]OO MUCH. [193]VAILABLE NOW: $"N-BET:RETURN
  24. 190 REM DICE ROLL
  25. 200 FORNM=1TO2
  26. 210 N(NM)=INT(RND(1)*6)+1:NEXTNM
  27. 220 REM SPRITE DICE ROLL
  28. 230 PRINTCHR$(147)
  29. 240 IFN(1)=1THENFORS=0TO62:POKE832+S,Q(S):NEXTS:GOTO300
  30. 250 S1=(N(1)-1)*63-1
  31. 260 FORS=0TO62
  32. 270 S1=S1+1
  33. 280 POKE832+S,Q(S1)
  34. 290 NEXTS
  35. 300 IFN(2)=1THENFORS=0TO62:POKE896+S,Q(S):NEXTS:GOTO360
  36. 310 S1=(N(2)-1)*63-1
  37. 320 FORS=0TO62
  38. 330 S1=S1+1
  39. 340 POKE896+S,Q(S1)
  40. 350 NEXTS
  41. 360 PRINT"[147]";
  42. 370 PRINTCHR$(142)
  43. 380 V=53248
  44. 390 POKE2040,13
  45. 400 POKE2041,14
  46. 410 POKEV+40,1
  47. 420 POKEV+39,1
  48. 430 GOTO530
  49. 440 FORT1=1TO20
  50. 450 NEXT
  51. 460 RETURN
  52. 470 FORT1=1TO5
  53. 480 NEXT
  54. 490 RETURN
  55. 500 FORT1=1TO40
  56. 510 NEXT
  57. 520 RETURN
  58. 530 POKE1154,127
  59. 540 GOSUB500
  60. 550 POKE1154,32
  61. 560 POKE1194,255
  62. 570 GOSUB500
  63. 580 POKE1194,32
  64. 590 POKE1234,127
  65. 600 GOSUB500
  66. 610 POKE1234,32
  67. 620 POKE1274,255
  68. 630 GOSUB500
  69. 640 POKE1274,32
  70. 650 POKE1313,208
  71. 660 GOSUB500
  72. 670 POKE1313,32
  73. 680 POKE1314,32
  74. 690 POKE1353,208
  75. 700 POKE1354,208
  76. 710 GOSUB500
  77. 720 POKE1353,32
  78. 730 POKE1354,32
  79. 740 POKE1392,208
  80. 750 POKE1395,208
  81. 760 GOSUB500
  82. 770 POKE1392,32
  83. 780 POKE1395,32
  84. 790 POKE1432,160
  85. 800 POKE1435,160
  86. 810 GOSUB500
  87. 820 POKE1432,32
  88. 830 POKE1435,32
  89. 840 POKE1471,160
  90. 850 POKE1476,160
  91. 860 GOSUB500
  92. 870 POKE1471,32
  93. 880 POKE1476,32
  94. 890 POKE1511,160
  95. 900 POKE1516,160
  96. 910 GOSUB500
  97. 920 POKE1511,32
  98. 930 POKE1516,32
  99. 940 POKE1550,160
  100. 950 POKE1557,160
  101. 960 GOSUB500
  102. 970 POKE1550,32
  103. 980 POKE1557,32
  104. 990 POKE1590,227
  105. 1000 POKE1597,227
  106. 1010 GOSUB470
  107. 1020 POKE1590,197
  108. 1030 POKE1597,197
  109. 1040 GOSUB470
  110. 1050 POKE1590,196
  111. 1060 POKE1597,196
  112. 1070 GOSUB470
  113. 1080 POKE1590,192
  114. 1090 POKE1597,192
  115. 1100 GOSUB470
  116. 1110 POKE1590,195
  117. 1120 POKE1597,195
  118. 1130 GOSUB470
  119. 1140 POKE1590,198
  120. 1150 POKE1597,198
  121. 1160 GOSUB470
  122. 1170 POKE1590,210
  123. 1180 POKE1597,210
  124. 1190 GOSUB470
  125. 1200 POKE1590,98
  126. 1210 POKE1597,98
  127. 1220 GOSUB440
  128. 1230 POKE1590,32
  129. 1240 POKE1597,32
  130. 1250 POKEV+21,3
  131. 1260 POKEV,62
  132. 1270 POKEV+1,170
  133. 1280 POKEV+2,127
  134. 1290 POKEV+3,170
  135. 1300 FORT1=1TO100
  136. 1310 NEXT
  137. 1320 POKEV,70
  138. 1330 POKEV+1,185
  139. 1340 POKEV+2,127
  140. 1350 POKEV+3,175
  141. 1360 POKEV+23,3
  142. 1370 POKEV+29,3
  143. 1380 FORT1=1TO2000:NEXTT1
  144. 1390 POKEV+21,0
  145. 1400 REM KEEP TRACK OF HITS
  146. 1410 D=N(1)+N(2)
  147. 1420 H(D)=H(D)+1
  148. 1430 PRINTCHR$(14);
  149. 1440 PRINT"[147]"
  150. 1450 RETURN
  151. 1460 REM BEGIN GAME
  152. 1470 PRINTCHR$(14)""TAB(13)"[195][207][205][208][213][212][197][210][160][195][210][193][208][211]"
  153. 1480 PRINTTAB(10)"[201]T'S GAMBLING TIME!!"
  154. 1490 PRINTTAB(7)"[207][203],LOSER,LET'S PLAY [195][210][193][208][211]!"
  155. 1500 REM SET ALL BETS TO 0
  156. 1510 A%=0:B%=0:C%=0:F%=0:H%=0:L%=0:S%=0
  157. 1520 BET=0:H=0:L=0:W=0:N=0
  158. 1530 FORI=4TO10:P(I)=0:L(I)=0:NEXTI
  159. 1540 REM DEFAULT VALUES FOR TABLE LIMITS
  160. 1550 T=500
  161. 1560 B1=1000:N=B1
  162. 1570 U=5
  163. 1580 O=500
  164. 1590 D$="SINGLE"
  165. 1600 REM SET YOUR OWN TABLE LIMITS
  166. 1610 PRINT"[196]O YOU WISH TO SET YOUR OWN LIMITS (Y/N)"
  167. 1620 GETA$
  168. 1630 IFA$=""GOTO1620
  169. 1640 IFA$="N"GOTO1720
  170. 1650 IFA$<>"Y"GOTO1620
  171. 1655 PRINT"[147]"TAB(11)" [211][197][212][160][212][193][194][204][197][160][204][201][205][201][212][211][160][146]"
  172. 1660 INPUT"[215]HAT TABLE LIMIT";T
  173. 1665 IFT>2000THENPRINT" [199]ET SERIOUS [196]ADDY [215]ARBUCKS!!":GOTO1660
  174. 1670 INPUT"[215]HAT'S YOUR BANKROLL";B1:N=B1
  175. 1675 IFB1>100000THENPRINT" [201]F YOU HAD THAT MUCH MONEY YOU WOULDN'T BE HERE!":GOTO1670
  176. 1680 INPUT"[212]ABLE MINIMUM";U
  177. 1690 INPUT"[215]HAT IS YOUR WIN OBJECTIVE";O
  178. 1695 IFU>2000THENPRINT" [217]EAH, SURE, AHUH!! [193]GAIN PLEASE!!":GOTO1690
  179. 1700 INPUT"[211]INGLE OR [196]OUBLE ODDS (S/D)";O$
  180. 1710 IFO$="D"THEND$="DOUBLE"
  181. 1720 REM RECAP TABLE LIMITS
  182. 1730 PRINT"[147]     [201]NSTRUCTIONS AND [212]ABLE LIMITS [146]"
  183. 1740 PRINT"[212]ABLE LIMIT IS $";
  184. 1750 PRINTT
  185. 1760 PRINT"[217]OUR BANKROLL IS $";
  186. 1770 PRINTB1
  187. 1780 PRINT"[217]OUR MINIMUM BET IS $";
  188. 1790 PRINTU
  189. 1800 PRINT"[217]OUR WIN OBJECTIVE IS $";
  190. 1810 PRINTO
  191. 1820 PRINT"[217]OU MAY TAKE OR LAY ";
  192. 1830 PRINTD$;
  193. 1840 PRINT" FREE ODDS."
  194. 1850 PRINT"[198]REE ODDS MAY BE ROUNDED-UP"
  195. 1860 PRINT"TO A CORRECT RATIO."
  196. 1870 PRINT"[217]OU MAY BET BEFORE THE COMEOUT"
  197. 1880 PRINT"ON 'PASS' OR 'DON'T PASS.'"
  198. 1890 PRINT"[193]FTER THE COMEOUT,"
  199. 1900 PRINT"YOU MAY TAKE OR LAY THE ODDS"
  200. 1910 PRINT"PLACE INDIVIDUAL BETS ON THE"
  201. 1920 PRINT"LINE, BET ACROSS-THE-LINE,"
  202. 1930 PRINT"PLACE ONE-TIME BETS, HARD"
  203. 1940 PRINT"BETS THAT RIDE TO DECISION"
  204. 1950 PRINT"AND FIELD BETS."
  205. 1960 PRINTTAB(6);
  206. 1970 PRINT"[208]RESS ANY KEY TO CONTINUE"
  207. 1980 GETA$:IFA$=""THEN1980
  208. 1990 GOSUB2010:GOTO2210
  209. 2000 REM LIST PAYOFFS AND ODDS
  210. 2010 PRINT"[147]"TAB(11)" [208]AYOFFS AND [207]DDS [146]"
  211. 2020 PRINT"[208][204][193][195][197][160][194][197][212][211]:"
  212. 2030 PRINT"6 AND 8 PAY 7:6"
  213. 2040 PRINT"5 AND 9 PAY 7:5"
  214. 2050 PRINT"4 AND 10 PAY 9:5"
  215. 2060 PRINT"[207][206][197]-[212][201][205][197][160][194][197][212][211]:"
  216. 2070 PRINT"[211]NAKE-EYES PAY 30:1"
  217. 2080 PRINT"[194]OXCARS PAY 30:1"
  218. 2090 PRINT"[195]RAPS (3 & 11) PAY 15:1"
  219. 2100 PRINT"[194]IG [210]ED (ANY SEVEN) PAYS 4:1"
  220. 2110 PRINT"[200][193][210][196][160][194][197][212][211]:"
  221. 2120 PRINT"[193] HARD 4 OR 10 PAY 10:1"
  222. 2130 PRINT"[193] HARD 6 OR 8 PAY 8:1"
  223. 2140 PRINT"[198][201][197][204][196][160][194][197][212][211]:"
  224. 2150 PRINT"3,4,9,10 & 11 PAY EVEN MONEY"
  225. 2160 PRINT"2 PAYS 2:1"
  226. 2170 PRINT"12 PAYS 3:1"
  227. 2180 PRINT"     [208]RESS ANY KEY TO CONTINUE"
  228. 2190 GETA$:IFA$=""THEN2190
  229. 2200 RETURN
  230. 2210 REM SET VALUES TO 0 FOR COMEOUT
  231. 2220 F=0:F1=0
  232. 2230 D2=0
  233. 2240 BET=BET-(U%+O%)
  234. 2250 U%=0:U1=0
  235. 2260 O%=0
  236. 2270 IFN=>O+B1THEN6770
  237. 2280 IFN<=0THEN6840
  238. 2290 REM BET ON PASS/DON'T PASS
  239. 2300 PRINT"[147][212]HEY'RE COMING OUT.[211]ET YOUR BET, PLEASE-"
  240. 2310 PRINT"[206]O PLACE BETS ON THE COMEOUT."
  241. 2320 PRINT"[215]HICH,PLEASE-- PASS OR DON'T PASS (P/D)?"
  242. 2330 GETC$
  243. 2340 IFC$=""GOTO2330
  244. 2350 IFC$="P"THENP$="PASS":GOTO2380
  245. 2360 IFC$<>"D"GOTO2330
  246. 2370 P$="DON'T PASS"
  247. 2380 INPUT"[200]OW MUCH MONEY ON THAT LINE";U1
  248. 2390 U%=U1
  249. 2400 IFU1>INT(U1)THENPRINT"[212]HAT'LL BE";U%;"--WHOLE UNITS, PLEASE."
  250. 2410 IFU%<UTHENGOSUB160:GOTO2380
  251. 2420 IFU%>TTHENGOSUB170:GOTO2380
  252. 2430 IFU%>N-BETTHENGOSUB180:GOTO2380
  253. 2440 BET=BET+U%
  254. 2450 PRINT"[217]OU'RE ON! [212]HEY'RE ROLLING..."
  255. 2460 GOSUB100
  256. 2470 GOSUB200
  257. 2480 D1=D
  258. 2490 REM CHECK COMEOUT FOR WIN/LOSE/ODDS
  259. 2500 IFC$="D"GOTO2680
  260. 2510 REM GET ODDS ON PASS
  261. 2520 IFD1=7ORD1=11GOTO3920
  262. 2530 IFD1=2ORD1=3ORD1=12GOTO4090
  263. 2540 PRINT"[217]OUR POINT IS";
  264. 2550 PRINTD1
  265. 2560 PRINT"[217]OU HAVE $";
  266. 2570 PRINTU%;
  267. 2580 PRINT"BACKING IT."
  268. 2590 PRINT"[201]F YOU WISH TO TAKE THE ODDS,"
  269. 2600 INPUT"HOW MUCH";O%
  270. 2610 IFO%=0THEN3440
  271. 2620 IFO%>N-BETTHENGOSUB180:O%=0:GOTO2590
  272. 2630 IFD1=6ORD1=8GOTO2860
  273. 2640 IFD1=5ORD1=9GOTO2960
  274. 2650 IFD1=4ORD1=10GOTO3060
  275. 2660 GOTO3420
  276. 2670 REM GET ODDS ON DON'T PASS
  277. 2680 IFD1=12THENPRINT"[212]HEY SAY 12. [201]T'S A WASH ON THE LINE.":GOSUB100:GOTO2210
  278. 2690 IFD1=2ORD1=3GOTO3920
  279. 2700 IFD1=7ORD1=11GOTO4090
  280. 2710 PRINT"[217]OUR POINT IS ";
  281. 2720 PRINTD1
  282. 2730 PRINT"[217]OU HAVE $";
  283. 2740 PRINTU%;
  284. 2750 PRINT"AGAINST IT."
  285. 2760 PRINT"[201]F YOU WISH TO LAY THE ODDS"
  286. 2770 INPUT"HOW MUCH";O%
  287. 2780 IFO%=0THEN3440
  288. 2790 IFO%>N-BETTHENGOSUB180:O%=0:GOTO2760
  289. 2800 IFD1=4ORD1=10GOTO3140
  290. 2810 IFD1=5ORD1=9GOTO3220
  291. 2820 IFD1=6ORD1=8GOTO3330
  292. 2830 GOTO3420
  293. 2840 REM CHECK ODDS FOR CORRECT MULTIPLES
  294. 2850 REM TAKE PASS ODDS
  295. 2860 IFU%<3THENPRINT"[204]INE BET TOO SMALL FOR ODDS ON 6 OR 8.":O%=0:GOTO2640
  296. 2870 IFD$="SINGLE"THENF1=INT(U%/3)*5
  297. 2880 IFD$="DOUBLE"THENF1=INT(U%/3)*10
  298. 2890 IFO%>F1THENPRINT"[212]OO MUCH.":GOTO2590
  299. 2900 F=O%/5
  300. 2910 F=F*6
  301. 2920 IFF<>INT(F)THENPRINT"[208]LEASE CHOOSE GOOD ODDS--MULTIPLES OF 5":GOTO2590
  302. 2930 PRINT"[207]DDS MAY BE AS MUCH AS $";
  303. 2940 PRINTF1
  304. 2950 GOTO2640
  305. 2960 IFU%/2<>INT(U%/2)ANDD$="SINGLE"THENF1=U%+1:GOTO2990
  306. 2970 IFD$="DOUBLE"THENF1=U%*2:GOTO2990
  307. 2980 F1=U%
  308. 2990 IFO%>F1THENPRINT"[212]OO MUCH.":GOTO2590
  309. 3000 IFO%/2<>INT(O%/2)THENPRINT"[212]OO LITTLE FOR A GOOD PAYOFF.":GOTO2590
  310. 3010 F=3*O%
  311. 3020 F=F/2
  312. 3030 PRINT"[212]HESE ODDS MAY BE AS MUCH AS $";
  313. 3040 PRINTF1
  314. 3050 GOTO2650
  315. 3060 F1=U%
  316. 3070 IFD$="DOUBLE"THENF1=U%*2
  317. 3080 F=2*O%
  318. 3090 IFO%>F1THENPRINT"[212]OO MUCH. AGAIN--":GOTO2590
  319. 3100 IFD$="SINGLE"THENPRINT"[207]DDS HERE MAY BE THE LINE BET:$"F1
  320. 3110 IFD$="DOUBLE"THENPRINT"[196]OUBLE ODDS,UP TO DOUBLE THE LINE BET,OR$"F1
  321. 3120 GOTO3420
  322. 3130 REM LAY DON'T PASS ODDS
  323. 3140 F1=2*U%
  324. 3150 IFD$="DOUBLE"THENF1=4*U%
  325. 3160 IFO%>F1THENPRINT"[212]OO MUCH! [212]HINK ABOUT IT!":GOTO2760
  326. 3170 F=O%/2
  327. 3180 IFF<>INT(F)THENPRINT"[212]HESE ODDS MUST BE EVEN,PLEASE":GOTO2760
  328. 3190 PRINT"[207]DDS MAY BE AS MUCH AS $";
  329. 3200 PRINTF1
  330. 3210 GOTO2810
  331. 3220 T7=U%
  332. 3230 F1=3*T7/2
  333. 3240 IFF1<>INT(F1)THENT7=T7+1:GOTO3230
  334. 3250 IFD$="DOUBLE"THENF1=3*U%
  335. 3260 F=2*O%
  336. 3270 F=F/3
  337. 3280 IFO%>F1THENPRINT"[212]OO MUCH.[210]EMEMBER, 3 TO 2.":GOTO2760
  338. 3290 IFF<>INT(F)THENPRINT"[195]ORRECT ODDS ARE MULTIPLES OF 3":GOTO2760
  339. 3300 PRINT"[207]DDS MAY BE UP TO $";
  340. 3310 PRINTF1
  341. 3320 GOTO2820
  342. 3330 IFU%<3THENPRINT"[212]HERE'S NO WAY TO GET GOOD ODDS HERE!":O%=0:GOTO3420
  343. 3340 F1=INT(U%/3)*6
  344. 3350 IFD$="DOUBLE"THENF1=F1*2
  345. 3360 IFO%>F1THENPRINT"[212]OO MUCH.":GOTO2760
  346. 3370 IFO%/6<>INT(O%/6)THENPRINT"[212]HESE LAY ODDS NEED MULTIPLES OF 6.":GOTO2760
  347. 3380 PRINT"[217]OU MAY LAY UP TO $";
  348. 3390 PRINTF1
  349. 3400 F=5*O%
  350. 3410 F=F/6:GOTO3420
  351. 3420 BET=BET+O%
  352. 3430 REM PLACE/CHANGE/REMOVE BETS
  353. 3440 PRINT"[217]OU HAVE $";
  354. 3450 PRINTU%;
  355. 3460 PRINT"ON THE LINE"
  356. 3470 IFO%>0THENPRINT"AND $"O%" ODDS."
  357. 3480 PRINT"[196]O YOU WANT TO PLACE OR CHANGE          BETS (Y/N)?"
  358. 3490 GETA$
  359. 3500 IFA$=""GOTO3490
  360. 3510 IFA$="N"GOTO3730
  361. 3520 IFA$<>"Y"GOTO3490
  362. 3530 GOTO3550
  363. 3540 GOSUB100
  364. 3550 PRINT"[147][195]HOOSE ONE OF THE FOLLOWING:"
  365. 3560 PRINT"1) [201]NDIVIDUAL PLACE-BETS"
  366. 3570 PRINT" 2) [208]LACE-BET ACCROSS THE LINE"
  367. 3580 PRINT" 3) [207]NE-TIME BETS"
  368. 3590 PRINT" 4) [200]ARD BETS"
  369. 3600 PRINT" 5) [198]IELD BET"
  370. 3610 PRINT" 6) [210]EVIEW BETS"
  371. 3620 PRINT" 7) [210]EVIEW PAYOFFS"
  372. 3630 PRINT" 8) [210]OLL DICE"
  373. 3640 GETA$:IFA$=""GOTO3640
  374. 3650 IFA$="1"GOTO4700
  375. 3660 IFA$="2"GOTO5120
  376. 3670 IFA$="3"GOTO5350
  377. 3680 IFA$="4"GOTO5600
  378. 3690 IFA$="5"GOTO5760
  379. 3700 IFA$="6"GOTO4250
  380. 3710 IFA$="7"THENGOSUB2010:GOTO3550
  381. 3720 IFA$<>"8"GOTO3640
  382. 3730 REM ROLL DICE AFTER COMEOUT
  383. 3740 PRINT"[210]OLLING...LOOKING FOR";D1
  384. 3750 GOSUB100
  385. 3760 GOSUB200
  386. 3770 D2=D
  387. 3780 REM CHECK ROLLS AFTER COMEOUT
  388. 3790 IFD2=7ANDC$="P"ORD2=D1ANDC$="D"GOTO4090
  389. 3800 IFD2=7ANDC$="D"ORD2=D1ANDC$="P"GOTO3920
  390. 3890 PRINT"[212]HEY SAY"D2
  391. 3900 GOSUB5890
  392. 3910 GOTO3480
  393. 3920 REM PASS/DON'T PASS WINNER
  394. 3930 M=U%+F:N=N+M
  395. 3940 W=W+1
  396. 3950 PRINT"[212]HEY SAY ";
  397. 3960 PRINTD
  398. 3970 PRINT"[217]OU HAVE A ";
  399. 3980 PRINTP$;
  400. 3990 PRINT" LINE WINNER."
  401. 4000 PRINT"[217]OUR GAIN IS $";
  402. 4010 PRINTM
  403. 4020 PRINT"[195]URRENT [194]ANKROLL $";
  404. 4030 PRINTN
  405. 4040 GOSUB5890
  406. 4060 PRINT"   [208]RESS ANY KEY TO CONTINUE[146]"
  407. 4070 GETA$:IFA$=""THEN4070
  408. 4080 GOTO2220
  409. 4090 REM PASS/DON'T PASS LOSER
  410. 4100 M=U%+O%:N=N-M
  411. 4110 L=L+1
  412. 4120 PRINT"[212]HEY ROLLED ";
  413. 4130 PRINTD
  414. 4140 PRINT"[217]OU HAVE A ";
  415. 4150 PRINTP$;
  416. 4160 PRINT" LINE LOSER."
  417. 4170 PRINT"[217]OUR LOSS IS $";
  418. 4180 PRINTM
  419. 4190 PRINT"[195]URRENT [194]ANKROLL $"N
  420. 4200 GOSUB5890
  421. 4220 PRINT"   [208]RESS ANY KEY TO CONTINUE[146]"
  422. 4230 GETA$:IFA$=""THEN4230
  423. 4240 GOTO2220
  424. 4250 REM REVIEW CURRENT BETS
  425. 4260 PRINT"[147]"TAB(12)" [194][197][212][212][201][206][199][160][210][197][214][201][197][215] [146]"
  426. 4270 PRINT"[195]URRENT BETS ARE AS FOLLOWS:"
  427. 4280 IFC$="P"GOTO4340
  428. 4290 PRINT"[217]OU HAVE $";
  429. 4300 PRINTU%;
  430. 4310 PRINT"AGAINST POINT";
  431. 4320 PRINTD1
  432. 4330 GOTO4380
  433. 4340 PRINT"[217]OU HAVE $";
  434. 4350 PRINTU%;
  435. 4360 PRINT"BACKING POINT";
  436. 4370 PRINTD1
  437. 4380 IFO%>0THENPRINT"AND $";:PRINTO%;:PRINT"ODDS"
  438. 4400 IFP(4)=0ANDP(5)=0ANDP(6)=0ANDP(8)=0ANDP(9)=0ANDP(10)=0GOTO4480
  439. 4410 PRINT"[208]LACE BETS ARE:"
  440. 4420 FORI=4TO10
  441. 4430 IFI=7THENNEXTI
  442. 4440 IFP(I)>0THENPRINT"$"P(I)"ON"I
  443. 4450 NEXTI
  444. 4480 IFL%=0THEN4520
  445. 4490 PRINT"[217]OU HAVE $";
  446. 4500 PRINTL%;
  447. 4510 PRINT"ACCROSS-THE-LINE"
  448. 4520 IFC%=0ANDS%=0ANDB%=0ANDA%=0GOTO4580
  449. 4530 PRINT"[207]NE TIME BETS ARE:"
  450. 4540 IFC%>0THENPRINT"$"C%"ON CRAPS"
  451. 4550 IFS%>0THENPRINT"$"S%"ON SNAKE-EYES"
  452. 4560 IFB%>0THENPRINT"$"B%"ON BOXCARS"
  453. 4570 IFA%>0THENPRINT"$"A%"ON [194]IG [210]ED (ANY SEVEN)"
  454. 4580 IFH4>0THENPRINT"[217]OU HAVE $"H4"ON A HARD "H4$
  455. 4590 IFH6>0THENPRINT"[217]OU HAVE $"H6"ON A HARD "H6$
  456. 4600 IFH8>0THENPRINT"[217]OU HAVE $"H8"ON A HARD "H8$
  457. 4610 IFH1>0THENPRINT"[217]OU HAVE $"H1"ON A HARD "H1$
  458. 4630 IFF%=0GOTO4670
  459. 4640 PRINT"[217]OU HAVE $";
  460. 4650 PRINTF%;
  461. 4660 PRINT"ON THE FIELD"
  462. 4670 PRINT"[217]OU HAVE $";N-BET;
  463. 4680 PRINT"LEFT TO BET.":GOTO3480
  464. 4690 REM INDIVIDUAL PLACE BETS
  465. 4700 PRINT"<[208]>LACE OR <[210]>EMOVE PLACE BETS ?"
  466. 4710 GETA$:IFA$=""THEN4710
  467. 4720 IFA$="P"THEN4830
  468. 4730 IFA$<>"R"THEN4710
  469. 4740 FORI=4TO10:IFP(I)>0THENP=1:NEXTI
  470. 4750 IFP=1THENP=0:GOTO4770
  471. 4760 PRINT" [217]OU HAVE NO [208]LACE-BETS !":GOSUB100:GOTO3550
  472. 4770 PRINT"[210]EMOVE [208]LACE-BETS (Y/N)?"
  473. 4780 GETA$:IFA$=""THEN4780
  474. 4790 IFA$="N"THEN3550
  475. 4800 IFA$<>"Y"THEN4780
  476. 4810 PRINT"[208]LACE-BETS REMOVED"
  477. 4820 BET=BET-(P(4)+P(5)+P(6)+P(8)+P(9)+P(10)):GOSUB140:GOSUB100:GOTO3550
  478. 4830 GOSUB140
  479. 4840 FORI=4TO10
  480. 4850 IFI=7THENNEXTI
  481. 4860 IFP(I)=0THEN4920
  482. 4870 PRINT" [217]OU HAVE"P(I)"ON"I". [195]HANGE BET (Y/N)?"
  483. 4880 GETA$:IFA$=""THEN4880
  484. 4890 IFA$="Y"THEN4920
  485. 4900 IFA$<>"N"THEN4880
  486. 4910 GOTO5030
  487. 4920 PRINT"[200]OW MUCH PLACE-BET ON"I;:INPUTPB
  488. 4930 IFPB=0THEN5030
  489. 4940 IFPB>N-BETTHENGOSUB180:GOTO4920
  490. 4950 IFPB<UANDPB<>0THENGOSUB160:GOTO4920
  491. 4960 IFPB>TTHENGOSUB170:GOTO4920
  492. 4970 IFI=6 OR I=8THEN5000
  493. 4980 IFPB/5<>INT(PB/5)THENGOSUB5090:GOTO4920
  494. 4990 GOTO5010
  495. 5000 IFPB/6<>INT(PB/6)THENGOSUB5060:GOTO4920
  496. 5010 PRINT"[217]OU HAVE $";PB;"PLACED ON"I
  497. 5020 BET=BET+PB:P(I)=PB:PB=0
  498. 5030 NEXTI
  499. 5040 PRINT"[208]LACE-BETS ACCEPTED":GOTO3540
  500. 5050 REM CHECK PLACE BET MULTIPLES
  501. 5060 PRINT"[208]LEASE USE CORRECT RATIO--"
  502. 5070 PRINT"A MULTIPLE OF SIX UNITS"
  503. 5080 RETURN
  504. 5090 PRINT"[208]LEASE USE CORRECT RATIO--"
  505. 5100 PRINT"A MULTIPLE OF FIVE UNITS":RETURN
  506. 5110 REM PLACE/REMOVE BET ACCROSS THE            LINE
  507. 5120 PRINT"[147]<[208]>LACE OR <[210]>EMOVE BETS                [193]CCROSS-THE-[204]INE"
  508. 5130 GETA$
  509. 5140 IFA$=""GOTO5130
  510. 5150 IFA$="P"THEN5190
  511. 5160 IFA$<>"R"THEN5130
  512. 5170 IFL%=0THENPRINT"[217]OU HAVE NO MONEY ON THE LINE":GOTO3540
  513. 5180 GOSUB120:PRINT"[204]INE BET REMOVED":BET=BET-L%:L%=0:GOTO3540
  514. 5190 INPUT"[200]OW MUCH BET ON THE LINE";L%
  515. 5200 IFL%<UANDL%<>0THENGOSUB160:GOTO5190
  516. 5210 IFL%>TTHENGOSUB170:GOTO5190
  517. 5220 IFL%>N-BETTHENGOSUB180:GOTO5190
  518. 5230 IFD1=4ORD1=5ORD1=9ORD1=10THENLI=27
  519. 5240 IFD1=6ORD1=8THENLI=26
  520. 5250 IFL%/LI<>INT(L%/LI)THENPRINT"[205]ULTIPLES OF"LI"ONLY,PLEASE.":GOTO5190
  521. 5260 BET=BET+L%
  522. 5270 PRINT"[193]CCROSS-THE-LINE BET ACCEPTED"
  523. 5280 L(4)=INT(L%/27*5)
  524. 5290 L(5)=INT(L%/27*5)
  525. 5300 L(9)=INT(L%/27*5)
  526. 5310 L(10)=INT(L%/27*5)
  527. 5320 L(6)=INT(L%/26*6)
  528. 5330 L(8)=INT(L%/26*6):GOTO3540
  529. 5340 REM PLACE ONE TIME BETS
  530. 5350 PRINT"[147][217]OU MAY PLACE BETS ON:"
  531. 5360 PRINT"1) [211]NAKE-EYES (2)"
  532. 5370 PRINT"2) [194]OXCARS (12)"
  533. 5380 PRINT"3) [195]RAPS (3 OR 11)"
  534. 5390 PRINT"4) [194]IG [210]ED (ANY SEVEN)"
  535. 5400 PRINT"5) [198]INISHED WITH ONE TIME BETS"
  536. 5410 GETA$
  537. 5420 IFA$=""GOTO5410
  538. 5430 IFA$="1"THENOT$="[211]NAKE-EYES":GOTO5490
  539. 5440 IFA$="2"THENOT$="[194]OXCARS":GOTO5490
  540. 5450 IFA$="3"THENOT$="[195]RAPS":GOTO5490
  541. 5460 IFA$="4"THENOT$="[194]IG [210]ED":GOTO5490
  542. 5470 IFA$<>"5"GOTO5410
  543. 5480 GOTO3550
  544. 5490 PRINT"[200]OW MUCH BET ON "OT$;:INPUTOT
  545. 5500 IFOT<UANDOT<>0THENGOSUB160:GOTO5490
  546. 5510 IFOT>TTHENGOSUB170:GOTO5490
  547. 5520 IFOT>N-BETTHENGOSUB180:GOTO5490
  548. 5530 IFA$="1"THENS%=OT
  549. 5540 IFA$="2"THENB%=OT
  550. 5550 IFA$="3"THENC%=OT
  551. 5560 IFA$="4"THENA%=OT
  552. 5570 BET=BET+OT
  553. 5580 PRINT"[207]NE-TIME BET ACCEPTED":GOSUB100:GOTO5350
  554. 5590 REM PLACE HARD BET
  555. 5600 PRINT"[147]  [200]ARD BETS AVAILABLE ARE:"
  556. 5610 PRINT"   4[146] - 6[146] - 8[146] - 10[146] - [196][146]ONE"
  557. 5630 GETA$
  558. 5640 IFA$=""GOTO5630
  559. 5650 IFA$="4"THENGOSUB5680:H4=H%:GOTO5600
  560. 5660 IFA$="6"THENGOSUB5680:H6=H%:GOTO5600
  561. 5670 IFA$="8"THENGOSUB5680:H8=H%:GOTO5600
  562. 5675 IFA$="1"THENA$="10":GOSUB5680:H1=H%:GOTO5600
  563. 5676 IFA$="D"THENH%=0:GOTO3550
  564. 5677 GOTO5630
  565. 5680 PRINT"  [200]OW MUCH BET ON HARD "A$;:INPUTH%
  566. 5700 IFH%<UANDH%<>0THENGOSUB160:GOTO5680
  567. 5710 IFH%>TTHENGOSUB170:GOTO5680
  568. 5720 IFH%>N-BETTHENGOSUB180:GOTO5680
  569. 5730 BET=BET+H%
  570. 5740 PRINT"  [200]ARD BET ACCEPTED":GOSUB100:RETURN
  571. 5750 REM PLACE FIELD BET
  572. 5760 PRINT"<[208]>LACE/CHANGE OR <[210]>EMOVE FIELD BET"
  573. 5770 GETA$
  574. 5780 IFA$=""GOTO5770
  575. 5790 IFA$="R"ANDF%>0THENBET=BET-F%:F%=0:PRINT"[198]IELD BET REMOVED":GOTO3540
  576. 5800 IFA$<>"P"THEN5770
  577. 5810 IFF%>0THENBET=BET-F%:F=0
  578. 5820 INPUT"[200]OW MUCH BET ON FIELD";F%
  579. 5830 IFF%<UANDF%<>0THENGOSUB160:GOTO5820
  580. 5840 IFF%>TTHENGOSUB170:GOTO5820
  581. 5850 IFF%>N-BETTHENGOSUB180:GOTO5820
  582. 5860 BET=BET+F%
  583. 5870 PRINT"[198]IELD BET ACCEPTED":GOTO3540
  584. 5880 REM PLACE BET WINNERS
  585. 5890 IFD2=7THEN6070
  586. 5895 IFD2=4ANDP(4)>0THENM1=P(4)*9:M1=INT(M1/5):N=N+M1:GOTO5960
  587. 5900 IFD2=5ANDP(5)>0THENM1=P(5)*7:M1=INT(M1/5):N=N+M1:GOTO5960
  588. 5910 IFD2=6ANDP(6)>0THENM1=P(6)*7:M1=INT(M1/6):N=N+M1:GOTO5960
  589. 5920 IFD2=8ANDP(8)>0THENM1=P(8)*7:M1=INT(M1/6):N=N+M1:GOTO5960
  590. 5930 IFD2=9ANDP(9)>0THENM1=P(9)*7:M1=INT(M1/5):N=N+M1:GOTO5960
  591. 5940 IFD2=10ANDP(10)>0THENM1=P(10)*9:M1=INT(M1/5):N=N+M1:GOTO5960
  592. 5950 GOTO5970
  593. 5960 PRINT"[208]LACE-BET WINNER! [194]ANKROLL NOW $"N
  594. 5970 IFD2=4ANDL(4)>0THENM1=L(4)*9:M1=INT(M1/5):N=N+M1:GOTO6040
  595. 5980 IFD2=5ANDL(5)>0THENM1=L(5)*7:M1=INT(M1/5):N=N+M1:GOTO6040
  596. 5990 IFD2=6ANDL(6)>0THENM1=L(6)*7:M1=INT(M1/6):N=N+M1:GOTO6040
  597. 6000 IFD2=8ANDL(8)>0THENM1=L(8)*7:M1=INT(M1/6):N=N+M1:GOTO6040
  598. 6010 IFD2=9ANDL(9)>0THENM1=L(9)*7:M1=INT(M1/5):N=N+M1:GOTO6040
  599. 6020 IFD2=10ANDL(10)>0THENM1=L(10)*9:M1=INT(M1/5):N=N+M1:GOTO6040
  600. 6030 GOTO6160
  601. 6040 PRINT"[204]INE-BET WINNER! [194]ANKROLL NOW $"N:GOTO6160
  602. 6050 GOSUB6160:GOTO3480
  603. 6060 REM PLACE BET/ACCROSS THE LINE LOSER
  604. 6070 IFL%>0THENN=N-L%:PRINT"[204]INE BET LOSER: [194]ANKROLL NOW $";N:BET=BET-L%
  605. 6080 IFL%>0THENPRINT"AND YOU'RE OFF THE [204]INE":L%=0:GOSUB120
  606. 6090 FORI=4TO10
  607. 6100 IFI=7THENNEXTI
  608. 6110 IFP(I)>0THEN6130
  609. 6120 NEXTI:GOTO6160
  610. 6130 N=N-P(I):BET=BET-P(I):P(I)=0
  611. 6140 PRINT"[208]LACE-BET LOSER:[194]ANKROLL $";N:PRINT"AND YOU'RE OFF"I:GOTO6120
  612. 6150 REM ONE TIME BET WINNER
  613. 6160 IFA%=0ANDS%=0ANDB%=0ANDC%=0THEN6380
  614. 6170 IFD2=2ANDS%>0THENN=S%*30+N
  615. 6180 IFD2=2ANDS%>0THENPRINT"[211]NAKE-EYES!! [193] WINNER! [194]ANKROLL $"N:BET=BET-S%:S%=0
  616. 6190 IFD2=12ANDB%>0THENN=B%*30+N
  617. 6200 IFD2=12ANDB%>0THENPRINT"[194]OXCARS!! [193] WINNER! [194]ANKROLL $"N:BET=BET-B%:B%=0
  618. 6210 IFD2=11ANDC%>0ORD2=3ANDC%>0THENN=C%*15+N:BET=BET-C%
  619. 6220 IFD2=11ANDC%>0ORD2=3ANDC%>0THENPRINT"[195]RAPS!! [193] WINNER! [194]ANKROLL $"N:C%=0
  620. 6230 IFD2=7ANDA%>0THENA%=A%*5:N=N+A%:BET=BET-A%
  621. 6240 IFD2=7ANDA%>0THENPRINT"[194]IG [210]ED!! [193] WINNER!! [194]ANKROLL$"N:A%=0
  622. 6250 REM ONE TIM BET LOSER
  623. 6260 IFA%>0THENN=N-A%:GOSUB6310
  624. 6270 IFS%>0THENN=N-S%:GOSUB6310
  625. 6280 IFB%>0THENN=N-B%:GOSUB6310
  626. 6290 IFC%>0THENN=N-C%:GOSUB6310
  627. 6300 GOTO6320
  628. 6310 PRINT"[207]NE-TIME BET LOSER: [194]ANKROLL $";N:RETURN
  629. 6320 BET=BET-(C%+S%+B%+A%)
  630. 6330 S%=0
  631. 6340 B%=0
  632. 6350 C%=0
  633. 6360 A%=0
  634. 6370 REM HARD BET WINNER
  635. 6380 IFD2=7THEN6420
  636. 6390 IFN(1)<>N(2)THEN6420
  637. 6395 IFH4>0ANDD2=4THENH%=H4:GOSUB6470
  638. 6396 IFH6>0ANDD2=6THENH%=H6:GOSUB6450
  639. 6400 IFH8>0ANDD2=8THENH%=H8:GOSUB6450
  640. 6410 IFH1>0ANDD2=10THENH%=H1:GOSUB6470
  641. 6415 GOTO6630
  642. 6420 IF(D2=7ANDH4>0)OR(D2=4ANDH4>0)THENH%=H4:GOSUB6560:H4=0
  643. 6425 IF(D2=7ANDH6>0)OR(D2=6ANDH6>0)THENH%=H6:GOSUB6560:H6=0
  644. 6430 IF(D2=7ANDH8>0)OR(D2=8ANDH8>0)THENH%=H8:GOSUB6560:H8=0
  645. 6435 IF(D2=7ANDH1>0)OR(D2=10ANDH1>0)THENH%=H1:GOSUB6560:H1=0
  646. 6440 GOTO6630
  647. 6450 H%=10*H%
  648. 6460 GOTO6480
  649. 6470 H%=8*H%
  650. 6480 N=N+H%
  651. 6490 PRINT"[193]ND YOUR HARD";
  652. 6500 PRINTD2;
  653. 6510 PRINT"![193] WINNER! [194]ANKROLL NOW $";
  654. 6520 PRINTN
  655. 6540 RETURN
  656. 6550 REM HARD BET LOSER
  657. 6560 IFD2<>7THENPRINT"[193] SOFT"D2
  658. 6580 N=N-H%
  659. 6590 PRINT"[200]ARD BET LOSER: [194]ANKROLL $";
  660. 6600 PRINTN
  661. 6610 BET=BET-H%:H%=0:RETURN
  662. 6620 REM FIELD BET CHECK FOR WINNER
  663. 6630 IFF%=0THENRETURN
  664. 6640 IFD2=3ORD2=4ORD2=9ORD2=10ORD2=11THENN=N+F%:GOTO6730
  665. 6650 IFD2=2THENFI=F%*2:N=N+FI:GOTO6730
  666. 6660 IFD2=12THENFI=F%*3:N=N+FI:GOTO6730
  667. 6670 REM FIELD BET LOSER
  668. 6680 N=N-F%
  669. 6690 PRINT"[198]IELD-BET LOSER: [194]ANKROLL $";N
  670. 6700 BET=BET-F%
  671. 6710 F%=0:RETURN
  672. 6720 REM FIELD BET WINNER
  673. 6730 PRINT"[198]IELD-BET WINNER: [194]ANKROLL $";
  674. 6740 PRINTN
  675. 6750 D2=0:RETURN
  676. 6760 REM WINNER-MADE OBJECTIVE
  677. 6770 PRINT"[195][207][206][199][210][193][212][213][204][193][212][201][207][206][211]![217]OU MADE YOUR OBJECTIVE!"
  678. 6780 PRINT"[209]UIT WHILE YOU'RE AHEAD!"
  679. 6790 PRINT"[208]RESS ANY KEY FOR SUMMARY"
  680. 6800 GETA$
  681. 6810 IFA$=""GOTO6800
  682. 6820 PRINTCHR$(147)
  683. 6830 GOTO6860
  684. 6840 REM LOSER-WENT BROKE
  685. 6850 PRINT"[147][211]ORRY, YOU'RE BROKE!"
  686. 6860 REM SUMMARY OF POINTS HIT
  687. 6870 PRINT"[211][213][205][205][193][210][217]":PRINT"[215]E SAW THESE--"
  688. 6880 PRINT"[208]OINTS    [200]ITS"
  689. 6890 FORI=2TO12
  690. 6900 PRINTI,
  691. 6910 PRINTH(I)
  692. 6920 NEXTI
  693. 6930 PRINT"[217]OU WON ";
  694. 6940 PRINTW;
  695. 6950 PRINT" DECISIONS, LOST ";
  696. 6960 PRINTL
  697. 6970 PRINT"[217]OUR BANKROLL WAS $";
  698. 6980 PRINTB1
  699. 6990 PRINT"[217]OUR NET IS $";
  700. 7000 PRINTN
  701. 7010 IFN<0THENPRINT"[194]ETTER LUCK NEXT TIME!":PRINT:GOTO7050
  702. 7020 PRINT"[206]ICE WORK. [206]OW DO IT FOR MONEY."
  703. 7030 PRINT
  704. 7040 GOTO7050
  705. 7050 PRINT"[208]LAY AGAIN (Y/N)"
  706. 7060 GETA$
  707. 7070 IFA$=""GOTO7060
  708. 7080 IFA$="Y"THENPRINTCHR$(147):GOTO1470
  709. 7090 IFA$<>"N"GOTO6930
  710. 7100 END
  711. 7110 REM SPRINT DATA
  712. 7120 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,255,192,1,254,96,1,255,240,1
  713. 7130 DATA127,248,1,115,252,1,255,255,1,255,255,1,191,255,1,191,255,1,255
  714. 7140 DATA255,1,223,159,0,223,159,0,127,255,0,63,255,0,31,255,0,15,255,0
  715. 7150 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,255,192,1,255,224,1,252,240,1,127
  716. 7160 DATA248,1,127,252,1,255,254,1,223,255,1,223,249,1,127,249,1,127,255
  717. 7170 DATA1,223,255,0,223,255,0,127,255,0,57,255,0,25,255,0,15,255,0,0,0
  718. 7180 DATA0,0,0,0,0,0,0,0,0,0,0,0,1,255,192,1,255,224,1,252,240,1,255,248
  719. 7190 DATA1,255,252,1,255,254,1,223,255,1,223,249,1,127,249,1,127,255,1
  720. 7200 DATA255,159,0,255,159,0,127,255,0,57,255,0,25,255,0,15,255,0,0,0,0
  721. 7210 DATA0,0,0,0,0,0,0,0,0,0,0,1,255,192,1,62,96,1,255,240,1,207,152,1
  722. 7220 DATA255,252,1,243,230,1,223,255,1,217,249,1,121,249,1,127,255,1,255
  723. 7230 DATA255,0,255,255,0,127,255,0,57,249,0,25,249,0,15,255,0,0,0,0,0,0
  724. 7240 DATA0,0,0,0,0,0,0,0,0,1,255,192,1,158,96,1,255,240,1,255,248,1,243
  725. 7250 DATA204,1,255,254,1,255,255,1,185,249,1,185,249,1,255,255,1,255,159
  726. 7260 DATA0,255,159,0,127,255,0,57,249,0,25,249,0,15,255,0,0,0,0,0,0,0,0
  727. 7270 DATA0,0,0,0,0,0,0,1,255,192,1,158,96,1,255,240,1,121,248,1,127,252
  728. 7280 DATA1,243,230,1,255,255,1,185,153,1,185,153,1,255,255,1,223,255,0
  729. 7290 DATA223,255,0,127,255,0,57,153,0,25,153,0,15,255
  730.