home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SPADES-CARDS-64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.0 KB  |  396 lines
  1. 0 POKE53281,1:POKE53280,0:POKE53272,21:PRINT"[147][144]"
  2. 10 REM TWO-HANDED SPADES (IINTRO)
  3. 20 PRINT"[147]";
  4. 30 FORI=1TO41:PRINT"[193]";:NEXT
  5. 40 FORI=2TO23:PRINT"[157][157][193][193]";:NEXT
  6. 50 FORI=2TO40:PRINT"[193]";:NEXT
  7. 60 PRINT"";
  8. 70 PRINT"[146]DO YOU NEED INSTRUCTIONS?"
  9. 80 PRINT"";
  10. 90 PRINT"T[146]WO[146]-H[146]AN[146]DE[146]D [146]SP[146]AD[146]ES[145]";
  11. 100 PRINT"[146]TW[146]O-[146]HA[146]ND[146]ED[146] S[146]PA[146]DE[146]S[145]";
  12. 110 GETD$:IFD$=""THEN90
  13. 120 IFD$="N"THEN520
  14. 130 PRINT"[147]WE DEAL BY ALTERNATELY DRAWING TWO CARDS"
  15. 140 PRINT"EACH, ONE AT A TIME, FROM THE DECK."
  16. 150 PRINT"YOU LOOK AT THE FIRST ONE, AND DECIDE"
  17. 160 PRINT"IF YOU WANT IT.  IF YOU DO, YOU MAY"
  18. 170 PRINT"SEE THE SECOND, BUT YOU CAN'T KEEP IT."
  19. 180 PRINT"IF YOU DON'T WANT THE FIRST ONE, YOU"
  20. 190 PRINT"MUST DECLINE IT BEFORE YOU SEE THE"
  21. 200 PRINT"SECOND ONE, AND YOU MUST KEEP THE"
  22. 210 PRINT"SECOND CARD, EVEN IT YOU DON'T WANT IT."
  23. 220 PRINT"PRESS RETURN TO CONTINUE"
  24. 230 GETW$:IF W$=""GOTO230
  25. 240 PRINT"[147]ACCEPT OR DECLINE THE FIRST CARD BY"
  26. 250 PRINT"TYPING EITHER 'A' OR 'D'."
  27. 260 PRINT"OTHER THAN THIS UNUSUAL DEALING METHOD,"
  28. 270 PRINT"THIS GAME IS PLAYED BY THE RULES OF"
  29. 280 PRINT"REGULAR FOUR-HANDED, CUT-THROAT SPADES."
  30. 290 PRINT"DO YOU KNOW HOW THAT GAME IS PLAYED  N [157][157][157][157]";
  31. 300 INPUTD$:IFD$<>"N"THEN520
  32. 310 PRINT"[147]EACH OF OUR HANDS HAS THIRTEEN CARDS"
  33. 320 PRINT"AFTER WE FINISH DEALING."
  34. 330 PRINT"EACH OF US PLAYS ONE CARD DURING EACH"
  35. 340 PRINT"HAND.  THE FIRST ONE TO PLAY 'LEADS',"
  36. 350 PRINT"AND THE SECOND ONE TO PLAY 'FOLLOWS'."
  37. 360 PRINT"THE ONE WHO FOLLOWS MUST PLAY A CARD"
  38. 370 PRINT"OF THE SAME SUIT OF THE LEAD IF HE"
  39. 380 PRINT"CAN; OTHERWISE, HE CAN PLAY ANY CARD."
  40. 390 PRINT"PRESS RETURN TO CONTINUE"
  41. 400 GETW$:IF W$=""GOTO400
  42. 410 PRINT"[147]IF THE LEAD SUIT IS  FOLLOWED, THE"
  43. 420 PRINT"CARD OF THE HIGHEST RANK WINS THE TRICK."
  44. 430 PRINT"IF THE LEAD SUIT IS NOT FOLLOWED"
  45. 440 PRINT"(BECAUSE THE PLAYER FOLLOWING IS VOID"
  46. 450 PRINT"IN THE LEAD SUIT), THE FOLLOWING CARD"
  47. 460 PRINT"MAY BE EITHER A SPADE (TRUMP CARD) OR
  48. 470 [153]"ANY OTHER CARD.  A TRUMP WOULD TAKE THE"
  49. 480 [153]"TRICK REGARDLESS OF RANK; ANY OTHER"
  50. 490 [153]"SUIT WOULD LOSE THE TRICK."
  51. 500 [153]"PRESS RETURN TO CONTINUE"
  52. 510 [161]W$:[139] W$[178]""[137]510
  53. 520 [131]"(null)","X","(null)","Z","(null)","S","ATN","A"
  54. 530 [131]"2","3","4","5","6","7","8","9","10","J","Q","K","A"
  55. 540 [134]C(4,13),N$(13),S$(4),A$(4)
  56. 550 T9[178][194](59465)[170]1
  57. 560 [129]I1[178]1[164]T9:J1[178][187](1):[130]
  58. 570 [150][165]S(X)[178][181](4[172][187](1))[170]1
  59. 580 [150][165]N(X)[178][181](13[172][187](1))[170]1
  60. 590 R[178]3
  61. 600 [153]"LOADBUTCH HERE.  WHO AM I GOING TO"
  62. 610 [153]"LUMP AT SPADES TODAY  SIN CMDCMDCMDCMD";
  63. 620 [133]N$
  64. 630 [153]"LOADLET'S START THE DEALING, ";N$;"."
  65. 640 [153]"TYPE 'A' TO ACCEPT THE CARD OR"
  66. 650 [153]"'D' TO DECLINE."
  67. 660 [153]""
  68. 670 [129]I[178]1[164]4
  69. 680 [135]S$(I),A$(I)
  70. 690 [130]I
  71. 700 [129]I[178]1[164]13
  72. 710 [135]N$(I)
  73. 720 [130]I
  74. 730 [129]I[178]1[164]4
  75. 740 [129]J[178]1[164]13
  76. 750 [139]C(I,J)[178]0[167]790
  77. 760 [130]J
  78. 770 [130]I
  79. 780 [137]1330
  80. 790 [141]810:[153]
  81. 800 [137]930
  82. 810 T9[178]TI
  83. 820 N[178][165]N(X)
  84. 830 S[178][165]S(X)
  85. 840 [139]T9[171]TI[177]60[167]880
  86. 850 [139]C(S,N)[179][177]0[167]820
  87. 860 C(S,N)[178]3
  88. 870 [142]
  89. 880 [129]S[178]1[164]4:[129]N[178]1[164]13
  90. 890 [139]C(S,N)[178]0[167]860
  91. 900 [130]N:[130]S
  92. 910 [153]"OUT OF CARDS ERROR"
  93. 920 [144]
  94. 930 P9[178]P9[170]1
  95. 940 [139]P9[178]1[167]970
  96. 950 [139]TI[171]P8[179]180[167]950
  97. 960 [153]"LOAD
  98. 970 PRINT"CARD PAIR NUMBER";P9
  99. 980 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  100. 990 [153]"CARD:  ";N$(N);" OF ";S$(S)
  101. 1000 [153]"A/D  D CMDCMDCMDCMD";
  102. 1010 [133]D$
  103. 1020 P8[178]TI
  104. 1030 [139]D$[178]"A"[167]1080
  105. 1040 [139]D$[178]"D"[167]1280
  106. 1050 [153]"ACCEPT--TYPE 'A',"
  107. 1060 [153]"DECLINE--TYPE 'D'."
  108. 1070 [137]1000
  109. 1080 [143] ACCEPT(HUMAN)
  110. 1090 C(S,N)[178]1
  111. 1100 [141]810
  112. 1110 C(S,N)[178]3
  113. 1120 [153]"DECLINED CARD:  ";N$(N);" OF ";S$(S)
  114. 1130 [143] DEAL&EVAL(COMP)
  115. 1140 [141]810
  116. 1150 [139]S[179]4[167]1190
  117. 1160 C(S,N)[178]2
  118. 1170 [141]810:C(S,N)[178]3
  119. 1180 [137]730
  120. 1190 [139]N[177]9[167]1240
  121. 1200 [143] DECLINE(COMP)
  122. 1210 C(S,N)[178]3:[141]810
  123. 1220 C(S,N)[178]2
  124. 1230 [137]730
  125. 1240 C(S,N)[178]2
  126. 1250 [143] ACCEPT(COMP)
  127. 1260 [141]810:C(S,N)[178]3
  128. 1270 [137]730
  129. 1280 [143] DECLINE(HUMAN)
  130. 1290 C(S,N)[178]3:[141]810
  131. 1300 C(S,N)[178]1
  132. 1310 [153]"ACCEPTED CARD:  "N$(N);" OF ";S$(S)
  133. 1320 [137]1140
  134. 1330 [141]1380
  135. 1340 [137]1570
  136. 1350 [143] PRINTHAND W/BOX
  137. 1360 T9[178]TI
  138. 1370 [139]TI[171]T9[179]180[137]1370
  139. 1380 [153]"LOAD":[141]1550
  140. 1390 [129]I1[178]1[164]40:[153]"TO";:[130]I1
  141. 1400 [129]I1[178]1[164]14:[153]"FN","FN","FN","FN        THEN";:[130]I1
  142. 1410 [129]I1[178]1[164]40:[153]"TAB(";:[130]I1
  143. 1420 [153]"CLUBS","DIAMONDS","HEARTS","SPADES"
  144. 1430 [141]1460
  145. 1440 [153]
  146. 1450 [142]
  147. 1460 [153]"";
  148. 1470 [129]J1[178]1[164]13:[129]I1[178]1[164]4
  149. 1480 [139]C(I1,J1)[178]1[167]1510
  150. 1490 [153],
  151. 1500 [137]1520
  152. 1510 [153]"";N$(J1);" OF ";S$(I1),
  153. 1520 [130]I1
  154. 1530 [130]J1
  155. 1540 [142]
  156. 1550 [153]"STATUS:";N$;B1;"/";C1;[163]26);"BUTCH";B2;"/";C
  157. 1560 [142]
  158. 1570 H8[178]0:H7[178]0
  159. 1580 [139]H9[173]2[178][181](H9[173]2)[167]1620
  160. 1590 [153]"MY TURN TO BID FIRST."
  161. 1600 H7[178]1
  162. 1610 [137]1730
  163. 1620 [153]"YOU BID FIRST, ";N$;"."
  164. 1630 [153]"HOW MANY TRICKS WILL YOU TRY FOR";
  165. 1640 [133]B1
  166. 1650 [139]B1[177]0[167]1680
  167. 1660 [153]"YOU HAVE TO BID AT LEAST ONE, ";N$;"."
  168. 1670 [137]1630
  169. 1680 [139]B1[179]14[167]1710
  170. 1690 [153]"THERE ARE ONLY THIRTEEN TRICKS, CUTIE."
  171. 1700 [137]1630
  172. 1710 H8[178]H8[170]1
  173. 1720 [139]H8[177]1[167]1970
  174. 1730 [143] BIDDING
  175. 1740 [129]I[178]1[164]4
  176. 1750 [129]J[178]10[164]13
  177. 1760 [139]C(I,J)[179][177]2[167]1780
  178. 1770 T[178]T[170]1
  179. 1780 [130]J
  180. 1790 [129]J[178]1[164]9
  181. 1800 [139]C(I,J)[179][177]2[167]1820
  182. 1810 T1[178]T1[170]1
  183. 1820 [130]J
  184. 1830 [139]T1[170]T[177]0[167]1860
  185. 1840 B2[178]B2[170]2
  186. 1850 [137]1900
  187. 1860 [139]T1[171]T[178]0[167]1890
  188. 1870 B2[178]B2[170]T
  189. 1880 [137]1900
  190. 1890 B2[178]B2[170]T[171]1
  191. 1900 T1[178]0:T[178]0
  192. 1910 [130]I
  193. 1920 [139]B2[177]0[167]1940
  194. 1930 B2[178]1
  195. 1940 [153]"I'LL BID";B2;"."
  196. 1950 H8[178]H8[170]1
  197. 1960 [139]H8[179][178]1[167]1630
  198. 1970 [139]B1[170]B2[179]14[167]2010
  199. 1980 [153]B1[170]B2;"TRICKS HAVE BEEN BID FOR!"
  200. 1990 [153]"SOMEONE'S GONNA GET SET, AND IT AIN'T"
  201. 2000 [153]"GONNA BE ME!"
  202. 2010 T9[178]TI
  203. 2020 [139]TI[171]T9[179]240[167]2020
  204. 2030 [153]"";
  205. 2040 [129]I1[178]1[164]7
  206. 2050 [153]"                                       "
  207. 2060 [130]
  208. 2070 [153]"                                        "
  209. 2080 [141]1550
  210. 2090 [153]"";
  211. 2100 [137]2140
  212. 2110 T9[178]TI
  213. 2120 [139]TI[171]T9[179]240[167]2120
  214. 2130 [141]1350
  215. 2140 [139]H7[178]1[167]2960
  216. 2150 [153]"YOUR LEAD";
  217. 2160 [133]L$
  218. 2170 M$[178][201](L$,1)
  219. 2180 [139][200](L$,2)[179][177]"10"[167]2200
  220. 2190 L$[178][200](L$,2):[137]2210
  221. 2200 L$[178][200](L$,1)
  222. 2210 [129]N[178]1[164]13
  223. 2220 [139]N$(N)[178]L$[167]2270
  224. 2230 [130]N
  225. 2240 [153]"USE THIS FORMAT FOR ENTRY: RANKSUITWAIT."
  226. 2250 [153]"EXAMPLE:  K(null)"
  227. 2260 [137]2110
  228. 2270 [129]S[178]1[164]4
  229. 2280 [139]M$[178]S$(S)[167]2320
  230. 2290 [139]M$[178]A$(S)[167]2320
  231. 2300 [130]S
  232. 2310 [137]2240
  233. 2320 [153]"ON";N$(N);" OF ";S$(S);"                    "
  234. 2330 [139]C(S,N)[178]1[167]2380
  235. 2340 [153]"CHEATERS NEVER WIN, ";N$;"."
  236. 2350 [153]"YOU DON'T HOLD THE ";N$(N);" OF ";S$(S);"."
  237. 2360 [137]2110
  238. 2370 [143] REPLY
  239. 2380 C(S,N)[178]4:Z[178]0
  240. 2390 [139]S[179]4[167]2510
  241. 2400 [139]L5[178]1[167]2510
  242. 2410 [129]I[178]1[164]3
  243. 2420 [129]J[178]1[164]13
  244. 2430 [139]C(I,J)[178]1[167]2480
  245. 2440 [130]J
  246. 2450 [130]I
  247. 2460 [153]"SO,ALL YOU HAVE LEFT IS SPADES.":[153]"BAD NEWS FOR BUTCH!"
  248. 2470 [137]2510
  249. 2480 [153]"ATN'S HAVE TO BE BROKEN, ";N$;". THEY
  250. 2490 PRINT"CAN'T BE LED UNTIL A TRUMP IS PLAYED.
  251. 2500 C(4,N)[178]1:[137]2140
  252. 2510 [129]I[178]N[170]1[164]13
  253. 2520 [139]N[178]13[167]2550
  254. 2530 [139]C(S,I)[178]2[167]2600
  255. 2540 [130]I
  256. 2550 Z[178]1
  257. 2560 [129]I[178]1[164]N
  258. 2570 [139]C(S,I)[178]2[167]2600
  259. 2580 [130]I
  260. 2590 [137]2800
  261. 2600 [153]"MY PLAY:  ";N$(I);" OF ";S$(S)
  262. 2610 C(S,I)[178]4
  263. 2620 [139]Z[178]1[167]2710
  264. 2630 [153]"MY TRICK."
  265. 2640 C[178]C[170]1
  266. 2650 [129]I[178]1[164]4
  267. 2660 [129]J[178]1[164]13
  268. 2670 [139]C(I,J)[178]2[167]2960
  269. 2680 [130]J
  270. 2690 [130]I
  271. 2700 [137]3600
  272. 2710 [153]"YOUR TRICK."
  273. 2720 C1[178]C1[170]1
  274. 2730 [129]I[178]1[164]4
  275. 2740 [129]J[178]1[164]13
  276. 2750 [139]C(I,J)[178]2[167]2130
  277. 2760 [130]J
  278. 2770 [130]I
  279. 2780 [137]3600
  280. 2790 [143] TRUMP
  281. 2800 [129]I[178]1[164]13
  282. 2810 [139]C(4,I)[179][177]2[167]2860
  283. 2820 L5[178]1
  284. 2830 S[178]4
  285. 2840 Z[178]0
  286. 2850 [137]2600
  287. 2860 [130]I
  288. 2870 [143] OUTOFTRUMPS
  289. 2880 [129]I[178]1[164]13
  290. 2890 [129]J[178]1[164]4
  291. 2900 [139]C(J,I)[178]2[167]2930
  292. 2910 [130]J
  293. 2920 [130]I
  294. 2930 S[178]J
  295. 2940 Z[178]1
  296. 2950 [137]2600
  297. 2960 [143] LEAD
  298. 2970 [139]H7[179][177]1[167]3060
  299. 2980 T9[178]TI
  300. 2990 [139]TI[171]T9[179]240[167]2990
  301. 3000 [153]"";
  302. 3010 [129]I1[178]1[164]7:[129]J1[178]1[164]39
  303. 3020 [153]" ";:[130]J1:[153]:[130]I1
  304. 3030 [141]1550
  305. 3040 [153]"";
  306. 3050 H7[178]0:[137]3090
  307. 3060 T9[178]TI
  308. 3070 [139]TI[171]T9[179]240[167]3070
  309. 3080 [141]1350
  310. 3090 [139]L5[178]0[167]3110
  311. 3100 R[178]4
  312. 3110 [129]I[178]13[164]1[169][171]1
  313. 3120 [129]J[178]1[164]R
  314. 3130 [139]C(J,I)[178]2[167]3190
  315. 3140 [130]J
  316. 3150 [130]I
  317. 3160 [153]"YOU'RE DEAD. ALL I'VE GOT IS SPADES."
  318. 3170 L5[178]1
  319. 3180 [137]3100
  320. 3190 [153]"MY LEAD:  ";N$(I);" OF ";S$(J)
  321. 3200 C(J,I)[178]4
  322. 3210 [153]"YOUR CARD";
  323. 3220 [133]L$
  324. 3230 [139][195](L$)[178]1[167]3250
  325. 3240 [139]L$[179][177]"10"[167]3260
  326. 3250 L$[178]L$[170]S$(J)
  327. 3260 M$[178][201](L$,1)
  328. 3270 [139][200](L$,2)[179][177]"10"[167]3290
  329. 3280 L$[178][200](L$,2):[137]3300
  330. 3290 L$[178][200](L$,1)
  331. 3300 [129]N[178]1[164]13
  332. 3310 [139]N$(N)[178]L$[167]3360
  333. 3320 [130]N
  334. 3330 [153]"THE FORMAT FOR CARD ENTRY IS: RANKSUITWAIT."
  335. 3340 [153]"EXAMPLE: 7(null)"
  336. 3350 [137]3210
  337. 3360 [129]S[178]1[164]4
  338. 3370 [139]S$(S)[178]M$[167]3420
  339. 3380 [139]A$(S)[178]M$[167]3420
  340. 3390 [130]S
  341. 3400 L$[178]M$
  342. 3410 [137]3330
  343. 3420 [153]"ON";N$(N);" OF ";S$(S);"               "
  344. 3430 [139]C(S,N)[178]1[167]3470
  345. 3440 [153]"NO FAIR.  PLAY CARDS FROM YOUR"
  346. 3450 [153]"HAND, ";N$;"."
  347. 3460 [137]3210
  348. 3470 C(S,N)[178]4
  349. 3480 [139]S[179][177]J[167]3510
  350. 3490 [139]N[177]I[167]2710
  351. 3500 [137]2630
  352. 3510 [129]Q[178]1[164]13
  353. 3520 [139]C(J,Q)[179][177]1[167]3560
  354. 3530 [153]"YOU STILL HAVE SOME ";S$(J);", YOU CHEATER!"
  355. 3540 C(S,N)[178]1
  356. 3550 [137]3210
  357. 3560 [130]Q
  358. 3570 [139]S[179]4[167]2630
  359. 3580 L5[178]1
  360. 3590 [137]2710
  361. 3600 [139]C1[179]B1[167]3630
  362. 3610 S8[178]B1[172]10[170]C1[171]B1
  363. 3620 [137]3640
  364. 3630 S8[178]B1[172]([171]10)
  365. 3640 T9[178]TI
  366. 3650 [139]TI[171]T9[179]180[167]3650
  367. 3660 S1[178]S1[170]S8
  368. 3670 [153]"LOADTHE SCORE NOW STANDS:"
  369. 3680 [153]"";[163]12);"BID";[163]17);"#TRICKS";[163]26);"SCORE";[163]34);"TOTAL"
  370. 3690 [153]"";N$;[163]12);B1;[163]19);C1;[163]27);S8;[163]34);S1
  371. 3700 [139]C[179]B2[167]3730
  372. 3710 S9[178]B2[172]10[171]B2[170]C
  373. 3720 [137]3740
  374. 3730 S9[178]B2[172]([171]10)
  375. 3740 S2[178]S2[170]S9
  376. 3750 [153]"BUTCH";[163]12);B2;[163]19);C;[163]27);S9;[163]34);S2
  377. 3760 [153]"CARE TO PLAY ANOTHER HAND  Y CMDCMDCMDCMD";
  378. 3770 [133]D$
  379. 3780 [139]D$[179][177]"N"[167]3850
  380. 3790 [153]"LOADIT'S BEEN A PLEASURE."
  381. 3800 [153]"WE MUST PLAY AGAIN SOMETIME!"
  382. 3810 T9[178]TI
  383. 3820 [139]TI[171]T9[179]180[167]3820
  384. 3830 [153]"LOAD"
  385. 3840 [128]
  386. 3850 [129]I[178]1[164]4
  387. 3860 [129]J[178]1[164]13
  388. 3870 C(I,J)[178]0
  389. 3880 [130]J
  390. 3890 [130]I
  391. 3900 J[178]0:K[178]0:B2[178]0:T[178]0:T1[178]0:Z[178]0:C[178]0:C1[178]0:B1[178]0:P9[178]0
  392. 3910 L5[178]0:R[178]3
  393. 3920 H9[178]H9[170]1
  394. 3930 [153]"LOADOKAY, LET'S DEAL."
  395. 3940 [137]730
  396.