home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / GOLD-SWAPPERS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.4 KB  |  121 lines
  1. 0 REM  FROM PUBLIC DOMAIN DISK XXCG112 .
  2. 2 REM IMPROVEMENTS OR DETRIMENTS DEC 89        BY WHO ELSE BUT JIM GREEN
  3. 6 POKE53280,15:POKE53281,15
  4. 8 PRINT"[147][142][207][197][183][197][183][197][183][197][183][197][183][197][183][197][183][197][183][197][183][197][197][183][197][183][197][183][197][183][197][183][197][183][197][183][197][183][197][183][197][208]";
  5. 10 PRINT"[199]  [150][209]  [158][167][208][170][208][167]  [170]  [167][208][167][167][167][167][208][167][208][167][208][167][208][167][208][170][208]   [150][209]  [200]";
  6. 12 PRINT"[165] [150][209][158][215][150][209] [158][167][175][167][167][167][160][167][208]  [167][175][167][167][167][167][186][167][186][167][186][170][192][167][186][167][175]  [150][209][158][215][150][209] [167]";
  7. 14 PRINT"[199]  [150][209]  [158][167][186][167][186][167][186][167][186]  [172][186][170][186][186][167][167][167][160][167][160][167][186][167][205][172][186]   [150][209]  [200]";
  8. 16 PRINT"[204][210][175][210][175][210][175][210][175][210][175][210][175][210][175][210][175][210][175][210][210][175][210][175][210][175][210][175][210][175][210][175][210][175][210][175][210][175][210][186]"
  9. 18 PRINT"         NEED INSTRUCTIONS  Y/N
  10. 19 [153]"GAME IS PLAYED BETWEEN YOU AND THE C-64
  11. 20 GETG$:IFG$<>"Y"ANDG$<>"N"THEN20
  12. 22 IFG$="N"THEN 76
  13. 24 PRINT"[151]WELL, YOU SEE, THERE WERE THESE TWO GUYS
  14. 26 [153]"AND EACH HAD FOUR GOLD COINS. BOTH WERE
  15. 28 PRINT"GREEDY AND WANTED ALL OF THEM, SO THEY
  16. 30 [153]"PLAYED THIS GAME. IT IS PLAYED BY
  17. 32 PRINT"MOVING THE GOLD [[158][209][151]] BETWEEN FOUR BOXES.
  18. 34 [153]"EACH BOX STARTS OFF WITH TWO PIECES OF "
  19. 36 [153]"GOLD. IN TURN THE PLAYERS TAKE THE GOLD
  20. 38 PRINT"FROM ONE OF THEIR BOXES AND DISTRIBUTE
  21. 40 [153]"IT COUNTERCLOCKWISE TO THE OTHER
  22. 42 PRINT"THREE BOXES.   PRESS <SPACE>."
  23. 44 GETG$:IFG$<>" "THEN 44
  24. 46 PRINT"[147][151]LOOKS SORTA LIKE THIS -
  25. 48 [153]"   AORTANTAN=TANTAN^B                AORTANTAN=TANTAN^B
  26. 50 PRINT"    [221][158]: [151][221][158]: [151][221]     MOVE GOLD    [221][158]:.[151][221][158]:.[151][221]
  27. 52 [153]"    -TANTAN(null)TANTAN<     LIKE THIS    -TANTAN(null)TANTAN<
  28. 54 PRINT"    [221][158]: [151][221][158]: [151][221]                  [221][158]: [151][221][214] [221]
  29. 56 [153]"   C/TANTAN>TANTANEXPD                C/TANTAN>TANTANEXPD
  30. 58 PRINT"AFTER THAT MOVE BOX D IS EMPTY. THERE
  31. 60 [153]"WILL ALWAYS BE AT LEAST ONE EMPTY BOX,
  32. 62 PRINT"BECAUSE DURING EACH MOVE GOLD CANNOT
  33. 64 [153]"BE PUT BACK INTO THE BOX FROM WHICH
  34. 66 PRINT"IT WAS TAKEN.
  35. 68 [153]"TO WIN THE GAME AND SATISFY YOUR GREED,
  36. 70 PRINT"YOU MUST GET ALL THE GOLD IN ONE OF
  37. 72 [153]"YOUR OWN BOXES.  PRESS <SPACE>.
  38. 74 GETG$:IFG$<>" "THEN 74
  39. 76 DIMB(3),SU(3):DEF FNSP(X)=15+80*(XAND2)+6*(XAND1)
  40. 78 FORI=0TO3:B(I)=2:READSU(I):NEXT
  41. 80 DATA 2,0,3,1
  42. 82 E$="[151]   "
  43. 84 POKE53280,3:POKE53281,3:GOTO 168
  44. 86 POKE53265,11:PRINT"[147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  45. 88 PRINT" [221][158]           GOLD SWAPPERS           [221]"
  46. 90 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  47. 92 PRINT"[144][172][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][187]"
  48. 94 PRINT"[144][167][150][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][144][165]
  49. 96 [153]"THENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN
  50. 98 PRINT"[167][150][214][214][214][214][214][214][214][214][214][214][144][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][150][214][214][214][214][214][214][214][214][214][214][144][165]
  51. 100 [153]"THENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFNA"[166]13)"BSTOPTHENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN
  52. 102 PRINT"[167][150][214][214][214][214][214][214][214][214][214][214][144][165] [176][192][192][192][192][192][178][192][192][192][192][192][174] [144][167][150][214][214][214][214][214][214][214][214][214][214][144][165]
  53. 104 [153]"THENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN (null)     (null)     (null) STOPTHENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN
  54. 106 PRINT"[167][150][214][214][214][214][214][214][214][214][214][214][144][165] [221] [158][209] [209] [221] [158][209] [209] [221] [144][167][150][214][214][214][214][214][214][214][214][214][214][144][165]
  55. 108 [153]"THENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN (null)     (null)     (null) STOPTHENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN
  56. 110 PRINT"[167][150][214][214][214][214][214][214][214][214][214][214][144][165] [171][192][192][192][192][192][219][192][192][192][192][192][179] [144][167][150][214][214][214][214][214][214][214][214][214][214][144][165]
  57. 112 [153]"THENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN (null)     (null)     (null) STOPTHENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN
  58. 114 PRINT"[167][150][214][214][214][214][214][214][214][214][214][214][144][165] [221] [158][209] [209] [221] [158][209] [209] [221] [144][167][150][214][214][214][214][214][214][214][214][214][214][144][165]
  59. 116 [153]"THENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN (null)     (null)     (null) STOPTHENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN
  60. 118 PRINT"[167][150][214][214][214][214][214][214][214][214][214][214][144][165] [173][192][192][192][192][192][177][192][192][192][192][192][189] [144][167][150][214][214][214][214][214][214][214][214][214][214][144][165]
  61. 120 [153]"THENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFNPRINTC"[166]13)"DSTOPTHENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN
  62. 122 PRINT"[167][150][214][214][214][214][214][214][214][214][214][214][144][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][150][214][214][214][214][214][214][214][214][214][214][144][165]
  63. 124 [153]"STOPTHENDEF(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)STOPFN
  64. 126 PRINT"[167][150][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][144][165]"
  65. 128 PRINT"[188][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][190]":POKE53265,27:RETURN
  66. 130 PRINTE$"[151][157]  MOVE STONES FROM CUP (C,D)"
  67. 131 GETS$:IFS$<>"C"ANDS$<>"D"THEN131
  68. 134 GOSUB 224
  69. 136 S=-2*(S$="C")-3*(S$="D")
  70. 138 IFS=0ORB(S)=0THEN130
  71. 140 RETURN
  72. 142 PRINTE$"     NOW IT'S MY TURN          "
  73. 144 FORDE=1TO1500:NEXT
  74. 146 IFLE<3ANDRND(1)*LE<.6THENS=INT(RND(1)*2):GOTO150
  75. 148 Q=B(2)+10*(B(1)+10*B(0)):S=1
  76. 150 IFQ=143ORQ=134ORQ=611ORQ=116THENS=0
  77. 152 IFB(S)=0THENS=1-S
  78. 154 PRINTE$" I MOVE STONES FROM CUP  "MID$("AB",S+1,1):GOSUB 224:RETURN
  79. 156 D=S:FORC=1TOB(S):FORDE=1TO400:NEXT
  80. 158 D=SU(D):IFD=STHEN158
  81. 160 B(S)=B(S)-1:PRINT"[158]"SPC(FNSP(S)):GOTO 190
  82. 162 B(D)=B(D)+1
  83. 164 PRINT"[158]"SPC(FNSP(D)):GOTO 194
  84. 166 NEXT:RETURN
  85. 168 GOSUB 86
  86. 170 PRINTE$"      LEVEL  1, 2 OR 3
  87. 172 [161]LE$:[139]LE$[179]"1"[176]LE$[177]"3"[167]172
  88. 173 LE[178][197](LE$)
  89. 174 [153]E$"     DO YOU BEGIN  Y/N   "
  90. 175 [161]AN$:[139]AN$[179][177]"Y"[175]AN$[179][177]"N"[167]175
  91. 176 [139]AN$[178]"N"[167] 184
  92. 180 [141]130:[141]156
  93. 182 [139]B(3)[178]8[167][153]E$" YOU WIN!  PLAY AGAIN Y/N ":[137] 222
  94. 184 [141]142:[141]156
  95. 186 [139]B(0)[178]8[167][153]E$"  I WIN!  PLAY AGAIN Y/N   ":[137] 218
  96. 188 [137] 180
  97. 190 [145]B(S)[170]1[141] 198 , 200, 202, 204, 206, 208, 210, 214, 216
  98. 192 [137]162
  99. 194 [145]B(D)[170]1[141] 198 , 200, 202, 204, 206, 208, 210, 214, 216
  100. 196 [137]166
  101. 198 [153]"(null)(null)(null)CMDCMDCMDTANSYS(null)TANCMDCMDCMD(null)(null)(null)":[141] 230:[142]
  102. 200 [153]"   CMDCMDCMD (null) CMDCMDCMD   ":[142]
  103. 202 [153]"   CMDCMDCMD(null) (null)CMDCMDCMD   ":[142]
  104. 204 [153]"   CMDCMDCMD(null)(null)(null)CMDCMDCMD   ":[142]
  105. 206 [153]" (null) CMDCMDCMD(null)(null)(null)CMDCMDCMD   ":[142]
  106. 208 [153]"(null) (null)CMDCMDCMD(null)(null)(null)CMDCMDCMD   ":[142]
  107. 210 [153]"(null)(null)(null)CMDCMDCMD(null)(null)(null)":[142]
  108. 212 [153]"(null)(null)(null)CMDCMDCMD(null)(null)(null)CMDCMDCMD   ":[142]
  109. 214 [153]" (null) CMDCMDCMD(null)(null)(null)CMDCMDCMD(null)(null)(null)":[142]
  110. 216 [153]"(null) (null)CMDCMDCMD(null)(null)(null)CMDCMDCMD(null)(null)(null)":[142]
  111. 218 [129]T[178]1[164]4:[141] 224:[129]D[178]1[164]200:[130]:[141]230:[129]D[178]1[164]200:[130]:[130]:[137]221
  112. 220 [129]T[178]1[164]5:[141] 224:[130]
  113. 221 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]221
  114. 222 [139]G$[178]"Y"[167][138]76
  115. 223 [128]
  116. 224 N[178]54272:[129]L[178]N[164]N[170]23:[151]L,0:[130]
  117. 226 [151]N[170]24,15:[151]N[170]5,8:[151]N[170]6,255:[151]N[170]4,23:[151]N[170]15,40:[151]N[170]6,15
  118. 228 [151]N[170]15,40:[151]N[170]6,15:[129]D[178]1[164]300:[130]:[151]N[170]4,0:[142]
  119. 230 N[178]54272:[151]N[170]24,15:[151]N[170]1,8:[151]N[170]5,24:[151]N[170]6,251:[151]N[170]4,129
  120. 232 :[151]N[170]4,128:[142]
  121.