home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / TOUGH.SDA / TOUGH (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  6.0 KB  |  183 lines
  1. 0 REM HS DISK 11 S1
  2. 100 POKE53280,15:POKE53281,15:PRINT"[147][142]"
  3. 110 CLR:RESTORE:PRINT"[147]    SHUFFLE... SHUFFLE... SHUFFLE...
  4. 112 [153]"     TOUGH ...  TOUGH ...  TOUGH ...":SZ[178]54272
  5. 115 [139][194](14850)[179][177]24[167][141]1440
  6. 120 DN$[178]"":OV$[178]""
  7. 130 ER$[178]""
  8. 140 BK$[178]"(null)(null)(null)(null)CMDCMDCMDCMD(null)RNDLOG(null)":BL$[178]"    CMDCMDCMDCMD    ":[151]53272,31
  9. 150 B2$[178]"                             "
  10. 160 [134] CD$(52):C$(0)[178]"":C$(1)[178]"POKE":C$(2)[178]"":C$(3)[178]"POKE":CD$(0)[178]BL$
  11. 170 [129]X[178]0[164]3:[129]Y[178]1[164]13
  12. 180 CD$(X[172]13[170]Y)[178]C$(X)[170]"(null)"[170][199](95[170]Y)[170][199](109[170]X)[170]"(null)CMDCMDCMDCMD(null)"[170][199](173[170]X)[170][199](159[170]Y)[170]"(null)"
  13. 190 [130]Y,X
  14. 200 [134]DK(52),ST(24),LY(7,20),UC(7),TP(7):[129]X[178]1[164]52:DK(X)[178]X:[130]
  15. 210 [150][165]R(Z)[178][181](52[172][187](Z))[170]1
  16. 220 [150][165]SU(X)[178][181](X[173]13.1)[170]1:[150][165]VL(X)[178]X[171]13[172]([165]SU(X)[171]1)
  17. 230 [150][165]SC(X)[178](X[173]2[178][181](X[173]2))
  18. 240 GZ[178]1:[139]TT[179][178]0[167]TT[178]600
  19. 250 BT[178][181]((TT[170]51)[173]52)[170]10:[139]GZ[177]2[167]1410
  20. 260 [141]870:[141]880
  21. 270 [153]"POKELOAD #1  #2  #3  #4  #5  #6  #7PILEWAITPOKE"
  22. 280 [153]OV$"F2=DEAL CMDCMDCMDCMDCMDAGAIN":[153]OV$"F8=QUIT "
  23. 290 [153]"DWAITPOKEECK  SWAITPOKETACK  SCORE:WAITPOKE":[153]"  BET:WAITPOKE"
  24. 300 [153]"FROM:POKE      TO:POKE";
  25. 310 [153]""OV$"HEARTSCMDCMDCMDCMDCMDCMDPOKESPADESCMDCMDCMDCMDCMDCMDDIAMONDSCMDCMDCMDCMDCMDCMDCMDCMDPOKE";
  26. 320 [153]"CLUBS":NB[178][171]1:[141]1120:NB[178]0
  27. 330 [129]X[178]1[164]7:[153]""[200](DN$,X)[200](OV$,X[172]4[171]4);:[129]Y[178]X[164]7:[139]Y[178]X[167]350
  28. 340 [153]BK$"ON";:[137]360
  29. 350 [153]CD$(LY(X,X))"ON";
  30. 360 [130]Y:[130]X
  31. 370 [153]""OV$"";:[129]X[178]1[164]4:[153]BK$"CMDCMDCMDCMD";:[130]:[153]
  32. 380 [141]900
  33. 390 [141]940:[139]QU[167]1410
  34. 400 [153]"ONONONONON":[129]X[178]1[164]5:[153]B2$:[130]:TT[178]TT[171]52[172]BG:[141]1120
  35. 410 [143] *** MAIN LOOP
  36. 420 GW[178]0:GM[178][171]1:M1[178]1
  37. 430 ED[178]0:[141]1140:[139]ED[167][153]"LOAD":[137]240
  38. 440 [139]QU[167]1410
  39. 450 [139]GW[167]1320
  40. 460 GM[178]0:[141]470:[137]430
  41. 470 [139]M1[177][171]1[167]500
  42. 480 [139]DP[178]0[167][142]
  43. 490 SP[178]SP[170]1:ST(SP)[178]DK(DP):DP[178]DP[171]1:[153]""DN$"ONON";:[141]900:GM[178][171]1:[142]
  44. 500 [139]M1[178]0[167]C1[178]ST(SP):C3[178]C1:[137]520
  45. 510 C1[178]LY(M1,UC(M1)[170]1):C3[178]LY(M1,TP(M1))
  46. 520 [139]M2[177][171]1[167]740
  47. 530 [139]C3[178]0[167][142]
  48. 540 S3[178][165]SU(C3):V3[178][165]VL(C3):[139]V3[171]1[179][177]PL(S3)[167][142]
  49. 550 [139][168]AM[167]630
  50. 560 BM[178]0:[129]X[178]1[164]4:[139][165]SC(X)[178][165]SC(S3)[167]580
  51. 570 [139]V3[177]PL(X)[170]2[167]BM[178][171]1
  52. 580 [130]:[139](M1[177]0)[176](V3[179]3)[167]620
  53. 590 [129]X[178]1[164]7:C4[178]LY(X,UC(X)[170]1):V4[178][165]VL(C4):[139]V4[179][177]V3[171]1[167]610
  54. 600 [139][165]SC(S3)[179][177][165]SC([165]SU(C4))[167]BM[178][171]1
  55. 610 [130]
  56. 620 [139]BM[167][142]
  57. 630 [139]M1[178]0[167]690
  58. 640 C[178]M1:[141]1310:[139]TP(M1)[178]1[167][153]BL$:TP(M1)[178]0:[137]720
  59. 650 [139]TP(M1)[178]1[167][153]BL$:TP(M1)[178]0:[137]680
  60. 660 TP(M1)[178]TP(M1)[171]1:[153]BL$"CMDCMDCMDCMDONON"CD$(LY(M1,TP(M1)));
  61. 670 [139]TP(M1)[178]UC(M1)[167]UC(M1)[178]UC(M1)[171]1
  62. 680 [137]720
  63. 690 [141]1330
  64. 700 [143]***SCORES TO PILE
  65. 720 [153]""OV$[200](DN$,S3[172]4[171]3)CD$(C3):PL(S3)[178]V3:TT[178]TT[170]25[172]BG:MU[178][171]1
  66. 730 [141]1412:TQ[178]0:[129]Q[178]1[164]4:TQ[178]TQ[170]PL(Q):[130]:GW[178](TQ[178]52):GM[178][171]1:[142]
  67. 740 C2[178]LY(M2,TP(M2)):S1[178][165]SC([165]SU(C1)):S2[178][165]SC([165]SU(C2))
  68. 750 V1[178][165]VL(C1):V2[178][165]VL(C2):[139](V1[178]13)[175](V2[178]0)[167]770
  69. 760 [139](S1[178]S2)[176](V1[170]1[179][177]V2)[167][142]
  70. 770 [139]M1[177]0[167]790
  71. 780 [141]1330:LY(M2,TP(M2)[170]1)[178]C1:NC[178]1:[137]850
  72. 790 NC[178]TP(M1)[171]UC(M1):C[178]M1:[153]""[200](DN$,UC(C)[170]1)[200](OV$,C[172]4[171]4);
  73. 800 [143]*****MOVES CARD FROM ONE ROW TO ANOTHER
  74. 810 [129]X[178]1[164]NC:[153]BL$"CMDCMDCMDCMD";:LY(M2,TP(M2)[170]X)[178]LY(M1,UC(M1)[170]X):[130]
  75. 820 TP(M1)[178]UC(M1):UC(M1)[178]UC(M1)[171]1[171](UC(M1)[178]0)
  76. 830 [143]*****PRINTS NEW CARD IN ROW
  77. 840 [139]TP(M1)[177]0[167][141]1310:[153]CD$(LY(M1,TP(M1)));
  78. 850 C[178]M2:[141]1310:[153]"";:[129]X[178]1[164]NC:[153]CD$(LY(M2,TP(M2)[170]X))"CMDCMDCMDCMD";:[130]
  79. 860 TP(M2)[178]TP(M2)[170]NC:GM[178][171]1:TT[178]TT[170](BT[172]2):[141]1120:[142]
  80. 870 [129]X[178]1[164]52:A[178][165]R(0):S[178]DK(A):DK(A)[178]DK(X):DK(X)[178]S:[130]:DP[178]52:[142]
  81. 880 [129]X[178]1[164]7:[129]Y[178]X[164]7:LY(Y,X)[178]DK(DP):DP[178]DP[171]1:[130]Y:TP(X)[178]X:UC(X)[178]X[171]1:[130]X
  82. 890 ST(1)[178]DK(DP):DP[178]DP[171]1:SP[178]1:[129]X[178]1[164]4:PL(X)[178]0:[130]:[142]
  83. 900 [153]""DN$"ON"BK$"ON"CD$(ST(SP))
  84. 910 [143]*****END OF ROUND
  85. 920 [139]DP[178]0[167][153]"LOAD   END OF ROUND"GZ"  SCORE:"TT:[141]1810:GZ[178]GZ[170]1:[137]250
  86. 930 [153]"POKE"DP"CMD ";[163]6)SP"CMD ";:[142]
  87. 940 [153]"POKE PLEASE ENTER YOUR BET"
  88. 950 [153]" MAXIMUM BET =POKE"BT
  89. 960 [153]"POKE PRESS POKEF1 TO BET IT ALL"
  90. 970 [153]" PRESS POKEF7 TO RE-SHUFFLE"
  91. 980 [153]" ->        CMDCMDCMDCMDCMDCMDCMDPOKE_CMD";:N[178]0:BG[178]0:B$[178]""
  92. 990 [161]A$:[139]A$[178]""[167]990
  93. 1000 [139](A$[178][199](133))[175](N[178]0)[167]BG[178]BT:[142]
  94. 1010 [139](A$[178][199](136))[175](N[178]0)[167]1090
  95. 1020 [139](A$[178][199](140))[175](N[178]0)[167]QU[178][171]1:[142]
  96. 1030 [139]A$[179][177][199](13)[167]1060
  97. 1040 BG[178][197](B$):[139][168]((BG[178]0)[176](BG[177]BT))[167][142]
  98. 1050 [153]:[153]"ON            ":[137]940
  99. 1060 [139](A$[179]":")[175](A$[177]"/")[175](N[179]11)[167]B$[178]B$[170]A$:N[178]N[170]1:[153]A$"_CMD";:[137]990
  100. 1070 [139](A$[178][199](20))[175](N[177]0)[167]N[178]N[171]1:[153]" CMDCMD_CMD";:B$[178][202](B$,1,N)
  101. 1080 [137]990
  102. 1090 [153]"SHUFFLEWAITPOKE":[141]870:[141]880
  103. 1100 [153]"";:[129]X[178]1[164]7:[153]CD$(LY(X,X));:[130]
  104. 1110 [153]:[153]""CD$(ST(SP)):[137]940
  105. 1120 [153]"POKE"DN$[163]19)"       "
  106. 1122 [153]"POKE"DN$[163]19)TT"CMD ":[139]NB[167][142]
  107. 1130 [153][163]19)BG:[142]
  108. 1140 [139][168]GM[167][141]1415:[137]1190
  109. 1150 AM[178][171]1:M2[178][171]1:[139]M1[177]0[167]MU[178]0:[129]Z[178]1[164]7:M1[178]Z:[141]470:[130]
  110. 1160 M1[178]0:[141]470
  111. 1170 [139]MU[167]M1[178]1:[137]1150
  112. 1180 AM[178]0:[139]GW[167][142]
  113. 1190 [153]ER$"YOUR MOVE!WAIT"
  114. 1195 [153]"POKE"DN$"          CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  115. 1200 [161]A$:[139]A$[178]""[167]1200
  116. 1205 [153]ER$"           ":[153]"";
  117. 1210 [139](A$[177]"0")[175](A$[179]"8")[167]M1[178][197](A$):[153]A$"";:[137]1270
  118. 1220 [139]A$[178][199](137)[167]ED[178][171]1:[142]
  119. 1230 [139]A$[178]"D"[167]M1[178][171]1:[153]"DECK";:[142]
  120. 1240 [139]A$[178]"S"[167]M1[178]0:[153]"STACK";:[137]1270
  121. 1250 [139]A$[178][199](140)[167]QU[178][171]1:[142]
  122. 1260 [137]1200
  123. 1270 [161]A$:[139]A$[178]""[167]1270
  124. 1275 [141]3040
  125. 1280 [139](A$[177]"0")[175](A$[179]"8")[167]M2[178][197](A$):[153]A$;:[142]
  126. 1290 [139](A$[178]"P")[176](A$[178]"F")[167]M2[178][171]1:[153]"PILE";:[142]
  127. 1300 [137]1190
  128. 1310 [153]""[200](DN$,TP(C))[200](OV$,C[172]4[171]4);:[142]
  129. 1320 TT[178]TT[170]740[172]BG:[153]"LOADYOU WON!":[137]250
  130. 1330 SP[178]SP[171]1:[139]SP[178]0[175]DP[177]0[167]SP[178]1:ST(SP)[178]DK(DP):DP[178]DP[171]1
  131. 1340 [141]900:[142]
  132. 1410 [153]"LOADPOKEEND OF GAME!  YOUR FINAL SCORE:"TT:[153]"BYE!":[128]
  133. 1412 [153]ER$"* SCORE! WAIT*":[141]3060:[141]1120:[141]1810
  134. 1413 [153]ER$"               ":[142]
  135. 1415 [153]ER$"* TOUGH! WAIT*POKE":[141]3050:TT[178]TT[171](BT[172]4):[141]1120:[141]1810:[137]1413
  136. 1420 [144]
  137. 1440 [129]X[178]828[164]885:[135]A:[151]X,A:[130]:[158]828
  138. 1450 [129]X[178]0[164]16:B[178]14848[170]X[172]8:C[178]15104[170]X[172]8:[129]Y[178]2[164]7:[135]A
  139. 1460 [151]B[170]Y,A:[139]X[177]12[167]A[178]A[173]2
  140. 1470 [151]C[170]Y[171]1[170](X[177]12),A:[130]Y
  141. 1480 [151]B,255:[151]C[170]7,255:[151]B[170]1,0:[151]C[171]6[172](X[177]12),0:[130]X
  142. 1490 [129]X[178]14984[164]15031:[135]A:[151]X,A:[130]
  143. 1500 [129]X[178]15320[164]15335:[135]A:[151]X,A:[130]
  144. 1510 [142]
  145. 1520 [131]169,0,141,14,220,169,51,133,1,169,0,133,251,133,253,169
  146. 1530 [131]208,133,252,169,56,133,254,160,0,177,251,145
  147. 1540 [131]253,230,251,230,253,208,246,165,252,201,215,240,7,230,252,230
  148. 1550 [131]254,76,85,3,169,55,133,1,169,129,141,14,220,96
  149. 1560 [131] 24,60,102,126,102,0
  150. 1570 [131] 60,102,12,48,126,0
  151. 1580 [131] 60,102,12,102,60,0
  152. 1590 [131] 102,102,126,6,6,0
  153. 1600 [131] 126,96,124,6,124,0
  154. 1610 [131] 60,96,124,102,60,0
  155. 1620 [131] 126,6,12,24,24,0
  156. 1630 [131] 60,102,60,102,60,0
  157. 1640 [131] 60,102,62,6,60,0
  158. 1650 [131] 126,24,24,24,24,0
  159. 1660 [131] 30,12,12,108,56,0
  160. 1670 [131] 60,102,102,60,14,0
  161. 1680 [131] 102,108,120,108,102,0
  162. 1690 [131] 108,254,254,124,56,16
  163. 1700 [131] 16,56,124,254,56,124
  164. 1710 [131] 24,60,126,126,60,24
  165. 1720 [131] 56,56,254,254,56,124
  166. 1730 [131] 255,51,102,204,153,51,102,204
  167. 1740 [131] 255,204,102,51,153,204,102,51
  168. 1750 [131] 0,3,3,3,3,3,3,3
  169. 1760 [131] 0,192,192,192,192,192,192,192
  170. 1770 [131] 3,3,3,3,3,3,3,0
  171. 1780 [131] 192,192,192,192,192,192,192,0
  172. 1790 [131] 204,102,51,153,204,102,51,255
  173. 1800 [131] 51,102,204,153,51,102,204,255
  174. 1810 [129]ZX[178]1[164]2500:[130]:[142]
  175. 3040 SZ[178]54272 : [143] DING
  176. 3045 [151]SZ[170]1,30:[151]SZ[170]6,249:[151]SZ[170]4,15:[151]SZ[170]4,17:[151]SZ[170]4,16:[151]SZ[170]24,15
  177. 3046 [129]D[178]1[164]500:[130]:[151]SZ[170]4,0:[142]
  178. 3050 SZ[178]54272 : [143] TOUGH
  179. 3055 [129]T[178]15[164]0[169][171]1:[151]54296,T:[151]54296,0:[130]:[129]T[178]1[164]50:[130]
  180. 3057 [129]T[178]8[164]15:[151]54296,0:[151]54296,T:[130]:[142]:[143]    *  *  HORN
  181. 3060 SZ[178]54272:[129]I[178]0[164]23:[151]SZ[170]I,0:[130]:[151]SZ[170]24,15:[151]SZ[170]2,72:[151]SZ[170]6,244
  182. 3065 [151]SZ[170]1, 8:[151]SZ,75:[151]SZ[170]4,33:[129]D[178]1[164]300:[130]:[151]SZ[170]4,32:[142]
  183.