17.DISK-INVENTOR
FILE INFORMATION
FILENAME(S): 17.DISK-INVENTOR
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 01:07:55
APPEARS ON: 2 disk(s)
FILE HASH
7aa402605cb0b39aead6c8a30cc1e1afaeca11b6ffa79c560432a6574401c1ef
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| U TILITIE | 17.DISK-INVENTOR | PRG | Treasure Chest - Wolfgang Rauprich | 7 | 0 | DOWNLOAD FILE |
| FREEWARE DISK NR | 17.DISK-INVENTOR | PRG | Treasure Chest - Wolfgang Rauprich | 7 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 0A 00 8F 20 2A 2A 20 48 4F 55 53 45 |..&.... ** HOUSE| 00000010: 20 49 4E 56 45 4E 54 4F 52 59 20 2A 2A 2A 20 44 | INVENTORY *** D| 00000020: 49 53 4B 20 2A 2A 00 2C 08 14 00 8F 00 32 08 32 |ISK **.,.....2.2| 00000030: 00 8F 00 58 08 3C 00 8F 20 2A 2A 2A 2A 2A 2A 2A |...X.<.. *******| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 00 5E 08 46 00 3A 00 8F |********.^.F.:..| 00000060: 08 50 00 99 22 93 20 20 20 20 20 48 4F 55 53 45 |.P..". HOUSE| 00000070: 48 4F 4C 44 20 49 4E 56 45 4E 54 4F 52 59 20 50 |HOLD INVENTORY P| 00000080: 52 4F 47 52 41 4D 22 3A 20 8D 20 31 32 39 30 00 |ROGRAM": . 1290.| 00000090: BD 08 5A 00 99 22 44 45 53 49 52 45 44 20 50 52 |..Z.."DESIRED PR| 000000A0: 4F 47 52 41 4D 20 4D 4F 44 45 3A 22 3A 20 99 3A |OGRAM MODE:": .:| 000000B0: 20 99 22 20 30 20 3D 20 44 4F 4E 45 22 00 D3 08 | ." 0 = DONE"...| 000000C0: 64 00 99 22 20 31 20 3D 20 52 45 41 44 20 44 41 |d.." 1 = READ DA| 000000D0: 54 41 22 00 0B 09 6E 00 99 22 20 32 20 3D 20 57 |TA"...n.." 2 = W| 000000E0: 52 49 54 45 20 4E 45 57 20 44 41 54 41 20 46 49 |RITE NEW DATA FI| 000000F0: 4C 45 22 3A 20 99 22 20 33 20 3D 20 43 4F 50 59 |LE": ." 3 = COPY| 00000100: 20 44 41 54 41 20 46 49 4C 45 22 00 42 09 78 00 | DATA FILE".B.x.| 00000110: 99 22 20 34 20 3D 20 45 44 49 54 20 44 41 54 41 |." 4 = EDIT DATA| 00000120: 20 46 49 4C 45 22 3A 20 99 22 20 35 20 3D 20 48 | FILE": ." 5 = H| 00000130: 45 4C 50 20 28 49 4E 46 4F 52 4D 41 54 49 4F 4E |ELP (INFORMATION| 00000140: 29 22 00 5C 09 82 00 8D 20 31 32 39 30 3A 20 99 |)".\.... 1290: .| 00000150: 3A 20 99 22 4D 4F 44 45 20 3F 22 3B 00 7C 09 8C |: ."MODE ?";.|..| 00000160: 00 8D 20 31 33 36 30 3A 20 8B 20 52 24 B2 22 30 |.. 1360: . R$."0| 00000170: 22 20 A7 20 99 22 93 3A 20 45 4E 44 00 9B 09 96 |" . .".: END....| 00000180: 00 52 B2 C5 28 52 24 29 3A 20 8B 20 52 B3 31 20 |.R..(R$): . R.1 | 00000190: B0 20 52 B1 35 20 A7 20 31 34 30 00 B1 09 A0 00 |. R.5 . 140.....| 000001A0: 8B 20 5A B3 35 20 A7 20 9F 20 31 35 2C 38 2C 31 |. Z.5 . . 15,8,1| 000001B0: 35 00 D5 09 AA 00 5A B2 52 3A 20 91 20 52 20 89 |5.....Z.R: . R .| 000001C0: 20 33 31 30 2C 31 38 30 2C 33 31 30 2C 33 31 30 | 310,180,310,310| 000001D0: 2C 31 34 30 30 00 E0 09 B4 00 8D 20 31 32 35 30 |,1400...... 1250| 000001E0: 00 1C 0A BE 00 85 22 91 20 4F 55 54 50 55 54 20 |......". OUTPUT | 000001F0: 54 4F 20 44 49 53 4B 20 44 52 49 56 45 23 20 28 |TO DISK DRIVE# (| 00000200: 30 20 4F 52 20 31 29 20 20 30 9D 9D 9D 22 3B 54 |0 OR 1) 0...";T| 00000210: 24 3A 54 24 B2 C8 28 54 24 2C 31 29 00 42 0A D2 |$:T$..(T$,1).B..| 00000220: 00 54 B2 C5 28 54 24 29 3A 20 8B 20 54 24 B3 B1 |.T..(T$): . T$..| 00000230: 22 30 22 20 AF 20 54 24 B3 B1 22 31 22 20 A7 20 |"0" . T$.."1" . | 00000240: 38 30 00 5D 0A DC 00 99 3A 20 99 22 4F 55 54 50 |80.]....: ."OUTP| 00000250: 55 54 20 22 3B 3A 20 8D 20 31 33 34 30 00 71 0A |UT ";: . 1340.q.| 00000260: E6 00 8B 20 46 24 B3 B1 22 2D 22 20 A7 20 32 36 |... F$.."-" . 26| 00000270: 30 00 89 0A F0 00 46 24 B2 22 49 4E 56 45 4E 54 |0.....F$."INVENT| 00000280: 4F 52 59 20 44 41 54 41 22 00 AC 0A FA 00 99 3A |ORY DATA"......:| 00000290: 99 22 44 45 46 41 55 4C 54 20 46 49 4C 45 20 3D |."DEFAULT FILE =| 000002A0: 20 22 3B 54 24 3B 32 3A 22 3B 46 24 00 D1 0A 04 | ";T$;2:";F$....| 000002B0: 01 9F 20 32 2C 38 2C 35 2C 54 24 AA 22 3A 22 AA |.. 2,8,5,T$.":".| 000002C0: 46 24 AA 22 2C 53 2C 57 22 3A 20 8D 20 31 36 30 |F$.",S,W": . 160| 000002D0: 30 00 E1 0A 0E 01 8B 20 5A B2 33 20 A7 20 35 36 |0...... Z.3 . 56| 000002E0: 30 00 F1 0A 18 01 8B 20 5A B2 34 20 A7 20 36 31 |0...... Z.4 . 61| 000002F0: 30 00 10 0B 22 01 8D 20 39 30 30 3A 20 8B 20 43 |0...".. 900: . C| 00000300: 20 A7 20 8D 20 31 31 33 30 3A 20 89 20 32 39 30 | . . 1130: . 290| 00000310: 00 1A 0B 2C 01 89 20 35 35 30 00 25 0B 36 01 8D |...,.. 550.%.6..| 00000320: 20 31 32 35 30 00 57 0B 40 01 85 22 91 20 49 4E | 1250.W.@..". IN| 00000330: 50 55 54 20 46 52 4F 4D 20 44 49 53 4B 20 44 52 |PUT FROM DISK DR| 00000340: 49 56 45 23 20 28 30 20 4F 52 20 31 29 20 20 30 |IVE# (0 OR 1) 0| 00000350: 9D 9D 9D 22 3B 54 24 00 6F 0B 4A 01 54 B2 C5 28 |...";T$.o.J.T..(| 00000360: 54 24 29 3A 20 54 24 B2 C8 28 54 24 2C 31 29 00 |T$): T$..(T$,1).| 00000370: 8C 0B 54 01 8B 20 54 24 B3 B1 22 30 22 20 AF 20 |..T.. T$.."0" . | 00000380: 54 24 B3 B1 22 31 22 20 A7 20 38 30 00 A6 0B 5E |T$.."1" . 80...^| 00000390: 01 99 3A 20 99 22 49 4E 50 55 54 20 22 3B 3A 20 |..: ."INPUT ";: | 000003A0: 8D 20 31 33 34 30 00 E8 0B 68 01 8B 20 46 24 B2 |. 1340...h.. F$.| 000003B0: 22 2D 22 20 A7 20 46 24 B2 22 49 4E 56 45 4E 54 |"-" . F$."INVENT| 000003C0: 4F 52 59 20 44 41 54 41 22 3A 20 99 22 91 20 44 |ORY DATA": .". D| 000003D0: 45 46 41 55 4C 54 20 46 49 4C 45 20 3D 22 3B 54 |EFAULT FILE =";T| 000003E0: 24 3B 22 3A 22 3B 46 24 00 0D 0C 72 01 9F 20 31 |$;":";F$...r.. 1| 000003F0: 2C 38 2C 36 2C 54 24 AA 22 3A 22 AA 46 24 AA 22 |,8,6,T$.":".F$."| 00000400: 2C 53 2C 52 22 3A 20 8D 20 31 36 30 30 00 17 0C |,S,R": . 1600...| 00000410: 7C 01 58 24 B2 22 22 00 27 0C 86 01 8B 20 5A B1 ||.X$."".'.... Z.| 00000420: 32 20 A7 20 31 39 30 00 3F 0C 90 01 8D 20 31 31 |2 . 190.?.... 11| 00000430: 36 30 3A 20 8B 20 43 B1 31 20 A7 20 34 39 30 00 |60: . C.1 . 490.| 00000440: 55 0C 9A 01 8D 20 31 30 39 30 3A 20 8B 20 43 20 |U.... 1090: . C | 00000450: A7 20 35 31 30 00 6D 0C A4 01 8D 20 31 31 36 30 |. 510.m.... 1160| 00000460: 3A 20 8B 20 43 B1 31 20 A7 20 35 31 30 00 83 0C |: . C.1 . 510...| 00000470: AE 01 8D 20 31 31 30 30 3A 20 8B 20 43 20 A7 20 |... 1100: . C . | 00000480: 35 31 30 00 9B 0C B8 01 8D 20 31 31 36 30 3A 20 |510...... 1160: | 00000490: 8B 20 43 B1 31 20 A7 20 35 31 30 00 B1 0C C2 01 |. C.1 . 510.....| 000004A0: 8D 20 31 31 39 39 3A 20 8B 20 43 20 A7 20 35 31 |. 1199: . C . 51| 000004B0: 30 00 BC 0C CC 01 8D 20 31 33 30 30 00 D8 0C D6 |0...... 1300....| 000004C0: 01 8D 20 31 33 38 30 3A 20 8B 20 52 24 B3 B1 22 |.. 1380: . R$.."| 000004D0: 44 22 20 A7 20 34 30 30 00 E2 0C E0 01 89 20 35 |D" . 400...... 5| 000004E0: 35 30 00 17 0D EA 01 99 22 93 12 20 45 4E 44 20 |50......".. END | 000004F0: 4F 46 20 4D 4F 44 45 20 23 31 92 20 20 44 4F 4E |OF MODE #1. DON| 00000500: 45 20 52 45 41 44 49 4E 47 20 44 41 54 41 20 46 |E READING DATA F| 00000510: 49 4C 45 22 3A 20 99 00 22 0D FE 01 8D 20 31 33 |ILE": ..".... 13| 00000520: 30 30 00 43 0D 08 02 8B 20 43 B2 31 20 A7 20 99 |00.C.... C.1 . .| 00000530: 22 45 4E 44 20 4F 46 20 44 41 54 41 20 46 49 4C |"END OF DATA FIL| 00000540: 45 21 22 00 6E 0D 12 02 8B 20 43 B1 31 20 A7 20 |E!".n.... C.1 . | 00000550: 99 22 44 49 53 4B 20 45 52 52 4F 52 20 28 53 54 |."DISK ERROR (ST| 00000560: 41 54 55 53 20 3D 22 3B 53 54 3B 22 29 22 00 79 |ATUS =";ST;")".y| 00000570: 0D 1C 02 8D 20 31 33 35 30 00 92 0D 26 02 A0 20 |.... 1350...&.. | 00000580: 31 3A 20 A0 20 32 3A 20 A0 20 31 35 3A 20 89 20 |1: . 2: . 15: . | 00000590: 38 30 00 D3 0D 30 02 49 39 24 B2 22 22 3A 20 8D |80...0.I9$."": .| 000005A0: 20 31 32 35 30 3A 20 99 22 12 50 4C 45 41 53 45 | 1250: .".PLEASE| 000005B0: 20 57 41 49 54 92 20 20 2A 2A 2A 2A 2A 2A 20 43 | WAIT. ****** C| 000005C0: 4F 50 59 49 4E 47 20 44 41 54 41 20 46 49 4C 45 |OPYING DATA FILE| 000005D0: 21 91 22 00 EA 0D 3A 02 8D 20 31 31 36 30 3A 8B |!."...:.. 1160:.| 000005E0: 20 43 B1 31 20 A7 20 38 32 30 00 17 0E 44 02 8B | C.1 . 820...D..| 000005F0: 20 5A B2 34 20 AF 20 C8 28 49 24 2C C3 28 49 39 | Z.4 . .(I$,.(I9| 00000600: 24 29 29 B2 49 39 24 20 A7 20 8D 20 31 32 35 30 |$)).I9$ . . 1250| 00000610: 3A 20 89 20 36 32 30 00 2F 0E 4E 02 8D 20 31 31 |: . 620./.N.. 11| 00000620: 33 30 3A 20 8B 20 43 B2 31 20 A7 20 38 32 30 00 |30: . C.1 . 820.| 00000630: 49 0E 58 02 8B 20 5A B2 33 20 B0 20 49 39 24 B3 |I.X.. Z.3 . I9$.| 00000640: B1 22 22 20 A7 20 35 37 30 00 61 0E 62 02 8D 20 |."" . 570.a.b.. | 00000650: 31 31 36 30 3A 20 8B 20 43 B1 31 20 A7 20 38 32 |1160: . C.1 . 82| 00000660: 30 00 93 0E 6C 02 8D 20 31 32 35 30 3A 20 8D 20 |0...l.. 1250: . | 00000670: 31 31 30 30 3A 20 8D 20 31 32 39 30 3A 20 99 22 |1100: . 1290: ."| 00000680: 44 45 53 49 52 45 44 20 41 43 54 49 4F 4E 3A 22 |DESIRED ACTION:"| 00000690: 3A 20 99 00 B9 0E 76 02 99 22 20 31 20 3D 20 43 |: ....v.." 1 = C| 000006A0: 4F 50 59 20 54 48 49 53 20 49 54 45 4D 2C 20 4E |OPY THIS ITEM, N| 000006B0: 4F 20 43 48 41 4E 47 45 22 00 D6 0E 80 02 99 22 |O CHANGE"......"| 000006C0: 20 32 20 3D 20 44 45 4C 45 54 45 20 54 48 49 53 | 2 = DELETE THIS| 000006D0: 20 49 54 45 4D 22 00 FF 0E 8A 02 99 22 20 33 20 | ITEM"......" 3 | 000006E0: 3D 20 49 4E 53 45 52 54 20 49 54 45 4D 53 20 42 |= INSERT ITEMS B| 000006F0: 45 46 4F 52 45 20 54 48 49 53 20 4F 4E 45 22 00 |EFORE THIS ONE".| 00000700: 2C 0F 94 02 99 22 20 34 20 3D 20 53 45 41 52 43 |,...." 4 = SEARC| 00000710: 48 20 26 20 43 4F 50 59 20 54 49 4C 4C 20 49 54 |H & COPY TILL IT| 00000720: 45 4D 20 46 4F 55 4E 44 22 3A 20 99 00 35 0F B2 |EM FOUND": ..5..| 00000730: 02 99 20 52 24 00 60 0F BC 02 99 22 4F 4B 22 3A |.. R$.`...."OK":| 00000740: 20 49 39 24 B2 22 22 3A 20 91 20 52 20 89 20 35 | I9$."": . R . 5| 00000750: 39 30 2C 20 37 31 30 2C 20 37 33 30 2C 37 36 30 |90, 710, 730,760| 00000760: 00 70 0F C6 02 8B 20 43 B2 31 20 A7 20 38 32 30 |.p.... C.1 . 820| 00000770: 00 7A 0F D0 02 89 20 36 31 30 00 B3 0F DA 02 49 |.z.... 610.....I| 00000780: 39 24 B2 49 24 3A 20 57 39 24 B2 57 24 3A 20 4D |9$.I$: W9$.W$: M| 00000790: 39 24 B2 4D 24 3A 20 53 39 24 B2 53 24 3A 20 44 |9$.M$: S9$.S$: D| 000007A0: 39 24 B2 44 24 3A 20 56 39 24 B2 56 24 3A 20 43 |9$.D$: V9$.V$: C| 000007B0: 39 B2 43 00 D2 0F E4 02 8D 20 39 30 30 3A 20 8B |9.C...... 900: .| 000007C0: 20 43 20 A7 20 8D 20 31 31 33 30 3A 20 89 20 37 | C . . 1130: . 7| 000007D0: 34 30 00 11 10 EE 02 49 24 B2 49 39 24 3A 20 57 |40.....I$.I9$: W| 000007E0: 24 B2 57 39 24 3A 20 4D 24 B2 4D 39 24 3A 20 53 |$.W9$: M$.M9$: S| 000007F0: 24 B2 53 39 24 3A 20 44 24 B2 44 39 24 3A 20 56 |$.S9$: D$.D9$: V| 00000800: 24 B2 56 39 24 3A 43 B2 43 39 3A 20 89 20 36 32 |$.V9$:C.C9: . 62| 00000810: 30 00 41 10 F8 02 8D 20 31 32 35 30 3A 20 99 22 |0.A.... 1250: ."| 00000820: 41 4C 4C 20 45 4E 54 52 49 45 53 20 57 49 4C 4C |ALL ENTRIES WILL| 00000830: 20 42 45 20 43 4F 50 49 45 44 20 55 4E 54 49 4C | BE COPIED UNTIL| 00000840: 22 00 62 10 02 03 99 3A 20 99 22 44 45 53 49 52 |".b....: ."DESIR| 00000850: 45 44 20 49 54 45 4D 20 49 53 20 46 4F 55 4E 44 |ED ITEM IS FOUND| 00000860: 3B 22 00 89 10 0C 03 99 3A 20 99 3A 20 99 22 45 |;"......: .: ."E| 00000870: 4E 54 45 52 20 49 54 45 4D 20 54 4F 20 53 45 41 |NTER ITEM TO SEA| 00000880: 52 43 48 20 46 4F 52 3A 22 00 9B 10 16 03 85 22 |RCH FOR:"......"| 00000890: 20 20 2D 9D 9D 9D 22 3B 49 39 24 00 CF 10 20 03 | -...";I9$... .| 000008A0: 8B 20 49 39 24 B2 22 2D 22 20 A7 20 49 39 24 B2 |. I9$."-" . I9$.| 000008B0: 22 22 3A 20 99 22 91 91 91 53 45 41 52 43 48 20 |"": ."...SEARCH | 000008C0: 41 42 4F 52 54 45 44 22 3A 20 89 20 36 32 30 00 |ABORTED": . 620.| 000008D0: F0 10 2A 03 99 3A 20 99 3A 20 99 3A 20 99 22 53 |..*..: .: .: ."S| 000008E0: 45 41 52 43 48 49 4E 47 22 3A 20 89 20 35 38 30 |EARCHING": . 580| 000008F0: 00 00 11 34 03 8B 20 5A B2 33 20 A7 20 35 32 30 |...4.. Z.3 . 520| 00000900: 00 18 11 3E 03 8D 20 31 32 35 30 3A 20 8B 20 43 |...>.. 1250: . C| 00000910: B1 31 20 A7 20 35 33 30 00 32 11 48 03 99 22 45 |.1 . 530.2.H.."E| 00000920: 4E 44 20 4F 46 20 49 4E 50 55 54 20 46 49 4C 45 |ND OF INPUT FILE| 00000930: 21 22 00 62 11 52 03 99 3A 20 99 22 44 4F 20 59 |!".b.R..: ."DO Y| 00000940: 4F 55 20 57 41 4E 54 20 54 4F 20 41 44 44 20 41 |OU WANT TO ADD A| 00000950: 4E 59 20 45 4E 54 52 49 45 53 20 54 4F 20 54 48 |NY ENTRIES TO TH| 00000960: 45 22 00 82 11 5C 03 99 3A 20 99 22 45 4E 44 20 |E"...\..: ."END | 00000970: 4F 46 20 54 48 45 20 44 41 54 41 20 46 49 4C 45 |OF THE DATA FILE| 00000980: 22 3B 00 9D 11 66 03 8D 20 31 33 31 30 3A 20 8B |";...f.. 1310: .| 00000990: 20 52 24 B2 22 4E 22 20 A7 20 35 35 30 00 BC 11 | R$."N" . 550...| 000009A0: 70 03 8D 20 39 30 30 3A 20 8B 20 43 20 A7 20 8D |p.. 900: . C . .| 000009B0: 20 31 31 33 30 3A 20 89 20 38 38 30 00 C6 11 7A | 1130: . 880...z| 000009C0: 03 89 20 35 35 30 00 07 12 84 03 43 B2 30 3A 20 |.. 550.....C.0: | 000009D0: 99 22 93 45 4E 54 45 52 20 49 54 45 4D 20 49 4E |.".ENTER ITEM IN| 000009E0: 46 4F 52 4D 41 54 49 4F 4E 3A 91 22 3A 20 99 22 |FORMATION:.": ."| 000009F0: 44 20 3D 20 44 4F 4E 45 20 45 4E 54 45 52 49 4E |D = DONE ENTERIN| 00000A00: 47 20 44 41 54 41 22 00 2D 12 8E 03 99 22 45 20 |G DATA".-...."E | 00000A10: 3D 20 45 52 52 4F 52 2C 20 52 45 53 54 41 52 54 |= ERROR, RESTART| 00000A20: 20 45 4E 54 49 52 45 20 49 54 45 4D 22 00 5D 12 | ENTIRE ITEM".].| 00000A30: 98 03 99 3A 20 99 22 44 4F 20 4E 4F 54 20 55 53 |...: ."DO NOT US| 00000A40: 45 20 27 2C 27 20 4F 52 20 27 3A 27 20 57 49 54 |E ',' OR ':' WIT| 00000A50: 48 49 4E 20 54 48 45 20 44 41 54 41 22 00 86 12 |HIN THE DATA"...| 00000A60: A2 03 99 3A 20 99 22 50 52 45 53 53 12 52 45 54 |...: ."PRESS.RET| 00000A70: 55 52 4E 92 20 41 46 54 45 52 20 45 41 43 48 20 |URN. AFTER EACH | 00000A80: 45 4E 54 52 59 22 00 B5 12 AC 03 8D 20 31 32 39 |ENTRY"...... 129| 00000A90: 30 3A 20 85 22 12 49 54 45 4D 92 20 20 20 3F 9D |0: .".ITEM. ?.| 00000AA0: 9D 9D 22 3B 49 24 3A 8B 20 49 24 B2 22 45 22 20 |..";I$:. I$."E" | 00000AB0: A7 20 39 30 30 00 C6 12 B6 03 8B 20 49 24 B2 22 |. 900...... I$."| 00000AC0: 44 22 20 A7 20 8E 00 EE 12 C0 03 85 22 12 4D 41 |D" . .......".MA| 00000AD0: 4B 45 92 20 20 20 3F 9D 9D 9D 22 3B 57 24 3A 20 |KE. ?...";W$: | 00000AE0: 8B 20 57 24 B2 22 45 22 20 A7 20 39 30 30 00 FF |. W$."E" . 900..| 00000AF0: 12 CA 03 8B 20 57 24 B2 22 44 22 20 A7 20 8E 00 |.... W$."D" . ..| 00000B00: 28 13 D4 03 85 22 12 4D 4F 44 45 4C 92 20 20 20 |(....".MODEL. | 00000B10: 3F 9D 9D 9D 22 3B 4D 24 3A 20 8B 20 4D 24 B2 22 |?...";M$: . M$."| 00000B20: 45 22 20 A7 20 39 30 30 00 39 13 DE 03 8B 20 4D |E" . 900.9.... M| 00000B30: 24 B2 22 44 22 20 A7 20 8E 00 67 13 E8 03 85 22 |$."D" . ..g...."| 00000B40: 12 53 45 52 49 41 4C 23 2F 49 44 92 20 20 20 3F |.SERIAL#/ID. ?| 00000B50: 9D 9D 9D 22 3B 53 24 3A 20 8B 20 53 24 B2 22 45 |...";S$: . S$."E| 00000B60: 22 20 A7 20 39 30 30 00 78 13 F2 03 8B 20 53 24 |" . 900.x.... S$| 00000B70: B2 22 44 22 20 A7 20 8E 00 BA 13 FC 03 85 22 12 |."D" . .......".| 00000B80: 44 41 54 45 20 41 43 51 27 44 92 20 20 20 3F 9D |DATE ACQ'D. ?.| 00000B90: 9D 9D 20 28 4D 4F 4E 54 48 2F 44 41 59 2F 59 45 |.. (MONTH/DAY/YE| 00000BA0: 41 52 29 3F 9D 9D 22 3B 44 24 3A 20 8B 20 44 24 |AR)?..";D$: . D$| 00000BB0: B2 22 45 22 20 A7 20 39 30 30 00 D7 13 06 04 44 |."E" . 900.....D| 00000BC0: 24 B2 C8 28 44 24 2C 38 29 3A 20 8B 20 44 24 B2 |$..(D$,8): . D$.| 00000BD0: 22 44 22 20 A7 20 8E 00 01 14 10 04 85 22 12 24 |"D" . .......".$| 00000BE0: 56 41 4C 55 45 92 20 20 20 3F 9D 9D 9D 22 3B 56 |VALUE. ?...";V| 00000BF0: 24 3A 20 8B 20 56 24 B2 22 45 22 20 A7 20 39 30 |$: . V$."E" . 90| 00000C00: 30 00 12 14 1A 04 8B 20 56 24 B2 22 44 22 20 A7 |0...... V$."D" .| 00000C10: 20 8E 00 25 14 24 04 8D 20 31 30 39 30 3A 20 8D | ..%.$.. 1090: .| 00000C20: 20 31 32 39 30 00 5B 14 2E 04 99 22 49 53 20 54 | 1290.[...."IS T| 00000C30: 48 49 53 20 45 4E 54 52 59 20 43 4F 52 52 45 43 |HIS ENTRY CORREC| 00000C40: 54 22 3B 3A 20 8D 20 31 33 31 30 3A 20 8B 20 52 |T";: . 1310: . R| 00000C50: 24 B2 22 4E 22 20 A7 20 39 30 30 00 66 14 38 04 |$."N" . 900.f.8.| 00000C60: 43 B2 31 3A 20 8E 00 70 14 42 04 99 22 93 22 3B |C.1: ..p.B..".";| 00000C70: 00 A5 14 4C 04 99 22 12 49 54 45 4D 3A 92 20 22 |...L..".ITEM:. "| 00000C80: 3B 49 24 3A 20 99 22 12 4D 41 4B 45 3A 92 20 22 |;I$: .".MAKE:. "| 00000C90: 3B 57 24 20 3A 20 99 22 12 4D 4F 44 45 4C 3A 92 |;W$ : .".MODEL:.| 00000CA0: 20 22 2C 4D 24 00 BE 14 56 04 99 22 12 53 45 52 | ",M$...V..".SER| 00000CB0: 49 41 4C 23 2F 49 44 3A 92 20 22 3B 53 24 00 F1 |IAL#/ID:. ";S$..| 00000CC0: 14 60 04 99 22 12 44 41 54 45 20 41 43 51 27 44 |.`..".DATE ACQ'D| 00000CD0: 3A 92 20 22 44 24 3B A3 32 32 29 3B 22 12 56 41 |:. "D$;.22);".VA| 00000CE0: 4C 55 45 3A 92 20 24 22 3B 56 24 3A 20 99 3A 20 |LUE:. $";V$: .: | 00000CF0: 8E 00 21 15 6A 04 58 24 B2 49 24 3A 20 8D 20 31 |..!.j.X$.I$: . 1| 00000D00: 31 35 30 3A 20 58 24 B2 57 24 3A 20 8D 20 31 31 |150: X$.W$: . 11| 00000D10: 35 30 3A 20 58 24 B2 4D 24 3A 20 8D 20 31 31 35 |50: X$.M$: . 115| 00000D20: 30 00 49 15 74 04 58 24 B2 53 24 3A 20 8D 20 31 |0.I.t.X$.S$: . 1| 00000D30: 31 35 30 3A 20 58 24 B2 44 24 3A 20 8D 20 31 31 |150: X$.D$: . 11| 00000D40: 35 30 3A 20 58 24 B2 56 24 00 62 15 7E 04 98 32 |50: X$.V$.b.~..2| 00000D50: 2C 58 24 3B C7 28 31 33 29 3B 3A 20 89 20 31 36 |,X$;.(13);: . 16| 00000D60: 30 30 00 7D 15 88 04 8D 20 31 32 33 30 3A 20 49 |00.}.... 1230: I| 00000D70: 24 B2 58 24 3A 20 8B 20 43 20 A7 20 8E 00 98 15 |$.X$: . C . ....| 00000D80: 92 04 8D 20 31 32 33 30 3A 20 57 24 B2 58 24 3A |... 1230: W$.X$:| 00000D90: 20 8B 20 43 20 A7 20 8E 00 B3 15 9C 04 8D 20 31 | . C . ....... 1| 00000DA0: 32 33 30 3A 20 4D 24 B2 58 24 3A 20 8B 20 43 20 |230: M$.X$: . C | 00000DB0: A7 20 8E 00 CE 15 A6 04 8D 20 31 32 33 30 3A 20 |. ....... 1230: | 00000DC0: 53 24 B2 58 24 3A 20 8B 20 43 20 A7 20 8E 00 E9 |S$.X$: . C . ...| 00000DD0: 15 B0 04 8D 20 31 32 33 30 3A 20 44 24 B2 58 24 |.... 1230: D$.X$| 00000DE0: 3A 20 8B 20 43 20 A7 20 8E 00 08 16 BA 04 8D 20 |: . C . ....... | 00000DF0: 31 32 33 30 3A 20 56 24 B2 58 24 3A 20 8B 20 43 |1230: V$.X$: . C| 00000E00: B2 32 20 A7 20 43 B2 31 00 0E 16 C4 04 8E 00 38 |.2 . C.1.......8| 00000E10: 16 CE 04 43 B2 30 3A 20 84 31 2C 58 24 3A 20 8B |...C.0: .1,X$: .| 00000E20: 20 53 54 20 A7 20 43 B2 33 3A 20 8B 20 53 54 B2 | ST . C.3: . ST.| 00000E30: 36 34 20 A7 20 43 B2 32 00 43 16 D8 04 89 20 31 |64 . C.2.C.... 1| 00000E40: 36 30 30 00 6C 16 E2 04 8B 20 5A B2 31 20 A7 20 |600.l.... Z.1 . | 00000E50: 99 22 93 12 4D 4F 44 45 23 31 92 20 20 52 45 41 |."..MODE#1. REA| 00000E60: 44 20 44 41 54 41 20 46 49 4C 45 22 00 9A 16 EC |D DATA FILE"....| 00000E70: 04 8B 20 5A B2 32 20 A7 20 99 22 93 12 4D 4F 44 |.. Z.2 . ."..MOD| 00000E80: 45 23 32 92 20 20 57 52 49 54 45 20 4E 45 57 20 |E#2. WRITE NEW | 00000E90: 44 41 54 41 20 46 49 4C 45 22 00 C3 16 F6 04 8B |DATA FILE"......| 00000EA0: 20 5A B2 33 20 A7 20 99 22 93 12 4D 4F 44 45 23 | Z.3 . ."..MODE#| 00000EB0: 33 92 20 20 43 4F 50 59 20 44 41 54 41 20 46 49 |3. COPY DATA FI| 00000EC0: 4C 45 22 00 EC 16 00 05 8B 20 5A B2 34 20 A7 20 |LE"...... Z.4 . | 00000ED0: 99 22 93 12 4D 4F 44 45 23 34 92 20 20 45 44 49 |."..MODE#4. EDI| 00000EE0: 54 20 44 41 54 41 20 46 49 4C 45 22 00 F2 16 0A |T DATA FILE"....| 00000EF0: 05 99 00 16 17 14 05 99 22 2D 2D 2D 2D 2D 2D 2D |........"-------| 00000F00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"| 00000F10: 3A 20 99 3A 20 8E 00 28 17 1E 05 99 22 20 28 59 |: .: ..(...." (Y| 00000F20: 2F 4E 29 20 3F 20 22 3B 00 4F 17 28 05 8D 20 31 |/N) ? ";.O.(.. 1| 00000F30: 33 36 30 3A 20 8B 20 52 24 B3 B1 22 59 22 20 AF |360: . R$.."Y" .| 00000F40: 20 52 24 B3 B1 22 4E 22 20 A7 20 31 33 32 30 00 | R$.."N" . 1320.| 00000F50: 5B 17 32 05 99 20 52 24 3A 20 8E 00 79 17 3C 05 |[.2.. R$: ..y.<.| 00000F60: 85 22 46 49 4C 45 4E 41 4D 45 20 20 20 20 2D 9D |."FILENAME -.| 00000F70: 9D 9D 22 3B 46 24 3A 20 8E 00 AF 17 46 05 99 3A |..";F$: ....F..:| 00000F80: 20 99 22 48 49 54 20 41 4E 59 20 4B 45 59 20 57 | ."HIT ANY KEY W| 00000F90: 48 45 4E 20 52 45 41 44 59 20 54 4F 20 43 4F 4E |HEN READY TO CON| 00000FA0: 54 49 4E 55 45 22 3B 3A 20 89 20 31 33 39 30 00 |TINUE";: . 1390.| 00000FB0: C8 17 50 05 A1 20 52 24 3A 20 8B 20 52 24 B2 22 |..P.. R$: . R$."| 00000FC0: 22 20 A7 20 31 33 36 30 00 CE 17 5A 05 8E 00 F9 |" . 1360...Z....| 00000FD0: 17 64 05 99 3A 20 99 22 48 49 54 20 41 4E 59 20 |.d..: ."HIT ANY | 00000FE0: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2C |KEY TO CONTINUE,| 00000FF0: 20 44 3D 44 4F 4E 45 22 3B 00 11 18 6E 05 8D 20 | D=DONE";...n.. | 00001000: 31 33 36 30 3A 20 99 3A 20 99 22 4F 4B 22 3A 20 |1360: .: ."OK": | 00001010: 8E 00 3D 18 78 05 99 22 93 54 48 49 53 20 50 52 |..=.x..".THIS PR| 00001020: 4F 47 52 41 4D 20 57 41 53 20 44 45 53 49 47 4E |OGRAM WAS DESIGN| 00001030: 45 44 20 54 4F 20 57 52 49 54 45 2C 22 00 68 18 |ED TO WRITE,".h.| 00001040: 82 05 99 22 52 45 41 44 2C 20 43 4F 50 59 2C 20 |..."READ, COPY, | 00001050: 4F 52 20 45 44 49 54 20 44 49 53 4B 20 44 41 54 |OR EDIT DISK DAT| 00001060: 41 20 46 49 4C 45 53 22 00 8E 18 8C 05 99 22 43 |A FILES"......"C| 00001070: 4F 4E 54 41 49 4E 49 4E 47 20 49 4E 46 4F 52 4D |ONTAINING INFORM| 00001080: 41 54 49 4F 4E 20 4F 4E 20 59 4F 55 52 22 00 BE |ATION ON YOUR"..| 00001090: 18 96 05 99 22 48 4F 55 53 45 48 4F 4C 44 20 50 |...."HOUSEHOLD P| 000010A0: 4F 53 53 45 53 53 49 4F 4E 53 2E 20 20 54 48 49 |OSSESSIONS. THI| 000010B0: 53 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 22 00 ED |S INFORMATION"..| 000010C0: 18 A0 05 99 22 49 4E 43 4C 55 44 45 53 20 41 4E |...."INCLUDES AN| 000010D0: 20 49 54 45 4D 20 44 45 53 43 52 49 50 54 49 4F | ITEM DESCRIPTIO| 000010E0: 4E 20 41 4C 4F 4E 47 20 57 49 54 48 22 00 17 19 |N ALONG WITH"...| 000010F0: AA 05 99 22 54 48 45 20 4D 41 4B 45 2C 20 4D 4F |..."THE MAKE, MO| 00001100: 44 45 4C 2C 20 53 45 52 49 41 4C 20 4E 55 4D 42 |DEL, SERIAL NUMB| 00001110: 45 52 20 28 4F 52 22 00 46 19 B4 05 99 22 4F 54 |ER (OR".F...."OT| 00001120: 48 45 52 20 49 44 45 4E 54 49 46 59 49 4E 47 20 |HER IDENTIFYING | 00001130: 4D 41 52 4B 53 29 2C 20 44 41 54 45 20 41 43 51 |MARKS), DATE ACQ| 00001140: 55 49 52 45 44 22 00 74 19 BE 05 99 22 41 4E 44 |UIRED".t...."AND| 00001150: 20 54 48 45 20 56 41 4C 55 45 2E 20 20 54 48 49 | THE VALUE. THI| 00001160: 53 20 44 41 54 41 20 53 48 4F 55 4C 44 20 42 45 |S DATA SHOULD BE| 00001170: 20 4F 46 22 00 9D 19 C8 05 99 22 47 52 45 41 54 | OF"......"GREAT| 00001180: 20 56 41 4C 55 45 20 46 4F 52 20 49 4E 53 55 52 | VALUE FOR INSUR| 00001190: 41 4E 43 45 20 52 45 43 4F 52 44 53 22 00 CB 19 |ANCE RECORDS"...| 000011A0: D2 05 99 22 49 4E 20 43 41 53 45 20 4F 46 20 46 |..."IN CASE OF F| 000011B0: 49 52 45 20 4F 52 20 54 48 45 46 54 3B 20 41 4E |IRE OR THEFT; AN| 000011C0: 44 20 4D 41 59 20 45 56 45 4E 22 00 F2 19 DC 05 |D MAY EVEN".....| 000011D0: 99 22 42 45 20 4F 46 20 53 4F 4D 45 20 55 53 45 |."BE OF SOME USE| 000011E0: 20 46 4F 52 20 54 41 58 20 52 45 43 4F 52 44 53 | FOR TAX RECORDS| 000011F0: 2E 22 00 24 1A E6 05 99 3A 20 99 22 44 49 53 4B |.".$....: ."DISK| 00001200: 20 46 49 4C 45 20 48 41 4E 44 4C 49 4E 47 20 48 | FILE HANDLING H| 00001210: 41 53 20 42 45 45 4E 20 49 4E 43 4C 55 44 45 44 |AS BEEN INCLUDED| 00001220: 20 54 4F 22 00 4F 1A F0 05 99 22 41 4C 4C 4F 57 | TO".O...."ALLOW| 00001230: 20 55 53 49 4E 47 20 53 45 50 41 52 41 54 45 20 | USING SEPARATE | 00001240: 46 49 4C 45 53 20 46 4F 52 20 45 41 43 48 22 00 |FILES FOR EACH".| 00001250: 76 1A FA 05 99 22 52 4F 4F 4D 2C 20 53 50 45 43 |v...."ROOM, SPEC| 00001260: 49 41 4C 20 43 4F 4C 4C 45 43 54 49 4F 4E 53 2C |IAL COLLECTIONS,| 00001270: 20 45 54 43 2E 22 00 A1 1A 04 06 99 22 54 48 49 | ETC."......"THI| 00001280: 53 20 50 52 4F 56 49 44 45 53 20 45 41 53 59 20 |S PROVIDES EASY | 00001290: 44 41 54 41 20 4D 41 49 4E 54 45 4E 41 4E 43 45 |DATA MAINTENANCE| 000012A0: 22 00 CF 1A 0E 06 99 22 57 48 49 4C 45 20 41 4C |"......"WHILE AL| 000012B0: 4C 20 44 41 54 41 20 43 41 4E 20 45 41 53 49 4C |L DATA CAN EASIL| 000012C0: 59 20 42 45 20 53 54 4F 52 45 44 20 4F 4E 22 00 |Y BE STORED ON".| 000012D0: E9 1A 18 06 99 22 41 20 53 49 4E 47 4C 45 20 44 |....."A SINGLE D| 000012E0: 49 53 4B 45 54 54 45 2E 22 00 14 1B 22 06 99 3A |ISKETTE."..."..:| 000012F0: 20 99 22 57 48 59 20 4E 4F 54 20 4B 45 45 50 20 | ."WHY NOT KEEP | 00001300: 41 20 43 4F 50 59 20 49 4E 20 59 4F 55 52 20 42 |A COPY IN YOUR B| 00001310: 41 4E 4B 22 00 40 1B 2C 06 99 22 53 41 46 45 54 |ANK".@.,.."SAFET| 00001320: 59 20 44 45 50 4F 53 49 54 20 42 4F 58 20 46 4F |Y DEPOSIT BOX FO| 00001330: 52 20 53 41 46 45 20 4B 45 45 50 49 4E 47 3F 22 |R SAFE KEEPING?"| 00001340: 00 51 1B 36 06 8D 20 31 33 35 30 3A 20 89 20 38 |.Q.6.. 1350: . 8| 00001350: 30 00 72 1B 40 06 84 31 35 2C 45 4E 2C 45 4D 24 |0.r.@..15,EN,EM$| 00001360: 2C 45 54 2C 45 53 3A 20 8B 20 45 4E B2 30 20 A7 |,ET,ES: . EN.0 .| 00001370: 20 8E 00 8A 1B 4A 06 99 22 93 12 44 49 53 4B 20 | ....J.."..DISK | 00001380: 45 52 52 4F 52 92 22 3A 20 99 00 9D 1B 54 06 99 |ERROR.": ....T..| 00001390: 20 45 4E 2C 45 4D 24 3B 45 54 3B 45 53 00 AF 1B | EN,EM$;ET;ES...| 000013A0: 5E 06 8D 20 31 32 39 30 3A 20 89 20 35 34 30 00 |^.. 1290: . 540.| 000013B0: 00 00 |.. |
..&.... ** HOUSE INVENTORY *** DISK **., .....2.2...X.<.. *********************** ********.^.F.:...P..". HOUSEHOLD INV ENTORY PROGRAM": . 1290...Z.."DESIRED PR OGRAM MODE:": .: ." 0 = DONE".S.D.." 1 = READ DATA"...N.." 2 = WRITE NEW DATA FI LE": ." 3 = COPY DATA FILE".B.X.." 4 = E DIT DATA FILE": ." 5 = HELP (INFORMATION )".\.... 1290: .: ."MODE ?";.|.... 1360: . R$."0" . .".: END.....R.E(R$): . R.1 . R.5 . 140... .. Z.5 . . 15,8,15.U...Z. R: . R . 310,180,310,310,1400...... 1250 ......". OUTPUT TO DISK DRIVE# (0 OR 1) 0...";T$:T$.H(T$,1).B.R.T.E(T$): . T$.. "0" . T$.."1" . 80.]....: ."OUTPUT ";: . 1340.Q.... F$.."-" . 260.....F$."INVENT ORY DATA"......:."DEFAULT FILE = ";T$;2: ";F$.Q.... 2,8,5,T$.":".F$.",S,W": . 160 0...... Z.3 . 560...... Z.4 . 610...".. 900: . C . . 1130: . 290...,.. 550.%.6.. 1250.W.@..". INPUT FROM DISK DRIVE# (0 OR 1) 0...";T$.O.J.T.E(T$): T$.H(T$,1). ..T.. T$.."0" . T$.."1" . 80...^..: ."IN PUT ";: . 1340...H.. F$."-" . F$."INVENT ORY DATA": .". DEFAULT FILE =";T$;":";F$ ...R.. 1,8,6,T$.":".F$.",S,R": . 1600... |.X$."".'.... Z.2 . 190.?.... 1160: . C. 1 . 490.U.... 1090: . C . 510.M.... 1160 : . C.1 . 510...... 1100: . C . 510..... . 1160: . C.1 . 510...B.. 1199: . C . 51 0...L.. 1300.X.V.. 1380: . R$.."D" . 400 ...... 550......".. END OF MODE #1. DON E READING DATA FILE": ..".... 1300.C.... C.1 . ."END OF DATA FILE!".N.... C.1 . ."DISK ERROR (STATUS =";ST;")".Y.... 135 0...&. 1: 2: 15: . 80.S.0.I9$."": . 1250: .".PLEASE WAIT. ****** COPYING D ATA FILE!."...:.. 1160:. C.1 . 820...D.. Z.4 . H(I$,C(I9$)).I9$ . . 1250: . 620. /.N.. 1130: . C.1 . 820.I.X.. Z.3 . I9$. ."" . 570.A.B.. 1160: . C.1 . 820...L.. 1250: . 1100: . 1290: ."DESIRED ACTION:" : ....V.." 1 = COPY THIS ITEM, NO CHANGE ".V...." 2 = DELETE THIS ITEM"......" 3 = INSERT ITEMS BEFORE THIS ONE".,...." 4 = SEARCH & COPY TILL ITEM FOUND": ..5.. .. R$.`...."OK": I9$."": . R . 590, 710, 730,760.P.F.. C.1 . 820.Z.P.. 610...Z.I 9$.I$: W9$.W$: M9$.M$: S9$.S$: D9$.D$: V 9$.V$: C9.C.R.... 900: . C . . 1130: . 7 40.....I$.I9$: W$.W9$: M$.M9$: S$.S9$: D $.D9$: V$.V9$:C.C9: . 620.A.... 1250: ." ALL ENTRIES WILL BE COPIED UNTIL".B....: ."DESIRED ITEM IS FOUND;"......: .: ."E NTER ITEM TO SEARCH FOR:"......" -..."; I9$.O. .. I9$."-" . I9$."": ."...SEARCH ABORTED": . 620...*..: .: .: ."SEARCHING ": . 580...4.. Z.3 . 520...>.. 1250: . C .1 . 530.2.H.."END OF INPUT FILE!".B.R.. : ."DO YOU WANT TO ADD ANY ENTRIES TO TH E"...\..: ."END OF THE DATA FILE";...F.. 1310: . R$."N" . 550...P.. 900: . C . . 1130: . 880.F.Z.. 550.....C.0: .".ENTER ITEM INFORMATION:.": ."D = DONE ENTERIN G DATA".-...."E = ERROR, RESTART ENTIRE ITEM".]....: ."DO NOT USE ',' OR ':' WIT HIN THE DATA"......: ."PRESS.RETURN. AFT ER EACH ENTRY"...... 1290: .".ITEM. ?. ..";I$:. I$."E" . 900.F.... I$."D" . ... ....".MAKE. ?...";W$: . W$."E" . 900.. .J.. W$."D" . ..(.T..".MODEL. ?...";M$ : . M$."E" . 900.9.... M$."D" . ..G...." .SERIAL#/ID. ?...";S$: . S$."E" . 900. X.... S$."D" . .......".DATE ACQ'D. ?. .. (MONTH/DAY/YEAR)?..";D$: . D$."E" . 9 00.W...D$.H(D$,8): . D$."D" . .......".$ VALUE. ?...";V$: . V$."E" . 900...... V$."D" . ..%.$.. 1090: . 1290.[...."IS T HIS ENTRY CORRECT";: . 1310: . R$."N" . 900.F.8.C.1: ..P.B..".";...L..".ITEM:. " ;I$: .".MAKE:. ";W$ : .".MODEL:. ",M$... V..".SERIAL#/ID:. ";S$...`..".DATE ACQ'D :. "D$;.22);".VALUE:. $";V$: .: ..!.J.X$ .I$: . 1150: X$.W$: . 1150: X$.M$: . 115 0.I.T.X$.S$: . 1150: X$.D$: . 1150: X$.V $.B.~..2,X$;G(13);: . 1600.}.... 1230: I $.X$: . C . ....... 1230: W$.X$: . C . . ...... 1230: M$.X$: . C . ..N.... 1230: S$.X$: . C . ....... 1230: D$.X$: . C . ....... 1230: V$.X$: . C.2 . C.1...D...8 .N.C.0: .1,X$: . ST . C.3: . ST.64 . C.2 .C.X.. 1600.L.... Z.1 . ."..MODE#1. REA D DATA FILE"...... Z.2 . ."..MODE#2. WR ITE NEW DATA FILE".C.... Z.3 . ."..MODE# 3. COPY DATA FILE"...... Z.4 . ."..MODE #4. EDIT DATA FILE"............"------- ---------------": .: ..(...." (Y/N) ? "; .O.(.. 1360: . R$.."Y" . R$.."N" . 1320. [.2.. R$: ..Y.<.."FILENAME -...";F$: ....F..: ."HIT ANY KEY WHEN READY TO CON TINUE";: . 1390.H.P.. R$: . R$."" . 1360 .N.Z.....D..: ."HIT ANY KEY TO CONTINUE, D=DONE";...N.. 1360: .: ."OK": ..=.X.." .THIS PROGRAM WAS DESIGNED TO WRITE,".H. ..."READ, COPY, OR EDIT DISK DATA FILES" ......"CONTAINING INFORMATION ON YOUR".. ...."HOUSEHOLD POSSESSIONS. THIS INFORM ATION"... .."INCLUDES AN ITEM DESCRIPTIO N ALONG WITH"......"THE MAKE, MODEL, SER IAL NUMBER (OR".F...."OTHER IDENTIFYING MARKS), DATE ACQUIRED".T...."AND THE VAL UE. THIS DATA SHOULD BE OF"...H.."GREAT VALUE FOR INSURANCE RECORDS".K.R.."IN C ASE OF FIRE OR THEFT; AND MAY EVEN"..... ."BE OF SOME USE FOR TAX RECORDS.".$.... : ."DISK FILE HANDLING HAS BEEN INCLUDED TO".O...."ALLOW USING SEPARATE FILES FO R EACH".V...."ROOM, SPECIAL COLLECTIONS, ETC."......"THIS PROVIDES EASY DATA MAI NTENANCE".O...."WHILE ALL DATA CAN EASIL Y BE STORED ON"......"A SINGLE DISKETTE. "..."..: ."WHY NOT KEEP A COPY IN YOUR B ANK".@.,.."SAFETY DEPOSIT BOX FOR SAFE K EEPING?".Q.6.. 1350: . 80.R.@..15,EN,EM$ ,ET,ES: . EN.0 . ....J.."..DISK ERROR.": ....T.. EN,EM$;ET;ES...^.. 1290: . 540. ..
> CLICK IMAGE PREVIEW FOR FULL MODAL