home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / house inventory (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  13.1 KB  |  388 lines
  1. 1 gosub60000
  2. 10 fordi=49152to49415:readda:pokedi,da:next
  3. 20 me=0
  4. 30 print"[147]":f=53280:pokef,0:pokef+1,0
  5. 40 rem        poke808,234
  6. 50 poke53265,11:printchr$(142)
  7. 60 close1:close2:close15:print"[147][159]                                        ";
  8. 70 pokef,4:pokef+1,6:ifpeek(788)=76thensys820
  9. 80 print"***** household inventory program ******";
  10. 90 print"         **** version 3.2 ****          [154]"
  11. 100 rem r.w. kober wrote this program
  12. 110 rem version 3.2  march 24,1985
  13. 120 printtab(15)"[145][159]        [146]"
  14. 130 printtab(15)"[159] *menu* [146]                "
  15. 140 printtab(15)"[159]        [146]                "
  16. 150 print"      [159]1[146][150] = read file data on screen."
  17. 160 print"      [159]2[146][150] = create a new file."
  18. 170 print"      [159]3[146][150] = edit or insert into a file."
  19. 180 print"      [159]4[146][150] = print file data to printer."
  20. 190 print"      [159]5[146][150] = list file directory."
  21. 200 print"      [159]6[146][150] = help (information)."
  22. 210 print"      [159]7[146][150] = scratch a file."
  23. 220 print"      [159]e[146][150] = exit inventory program."
  24. 230 print"[158]   '\' returns to menu at any prompt    [146][154]":h=0:ds=0
  25. 240 ifme<1thenprinttab(26)"[155]by bob kober"
  26. 250 ifme<1thenprinttab(27)"apr 1,1985[154]":gosub2760
  27. 260 ifme<1thenformu=820to907:readno:pokemu,no:next:me=1:print"[145][145][145][159]":goto130
  28. 270 gosub1720:poke19,0:ifr$="e"then2800
  29. 280 ifr$="\"then60
  30. 290 ifr$="^"thenr$="5"
  31. 300 poke54296,0:r=val(r$):ifr<1orr>7then270
  32. 310 ifr>0andr<5thenclose15:open15,8,15
  33. 320 z=r:onrgoto460,330,460,460,2590,1780,2910
  34. 330 pokef,2:pokef+1,2:gosub1580
  35. 340 print:print"  [158] warning!!! [146] any existing file with "
  36. 350 print"  this name will be replaced!![154]"
  37. 360 print"[145][145][145][145][145][145][145][145][145]"
  38. 370 print:print"[144]  enter new filename ";
  39. 380 gosub2600:ifk$="^"thensys49152:goto330
  40. 390 po=1
  41. 400 ifkf=2then330
  42. 410 ifkf=1thenprint"[145][145]":goto370
  43. 420 close2:open2,8,5,"@0:"+f$+",s,w":gosub2150
  44. 430 ifz=3thenprint"[147]":goto880
  45. 440 gosub1210:ifcthengosub1460:goto440
  46. 450 goto810
  47. 460 ifz=1thenpokef,11:pokef+1,11
  48. 470 ifz=3thenpokef,6:pokef+1,6
  49. 480 ifz=4thenpokef,9:pokef+1,9
  50. 490 gosub1580
  51. 500 print:print"[158]  enter filename ";
  52. 510 ifz=1thenprint:print"  (wild cards may be used)"
  53. 520 ifz=3thenprint:print" [158] warning! [146] [159]the existing file with"
  54. 530 ifz=3thenprint" this name will be edited!!![145][145][158]"
  55. 540 ifz=1orz=3thenprinttab(18)"[145][145][145][145]";
  56. 550 gosub2600:ifk$="^"thensys49152:goto460
  57. 560 ifkf=2then460
  58. 570 ifkf=1thenprint"[145][145]":goto500
  59. 580 close1:open1,8,6,"0:"+f$+",s,r":gosub2150
  60. 590 x$=""
  61. 600 ifz=4then2190
  62. 610 ifz=2then340
  63. 620 ifz=3then420
  64. 630 gosub3120:ifms=1thenms=0:goto60
  65. 640 ifms=2thengosub1750:ifr$="\"then60
  66. 650 ifms=2then580
  67. 660 gosub1490:ifc>1then750
  68. 670 gosub1420:ifcthen760
  69. 680 gosub1490:ifc>1then760
  70. 690 gosub1430:ifcthen760
  71. 700 gosub1490:ifc>1then760
  72. 710 gosub1430:ifcthen760
  73. 720 gosub1650
  74. 730 gosub1750:ifr$<>"\"then660
  75. 740 goto810
  76. 750 print"[147] end of mode #1 [146]  done reading data file":print
  77. 760 gosub1650
  78. 770 ifc=1thenprinttab(11)"[159] end of data file! [146][154]":goto800
  79. 780 ifc>1andst<>64thenprint"disk error ( status = ";st;")"
  80. 790 printtab(11)"[159] end of data file! [146][154]"
  81. 800 gosub1710
  82. 810 close1:close2:close15:i9$="":ifr$="^"thensys49152
  83. 820 goto60
  84. 830 gosub1490:ifc>1then1120
  85. 840 ifz=3andleft$(i$,len(i9$))=i9$thengosub1580:goto890
  86. 850 print" now copying : [158]"i$"                     [145][145][154]"
  87. 860 gosub1460:ifc=1then1120
  88. 870 ifi9$<>""then830
  89. 880 gosub1490:ifc>1then1120
  90. 890 gosub1580:gosub1430:gosub1650:print"[145] [158]desired action: (enter by number)"
  91. 900 print"  [150]1[154][146] = copy this item with no changes."
  92. 910 print"  [150]2[154][146] = [150] delete [146][154] this item."
  93. 920 print"  [150]3[154][146] = insert items before this one."
  94. 930 print"  [150]4[154][146] = search until item is found."
  95. 940 print"  [150]\[154][146] = return to the main menu."
  96. 950 print" [158]action ? ";:poke204,0
  97. 960 gosub1720:ifr$="\"thenprint"[158]ok-please wait while all items are re-copied[154]"
  98. 970 ifr$="\"theni9$="qzqzqzqz":goto840
  99. 980 r=val(r$):ifr<1orr>4then960
  100. 990 printtab(10)" ";r$;" [146][154]":print"            [145][158]  okay  [146][154]":ford=1to500:next
  101. 1000 i9$="":on r goto860,1010,1030,1060,810
  102. 1010 ifc=1then1120
  103. 1020 goto880
  104. 1030 i9$=i$:w9$=w$:m9$=m$:s9$=s$:d9$=d$:v9$=v$:c9=cc
  105. 1040 gosub1210:ifcthengosub1460:goto1040
  106. 1050 i$=i9$:w$=w9$:m$=m9$:s$=s9$:d$=d9$:v$=v9$:c=c9:goto890
  107. 1060 gosub1580:print" all entries will be copied until"
  108. 1070 print:print" desired item is found;"
  109. 1080 print:print:print" enter item to search for:"
  110. 1090 input"   [158]end[157][157][157][157][157][154]";i9$
  111. 1100 ifleft$(i9$,1)="\"thenr$="\":print"search aborted! please wait":goto970
  112. 1110 print" wait!!  searching for ";i9$:goto840
  113. 1120 ifi9$="qzqzqzqz"thenh=1:goto1140
  114. 1130 k=0
  115. 1140 gosub1580:ifc>1then780
  116. 1150 ifh<>1thenprint"[150]  end of input file!"
  117. 1160 ifh<>1thenprint:print"  do you want to add any entries to the"
  118. 1170 ifh<>1thenprint:print"  end of this data file?";
  119. 1180 gosub1660:ifr$="n"thenprinttab(5)" [158] okay [146][154] returning to menu":goto810
  120. 1190 gosub1210:ifcthengosub1460:goto1190
  121. 1200 goto810
  122. 1210 c=0:print"[147][144]        enter item information":print" d = done entering data"
  123. 1220 print" e = error, restart entire item"
  124. 1230 print:print" do not use ',' or ':' within the data"
  125. 1240 print:print" press return[146] after each entry"
  126. 1250 gosub1650:input"[144] item [146]   ?[157][157][157]";i$:ifi$="e"then1210
  127. 1260 ifi$="d"then1400
  128. 1270 input " make [146]   ?[157][157][157]";w$:if w$="e"then1210
  129. 1280 ifw$="d"then1400
  130. 1290 input" model [146]   ?[157][157][157]";m$:if m$="e"then1210
  131. 1300 ifm$="d"then1400
  132. 1310 input" serial #/id [146]   ?[157][157][157]";s$:ifs$="e"then1210
  133. 1320 ifs$="d"then1400
  134. 1330 input" date acq'd [146] (month/day/year)   ?[157][157][157]";d$:if d$="e"then1210
  135. 1340 d$=left$(d$,8):ifd$="d"then1400
  136. 1350 input" $ value [146]   ?[157][157][157]";v$:ifv$="e"then1210
  137. 1360 ifv$="d"then1400
  138. 1370 gosub1420:gosub1650
  139. 1380 print"[158] is this entry correct?";:gosub1660:ifr$="n"then1210
  140. 1390 c=1:po=0:return
  141. 1400 printtab(7)"[150]returning to the menu-----":ifpo=0thenreturn
  142. 1410 close15:open15,8,15:print#15,"s:"f$:return
  143. 1420 print"[147]";
  144. 1430 print"[153] item:[146] ";i$:print" make:[146] ";w$:print" model[146] ";m$
  145. 1440 print" serial #/id:[146] ";s$
  146. 1450 print" date acq'd:[146] "d$;tab(22);" value:[146] $";v$;"[154]":print:return
  147. 1460 x$=i$:gosub1480:x$=w$:gosub1480:x$=m$:gosub1480
  148. 1470 x$=s$:gosub1480:x$=d$:gosub1480:x$=v$
  149. 1480 print#2,x$;chr$(13);:goto2150
  150. 1490 gosub1560:i$=x$:ifcthenreturn
  151. 1500 gosub1560:w$=x$:ifcthenreturn
  152. 1510 gosub1560:m$=x$:ifcthenreturn
  153. 1520 gosub1560:s$=x$:ifcthenreturn
  154. 1530 gosub1560:d$=x$:ifcthenreturn
  155. 1540 gosub1560:v$=x$:ifc=2thenc=1
  156. 1550 return
  157. 1560 c=0:input#1,x$:ifstthenc=3:ifst=64thenc=2
  158. 1570 goto2150
  159. 1580 ifz=1thenprint"[147]   mode #1 [146]  read file data on screen":ifds=1then1650
  160. 1590 ifz=2thenprint"[147][158]      mode #2 [146]  create a new file"
  161. 1600 ifz=3thenprint"[147][159]    mode #3 [146]  edit (or append) a file"
  162. 1610 ifz=4thenprint"[147]   mode #4 [146] print data file to printer"
  163. 1620 print
  164. 1630 ifz<5thenprint"    enter '\' to return to the menu"
  165. 1640 ifz<5andz<>3thenprint"    enter '^' to list the file directory"
  166. 1650 print"---------------------------------------[154]":print:return
  167. 1660 ifh<>1thenprint" (y/n) ? ";
  168. 1670 gosub1720:ifr$<>"y"andr$<>"n"andr$<>"\"then1670
  169. 1680 ifh<>1thenprintr$
  170. 1690 ifr$="\"thenr$="n"
  171. 1700 return
  172. 1710 print:print"[150]   hit any key when ready to continue   [146][154]";:goto1760
  173. 1720 getr$:ifi9$="qzqzqzqz"thenr$="n"
  174. 1730 ifr$=""then1720
  175. 1740 poke204,1:return
  176. 1750 print:print"   [150] hit any key to continue, \=menu [146][154]";
  177. 1760 gosub1720:ifz=6thenreturn
  178. 1770 print:printtab(15)"[158] okay [146][154]":ford=1to100:next:print"[147]":return
  179. 1780 pokef,11:pokef+1,11:print""
  180. 1790 print"[147][146]this program is designed to write, read,";
  181. 1800 print"print, edit, or append disk data files "
  182. 1810 print"containing information on your household";
  183. 1820 print"or personal possessions.":print"this information includes a field for"
  184. 1830 print"item description, the make, model, s/n"
  185. 1840 print"(or other marks), date acquired & value."
  186. 1850 print"this data should be of great value for"
  187. 1860 print"insurance in case of fire or theft."
  188. 1870 print:print"seq file handling on disk is included to";
  189. 1880 print"allow using separate file names for each";
  190. 1890 print"room, special collections, etc."
  191. 1900 print"easy maintenance is provided, and this"
  192. 1910 print"program and all data can be stored on "
  193. 1920 print"a single disk. an extra copy should be"
  194. 1930 print"kept in a safe remote location.
  195. 1940 [141]1710:[153]"load"
  196. 1950 [153]"this program is menu driven, and self"
  197. 1960 [153]"explanatory."
  198. 1970 [153]"entering a sys'\' at any prompt will "
  199. 1980 [153]"safely abort the present operation, and"
  200. 1990 [153]"return the program to the main menu."
  201. 2000 [153]"much effort has been exerted to assure"
  202. 2010 [153]"that this program is as user friendly as";
  203. 2020 [153]"possible. experiment with the various"
  204. 2030 [153]"modes, until you become familiar with"
  205. 2040 [153]"all of the features of this program."
  206. 2050 [153][163]40)"by bob kober, buffalo, tx. 214/322-4192"
  207. 2060 [153]"     sys press \ for the main menu "
  208. 2070 [161]k$:[139]k$[178]""[167]2070
  209. 2080 [139]k$[178]"\"[167]60
  210. 2090 [139]kc$[178]""[167][139]k$[178]"3"[167]kc$[178]"3":k$[178]"":[137]2070
  211. 2100 [139]k$[178]"4"[167][139]kc$[178]"3"[167]kc$[178]"34"
  212. 2110 [139]kc$[178]"34"[167][151]808,237:[151]774,26:[151]775,167:[160]1:[160]2:[160]15
  213. 2120 [139]kc$[178]"34"[167][158]65126
  214. 2130 k$[178]"":kc$[178]"":[137]2070
  215. 2140 [151]53281,6:[151]53280,14:[153]"cont":[137]60
  216. 2150 [132]15,en,em$,et,es:[139]en[178]0[167][142]
  217. 2160 [153]"load               disk error wait":[153]
  218. 2170 [153]"       "en;em$;et;es
  219. 2180 [141]1620:[137]800
  220. 2190 [153]"load"[163]248)"1. print item names only."
  221. 2200 [153][163]48)"2. print all information."
  222. 2210 [153][163]132)"enter 1 or 2"
  223. 2220 [161]ps$:[139]ps$[178]""[167]2220
  224. 2230 ps[178][197](ps$):[139]ps[179]1[176]ps[177]2[167]2220
  225. 2240 [139]ps[178]2[167]ps[178]0
  226. 2250 [153]"load    set printer head to 'top of page'"
  227. 2260 [153][163]86)" press any key to continue ":[153][163]171)"press '\' for menu
  228. 2270 geta$:ifa$=""then2270
  229. 2280 ifa$="\"thenclose4:goto60
  230. 2290 gosub2710:ifxx=1then60
  231. 2300 open4,4:p=1:gosub2540
  232. 2310 print"[147]           printing data..."
  233. 2320 print" press 'shift' to pause printing at the":print" end of any item"
  234. 2330 printtab(48)"(shift lock may be used)"
  235. 2340 gosub1490:ifc>1then2530
  236. 2350 print#4,"      item: ";i$:ifpsthen2430
  237. 2360 print#4,"      make: ";w$
  238. 2370 print#4,"      model: ";m$
  239. 2380 print#4,"      serial #/id: ";s$
  240. 2390 print#4,"      date acq'd: ";d$
  241. 2400 print#4,"      value:";v$
  242. 2410 print#4:print#4
  243. 2420 l=l+1:ifl=7thengosub2540
  244. 2430 ifpsthenl=l+1:ifl=54thenprint:print:gosub2540
  245. 2440 ifpeek(653)<>1then2340
  246. 2450 print"[147]           printing paused..."
  247. 2460 print" press 'c' to continue":print" press '\' to return to menu"
  248. 2470 getr$:ifr$="c"then2310
  249. 2480 ifr$="[169]"orr$="[195]"thenprint"   * * * check shift lock key!! * * * "
  250. 2490 ifr$<>"\"then2470
  251. 2500 print"********** listing terminated **********"
  252. 2510 print"      returning to menu------------"
  253. 2520 print#4:print#4,"             ***** listing terminated ******"
  254. 2530 print#4,chr$(12):close4:goto810
  255. 2540 ifp>1thenfori=1to4:print#4:next
  256. 2550 fori=1to2:print#4:next
  257. 2560 print#4,chr$(12);"inventory listing of file:      ";f$
  258. 2570 print#4,"    ****    page:  ";p
  259. 2580 print#4:print#4:l=0:p=p+1:return
  260. 2590 sys49152:goto60
  261. 2600 f$="":kf=0:poke198,0
  262. 2610 poke207,0:poke204,0:getk$:ifk$=""then2610
  263. 2620 iff$<>""thenifk$=chr$(20)thenprint" [157][157] [157]";:f$=left$(f$,len(f$)-1):goto2610
  264. 2630 iff$=""thenifk$=chr$(13)thenkf=1
  265. 2640 ifk$=chr$(13)thenpoke204,1:return
  266. 2650 ifk$="\"thenpoke204,1:f$="":goto60
  267. 2660 ifr<>3thenifk$="^"thenpoke204,1:f$="":return
  268. 2670 f$=f$+k$:printk$;
  269. 2680 iflen(f$)>16thenprint:print"   ******* filename too long *******"
  270. 2690 iflen(f$)>16thenpoke204,1:fori=1to2000:next:kf=2:return
  271. 2700 goto2610
  272. 2710 print"[147]":open4,4:xx=0
  273. 2720 print#4:ifnotpeek(144)and128thenclose4:print"[147]":return
  274. 2730 printtab(245)"the printer is not turned on!":printtab(254)"'\' = menu"
  275. 2740 ifpeek(197)<>48thenprint"":goto2720
  276. 2750 close4:xx=1:poke198,0:return
  277. 2760 forl=54272to54296:pokel,0:next
  278. 2770 poke54296,15:poke54277,128:poke54278,250:poke54272,255:poke54276,17
  279. 2780 poke54273,255:fori=255to30step-1.5:poke54273,i:next:poke53265,27
  280. 2790 poke54276,129:fori=1to15step.5:poke54273,15:next:poke54276,128:return
  281. 2800 poke850,62:poke871,234:poke872,234:poke906,112:print"[147]":ti$="000000"
  282. 2810 ifpeek(820)<>169then2830
  283. 2820 sys820
  284. 2830 se$=str$(10-val(right$(ti$,2)))
  285. 2840 print""tab(242)"to re-enter the inventory program,"
  286. 2850 printspc(44)"press the <return> key within "
  287. 2860 printtab(49)"the next[158]"se$"[154] seconds.   "
  288. 2870 getk$:ifk$=chr$(13)thengoto60
  289. 2880 ifse$<>" 0"then2830
  290. 2890 print"[147]"tab(250)"time's up   bye-bye":printtab(215)"r.w. kober"
  291. 2900 sys820:fori=1to2000:next:goto63000
  292. 2910 print"[147]":pokef,9:pokef+1,15
  293. 2920 printtab(40)"                                        ";
  294. 2930 print"    this routine will scratch a file    ";
  295. 2940 print"                                        "
  296. 2950 printtab(42)"enter '\' to return to the menu."
  297. 2960 printtab(42)"enter '^' to list the file directory."
  298. 2970 print"----------------------------------------";
  299. 2980 print" enter filename ";
  300. 2990 gosub2600:ifkf=1thenprint"":goto2920
  301. 3000 ifkf=2then2910
  302. 3010 ifk$="^"thensys49152:goto2910
  303. 3020 print:print"   are you sure?? (y/n) "
  304. 3030 getk$:ifk$=""then3030
  305. 3040 ifk$<>"y"thenf$="":goto2910
  306. 3050 print" okay, scratching  "f$" [146] now."
  307. 3060 close15:open15,8,15
  308. 3070 print#15,"s:"f$
  309. 3080 input#15,e,e$,t,s:g$=left$(e$,4)+right$(e$,10):ef$=" "+f$+" [146] "+g$
  310. 3090 ift=0thenprinttab(88)"**** file not found ****":fori=1to1500:next:goto2910
  311. 3100 print"":printtab(20-len(ef$)/2);ef$:fori=1to2000:next
  312. 3110 close15:sys49152:goto60
  313. 3120 ns=0:zs=0:ds=1:gosub1580
  314. 3130 nf$="[144]reading file named[158] "
  315. 3140 nf=len(nf$)+len(f$)-2
  316. 3150 printtab(20-nf/2)nf$+f$
  317. 3160 printtab(126)"[150]1. list items by name only."
  318. 3170 printtab(46)"2. list all data in file."
  319. 3180 printtab(46)"3. search for specific item."
  320. 3190 printtab(46)"\. return to main menu."
  321. 3200 gosub1720:zs=val(r$)
  322. 3210 ifr$="\"then3240
  323. 3220 ifzs<1orzs>3then3200
  324. 3230 onzsgoto3280,3250,3260
  325. 3240 ms=1:return
  326. 3250 ms=0:return
  327. 3260 input" enter search item";se$
  328. 3270 print:js=0:ifse$="\"then3240
  329. 3280 print"[147]":gosub1580:ifzs=1thense$="noname"
  330. 3290 ns=ns+1:xs=0:fori=1to6:input#1,ss$(i):next
  331. 3300 print"[159] item #"ns" "ss$(1):gosub3400:ifr$="\"thenclose1:ds=0:ms=1:return
  332. 3310 ifleft$(ss$(1),len(se$))=se$thengosub3430:print:gosub3360:js=1
  333. 3320 ifxs<>1thenifnotst and64then3290
  334. 3330 ifjs=0orfl<>1thenifzs<>1thenprint" search item [158]"se$"[159] not found"
  335. 3340 ifxs<>1thenprinttab(50)"[158]e n d  o f  f i l e"
  336. 3350 close1:ds=0:ms=2:return
  337. 3360 printtab(49)"continue search (y/n)?"
  338. 3370 getk$:ifk$="y"thenfl=0:gosub1580:return
  339. 3380 ifk$<>"n"then3370
  340. 3390 fl=1:xs=1:return
  341. 3400 ifpeek(214)<20thenreturn
  342. 3410 gosub1750:ifr$="\"thenreturn
  343. 3420 gosub1580:return
  344. 3430 print"    [150] item [192][146][192] "ss$(1)
  345. 3440 print"    [150] make [192][146][192] "ss$(2)
  346. 3450 print"    [150] model [146][192] "ss$(3)
  347. 3460 print"    [150]  s/n [192][146][192] "ss$(4)
  348. 3470 print"    [150] date [192][146][192] "ss$(5)
  349. 3480 print"    [150] cost [192][146][192] $"ss$(6)
  350. 3490 return
  351. 3500 data32,204,255,32,68,229,169,9,141,33,208,169,11,141,32,208,169
  352. 3510 data7,141,134,2,24,162,3,160,11,32,240,255,160,0,185,203,192
  353. 3520 data240,7,32,210,255,200,76,31,192,169,1,162,8,160,0,32,186
  354. 3530 data255,169,1,162,201,160,192,32,189,255,32,192,255,162,1,32,198
  355. 3540 data255,160,31,32,207,255,136,208,250,169,0,141,19,3,160,13,169
  356. 3550 data32,32,210,255,136,208,250,32,207,255,72,165,144,201,64,240,45
  357. 3560 data104,201,34,208,241,32,207,255,201,255,240,249,201,34,240,11,32
  358. 3570 data210,255,169,1,141,19,3,76,107,192,173,19,3,208,5,169,145
  359. 3580 data32,210,255,169,13,32,210,255,76,82,192,104,169,1,32,195,255
  360. 3590 data32,204,255,160,0,185,223,192,240,7,32,210,255,200,76,158,192
  361. 3600 data169,0,133,198,165,198,240,252,169,6,141,33,208,169,4,141,32
  362. 3610 data208,169,14,141,134,2,169,0,133,198,32,68,229,96,36,0,18
  363. 3620 data32,70,73,76,69,32,68,73,82,69,67,84,79,82,89,32,13
  364. 3630 data13,0,13,13,32,32,32,18,32,80,82,69,83,83,32,65,78
  365. 3640 data89,32,75,69,89,32,84,79,32,82,69,84,85,82,78,32,84
  366. 3650 data79,32,77,69,78,85,32,13,0
  367. 3660 data169,10,141,137,3,120,173,20,3,73,125,141,20,3,173,21,3
  368. 3670 data73,233,141,21,3,88,96,206,137,3,208,53,169,100,141,137,3
  369. 3680 data160,0,152,153,0,212,192,23,240,4,200,76,89,3,173,138,3
  370. 3690 data69,8,141,138,3,141,1,212,169,12,141,5,212,169,15,141,6
  371. 3700 data212,141,24,212,169,30,141,15,212,169,21,141,4,212,76,49,234
  372. 3710 data10,82,0
  373. 60000 t$="                         ":c=0:c$="":print"[147]":poke53281,0
  374. 60030 printspc(7)""t$:printspc(7)"     [200]ouse [201]nventory     [146]"
  375. 60051 printspc(7)""t$:print:printtab(18)"by"
  376. 60060 print:printspc(14)"[210].[215]. [203]ober"
  377. 60070 print:printspc(12)"[195]opyright 1985"
  378. 60080 print:print:print:print"     [204][207][193][196][211][212][193][210] is not public domain."
  379. 60090 print:print"  [208]lease respect the author's rights."
  380. 60100 print:print"      [208]ress space bar to continue."
  381. 60110 forcc=1to48:getk$:ifk$=" "then60130
  382. 60120 ifcc=1thenprintmid$(c$,c+2,1)"[145][145]";:c=not(c)
  383. 60125 next:goto60100
  384. 60130 printc$:return
  385. 63000 rem    connect back to l.s.
  386. 63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  387. 63004 poke198,0:poke631,13:poke632,13:poke198,2:poke204,1:poke207,0:end
  388.