home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 170 / 170.d81 / developer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-01  |  10.9 KB  |  294 lines
  1. 8 poke56,159
  2. 10 goto1000
  3. 20 poke53281,15:poke53280,15:print"[147]";:poke2,1:clr:run22
  4. 22 dimt$(2),ob$(64,16),iv(64,16),ip(16),aa$(32),al(32),rm$(96):a$=a$:el=7
  5. 23 debug=-1:p=fre(0):if(debug)thenprint"<[196]ebug mode on!"
  6. 25 dv=peek(186):ifdv<8thendv=8
  7. 29 fl=0:cl=6:sys57812"33c.ia.o",dv,1:sys62631:if(peek(828)=0)thenpoke43,1:end
  8. 30 open15,dv,15,"r0:config.parse=config.parse":input#15,en:close15
  9. 40 ifen<>63thenprint"[195]an't find config file.":poke43,1:goto1000
  10. 42 print"[144][147][212]he story is loading ...":bf$="":t$(1)="":t$(2)=""
  11. 50 open1,dv,2,"config.parse":sys828,1,80:t$(1)=a$+"":sys828,1,80:t$(2)=a$+""
  12. 60 sys828,1,80:bf$=a$+"":input#1,md:close1:tj=0:tr=0
  13. 70 z$=bf$+".obj"+right$("0"+mid$(str$(tj+1),2),2):open15,dv,15,"r0:"+z$+"="+z$
  14. 80 input#15,en:close15:ifen<>63goto130
  15. 90 open1,dv,2,z$:l=1
  16. 100 sys828,1,80:ob$(l,tj+1)=a$+"":if(st=0)thenl=l+1:goto100
  17. 110 ob$(l+1,tj+1)="**":if(debug)thenprint"<[204]oaded object"tj+1
  18. 120 close1:tj=tj+1:goto70
  19. 130 if(debug)and(tj=0)thenprint"<[215]arning: loaded no objects"
  20. 140 print:printt$(1)chr$(13)t$(2)
  21. 150 print"[208]rogrammed with [195]ameron [203]aiser's [215][207][210][204][196]"
  22. 160 print"[205][193][203][197][210] v1.5 ([195])1997 [202] & [198] [208]ublishing,"
  23. 170 print"[201]nc. [193]ll rights reserved."
  24. 180 open15,dv,15,"r0:"+bf$+".intro="+bf$+".intro":input#15,en:close15
  25. 190 if(en<>63)and(debug)thenprint"<[215]arning: no intro text":goto220
  26. 200 open1,dv,2,bf$+".intro"
  27. 210 sys828,1,80:printa$:if(st=0)goto210
  28. 220 print:close1:open15,dv,15,"r0:"+bf$+".sinv="+bf$+".sinv":input#15,en:close15
  29. 230 ifen=63thenopen1,dv,2,bf$+".sinv":gosub780:goto260
  30. 240 if(debug)thenprint"<[215]arning: no inventory configuration":print
  31. 250 cr=01
  32. 260 rem <<< main room loader loop >>>
  33. 270 z$=bf$+".room"+right$("0"+mid$(str$(cr),2),2):open15,dv,15,"r0:"+z$+"="+z$
  34. 280 input#15,en:close15:ifen=63goto310
  35. 290 er$="[198]ailed to load room.":gosub60001
  36. 300 if(cr>64)thener$="[207]ut of memory.":gosub60000:end
  37. 310 open1,dv,2,z$:i=1:p=828:z=1:c=95:aa=0
  38. 320 sysp,1,80:rm$(i)=a$+""
  39. 321 ifleft$(rm$(i),7)="action "thenaa=aa+z:aa$(aa)=mid$(rm$(i),8):al(aa)=i
  40. 322 ifleft$(rm$(i),6)="alias "thenaa=aa+z:aa$(aa)=mid$(rm$(i),7):al(aa)=i
  41. 325 if(st=nu)and(i<c)theni=i+z:goto320
  42. 330 close1:rm$(i+1)="**":ifi=95thener$="[210]oom too complex.":gosub60000
  43. 332 ifrnd(1)>.85thenprint"([205]emory maintenance -- one moment)":q=fre(0)
  44. 340 t=cr:vb$="look":if(notbm)goto356
  45. 342 printmid$(rm$(2),7)
  46. 350 vb$="":print"> [144]";:poke204,.
  47. 351 geta$:ifa$=""goto351
  48. 352 ifa$=chr$(20)andvb$<>""thenprinta$;:vb$=left$(vb$,len(vb$)-1):goto351
  49. 353 ifa$=chr$(13)andvb$<>""thenpoke204,1:print" ":goto356
  50. 354 if(len(vb$)>36)or(a$<" "ora$>"z")goto351
  51. 355 printa$" [157]";:vb$=vb$+a$:goto351
  52. 356 ga=0:gosub60008:ifcr<>tgoto260
  53. 357 iv(cr,0)=int(-(iv(cr,0)<16)*iv(cr,0)):ifiv(cr,0)=0orvb$<>"look"goto360
  54. 358 print:print"[201]n the room:":print:z=0
  55. 359 printmid$(ob$(2,iv(cr,z)),7):z=z+1:ifiv(cr,z)<>0goto359
  56. 360 ifvb$<>"quit"andga<>999goto369
  57. 361 print"[211]ession concluded -- play again? (y/n)"
  58. 362 geta$:ifa$<>"y"anda$<>"n"goto362
  59. 363 ifa$="y"thenrun22
  60. 364 print"[197]nd of session.":run1000
  61. 369 if(ba)goto350
  62. 370 ifvb$="i"orvb$="inventory"thengosub450:goto350
  63. 380 ifleft$(vb$,4)="get "thengosub560:goto350
  64. 390 ifleft$(vb$,5)="drop "thengosub620:goto350
  65. 400 ifleft$(vb$,4)="exa "thengosub530:goto350
  66. 401 ifleft$(vb$,5)="save "thengosub670:goto350
  67. 402 ifleft$(vb$,5)="load "thengosub750:goto260
  68. 403 ifvb$="brief"thenbm=notbm:print"[207]k.":goto350
  69. 404 ifvb$="version"thenprint"[215][207][210][204][196] [205][193][203][197][210] v1.5 by [195]ameron [203]aiser":goto350
  70. 410 if(debug)andleft$(vb$,6)="clone "thenp=0:p$=vb$:gosub60044:goto350
  71. 420 if(debug)andleft$(vb$,5)="dest "thenp=0:p$="x"+vb$:gosub60048:goto350
  72. 422 if(debug)andleft$(vb$,5)="goto "thencr=val(mid$(vb$,6)):goto260
  73. 430 if(debug)andvb$="debug"thenprint"<[196]ebug off.":debug=0:goto350
  74. 440 print"[200]uh?":goto350
  75. 450 z=0:ifip(0)=0thenprint"[217]ou have nothing.":return
  76. 452 print"[217]our inventory contains:":print
  77. 460 ifip(z)<>0thenprintmid$(ob$(2,ip(z)),7):z=z+1:goto460
  78. 470 return
  79. 480 f=-1:z=0:ifip(0)=0goto510
  80. 490 ifmid$(ob$(1,ip(z)),4)=id$thenf=z
  81. 500 z=z+1:ifip(z)<>0goto490
  82. 510 iff=-1thenprint"[217]ou don't see that here."
  83. 520 return
  84. 530 x=3:f=0:id$=mid$(vb$,5):ifiv(cr,0)=0goto550
  85. 531 ifmid$(ob$(1,iv(cr,f)),4)=id$goto540
  86. 532 f=f+1:ifiv(cr,f)<>0goto531
  87. 533 goto550
  88. 540 ifob$(x,iv(cr,f))<>"**"thenprintob$(x,iv(cr,f)):x=x+1:goto540
  89. 542 return
  90. 550 gosub480:iff=-1thenreturn
  91. 551 ifob$(x,ip(f))<>"**"thenprintob$(x,ip(f)):x=x+1:goto551
  92. 552 return
  93. 560 f=-1:z=0:ifiv(cr,0)=0thenprint"[212]here's nothing here to get.":return
  94. 570 ifmid$(ob$(1,iv(cr,z)),4)=mid$(vb$,5)thenf=z
  95. 580 z=z+1:ifiv(cr,z)<>0goto570
  96. 590 iff=-1thenprint"[212]here's none of that here.":return
  97. 600 o=iv(cr,f):fori=fto15:iv(cr,i)=iv(cr,i+1):next:iv(cr,15)=0
  98. 610 p=0:gosub60045:print"[212]aken.":return
  99. 620 id$=mid$(vb$,6):gosub480:iff=-1thenreturn
  100. 630 ifiv(cr,15)<>0thenprint"[212]here seems to be no space for it here.":return
  101. 640 o=ip(f):p=f:gosub60051:p=0
  102. 650 ifiv(cr,p)<>0thenp=p+1:goto650
  103. 660 iv(cr,p)=o:print"[196]ropped.":return
  104. 670 f$=mid$(vb$,6):open15,dv,15,"r0:sav."+f$+"=sav."+f$:input#15,en:close15
  105. 680 ifen<>62thenprint"[198]ile exists/disk error in save.":return
  106. 690 print"[211]aving game: "f$" ";
  107. 700 open1,dv,2,"0:sav."+f$+",s,w":print#1,fl:print#1,cr:forx=1to64:y=0
  108. 710 print#1,iv(x,y):ifiv(x,y)<>0theny=y+1:goto710
  109. 720 if(xand1)thenprint".";
  110. 722 next:y=0
  111. 730 print#1,ip(y):ifip(y)<>0theny=y+1:goto730
  112. 740 print" done.":close1:return
  113. 750 f$=mid$(vb$,6):open15,dv,15,"r0:sav."+f$+"=sav."+f$:input#15,en:close15
  114. 760 ifen=62thenprint"[206]o such file/disk error in load.":goto350
  115. 770 print"[207]ne moment please ...":open1,dv,2,"0:sav."+f$
  116. 780 input#1,fl:input#1,cr:forx=1to64:y=0
  117. 790 input#1,iv(x,y):ifiv(x,y)<>0andy<15theny=y+1:goto790
  118. 800 ify=16thenclose1:print"[197]rror in saved file (bad segmentation)":return
  119. 810 next:y=0
  120. 820 input#1,ip(y):ifip(y)<>0theny=y+1:goto820
  121. 830 close1:return
  122. 1000 poke53280,0:poke53281,0:print"[147][215][207][210][204][196][160][205][193][203][197][210] 1.5 [196]eveloper":clr:a$=""
  123. 1002 dv=peek(186):ifdv<8thendv=8
  124. 1004 dr=159*256
  125. 1010 print"[208]rogrammed by [195]ameron [203]aiser":print"([195])1997 [202]&[198] [208]ublishing, [201]nc."
  126. 1011 print" ** [208]ress [_] to create new project. **"
  127. 1012 ifpeek(828)<>32thensys57812"33c.ia.o",dv,1:poke780,0:sys65493
  128. 1013 ifpeek(828)<>32thenprint"[213][206][193][194][204][197][160][212][207][160][198][201][206][196][160][205][204] [207][194][202][197][195][212] [198][201][204][197][211]":end
  129. 1020 open15,dv,15,"r0:config.parse=config.parse":input#15,en:close15
  130. 1030 ifen<>63goto2110
  131. 1040 print"    [204]oading current configuration..."
  132. 1041 a=0:i=0
  133. 1042 reada:ifa<>-1thenpokedr+i,a:i=i+1:goto1042
  134. 1043 data169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183,169,8
  135. 1044 data133,186,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
  136. 1045 data255,169,0,133,144
  137. 1046 data160,3,132,251,32,165,255,133,252,164,144,208,47,32,165,255
  138. 1047 data164,144,208,40,164,251,136,208,233,166,252
  139. 1048 data32,205,189,169,32,32,210,255,32,165,255,166,144,208,18,170,240,6
  140. 1049 data32,210,255,184,80,240,169,13,32,210,255,160,2,208,198,32,66,246,96,-1
  141. 1058 open1,dv,2,"config.parse":y=0
  142. 1060 get#1,a$:ifa$=chr$(13)theny=y+1
  143. 1070 ify<2goto1060
  144. 1080 input#1,bf$:close1
  145. 1089 geta$:ifa$="_"goto2000
  146. 1090 poke53281,12:poke53280,12:print"[147][208]roject: "bf$
  147. 1100 pokedr+17,dv
  148. 1108 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  149. 1110 print""tab(10)"[144][198]1  [193]ppend/write file"
  150. 1120 printtab(10)"[144][198]3  [199]enerate object"
  151. 1130 printtab(10)"[144][198]5  [212]est run"
  152. 1140 printtab(10)"[144][198]7  [214]iew file"
  153. 1150 print"[208]ress [144][209] to quit."
  154. 1160 print"[208]ress [144]@ to execute a disk command."
  155. 1161 geta$:ifa$<>"q"anda$<>"@"anda$<>"[133]"anda$<>"[134]"anda$<>"[135]"anda$<>"[136]"goto1161
  156. 1170 ifa$="q"goto63000
  157. 1180 ifa$="[135]"thenrun20
  158. 1181 ifa$="[134]"goto1300
  159. 1182 ifa$="[136]"goto1480
  160. 1183 ifa$="[133]"goto1190
  161. 1184 print"@[144]";:gosub60200:ifqgoto1090
  162. 1185 ifs$="$"thensysdr:goto1189
  163. 1188 open15,dv,15,s$:input#15,en$,em$,et$,es$:close15:printen$","em$","et$","es$
  164. 1189 print"[208]ress any key":wait198,1:geta$:goto1090
  165. 1190 print"[144][147]"tab(10)"[193]ppend/[215]rite [212]o [198]ile"
  166. 1200 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  167. 1210 print"[197]nter filename ([198]1 to exit): [144]";:gosub60200:ifqgoto1090
  168. 1220 print"";:f$=bf$+"."+s$:open15,dv,15,"r0:"+f$+"="+f$:input#15,en:close15
  169. 1230 ifen<62oren>63thenprint"[198]atal disk error (press any key)":wait198,1
  170. 1240 ifen<62oren>63thengeta$:goto1090
  171. 1250 md$="s,w":ifen=63thenprint"[198]ile exists (appending)":md$="a"
  172. 1260 print"[208]ress [198]1 on a line to close file/quit."
  173. 1270 open1,dv,2,f$+","+md$
  174. 1280 print"> [144]";:gosub60200:ifqthenclose1:goto1090
  175. 1290 print#1,s$:goto1280
  176. 1300 print"[144][147]"tab(11)"[199]enerate [193]n[160][207]bject"
  177. 1310 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  178. 1320 print"[199]etting next available object slot ...":z=1
  179. 1330 f$=bf$+".obj"+right$("0"+mid$(str$(z),2),2)
  180. 1340 open15,dv,15,"r0:"+f$+"="+f$:input#15,en:close15:ifen=62goto1370
  181. 1350 z=z+1:ifz<100goto1330
  182. 1351 print"[207]ut of slots to add objects!"
  183. 1360 print"[208]ress any key to abort.":wait198,1:geta$:goto1090
  184. 1370 print"[215]riting to [144]"f$".":open1,dv,2,f$+",s,w":print"[197]nter identifier."
  185. 1380 print"> [144]";:gosub60200:ifqthenprint"([201]nvalid)":goto1380
  186. 1390 print#1,"id "s$:print"[197]nter short description."
  187. 1400 print"> [144]";:gosub60200:ifqthenprint"([201]nvalid)":goto1400
  188. 1410 print#1,"short "s$
  189. 1420 print"[194]egin entering long description. [208]ress"
  190. 1430 print"[198]1 when finished with entry."
  191. 1440 print"> [144]";:gosub60200:ifq=0thenprint#1,s$:goto1440
  192. 1450 close1:print"[208]ress any key to commit this object."
  193. 1460 print"[208]ress [198]1 to abort.":wait198,1:geta$:ifa$<>"[133]"goto1090
  194. 1470 print"[144][196]eleting object.":open15,8,15,"s0:"+f$:close15:goto1090
  195. 1480 print"[197]nter filename to view: [144]";:gosub60200:ifqgoto1090
  196. 1490 print"[147]";:open15,dv,15,"r0:"+s$+"="+s$:input#15,en:close15:ifen=63goto1520
  197. 1510 print"[198]ile not found ... press any key":wait198,1:geta$:goto1090
  198. 1520 open1,dv,2,s$:r=0
  199. 1530 if(st<>0)goto1560
  200. 1540 sys828,1,80:b$=a$+"":printb$:r=r+int(len(b$)/39)+1:ifr<20goto1530
  201. 1550 print"** [205][207][210][197] ** ([198]1 to abort)[146]":wait198,1:geta$:ifa$="[133]"goto1560
  202. 1552 r=0:print"[145]                        [145]":goto1530
  203. 1560 print"[197]nd of file (press any key)[146]":close1:wait198,1:geta$:goto1090
  204. 2000 rem -- install/configure --
  205. 2010 print"[215][193][210][206][201][206][199]! [217]ou have opted to delete the"
  206. 2020 print"current project [155]"bf$" and create a
  207. 2030 [153]"new project from scratch!"
  208. 2040 [153]"(NULL)ress asc1 to confirm.":[153]"(NULL)ress any other key to abort."
  209. 2050 [161]a$:[139]a$[179][177]""[137]2050
  210. 2060 [161]a$:[139]a$[178]""[137]2060
  211. 2070 [139]a$[179][177]"input"[137]1090
  212. 2080 [153]"str$eleting project ..."
  213. 2090 [159]15,dv,15,"s0:"[170]bf$[170]".*":[152]15,"s0:config.parse":[132]15,en:[160]15
  214. 2100 [139]en[179][177]1[167][153]"valrror in cleanup."
  215. 2110 [153]"(NULL)elcome to (NULL)(NULL)(NULL)(NULL)str$ (NULL)atn(NULL)val(NULL) 1.5."
  216. 2120 [153]"(NULL)o begin creating your project, enter"
  217. 2130 [153]"the project name: ";:[141]60200
  218. 2132 [139][195](s$)[177]8[167][153]"(NULL)ame must be eight characters max.":q[178]1
  219. 2140 [139]q[167][153]"(NULL)eenter name: ";:[141]60200:[137]2132
  220. 2150 bf$[178]s$:[153]"valnter two lines of title text for your"
  221. 2160 [153]"game file. (NULL)ress asc1 to restart if you"
  222. 2170 [153]"make a mistake."
  223. 2180 [153]"1> ";:[141]60200:[139]q[137]2180
  224. 2190 z$[178]s$:[153]"2> ";:[141]60200:[139]q[137]2180
  225. 2200 [153]"(NULL)ne moment please ..."
  226. 2210 [159]1,dv,2,"config.parse,s,w":[152]1,z$:[152]1,s$:[152]1,bf$:[152]1,0
  227. 2220 [160]1:[159]15,dv,15:[132]15,en:[160]15
  228. 2230 [139]en[179][177]0[167][153]"(NULL)nable to rewrite config file."
  229. 2240 [153]"(NULL)ress any key to restart with your new"
  230. 2250 [153]"configuration and begin constuction.":[146]198,1:[161]a$:[138]1000
  231. 9999 [128]
  232. 10000 d[178][194](186):n$[178]"developer":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  233. 59999 [128]
  234. 60000 [143] <<< standard subroutines >>>
  235. 60001 [139]([168]debug)[167][153]"*** valrror in code. (NULL)lease notify author."
  236. 60002 [153]"(NULL)(NULL)(NULL)(NULL)right$(NULL)val val(NULL)(NULL)(NULL)(NULL): "er$
  237. 60003 [153]"within: "z$" disk:"en"line:"ln:ga[178]0:en[178]0:[142]
  238. 60008 [143] <<< execute a room action >>>
  239. 60009 ba[178][171]1
  240. 60011 [139]cr[178]0[176]aa[178]0[167]er$[178]"(NULL)o actions.":[141]60001:[142]
  241. 60012 ln[178]0:[129]x[178]1[164]aa:[139]aa$(x)[178]vb$[167]ln[178]al(x)
  242. 60013 [130]:[139]ln[178]0[167]ba[178]0:[142]
  243. 60014 ln[178]ln[170]1:p$[178]rm$(ln):[139]ln[178]96[167]er$[178]"(NULL)oo long eval.":[141]60001:[142]
  244. 60015 [139]ga[176][200](p$,el)[178]"action "[176]p$[178]"return"[176]p$[178]"**"[167][142]
  245. 60016 [139][200](p$,cl)[178]"ptell "[167][153][202](p$,7):[137]60014
  246. 60017 [139][200](p$,cl)[178]"alias "[176][200](p$,cl)[178]"label "[176][200](p$,z)[178]";"[137]60014
  247. 60018 [139][200](p$,5)[178]"goto "[167]ln[178]0:[141]60041:[137]60014
  248. 60019 [139][200](p$,cl)[178]"fset+ "[167]fl[178]((fl)[176](2[174]([197]([202](p$,7,1))))):[137]60014
  249. 60020 [139][200](p$,cl)[178]"fset- "[167]fl[178]((fl)[175]511[171]2[174]([197]([202](p$,7,1)))):[137]60014
  250. 60021 [139][200](p$,6)[178]"fset? "[167]p[178]2[174][197]([202](p$,7)):ln[178]1[170]ln[171](fl[175]p)[173]p:[137]60014
  251. 60022 [139][200](p$,5)[178]"pkill"[167]ga[178]999:[142]
  252. 60023 [139][200](p$,cl)[178]"pmove "[167]cr[178][197]([202](p$,7)):[137]60014
  253. 60024 [139][200](p$,cl)[178]"pgive "[167]p[178]0:[141]60044:[137]60014
  254. 60025 [139][200](p$,cl)[178]"pgot? "[167]p[178]0:[141]60052:[137]60014
  255. 60026 [139][200](p$,cl)[178]"pdest "[167]p[178]0:[141]60048:[142]
  256. 60040 [153]p$:[137]60014
  257. 60041 ln[178]ln[170]1:[139]rm$(ln)[178]"label "[170][202](p$,6)[167]ln[178]ln[171]1:[142]
  258. 60042 [139]rm$(ln)[179][177]"**"[137]60041
  259. 60043 ln[178]95:[142]
  260. 60044 o[178][197]([202](p$,7)):[139]o[177]tj[167]er$[178]"(NULL)bject not found.":[141]60000:ga[178]1:[142]
  261. 60045 [139]ip(p)[178]0[167]ip(p)[178]o:[142]
  262. 60046 [139]p[179]15[167]p[178]p[170]1:[137]60045
  263. 60047 [153]"(NULL)ou can't carry any more.":vb$[178]"drop "[170][202](ob$(1,o),3):ba[178]0:[142]
  264. 60048 o[178][197]([202](p$,7))
  265. 60049 [139]ip(p)[179][177]o[175]p[179]15[167]p[178]p[170]1:[137]60049
  266. 60050 [139]p[178]15[167][142]
  267. 60051 [129]i[178]p[164]15:ip(i)[178]ip(i[170]1):[130]:ip(15)[178]0:[142]
  268. 60052 o[178][197]([202](p$,7))
  269. 60053 [139]ip(p)[179][177]o[175]p[179]15[167]p[178]p[170]1:[137]60053
  270. 60054 [139]p[178]15[167]ln[178]ln[170]1
  271. 60055 [142]
  272. 60100 s$[178]"":[151]204,.
  273. 60110 [161]a$:[139]a$[178]""[137]60110
  274. 60120 [139]a$[178][199](20)[175]s$[179][177]""[167][153]a$;:s$[178][200](s$,[195](s$)[171]1):[137]60110
  275. 60130 [139]a$[178][199](13)[175]s$[179][177]""[167][151]204,1:[153]" ":[142]
  276. 60140 [139][195](s$)[177]38[137]60110
  277. 60150 [139]a$[178][177]" "[175]a$[179][178]"z"[167][153]a$;:s$[178]s$[170]a$:[137]60110
  278. 60160 [139]a$[178][177]"atn"[175]a$[179][178]"(NULL)"[167][153]a$;:s$[178]s$[170]a$:[137]60110
  279. 60170 [137]60110
  280. 60200 [143] <<< getin >>>
  281. 60201 s$[178]"":[151]204,.:q[178]0
  282. 60210 [161]a$:[139]a$[178]""[137]60210
  283. 60211 [139]a$[178][199](13)[175]s$[179][177]""[167][151]204,1:[153]" ":[142]
  284. 60212 [139]a$[178]"input"[167][151]204,1:[153]" ":q[178]1:[142]
  285. 60213 [139]a$[178][199](20)[175]s$[179][177]""[167]s$[178][200](s$,[195](s$)[171]1):[153]" "a$a$;:[137]60210
  286. 60214 [139][195](s$)[177]77[137]60210
  287. 60215 [139][168]((a$[178][177]"atn"[175]a$[179][178]"(NULL)")[176](a$[178][177]" "[175]a$[179][178]"_"))[137]60210
  288. 60216 [153]a$;:s$[178]s$[170]a$:[137]60210
  289. 63000 [153]"load";:[159]15,dv,15,"r0:b.world maker=b.world maker"
  290. 63010 [132]15,en:[160]15:[139]en[179][177]63[167][162]:[128]
  291. 63020 [153]"load"[199](34)"b.world maker"[199](34)","dv:[153]"run"
  292. 63030 [151]198,3:[151]631,19:[151]632,13:[151]633,13:[128]
  293. 63999 [134]t$(2),ob$(64,16),rm$(96),aa$(32),al(32),iv(64,16),ip(16):a$[178]a$:el[178]7
  294.