home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 207 / 207.d81 / b.planet (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2001-01-01  |  24.9 KB  |  808 lines
  1. 1 ifpeek(52016)<>32orpeek(52040)<>245thenload"linput.pr",8,1
  2. 2 rem planet of the robots
  3. 3 rem by daniel tobias
  4. 4 rem c64 version 1.1
  5. 5 rem 6/12/84
  6. 7 na$="[208]lanet of the [210]obots"
  7. 8 poke 53280,7:poke53281,1:print"[144]"
  8. 9 s=54272:fori=.to24:pokes+i,.:next
  9. 10 print"":li=52016
  10. 15 dim lv%(100,8),ld$(100,1),r%(100),id$(50),il%(50),pr(50),iw(50),l%(100)
  11. 17 dim wd$(100),w%(100,1),fw%(1)
  12. 18 dimv%(3),h%(2),o%(1),a(1)
  13. 20 gosub 18000:gosub 19000
  14. 60 print"[147]"
  15. 100 rem start
  16. 108 xx=1
  17. 110 ifxx=1thengosub1000
  18. 120 gosub500
  19. 125 xx=xx+1:ifxx>5thenxx=1
  20. 130 iffw%(0)=0thenprint"[215]hat?":goto110
  21. 140 onfw%(0)gosub2000,3000,4000,5000,5500,6000,7000,8000,9000,9500
  22. 142 iffw%(0)>10thenonfw%(0)-10gosub13000,13500,14500,15000,15500,16000,16500
  23. 143 iffw%(0)=18thengosub10000
  24. 145 iffw%(0)=99then300
  25. 150 t=t+1
  26. 160 goto110
  27. 200 rem convert to lower case
  28. 220 for ip=1tolen(i$)
  29. 230 ch$=mid$(i$,ip,1)
  30. 240 ifch$>="[193]"andch$<="[218]"theni$=left$(i$,ip-1)+chr$(asc(ch$)-128)+mid$(i$,ip+1)
  31. 260 next ip
  32. 270 return
  33. 300 rem end
  34. 305 print"[144]"
  35. 310 print "[211]top after"t"turns."
  36. 312 input"play again";pa$:ifpa$="y"orpa$="[217]"orpa$="[183]"thenrun
  37. 320 print
  38. 330 goto40000:remd"chr$(34)"hello"chr$(34)",8":print"qqqqruns":poke631,13:poke63
  39. 332 [151]198,2:[128]
  40. 500 [143] handle input
  41. 505 fw%(0)[178]0:fw%(1)[178]0
  42. 510 [153]"-->";:[158]li,b$:i$[178]b$[170]"":[153]
  43. 515 [139] i$[178]"" [167] 510
  44. 518 [141] 200
  45. 520 wd$[178]"":a[178]1
  46. 530 [139] [202](i$,a,1)[178]" " [167] 600
  47. 540 wd$[178]wd$[170][202](i$,a,1)
  48. 550 a[178]a[170]1:[139]a[179][178][195](i$)[167]530
  49. 600 [143] found word
  50. 610 [129]b[178]1[164]nw:[139]wd$(b)[178]wd$[167][141]650
  51. 620 [130]b:wd$[178]"":a[178]a[170]1
  52. 630 [139]a[177][195](i$)[167][142]
  53. 640 [137]530
  54. 650 [129]c[178]0[164]1
  55. 660 [139]w%(b,c)[177][178]0[167]fw%(c)[178]w%(b,c)
  56. 670 [130]c
  57. 680 [142]
  58. 1000 [143] print description
  59. 1002 [139]ld$(l,0)[178]"s"[167][141]12000
  60. 1005 [153]
  61. 1010 [153]ld$(l,l%(l))
  62. 1011 [139]l[178]28[175]j[178]0[167][153]"(NULL)here is a door with bars."
  63. 1012 [139]l[178]28[175]j[179][177]0[167][153]"(NULL)he bars are broken, leaving a way out."
  64. 1014 [153]
  65. 1015 l%(l)[178]1
  66. 1020 [153]"(NULL)pen pathways: ";:[129]a[178]1[164]8:[139]lv%(l,a)[179][177]0[167][153]dn$(a)" ";
  67. 1025 [130]a
  68. 1030 [153]
  69. 1040 [153]"(NULL)isible objects:"
  70. 1045 x[178]0
  71. 1050 [129]a[178]1[164]ni
  72. 1060 [139] il%(a)[178]l[167][153]" "id$(a);:x[178]1
  73. 1062 [139]il%(a)[178]l[175]pr(a)[177]0[175]r%(l)[178]1[167][153]" ((NULL)rice $"pr(a)")";
  74. 1065 [139] il%(a)[178]l[167][153]
  75. 1070 [130]a
  76. 1080 [139]x[178]0[167][153]"(NULL)here are none."
  77. 1082 [139] r%(l)[179][177]0[167][153]
  78. 1085 [139]r%(l)[178]1[167][153]"lenlerk robot here."
  79. 1090 [139]r%(l)[177]20[175]r%(l)[179]29[167][153]"chr$uard robot here."
  80. 1110 [139] r%(l)[178]3[167][153]"peekerzerk robot here!"
  81. 1120 [139]t[171]e[177][178]100[167][153]"(NULL)ou are getting hungry!"
  82. 1480 [153]
  83. 1490 [142]
  84. 2000 [143] move
  85. 2005 [139]fw%(1)[179]101[176]fw%(1)[177]108[167][153]"chr$o where?":[142]
  86. 2010 x[178]lv%(l,fw%(1)[171]100)
  87. 2020 [139]x[179]0[176]x[177]nl[167][153]"(NULL)ot defined yet.":[142]
  88. 2025 [139]l[178]28[175]i$[178]"break out"[167]15000
  89. 2030 [139]x[178]0[167][153]"(NULL)ou can't go that way.":[142]
  90. 2035 [139]r%(l)[178]3[167][153]"(NULL)obot: (NULL)rying to escape, huh?  right$t won't"
  91. 2037 [139]r%(l)[178]3[167][153]"work!  (NULL)ap! (NULL)ou're dead!":[137]300
  92. 2040 [139]x[178]6[175]il%(7)[179][177]0[167][153]"(NULL)obot: right$'m sorry, but the dress code"
  93. 2041 [139]x[178]6[175]il%(7)[179][177]0[167][153]"  requires that you wear a tie.":[142]
  94. 2042 [139]l[178]6[175]r[179][177]0[167][153]"(NULL)obot: right$'m sorry.  (NULL)ou are a bad credit"
  95. 2043 [139]l[178]6[175]r[179][177]0[167][153]"  risk.  (NULL)ou can't enter.":[142]
  96. 2045 [139]r%(l)[178]20[170]fw%(1)[171]100[167]2500
  97. 2060 [143]
  98. 2065 [139]l[178]39[175]x[178]39[175][187](0)[179].35[167]pl[178]1[171]pl:x[178]35:[139]pl[178]0[167]x[178]40
  99. 2080 [139]x[178]17[167][153]"(NULL)obot: (NULL)orry, this information booth is   out of order."
  100. 2085 [139]x[178]17[167][142]
  101. 2087 [139]ld$(x,0)[178]"(NULL)"[167][141]12000:[142]
  102. 2090 [139]l[178]36[175]x[178]37[167][133]"valnter combination";a$
  103. 2095 [139]l[178]36[175]x[178]37[175][197](a$)[179][177]cm%[167][153]"(NULL)orry. (NULL)rong!":[142]
  104. 2100 [139]x[178]38[167]14000
  105. 2200 l[178]x:xx[178]1:[142]
  106. 2500 [143] id card
  107. 2510 [139]il%(12)[178]0[167][153]"(NULL)obot: right$.str$. accepted.  (NULL)ou can pass."
  108. 2520 [139]il%(12)[178]0[167][153]"  chr$ood day, (NULL)r. (NULL)mith.":[137]2060
  109. 2530 [153]"(NULL)obot: right$'m sorry, but you can't go that   way without an right$.str$. card."
  110. 2540 [142]
  111. 3000 [143] pick up
  112. 3005 [139]fw%(1)[178]0[176]fw%(1)[177]ni[167][153]"(NULL)o such thing here.":[142]
  113. 3006 [139]il%(fw%(1))[178]0[167][153]"(NULL)ou are already carrying it!":[142]
  114. 3007 [139]il%(fw%(1))[179][177]l[167][153]"(NULL)o such thing here.":[142]
  115. 3009 [139]pr(fw%(1))[177]0[175]r%(l)[178]1[167][153]"(NULL)obot: (NULL)ou can't take that without"
  116. 3010 [139]pr(fw%(1))[177]0[175]r%(l)[178]1[167][153]"  paying for it!  (NULL)lease buy it if you"
  117. 3011 [139]pr(fw%(1))[177]0[175]r%(l)[178]1[167][153]"  want it.":[142]
  118. 3013 hf[178]0
  119. 3015 [139]wt[170]iw(fw%(1))[177]150[175]iw(fw%(1))[179][178]150[167] hf[178]1
  120. 3017 [139] hf[178]1 [167] [153] "(NULL)oo heavy.  (NULL)ou must drop something     first.":[142]
  121. 3020 [139]iw(fw%(1))[177]150[167][153]"(NULL)oo heavy for you to lift.":[142]
  122. 3030 [139]iw(fw%(1))[179]0[167][153]"right$t is securely fastened.":[142]
  123. 3040 il%(fw%(1))[178]0:wt[178]wt[170]iw(fw%(1))
  124. 3045 [153] "(NULL)(NULL)."
  125. 3050 [139]fw%(1)[178]10[167]m[178][182](m)
  126. 3060 [142]
  127. 4000 [143] drop
  128. 4010 [139]fw%(1)[179]1[176]fw%(1)[177]ni[167][153]"(NULL)ou are not carrying one.":[142]
  129. 4020 [139]il%(fw%(1))[179][177]0[167][153]"(NULL)ou are not carrying one.":[142]
  130. 4030 il%(fw%(1))[178]l:wt[178]wt[171]iw(fw%(1))
  131. 4040 [153] "(NULL)(NULL)."
  132. 4042 [139]l[178]39[167][153]"right$t slides into a crevice in the ruins   and is lost."
  133. 4043 [139]l[178]39[167]il%(fw%(1))[178][171]1
  134. 4045 [139]fw%(1)[178]10[167]m[178][171][182](m)
  135. 4050 [142]
  136. 5000 [143] look
  137. 5005 [139]fw%(1)[177]0[167]8000
  138. 5010 xx[178]1
  139. 5020 l%(l)[178]0
  140. 5030 [142]
  141. 5500 [143] inv
  142. 5505 x[178]0
  143. 5510 [153] "(NULL)ou are carrying:"
  144. 5520 [129]a[178]1[164]ni
  145. 5525 [139]a[178]10[167]5540
  146. 5530 [139]il%(a)[178]0[167][153]" "id$(a):x[178]1
  147. 5540 [130]a
  148. 5545 [139]m[177]0[167][153]"close$"m"in cash.":x[178]1
  149. 5550 [139]x[178]0[167][153]"(NULL)othing."
  150. 5560 [142]
  151. 6000 [143] save game
  152. 6010 [153]"valnter filename. (str$efault: planet.save)":[133]f$
  153. 6015 [139]f$[178]""[167]f$[178]"planet.save"
  154. 6017 [159]15,8,15:[152]15,"s:"f$:[160]15
  155. 6020 [159]2,8,2,f$[170]",s,w"
  156. 6040 [152]2,l:[129]b[178]1[164]ni:[152]2,il%(b):[130]b:[152]2,wt:[152]2,t
  157. 6050 [129]b[178]1[164]nl:[152]2,r%(b):[130]b:[152]2,m:[152]2,e
  158. 6060 [129]b[178]1[164]ni:[152]2,pr(b):[130]b
  159. 6070 [152]2,cm%:[152]2,r:[152]2,j
  160. 6080 [152]2,pw:[152]2,rm
  161. 6090 [160]2
  162. 6100 [153] "(NULL)(NULL).":[142]
  163. 6500 [143] load game
  164. 6510 [153]"valnter filename. (str$efault: planet.save)":[133]f$
  165. 6515 [139]f$[178]""[167]f$[178]"planet.save"
  166. 6520 [159]15,8,15
  167. 6530 [159]2,8,2,f$[170]",s,r"
  168. 6540 [141] 6900
  169. 6550 [132]2,l:[129]b[178]1[164]ni:[132]2,il%(b):[130]b:[132]2,wt:[132]2,t
  170. 6560 [129]b[178]1[164]nl:[132]2,r%(b):[130]b:[132]2,m:[132]2,e
  171. 6565 [129]b[178]1[164]ni:[132]2,pr(b):[130]b
  172. 6570 [132]2,cm%:[132]2,r:[132]2,j
  173. 6575 [139]j[179][177]0[167]lv%(28,8)[178]27
  174. 6580 [132]2,pw:[132]2,rm
  175. 6590 [160]2:[160]15
  176. 6600 [142]
  177. 6900 [132]15,a$,b$,c$,d$
  178. 6910 [139][197](a$)[177]0[167][153]"chr$ame not found.":[129]a[178]1[164]100:[130]a:[138]
  179. 6920 [142]
  180. 7000 [143] weigh
  181. 7010 [139]il%(2)[179][177]l[175]il%(2)[179][177]0[167][153]"(NULL)here is no scale.":[142]
  182. 7020 [139]fw%(1)[178]2[167][153]"(NULL)ou can't weigh it on itself!":[142]
  183. 7030 [139]fw%(1)[179]1[176]fw%(1)[177]ni[167][153]"(NULL)here is no such item here.":[142]
  184. 7040 [139]il%(fw%(1))[179][177]l[175]il%(fw%(1))[179][177]0[167][153]"(NULL)here is no such item here.":[142]
  185. 7050 [153]"right$t weighs"iw(fw%(1))"pounds."
  186. 7060 [142]
  187. 8000 [143] read/examine
  188. 8005 [139]fw%(1)[178]200[167][153]"(NULL)he bars look rusty and weak.":[142]
  189. 8010 [139]fw%(1)[179]1[176]fw%(1)[177]ni[167][153]"(NULL)o such thing here.":[142]
  190. 8020 [139]il%(fw%(1))[179][177]l[175]il%(fw%(1))[179][177]0[167][153]"(NULL)o such thing here.":[142]
  191. 8030 [139]fw%(1)[178]5[167][153]"(NULL)he sign says: right$nsert $2.50.":[142]
  192. 8050 [139]fw%(1)[178]10[167][153]"(NULL)hey are mostly dollar coins, but there"
  193. 8055 [139]fw%(1)[178]10[167][153]"are some $2.50 pieces.":[142]
  194. 8060 [139]fw%(1)[178]4[167][153]"right$t has many peripherals, including a    modem.":[142]
  195. 8070 [139]fw%(1)[178]8[167][153]"right$t is (NULL)he atndventures of (NULL)uper(NULL)obot.":[142]
  196. 8080 [139]fw%(1)[178]12[167][153]"right$t belonged to secret agent peekill (NULL)mith,"
  197. 8085 [139]fw%(1)[178]12[167][153]"who had the highest security clearance.":[142]
  198. 8090 [139]fw%(1)[178]14[167][153]"(NULL)hey appear to be the fragments of a"
  199. 8095 [139]fw%(1)[178]14[167][153]"butcher's knife.":[142]
  200. 8100 [139]fw%(1)[178]11[167]8200
  201. 8110 [139]fw%(1)[178]13[167]8300
  202. 8190 [153]"(NULL)othing interesting.":[142]
  203. 8200 [153]"(NULL)itle: left$ow to (NULL)ake (NULL)he (NULL)ost of lenomputer   (NULL)etworks":[153]
  204. 8210 [153]"(NULL)ou can access the government's public"
  205. 8215 [153]"information data files through any"
  206. 8217 [153]"modem-equipped computer.  (NULL)o do this,   simply type:"
  207. 8220 [153] "  (NULL)(NULL)atnstr$"[199](34)"(NULL)val(NULL)(NULL)6400"[199](34)",8,1"
  208. 8230 [153]"(NULL)hen, you select the government network by typing:"
  209. 8235 [153]"  chr$(NULL)(NULL)(NULL)"
  210. 8240 [153]"(NULL)ow, you are asked the name of the file"
  211. 8245 [153]"you want.  asciles you have access to"
  212. 8247 [153]"include '(NULL)(NULL)(NULL)', which contains the"
  213. 8250 [153]"current population of the (NULL)(NULL)atn.  left$ave    fun!"
  214. 8260 [153]:[142]
  215. 8300 [153]"          (NULL)close(NULL)close(NULL)closecloseclose(NULL)closevalcloselenclose(NULL)closevalclose(NULL)"
  216. 8310 [153]"(NULL)o: (NULL)orkers on (NULL)roject lenhronos"
  217. 8320 [153]:[153]"(NULL)he current combination to the door of"
  218. 8323 [153]"room "rm" is posted on the government"
  219. 8326 [153]"computer network in the file titled"
  220. 8328 [153]"'lenleft$(NULL)(NULL)(NULL)(NULL)(NULL)'.  (NULL)he password to the file is":[153]"'"pw$(pw);"'."
  221. 8330 [142]
  222. 8500 [143] trial/jail
  223. 8510 [153] "* atn police robot arrives. *"
  224. 8515 [153]
  225. 8520 [153]"(NULL)olice: (NULL)ou are under arrest.  (NULL)ou have"
  226. 8530 [153]"  a right to refrain from inputting"
  227. 8533 [153]"  anything; anything you input may be"
  228. 8536 [153]"  held against you in court."
  229. 8540 [153]"stop* (NULL)ou are taken to a courtroom.      *"
  230. 8545 [153]"* (NULL)he judge and jury are all robots. *"
  231. 8550 [153]
  232. 8560 [153]:[153]"mid$udge: (NULL)ou are charged with ";
  233. 8580 [139]ch[178]1[167][153]"atnssault of":[153]"  a (NULL)obot. ";
  234. 8590 [139]ch[179][177]1[167][153]"(NULL)heft of":[153]"  services.";
  235. 8600 [153]"  left$ow do you plead?"
  236. 8605 [153]
  237. 8610 [153] "str$efendant: ";:[158]li,b$:i$[178]b$[170]"":[153]
  238. 8615 [153]
  239. 8620 [141]200:[139][195](i$)[177][178]6[167][139][200](i$,6)[178]"guilty"[167]8900
  240. 8630 [153]"mid$udge: (NULL)he str$istrict atnttorney will now     present his case."
  241. 8635 [153]
  242. 8640 [153]"* (NULL)he str$.atn. is also a robot. *"
  243. 8645 [153]
  244. 8650 [153]"str$.atn.: right$ will now call upon the ";
  245. 8660 [139]r%(l)[178]1[167][153]"clerk "
  246. 8665 [139]r%(l)[179][177]1[167][153]"guard "
  247. 8670 [153]" robot, serial #"[181]([187](1)[172]999999)" to testify."
  248. 8672 [153]
  249. 8677 [139]ch[179][177]1[167]8700
  250. 8680 [153]"(NULL)obot: (NULL)his man assaulted me with a":[139]il%(9)[178]0[167][153]" ray gun ";
  251. 8685 [139] il%(9)[179][177]0[167][153]" knife ";
  252. 8690 [153]"only"[181]([187](1)[172]59)"minutes,"[187](1)[172]59:[153]"  seconds ago."
  253. 8692 [153]
  254. 8695 [153]"str$.atn.: right$ rest my case."
  255. 8696 [153]
  256. 8697 [137]8800
  257. 8700 [143] [212]heft of [211]ervices
  258. 8710 [153]"(NULL)obot: (NULL)his man had a meal at the"
  259. 8712 [153]"  restaurant in which right$ work, and would   not pay."
  260. 8715 [153]
  261. 8720 [153]"str$.atn.: (NULL)hen did this happen?"
  262. 8725 [153]
  263. 8730 [153]"(NULL)obot: mid$ust"[181]([187](1)[172]59)" minutes, "[187](1)[172]59:[153]"  seconds ago."
  264. 8735 [153]
  265. 8740 [153]"str$.atn.: right$ rest my case."
  266. 8745 [153]
  267. 8800 [143] your reply
  268. 8810 [153]"mid$udge: (NULL)hat does the defendant have to    say for himself?"
  269. 8815 [153]
  270. 8820 [153]"str$efendant: ";:[158]li,b$:i$[178]b$[170]"":[153]
  271. 8822 [153]
  272. 8825 [153]"mid$udge: (NULL)he jury will now reach a          verdict."
  273. 8827 [129]a[178]1[164]1500:[130]a:[153]
  274. 8830 [153]"mid$ury: (NULL)he word of a robot is more"
  275. 8833 [153]"  reliable than that of a mere human."
  276. 8836 [153]"  (NULL)herefore, we find the defendant        guilty as charged."
  277. 8840 [153]
  278. 8900 [143] sentencing
  279. 8905 se[178]2
  280. 8910 [139]ch[178]1[167][153]"mid$udge: (NULL)ou are hereby sentenced to death  by electrocution."
  281. 8915 [139]ch[178]1[167][153]:[153]"* (NULL)ou are taken to an execution chamber * and killed.":[137]300
  282. 8920 [153]"mid$udge: (NULL)ou are hereby sentenced to "
  283. 8923 [153]" "se"years in prison.  peekailiff, please"
  284. 8926 [153]"  remove the prisoner.  (NULL)ext case!"
  285. 8930 [153]:l[178]28
  286. 8940 [129]a[178]1[164]ni:[139]il%(a)[178]0[167]il%(a)[178]29
  287. 8942 [130]a
  288. 8945 m[178][171][182](m)
  289. 8950 xx[178]1:[142]
  290. 9000 [143] shoot
  291. 9010 [139]il%(9)[179][177]0[167][153]"(NULL)ith what?":[142]
  292. 9020 [139]r%(l)[178]0[167][153]"(NULL)othing to shoot at.":[142]
  293. 9030 [139]r%(l)[179][177]3[167][153]"(NULL)he robot's force field repels the ray.":ch[178]1:[137]8500
  294. 9040 [153]"(NULL)he defect which caused the robot to"
  295. 9045 [153]"malfunction also affected its normally"
  296. 9050 [153]"invulnerable force field.  (NULL)our shot    destroys it."
  297. 9060 r%(l)[178]0
  298. 9070 [142]
  299. 9500 [143] buy
  300. 9501 [139]fw%(1)[179]1[176]fw%(1)[177]ni[167][153]"(NULL)o such thing here.":[142]
  301. 9503 [139]il%(fw%(1))[178]0[167][153]"(NULL)ou are already carrying it.":[142]
  302. 9505 [139]il%(fw%(1))[179][177]l[167][153]"(NULL)o such thing here.":[142]
  303. 9510 [139]pr(fw%(1))[178]0[167][153]"(NULL)here is no price on it.":[142]
  304. 9520 p[178]pr(fw%(1))
  305. 9525 [139]m[179][178]0[167][153]"(NULL)ou do not have any money!":[142]
  306. 9530 [139]p[177]m[167][153]"(NULL)ou do not have enough money!":[142]
  307. 9540 m[178]m[171]p
  308. 9550 pr(fw%(1))[178]0
  309. 9560 [137]3000
  310. 10000 [143] computer
  311. 10002 [139]il%(4)[179][177]l[167][153]"(NULL)o such thing here.":[142]
  312. 10005 [153]"(NULL)obot: (NULL)hen you are finished, type        '(NULL)ascasc' to shut it off.":[153]
  313. 10007 [153]"left$it return to turn computer on. ";:[158]li,b$:[153]
  314. 10010 [158]65409
  315. 10020 [153]"   **** commodore 6400 basic v32 ****"
  316. 10025 [153]"64m ram system 38911206 basic bytes free":[153]"ready."
  317. 10030 [158]li,b$:i$[178]b$[170]"":[153]
  318. 10035 [129]a[178]1[164][195](i$):[139][202](i$,a,1)[178]" "[167]i$[178][200](i$,a[171]1)[170][202](i$,a[170]1)
  319. 10037 [130]a
  320. 10040 [139] i$[178]"load"[170][199](34)[170]"term6400"[170][199](34)[170]",8,1" [167] 10100
  321. 10045 [139]i$[178]"off"[167]xx[178]1:[137]10500
  322. 10047 [153]
  323. 10050 i[178][181]([187](1)[172]5)[170]1
  324. 10055 [145]i[141]10060,10065,10070,10075,10080:[153]"ready.":[137]10030
  325. 10060 [153]"?syntax  error":[142]
  326. 10065 [153]"?unbalanced coordinate  error":[142]
  327. 10070 [153]"?improper delimiter  error":[142]
  328. 10075 [153]"?unformatted reference  error":[142]
  329. 10080 [153]"?unindexable address  error":[142]
  330. 10100 [143] modem
  331. 10110 [137]30500
  332. 10120 [153]"(NULL)elcome to the (NULL).(NULL). chr$ovt str$atabase!":[153]"(NULL)ype '(NULL)ascasc'closeto log off."
  333. 10140 [133]"(NULL)ame of file to access";i$:[141]200:[139]i$[178]"off"[167]10550
  334. 10150 [139]i$[178]"pop"[167]10600
  335. 10160 [139]i$[178]"chronos"[167]10200
  336. 10170 [153]"(NULL)o such file!":[137]10140
  337. 10200 [143] chronos
  338. 10210 [133]"lenlassified!  (NULL)assword";i$
  339. 10220 [139]i$[179][177]pw$(pw)[167][153]"right$mproper password!":[137]10140
  340. 10230 [153]"(NULL)roject lenhronos combination:"cm%"."
  341. 10240 [137] 10140
  342. 10500 [143] exit computer
  343. 10505 xx[178]1
  344. 10510 [151]53280,7:[151]53281,1:[153]"load"
  345. 10517 [153]""
  346. 10520 [142]
  347. 10550 [153]"(NULL)ogging off chr$(NULL)(NULL)(NULL) system -- left$ave a good  day!"
  348. 10555 [129]i[178]1[164][187](.)[172]10[170]5:[153][199]([187](.)[172]256);:[129]p[178]1[164][187](.)[172]200:[130]:[130]
  349. 10560 [153]:[153]"lenarrierclosetonecloselost!"
  350. 10570 [153]:[153]"syspeekack to (NULL)val(NULL)(NULL)6400.  (NULL)our choices:"
  351. 10575 [153]" (1) atnccess another system"
  352. 10580 [153]" (2) valxit to peekatn(NULL)right$len"
  353. 10585 [153]" (3) valxit and (NULL)urn lenomputer (NULL)ff"
  354. 10587 i$[178]""
  355. 10590 [153]:[133]"(NULL)our choice";i$
  356. 10595 [139][197](i$)[178]0[167]10590
  357. 10597 [145][197](i$)[137]30025,30200,10500
  358. 10598 [137]10590
  359. 10600 [153]"(NULL)he current population of the (NULL).(NULL).atn."
  360. 10610 [153]"according to census figures as of"
  361. 10620 [153]"7/6/2121: valxactly 0 persons,  23,241,203robots."
  362. 10630 [153]:[137]10120
  363. 11000 [143] restaurant
  364. 11010 [153]"(NULL)obot: left$ere is the menu:"
  365. 11020 [153]"  (1) (NULL)arsburger"
  366. 11025 [153]"      $120"
  367. 11030 [153]"  (2) chr$reen chr$oop ((NULL)pecial of the week!"
  368. 11035 [153]"      $140"
  369. 11040 [153]"  (3) lenaviar and lenhampagne"
  370. 11045 [153]"      $350"
  371. 11047 [153]"(left$it (NULL)val(NULL)(NULL)(NULL)(NULL)wait if you don't wish to order.)":i$[178]""
  372. 11050 [133]"(NULL)our order (by number)";i$
  373. 11060 [139]i$[178]""[167][142]
  374. 11070 [139][197](i$)[179]1[176][197](i$)[177]3[167]11050
  375. 11080 [153]:[153]"(NULL)ou are served."
  376. 11090 [153]"(NULL)mm. right$t tastes good."
  377. 11095 e[178]t
  378. 11100 [153]:[153]"(NULL)obot: (NULL)our check, sir."
  379. 11120 [153]:[153]"(NULL)ou do not have enough money!"
  380. 11130 ch[178]0:[137]8500
  381. 12000 [143] subway
  382. 12005 l[178]lv%(l,6)
  383. 12010 [153]"(NULL)ou enter at the "ld$(l,1):[153]"station."
  384. 12015 [153]
  385. 12020 [139]lv%(l,1)[178]0[167]i[178]2:[137]12050
  386. 12030 [139]lv%(l,2)[178]0[167]i[178]1:[137]12050
  387. 12040 [153]"(NULL)hich train ((NULL)orthbound or (NULL)outhbound)":[133]i$
  388. 12045 i[178]2:[139][200](i$,1)[178]"(NULL)"[176][200](i$,1)[178]"n"[167]i[178]1
  389. 12050 l[178]lv%(l,i)
  390. 12060 [153]"(NULL)ext station: "ld$(l,1)
  391. 12065 [139]lv%(l,i)[178]0[167][153]"valnd of the line.":l[178]lv%(l,8):xx[178]1:[142]
  392. 12070 [153]
  393. 12080 [133]"str$o you want to get off here";i$
  394. 12085 [139][200](i$,1)[178]"(NULL)"[176][200](i$,1)[178]"y"[167]l[178]lv%(l,8):xx[178]1:[142]
  395. 12090 [153]:[137]12050
  396. 13000 [143] call robot
  397. 13002 [139]r%(l)[178]0[167][153]"(NULL)obody to call.":[142]
  398. 13003 [139]r%(l)[179][177]1[167]13200
  399. 13010 [139]l[178]6[167]11000
  400. 13020 [139]l[178]34[167]13300
  401. 13030 [139]l[178]36[167]13400
  402. 13040 [139]l[178]3[167][153]"(NULL)obot: (NULL)ould you like to try out the    lenommodore 6400"
  403. 13045 [139]l[178]3[167][133]i$:[139][200](i$,1)[178]"(NULL)"[176][200](i$,1)[178]"y"[167]10000
  404. 13047 [139]l[178]3[167][142]
  405. 13050 [153]"(NULL)obot: lenan right$ help you?"
  406. 13060 [133]i$
  407. 13065 [139]i$[178]""[167]13060
  408. 13070 [141]520
  409. 13080 [139]fw%(0)[178]10[167][141]9500:[142]
  410. 13085 [139]fw%(1)[178]4[175]l[178]3[167]10000
  411. 13090 [153]"(NULL)obot: right$ am not programmed to handle      queries of this type."
  412. 13190 [142]
  413. 13200 [143] guard and berzerk robots
  414. 13210 [139]r%(l)[178]3[167][153]"(NULL)he robot kills you while you are trying";
  415. 13215 [139]r%(l)[178]3[167][153]"to communicate with it!":[137]300
  416. 13220 [153]"(NULL)obot: (NULL)es?"
  417. 13230 [133]i$
  418. 13240 [153]"(NULL)obot: right$ am unauthorized to handle        queries of this nature."
  419. 13250 [142]
  420. 13300 [143] university
  421. 13310 [153]"(NULL)obot: (NULL)hat room number do you want?":[133]i$
  422. 13320 [139][197](i$)[179][177]rm[167][153]"(NULL)obot: (NULL)orry, that room is not open.":[142]
  423. 13330 [153]:[153]"(NULL)he wall slides open, and you are"
  424. 13333 [153]"briskly carried on a platform floating"
  425. 13336 [153]"inches above the floor, through several"
  426. 13338 [153]"hallways.  (NULL)ou come to a stop."
  427. 13340 l[178]36:xx[178]1:[142]
  428. 13400 [143] hall
  429. 13410 [153]"(NULL)obot: str$o you want to return to the":[133]"lobby";i$
  430. 13420 [139][200](i$,1)[178]"(NULL)"[176][200](i$,1)[178]"y"[167]l[178]34:xx[178]1
  431. 13430 [142]
  432. 13500 [143] play game
  433. 13505 [153]
  434. 13510 [153]"lenost:close$2.50"
  435. 13520 [139]m[179]2.5[167][153]"(NULL)ou can't afford it.":[142]
  436. 13530 [153]:[153]"(NULL)he machine is out of order.  right$t takes"
  437. 13540 [153]"your money, but does not play.  (NULL)ou"
  438. 13550 [153]"pound on it, but nothing happens, and   you don't get your money back."
  439. 13560 m[178]m[171]2.5
  440. 13570 [142]
  441. 14000 [143] time machine
  442. 14010 [153]"(NULL)ou are in the time machine!"
  443. 14020 [153]"(NULL)ow, set the controls:"
  444. 14030 [133]"(NULL)ear";y
  445. 14040 [133]"(NULL)onth";i$:[133]"str$ay";i$:[133]"left$our";i$:[133]"(NULL)inute";i$
  446. 14045 [133]"(NULL)econd";i$
  447. 14050 [153]:[153]"(NULL)he machine whirrs..."
  448. 14060 [129]a[178]1[164]1000:[130]a
  449. 14070 [153]"(NULL)ou have arrived!"
  450. 14080 [139]y[177][178]1970[175]y[179]2001[167][153]"peekack in the 20th century at last!  (NULL)ou  win!"
  451. 14085 [139]y[177][178]1970[175]y[179]2001[167]300
  452. 14090 [139]y[177][178]2001[167][153]"(NULL)hy did you go to the future again?  right$"
  453. 14095 [139]y[177][178]2001[167][153]"didn't program any adventure game for"
  454. 14096 [139]y[177][178]2001[167][153]"that century, and the time machine is"
  455. 14098 [139]y[177][178]2000[167][153]"out of power.  (NULL)ou're on your own.":[137]300
  456. 14100 [139]y[179]1970[175]y[177][178]1901[167][153]"(NULL)ell, at least you made it to the 20th"
  457. 14110 [139]y[179]1970[175]y[177]1901[167][153]"century, but you'll have to wait a"
  458. 14120 [139]y[179]1970[175]y[177]1901[167][153]"while for lenommodore computers to be     invented."
  459. 14130 [139]y[179]1970[175]y[177]1901[167]300
  460. 14140 [153]"(NULL)ou end up in the year"y".  right$ didn't"
  461. 14150 [153]"program any adventure for that century,"
  462. 14160 [153]"and the time machine is out of power,   so you are on your own."
  463. 14170 [137]300
  464. 14500 [143] eat
  465. 14502 [139]fw%(1)[178]0[175]l[178]6[167]11000
  466. 14510 [139]fw%(1)[179]1[176]fw%(1)[177]ni[167][153]"valat what?":[142]
  467. 14520 [139]il%(fw%(1))[179][177]0[167][153]"valat what?":[142]
  468. 14530 [139]iw(fw%(1))[177]2[167][153]"str$on't be ridiculous!":[142]
  469. 14540 [139]fw%(1)[178]3[167][153]"(NULL)mm. (NULL)hat was good.":e[178]t:[137]14565
  470. 14545 [153]"lenhomp lenhomp lenhomp"
  471. 14550 [153]"right$t could have used a little salt."
  472. 14560 [139]t[171]e[177]150[167][153]"(NULL)ot very nutritious.  (NULL)ou7re still      hungry."
  473. 14565 il%(fw%(1))[178][171]1
  474. 14567 [139]fw%(1)[178]10[167]m[178]0
  475. 14570 [142]
  476. 15000 [143] break out of jail
  477. 15010 [139]l[179][177]28[167][153]"(NULL)hat?":[142]
  478. 15020 [153]"(NULL)he rusty, weakened bars give way and   there is an opening out."
  479. 15030 lv%(28,8)[178]27:j[178]1
  480. 15040 [142]
  481. 15500 [143] attack
  482. 15510 [139]il%(9)[178]0[167]9000
  483. 15515 [139]r%(l)[178]0[167][153]"(NULL)othing to attack.":[142]
  484. 15520 [139]il%(1)[179][177]0[167][153]"(NULL)ou have no hope of fighting a tough"
  485. 15525 [139]il%(1)[179][177]0[167][153]"metal robot with your bare hands.":[142]
  486. 15530 [153]"(NULL)he knife shatters against the robot's  tough side."
  487. 15535 il%(1)[178][171]1:il%(14)[178]l
  488. 15538 [139]r%(l)[178]3[167][153]"(NULL)he robot kills you.":[137]300
  489. 15540 ch[178]1:[137]8500
  490. 16000 [143] open
  491. 16010 [153]"atnll the doors open and close"
  492. 16020 [153]"automatically, so there is no need to   open or close them."
  493. 16030 [142]
  494. 16500 [143] help
  495. 16510 [153]:[153]"(NULL)ome available commands:"
  496. 16530 [153]" right$(NULL)(NULL)":[153]" chr$val(NULL) [object]":[153]" peek(NULL)(NULL) [object]":[153]" str$(NULL)(NULL)(NULL) [object]"
  497. 16540 [153]" val(NULL)atn(NULL)right$(NULL)val [object]":[153]" lenatn(NULL)(NULL)close(NULL)(NULL)peek(NULL)(NULL)":"closeatn(NULL)(NULL)atnlen(NULL)close(NULL)(NULL)peek(NULL)(NULL)":"close(NULL)left$(NULL)(NULL)(NULL)close(NULL)(NULL)peek(NULL)(NULL)"
  498. 16545 [153]"close(NULL)(NULL)(NULL)(NULL)"
  499. 16550 [153]:[142]
  500. 18000 [143] opening titles
  501. 18010 [153] "load"
  502. 18020 [153]:[153]:[153]:[153]:[153]
  503. 18030 [153]:[153]:[153]"     **** (NULL)lanet of the (NULL)obots ****"
  504. 18040 [153]
  505. 18050 [153]"        lenommodore 64 (NULL)ersion 1.1"
  506. 18060 [153]:[153]"   lenopyright (len) 1984 by str$aniel (NULL)obias"
  507. 18070 [153]:[133]"         right$nstructions ((NULL)/(NULL)) ";i$
  508. 18080 [139] [200](i$,1)[178]"(NULL)" [176] [200](i$,1)[178]"n" [167] [142]
  509. 18500 [143] instructions
  510. 18510 [153]"load"
  511. 18520 [153]"atn time warp has suddenly transported":[153]
  512. 18530 [153]"you into the future, where a war using":[153]
  513. 18550 [153]"neutron bombs and bacteriological"
  514. 18560 [153]:[153]"warfare has completely wiped out the":[153]
  515. 18570 [153]"human race.  left$owever, the computers":[153]
  516. 18580 [153]"and robots don't know this, and keep":[153]
  517. 18585 [153]"going about their business as if nothing":[153]"has happened.":[153]
  518. 18587 [153]"*** left$it return to continue ***";:[158]li,b$:[153]"load"
  519. 18590 [153]"(NULL)ou explore the world you are thrust"
  520. 18595 [153]:[153]"into using simple sentences, in the"
  521. 18600 [153]:[153]"standard adventure-game fashion, such"
  522. 18610 [153]:[153]"as atn(NULL)(NULL)atnlen(NULL)close(NULL)(NULL)peek(NULL)(NULL)closeor val(NULL)atn(NULL)right$(NULL)valcloselen(NULL)right$(NULL)."
  523. 18620 [153]:[153]"right$f a robot is in the room, you may"
  524. 18625 [153]:[153]"attempt to talk to it by typing lenatn(NULL)(NULL)"
  525. 18630 [153]:[153]"(NULL)(NULL)peek(NULL)(NULL), but positive results are not":[153]:[153]"guaranteed!"
  526. 18635 [153]:[153]"*** left$it return to continue. ***";:[158]li,b$:[153]"load"
  527. 18640 [153]"chr$(NULL)close(NULL)(NULL)(NULL)(NULL)left$ may be abbreviated (NULL), and the"
  528. 18650 [153]:[153]"same may be done with the other compass"
  529. 18660 [153]:[153]"directions."
  530. 18670 [153]:[153]"(NULL)he object is to get back to the 20th"
  531. 18680 [153]:[153]"century.  chr$ood luck!"
  532. 18690 [153]:[153]"(NULL)ome utility commands:"
  533. 18700 [153]"  (NULL)(NULL)right$(NULL) exits game":[153]"  (NULL)atn(NULL)val saves game in progress to disk."
  534. 18710 [153]:[153]"*** left$it return to start. ***";:[158]li,b$:[153]"load":[142]
  535. 18999 [142]
  536. 19000 [143] initialize
  537. 19002 [153]"load(NULL)lease wait.  right$nitializing data."
  538. 19005 [129]a[178]1[164]8:[135]dn$(a):[130]a
  539. 19020 a[178]1
  540. 19025 [129]b[178]0[164]1:[135]ld$(a,b):[130]b:[139]ld$(a,0)[179][177]""[167]a[178]a[170]1:[137]19025
  541. 19027 nl[178]a[171]1
  542. 19030 [129]a[178]1[164]nl:[129]b[178]1[164]8:[135]lv%(a,b):[130]b:[135]r%(a):[130]a
  543. 19040 [129]a[178]1[164]nl:l%(a)[178]0:[130]a
  544. 19050 a[178]1
  545. 19060 [135]id$(a),il%(a),iw(a),pr(a):[139]il%(a)[179][177][171]999[167]a[178]a[170]1:[137]19060
  546. 19065 ni[178]a[171]1
  547. 19067 [129]a[178]1[164]10:[135]pw$(a):[130]a
  548. 19070 a[178]1
  549. 19075 [135]wd$(a),w%(a,0),w%(a,1):[139]wd$(a)[179][177]""[167]a[178]a[170]1:[137]19075
  550. 19080 nw[178]a[171]1
  551. 19085 l[178]1:t[178]1
  552. 19087 w[178]0:m[178][171]119
  553. 19088 e[178]0:j[178]0:r[178]0
  554. 19090 [153] "load":[133]"(NULL)oad game from disk ((NULL)/(NULL)) ";i$
  555. 19093 pw[178][181]([187](0)[172]10)[170]1
  556. 19096 cm%[178][181]([187](0)[172]9999):rm[178][181]([187](0)[172]900)[170]100
  557. 19100 [139][200](i$,1)[178]"(NULL)"[176][200](i$,1)[178]"y"[167][141]6500
  558. 19110 f[178].0596064645
  559. 19120 [129]i[178].[164]3:[135]p:v%(i)[178]p[173]f[170].5:[130]:[129]i[178].[164]2:[135]p:h%(i)[178]p[173]f[170].5:[130]
  560. 19125 [129]i[178].[164]1:[135]p:o%(i)[178]p[173]f[170].5:[130]:[129]i[178].[164]1:[135]p:a(i)[178][181](p[173]f[170].5):[130]
  561. 19130 [142]
  562. 20000 [143] data
  563. 20005 [131]"(NULL)close","(NULL) ","val ","(NULL) ","(NULL) ","str$ ","right$(NULL) ","(NULL)(NULL)(NULL)"
  564. 20040 [131]"stop(NULL)ou are in the parking lot of a shoppingmall. atn road is to the east."
  565. 20045 [131]"stop(NULL)ou're in parking lot to mall."
  566. 20050 [131]"(NULL)ou are in the shopping mall.  (NULL)here is a computer store here."
  567. 20055 [131]"(NULL)ou're in mall at computer store."
  568. 20060 [131]"(NULL)ou are in the computer store.","(NULL)ou're in computer store."
  569. 20070 [131]"(NULL)o the west is a comic book store.  (NULL)o  the east is a restaurant."
  570. 20075 [131]"(NULL)ou're by comic store and restaurant."
  571. 20080 [131]"(NULL)his is a store catering to comic book  collectors."
  572. 20085 [131]"(NULL)ou are in comic store."
  573. 20090 [131]"(NULL)ou are in a restaurant.","(NULL)ou're in restaurant."
  574. 20100 [131]"(NULL)o the west is an arcade, and to the    east is a grocery store."
  575. 20105 [131]"(NULL)ou're by arcade and grocery."
  576. 20110 [131]"(NULL)ou are in an arcade.","(NULL)ou're in arcade."
  577. 20120 [131]"(NULL)o the west is a butcher shop, and to   the east a clothing store."
  578. 20125 [131]"(NULL)ou're by butcher and clothing store."
  579. 20130 [131]"(NULL)ou are in a butcher shop.","(NULL)ou're in butcher shop."
  580. 20140 [131]"(NULL)ou are in a clothing store.","(NULL)ou're in clothing store."
  581. 20150 [131]"(NULL)ou are in a grocery.","(NULL)ou're in grocery."
  582. 20160 [131]"stop(NULL)ou are on a (NULL)-(NULL) road.  (NULL)here is a      shopping mall to the west."
  583. 20165 [131]"stop(NULL)ou're on road by mall."
  584. 20170 [131]"stop(NULL)he road goes 100 ft., then stops at an impenetrable pile of debris."
  585. 20175 [131]"stop(NULL)ou're at debris."
  586. 20180 [131]"stop(NULL)ou are next to an information booth,   manned by a robot."
  587. 20185 [131]"stop(NULL)ou're at info booth."
  588. 20190 [131]"stop(NULL)ou are in a phone booth.  (NULL)he cash box has burst open."
  589. 20195 [131]"stop(NULL)ou're in phone booth."
  590. 20200 [131]"right$","right$"
  591. 20210 [131]"(NULL)ou are in the library.","(NULL)ou're in library."
  592. 20220 [131]"stop(NULL)o the west is a library, and the city  hall is to the east."
  593. 20225 [131]"stop(NULL)ou're by library and city hall."
  594. 20230 [131]"(NULL)ou are in the lobby of the city hall.  (NULL)here is a stairway here."
  595. 20235 [131]"(NULL)ou're in city hall lobby."
  596. 20240 [131]"stop(NULL)he road ends here.  (NULL)here is a subway  entrance here."
  597. 20245 [131]"stop(NULL)ou're by subway station."
  598. 20247 [131]"(NULL)","lenity left$all"
  599. 20250 [131]"(NULL)ou are in a hallway leading towards    offices to the east."
  600. 20255 [131]"(NULL)ou're in hallway."
  601. 20260 [131]"(NULL)here are offices to the north and      south."
  602. 20265 [131]"(NULL)ou're between two offices."
  603. 20270 [131]"(NULL)ou are in an office","(NULL)ou're in office."
  604. 20280 [131]"(NULL)ou are in an office","(NULL)ou're in office."
  605. 20290 [131]"(NULL)ou are in a hallway in the jail.  atn    closet is to the north."
  606. 20295 [131]"(NULL)ou're in jail hallway."
  607. 20300 [131]"(NULL)ou are in a jail cell.","(NULL)ou're in jail cell."
  608. 20310 [131]"clr(NULL)ou are in a closet.","clr(NULL)ou're in closet."
  609. 20320 [131]"(NULL)","(NULL)arket (NULL)treet"
  610. 20330 [131]"(NULL)","(NULL)etro (NULL)niversity"
  611. 20340 [131]"(NULL)","valndsville"
  612. 20350 [131]"clr(NULL)ou are on a street which is blocked in both directions by debris."
  613. 20355 [131]"clr(NULL)ou're on blocked street."
  614. 20360 [131]"clr(NULL)ou are in the main lobby of the (NULL)etro  (NULL)niversity building."
  615. 20365 [131]"clr(NULL)ou're in university lobby."
  616. 20370 [131]"stop(NULL)ou are on a plain where a bomb blast   has destroyed the town."
  617. 20375 [131]"stop(NULL)ou're on plain by subway stop."
  618. 20380 [131]"clr(NULL)ou are in front of a door.","clr(NULL)ou're in front of door."
  619. 20390 [131]"clr(NULL)ou are in the laboratory of (NULL)roject    lenhronos.wait"
  620. 20395 [131]"clr(NULL)ou're in lab.wait"
  621. 20400 [131]"(NULL)","(NULL)"
  622. 20405 [131]"stop(NULL)ou are on plain.","stop(NULL)ou are on plain."
  623. 20410 [131]"(NULL)ou are by a phone booth.","(NULL)ou're by phone booth."
  624. 20990 [131]"",""
  625. 21000 [143] movement,robots
  626. 21010 [131]0,0,13,0,0,0,2,0,0
  627. 21020 [131]7,4,0,0,0,0,3,1,0
  628. 21030 [131]0,0,0,0,0,0,0,2,1
  629. 21040 [131]2,0,6,5,0,0,0,0,0
  630. 21050 [131]0,0,0,0,0,0,0,4,1
  631. 21060 [131]0,0,0,0,0,0,0,4,1
  632. 21070 [131]9,2,12,8,0,0,0,0,0
  633. 21080 [131]0,0,0,0,0,0,0,7,0
  634. 21090 [131]0,7,11,10,0,0,0,0,0
  635. 21100 [131]0,0,0,0,0,0,0,9,0
  636. 21110 [131]0,0,0,0,0,0,0,9,1
  637. 21120 [131]0,0,0,0,0,0,0,7,1
  638. 21130 [131]14,15,0,1,0,0,0,0,0
  639. 21140 [131]0,13,0,0,0,0,0,0,0
  640. 21150 [131]13,19,0,0,0,0,17,0,0
  641. 21160 [131]0,0,0,0,0,0,0,40,0
  642. 21170 [131]0,0,0,0,0,0,0,15,1
  643. 21180 [131]0,0,0,0,0,0,0,19,0
  644. 21190 [131]15,21,20,18,0,0,0,0,0
  645. 21200 [131]0,0,0,0,23,27,0,19,26
  646. 21210 [131]19,0,0,0,0,22,0,0,3
  647. 21215 [131]0,30,0,0,0,0,0,21,0
  648. 21220 [131]0,0,24,0,0,20,0,0,23
  649. 21230 [131]26,25,0,23,0,0,0,0,0
  650. 21240 [131]0,0,0,0,0,0,0,24,3
  651. 21245 [131]0,0,0,0,0,0,0,24,0
  652. 21250 [131]29,28,0,0,20,0,0,0,25
  653. 21260 [131]0,0,0,0,0,0,0,0,0
  654. 21270 [131]0,0,0,0,0,0,0,27,0
  655. 21280 [131]22,31,0,0,0,0,0,33,0
  656. 21290 [131]30,32,0,0,0,0,0,34,0
  657. 21300 [131]31,0,0,0,0,0,0,35,0
  658. 21310 [131]0,0,0,0,0,30,0,0,0
  659. 21320 [131]0,0,0,0,0,31,0,0,1
  660. 21330 [131]39,39,39,39,0,32,0,0,0
  661. 21340 [131]0,0,0,0,0,0,37,0,1
  662. 21350 [131]0,0,0,0,0,0,38,36,0
  663. 21360 [131]0,0,0,0,0,0,0,0,0
  664. 21370 [131]39,39,39,39,0,0,0,0,0
  665. 21380 [131]39,39,39,39,0,0,16,0,0
  666. 23000 [143] items
  667. 23030 [131]"peekutcher's (NULL)nife",10,5,0
  668. 23033 [131]"(NULL)cale",10,140,0
  669. 23036 [131]"ascood (NULL)ills",12,.5,10
  670. 23040 [131]"lenommodore 6400 lenomputer",3,15,5000
  671. 23050 [131]"(NULL)ideo game machine",8,-1,0
  672. 23060 [131]"(NULL)uit of clothes",11,2,995
  673. 23070 [131]"(NULL)ie",11,.15,20
  674. 23090 [131]"lenomic",5,.3,6
  675. 23100 [131]"(NULL)ay chr$un",14,1,0
  676. 23110 [131]"lenoins",16,2,0
  677. 23120 [131]"peekook",18,1,0
  678. 23130 [131]"right$.str$. lenard",29,.05,0
  679. 23140 [131]"(NULL)etter",26,.05,0
  680. 23150 [131]"(NULL)hattered pieces of metal",-1,5,0
  681. 23160 [131]"(NULL)ime (NULL)achine",37,2000,0
  682. 23990 [131]"",-999,-999,-999
  683. 23995 [131]sesame,snark,quark,peartree,moonshine,shoe,turkey,christmas
  684. 23997 [131]halloween,robotwar
  685. 24000 [143] words
  686. 24010 [131]n,1,101
  687. 24020 [131]s,1,102
  688. 24030 [131]e,1,103
  689. 24040 [131]w,1,104
  690. 24050 [131]u,1,105
  691. 24060 [131]d,1,106
  692. 24070 [131]in,1,107
  693. 24080 [131]out,1,108
  694. 24090 [131]get,2,-1
  695. 24100 [131]take,2,-1
  696. 24140 [131]go,1,-1
  697. 24160 [131]drop,3,-1
  698. 24170 [131]look,4,-1
  699. 24180 [131]inv,5,-1
  700. 24190 [131]quit,99,-1
  701. 24200 [131]save,6,-1
  702. 24210 [131]robot,-1,200
  703. 24220 [131]buy,10,-1
  704. 24230 [131]weigh,7,-1
  705. 24240 [131]read,8,-1
  706. 24250 [131]examine,8,-1
  707. 24260 [131]knife,-1,1
  708. 24270 [131]scale,-1,2
  709. 24280 [131]pills,-1,3
  710. 24290 [131]commodore,-1,4
  711. 24295 [131]6400,-1,4
  712. 24300 [131]computer,-1,4
  713. 24310 [131]call,11,-1
  714. 24315 [131]talk,11,-1
  715. 24317 [131]speak,11,-1
  716. 24320 [131]game,-1,5
  717. 24330 [131]play,12,-1
  718. 24340 [131]suit,-1,6
  719. 24350 [131]tie,-1,7
  720. 24360 [131]comic,-1,8
  721. 24370 [131]eat,13,-1
  722. 24380 [131]break,14,-1
  723. 24390 [131]escape,14,-1
  724. 24400 [131]gun,-1,9
  725. 24410 [131]coins,-1,10
  726. 24420 [131]money,-1,10
  727. 24425 [131]cash,-1,10
  728. 24430 [131]book,-1,11
  729. 24440 [131]shoot,9,-1
  730. 24445 [131]zap,9,-1
  731. 24450 [131]attack,15,-1
  732. 24455 [131]kill,15,-1
  733. 24460 [131]i.d.,-1,12
  734. 24465 [131]id,-1,12
  735. 24470 [131]card,-1,12
  736. 24480 [131]letter,-1,13
  737. 24490 [131]pieces,-1,14
  738. 24500 [131]open,16,-1
  739. 24510 [131]help,17,-1
  740. 24515 [131]on,18,-1
  741. 24520 [131]bars,-1,200
  742. 24895 [143] *****unabbreviated:
  743. 24900 [131]north,1,101
  744. 24905 [131]south,1,102
  745. 24910 [131]east,1,103
  746. 24915 [131]west,1,104
  747. 24920 [131]up,1,105
  748. 24925 [131]down,1,106
  749. 24930 [131]inventory,5,-1
  750. 24935 [131]enter,1,107
  751. 24940 [131]exit,1,108
  752. 24990 [131]"",-999,-999
  753. 30000 [151]s[170]5,.:[151]s[170]6,240:[151]s[170]12,.:[151]s[170]13,240:[151]s[170]3,8:[151]s[170]10,8
  754. 30005 [151]s[170]24,15:t$[178]"123456789*0#"
  755. 30010 f[178].059604645:[151]53280,.:[151]53281,.
  756. 30012 [153]"loadsys(NULL)val(NULL)(NULL)6400  300 (NULL)ilobaud (NULL)erminal (NULL)ackage"
  757. 30013 [153]"syslenopyright (len)close2063 by (NULL)oadstar (NULL)oftware"
  758. 30014 [153]"(NULL)ype '(NULL)ascasc' to return to peekatn(NULL)right$len."
  759. 30025 p$[178]"1-800-555-0749":[137]30150
  760. 30030 [153]"str$ialing:  ";:[141]30135:[151]s[170]24,8
  761. 30035 [129]i[178]1[164][195](p$):a$[178][202](p$,i,1):[153]a$;:[129]j[178]1[164][195](t$)
  762. 30040 [139]a$[179][177][202](t$,j,1)[167][130]:[130]:[137]30025
  763. 30045 p[178]j[171]1:j[178][195](t$):[130]:v%[178]p[173]3:h%[178]p[171]3[172]v%:p1%[178]h%(h%):p2%[178]v%(v%):[141]30080:[130]
  764. 30050 [151]s[170]24,15:[141]30090:[141]30115
  765. 30055 [153]:[153]"300 (NULL)ilobaud lenonnectcont":[129]i[178]1[164]500:[130]:[137]10120
  766. 30060 [131]697,770,852,941:[143] vertical touch-tone pitches
  767. 30065 [131]1209,1336,1477:[143] horizontal touch-tone pitches
  768. 30070 [131]1070,1270:[143] originate modem space, mark
  769. 30075 [131]2025,2225:[143] answer modem space, mark
  770. 30080 [151]s,p1%[175]255:[151]s[170]1,p1%[173]256:[151]s[170]7,p2%[175]255:[151]s[170]8,p2%[173]256
  771. 30085 [151]s[170]4,65:[151]s[170]11,65:[129]p[178]1[164]50:[130]:[151]s[170]4,.:[151]s[170]11,.:[142]
  772. 30090 t1%[178]7430:t2%[178]7000:[151]s[170]24,.:[151]s[170]24,15::[129]p[178]1[164]2:[151]s[170]4,17:[129]i[178]1[164]60
  773. 30095 [151]s,t1%[175]255:[151]s[170]1,t1%[173]256
  774. 30100 [151]s,t2%[175]255:[151]s[170]1,t2%[173]256:[130]
  775. 30105 [151]s[170]4,.:[129]i[178]1[164]1000[171]2500[172](p[178]1):[130]:[130]:[151]s[170]24,.:[151]s[170]24,15
  776. 30110 [151]s[170]24,.:[129]i[178]1[164]20:[130]:[151]s[170]24,15:[151]s[170]24,.:[151]s[170]24,15:[142]
  777. 30115 t1[178]a(.):t2%[178]o%(.):[151]s[170]24,4
  778. 30120 [151]s,t1[171]256[172][181](t1[173]256):[151]s[170]1,t1[173]256:[151]s[170]4,65:[129]i[178]1[164]800:[130]
  779. 30125 [151]s[170]7,t2%[175]255:[151]s[170]8,t2%[173]256:[151]s[170]11,65:[129]i[178]1[164]500:[130]:[151]s[170]24,.
  780. 30130 [151]s[170]4,.:[151]s[170]11,.:[142]
  781. 30135 t%[178]7217:[151]s[170]24,.:[151]s[170]24,15:[151]s[170]24,.:[151]s[170]24,15
  782. 30140 [151]s,t%[175]255:[151]s[170]1,t%[173]256:[129]p[178]1[164]200:[151]s[170]4,16:[151]s[170]4,17:[130]
  783. 30145 [151]s[170]4,16:[142]
  784. 30150 [133]"(NULL)ystem to access";i$:[141]200:[139]i$[178]"off"[167]30200
  785. 30155 [129]i[178]1[164]1000:[130]:[139]i$[179][177]"govt"[167][153]"(NULL)nknown system":[137]30150
  786. 30160 [153]"clrchr$(NULL)(NULL)(NULL):  (NULL).(NULL). chr$ovt. str$atabase":[153]"(NULL)hone (NULL)umber:  "p$
  787. 30165 [153]"forright$s this correct ((NULL)/(NULL))?close";
  788. 30170 [151]198,.:[146]198,1:[161]i$:[139]i$[178]"(NULL)"[176]i$[178]"n"[167][153]"(NULL)ope.":[153]"":[137]30150
  789. 30175 [139]i$[179][177]"(NULL)"[175]i$[179][177]"y"[167]30165
  790. 30180 [153]"(NULL)eah!":[137]30030
  791. 30200 [151]53270,4:[129]i[178]1[164]2000:[130]:[137]10010
  792. 30500 [153]:[153]"searching for term6400":[160]8:[160]15:[159]8,8,8,"#"
  793. 30502 [159]15,8,15,"u1:8 0 18 0":[152]15,"u1:8 0 18 0"
  794. 30505 [129]i[178]1[164]1000:[130]:[153]"loading"
  795. 30510 [129]i[178]1[164]4:[152]15,"u1:8 0 "[181]([187](1)[172]30[170]3);.:[129]j[178]1[164][187](1)[172]2000[170]1000
  796. 30515 [130]:[130]:[160]8:[160]15:[137]30000
  797. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  798. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  799. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  800. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  801. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  802. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  803. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  804. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  805. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  806. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  807. 60000 d[178][194](186):n$[178]"b.planet":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  808.