/ Run Magazine ReRun 1988 March & April / rerun-1988-03-04.d64 / home inv. 128

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 25 1c 00 00 8f 20 | 48 4f 4d 45 20 49 4e 56 |..%.... |HOME INV|
|00000010| 45 4e 54 4f 52 59 20 31 | 32 38 20 2d 20 49 41 4e |ENTORY 1|28 - IAN|
|00000020| 20 41 44 41 4d 00 42 1c | 0a 00 4e 46 24 b2 22 4e | ADAM.B.|..NF$."N|
|00000030| 4f 4e 45 22 3a 99 22 38 | 30 20 43 4f 4c 55 4d 4e |ONE":."8|0 COLUMN|
|00000040| 53 22 00 58 1c 14 00 de | 20 35 3a e7 20 36 2c 31 |S".X....| 5:. 6,1|
|00000050| 3a 99 22 13 13 93 9a 22 | 00 73 1c 1e 00 81 20 49 |:."...."|.s.... I|
|00000060| b2 30 20 a4 20 37 39 3a | e0 2c 49 2c 34 2c 22 c3 |.0 . 79:|.,I,4,".|
|00000070| 22 3a 82 00 99 1c 28 00 | 81 20 49 b2 30 20 a4 20 |":....(.|. I.0 . |
|00000080| 33 3a e0 2c 34 34 2c 49 | 2c 22 c2 22 3a 82 3a e0 |3:.,44,I|,".":.:.|
|00000090| 2c 34 34 2c 34 2c 22 b1 | 22 00 b6 1c 32 00 99 c7 |,44,4,".|"...2...|
|000000a0| 28 31 34 32 29 3a 4d 24 | 28 30 29 b2 22 45 4e 44 |(142):M$|(0)."END|
|000000b0| 22 3a 53 41 b2 37 00 ce | 1c 3c 00 4d 24 28 31 29 |":SA.7..|.<.M$(1)|
|000000c0| b2 22 43 52 45 41 54 45 | 20 46 49 4c 45 22 00 ed |."CREATE| FILE"..|
|000000d0| 1c 46 00 4d 24 28 32 29 | b2 22 47 45 54 20 46 49 |.F.M$(2)|."GET FI|
|000000e0| 4c 45 20 46 52 4f 4d 20 | 44 49 53 4b 22 00 06 1d |LE FROM |DISK"...|
|000000f0| 50 00 4d 24 28 33 29 b2 | 22 57 4f 52 4b 20 4f 4e |P.M$(3).|"WORK ON|
|00000100| 20 44 41 54 41 22 00 1f | 1d 5a 00 4d 24 28 34 29 | DATA"..|.Z.M$(4)|
|00000110| b2 22 53 41 56 45 20 54 | 4f 20 44 49 53 4b 22 00 |."SAVE T|O DISK".|
|00000120| 3a 1d 64 00 4d 24 28 35 | 29 b2 22 50 52 49 4e 54 |:.d.M$(5|)."PRINT|
|00000130| 45 44 20 52 45 50 4f 52 | 54 22 00 55 1d 6e 00 eb |ED REPOR|T".U.n..|
|00000140| 3a fe 1a 20 30 2c 30 2c | 33 35 2c 33 2c 31 3a e7 |:.. 0,0,|35,3,1:.|
|00000150| 20 35 2c 31 35 00 78 1d | 78 00 99 c7 28 31 34 32 | 5,15.x.|x...(142|
|00000160| 29 a3 39 29 22 2a 20 48 | 4f 4d 45 20 49 4e 56 45 |).9)"* H|OME INVE|
|00000170| 4e 54 4f 52 59 20 2a 22 | 00 8f 1d 82 00 99 a3 31 |NTORY *"|.......1|
|00000180| 32 29 22 42 59 20 49 41 | 4e 20 41 44 41 4d 22 00 |2)"BY IA|N ADAM".|
|00000190| a8 1d 8c 00 8d 20 32 33 | 30 3a fe 1a 20 30 2c 35 |..... 23|0:.. 0,5|
|000001a0| 2c 37 39 2c 32 34 2c 31 | 00 c0 1d 96 00 99 22 11 |,79,24,1|......".|
|000001b0| 20 54 48 45 20 4d 41 49 | 4e 20 4d 45 4e 55 11 22 | THE MAI|N MENU."|
|000001c0| 00 d9 1d a0 00 81 20 49 | b2 30 20 a4 20 35 3a 99 |...... I|.0 . 5:.|
|000001d0| 49 3b 4d 24 28 49 29 3a | 82 00 fc 1d aa 00 99 22 |I;M$(I):|......."|
|000001e0| 11 59 4f 55 52 20 43 48 | 4f 49 43 45 3f 22 3a a1 |.YOUR CH|OICE?":.|
|000001f0| f9 20 41 24 3a 41 b2 c5 | 28 41 24 29 00 0d 1e b4 |. A$:A..|(A$)....|
|00000200| 00 fe 25 3a 99 22 93 22 | 4d 24 28 41 29 00 31 1e |..%:."."|M$(A).1.|
|00000210| be 00 8b 20 41 b1 32 20 | af 20 4e 52 b2 30 20 a7 |... A.2 |. NR.0 .|
|00000220| 20 85 22 4e 4f 20 44 41 | 54 41 21 22 3b 41 24 3a | ."NO DA|TA!";A$:|
|00000230| 8a 00 48 1e c8 00 8b 20 | 41 b1 32 20 b0 20 4e 52 |..H.... |A.2 . NR|
|00000240| b2 30 20 a7 20 32 32 30 | 00 73 1e d2 00 99 22 11 |.0 . 220|.s....".|
|00000250| 41 52 45 20 59 4f 55 20 | 53 55 52 45 3f 20 59 2f |ARE YOU |SURE? Y/|
|00000260| 4e 22 3a a1 f9 20 41 24 | 3a ec 20 fc 20 41 24 b2 |N":.. A$|:. . A$.|
|00000270| 22 59 22 00 9a 1e dc 00 | 91 20 41 aa 31 20 8d 20 |"Y".....|. A.1 . |
|00000280| 32 39 30 2c 36 36 30 2c | 33 31 30 2c 37 38 30 2c |290,660,|310,780,|
|00000290| 34 35 30 2c 31 35 38 30 | 3a ec 00 b4 1e e6 00 fe |450,1580|:.......|
|000002a0| 1a 20 34 36 2c 30 2c 37 | 39 2c 33 2c 31 3a e7 20 |. 46,0,7|9,3,1:. |
|000002b0| 35 2c 31 34 00 cb 1e f0 | 00 99 22 46 49 4c 45 20 |5,14....|.."FILE |
|000002c0| 4e 41 4d 45 3a 20 20 22 | 4e 46 24 00 e4 1e fa 00 |NAME:  "|NF$.....|
|000002d0| 99 22 54 4f 54 41 4c 20 | 52 4f 4f 4d 53 20 20 20 |."TOTAL |ROOMS   |
|000002e0| 22 2c 4e 52 00 fd 1e 04 | 01 99 22 49 54 45 4d 53 |",NR....|.."ITEMS|
|000002f0| 20 50 45 52 20 52 4f 4f | 4d 22 2c 4e 49 00 17 1f | PER ROO|M",NI...|
|00000300| 0e 01 99 22 49 54 45 4d | 53 20 45 4e 54 45 52 45 |..."ITEM|S ENTERE|
|00000310| 44 20 22 2c 43 49 3b 00 | 1d 1f 18 01 8e 00 2a 1f |D ",CI;.|......*.|
|00000320| 22 01 99 22 13 13 93 22 | 3a 80 00 30 1f 2c 01 3a |".."..."|:..0.,.:|
|00000330| 00 47 1f 36 01 9c 3a 8d | 20 35 38 30 3a 8b 20 42 |.G.6..:.| 580:. B|
|00000340| b1 31 39 20 a7 20 8a 00 | 52 1f 40 01 84 31 2c 41 |.19 . ..|R.@..1,A|
|00000350| 2c 42 00 89 1f 4a 01 99 | 22 11 46 49 4c 45 20 22 |,B...J..|".FILE "|
|00000360| 4e 46 24 22 20 41 4c 4c | 4f 57 53 22 41 22 52 4f |NF$" ALL|OWS"A"RO|
|00000370| 4f 4d 53 2c 20 26 22 42 | 22 49 54 45 4d 53 20 50 |OMS, &"B|"ITEMS P|
|00000380| 45 52 20 52 4f 4f 4d 2e | 22 00 ae 1f 54 01 99 22 |ER ROOM.|"...T.."|
|00000390| 50 52 45 53 53 20 52 45 | 54 55 52 4e 20 49 46 20 |PRESS RE|TURN IF |
|000003a0| 4f 4b 2c 20 4f 52 20 45 | 4e 54 45 52 3a 22 00 c0 |OK, OR E|NTER:"..|
|000003b0| 1f 5e 01 49 b2 41 3a 4a | b2 42 3a 8d 20 37 30 30 |.^.I.A:J|.B:. 700|
|000003c0| 00 c6 1f 68 01 3a 00 d4 | 1f 72 01 81 20 49 b2 31 |...h.:..|.r.. I.1|
|000003d0| 20 a4 20 41 00 e8 1f 7c | 01 84 31 2c 4e 52 24 28 | . A...||..1,NR$(|
|000003e0| 49 29 2c 49 52 28 49 29 | 00 fa 1f 86 01 81 20 4a |I),IR(I)|...... J|
|000003f0| b2 31 20 a4 20 49 52 28 | 49 29 00 2b 20 90 01 84 |.1 . IR(|I).+ ...|
|00000400| 31 2c 49 54 24 28 49 2c | 4a 29 2c 49 44 24 28 49 |1,IT$(I,|J),ID$(I|
|00000410| 2c 4a 29 2c 41 47 28 49 | 2c 4a 29 2c 4e 56 28 49 |,J),AG(I|,J),NV(I|
|00000420| 2c 4a 29 2c 50 56 28 49 | 2c 4a 29 00 43 20 9a 01 |,J),PV(I|,J).C ..|
|00000430| 82 3a 8b 20 4a b1 4e 49 | 20 a7 20 49 52 28 49 29 |.:. J.NI| . IR(I)|
|00000440| b2 4e 49 00 49 20 a4 01 | 82 00 5e 20 ae 01 8d 20 |.NI.I ..|..^ ... |
|00000450| 35 35 30 3a 8d 20 39 36 | 30 3a 89 20 35 30 00 64 |550:. 96|0:. 50.d|
|00000460| 20 b8 01 3a 00 81 20 c2 | 01 99 22 50 52 45 53 53 | ..:.. .|.."PRESS|
|00000470| 20 52 45 54 55 52 4e 20 | 46 4f 52 3a 20 22 4e 46 | RETURN |FOR: "NF|
|00000480| 24 00 96 20 cc 01 8d 20 | 35 38 30 3a 8b 20 42 b1 |$.. ... |580:. B.|
|00000490| 31 39 20 a7 20 8e 00 ad | 20 d6 01 98 31 2c 4e 52 |19 . ...| ...1,NR|
|000004a0| 3a 98 31 2c 4e 49 3a 42 | 24 b2 22 20 22 00 bc 20 |:.1,NI:B|$." ".. |
|000004b0| e0 01 81 20 49 b2 31 20 | a4 20 4e 52 00 d6 20 ea |... I.1 |. NR.. .|
|000004c0| 01 98 31 2c 42 24 aa 4e | 52 24 28 49 29 3a 98 31 |..1,B$.N|R$(I):.1|
|000004d0| 2c 49 52 28 49 29 00 e8 | 20 f4 01 81 20 4a b2 31 |,IR(I)..| ... J.1|
|000004e0| 20 a4 20 49 52 28 49 29 | 00 0a 21 fe 01 98 31 2c | . IR(I)|..!...1,|
|000004f0| 42 24 aa 49 54 24 28 49 | 2c 4a 29 3a 98 31 2c 42 |B$.IT$(I|,J):.1,B|
|00000500| 24 aa 49 44 24 28 49 2c | 4a 29 00 2f 21 08 02 98 |$.ID$(I,|J)./!...|
|00000510| 31 2c 41 47 28 49 2c 4a | 29 3a 98 31 2c 4e 56 28 |1,AG(I,J|):.1,NV(|
|00000520| 49 2c 4a 29 3a 98 31 2c | 50 56 28 49 2c 4a 29 00 |I,J):.1,|PV(I,J).|
|00000530| 37 21 12 02 82 3a 82 00 | 3d 21 1c 02 3a 00 61 21 |7!...:..|=!..:.a!|
|00000540| 26 02 8b 20 44 53 b1 31 | 39 20 a7 20 99 22 50 52 |&.. DS.1|9 . ."PR|
|00000550| 4f 42 4c 45 4d 3a 20 22 | 44 53 24 3a a1 f9 20 41 |OBLEM: "|DS$:.. A|
|00000560| 24 00 6a 21 30 02 fe 0f | 3a 8e 00 70 21 3a 02 3a |$.j!0...|:..p!:.:|
|00000570| 00 85 21 44 02 85 22 46 | 49 4c 45 20 4e 41 4d 45 |..!D.."F|ILE NAME|
|00000580| 22 3b 4e 46 24 00 9d 21 | 4e 02 44 24 b2 c8 28 4e |";NF$..!|N.D$..(N|
|00000590| 46 24 2c 31 32 29 aa 22 | 2e 49 4e 56 22 00 c1 21 |F$,12)."|.INV"..!|
|000005a0| 58 02 eb 3a 8b 20 41 20 | a7 20 fe 0d 23 31 2c 28 |X..:. A |. ..#1,(|
|000005b0| 44 24 29 2c 57 3a d5 20 | fe 0d 23 31 2c 28 44 24 |D$),W:. |..#1,(D$|
|000005c0| 29 00 d5 21 62 02 42 b2 | 44 53 3a 8b 20 42 b3 32 |)..!b.B.|DS:. B.2|
|000005d0| 30 20 a7 20 8e 00 fd 21 | 6c 02 99 22 50 52 4f 42 |0 . ...!|l.."PROB|
|000005e0| 4c 45 4d 3a 20 22 44 53 | 24 3a fe 0f 3a 8b 20 42 |LEM: "DS|$:..:. B|
|000005f0| ab 36 33 20 a7 20 a1 f9 | 20 41 24 3a 8e 00 2d 22 |.63 . ..| A$:..-"|
|00000600| 76 02 99 22 52 45 50 4c | 41 43 45 20 4f 4c 44 20 |v.."REPL|ACE OLD |
|00000610| 46 49 4c 45 3f 20 59 2f | 4e 22 3a a1 f9 20 41 24 |FILE? Y/|N":.. A$|
|00000620| 3a 8b 20 41 24 b3 22 59 | 22 20 a7 20 8e 00 39 22 |:. A$."Y|" . ..9"|
|00000630| 80 02 f2 28 44 24 29 3a | ec 00 3f 22 8a 02 3a 00 |...(D$):|..?"..:.|
|00000640| 56 22 94 02 9c 3a 85 22 | 46 49 4c 45 20 4e 41 4d |V"...:."|FILE NAM|
|00000650| 45 22 3b 4e 46 24 00 8e | 22 9e 02 99 22 11 49 54 |E";NF$..|"...".IT|
|00000660| 45 4d 53 20 41 52 45 20 | 47 52 4f 55 50 45 44 20 |EMS ARE |GROUPED |
|00000670| 42 59 20 54 48 45 20 52 | 4f 4f 4d 20 54 48 45 59 |BY THE R|OOM THEY|
|00000680| 20 41 52 45 20 4b 45 50 | 54 20 49 4e 2e 22 00 9d | ARE KEP|T IN."..|
|00000690| 22 a8 02 8d 20 37 30 30 | 3a 89 20 35 30 00 a3 22 |"... 700|:. 50.."|
|000006a0| b2 02 3a 00 c0 22 bc 02 | 85 22 11 4d 41 58 49 4d |..:.."..|.".MAXIM|
|000006b0| 55 4d 20 23 20 4f 46 20 | 52 4f 4f 4d 53 22 3b 49 |UM # OF |ROOMS";I|
|000006c0| 00 e0 22 c6 02 85 22 4d | 41 58 49 4d 55 4d 20 49 |.."..."M|AXIMUM I|
|000006d0| 54 45 4d 53 20 50 45 52 | 20 52 4f 4f 4d 22 3b 4a |TEMS PER| ROOM";J|
|000006e0| 00 ee 22 d0 02 4e 52 b2 | 49 3a 4e 49 b2 4a 00 fe |.."..NR.|I:NI.J..|
|000006f0| 22 da 02 8b 20 41 b1 49 | 20 a7 20 49 b2 41 00 0e |"... A.I| . I.A..|
|00000700| 23 e4 02 8b 20 42 b1 4a | 20 a7 20 4a b2 42 00 4b |#... B.J| . J.B.K|
|00000710| 23 ee 02 86 20 49 54 24 | 28 49 2c 4a 29 2c 49 44 |#... IT$|(I,J),ID|
|00000720| 24 28 49 2c 4a 29 2c 41 | 47 28 49 2c 4a 29 2c 4e |$(I,J),A|G(I,J),N|
|00000730| 56 28 49 2c 4a 29 2c 50 | 56 28 49 2c 4a 29 2c 4e |V(I,J),P|V(I,J),N|
|00000740| 52 24 28 49 29 2c 49 52 | 28 49 29 00 51 23 f8 02 |R$(I),IR|(I).Q#..|
|00000750| 8e 00 57 23 02 03 3a 00 | 64 23 0c 03 eb 3a 8d 20 |..W#..:.|d#...:. |
|00000760| 31 32 30 30 00 8a 23 16 | 03 85 22 57 4f 52 4b 20 |1200..#.|.."WORK |
|00000770| 4f 4e 20 57 48 49 43 48 | 20 52 4f 4f 4d 20 28 51 |ON WHICH| ROOM (Q|
|00000780| 20 51 55 49 54 29 22 3b | 41 24 00 96 23 20 03 41 | QUIT)";|A$..# .A|
|00000790| b2 c5 28 41 24 29 00 bf | 23 2a 03 8b 20 41 b2 30 |..(A$)..|#*.. A.0|
|000007a0| 20 a7 20 eb 20 fc 20 41 | 24 b2 4e 52 24 28 41 29 | . . . A|$.NR$(A)|
|000007b0| 3a 41 b2 41 aa 31 3a ec | 20 fc 20 41 b1 4e 52 00 |:A.A.1:.| . A.NR.|
|000007c0| d4 23 34 03 8b 20 41 b3 | 31 20 b0 20 41 b1 4e 52 |.#4.. A.|1 . A.NR|
|000007d0| 20 a7 20 ed 00 de 23 3e | 03 8d 20 39 39 30 00 f7 | . ...#>|.. 990..|
|000007e0| 23 48 03 fe 1a 20 30 2c | 35 2c 37 39 2c 32 34 2c |#H... 0,|5,79,24,|
|000007f0| 31 3a e7 20 35 2c 34 00 | 14 24 52 03 8b 20 49 52 |1:. 5,4.|.$R.. IR|
|00000800| 28 41 29 b2 30 20 a7 20 | 8d 20 31 30 32 30 3a 89 |(A).0 . |. 1020:.|
|00000810| 20 38 34 30 00 29 24 5c | 03 99 22 20 30 2e 20 4d | 840.)$\|.." 0. M|
|00000820| 41 49 4e 20 4d 45 4e 55 | 22 00 3e 24 66 03 99 22 |AIN MENU|".>$f.."|
|00000830| 20 31 2e 20 41 44 44 20 | 49 54 45 4d 53 22 00 54 | 1. ADD |ITEMS".T|
|00000840| 24 70 03 99 22 20 32 2e | 20 4c 49 53 54 20 49 54 |$p.." 2.| LIST IT|
|00000850| 45 4d 53 22 00 6c 24 7a | 03 99 22 20 33 2e 20 49 |EMS".l$z|.." 3. I|
|00000860| 54 45 4d 20 44 45 54 41 | 49 4c 53 22 00 83 24 84 |TEM DETA|ILS"..$.|
|00000870| 03 99 22 20 34 2e 20 4d | 4f 44 49 46 59 20 44 41 |.." 4. M|ODIFY DA|
|00000880| 54 41 22 00 9b 24 8e 03 | 99 22 20 35 2e 20 41 4e |TA"..$..|." 5. AN|
|00000890| 4f 54 48 45 52 20 52 4f | 4f 4d 22 00 b8 24 98 03 |OTHER RO|OM"..$..|
|000008a0| 99 22 43 48 4f 49 43 45 | 3f 22 3a a1 f9 20 41 24 |."CHOICE|?":.. A$|
|000008b0| 3a 42 b2 c5 28 41 24 29 | 00 c6 24 a2 03 8b 20 42 |:B..(A$)|..$... B|
|000008c0| b3 31 20 a7 20 ed 00 f4 | 24 ac 03 e8 3a 8b 20 42 |.1 . ...|$...:. B|
|000008d0| b3 35 20 a7 20 91 20 42 | 20 8d 20 31 30 34 30 2c |.5 . . B| . 1040,|
|000008e0| 31 32 35 30 2c 31 31 31 | 30 2c 31 31 35 30 3a 89 |1250,111|0,1150:.|
|000008f0| 20 38 34 30 00 fa 24 b6 | 03 ec 00 0e 25 c0 03 43 | 840..$.|....%..C|
|00000900| 49 b2 30 3a 81 20 49 b2 | 31 20 a4 20 4e 52 00 20 |I.0:. I.|1 . NR. |
|00000910| 25 ca 03 43 49 b2 43 49 | aa 49 52 28 49 29 3a 82 |%..CI.CI|.IR(I):.|
|00000920| 00 26 25 d4 03 8e 00 3f | 25 de 03 fe 1a 20 30 2c |.&%....?|%.... 0,|
|00000930| 33 2c 34 33 2c 33 2c 31 | 3a e7 20 35 2c 31 31 00 |3,43,3,1|:. 5,11.|
|00000940| 64 25 e8 03 99 22 52 4f | 4f 4d 22 41 3b 4e 52 24 |d%..."RO|OM"A;NR$|
|00000950| 28 41 29 22 20 49 54 45 | 4d 53 3a 22 49 52 28 41 |(A)" ITE|MS:"IR(A|
|00000960| 29 3b 3a 8e 00 6a 25 f2 | 03 3a 00 93 25 fc 03 8b |);:..j%.|.:..%...|
|00000970| 20 4e 52 24 28 41 29 b2 | 22 22 20 a7 20 85 22 4e | NR$(A).|"" . ."N|
|00000980| 41 4d 45 20 4f 46 20 52 | 4f 4f 4d 22 3b 4e 52 24 |AME OF R|OOM";NR$|
|00000990| 28 41 29 00 99 25 06 04 | 3a 00 ae 25 10 04 42 b2 |(A)..%..|:..%..B.|
|000009a0| 49 52 28 41 29 aa 31 3a | 8d 20 31 35 31 30 00 d5 |IR(A).1:|. 1510..|
|000009b0| 25 1a 04 eb 3a 8d 20 39 | 39 30 3a fe 1a 20 30 2c |%...:. 9|90:.. 0,|
|000009c0| 31 30 2c 37 39 2c 32 34 | 2c 31 3a 8b 20 42 b1 4e |10,79,24|,1:. B.N|
|000009d0| 49 20 a7 20 ed 00 ed 25 | 24 04 8d 20 31 33 37 30 |I . ...%|$.. 1370|
|000009e0| 3a 8b 20 41 24 b2 22 51 | 22 20 a7 20 8e 00 07 26 |:. A$."Q|" . ...&|
|000009f0| 2e 04 49 52 28 41 29 b2 | 42 3a 42 b2 42 aa 31 3a |..IR(A).|B:B.B.1:|
|00000a00| 43 49 b2 43 49 aa 31 00 | 13 26 38 04 8d 20 32 33 |CI.CI.1.|.&8.. 23|
|00000a10| 30 3a ec 00 2c 26 42 04 | 85 22 52 4f 4f 4d 20 49 |0:..,&B.|."ROOM I|
|00000a20| 53 20 46 55 4c 4c 22 3b | 41 24 3a 8e 00 32 26 4c |S FULL";|A$:..2&L|
|00000a30| 04 3a 00 54 26 56 04 eb | 3a 85 22 44 45 54 41 49 |.:.T&V..|:."DETAI|
|00000a40| 4c 20 49 54 45 4d 20 23 | 20 28 30 20 51 55 49 54 |L ITEM #| (0 QUIT|
|00000a50| 29 22 3b 42 00 6c 26 60 | 04 8b 20 42 b3 31 20 b0 |)";B.l&`|.. B.1 .|
|00000a60| 20 42 b1 49 52 28 41 29 | 20 a7 20 8e 00 79 26 6a | B.IR(A)| . ..y&j|
|00000a70| 04 8d 20 31 32 39 30 3a | ec 00 7f 26 74 04 3a 00 |.. 1290:|...&t.:.|
|00000a80| c5 26 7e 04 99 22 50 52 | 45 53 53 20 52 45 54 55 |.&~.."PR|ESS RETU|
|00000a90| 52 4e 20 41 54 20 41 4e | 59 20 50 52 4f 4d 50 54 |RN AT AN|Y PROMPT|
|00000aa0| 20 54 4f 20 4b 45 45 50 | 20 54 48 45 20 53 41 4d | TO KEEP| THE SAM|
|00000ab0| 45 20 44 41 54 41 2e 22 | 3a fe 1a 20 30 2c 36 2c |E DATA."|:.. 0,6,|
|00000ac0| 37 39 2c 32 34 00 ee 26 | 88 04 eb 3a 85 22 11 4d |79,24..&|...:.".M|
|00000ad0| 4f 44 49 46 59 20 57 48 | 49 43 48 20 49 54 45 4d |ODIFY WH|ICH ITEM|
|00000ae0| 20 23 20 28 30 20 51 55 | 49 54 29 22 3b 42 00 06 | # (0 QU|IT)";B..|
|00000af0| 27 92 04 8b 20 42 b3 31 | 20 b0 20 42 b1 49 52 28 |'... B.1| . B.IR(|
|00000b00| 41 29 20 a7 20 8e 00 15 | 27 9c 04 e8 3a 8d 20 31 |A) . ...|'...:. 1|
|00000b10| 33 37 30 3a ec 00 1b 27 | a6 04 3a 00 39 27 b0 04 |370:...'|..:.9'..|
|00000b20| 99 22 52 4f 4f 4d 53 20 | 41 43 54 49 56 45 3a 22 |."ROOMS |ACTIVE:"|
|00000b30| 2c 2c 22 49 54 45 4d 53 | 22 00 48 27 ba 04 81 20 |,,"ITEMS|".H'... |
|00000b40| 49 b2 31 20 a4 20 4e 52 | 00 5f 27 c4 04 99 49 2c |I.1 . NR|._'...I,|
|00000b50| 4e 52 24 28 49 29 a3 33 | 32 29 49 52 28 49 29 00 |NR$(I).3|2)IR(I).|
|00000b60| 67 27 ce 04 82 3a 8e 00 | 6d 27 d8 04 3a 00 7f 27 |g'...:..|m'..:..'|
|00000b70| e2 04 81 20 49 b2 31 20 | a4 20 49 52 28 41 29 00 |... I.1 |. IR(A).|
|00000b80| 8f 27 ec 04 99 49 3b 49 | 54 24 28 41 2c 49 29 00 |.'...I;I|T$(A,I).|
|00000b90| a5 27 f6 04 82 3a 85 22 | 12 52 45 54 55 52 4e 22 |.'...:."|.RETURN"|
|00000ba0| 3b 41 24 3a 8e 00 ab 27 | 00 05 3a 00 bd 27 0a 05 |;A$:...'|..:..'..|
|00000bb0| 99 22 11 49 54 45 4d 20 | 23 3a 22 2c 42 00 d6 27 |.".ITEM |#:",B..'|
|00000bc0| 14 05 99 22 44 45 53 43 | 52 49 50 3a 22 2c 49 54 |..."DESC|RIP:",IT|
|00000bd0| 24 28 41 2c 42 29 00 ed | 27 1e 05 99 22 49 44 45 |$(A,B)..|'..."IDE|
|00000be0| 4e 54 3a 22 2c 49 44 24 | 28 41 2c 42 29 00 06 28 |NT:",ID$|(A,B)..(|
|00000bf0| 28 05 99 22 41 47 45 2c | 20 59 52 53 3a 22 2c 41 |(.."AGE,| YRS:",A|
|00000c00| 47 28 41 2c 42 29 00 1b | 28 32 05 99 22 43 4f 53 |G(A,B)..|(2.."COS|
|00000c10| 54 3a 22 2c 4e 56 28 41 | 2c 42 29 00 31 28 3c 05 |T:",NV(A|,B).1(<.|
|00000c20| 99 22 56 41 4c 55 45 3a | 22 2c 50 56 28 41 2c 42 |."VALUE:|",PV(A,B|
|00000c30| 29 00 39 28 46 05 99 3a | 8e 00 3f 28 50 05 3a 00 |).9(F..:|..?(P.:.|
|00000c40| 6d 28 5a 05 e7 20 35 2c | 34 3a 99 22 49 54 45 4d |m(Z.. 5,|4:."ITEM|
|00000c50| 20 23 22 42 2c 22 44 45 | 53 43 52 49 50 54 49 4f | #"B,"DE|SCRIPTIO|
|00000c60| 4e 20 28 51 3a 20 51 55 | 49 54 29 3a 22 00 7e 28 |N (Q: QU|IT):".~(|
|00000c70| 64 05 99 a3 32 29 49 54 | 24 28 41 2c 42 29 00 99 |d...2)IT|$(A,B)..|
|00000c80| 28 6e 05 e0 2c 30 2c 31 | 3a 85 41 24 3a 8b 20 41 |(n..,0,1|:.A$:. A|
|00000c90| 24 b2 22 51 22 20 a7 20 | 8e 00 a9 28 78 05 49 54 |$."Q" . |...(x.IT|
|00000ca0| 24 28 41 2c 42 29 b2 41 | 24 00 c4 28 82 05 e0 2c |$(A,B).A|$..(...,|
|00000cb0| 30 2c 35 3a 99 22 49 44 | 3a 20 20 22 49 44 24 28 |0,5:."ID|:  "ID$(|
|00000cc0| 41 2c 42 29 00 d8 28 8c | 05 e0 2c 33 2c 35 3a 85 |A,B)..(.|..,3,5:.|
|00000cd0| 49 44 24 28 41 2c 42 29 | 00 f7 28 96 05 e0 2c 30 |ID$(A,B)|..(...,0|
|00000ce0| 2c 39 3a 99 22 41 47 45 | 2c 20 59 52 53 3a 22 2c |,9:."AGE|, YRS:",|
|00000cf0| 41 47 28 41 2c 42 29 00 | 0a 29 a0 05 e0 2c 39 2c |AG(A,B).|.)...,9,|
|00000d00| 39 3a 85 41 47 28 41 2c | 42 29 00 28 29 aa 05 99 |9:.AG(A,|B).()...|
|00000d10| 22 4f 52 49 47 49 4e 41 | 4c 20 43 4f 53 54 3a 20 |"ORIGINA|L COST: |
|00000d20| 22 4e 56 28 41 2c 42 29 | 00 3d 29 b4 05 e0 2c 31 |"NV(A,B)|.=)...,1|
|00000d30| 34 2c 31 30 3a 85 4e 56 | 28 41 2c 42 29 00 5b 29 |4,10:.NV|(A,B).[)|
|00000d40| be 05 99 22 50 52 45 53 | 45 4e 54 20 56 41 4c 55 |..."PRES|ENT VALU|
|00000d50| 45 3a 20 22 50 56 28 41 | 2c 42 29 00 70 29 c8 05 |E: "PV(A|,B).p)..|
|00000d60| e0 2c 31 34 2c 31 31 3a | 85 50 56 28 41 2c 42 29 |.,14,11:|.PV(A,B)|
|00000d70| 00 76 29 d2 05 8e 00 7c | 29 dc 05 3a 00 ce 29 e6 |.v)....||)..:..).|
|00000d80| 05 e7 20 35 2c 31 35 3a | 99 22 93 46 4f 52 20 45 |.. 5,15:|.".FOR E|
|00000d90| 41 43 48 20 49 54 45 4d | 2c 20 47 49 56 45 20 41 |ACH ITEM|, GIVE A|
|00000da0| 20 44 45 53 43 52 49 50 | 54 49 4f 4e 20 57 49 54 | DESCRIP|TION WIT|
|00000db0| 48 20 4d 41 4b 45 2c 20 | 53 49 5a 45 2c 20 43 4f |H MAKE, |SIZE, CO|
|00000dc0| 4e 44 49 54 49 4f 4e 2c | 20 45 54 43 2e 22 00 0a |NDITION,| ETC."..|
|00000dd0| 2a f0 05 99 22 47 49 56 | 45 20 49 44 45 4e 54 49 |*..."GIV|E IDENTI|
|00000de0| 46 49 43 41 54 49 4f 4e | 20 53 55 43 48 20 41 53 |FICATION| SUCH AS|
|00000df0| 20 53 45 52 49 41 4c 20 | 23 20 4f 52 20 4f 54 48 | SERIAL |# OR OTH|
|00000e00| 45 52 20 4d 41 52 4b 53 | 2e 22 00 37 2a fa 05 99 |ER MARKS|.".7*...|
|00000e10| 22 43 4f 4d 4d 41 53 20 | 26 20 43 4f 4c 4f 4e 53 |"COMMAS |& COLONS|
|00000e20| 20 4e 4f 54 20 41 4c 4c | 4f 57 45 44 20 41 53 20 | NOT ALL|OWED AS |
|00000e30| 49 4e 50 55 54 2e 22 00 | 4f 2a 04 06 99 22 41 47 |INPUT.".|O*..."AG|
|00000e40| 45 20 49 53 20 49 4e 20 | 59 45 41 52 53 2e 22 00 |E IS IN |YEARS.".|
|00000e50| 90 2a 0e 06 99 22 43 4f | 53 54 20 49 53 20 4f 52 |.*..."CO|ST IS OR|
|00000e60| 49 47 49 4e 41 4c 20 50 | 52 49 43 45 20 4f 46 20 |IGINAL P|RICE OF |
|00000e70| 49 54 45 4d 2c 20 26 20 | 45 53 54 49 4d 41 54 45 |ITEM, & |ESTIMATE|
|00000e80| 20 43 55 52 52 45 4e 54 | 20 56 41 4c 55 45 2e 22 | CURRENT| VALUE."|
|00000e90| 00 96 2a 18 06 8e 00 9c | 2a 22 06 3a 00 bc 2a 2c |..*.....|*".:..*,|
|00000ea0| 06 99 22 45 4e 53 55 52 | 45 20 50 52 49 4e 54 45 |.."ENSUR|E PRINTE|
|00000eb0| 52 20 49 53 20 52 45 41 | 44 59 11 22 00 c7 2a 36 |R IS REA|DY."..*6|
|00000ec0| 06 8d 20 31 32 30 30 00 | ec 2a 40 06 85 22 11 53 |.. 1200.|.*@..".S|
|00000ed0| 54 41 52 54 20 52 45 50 | 4f 52 54 20 41 54 20 52 |TART REP|ORT AT R|
|00000ee0| 4f 4f 4d 20 20 31 9d 9d | 9d 22 3b 53 00 09 2b 4a |OOM  1..|.";S..+J|
|00000ef0| 06 99 22 45 4e 44 20 52 | 45 50 4f 52 54 20 41 54 |.."END R|EPORT AT|
|00000f00| 20 52 4f 4f 4d 20 22 4e | 52 00 1c 2b 54 06 99 22 | ROOM "N|R..+T.."|
|00000f10| 91 22 a3 31 38 29 3b 3a | 85 45 3a 99 00 37 2b 5e |.".18);:|.E:..7+^|
|00000f20| 06 8b 20 53 b3 31 20 b0 | 20 53 b1 45 20 b0 20 45 |.. S.1 .| S.E . E|
|00000f30| b1 4e 52 20 a7 20 8e 00 | 3d 2b 68 06 3a 00 7e 2b |.NR . ..|=+h.:.~+|
|00000f40| 72 06 e8 3a 99 22 44 45 | 53 43 52 49 50 54 49 4f |r..:."DE|SCRIPTIO|
|00000f50| 4e 20 26 20 49 44 45 4e | 54 27 4e 20 4d 41 59 20 |N & IDEN|T'N MAY |
|00000f60| 42 45 20 53 48 4f 52 54 | 45 4e 45 44 20 54 4f 20 |BE SHORT|ENED TO |
|00000f70| 46 49 54 20 54 48 45 20 | 50 41 47 45 2e 22 00 a4 |FIT THE |PAGE."..|
|00000f80| 2b 7c 06 99 22 48 45 52 | 45 20 41 52 45 20 54 48 |+|.."HER|E ARE TH|
|00000f90| 45 20 52 45 50 4f 52 54 | 20 4f 50 54 49 4f 4e 53 |E REPORT| OPTIONS|
|00000fa0| 3a 22 3a 99 00 c6 2b 86 | 06 99 22 30 2e 20 50 52 |:":...+.|.."0. PR|
|00000fb0| 49 4e 54 20 4a 55 53 54 | 20 53 55 4d 4d 41 52 59 |INT JUST| SUMMARY|
|00000fc0| 20 44 41 54 41 22 00 ec | 2b 90 06 99 22 31 2e 20 | DATA"..|+..."1. |
|00000fd0| 53 48 4f 52 54 20 49 44 | 2c 20 41 47 45 2c 20 26 |SHORT ID|, AGE, &|
|00000fe0| 20 43 4f 53 54 20 54 41 | 42 4c 45 22 00 14 2c 9a | COST TA|BLE"..,.|
|00000ff0| 06 99 22 32 2e 20 46 55 | 4c 4c 20 44 45 53 43 52 |.."2. FU|LL DESCR|
|00001000| 49 50 54 49 4f 4e 53 20 | 26 20 49 44 27 53 20 4f |IPTIONS |& ID'S O|
|00001010| 4e 4c 59 22 00 2a 2c a4 | 06 99 22 33 2e 20 46 55 |NLY".*,.|.."3. FU|
|00001020| 4c 4c 20 52 45 50 4f 52 | 54 22 00 4a 2c ae 06 99 |LL REPOR|T".J,...|
|00001030| 22 34 2e 20 53 45 54 20 | 53 45 43 4f 4e 44 41 52 |"4. SET |SECONDAR|
|00001040| 59 20 41 44 44 52 45 53 | 53 22 00 5b 2c b8 06 99 |Y ADDRES|S".[,...|
|00001050| 22 35 2e 20 43 41 4e 43 | 45 4c 22 00 7d 2c c2 06 |"5. CANC|EL".},..|
|00001060| 99 22 59 4f 55 52 20 43 | 48 4f 49 43 45 3f 22 3a |."YOUR C|HOICE?":|
|00001070| a1 f9 20 41 24 3a 4d b2 | c5 28 41 24 29 00 f1 2c |.. A$:M.|.(A$)..,|
|00001080| cc 06 8b 20 4d b2 34 20 | a7 20 99 22 53 45 43 4f |... M.4 |. ."SECO|
|00001090| 4e 44 41 52 59 20 41 44 | 44 52 45 53 53 20 49 53 |NDARY AD|DRESS IS|
|000010a0| 22 53 41 22 46 4f 52 20 | 55 50 50 45 52 20 41 4e |"SA"FOR |UPPER AN|
|000010b0| 44 20 4c 4f 57 45 52 20 | 43 41 53 45 2c 20 57 49 |D LOWER |CASE, WI|
|000010c0| 54 48 20 4c 49 4e 45 20 | 46 45 45 44 2e 22 3a 85 |TH LINE |FEED.":.|
|000010d0| 22 4e 45 57 20 53 45 43 | 4f 4e 44 41 52 59 20 41 |"NEW SEC|ONDARY A|
|000010e0| 44 44 52 45 53 53 22 3b | 53 41 3a 89 20 31 36 35 |DDRESS";|SA:. 165|
|000010f0| 30 00 ff 2c d6 06 8b 20 | 4d b1 34 20 a7 20 8e 00 |0..,... |M.4 . ..|
|00001100| 05 2d e0 06 3a 00 16 2d | ea 06 9f 34 2c 34 2c 53 |.-..:..-|...4,4,S|
|00001110| 41 3a 9d 34 3a 99 00 31 | 2d f4 06 99 c7 28 31 34 |A:.4:..1|-....(14|
|00001120| 29 22 48 4f 4d 45 20 49 | 4e 56 45 4e 54 4f 52 59 |)"HOME I|NVENTORY|
|00001130| 22 00 42 2d fe 06 99 22 | 46 49 4c 45 3a 20 22 4e |".B-..."|FILE: "N|
|00001140| 46 24 00 83 2d 08 07 54 | 31 b2 30 3a 54 32 b2 30 |F$..-..T|1.0:T2.0|
|00001150| 3a 54 33 b2 30 3a 52 24 | b2 22 23 23 23 22 3a 53 |:T3.0:R$|."###":S|
|00001160| 24 b2 52 24 aa 52 24 3a | 54 24 b2 53 24 aa 53 24 |$.R$.R$:|T$.S$.S$|
|00001170| aa 52 24 3a 55 24 b2 54 | 24 aa 54 24 aa 54 24 aa |.R$:U$.T|$.T$.T$.|
|00001180| 22 23 22 00 99 2d 12 07 | 81 20 41 b2 53 20 a4 20 |"#"..-..|. A.S . |
|00001190| 45 3a 49 b2 30 3a 4a b2 | 30 00 bb 2d 1c 07 99 3a |E:I.0:J.|0..-...:|
|000011a0| 99 c7 28 31 34 29 22 52 | 4f 4f 4d 22 41 3b 4e 52 |..(14)"R|OOM"A;NR|
|000011b0| 24 28 41 29 3a 99 c7 28 | 31 35 29 00 cc 2d 26 07 |$(A):..(|15)..-&.|
|000011c0| 8b 20 49 52 28 41 29 20 | a7 20 fe 18 00 08 2e 30 |. IR(A) |. .....0|
|000011d0| 07 8b 20 4d af 31 20 a7 | 20 99 22 20 20 23 20 44 |.. M.1 .| ."  # D|
|000011e0| 45 53 43 52 49 50 54 49 | 4f 4e 22 a6 33 35 29 22 |ESCRIPTI|ON".35)"|
|000011f0| 49 44 22 a6 31 33 29 22 | 41 47 45 20 20 43 4f 53 |ID".13)"|AGE  COS|
|00001200| 54 20 56 41 4c 55 45 22 | 00 1a 2e 3a 07 81 20 42 |T VALUE"|...:.. B|
|00001210| b2 31 20 a4 20 49 52 28 | 41 29 00 4b 2e 44 07 49 |.1 . IR(|A).K.D.I|
|00001220| b2 49 aa 4e 56 28 41 2c | 42 29 3a 4a b2 4a aa 50 |.I.NV(A,|B):J.J.P|
|00001230| 56 28 41 2c 42 29 3a 91 | 20 4d 20 8d 20 32 30 35 |V(A,B):.| M . 205|
|00001240| 30 2c 32 30 37 30 2c 32 | 30 33 30 00 54 2e 4e 07 |0,2070,2|030.T.N.|
|00001250| 82 3a fe 19 00 5a 2e 58 | 07 3a 00 7b 2e 62 07 99 |.:...Z.X|.:.{.b..|
|00001260| 22 54 4f 54 41 4c 20 46 | 4f 52 20 52 4f 4f 4d 22 |"TOTAL F|OR ROOM"|
|00001270| 3b 3a 99 20 fb 20 52 24 | 3b 41 3b 00 ac 2e 6c 07 |;:. . R$|;A;...l.|
|00001280| 8b 20 4d af 31 20 a7 20 | 99 a6 35 31 29 3b 3a 99 |. M.1 . |..51);:.|
|00001290| 20 fb 20 53 24 3b 49 2c | 4a 3a d5 20 99 3a 42 b2 | . S$;I,|J:. .:B.|
|000012a0| 49 52 28 41 29 3a 8d 20 | 31 39 38 30 00 c8 2e 76 |IR(A):. |1980...v|
|000012b0| 07 54 31 b2 54 31 aa 42 | 3a 54 32 b2 54 32 aa 49 |.T1.T1.B|:T2.T2.I|
|000012c0| 3a 54 33 b2 54 33 aa 4a | 00 d0 2e 80 07 82 3a 99 |:T3.T3.J|......:.|
|000012d0| 00 d6 2e 8a 07 3a 00 e5 | 2e 94 07 8b 20 45 ab 53 |.....:..|.... E.S|
|000012e0| 20 a7 20 fe 18 00 0e 2f | 9e 07 99 c7 28 31 34 29 | . ..../|....(14)|
|000012f0| 22 54 4f 54 41 4c 20 46 | 4f 52 20 52 4f 4f 4d 53 |"TOTAL F|OR ROOMS|
|00001300| 22 53 22 54 4f 22 45 3a | 99 c7 28 31 35 29 00 2b |"S"TO"E:|..(15).+|
|00001310| 2f a8 07 42 b2 54 31 3a | 49 b2 54 32 3a 4a b2 54 |/..B.T1:|I.T2:J.T|
|00001320| 33 3a 8d 20 31 39 38 30 | 3a fe 19 00 37 2f b2 07 |3:. 1980|:...7/..|
|00001330| 98 34 3a a0 34 3a 8e 00 | 49 2f bc 07 99 22 49 54 |.4:.4:..|I/..."IT|
|00001340| 45 4d 53 3a 22 a6 39 29 | 42 00 61 2f c6 07 99 22 |EMS:".9)|B.a/..."|
|00001350| 4f 52 49 47 49 4e 41 4c | 20 43 4f 53 54 3a 20 22 |ORIGINAL| COST: "|
|00001360| 49 00 79 2f d0 07 99 22 | 50 52 45 53 45 4e 54 20 |I.y/..."|PRESENT |
|00001370| 56 41 4c 55 45 3a 20 22 | 4a 00 7f 2f da 07 8e 00 |VALUE: "|J../....|
|00001380| 85 2f e4 07 3a 00 a6 2f | ee 07 8b 20 c3 28 49 54 |./..:../|... .(IT|
|00001390| 24 28 41 2c 42 29 29 b1 | 34 36 20 a7 20 99 49 54 |$(A,B)).|46 . .IT|
|000013a0| 24 28 41 2c 42 29 00 c7 | 2f f8 07 8b 20 c3 28 49 |$(A,B)..|/... .(I|
|000013b0| 44 24 28 41 2c 42 29 29 | b1 31 35 20 a7 20 99 49 |D$(A,B))|.15 . .I|
|000013c0| 44 24 28 41 2c 42 29 00 | 24 30 02 08 99 20 fb 20 |D$(A,B).|$0... . |
|000013d0| 52 24 3b 42 3b 3a 99 22 | 20 22 3b 3a 99 20 fb 20 |R$;B;:."| ";:. . |
|000013e0| 55 24 3b 49 54 24 28 41 | 2c 42 29 3b 3a 99 20 fb |U$;IT$(A|,B);:. .|
|000013f0| 20 54 24 3b 49 44 24 28 | 41 2c 42 29 3b 3a 99 20 | T$;ID$(|A,B);:. |
|00001400| fb 20 52 24 3b 41 47 28 | 41 2c 42 29 3b 3a 99 20 |. R$;AG(|A,B);:. |
|00001410| fb 20 53 24 3b 4e 56 28 | 41 2c 42 29 2c 50 56 28 |. S$;NV(|A,B),PV(|
|00001420| 41 2c 42 29 00 2a 30 0c | 08 8e 00 46 30 16 08 99 |A,B).*0.|...F0...|
|00001430| 49 54 24 28 41 2c 42 29 | 3a 99 49 44 24 28 41 2c |IT$(A,B)|:.ID$(A,|
|00001440| 42 29 3a 99 3a 8e 00 00 | 00 2e                   |B):.:...|..      |
+--------+-------------------------+-------------------------+--------+--------+