home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #6 / utv2n6s2.d64 / swagger (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  25KB  |  1,115 lines
  1. 100 rem ************************
  2. 110 rem *                      *
  3. 120 rem *       swagger        *
  4. 130 rem *                      *
  5. 140 rem *  copyright (c) 1988  *
  6. 150 rem *          by          *
  7. 160 rem *   john m. campbell   *
  8. 170 rem *                      *
  9. 180 rem *  all rights reserved *
  10. 190 rem *                      *
  11. 200 rem ************************
  12. 210 rem swagger cover page
  13. 220 print "[147]"chr$(142)
  14. 230 poke 53281,0:poke 53280,12
  15. 250 ad=1666
  16. 260 poke ad,74:ad=ad+1
  17. 270 poke ad,67:ad=ad+1
  18. 280 poke ad,67:ad=ad+1
  19. 290 poke ad,67:ad=ad+1
  20. 300 poke ad,75:ad=ad-40
  21. 310 poke ad,93:ad=ad-40
  22. 320 poke ad,93:ad=ad-40
  23. 330 poke ad,73:ad=ad-1
  24. 340 poke ad,67:ad=ad-1
  25. 350 poke ad,67:ad=ad-1
  26. 360 poke ad,67:ad=ad-1
  27. 370 poke ad,74:ad=ad-40
  28. 380 poke ad,93:ad=ad-40
  29. 390 poke ad,93:ad=ad-40
  30. 400 poke ad,85:ad=ad+1
  31. 410 poke ad,67:ad=ad+1
  32. 420 poke ad,67:ad=ad+1
  33. 430 poke ad,67:ad=ad+1
  34. 440 poke ad,73:ad=ad+1
  35. 450 poke ad,85:ad=ad+40
  36. 460 poke ad,93:ad=ad+40
  37. 470 poke ad,93:ad=ad+40
  38. 480 poke ad,93:ad=ad+40
  39. 490 poke ad,93:ad=ad+40
  40. 500 poke ad,93:ad=ad+40
  41. 510 poke ad,74:ad=ad+1
  42. 520 poke ad,67:ad=ad+1
  43. 530 poke ad,75:ad=ad-40
  44. 540 poke ad,93:ad=ad-40
  45. 550 poke ad,85:ad=ad+1
  46. 560 poke ad,73:ad=ad+40
  47. 570 poke ad,93:ad=ad+40
  48. 580 poke ad,74:ad=ad+1
  49. 590 poke ad,67:ad=ad+1
  50. 600 poke ad,75:ad=ad-40
  51. 610 poke ad,93:ad=ad-40
  52. 620 poke ad,93:ad=ad-40
  53. 630 poke ad,93:ad=ad-40
  54. 640 poke ad,93:ad=ad-40
  55. 650 poke ad,93:ad=ad-40
  56. 660 poke ad,73
  57. 670 ad=1677
  58. 680 poke ad,74:ad=ad-40
  59. 690 poke ad,93:ad=ad-40
  60. 700 poke ad,93:ad=ad-40
  61. 710 poke ad,107:ad=ad-40
  62. 720 poke ad,93:ad=ad-40
  63. 730 poke ad,93:ad=ad-40
  64. 740 poke ad,85:ad=ad+1
  65. 750 poke ad,67:ad=ad+1
  66. 760 poke ad,67:ad=ad+1
  67. 770 poke ad,67:ad=ad+1
  68. 780 poke ad,73:ad=ad+40
  69. 790 poke ad,93:ad=ad+40
  70. 800 poke ad,93:ad=ad+40
  71. 810 poke ad,115:ad=ad+40
  72. 820 poke ad,93:ad=ad+40
  73. 830 poke ad,93:ad=ad+40
  74. 840 poke ad,75:ad=ad-120-3
  75. 850 poke ad,67:ad=ad+1
  76. 860 poke ad,67:ad=ad+1
  77. 870 poke ad,67:ad=ad+1
  78. 880 ad=1684-120
  79. 890 poke ad,85:ad=ad+1
  80. 900 poke ad,67:ad=ad+1
  81. 910 poke ad,73:ad=ad+40
  82. 920 poke ad,93:ad=ad+40
  83. 930 poke ad,93:ad=ad+40
  84. 940 poke ad,75:ad=ad-1
  85. 950 poke ad,67:ad=ad-1
  86. 960 poke ad,67:ad=ad-1
  87. 970 poke ad,67:ad=ad-1
  88. 980 poke ad,74:ad=ad-40
  89. 990 poke ad,93:ad=ad-40
  90. 1000 poke ad,93:ad=ad-40
  91. 1010 poke ad,93:ad=ad-40
  92. 1020 poke ad,93:ad=ad-40
  93. 1030 poke ad,93:ad=ad-40
  94. 1040 poke ad,85:ad=ad+1
  95. 1050 poke ad,67:ad=ad+1
  96. 1060 poke ad,67:ad=ad+1
  97. 1070 poke ad,67:ad=ad+1
  98. 1080 poke ad,73:ad=ad+123
  99. 1090 poke ad,85:ad=ad+1
  100. 1100 poke ad,67:ad=ad+1
  101. 1110 poke ad,73:ad=ad+40
  102. 1120 poke ad,93:ad=ad+40
  103. 1130 poke ad,93:ad=ad+40
  104. 1140 poke ad,75:ad=ad-1
  105. 1150 poke ad,67:ad=ad-1
  106. 1160 poke ad,67:ad=ad-1
  107. 1170 poke ad,67:ad=ad-1
  108. 1180 poke ad,74:ad=ad-40
  109. 1190 poke ad,93:ad=ad-40
  110. 1200 poke ad,93:ad=ad-40
  111. 1210 poke ad,93:ad=ad-40
  112. 1220 poke ad,93:ad=ad-40
  113. 1230 poke ad,93:ad=ad-40
  114. 1240 poke ad,85:ad=ad+1
  115. 1250 poke ad,67:ad=ad+1
  116. 1260 poke ad,67:ad=ad+1
  117. 1270 poke ad,67:ad=ad+1
  118. 1280 poke ad,73:ad=ad+123
  119. 1290 ad=1696
  120. 1300 poke ad,75:ad=ad-1
  121. 1310 poke ad,67:ad=ad-1
  122. 1320 poke ad,67:ad=ad-1
  123. 1330 poke ad,67:ad=ad-1
  124. 1340 poke ad,74:ad=ad-40
  125. 1350 poke ad,93:ad=ad-40
  126. 1360 poke ad,85:ad=ad+1
  127. 1370 poke ad,67:ad=ad+1
  128. 1380 poke ad,75:ad=ad-40
  129. 1390 poke ad,93:ad=ad-40
  130. 1400 poke ad,73:ad=ad-1
  131. 1410 poke ad,67:ad=ad-1
  132. 1420 poke ad,74:ad=ad-40
  133. 1430 poke ad,93:ad=ad-40
  134. 1440 poke ad,85:ad=ad+1
  135. 1450 poke ad,67:ad=ad+1
  136. 1460 poke ad,67:ad=ad+1
  137. 1470 poke ad,67:ad=ad+1
  138. 1480 poke ad,73
  139. 1490 ad=1697
  140. 1500 poke ad,74:ad=ad-40
  141. 1510 poke ad,93:ad=ad-40
  142. 1520 poke ad,93:ad=ad-40
  143. 1530 poke ad,93:ad=ad-40
  144. 1540 poke ad,93:ad=ad-40
  145. 1550 poke ad,93:ad=ad-40
  146. 1560 poke ad,85:ad=ad+1
  147. 1570 poke ad,67:ad=ad+1
  148. 1580 poke ad,67:ad=ad+1
  149. 1590 poke ad,67:ad=ad+1
  150. 1600 poke ad,73:ad=ad+40
  151. 1610 poke ad,93:ad=ad+40
  152. 1620 poke ad,75:ad=ad-1
  153. 1630 poke ad,67:ad=ad-1
  154. 1640 poke ad,85:ad=ad+40
  155. 1650 poke ad,74:ad=ad+1
  156. 1660 poke ad,67:ad=ad+1
  157. 1670 poke ad,73:ad=ad+40
  158. 1680 poke ad,93:ad=ad+40
  159. 1690 poke ad,93:ad=ad+40
  160. 1700 poke ad,75
  161. 1710 rem display copyright
  162. 1720 ln%=1:cm%=1:gosub 11170
  163. 1730 print "[159]   copyright 1988(c) uptime magazine"
  164. 1740 print
  165. 1750 print "[151] published by softdisk publishing, inc."
  166. 1760 ln%=23:cm%=4:gosub 11170
  167. 1770 print "[159]do you want instructions (y/n)?"
  168. 1780 rem test for y/n answer after prompt
  169. 1790 a$="a"
  170. 1800 get a$:if a$="" then 1800
  171. 1810 if a$="[217]" or a$="y" then 1840
  172. 1820 if a$="[206]" or a$="n" then 2900
  173. 1830 goto 1800
  174. 1840 print "[147]"
  175. 1850 rem display text
  176. 1860 for j=1 to 4
  177. 1870 print "[147]";
  178. 1880 for i=1 to 22
  179. 1890 read a$
  180. 1900 print " "a$
  181. 1910 next
  182. 1920 print
  183. 1930 if j<4 then print "[158]    [208]lease [208]ress [210][197][212][213][210][206] to [195]ontinue"
  184. 1940 if j=4 then print "[158]   [208]lease [208]ress [210][197][212][213][210][206] to [211]tart [199]ame"
  185. 1945 poke 198,0
  186. 1950 get a$
  187. 1955 if a$<>chr$(13) then 1950
  188. 1960 next
  189. 1970 goto 2900
  190. 1980 rem ====================
  191. 1990 rem instructions text
  192. 2000 rem ====================
  193. 2010 data ""
  194. 2020 data ""
  195. 2030 data "   [211][215][193][199][199][197][210] is a modern form of the"
  196. 2040 data "ancient guessing game played by the"
  197. 2050 data "[201]ncas of [208]eru.  [212]hey would wander "
  198. 2060 data "through the forests and mountain"
  199. 2070 data "passages of [208]eru looking for objects"
  200. 2080 data "of special interest.  [215]hen one of them"
  201. 2090 data "saw something unique, he would say,"
  202. 2100 data "'[201] see a wild ass.'  [212]his was the"
  203. 2110 data "signal to the others to start guessing"
  204. 2120 data "what he really saw, since wild asses"
  205. 2130 data "were indeed rare in [208]eru.  [197]ach in"
  206. 2140 data "turn would make their wild ass guess,"
  207. 2150 data "and they would be guided to the prize"
  208. 2160 data "by the response 'hotter' when the"
  209. 2170 data "guess was closer than the last one,"
  210. 2180 data "and 'colder' when it was farther"
  211. 2190 data "away.  [193] guess was called a [215][193][199] (short"
  212. 2200 data "for [215]ild [193]ss [199]uess), from which our"
  213. 2210 data "word 'wager' is derived."
  214. 2220 data ""
  215. 2230 data ""
  216. 2240 data "   [201] have adapted this game to the"
  217. 2250 data "[195]ommodore 64, changed [215][193][199] to [211][215][193][199]"
  218. 2260 data "(for [211]cientific [215]ild [193]ss [199]uess), and"
  219. 2270 data "named it [211][215][193][199][199][197][210]."
  220. 2280 data ""
  221. 2290 data "   [201]n [211][215][193][199][199][197][210], the computer picks a"
  222. 2300 data "key from the keyboard at random and"
  223. 2310 data "asks you to guess it.  [217]ou enter your"
  224. 2320 data "[211][215][193][199] by typing the key you think it"
  225. 2330 data "is.  [212]he computer indicates how close"
  226. 2340 data "you are with a temperature scale"
  227. 2350 data "which ranges from arctic to searing."
  228. 2360 data "[217]ou try to guess the key in as few"
  229. 2370 data "[211][215][193][199]s as possible, but 20 maximum."
  230. 2380 data ""
  231. 2390 data "   [196]on't try to use the [210][197][211][212][207][210][197] or"
  232. 2400 data "[210][213][206]/[211][212][207][208] keys for this game.  [193]lso,"
  233. 2410 data "some control keys are not allowed,"
  234. 2420 data "but they will not count against your"
  235. 2430 data "score if you type them by accident."
  236. 2440 data ""
  237. 2450 data ""
  238. 2460 data "   [212]here is one thing to keep in"
  239. 2470 data "mind while playing the game.  [212]he"
  240. 2480 data "computer considers shifted keys,"
  241. 2490 data "control keys, and [195]ommodore keys"
  242. 2500 data "to be just as valid as regular keys."
  243. 2510 data "[212]he game screen represents each"
  244. 2520 data "key with four spaces, as shown below:"
  245. 2530 data ""
  246. 2540 data "         [176][192][178][192][174]"
  247. 2550 data "    [176][192][192][192]>[221] [221] [221]<[192][192][192][174]"
  248. 2560 data "    [221]    [171][192][219][192][179]    [221]"
  249. 2570 data "    [221] [176][192]>[221][203][221] [221]<[192][174] [221]"
  250. 2580 data "    [221] [221]  [173][192][177][192][189]  [221] [221]"
  251. 2590 data "    [221] [221]         [221] [221]"
  252. 2600 data "    [221] [221] [195]ontrol [189] [221]  [204]evel 4"
  253. 2610 data "    [221] [221]    [221]      [221]    [221]"
  254. 2620 data "    [221] [173][192][192] [203]ey     [221]  [204]evel 3"
  255. 2630 data "    [221]      [221]      [221]    [221]"
  256. 2640 data "    [221]  [195]ommodore [192][189]  [204]evel 2"
  257. 2650 data "    [221]      [221]           [221]"
  258. 2660 data "    [173][192][192][192] [211]hift       [204]evel 1"
  259. 2670 data ""
  260. 2680 data "   [212]