home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / FILL-OR-BUST-64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  13.5 KB  |  505 lines
  1. 1 REM******************
  2. 2 REM* FILL OR BUST 64*
  3. 3 REM*  BY CHESSDUDE  *
  4. 5 CLR
  5. 7 DIM VA(54),PO(54)
  6. 10 POKE53281,15:POKE53280,15:PT=0:P=1
  7. 11 C1$="[207][183][183][183][183][183][183][183][208]":C4$="[166][166][166][166][166][166][166][166][166]  "
  8. 12 C2$="[180]       [167]":D1$="[207][183][183][183][208]"
  9. 13 C3$="[204][175][175][175][175][175][175][175][186]":D3$="[204][175][175][175][186]":D2$="[180]   [167]"
  10. 20 GOSUB6000:GOSUB2000
  11. 29 GOSUB310:B=0:E1$="[144][209]":E2$="[144][209] [209]":E3$="   ":GOSUB7000
  12. 30 PRINT"[158]SHUFFLING....":GOSUB200:REM SHUFFLE CARDS
  13. 35 GOSUB220:GOSUB500:GOSUB8020
  14. 40 P=1
  15. 41 IF SC(P)=>GLTHEN8000
  16. 42 PRINT"[158]"NA$(P)"[146]     ":B=B+1:IFB>54THENGOSUB5000
  17. 43 PRINT""TAB(17)"                     ":PRINT""TAB(17)"[150]POINTS:"PT(P)"    ":DD=0
  18. 44 ONVA(B)GOSUB400,420,440,160,120,100,170,140:IFVA(B)=8THENXP(P)=PT(P):PT(P)=0
  19. 45 PRINT""TAB(12)"   ":PRINT"[145][144]"TAB(12)54-B:GOSUB3000:IFVA(B)=7THENGOSUB2100
  20. 46 IFVA(B)<>4THEN50
  21. 47 PRINT"[144]"TAB(17)"NO DICE!!             "
  22. 48 FORI=1TO1000:NEXTI
  23. 49 PRINT"[145]"TAB(17)"             ":PT(P)=0:GOTO70
  24. 50 Z7=6:GOSUB550:REM INITIAL DICE ROLL
  25. 55 GOSUB700:REM INITIAL POINTS DECISION
  26. 56 IFZ7<>0THEN65
  27. 57 PT(P)=PT(P)+PO(B):PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145]"TAB(17)"[150]POINTS:"PT(P)"     ":GOSUB8200:IFVA(B)>5THEN1000
  28. 58 FORI=1TO1000:NEXTI
  29. 59 PRINT""TAB(17)"[158]TRY FOR MORE POINTS ?"
  30. 60 GETQ$:IFQ$=""THEN60
  31. 61 IFQ$<>"Y"ANDQ$<>"N"THEN60
  32. 62 IFQ$="N"THENSC(P)=SC(P)+PT(P):PRINT""TAB(17)"                     ":PT(P)=0:PRINT""TAB(17)"                     ":GOTO70
  33. 63 IFQ$="Y"THENZ7=6:PRINT""TAB(17)"                     ":GOTO41
  34. 65 IFZ=0THENPT(P)=0:GOTO70
  35. 66 GOSUB820:IFVA(B)=6THENSC(P)=SC(P)+PT(P):PT(P)=0
  36. 67 PT(P)=0:XP(P)=0
  37. 69 Z7=6
  38. 70 IFSC(P)>=GLTHEN8000
  39. 71 P=P+1:IFB>54THENGOSUB5000
  40. 72 IFP>NPTHENP=1:GOTO41
  41. 73 GOTO41
  42. 80 GOTO40
  43. 100 REM: MUST BUST CARD
  44. 101 PRINTC1$
  45. 102 FORI=1TO2:PRINT"[180]       [146][170]":NEXTI
  46. 103 PRINTC2$
  47. 104 PRINT"[180] MUST  [167]":PRINTC2$:PRINT"[180] BUST! [167]"
  48. 106 PRINTC2$
  49. 107 FORI=1TO2:PRINT"[180]       [146][170]":NEXTI
  50. 108 PRINTC3$
  51. 109 RETURN
  52. 120 REM: FILL 100 CARD
  53. 121 PRINTC1$:PRINTC2$:PRINTC2$
  54. 122 PRINT"[180] [156]FILL  [167]"
  55. 123 PRINT"[180] [156]1000  [167]"
  56. 124 PRINT"[180] [158]FILL  [167]"
  57. 125 PRINT"[180] [158]1000  [167]"
  58. 126 FORI=1TO3:PRINTC2$:NEXTI:PRINTC3$
  59. 127 RETURN
  60. 140 REM: DOUBLE TROUBLE CARD
  61. 141 PRINTC1$:PRINTC2$
  62. 142 FORI=1TO2:PRINT"[180]       [146][170]":NEXTI
  63. 143 PRINT"[180]DOUBLE![167]"
  64. 144 PRINT"[180][150]TROUBLE[167]"
  65. 145 PRINT"[180]DOUBLE![167]"
  66. 146 FORI=1TO2:PRINT"[180]       [146][170]":NEXTI
  67. 147 PRINTC2$:PRINTC3$
  68. 148 RETURN
  69. 160 REM: NO DICE CARD
  70. 161 PRINTC1$
  71. 162 FORI=1TO9:PRINT"[180][151]NO DICE[167]":NEXTI
  72. 163 PRINTC3$:RETURN
  73. 170 REM: VENGEANCE CARD
  74. 171 PRINTC1$
  75. 172 FORI=1TO3:PRINT"[180]       [146][170]":NEXTI
  76. 173 PRINT"[180][129] SCREW [167]"
  77. 174 PRINT"[180][129] THE   [167]"
  78. 175 PRINT"[180][129] LEADER[167]"
  79. 176 FORI=1TO3:PRINT"[180]       [146][170]":NEXTI
  80. 177 PRINTC3$
  81. 178 RETURN
  82. 200 REM: SHUFFLE CARDS
  83. 201 FORI=1TO100
  84. 202 A1=INT(RND(0)*53)+1:A2=INT(RND(0)*53)+1
  85. 203 A=VA(A1):VA(A1)=VA(A2):VA(A2)=A
  86. 204 NEXTI
  87. 205 FORI=1TO100
  88. 206 A1=INT(RND(0)*15)+1:A2=INT(RND(0)*15)+39
  89. 207 A=VA(A1):VA(A1)=VA(A2):VA(A2)=A
  90. 208 NEXTI
  91. 209 FORI=1TO54
  92. 210 IFVA(I)=1THENPO(I)=300
  93. 211 IFVA(I)=2THENPO(I)=400
  94. 212 IFVA(I)=8THENPO(I)=0
  95. 213 IFVA(I)=3THENPO(I)=500
  96. 214 IFVA(I)=4THENPO(I)=0
  97. 215 IFVA(I)=5THENPO(I)=1000
  98. 216 IFVA(I)=6THENPO(I)=0
  99. 217 IFVA(I)=7THENPO(I)=0
  100. 218 NEXTI
  101. 219 RETURN
  102. 220 GOSUB300
  103. 221 PRINT""
  104. 222 FORI=1TO11:PRINTC4$:NEXTI
  105. 223 RETURN
  106. 300 PRINT"[147]----------------------------------------";
  107. 301 PRINT"              FILL OR BUST!             ";
  108. 302 PRINT"----------------------------------------";
  109. 305 RETURN
  110. 310 PRINT"[147]"
  111. 311 GOSUB300
  112. 312 PRINT"HOW MANY PLAYERS (5 MAX)"
  113. 313 INPUT"[145]";NP
  114. 314 IFNP<0ORNP>5THENPRINT"[145]":GOTO313
  115. 315 IFNP-INT(NP)<>0THENPRINT"[145]":GOTO313
  116. 316 PRINT""
  117. 320 FORI=1TONP
  118. 321 PRINT"PLAYER"I"[157]'S NAME"
  119. 322 INPUT"[145]";NA$(I)
  120. 323 NEXTI
  121. 324 RETURN
  122. 400 REM: BONUS 300 CARD
  123. 401 PRINTC1$
  124. 402 FORI=1TO3:PRINTC2$:NEXTI
  125. 403 PRINT"[180] [153]BONUS [167]"
  126. 404 PRINT"[180] [153] 300  [167]"
  127. 405 PRINT"[180] [153]BONUS [167]"
  128. 406 FORI=1TO3:PRINTC2$:NEXTI
  129. 407 PRINTC3$
  130. 408 RETURN
  131. 420 REM: BONUS 400 CARD
  132. 421 PRINTC1$
  133. 422 FORI=1TO3:PRINTC2$:NEXTI
  134. 423 PRINT"[180] [153]BONUS [167]"
  135. 424 PRINT"[180] [153] 400  [167]"
  136. 425 PRINT"[180] [153]BONUS [167]"
  137. 426 FORI=1TO3:PRINTC2$:NEXTI
  138. 427 PRINTC3$
  139. 428 RETURN
  140. 440 REM: BONUS 500 CARD
  141. 441 PRINTC1$
  142. 442 FORI=1TO3:PRINTC2$:NEXTI
  143. 443 PRINT"[180] [153]BONUS [167]"
  144. 444 PRINT"[180] [153] 500  [167]"
  145. 445 PRINT"[180] [153]BONUS [167]"
  146. 446 FORI=1TO3:PRINTC2$:NEXTI
  147. 447 PRINTC3$
  148. 448 RETURN
  149. 500 PRINT""
  150. 501 L=10
  151. 502 FORJ=1TO3
  152. 503 L=L+7:PRINT"[145][145][145][145][145][145]"
  153. 505 PRINTTAB(L)D1$
  154. 506 FORI=1TO3:PRINTTAB(L)D2$:NEXTI
  155. 507 PRINTTAB(L)D3$
  156. 508 NEXTJ
  157. 511 L=10:PRINT""
  158. 512 FORJ=1TO3
  159. 513 L=L+7:PRINT"[145][145][145][145][145][145]"
  160. 515 PRINTTAB(L)D1$
  161. 516 FORI=1TO3:PRINTTAB(L)D2$:NEXTI
  162. 517 PRINTTAB(L)D3$
  163. 518 NEXTJ
  164. 520 RETURN
  165. 550 FORI=1TOZ7
  166. 551 DV(I)=INT(RND(1)*6)+1:IFDV(I)=7THEN551
  167. 552 NEXTI
  168. 558 PRINT"":G=18
  169. 560 FORI=1TOZ7
  170. 561 IFDV(I)=1THENGOSUB600
  171. 562 IFDV(I)=2THENGOSUB610
  172. 563 IFDV(I)=3THENGOSUB620
  173. 564 IFDV(I)=4THENGOSUB630
  174. 565 IFDV(I)=5THENGOSUB640
  175. 566 IFDV(I)=6THENGOSUB650
  176. 567 IFI=3THENG=11:PRINT""
  177. 568 G=G+7
  178. 569 NEXTI:IFCC=1THENCC=0:RETURN
  179. 570 GETJ$:IFJ$<>""THEN580
  180. 571 PRINT"":G=18
  181. 572 FORI=1TO6
  182. 573 PRINTTAB(G)E3$"[157][157][157]"E3$"[157][157][157]"E3$"[145][145][145]"
  183. 574 IFI=3THENG=11:PRINT""
  184. 575 G=G+7
  185. 576 NEXTI:IFCC=1THEN550
  186. 577 GOTO550
  187. 580 CC=1:GOTO571
  188. 600 PRINTTAB(G)""E1$"[145][145]"
  189. 605 RETURN
  190. 610 PRINTTAB(G)E1$""E1$"[145][145][145]"
  191. 615 RETURN
  192. 620 PRINTTAB(G)E1$""E1$""E1$"[145][145][145]"
  193. 625 RETURN
  194. 630 PRINTTAB(G)E1$""E1$"[157]"E1$"[157][157][157]"E1$"[145][145][145]"
  195. 635 RETURN
  196. 640 PRINTTAB(G)E2$"[157][157]"E1$"[157][157]"E2$"[145][145][145]"
  197. 645 RETURN
  198. 650 PRINTTAB(G)E2$"[157][157][157]"E2$"[157][157][157]"E2$"[145][145][145]"
  199. 655 RETURN
  200. 700 REM: POINTS DECISION
  201. 705 Z1=0:Z2=0:Z3=0:Z4=0:Z5=0:Z6=0:Z=0
  202. 706 PRINT""
  203. 710 FORI=1TOZ7
  204. 711 IFDV(I)=1THENZ1=Z1+1
  205. 712 NEXTI
  206. 713 FORI=1TOZ7
  207. 714 IFDV(I)=2THENZ2=Z2+1
  208. 715 NEXTI
  209. 716 FORI=1TOZ7
  210. 717 IFDV(I)=3THENZ3=Z3+1
  211. 718 NEXTI
  212. 719 FORI=1TOZ7
  213. 720 IFDV(I)=4THENZ4=Z4+1
  214. 721 NEXTI
  215. 722 FORI=1TOZ7
  216. 723 IFDV(I)=5THENZ5=Z5+1
  217. 724 NEXTI
  218. 725 FORI=1TOZ7
  219. 726 IFDV(I)=6THENZ6=Z6+1
  220. 727 NEXTI
  221. 730 IFZ1=1ANDZ2=1ANDZ3=1ANDZ4=1ANDZ5=1ANDZ6=1THENPT(P)=PT(P)+1500:Z=6:PRINT"[150]"TAB(17)"SCORE:"PT(P):Z7=Z7-Z:GOSUB8100
  222. 733 IFZ7=0THENRETURN
  223. 734 IFZ1=0THEN750
  224. 735 IFZ1>2THENPRINTTAB(17)"[145][158]KEEP THE 3 ONES ?    "
  225. 736 IFZ1<3THEN741
  226. 737 GETQ$:IFQ$=""THEN737
  227. 738 IFQ$<>"Y"ANDQ$<>"N"THEN737
  228. 739 IFQ$="Y"THENPT(P)=PT(P)+1000:Z1=Z1-3:Z=Z+3:IFZ1=0THEN750
  229. 740 IFZ1=3THEN735
  230. 741 PRINTTAB(17)"[145][158]KEEP ANY ONES ?     "
  231. 742 GETQ$:IFQ$=""THEN742
  232. 743 IFQ$<>"Y"ANDQ$<>"N"THEN742
  233. 744 IFQ$="N"THENZ1=0:GOTO750
  234. 745 PT(P)=PT(P)+100:Z=Z+1:IFZ1=1THEN750
  235. 746 IFZ1=2THENPRINTTAB(17)"[145][158]BOTH ONES ?         "
  236. 747 GETQ$:IFQ$=""THEN747
  237. 748 IFQ$<>"Y"ANDQ$<>"N"THEN747
  238. 749 IFQ$="Y"THENPT(P)=PT(P)+100:Z=Z+1
  239. 750 PRINT""
  240. 751 IFZ5=0THEN770
  241. 752 IFZ5>2THENPRINTTAB(17)"[145][158]KEEP THE 3 FIVES ?  "
  242. 753 IFZ5<3THEN758
  243. 754 GETQ$:IFQ$=""THEN754
  244. 755 IFQ$<>"Y"ANDQ$<>"N"THEN754
  245. 756 IFQ$="Y"THENPT(P)=PT(P)+500:Z5=Z5-3:Z=Z+3:GOTO751
  246. 757 IFQ$="N"THEN758
  247. 758 PRINTTAB(17)"[145][158]KEEP ANY FIVES ?   "
  248. 759 GETQ$:IFQ$=""THEN759
  249. 760 IFQ$<>"Y"ANDQ$<>"N"THEN759
  250. 761 IFQ$="Y"THENPT(P)=PT(P)+50:Z=Z+1:IFZ5=1THEN770
  251. 762 IFQ$="N"THEN770
  252. 763 IFZ5=2THENPRINTTAB(17)"[145][158]BOTH FIVES ?        "
  253. 764 GETQ$:IFQ$=""THEN764
  254. 765 IFQ$<>"Y"ANDQ$<>"N"THEN764
  255. 766 IFQ$="Y"THENPT(P)=PT(P)+50:Z=Z+1
  256. 770 PRINT""
  257. 771 IFZ2<3THEN780
  258. 772 IFZ2>2THENPRINTTAB(17)"[145][158]KEEP THE 3 TWOS ?    "
  259. 773 GETQ$:IFQ$=""THEN773
  260. 774 IFQ$<>"Y"ANDQ$<>"N"THEN773
  261. 775 IFQ$="Y"THENPT(P)=PT(P)+200:Z2=Z2-3:Z=Z+3
  262. 776 IFQ$="N"THENZ2=Z2-3
  263. 777 IFZ2=3THEN772
  264. 778 Z2=0
  265. 780 PRINT""
  266. 781 IFZ3<3THEN790
  267. 782 IFZ3>2THENPRINTTAB(17)"[145][158]KEEP THE 3 THREES ?  "
  268. 783 GETQ$:IFQ$=""THEN783
  269. 784 IFQ$<>"Y"ANDQ$<>"N"THEN783
  270. 785 IFQ$="Y"THENPT(P)=PT(P)+300:Z3=Z3-3:Z=Z+3
  271. 786 IFQ$="N"THENZ3=Z3-3
  272. 787 IFZ3=3THEN782
  273. 790 PRINT""
  274. 791 IFZ4<3THEN800
  275. 792 IFZ4>2THENPRINTTAB(17)"[145][158]KEEP THE 3 FOURS ?  "
  276. 793 GETQ$:IFQ$=""THEN793
  277. 794 IFQ$<>"Y"ANDQ$<>"N"THEN793
  278. 795 IFQ$="Y"THENPT(P)=PT(P)+400:Z4=Z4-3:Z=Z+3
  279. 796 IFQ$="N"THENZ4=Z4-3
  280. 797 IFZ4=3THEN792
  281. 800 PRINT""
  282. 801 IFZ6<3THEN810
  283. 802 IFZ6>2THENPRINTTAB(17)"[145][158]KEEP THE 3 SIXES ?  "
  284. 803 GETQ$:IFQ$=""THEN803
  285. 804 IFQ$<>"Y"ANDQ$<>"N"THEN803
  286. 805 IFQ$="Y"THENPT(P)=PT(P)+600:Z6=Z6-3:Z=Z+3
  287. 806 IFQ$="N"THENZ6=Z6-3
  288. 807 IFZ6=3THEN802
  289. 810 PRINT"[150]"TAB(17)"POINTS:"PT(P)"   ":Z7=Z7-Z
  290. 811 PRINT""
  291. 812 PRINTTAB(17)"[145]                     "
  292. 813 IFZ=0THENPRINTTAB(17)"[145]BUSTED![146]
  293. 814 [139]Z[179][177]0[167]816
  294. 815 [129]I[178]1[164]1000:[130]I
  295. 816 [153][163]17)"ON                    "
  296. 817 [142]
  297. 820 [143]: ROLL AGAIN DECISION
  298. 825 [153]""
  299. 826 [139]VA(B)[177]4[167][141]900:[137]835
  300. 830 [153][163]17)"ONSYSROLL AGAIN ?"
  301. 831 [161]Q$:[139]Q$[178]""[167]831
  302. 832 [139]Q$[179][177]"Y"[175]Q$[179][177]"N"[167]831
  303. 833 [139]Q$[178]"N"[167]SC(P)[178]SC(P)[170]PT(P):[153][163]17)"ON                     ":[153]""[163]17)"                    ":PT(P)[178]0:Z7[178]6:[142]
  304. 834 [139]Q$[178]"Y"[167][141]900
  305. 835 [139]Z[178]0[167][142]
  306. 836 [139]Z7[178]0[167]Z7[178]6:[137]57
  307. 837 [137]825
  308. 900 [153][163]17)"ON                     "
  309. 910 [129]I[178]1[164]Z7
  310. 911 DV(I)[178][181]([187](1)[172]6)[170]1:[139]DV(I)[178]7[167]911
  311. 912 [130]I
  312. 913 [153]"":G[178]18
  313. 914 [129]I[178]1[164]6
  314. 915 [153][163]G)E3$"CMDCMDCMD"E3$"CMDCMDCMD"E3$"ONONON"
  315. 916 [139]I[178]3[167]G[178]11:[153]""
  316. 917 G[178]G[170]7
  317. 918 [130]I
  318. 920 [153]"":G[178]18
  319. 921 [129]I[178]1[164]Z7
  320. 922 [139]DV(I)[178]1[167][141]600
  321. 923 [139]DV(I)[178]2[167][141]610
  322. 924 [139]DV(I)[178]3[167][141]620
  323. 925 [139]DV(I)[178]4[167][141]630
  324. 926 [139]DV(I)[178]5[167][141]640
  325. 927 [139]DV(I)[178]6[167][141]650
  326. 928 [139]I[178]3[167]G[178]11:[153]""
  327. 929 G[178]G[170]7
  328. 930 [130]I
  329. 931 [139]CC[178]1[167]CC[178]0:[137]935
  330. 932 [161]J$:[139]J$[179][177]""[167]934
  331. 933 [137]910
  332. 934 CC[178]1:[137]910
  333. 935 [143]: POINTS DECISION
  334. 940 [141]700
  335. 941 [142]
  336. 1000 [139]VA(B)[178]6[167]Z7[178]6:[141]900
  337. 1001 [139]VA(B)[178]6[175]Z[178]0[167]SC(P)[178]SC(P)[170]PT(P):[137]67
  338. 1002 [139]VA(B)[178]6[175]Z7[178]0[167][141]8200:[137]1000
  339. 1003 [139]VA(B)[178]6[175]Z[179][177]0[167][141]900:[137]1001
  340. 1012 [139]VA(B)[178]7[167]1020
  341. 1013 [139]VA(B)[178]8[167]1100
  342. 1020 [143]: VENGEANCE RESULT
  343. 1021 [129]I[178]1[164]NP
  344. 1022 [139]SC(I)[178]LD[167]SC(I)[178]SC(I)[171]2500
  345. 1023 [139]SC(I)[179]0[167]SC(I)[178]0
  346. 1024 [130]I
  347. 1025 SC(P)[178]SC(P)[170]PT(P):PT(P)[178]0
  348. 1026 [141]3000:[137]59
  349. 1100 DD[178]DD[170]1
  350. 1105 [139]DD[178]1[167][153]""[163]17)"FIRST FILL DONE!"
  351. 1106 [139]DD[178]1[167]1120
  352. 1110 [139]DD[178]2[167]SC(P)[178]SC(P)[170]2[172]PT(P)[170]XP(P):PT(P)[178]0:XP(P)[178]0:[137]59
  353. 1120 [129]I[178]1[164]500:[130]I
  354. 1121 [153]"ON"[163]17)"                 ":[137]50
  355. 2000 [129]I[178]1[164]12
  356. 2001 VA(I)[178]1
  357. 2002 [130]I
  358. 2003 [129]I[178]13[164]22
  359. 2004 VA(I)[178]2
  360. 2005 [130]I
  361. 2006 [129]I[178]23[164]30
  362. 2007 VA(I)[178]3
  363. 2008 [130]I
  364. 2009 [129]I[178]31[164]38
  365. 2010 VA(I)[178]4
  366. 2011 [130]I
  367. 2012 [129]I[178]39[164]44
  368. 2013 VA(I)[178]5
  369. 2014 [130]I
  370. 2015 [129]I[178]45[164]48
  371. 2016 VA(I)[178]6
  372. 2017 [130]I
  373. 2018 [129]I[178]49[164]52
  374. 2019 VA(I)[178]7
  375. 2020 [130]I
  376. 2021 [129]I[178]53[164]54
  377. 2022 VA(I)[178]8
  378. 2023 [130]I
  379. 2024 [142]
  380. 2100 [143]: DECISION ON VEGEANCE CARD
  381. 2101 [153]""[163]17)"                     "
  382. 2102 [153]""[163]17)"SYSWANT THIS CARD ?"
  383. 2105 [161]Q$:[139]Q$[178]""[167]2105
  384. 2106 [139]Q$[179][177]"Y"[175]Q$[179][177]"N"[167]2105
  385. 2107 [139]Q$[178]"Y"[167][153]""[163]17)"                     ":[141]2110:[142]
  386. 2108 [139]Q$[178]"N"[167][153]""[163]17)"                     ":[137]41
  387. 2110 LD[178]SC(1)
  388. 2111 [129]J[178]2[164]NP
  389. 2112 [139]SC(J)[177]LD[167]LD[178]SC(J)
  390. 2113 [130]J
  391. 2115 [142]
  392. 3000 [153]""
  393. 3001 [129]I[178]1[164]NP
  394. 3002 [153]"                             "
  395. 3003 [130]I
  396. 3004 [153]""
  397. 3005 [129]I[178]1[164]NP
  398. 3006 [153]""NA$(I)[163]10)"SCORE:"SC(I)
  399. 3007 [130]I
  400. 3008 [153]""
  401. 3010 [142]
  402. 5000 [153]"SYSSHUFFLING....":[139]P[177]NP[167]P[178]1
  403. 5001 [129]I[178]1[164]11
  404. 5002 [153]C4$
  405. 5003 [130]I
  406. 5004 [153]""[163]17)"                     ":[153]"ONSTOP"[163]17)"TIME OUT!!!":[141]200
  407. 5005 [153]"              "
  408. 5006 [153]"SYS"NA$(P)"WAIT   "
  409. 5007 B[178]1:[153]""[163]17)"                    "
  410. 5008 [142]
  411. 5009 [142]
  412. 6000 [141]300:[153]"WANT TO SEE THE RULES ? (Y/N)"
  413. 6001 [161]Q$:[139]Q$[178]""[167]6001
  414. 6002 [139]Q$[179][177]"Y"[175]Q$[179][177]"N"[167]6001
  415. 6003 [139]Q$[178]"N"[167][142]
  416. 6004 [139]Q$[178]"Y"[167][153]"LOAD"
  417. 6005 [141]300
  418. 6010 [153]"THE GAME CONSISTS OF 6 DICE AND 54 DRAW CARDS. THE OBJECT OF THE GAME IS TO BE  THE HIGHEST SCORER."
  419. 6011 [153]"ON"[163]20)"YOU CAN PLAY TO A   GOAL OF ANY NUMBER, FOR EXAMPLE, 5000 OR10000 POINTS. THE WINNER WILL BE THE    FIRST TO REACH THE GOAL."
  420. 6012 [153]"THERE ARE 6 DICE AND 54 DRAW CARDS:"
  421. 6013 [153]"    12-300 PT. BONUS CARDS"
  422. 6014 [153]"    10-400 PT. BONUS CARDS"
  423. 6015 [153]"     8-500 PT. BONUS CARDS"
  424. 6016 [153]"     8-NO DICE CARDS"
  425. 6017 [153]"     6-FILL 1000 CARDS"
  426. 6018 [153]"     4-MUST BUST CARDS"
  427. 6019 [153]"     4-SCREW THE LEADER CARDS"
  428. 6020 [153]"     2-DOUBLE TROUBLE DOUBLE CARDS"
  429. 6021 [153]"DEF     <HIT ANY KEY TO CONTINUE>"
  430. 6022 [161]Q$:[139]Q$[178]""[167]6022
  431. 6024 [153]"LOADRULE 1: YOU MUST TURN OVER A CARD BEFORE        EACH TURN AND AFTER EACH 'FILL'.";
  432. 6025 [153]"RULE 2: YOU MUST SCORE EVERY TIME YOU           TOSS THE DICE."
  433. 6026 [153]"RULE 3: AFTER EACH TOSS YOU MUST REMOVE         SOME OR ALL OF THE SCORING DICE."
  434. 6027 [153]"IF YOU CAN CONTINUE TO SCORE ON EVERY   TOSS OF THE DICE, AND YOU EVENTUALLY SETASIDE ALL SIX DICE, YOU HAVE SCORED A   FILL."
  435. 6028 [153]"AFTER SCORING A 'FILL', YOU CAN DECIDE  TO TAKE THE POINTS SCORED DURING THAT   TURN AND ADD THEN TO YOUR SCORE, ENDING"
  436. 6029 [153]"YOUR TURN. OR, YOU CAN TAKE A CHANCE ANDTRY TO SCORE MORE POINTS BY TURNING OVER"
  437. 6030 [153]"ONANOTHER DRAW CARD AND START BY TOSSING  ALL SIX DICE AGAIN."
  438. 6031 [153]"THERE IS NO LIMIT TO THE NUMBER OF FILLSTHAT MAY BE SCORED IN A TURN."
  439. 6032 [161]Q$:[139]Q$[178]""[167]6032
  440. 6033 [153]"LOADIF ON ANY TOSS YOU DO NOT SCORE, THAT   TOSS IS A 'BUST'.
  441. 6034 PRINT"WHEN YOU BUST DURING A TURN, YOU LOSE   ALL THE POINTS YOU SCORED IN THAT TURN. YOU DO NOT LOSE ANY POINTS THAT WERE"
  442. 6035 PRINT"ALREADY ADDED TO YOUR SCORE."
  443. 6036 PRINT"AFTER A BUST, YOUR TURN ENDS."
  444. 6037 PRINT"   1 FIVE   = 50 PTS.                      1 ONE    = 100 PTS."
  445. 6038 PRINT"   3 ONES   = 1000 PTS.                    3 TWOS   = 200 PTS.                     3 THREES = 300 PTS."
  446. 6039 PRINT"   3 FOURS  = 400 PTS.                     3 FIVES  = 500 PTS.                     3 SIXES  = 600 PTS."
  447. 6040 PRINT"   STRAIGHT = 1500 PTS."
  448. 6041 PRINT"A STRAIGHT IS A 1,2,3,4,5,6 ON A SINGLE TOSS."
  449. 6042 GETQ$:IFQ$=""THEN6042
  450. 6043 PRINT"[147][154]BONUS 300,400,500: YOU WILL RECEIVE THATAMOUNT OF POINTS ONLY IF YOU SCORE A    FILL. YOU HAVE THE OPTION TO STOP BEFORE";
  451. 6044 PRINT"MAKING THE FILL BUT YOU DON'T COLLECT   THE BONUS POINTS."
  452. 6045 PRINT"WHEN YOU DRAW A '[154]NO DICE' CARD YOU LOSE YOUR TURN. IF YOU DRAW THIS CARD AFTER A";
  453. 6046 PRINT"FILL DURING THAT SAME TURN THEN YOU LOSEALL THE POINTS COLLECTED THAT TURN."
  454. 6047 PRINT"[154]FILL 1000: YOU MUST SCORE A FILL. IF YOUSCORE A FILL THEN YOU RECEIVE 1000 PTS."
  455. 6048 PRINT"[154]MUST BUST: YOU KEEP TOSSING THE DICE TILYOU BUST. YOU RECEIVE ALL THOSE POINTS  AND YOUR TURN ENDS."
  456. 6049 PRINT"[154]DOUBLE TROUBLE DOUBLE: YOU MUST SCORE 2 CONSECUTIVE FILLS. NO OPTION TO STOP. IF";
  457. 6050 PRINT"YOU SUCCEED THEN YOU SCORE DOUBLE THE   POINTS YOU COLLECTED THAT TURN. YOU MAY";
  458. 6051 PRINT" CONTINUE YOUR TURN WITHOUT LOSING THOSE POINTS."
  459. 6052 GETQ$:IFQ$=""THEN6052
  460. 6053 PRINT"[147][154]SCREW THE LEADER: YOU HAVE THE OPTION TOPLAY THIS CARD.YOU MUST SCORE A FILL. IFYOU SUCCEED THEN THE LEADER IS DEDUCTED"
  461. 6054 PRINT"2500 PTS. IF THE LEADER'S SCORE FALLS   BELOW 0 THEN IT BECOMES 0. ANYONE TIED"
  462. 6055 PRINT"WITH THE LEADER IS ALSO AFFECTED. YOU   MAY CONTINUE WITHOUT LOSING THE POINTS  YOU SCORED."
  463. 6060 PRINT"NOTE: THE LUCK OF THE TOSS IS NOT THE         ONLY FACTOR IN DETERMINING THE          WINNER.";
  464. 6061 PRINT"YOU MAY WANT TO REFUSE LOW       SCORES LIKE 50 AND KEEP ONLY 100'S      OR YOU MAY THINK";
  465. 6062 PRINT" ABOUT 'BURNING'        CARDS TO GET TO THE SCREW CARD.         THERE ARE A LOT OF STRATEGIES.";
  466. 6063 PRINT"          I HOPE YOU ENJOY THE GAME.":PRINT:PRINT"[150]                    CHESSDUDE"
  467. 6065 PRINT"[158]WANT TO REREAD THE RULES ? (Y/N)"
  468. 6066 GETQ$:IFQ$=""THEN6066
  469. 6067 IFQ$<>"Y"ANDQ$<>"N"THEN6066
  470. 6068 IFQ$="Y"THENGOTO6005
  471. 6069 IFQ$="N"THENRETURN
  472. 7000 INPUT"SCORE GOAL ";GL
  473. 7001 IFGL<0THENPRINT"[145]":GOTO7000
  474. 7002 IFGL-INT(GL)<>0THENPRINT"[145]":GOTO7000
  475. 7003 RETURN
  476. 8000 GOSUB8300
  477. 8001 FORJ=1TO10
  478. 8002 PRINT"[150]GAME OVER!  "NA$(P)" WON!!![146]         "
  479. 8003 FORI=1TO75:NEXTI
  480. 8004 PRINT"                                       "
  481. 8005 FORI=1TO300:NEXTI
  482. 8006 NEXTJ
  483. 8010 PRINT"[158]"TAB(17)"PLAY AGAIN ? (Y/N)      ":PRINT""TAB(17)"                     ":PRINT"[145]"TAB(17)NA$(P)" WON!!!"
  484. 8011 GETQ$:IFQ$=""THEN8011
  485. 8012 IFQ$<>"Y"ANDQ$<>"N"THEN8011
  486. 8013 IFQ$="Y"THENRUN
  487. 8014 IFQ$="N"THENPRINT"[147]":END
  488. 8020 PRINT"GOAL:"GL
  489. 8021 RETURN
  490. 8100 PRINT""TAB(17)"STRAIGHT![146]"
  491. 8102 FORI=1TO500:NEXTI
  492. 8106 RETURN
  493. 8200 FORJ=1TO5
  494. 8201 FORI=1TO100:NEXTI
  495. 8203 PRINT""TAB(17)"                    "
  496. 8204 FORI=1TO150:NEXTI
  497. 8205 PRINT""TAB(17)"FILL![146]                "
  498. 8206 NEXTJ
  499. 8207 FORI=1TO100:NEXTI
  500. 8208 PRINT""TAB(17)"                    "
  501. 8209 RETURN
  502. 8300 GOSUB3000
  503. 8310 PRINT"[150]"TAB(17)"POINTS:"PT(P)"   "
  504. 8311 RETURN
  505.