home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #6 / utv2n6s2.d64 / swagger (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  24.2 KB  |  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]he computer will light up the"
  261. 2690 data "square corresponding to the key you"
  262. 2700 data "pressed.  [212]he computer calculates how"
  263. 2710 data "close your guess is, and uses the"
  264. 2720 data "appropriate color for that distance"
  265. 2730 data "when it lights up the square.  [206]ote"
  266. 2740 data "that the computer factors in the"
  267. 2750 data "[204]evel of the key (shifted, [195]ommodore,"
  268. 2760 data "or control), as well as its position,"
  269. 2770 data "when calculating distance."
  270. 2780 data ""
  271. 2790 data "   [193]lso watch out for [206]uclear [215]inter,"
  272. 2800 data "so named because you cannot tell if"
  273. 2810 data "if it is hot or cold.  [215]hen [206]uclear"
  274. 2820 data "[215]inter hits, you get one [211][215][193][199].  [201]f"
  275. 2830 data "that guess is hotter than the last,"
  276. 2840 data "you are allowed to continue.  [201]f it"
  277. 2850 data "is colder, you lose immediately."
  278. 2860 data ""
  279. 2870 data "   [206]ow get ready to play.  [199]ood [204]uck!"
  280. 2880 data "[217]ou are going to need it..."
  281. 2890 rem ====================
  282. 2900 rem lay out keyboard on screen
  283. 2910 rem ====================
  284. 2920 dim x(63),y(63),d$(11),hf(11)
  285. 2930 dim g$(20),gs$(20),ms$(20),pr$(8):gm=20
  286. 2940 bl$="                        "
  287. 2950 ch=1024:rem character ram
  288. 2960 cl=55296:rem color ram
  289. 2970 print "[147]"
  290. 2980 poke 53281,0:rem background color
  291. 3000 ln=2:cm=3
  292. 3010 rem top row of keys
  293. 3020 c1=12:c2=11
  294. 3030 dl=40*(ln-1)+(cm-1)
  295. 3040 for i=1to16
  296. 3050 a1=ch+dl:a2=cl+dl
  297. 3060 poke a2,c1:poke a1,160
  298. 3070 dl=dl+1
  299. 3080 a1=ch+dl:a2=cl+dl
  300. 3090 poke a2,c2:poke a1,160
  301. 3100 dl=dl+1
  302. 3110 next i
  303. 3120 a1=a1+3:a2=a2+3
  304. 3130 poke a2,c1:poke a1,160
  305. 3140 a1=a1+1:a2=a2+1
  306. 3150 poke a2,c2:poke a1,160
  307. 3160 if ln>2 then 3180
  308. 3170 ln=ln+1:c2=c1:c1=15:goto 3030
  309. 3180 ad=ch+82
  310. 3190 poke ad,128+31:ad=ad+2
  311. 3200 poke ad,128+49:ad=ad+2
  312. 3210 poke ad,128+50:ad=ad+2
  313. 3220 poke ad,128+51:ad=ad+2
  314. 3230 poke ad,128+52:ad=ad+2
  315. 3240 poke ad,128+53:ad=ad+2
  316. 3250 poke ad,128+54:ad=ad+2
  317. 3260 poke ad,128+55:ad=ad+2
  318. 3270 poke ad,128+56:ad=ad+2
  319. 3280 poke ad,128+57:ad=ad+2
  320. 3290 poke ad,128+48:ad=ad+2
  321. 3300 poke ad,128+43:ad=ad+2
  322. 3310 poke ad,128+45:ad=ad+2
  323. 3320 poke ad,128+28:ad=ad+2
  324. 3330 poke ad,128+72:ad=ad+1
  325. 3340 poke ad,128+15:ad=ad+1
  326. 3350 poke ad,128+68:ad=ad+1
  327. 3360 poke ad,128+ 5:ad=ad+3
  328. 3370 poke ad,128+ 6:ad=ad+1
  329. 3380 poke ad,128+49:ad=ad+1
  330. 3390 rem second row of keys
  331. 3400 ln=5:cm=6
  332. 3410 c1=12:c2=11
  333. 3420 dl=40*(ln-1)+(cm-1)
  334. 3430 for i=1to13
  335. 3440 a1=ch+dl:a2=cl+dl
  336. 3450 poke a2,c1:poke a1,160
  337. 3460 dl=dl+1
  338. 3470 a1=ch+dl:a2=cl+dl
  339. 3480 poke a2,c2:poke a1,160
  340. 3490 dl=dl+1
  341. 3500 next i
  342. 3510 a1=a1+6:a2=a2+6
  343. 3520 poke a2,c1:poke a1,160
  344. 3530 a1=a1+1:a2=a2+1
  345. 3540 poke a2,c2:poke a1,160
  346. 3550 if ln>5 then 3570
  347. 3560 ln=ln+1:c2=c1:c1=15:goto 3420
  348. 3570 ad=ch+205
  349. 3580 poke ad,128+81:ad=ad+2
  350. 3590 poke ad,128+87:ad=ad+2
  351. 3600 poke ad,128+69:ad=ad+2
  352. 3610 poke ad,128+82:ad=ad+2
  353. 3620 poke ad,128+84:ad=ad+2
  354. 3630 poke ad,128+89:ad=ad+2
  355. 3640 poke ad,128+85:ad=ad+2
  356. 3650 poke ad,128+73:ad=ad+2
  357. 3660 poke ad,128+79:ad=ad+2
  358. 3670 poke ad,128+80:ad=ad+2
  359. 3680 poke ad,128+ 0:ad=ad+2
  360. 3690 poke ad,128+42:ad=ad+2
  361. 3700 poke ad,128+30:ad=ad+7
  362. 3710 poke ad,128+6:ad=ad+1
  363. 3720 poke ad,128+51
  364. 3730 rem third row of keys
  365. 3740 ln=8:cm=7
  366. 3750 c1=12:c2=11
  367. 3760 dl=40*(ln-1)+(cm-1)
  368. 3770 for i=1to13
  369. 3780 a1=ch+dl:a2=cl+dl
  370. 3790 poke a2,c1:poke a1,160
  371. 3800 dl=dl+1
  372. 3810 a1=ch+dl:a2=cl+dl
  373. 3820 poke a2,c2:poke a1,160
  374. 3830 dl=dl+1
  375. 3840 next
  376. 3850 a1=a1+5:a2=a2+5
  377. 3860 poke a2,c1:poke a1,160
  378. 3870 a1=a1+1:a2=a2+1
  379. 3880 poke a2,c2:poke a1,160
  380. 3890 if ln>8 then 3910
  381. 3900 ln=ln+1:c2=c1:c1=15:goto 3760
  382. 3910 ad=ch+326
  383. 3920 poke ad,128+65:ad=ad+2
  384. 3930 poke ad,128+83:ad=ad+2
  385. 3940 poke ad,128+68:ad=ad+2
  386. 3950 poke ad,128+70:ad=ad+2
  387. 3960 poke ad,128+71:ad=ad+2
  388. 3970 poke ad,128+72:ad=ad+2
  389. 3980 poke ad,128+74:ad=ad+2
  390. 3990 poke ad,128+75:ad=ad+2
  391. 4000 poke ad,128+76:ad=ad+2
  392. 4010 poke ad,128+58:ad=ad+2
  393. 4020 poke ad,128+59:ad=ad+2
  394. 4030 poke ad,128+61:ad=ad+2
  395. 4040 poke ad,128+82:ad=ad+1
  396. 4050 poke ad,128+20:ad=ad+5
  397. 4060 poke ad,128+6:ad=ad+1
  398. 4070 poke ad,128+53
  399. 4080 rem fourth row of keys
  400. 4090 ln=11:cm=7
  401. 4100 c1=12:c2=11
  402. 4110 dl=40*(ln-1)+(cm-1)
  403. 4120 for i=1to11
  404. 4130 a1=ch+dl:a2=cl+dl
  405. 4140 poke a2,c1:poke a1,160
  406. 4150 dl=dl+1
  407. 4160 a1=ch+dl:a2=cl+dl
  408. 4170 poke a2,c2:poke a1,160
  409. 4180 dl=dl+1
  410. 4190 next
  411. 4200 a1=a1+3:a2=a2+3
  412. 4210 poke a2,c1:poke a1,160
  413. 4220 a1=a1+1:a2=a2+1
  414. 4230 poke a2,c2:poke a1,160
  415. 4240 a1=a1+1:a2=a2+1
  416. 4250 poke a2,c1:poke a1,160
  417. 4260 a1=a1+1:a2=a2+1
  418. 4270 poke a2,c2:poke a1,160
  419. 4280 a1=a1+3:a2=a2+3
  420. 4290 poke a2,c1:poke a1,160
  421. 4300 a1=a1+1:a2=a2+1
  422. 4310 poke a2,c2:poke a1,160
  423. 4320 if ln>11 then 4340
  424. 4330 ln=ln+1:c2=c1:c1=15:goto 4110
  425. 4340 ad=ch+446
  426. 4350 poke ad,128+90:ad=ad+2
  427. 4360 poke ad,128+88:ad=ad+2
  428. 4370 poke ad,128+67:ad=ad+2
  429. 4380 poke ad,128+86:ad=ad+2
  430. 4390 poke ad,128+66:ad=ad+2
  431. 4400 poke ad,128+83:ad=ad+1
  432. 4410 poke ad,128+16:ad=ad+1
  433. 4420 poke ad,128+78:ad=ad+2
  434. 4430 poke ad,128+77:ad=ad+2
  435. 4440 poke ad,128+44:ad=ad+2
  436. 4450 poke ad,128+46:ad=ad+2
  437. 4460 poke ad,128+47:ad=ad+4
  438. 4470 poke ad,128+30:ad=ad+2
  439. 4480 poke ad,128+31:ad=ad+4
  440. 4490 poke ad,128+ 6:ad=ad+1
  441. 4500 poke ad,128+55:ad=ad+1
  442. 4510 rem display legend
  443. 4520 poke 1305,83
  444. 4530 poke 1307,67
  445. 4540 poke 1308,61
  446. 4550 poke 1345,8
  447. 4560 poke 1346,160:poke 55618,12
  448. 4570 poke 1347,160:poke 55619,11
  449. 4580 poke 1386,160:poke 55658,15
  450. 4590 poke 1387,160:poke 55659,12
  451. 4600 poke 1388,67
  452. 4610 poke 1425,75
  453. 4620 poke 1426,25
  454. 4630 poke 1428,20
  455. 4640 rem key positions
  456. 4650 x( 0)=33:y( 0)=3
  457. 4660 x( 1)=31:y( 1)=9
  458. 4670 x( 2)=33:y( 2)=12
  459. 4680 x( 3)=37:y( 3)=12
  460. 4690 x( 4)=37:y( 4)=3
  461. 4700 x( 5)=37:y( 5)=6
  462. 4710 x( 6)=37:y( 6)=9
  463. 4720 x( 7)=31:y( 7)=12
  464. 4730 x( 8)= 9:y( 8)=3
  465. 4740 x( 9)= 8:y( 9)=6
  466. 4750 x(10)= 7:y(10)=9
  467. 4760 x(11)=11:y(11)=3
  468. 4770 x(12)= 7:y(12)=12
  469. 4780 x(13)= 9:y(13)=9
  470. 4790 x(14)=10:y(14)=6
  471. 4800 x(15)=-99:y(15)=-99
  472. 4810 x(16)=13:y(16)=3
  473. 4820 x(17)=12:y(17)=6
  474. 4830 x(18)=11:y(18)=9
  475. 4840 x(19)=15:y(19)=3
  476. 4850 x(20)=11:y(20)=12
  477. 4860 x(21)=13:y(21)=9
  478. 4870 x(22)=14:y(22)=6
  479. 4880 x(23)= 9:y(23)=12
  480. 4890 x(24)=17:y(24)=3
  481. 4900 x(25)=16:y(25)=6
  482. 4910 x(26)=15:y(26)=9
  483. 4920 x(27)=19:y(27)=3
  484. 4930 x(28)=15:y(28)=12
  485. 4940 x(29)=17:y(29)=9
  486. 4950 x(30)=18:y(30)=6
  487. 4960 x(31)=13:y(31)=12
  488. 4970 x(32)=21:y(32)=3
  489. 4980 x(33)=20:y(33)=6
  490. 4990 x(34)=19:y(34)=9
  491. 5000 x(35)=23:y(35)=3
  492. 5010 x(36)=21:y(36)=12
  493. 5020 x(37)=21:y(37)=9
  494. 5030 x(38)=22:y(38)=6
  495. 5040 x(39)=19:y(39)=12
  496. 5050 x(40)=25:y(40)=3
  497. 5060 x(41)=24:y(41)=6
  498. 5070 x(42)=23:y(42)=9
  499. 5080 x(43)=27:y(43)=3
  500. 5090 x(44)=25:y(44)=12
  501. 5100 x(45)=25:y(45)=9
  502. 5110 x(46)=26:y(46)=6
  503. 5120 x(47)=23:y(47)=12
  504. 5130 x(48)=29:y(48)=3
  505. 5140 x(49)=28:y(49)=6
  506. 5150 x(50)=27:y(50)=9
  507. 5160 x(51)=31:y(51)=3
  508. 5170 x(52)=-99:y(52)=-99
  509. 5180 x(53)=29:y(53)=9
  510. 5190 x(54)=30:y(54)=6
  511. 5200 x(55)=27:y(55)=12
  512. 5210 x(56)= 5:y(56)=3
  513. 5220 x(57)= 3:y(57)=3
  514. 5230 x(58)=-99:y(58)=-99
  515. 5240 x(59)= 7:y(59)=3
  516. 5250 x(60)=17:y(60)=12
  517. 5260 x(61)=-99:y(61)=-99
  518. 5270 x(62)= 6:y(62)=6
  519. 5280 x(63)= 2:y(63)=9
  520. 5290 rem temperature descriptions
  521. 5300 d$(0)="[213][206][203][206][207][215][206]"
  522. 5310 d$(1)="[211][197][193][210][201][206][199]"
  523. 5320 d$(2)="[212][207][210][210][201][196]"
  524. 5330 d$(3)="[200][207][212]"
  525. 5340 d$(4)="[211][212][197][193][205][217]"
  526. 5350 d$(5)="[215][193][210][205]
  527. 5360 d$(6)[178]"len(NULL)(NULL)(NULL)"
  528. 5370 d$(7)[178]"asc(NULL)(NULL)(NULL)(NULL)(NULL)"
  529. 5380 d$(8)[178]"len(NULL)(NULL)str$"
  530. 5390 d$(9)[178]"asc(NULL)right$chr$right$str$"
  531. 5400 d$(10)[178]"atn(NULL)len(NULL)right$len"
  532. 5410 d$(11)[178]""
  533. 5420 cc(0)[178]1
  534. 5430 cc(1)[178]9
  535. 5440 cc(2)[178]2
  536. 5450 cc(3)[178]8
  537. 5460 cc(4)[178]10
  538. 5470 cc(5)[178]7
  539. 5480 cc(6)[178]13
  540. 5490 cc(7)[178]5
  541. 5500 cc(8)[178]3
  542. 5510 cc(9)[178]14
  543. 5520 cc(10)[178]6
  544. 5530 [143] display thermometer
  545. 5540 a1[178]1504
  546. 5550 [151] a1,112
  547. 5560 [129] i[178]1 [164] 11
  548. 5570 a1[178]a1[170]1
  549. 5580 [151] a1,64
  550. 5590 [130]
  551. 5600 [151] a1[170]1,110
  552. 5610 a1[178]1506:a2[178]55778
  553. 5620 [129] j[178]1 [164] 11
  554. 5630 a1[178]a1[170]40:a2[178]a2[170]40
  555. 5640 [151] a1[171]2,93:[151] a2[171]2,1
  556. 5650 [151] a1[170]10,93:[151] a2[170]10,1
  557. 5660 [151] a1,160
  558. 5670 [139] j[178]1 [167] [151] a2,9 :[143] brown
  559. 5680 [139] j[178]2 [167] [151] a2,2 :[143] red
  560. 5690 [139] j[178]3 [167] [151] a2,8 :[143] orange
  561. 5700 [139] j[178]4 [167] [151] a2,10:[143] lt red
  562. 5710 [139] j[178]5 [167] [151] a2,7 :[143] yellow
  563. 5720 [139] j[178]6 [167] [151] a2,1 :[143] white
  564. 5730 [139] j[178]7 [167] [151] a2,13:[143] lt grn
  565. 5740 [139] j[178]8 [167] [151] a2,5 :[143] green
  566. 5750 [139] j[178]9 [167] [151] a2,3 :[143] cyan
  567. 5760 [139] j[178]10 [167] [151] a2,14:[143] lt blue
  568. 5770 [139] j[178]11 [167] [151] a2,6 :[143] blue
  569. 5780 [130]
  570. 5790 a1[178]1984
  571. 5800 [151] a1,109
  572. 5810 [129] i[178]1 [164] 11
  573. 5820 a1[178]a1[170]1
  574. 5830 [151] a1,64
  575. 5840 [130]
  576. 5850 [151] a1[170]1,125
  577. 5860 [153]""
  578. 5870 [129] k[178]1[164]11
  579. 5880 [139] k[179]6 [167] [153] ""d$(k)
  580. 5890 [139] k[178]6 [167] [153] ""d$(0)
  581. 5900 [139] k[177]6 [167] [153] ""d$(k[171]1)
  582. 5910 [130]
  583. 5920 [143] display title
  584. 5930 a1[178]1558
  585. 5940 [151] a1,112
  586. 5950 [129] i[178]1[164]7
  587. 5960 a1[178]a1[170]1
  588. 5970 [151] a1,64
  589. 5980 [130] i
  590. 5990 [151] a1[170]1,110
  591. 6000 a1[178]1598
  592. 6010 [151] a1,93:a1[178]a1[170]1
  593. 6020 [151] a1,83:a1[178]a1[170]1
  594. 6030 [151] a1,87:a1[178]a1[170]1
  595. 6040 [151] a1,65:a1[178]a1[170]1
  596. 6050 [151] a1,71:a1[178]a1[170]1
  597. 6060 [151] a1,71:a1[178]a1[170]1
  598. 6070 [151] a1,69:a1[178]a1[170]1
  599. 6080 [151] a1,82:a1[178]a1[170]1
  600. 6090 [151] a1,93
  601. 6100 a1[178]1638
  602. 6110 [151] a1,109
  603. 6120 [129] i[178]1[164]7
  604. 6130 a1[178]a1[170]1
  605. 6140 [151] a1,64
  606. 6150 [130]
  607. 6160 [151] a1[170]1,125
  608. 6170 [143] display count/rating
  609. 6180 a1[178]1568
  610. 6190 [151] a1,112:a1[178]a1[170]1
  611. 6200 [151] a1,64 :a1[178]a1[170]1
  612. 6210 [151] a1,64 :a1[178]a1[170]1
  613. 6220 [151] a1,64 :a1[178]a1[170]1
  614. 6230 [151] a1,64 :a1[178]a1[170]1
  615. 6240 [151] a1,82 :a1[178]a1[170]1
  616. 6250 [151] a1,1  :a1[178]a1[170]1
  617. 6260 [151] a1,20 :a1[178]a1[170]1
  618. 6270 [151] a1,9  :a1[178]a1[170]1
  619. 6280 [151] a1,14 :a1[178]a1[170]1
  620. 6290 [151] a1,7  :a1[178]a1[170]1
  621. 6300 [151] a1,64 :a1[178]a1[170]1
  622. 6310 [151] a1,64 :a1[178]a1[170]1
  623. 6320 [151] a1,64 :a1[178]a1[170]1
  624. 6330 [151] a1,64 :a1[178]a1[170]1
  625. 6340 [151] a1,110
  626. 6350 a1[178]1608
  627. 6360 [151] a1,93
  628. 6370 a1[178]a1[170]15
  629. 6380 [151] a1,93
  630. 6390 a1[178]1648
  631. 6400 [151] a1,109
  632. 6410 [129] i[178]1[164]14
  633. 6420 a1[178]a1[170]1
  634. 6430 [151] a1,64
  635. 6440 [130]
  636. 6450 [151] a1[170]1,125
  637. 6460 [143] display message box
  638. 6470 a1[178]1718
  639. 6480 [151] a1,112:a1[178]a1[170]1
  640. 6490 [151] a1,64:a1[178]a1[170]1
  641. 6500 [151] a1,64:a1[178]a1[170]1
  642. 6510 [151] a1,64:a1[178]a1[170]1
  643. 6520 [151] a1,77:a1[178]a1[170]1
  644. 6530 [151] a1,5 :a1[178]a1[170]1
  645. 6540 [151] a1,19:a1[178]a1[170]1
  646. 6550 [151] a1,19:a1[178]a1[170]1
  647. 6560 [151] a1,1 :a1[178]a1[170]1
  648. 6570 [151] a1,7 :a1[178]a1[170]1
  649. 6580 [151] a1,5 :a1[178]a1[170]1
  650. 6590 [151] a1,64:a1[178]a1[170]1
  651. 6600 [151] a1,76:a1[178]a1[170]1
  652. 6610 [151] a1,9 :a1[178]a1[170]1
  653. 6620 [151] a1,14:a1[178]a1[170]1
  654. 6630 [151] a1,5 :a1[178]a1[170]1
  655. 6640 [151] a1,64:a1[178]a1[170]1
  656. 6650 [151] a1,64:a1[178]a1[170]1
  657. 6660 [151] a1,64:a1[178]a1[170]1
  658. 6670 [151] a1,64:a1[178]a1[170]1
  659. 6680 [151] a1,64:a1[178]a1[170]1
  660. 6690 [151] a1,64:a1[178]a1[170]1
  661. 6700 [151] a1,64:a1[178]a1[170]1
  662. 6710 [151] a1,64:a1[178]a1[170]1
  663. 6720 [151] a1,64:a1[178]a1[170]1
  664. 6730 [151] a1,110
  665. 6740 a1[178]1758:[151] a1,93
  666. 6750 a1[178]1783:[151] a1,93
  667. 6760 a1[178]1798:[151] a1,93
  668. 6770 a1[178]1823:[151] a1,93
  669. 6780 a1[178]1838
  670. 6790 [151] a1,109
  671. 6800 [129] i[178]1[164]24
  672. 6810 a1[178]a1[170]1
  673. 6820 [151] a1,64
  674. 6830 [130]
  675. 6840 [151] a1[170]1,125
  676. 6850 [143] display prompt area
  677. 6860 a1[178]1918
  678. 6870 [151] a1,112:a1[178]a1[170]1
  679. 6880 [151] a1,64:a1[178]a1[170]1
  680. 6890 [151] a1,64:a1[178]a1[170]1
  681. 6900 [151] a1,64:a1[178]a1[170]1
  682. 6910 [151] a1,73:a1[178]a1[170]1
  683. 6920 [151] a1,14:a1[178]a1[170]1
  684. 6930 [151] a1,16:a1[178]a1[170]1
  685. 6940 [151] a1,21:a1[178]a1[170]1
  686. 6950 [151] a1,20:a1[178]a1[170]1
  687. 6960 [151] a1,64:a1[178]a1[170]1
  688. 6970 [151] a1,80:a1[178]a1[170]1
  689. 6980 [151] a1,18:a1[178]a1[170]1
  690. 6990 [151] a1,15:a1[178]a1[170]1
  691. 7000 [151] a1,13:a1[178]a1[170]1
  692. 7010 [151] a1,16:a1[178]a1[170]1
  693. 7020 [151] a1,20:a1[178]a1[170]1
  694. 7030 [151] a1,64:a1[178]a1[170]1
  695. 7040 [151] a1,64:a1[178]a1[170]1
  696. 7050 [151] a1,64:a1[178]a1[170]1
  697. 7060 [151] a1,64:a1[178]a1[170]1
  698. 7070 [151] a1,64:a1[178]a1[170]1
  699. 7080 [151] a1,64:a1[178]a1[170]1
  700. 7090 [151] a1,64:a1[178]a1[170]1
  701. 7100 [151] a1,64:a1[178]a1[170]1
  702. 7110 [151] a1,64:a1[178]a1[170]1
  703. 7120 [151] a1,110
  704. 7130 a1[178]1958:[151] a1,93
  705. 7140 a1[178]1983:[151] a1,93
  706. 7150 a1[178]1998
  707. 7160 [151] a1,109
  708. 7170 [129] i[178]1[164]24
  709. 7180 a1[178]a1[170]1
  710. 7190 [151] a1,64
  711. 7200 [130]
  712. 7210 [151] a1[170]1,125
  713. 7220 [143] initialize rating strings
  714. 7230 g$(1)[178]"(NULL)otto (NULL)inner"
  715. 7240 g$(2)[178]"right$diot (NULL)avant"
  716. 7250 g$(3)[178]"(NULL)ucky (NULL)tiff"
  717. 7260 g$(4)[178]"(NULL)izard"
  718. 7270 g$(5)[178]"(NULL)wagsman"
  719. 7280 g$(6)[178]"left$acker"
  720. 7290 g$(7)[178]"chr$uru"
  721. 7300 g$(8)[178]"(NULL)erd"
  722. 7310 g$(9)[178]"(NULL)rogrammer"
  723. 7320 g$(10)[178]"valngineer"
  724. 7330 g$(11)[178]"(NULL)rekkie"
  725. 7340 g$(12)[178]"lenheerleader"
  726. 7350 g$(13)[178]"(NULL)uppie"
  727. 7360 g$(14)[178]"2-(NULL)ear-(NULL)ld"
  728. 7370 g$(15)[178]"atnctor"
  729. 7380 g$(16)[178]"(NULL)otherinlaw"
  730. 7390 g$(17)[178]"peekanker"
  731. 7400 g$(18)[178]"(NULL)awyer"
  732. 7410 g$(19)[178]"(NULL)olitician"
  733. 7420 g$(20)[178]"atnyatolluh"
  734. 7430 [143]     "123456789012345678901234"
  735. 7440 gs$( 0)[178]"left$int: (NULL)ry another key!"
  736. 7450 gs$( 1)[178]"chr$o buy a ticket, (NULL)(NULL)right$len(NULL)!"
  737. 7460 gs$( 2)[178]"(NULL)ow what day was right$ born?"
  738. 7470 gs$( 3)[178]"peeketter lucky than good."
  739. 7480 gs$( 4)[178]"(NULL)o fair using magic!"
  740. 7490 gs$( 5)[178]"(NULL)wagger rights granted!"
  741. 7500 gs$( 6)[178]"(NULL)ou do (NULL)left$right$(NULL) all night?"
  742. 7510 gs$( 7)[178]"(NULL)ou've achieved (NULL)irvana!"
  743. 7520 gs$( 8)[178]"(NULL)top it and get a date!"
  744. 7530 gs$( 9)[178]"(NULL)ou do (NULL)left$right$(NULL) all day?"
  745. 7540 gs$(10)[178]"chr$et me atn(NULL)(NULL)(NULL)atn(NULL) discounts?"
  746. 7550 gs$(11)[178]"(NULL)ake off the silly ears!"
  747. 7560 gs$(12)[178]"chr$o change your diapers!"
  748. 7570 gs$(13)[178]"left$ave you vacuumed, yet?"
  749. 7580 gs$(14)[178]"chr$o to pom-pom practice!"
  750. 7590 gs$(15)[178]"(NULL)ext time try ad-libbing"
  751. 7600 gs$(16)[178]"chr$ood as can be expected."
  752. 7610 gs$(17)[178]"(NULL)ext time try letters!"
  753. 7620 gs$(18)[178]"(NULL)o, there is no (NULL)(NULL)val key!"
  754. 7630 gs$(19)[178]"atn filibuster won't help!"
  755. 7640 gs$(20)[178]"atn miracle! (NULL)raise atnllah!"
  756. 7650 [143] initialize prompts
  757. 7660 pr$( 0)[178]"(NULL)ant to play again?((NULL)/(NULL))"
  758. 7670 pr$( 1)[178]"(NULL)ake a (NULL)(NULL)atnchr$ at a key"
  759. 7680 pr$( 2)[178]"(NULL)ake another (NULL)(NULL)atnchr$ at it"
  760. 7690 pr$( 3)[178]"chr$ive me your best (NULL)(NULL)atnchr$"
  761. 7700 pr$( 4)[178]"(NULL)(NULL)atnchr$ your tail, baby!"
  762. 7710 pr$( 5)[178]"(NULL)(NULL)atnchr$ until it hurts!"
  763. 7720 pr$( 6)[178]"(NULL)ou call that a (NULL)(NULL)atnchr$?"
  764. 7730 pr$( 7)[178]"(NULL)eed a hint? ((NULL)/(NULL))"
  765. 7740 pr$( 8)[178]"(NULL)ant some advice? ((NULL)/(NULL))"
  766. 7750 [143] initialize messages
  767. 7760 ms$( 1)[178]"(NULL)ou (NULL)atn(NULL)(NULL) to be hotter-isthis too tough for you?"
  768. 7770 ms$( 2)[178]"lenolder means you are    getting farther away."
  769. 7780 ms$( 3)[178]"(NULL)everse psychology won'twork on a computer."
  770. 7790 ms$( 4)[178]"(NULL)ry logic for a change. (NULL)ou may be surprised!"
  771. 7800 ms$( 5)[178]"chr$ood guess!  (NULL)ow don't  lose your momentum!"
  772. 7810 ms$( 6)[178]"(NULL)ow you are moving in   the right direction!"
  773. 7820 ms$( 7)[178]"(NULL)eep it up!  (NULL)ou are on a roll now!"
  774. 7830 ms$( 8)[178]"(NULL)ou got the hang of it  -the hotter the better!"
  775. 7840 ms$( 9)[178]"chr$et a haircut, buy a    suit, & find a real job."
  776. 7850 ms$(10)[178]"(NULL)ever drink milk after  lemonade..."
  777. 7860 ms$(11)[178]"(NULL)ry (NULL)hift, lenontrol, or  lenommodore with your key"
  778. 7870 ms$(12)[178]"right$ see you decided to    keep guessing..."
  779. 7880 ms$(13)[178]"(NULL)hat made you think     logic would help any?"
  780. 7890 ms$(14)[178]"(NULL)he game is intended forpersons older than two"
  781. 7900 ms$(15)[178]"right$f you like it so cold, move to peekuffalo!"
  782. 7910 ms$(16)[178]"chr$et any closer and you  will burn your tush!"
  783. 7920 ms$(17)[178]"(NULL)arning!, (NULL)ou are down  to your last four (NULL)(NULL)atnchr$s!"
  784. 7930 ms$(18)[178]"(NULL)lease answer with a    (NULL) for (NULL)es or (NULL) for (NULL)o."
  785. 7940 ms$(19)[178]"(NULL)ou saved yourself from oblivion! (NULL)ake it count."
  786. 7950 ms$(20)[178]"(NULL)uclear (NULL)inter. (NULL)ou loseif next guess is colder"
  787. 7960 [143] set up sounds
  788. 7970 s[178]54272:[143] clear sound chip
  789. 7980 [129] i[178]1[164]24
  790. 7990 [151] s[170]i,0
  791. 8000 [130]
  792. 8010 [151] s[170]5,9
  793. 8020 [151] s[170]6,0
  794. 8030 [151] s,0
  795. 8040 [151] s[170]24,15:[143] volume=max
  796. 8050 hf(1)[178]3
  797. 8060 hf(2)[178]5
  798. 8070 hf(3)[178]7
  799. 8080 hf(4)[178]10
  800. 8090 hf(5)[178]13
  801. 8100 hf(6)[178]16
  802. 8110 hf(7)[178]20
  803. 8120 hf(8)[178]24
  804. 8130 hf(9)[178]28
  805. 8140 hf(10)[178]33
  806. 8150 hf(11)[178]38
  807. 8160 [143] ====================
  808. 8170 [143] main loop
  809. 8180 [143] ====================
  810. 8190 kk%[178][181]([187](0)[172]62)[170]1
  811. 8200 x0[178]x(kk%):y0[178]y(kk%)
  812. 8210 kz%[178][181]([187](0)[172]4)[170]1:z0[178]kz%
  813. 8220 [139] x0[179]0 [167] 8190:[143] nonexistent
  814. 8230 [139] kz%[179][177]4 [167] 8280
  815. 8240 [139] kk%[179]8 [167] 8190
  816. 8250 [139] kk%[178]40 [176] kk%[178]43 [176] kk%[178]44 [167] 8190
  817. 8260 [139] kk%[178]46 [176] kk%[178]47 [176] kk%[178]49 [167] 8190
  818. 8270 [139] kk%[178]51 [176] kk%[178]55 [176] kk%[178]60 [167] 8190
  819. 8280 pr[178]1:[141] 10040:[143] output prompt
  820. 8290 [151] 783,[194](783)[176]1
  821. 8300 dd[178]11:gn[178]0:do[178]20:s0[178]0:ms$(0)[178]""
  822. 8310 [161] a$:[139] a$[178]"" [167] 8310
  823. 8320 [143] detected keystroke, get key code
  824. 8330 nk%[178][194](197):[139] nk%[177][178]63 [167] 8310
  825. 8340 ln%[178]ld%:cm%[178]3:[141] 11170
  826. 8350 [153] " "d$(dd);
  827. 8360 [141] 10130:[143] update guess count
  828. 8370 [143] get shift/ctrl/logo
  829. 8380 jz%[178][194](653)
  830. 8390 [139] jz%[179][178]0 [176] jz%[177][178]5 [167] jz%[178]3
  831. 8400 z[178]jz%
  832. 8410 d[178][186](((x0[171]x(nk%))[173]2)[174]2[170]((y0[171]y(nk%))[173]3)[174]2[170](z0[171]z)[174]2)
  833. 8420 dl[178]40[172](y(nk%)[171]1)[170](x(nk%)[171]1)
  834. 8430 [139] jz%[178]1 [167] dl[178]dl[171]40
  835. 8440 [139] jz%[178]2 [167] dl[178]dl[171]39
  836. 8450 [139] jz%[178]4 [167] dl[178]dl[170]1
  837. 8460 a1[178]ch[170]dl
  838. 8470 a2[178]cl[170]dl
  839. 8480 [139] d[179].1 [167] 9390
  840. 8490 dd[178][181](d[172]1.5):[139] dd[177]10 [167] dd[178]10
  841. 8500 ld%[178][181](12[170]dd):[139] ld%[177]17 [167] ld%[178]ld%[170]1
  842. 8510 [139] [187](0)[179].1 [167] dd[178]0:ld%[178]18
  843. 8520 c[178]cc(dd)
  844. 8530 [151] a2,c
  845. 8540 ln%[178]ld%:cm%[178]3
  846. 8550 [141] 11170: [143] set cursor posn
  847. 8560 [153] "<"[199](18)d$(dd)[199](146);
  848. 8570 [143] sound tone
  849. 8580 [151] s[170]1,hf(24[171]ld%)
  850. 8590 [151] s[170]4,33
  851. 8600 [129] i[178]1[164]125:[130]
  852. 8610 [151] s[170]4,32
  853. 8620 [139] gn[177][178]20 [167] 9490:[143] end game
  854. 8630 [139] dd[179][177]0 [167] 8670
  855. 8640 ms[178]20:[141] 9900
  856. 8650 s0[178][171]1:gn[178]gn[171]1
  857. 8660 [137] 8310
  858. 8670 [143] start checking conditions
  859. 8680 [139] s0[177][178]0 [167] 8740
  860. 8690 [143] nuclear winter
  861. 8700 [139] dd[177][178]do [167] 9360
  862. 8710 ms[178]19:[141] 9900
  863. 8720 s0[178]0
  864. 8730 [137] 9130
  865. 8740 [139] s0[179][177]1 [167] 8800
  866. 8750 [143] try logic
  867. 8760 [139] dd[179]do  [167] ms[178]12:[143] hotter
  868. 8770 [139] dd[177][178]do [167] ms[178]13:[143] colder
  869. 8780 [141] 9900
  870. 8790 s0[178]0:[137] 9130
  871. 8800 [139] gn[179][177]16 [167] 8840
  872. 8810 [143] four chances left
  873. 8820 ms[178]17:[141] 9900
  874. 8830 [137] 9130
  875. 8840 [139] dd[179][178]8 [167] 8890
  876. 8850 [139] [187](0)[177]0.3 [167] 8890
  877. 8860 [143] buffalo
  878. 8870 ms[178]15:[141] 9900
  879. 8880 [137] 9130
  880. 8890 [139] dd[177][178]3 [167] 8940
  881. 8900 [139] [187](0)[177]0.2 [167] 8940
  882. 8910 [143] tush
  883. 8920 ms[178]16:[141] 9900
  884. 8930 [137] 9130
  885. 8940 [139] gn[179][178]12 [167] 8990
  886. 8950 [139] [187](0)[177].2 [167] 8990
  887. 8960 [143] two year old
  888. 8970 ms[178]14:[141] 9900
  889. 8980 [137] 9130
  890. 8990 [143]
  891. 9000 [143] normal case
  892. 9010 [139] dd[179]do [167] 9080
  893. 9020 [143] colder
  894. 9030 ms[178][181]([187](0)[172]5)[170]1
  895. 9040 [139] ms[177]4 [167] ms[178]0
  896. 9050 [141] 9900
  897. 9060 s0[178]0:[139] ms[178]4 [167] s0[178]1
  898. 9070 [137] 9130
  899. 9080 [143] hotter
  900. 9090 ms[178][181]([187](0)[172]5)[170]5
  901. 9100 [139] ms[177]8 [167] ms[178]0
  902. 9110 [141] 9900
  903. 9120 s0[178]0
  904. 9130 [143] special prompts
  905. 9140 [139] gn[179][178]10 [167] 9290
  906. 9150 rn[178][187](0)
  907. 9160 [139] rn[177]0.1 [167] 9200
  908. 9170 [143] hint?
  909. 9180 pr[178]7:[141] 10040
  910. 9190 [137] 9230
  911. 9200 [139] rn[179]0.9 [167] 9290
  912. 9210 [143] advice?
  913. 9220 pr[178]8:[141] 10040
  914. 9230 [143] get answer
  915. 9240 [141] 10240
  916. 9250 [139] an[178]0 [167] 9300
  917. 9260 ms[178][181]([187](0)[172]3)[170]9
  918. 9270 [141] 9900
  919. 9280 [137] 9300
  920. 9290 [143]
  921. 9300 [143] end of loop
  922. 9310 do[178]dd
  923. 9320 [143] next prompt
  924. 9330 pr[178][181]([187](0)[172]6)[170]1
  925. 9340 [141] 10040
  926. 9350 [137] 8310
  927. 9360 [143] nuked
  928. 9370 ms$(0)[178]"(NULL)(NULL)len(NULL)valatn(NULL) left$(NULL)(NULL)(NULL)lenatn(NULL)(NULL)(NULL)!!!    str$eath by fire or ice."
  929. 9380 [137] 9510
  930. 9390 [143] found key
  931. 9400 ms$(0)[178]"(NULL)(NULL)(NULL) chr$(NULL)val(NULL)(NULL)valstr$ (NULL)left$val (NULL)val(NULL)! -- "[170]gs$(gn)
  932. 9410 [151] a2,4:[143] purple
  933. 9420 [151] s[170]1,60
  934. 9430 [129] i[178]1 [164] 5
  935. 9440 [151] s[170]4,33
  936. 9450 [129] j[178]1 [164] 50:[130]
  937. 9460 [151] s[170]4,32
  938. 9470 [130]
  939. 9480 [137] 9580
  940. 9490 [143] key not found
  941. 9500 ms$(0)[178]"(NULL)(NULL)(NULL) (NULL)atn(NULL) (NULL)(NULL)(NULL) (NULL)asc (NULL)right$(NULL)val! -- "[170]gs$(0)
  942. 9510 [143] light up key
  943. 9520 dl[178]40[172](y(kk%)[171]1)[170](x(kk%)[171]1)
  944. 9530 [139] kz%[178]1 [167] dl[178]dl[171]40
  945. 9540 [139] kz%[178]2 [167] dl[178]dl[171]39
  946. 9550 [139] kz%[178]4 [167] dl[178]dl[170]1
  947. 9560 a2[178]cl[170]dl
  948. 9570 [151] a2,4
  949. 9580 [143] display ending message
  950. 9590 ms[178]0:[141] 9900
  951. 9600 pr[178]0:[141] 10040
  952. 9610 [141] 10240
  953. 9620 [139] an[179][177]0 [167] 9710
  954. 9630 ln%[178]24:cm%[178]1:[141] 11170
  955. 9640 [153] [199](142)[199](9);
  956. 9650 [143] ====================
  957. 9660 [143] return to uptime shell
  958. 9670 [143] ====================
  959. 9680 [158] (8[172]4096)[170]4
  960. 9690 [128]
  961. 9700 [143] ====================
  962. 9710 [143] clear and restart
  963. 9720 [143] ====================
  964. 9730 ln%[178]ld%:cm%[178]3:[141] 11170
  965. 9740 [153] " "d$(dd);
  966. 9750 ln%[178]14:cm%[178]25
  967. 9760 [141] 11170: [143] position cursor
  968. 9770 [153] "              ";
  969. 9780 ln%[178]18:cm%[178]15
  970. 9790 [141] 11170: [143] position cursor
  971. 9800 [153] bl$
  972. 9810 ln%[178]ln%[170]1
  973. 9820 [141] 11170
  974. 9830 [153] bl$
  975. 9840 ln%[178]23:cm%[178]15
  976. 9850 [141] 11170: [143] position cursor
  977. 9860 [153] bl$
  978. 9870 [141] 10330:[143] clear keyboard
  979. 9880 [137] 8170
  980. 9890 [143] ====================
  981. 9900 [143] output message to screen
  982. 9910 [143] ====================
  983. 9920 ln%[178]18:cm%[178]15
  984. 9930 [141] 11170: [143] position cursor
  985. 9940 [153] bl$
  986. 9950 [141] 11170
  987. 9960 [153] [202](ms$(ms),1,24);
  988. 9970 ln%[178]ln%[170]1
  989. 9980 [141] 11170
  990. 9990 [153] bl$
  991. 10000 [141] 11170
  992. 10010 [153] [202](ms$(ms),25);
  993. 10020 [142]
  994. 10030 [143] ====================
  995. 10040 [143] output prompt to screen
  996. 10050 [143] ====================
  997. 10060 ln%[178]23:cm%[178]15
  998. 10070 [141] 11170: [143] position cursor
  999. 10080 [153] bl$
  1000. 10090 [141] 11170
  1001. 10100 [153] pr$(pr);
  1002. 10110 [142]
  1003. 10120 [143] ====================
  1004. 10130 [143] increment count and display
  1005. 10140 [143] ====================
  1006. 10150 gn[178]gn[170]1:[139] gn[177]gm [167] gn[178]gm
  1007. 10160 gn$[178][202]([196](gn),2)
  1008. 10170 ln%[178]14:cm%[178]25
  1009. 10180 [141] 11170: [143] position cursor
  1010. 10190 [153] "              ";
  1011. 10200 [141] 11170
  1012. 10210 [153] gn$;" "g$(gn);
  1013. 10220 [142]
  1014. 10230 [143] ====================
  1015. 10240 [143] test for y/n answer after prompt
  1016. 10250 [143] ====================
  1017. 10260 a$[178]"a"
  1018. 10270 [161] a$:[139] a$[178]"" [167] 10270
  1019. 10280 [139] a$[178]"(NULL)" [176] a$[178]"y" [167] an[178]1:[142]
  1020. 10290 [139] a$[178]"(NULL)" [176] a$[178]"n" [167] an[178]0:[142]
  1021. 10300 ms[178]18:[141] 9900
  1022. 10310 [137] 10270
  1023. 10320 [143] ====================
  1024. 10330 [143] clear keyboard
  1025. 10340 [143] ====================
  1026. 10350 ln[178]2:cm[178]3
  1027. 10360 [143] top row of keys
  1028. 10370 c1[178]12:c2[178]11
  1029. 10380 dl[178]40[172](ln[171]1)[170](cm[171]1)
  1030. 10390 [129] i[178]1[164]16
  1031. 10400 a2[178]cl[170]dl
  1032. 10410 [151] a2,c1
  1033. 10420 dl[178]dl[170]1
  1034. 10430 a2[178]cl[170]dl
  1035. 10440 [151] a2,c2
  1036. 10450 dl[178]dl[170]1
  1037. 10460 [130]
  1038. 10470 a2[178]a2[170]3
  1039. 10480 [151] a2,c1
  1040. 10490 a2[178]a2[170]1
  1041. 10500 [151] a2,c2
  1042. 10510 [139] ln[177]2 [167] 10530
  1043. 10520 ln[178]ln[170]1:c2[178]c1:c1[178]15:[137] 10380
  1044. 10530 [143] second row of keys
  1045. 10540 ln[178]5:cm[178]6
  1046. 10550 c1[178]12:c2[178]11
  1047. 10560 dl[178]40[172](ln[171]1)[170](cm[171]1)
  1048. 10570 [129] i[178]1[164]13
  1049. 10580 a2[178]cl[170]dl
  1050. 10590 [151] a2,c1
  1051. 10600 dl[178]dl[170]1
  1052. 10610 a2[178]cl[170]dl
  1053. 10620 [151] a2,c2
  1054. 10630 dl[178]dl[170]1
  1055. 10640 [130]
  1056. 10650 a2[178]a2[170]6
  1057. 10660 [151] a2,c1
  1058. 10670 a2[178]a2[170]1
  1059. 10680 [151] a2,c2
  1060. 10690 [139] ln[177]5 [167] 10710
  1061. 10700 ln[178]ln[170]1:c2[178]c1:c1[178]15:[137] 10560
  1062. 10710 [143] third row of keys
  1063. 10720 ln[178]8:cm[178]7
  1064. 10730 c1[178]12:c2[178]11
  1065. 10740 dl[178]40[172](ln[171]1)[170](cm[171]1)
  1066. 10750 [129] i[178]1[164]13
  1067. 10760 a2[178]cl[170]dl
  1068. 10770 [151] a2,c1
  1069. 10780 dl[178]dl[170]1
  1070. 10790 a2[178]cl[170]dl
  1071. 10800 [151] a2,c2
  1072. 10810 dl[178]dl[170]1
  1073. 10820 [130]
  1074. 10830 a2[178]a2[170]5
  1075. 10840 [151] a2,c1
  1076. 10850 a2[178]a2[170]1
  1077. 10860 [151] a2,c2
  1078. 10870 [139] ln[177]8 [167] 10890
  1079. 10880 ln[178]ln[170]1:c2[178]c1:c1[178]15:[137] 10740
  1080. 10890 [143] fourth row of keys
  1081. 10900 ln[178]11:cm[178]7
  1082. 10910 c1[178]12:c2[178]11
  1083. 10920 dl[178]40[172](ln[171]1)[170](cm[171]1)
  1084. 10930 [129] i[178]1[164]11
  1085. 10940 a2[178]cl[170]dl
  1086. 10950 [151] a2,c1
  1087. 10960 dl[178]dl[170]1
  1088. 10970 a2[178]cl[170]dl
  1089. 10980 [151] a2,c2
  1090. 10990 dl[178]dl[170]1
  1091. 11000 [130]
  1092. 11010 a2[178]a2[170]3
  1093. 11020 [151] a2,c1
  1094. 11030 a2[178]a2[170]1
  1095. 11040 [151] a2,c2
  1096. 11050 a2[178]a2[170]1
  1097. 11060 [151] a2,c1
  1098. 11070 a2[178]a2[170]1
  1099. 11080 [151] a2,c2
  1100. 11090 a2[178]a2[170]3
  1101. 11100 [151] a2,c1
  1102. 11110 a2[178]a2[170]1
  1103. 11120 [151] a2,c2
  1104. 11130 [139] ln[177]11 [167] 11150
  1105. 11140 ln[178]ln[170]1:c2[178]c1:c1[178]15:[137] 10920
  1106. 11150 [142]
  1107. 11160 [143] ====================
  1108. 11170 [143] position cursor
  1109. 11180 [143] ====================
  1110. 11190 [151] 783,0:[143] set cursor position
  1111. 11200 [151] 781,ln%:[143] line number
  1112. 11210 [151] 782,cm%:[143] column number
  1113. 11220 [158] 65520:[143] change cursor posn
  1114. 11230 [142]
  1115.