HOUSE INVENTORY
FILE INFORMATION
FILENAME(S): HOUSE INVENTORY
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-10-20 14:32:05
APPEARS ON: 2 disk(s)
FILE HASH
e9856089d16106d7ef38bb0d0a33117b8294c41b6f7d1ccaddda4f660a482de8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WOLF S SOFT C019 | HOUSE INVENTORY | PRG | Treasure Chest - Klaus Der Suhler | 28 | 0 | DOWNLOAD FILE |
| 11 | HOUSE INVENTORY | PRG | Treasure Chest - Plattfuss | 26 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 26 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..&.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 00 2C 08 6E 00 8F 00 48 08 78 |******.,.n...H.x|
00000030: 00 8F 20 20 20 20 20 20 20 48 4F 55 53 45 20 49 |.. HOUSE I|
00000040: 4E 56 45 4E 54 4F 52 59 00 67 08 82 00 8F 20 20 |NVENTORY.g.... |
00000050: 20 20 20 46 4F 52 20 54 48 45 20 43 4F 4D 4D 4F | FOR THE COMMO|
00000060: 44 4F 52 45 2D 36 34 00 6D 08 8C 00 8F 00 8C 08 |DORE-64.m.......|
00000070: 96 00 8F 20 20 20 20 20 20 42 59 3A 20 52 4F 42 |... BY: ROB|
00000080: 45 52 54 20 57 2E 20 42 41 4B 45 52 00 B0 08 A0 |ERT W. BAKER....|
00000090: 00 8F 20 31 35 20 57 49 4E 44 53 4F 52 20 44 52 |.. 15 WINDSOR DR|
000000A0: 2C 20 41 54 43 4F 2C 20 4E 4A 20 30 38 30 30 34 |, ATCO, NJ 08004|
000000B0: 00 B6 08 A2 00 8F 00 D3 08 A3 00 8F 20 20 20 20 |............ |
000000C0: 20 20 20 20 41 53 20 50 55 42 4C 49 53 48 45 44 | AS PUBLISHED|
000000D0: 20 49 4E 00 F7 08 A4 00 8F 20 20 56 4F 4C 55 4D | IN...... VOLUM|
000000E0: 45 20 34 2C 20 4E 55 4D 42 45 52 20 34 2C 20 49 |E 4, NUMBER 4, I|
000000F0: 53 53 55 45 20 32 35 00 1C 09 A5 00 8F 20 4F 46 |SSUE 25...... OF|
00000100: 20 43 4F 4D 4D 4F 44 4F 52 45 20 4D 49 43 52 4F | COMMODORE MICRO|
00000110: 43 4F 4D 50 55 54 45 52 20 4D 41 47 00 22 09 AA |COMPUTER MAG."..|
00000120: 00 8F 00 47 09 B4 00 8F 20 2A 2A 2A 2A 2A 2A 2A |...G.... *******|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 2A 2A 00 4D 09 BE 00 3A 00 7E 09 |*******.M...:.~.|
00000150: C8 00 99 22 93 20 20 20 20 20 48 4F 55 53 45 48 |...". HOUSEH|
00000160: 4F 4C 44 20 49 4E 56 45 4E 54 4F 52 59 20 50 52 |OLD INVENTORY PR|
00000170: 4F 47 52 41 4D 22 3A 20 8D 20 31 33 36 30 00 9E |OGRAM": . 1360..|
00000180: 09 D2 00 99 22 44 45 53 49 52 45 44 20 50 52 4F |...."DESIRED PRO|
00000190: 47 52 41 4D 20 4D 4F 44 45 3A 22 3A 20 99 00 C2 |GRAM MODE:": ...|
000001A0: 09 DC 00 99 22 20 30 20 3D 20 44 4F 4E 45 22 3A |...." 0 = DONE":|
000001B0: 20 99 22 20 31 20 3D 20 52 45 41 44 20 44 41 54 | ." 1 = READ DAT|
000001C0: 41 22 00 FA 09 E6 00 99 22 20 32 20 3D 20 57 52 |A"......" 2 = WR|
000001D0: 49 54 45 20 4E 45 57 20 44 41 54 41 20 46 49 4C |ITE NEW DATA FIL|
000001E0: 45 22 3A 20 99 22 20 33 20 3D 20 43 4F 50 59 20 |E": ." 3 = COPY |
000001F0: 44 41 54 41 20 46 49 4C 45 22 00 2E 0A F0 00 99 |DATA FILE"......|
00000200: 22 20 34 20 3D 20 45 44 49 54 20 44 41 54 41 20 |" 4 = EDIT DATA |
00000210: 46 49 4C 45 22 3A 20 99 22 20 35 20 3D 20 50 52 |FILE": ." 5 = PR|
00000220: 49 4E 54 20 44 41 54 41 20 46 49 4C 45 22 00 48 |INT DATA FILE".H|
00000230: 0A FA 00 8D 20 31 33 36 30 3A 20 99 3A 20 99 22 |.... 1360: .: ."|
00000240: 4D 4F 44 45 20 3F 22 3B 00 67 0A 04 01 8D 20 31 |MODE ?";.g.... 1|
00000250: 34 33 30 3A 20 8B 20 52 24 B2 22 30 22 20 A7 20 |430: . R$."0" . |
00000260: 99 3A 20 99 3A 20 80 00 86 0A 0E 01 52 B2 C5 28 |.: .: ......R..(|
00000270: 52 24 29 3A 20 8B 20 52 B3 31 20 B0 20 52 B1 35 |R$): . R.1 . R.5|
00000280: 20 A7 20 32 36 30 00 9A 0A 18 01 A0 20 31 35 3A | . 260...... 15:|
00000290: 20 9F 20 31 35 2C 38 2C 31 35 00 BD 0A 22 01 5A | . 15,8,15...".Z|
000002A0: B2 52 3A 20 91 20 52 20 89 20 34 30 30 2C 33 30 |.R: . R . 400,30|
000002B0: 30 2C 34 30 30 2C 34 30 30 2C 34 30 30 00 C8 0A |0,400,400,400...|
000002C0: 2C 01 8D 20 31 33 31 30 00 E3 0A 36 01 99 3A 20 |,.. 1310...6..: |
000002D0: 99 22 4F 55 54 50 55 54 20 22 3B 3A 20 8D 20 31 |."OUTPUT ";: . 1|
000002E0: 34 31 30 00 F7 0A 40 01 8B 20 46 24 B3 B1 22 A2 |410...@.. F$..".|
000002F0: 22 20 A7 20 33 35 30 00 0F 0B 4A 01 46 24 B2 22 |" . 350...J.F$."|
00000300: 49 4E 56 45 4E 54 4F 52 59 20 44 41 54 41 22 00 |INVENTORY DATA".|
00000310: 2C 0B 54 01 99 3A 20 99 22 44 45 46 41 55 4C 54 |,.T..: ."DEFAULT|
00000320: 20 46 49 4C 45 20 3D 20 22 3B 46 24 00 4F 0B 5E | FILE = ";F$.O.^|
00000330: 01 9F 20 32 2C 38 2C 35 2C 22 30 3A 22 AA 46 24 |.. 2,8,5,"0:".F$|
00000340: AA 22 2C 53 2C 57 22 3A 20 8D 20 31 34 37 30 00 |.",S,W": . 1470.|
00000350: 5F 0B 68 01 8B 20 5A B2 33 20 A7 20 36 32 30 00 |_.h.. Z.3 . 620.|
00000360: 6F 0B 72 01 8B 20 5A B2 34 20 A7 20 36 37 30 00 |o.r.. Z.4 . 670.|
00000370: 8E 0B 7C 01 8D 20 39 36 30 3A 20 8B 20 43 20 A7 |..|.. 960: . C .|
00000380: 20 8D 20 31 31 39 30 3A 20 89 20 33 38 30 00 98 | . 1190: . 380..|
00000390: 0B 86 01 89 20 36 31 30 00 A3 0B 90 01 8D 20 31 |.... 610...... 1|
000003A0: 33 31 30 00 BD 0B 9A 01 99 3A 20 99 22 49 4E 50 |310......: ."INP|
000003B0: 55 54 20 22 3B 3A 20 8D 20 31 34 31 30 00 FA 0B |UT ";: . 1410...|
000003C0: A4 01 8B 20 46 24 B2 22 A2 22 20 A7 20 46 24 B2 |... F$."." . F$.|
000003D0: 22 49 4E 56 45 4E 54 4F 52 59 20 44 41 54 41 22 |"INVENTORY DATA"|
000003E0: 3A 20 99 3A 20 99 22 44 45 46 41 55 4C 54 20 46 |: .: ."DEFAULT F|
000003F0: 49 4C 45 20 3D 20 22 3B 46 24 00 1D 0C AE 01 9F |ILE = ";F$......|
00000400: 20 31 2C 38 2C 36 2C 22 30 3A 22 AA 46 24 AA 22 | 1,8,6,"0:".F$."|
00000410: 2C 53 2C 52 22 3A 20 8D 20 31 34 37 30 00 27 0C |,S,R": . 1470.'.|
00000420: B8 01 58 24 B2 22 22 00 38 0C C2 01 8B 20 5A B2 |..X$."".8.... Z.|
00000430: 35 20 A7 20 31 35 31 30 00 48 0C CC 01 8B 20 5A |5 . 1510.H.... Z|
00000440: B1 32 20 A7 20 33 31 30 00 60 0C D6 01 8D 20 31 |.2 . 310.`.... 1|
00000450: 32 32 30 3A 20 8B 20 43 B1 31 20 A7 20 35 36 30 |220: . C.1 . 560|
00000460: 00 78 0C E0 01 8D 20 31 31 35 30 3A 20 8B 20 43 |.x.... 1150: . C|
00000470: 20 20 20 A7 20 35 37 30 00 90 0C EA 01 8D 20 31 | . 570...... 1|
00000480: 32 32 30 3A 20 8B 20 43 B1 31 20 A7 20 35 37 30 |220: . C.1 . 570|
00000490: 00 A8 0C F4 01 8D 20 31 31 36 30 3A 20 8B 20 43 |...... 1160: . C|
000004A0: 20 20 20 A7 20 35 37 30 00 C0 0C FE 01 8D 20 31 | . 570...... 1|
000004B0: 32 32 30 3A 20 8B 20 43 B1 31 20 A7 20 35 37 30 |220: . C.1 . 570|
000004C0: 00 D8 0C 08 02 8D 20 31 31 36 30 3A 20 8B 20 43 |...... 1160: . C|
000004D0: 20 20 20 A7 20 35 37 30 00 E3 0C 12 02 8D 20 31 | . 570...... 1|
000004E0: 33 37 30 00 FF 0C 1C 02 8D 20 31 34 35 30 3A 20 |370...... 1450: |
000004F0: 8B 20 52 24 B3 B1 22 44 22 20 A7 20 34 37 30 00 |. R$.."D" . 470.|
00000500: 09 0D 26 02 89 20 36 31 30 00 3D 0D 30 02 99 22 |..&.. 610.=.0.."|
00000510: 93 12 45 4E 44 20 4F 46 20 4D 4F 44 45 20 23 31 |..END OF MODE #1|
00000520: 92 20 20 44 4F 4E 45 20 52 45 41 44 49 4E 47 20 |. DONE READING |
00000530: 44 41 54 41 20 46 49 4C 45 22 3A 20 99 00 48 0D |DATA FILE": ..H.|
00000540: 3A 02 8D 20 31 33 37 30 00 69 0D 44 02 8B 20 43 |:.. 1370.i.D.. C|
00000550: B2 31 20 A7 20 99 22 45 4E 44 20 4F 46 20 44 41 |.1 . ."END OF DA|
00000560: 54 41 20 46 49 4C 45 21 22 00 95 0D 4E 02 8B 20 |TA FILE!"...N.. |
00000570: 43 B1 31 20 A7 20 99 22 44 49 53 4B 20 45 52 52 |C.1 . ."DISK ERR|
00000580: 4F 52 20 28 20 53 54 41 54 55 53 20 3D 22 3B 53 |OR ( STATUS =";S|
00000590: 54 3B 22 29 22 00 A0 0D 58 02 8D 20 31 34 32 30 |T;")"...X.. 1420|
000005A0: 00 BA 0D 62 02 A0 20 31 3A 20 A0 20 32 3A 20 A0 |...b.. 1: . 2: .|
000005B0: 20 31 35 3A 20 89 20 32 30 30 00 FC 0D 6C 02 49 | 15: . 200...l.I|
000005C0: 39 24 B2 22 22 3A 8D 20 31 33 31 30 3A 20 99 22 |9$."":. 1310: ."|
000005D0: 12 50 4C 45 41 53 45 20 57 41 49 54 92 20 20 2A |.PLEASE WAIT. *|
000005E0: 2A 2A 2A 2A 2A 20 20 43 4F 50 59 49 4E 47 20 44 |***** COPYING D|
000005F0: 41 54 41 20 46 49 4C 45 21 22 3A 99 00 14 0E 76 |ATA FILE!":....v|
00000600: 02 8D 20 31 32 32 30 3A 20 8B 20 43 B1 31 20 A7 |.. 1220: . C.1 .|
00000610: 20 38 38 30 00 41 0E 80 02 8B 20 5A B2 34 20 AF | 880.A.... Z.4 .|
00000620: 20 C8 28 49 24 2C C3 28 49 39 24 29 29 B2 49 39 | .(I$,.(I9$)).I9|
00000630: 24 20 A7 20 8D 20 31 33 31 30 3A 20 89 20 36 38 |$ . . 1310: . 68|
00000640: 30 00 59 0E 8A 02 8D 20 31 31 39 30 3A 20 8B 20 |0.Y.... 1190: . |
00000650: 43 B2 31 20 A7 20 38 38 30 00 73 0E 94 02 8B 20 |C.1 . 880.s.... |
00000660: 5A B2 33 20 B0 20 49 39 24 B3 B1 22 22 20 A7 20 |Z.3 . I9$.."" . |
00000670: 36 33 30 00 8B 0E 9E 02 8D 20 31 32 32 30 3A 20 |630...... 1220: |
00000680: 8B 20 43 B1 31 20 A7 20 38 38 30 00 BD 0E A8 02 |. C.1 . 880.....|
00000690: 8D 20 31 33 31 30 3A 20 8D 20 31 31 36 30 3A 20 |. 1310: . 1160: |
000006A0: 8D 20 31 33 36 30 3A 20 99 22 44 45 53 49 52 45 |. 1360: ."DESIRE|
000006B0: 44 20 41 43 54 49 4F 4E 3A 22 3A 20 99 00 E4 0E |D ACTION:": ....|
000006C0: B2 02 99 22 20 20 31 20 3D 20 43 4F 50 59 20 54 |..." 1 = COPY T|
000006D0: 48 49 53 20 49 54 45 4D 2C 20 4E 4F 20 43 48 41 |HIS ITEM, NO CHA|
000006E0: 4E 47 45 22 00 02 0F BC 02 99 22 20 20 32 20 3D |NGE"......" 2 =|
000006F0: 20 44 45 4C 45 54 45 20 54 48 49 53 20 49 54 45 | DELETE THIS ITE|
00000700: 4D 22 00 2C 0F C6 02 99 22 20 20 33 20 3D 20 49 |M".,...." 3 = I|
00000710: 4E 53 45 52 54 20 49 54 45 4D 53 20 42 45 46 4F |NSERT ITEMS BEFO|
00000720: 52 45 20 54 48 49 53 20 4F 4E 45 22 00 5A 0F D0 |RE THIS ONE".Z..|
00000730: 02 99 22 20 20 34 20 3D 20 53 45 41 52 43 48 20 |.." 4 = SEARCH |
00000740: 26 20 43 4F 50 59 20 54 49 4C 4C 20 49 54 45 4D |& COPY TILL ITEM|
00000750: 20 46 4F 55 4E 44 22 3A 20 99 00 6C 0F DA 02 99 | FOUND": ..l....|
00000760: 22 41 43 54 49 4F 4E 20 3F 20 22 3B 00 93 0F E4 |"ACTION ? ";....|
00000770: 02 8D 20 31 34 33 30 3A 20 52 B2 C5 28 52 24 29 |.. 1430: R..(R$)|
00000780: 3A 20 8B 20 52 B3 31 20 B0 20 52 B1 34 20 A7 20 |: . R.1 . R.4 . |
00000790: 37 34 30 00 9C 0F EE 02 99 20 52 24 00 C5 0F F8 |740...... R$....|
000007A0: 02 99 22 4F 4B 22 3A 20 49 39 24 B2 22 22 3A 20 |.."OK": I9$."": |
000007B0: 91 20 52 20 89 20 36 35 30 2C 37 37 30 2C 37 39 |. R . 650,770,79|
000007C0: 30 2C 38 32 30 00 D5 0F 02 03 8B 20 43 B2 31 20 |0,820...... C.1 |
000007D0: A7 20 38 38 30 00 DF 0F 0C 03 89 20 36 37 30 00 |. 880...... 670.|
000007E0: 18 10 16 03 49 39 24 B2 49 24 3A 20 57 39 24 B2 |....I9$.I$: W9$.|
000007F0: 57 24 3A 20 4D 39 24 B2 4D 24 3A 20 53 39 24 B2 |W$: M9$.M$: S9$.|
00000800: 53 24 3A 20 44 39 24 B2 44 24 3A 20 56 39 24 B2 |S$: D9$.D$: V9$.|
00000810: 56 24 3A 20 43 39 B2 43 00 37 10 20 03 8D 20 39 |V$: C9.C.7. .. 9|
00000820: 36 30 3A 20 8B 20 43 20 A7 20 8D 20 31 31 39 30 |60: . C . . 1190|
00000830: 3A 20 89 20 38 30 30 00 77 10 2A 03 49 24 B2 49 |: . 800.w.*.I$.I|
00000840: 39 24 3A 20 57 24 B2 57 39 24 3A 20 4D 24 B2 4D |9$: W$.W9$: M$.M|
00000850: 39 24 3A 20 53 24 B2 53 39 24 3A 20 44 24 B2 44 |9$: S$.S9$: D$.D|
00000860: 39 24 3A 20 56 24 B2 56 39 24 3A 20 43 B2 43 39 |9$: V$.V9$: C.C9|
00000870: 3A 20 89 20 36 38 30 00 A8 10 34 03 8D 20 31 33 |: . 680...4.. 13|
00000880: 31 30 3A 20 99 22 41 4C 4C 20 45 4E 54 52 49 45 |10: ."ALL ENTRIE|
00000890: 53 20 57 49 4C 4C 20 42 45 20 43 4F 50 49 45 44 |S WILL BE COPIED|
000008A0: 20 55 4E 54 49 4C 4C 22 00 C9 10 3E 03 99 3A 20 | UNTILL"...>..: |
000008B0: 99 22 44 45 53 49 52 45 44 20 49 54 45 4D 20 49 |."DESIRED ITEM I|
000008C0: 53 20 46 4F 55 4E 44 3B 22 00 F0 10 48 03 99 3A |S FOUND;"...H..:|
000008D0: 20 99 3A 20 99 22 45 4E 54 45 52 20 49 54 45 4D | .: ."ENTER ITEM|
000008E0: 20 54 4F 20 53 45 41 52 43 48 20 46 4F 52 3A 22 | TO SEARCH FOR:"|
000008F0: 00 03 11 52 03 85 22 20 20 20 A2 9D 9D 9D 22 3B |...R.." ....";|
00000900: 49 39 24 00 37 11 5C 03 8B 20 49 39 24 B2 22 A2 |I9$.7.\.. I9$.".|
00000910: 22 20 A7 20 49 39 24 B2 22 22 3A 20 99 22 11 11 |" . I9$."": ."..|
00000920: 11 53 45 41 52 43 48 20 41 42 4F 52 54 45 44 22 |.SEARCH ABORTED"|
00000930: 3A 20 89 20 36 38 30 00 58 11 66 03 99 3A 20 99 |: . 680.X.f..: .|
00000940: 3A 20 99 3A 20 99 22 53 45 41 52 43 48 49 4E 47 |: .: ."SEARCHING|
00000950: 22 3A 20 89 20 36 34 30 00 68 11 70 03 8B 20 5A |": . 640.h.p.. Z|
00000960: B2 33 20 A7 20 35 38 30 00 80 11 7A 03 8D 20 31 |.3 . 580...z.. 1|
00000970: 33 31 30 3A 20 8B 20 43 B1 31 20 A7 20 35 39 30 |310: . C.1 . 590|
00000980: 00 9A 11 84 03 99 22 45 4E 44 20 4F 46 20 49 4E |......"END OF IN|
00000990: 50 55 54 20 46 49 4C 45 21 22 00 CA 11 8E 03 99 |PUT FILE!"......|
000009A0: 3A 20 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 |: ."DO YOU WANT |
000009B0: 54 4F 20 41 44 44 20 41 4E 59 20 45 4E 54 52 49 |TO ADD ANY ENTRI|
000009C0: 45 53 20 54 4F 20 54 48 45 22 00 EB 11 98 03 99 |ES TO THE"......|
000009D0: 3A 20 99 22 45 4E 44 20 4F 46 20 54 48 45 20 44 |: ."END OF THE D|
000009E0: 41 54 41 20 46 49 4C 45 22 3B 22 00 06 12 A2 03 |ATA FILE";".....|
000009F0: 8D 20 31 33 38 30 3A 20 8B 20 52 24 B2 22 4E 22 |. 1380: . R$."N"|
00000A00: 20 A7 20 36 31 30 00 25 12 AC 03 8D 20 39 36 30 | . 610.%.... 960|
00000A10: 3A 20 8B 20 43 20 A7 20 8D 20 31 31 39 30 3A 20 |: . C . . 1190: |
00000A20: 89 20 39 34 30 00 2F 12 B6 03 89 20 36 31 30 00 |. 940./.... 610.|
00000A30: 71 12 C0 03 43 B2 30 3A 99 22 93 45 4E 54 45 52 |q...C.0:.".ENTER|
00000A40: 20 49 54 45 4D 20 49 4E 46 4F 52 4D 41 54 49 4F | ITEM INFORMATIO|
00000A50: 4E 3A 22 3A 20 99 3A 20 99 22 44 20 3D 20 44 4F |N:": .: ."D = DO|
00000A60: 4E 45 20 45 4E 54 45 52 49 4E 47 20 44 41 54 41 |NE ENTERING DATA|
00000A70: 22 00 97 12 CA 03 99 22 45 20 3D 20 45 52 52 4F |"......"E = ERRO|
00000A80: 52 2C 20 52 45 53 54 41 52 54 20 45 4E 54 49 52 |R, RESTART ENTIR|
00000A90: 45 20 49 54 45 4D 22 00 C7 12 D4 03 99 3A 20 99 |E ITEM"......: .|
00000AA0: 22 44 4F 20 4E 4F 54 20 55 53 45 20 27 2C 27 20 |"DO NOT USE ',' |
00000AB0: 4F 52 20 27 3A 27 20 57 49 54 48 49 4E 20 54 48 |OR ':' WITHIN TH|
00000AC0: 45 20 44 41 54 41 22 00 F1 12 DE 03 99 3A 20 99 |E DATA"......: .|
00000AD0: 22 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 |"PRESS .RETURN. |
00000AE0: 41 46 54 45 52 20 45 41 43 48 20 45 4E 54 52 59 |AFTER EACH ENTRY|
00000AF0: 22 00 21 13 E8 03 8D 20 31 33 36 30 3A 20 85 22 |".!.... 1360: ."|
00000B00: 12 49 54 45 4D 92 20 20 20 3F 9D 9D 9D 22 3B 49 |.ITEM. ?...";I|
00000B10: 24 3A 20 8B 20 49 24 B2 22 45 22 20 A7 20 39 36 |$: . I$."E" . 96|
00000B20: 30 00 32 13 F2 03 8B 20 49 24 B2 22 44 22 20 A7 |0.2.... I$."D" .|
00000B30: 20 8E 00 5A 13 FC 03 85 22 12 4D 41 4B 45 92 20 | ..Z....".MAKE. |
00000B40: 20 20 3F 9D 9D 9D 22 3B 57 24 3A 20 8B 20 57 24 | ?...";W$: . W$|
00000B50: B2 22 45 22 20 A7 20 39 36 30 00 6B 13 06 04 8B |."E" . 960.k....|
00000B60: 20 57 24 B2 22 44 22 20 A7 20 8E 00 94 13 10 04 | W$."D" . ......|
00000B70: 85 22 12 4D 4F 44 45 4C 92 20 20 20 3F 9D 9D 9D |.".MODEL. ?...|
00000B80: 22 3B 4D 24 3A 20 8B 20 4D 24 B2 22 45 22 20 A7 |";M$: . M$."E" .|
00000B90: 20 39 36 30 00 A5 13 1A 04 8B 20 4D 24 B2 22 44 | 960...... M$."D|
00000BA0: 22 20 A7 20 8E 00 D3 13 24 04 85 22 12 53 45 52 |" . ....$..".SER|
00000BB0: 49 41 4C 23 2F 49 44 92 20 20 20 3F 9D 9D 9D 22 |IAL#/ID. ?..."|
00000BC0: 3B 53 24 3A 20 8B 20 53 24 B2 22 45 22 20 A7 20 |;S$: . S$."E" . |
00000BD0: 39 36 30 00 E4 13 2E 04 8B 20 53 24 B2 22 44 22 |960...... S$."D"|
00000BE0: 20 A7 20 8E 00 23 14 38 04 85 22 12 44 41 54 45 | . ..#.8..".DATE|
00000BF0: 20 41 43 51 27 44 92 20 28 4D 4F 4E 54 48 2F 44 | ACQ'D. (MONTH/D|
00000C00: 41 59 2F 59 45 41 52 29 20 20 20 3F 9D 9D 9D 22 |AY/YEAR) ?..."|
00000C10: 3B 44 24 3A 20 8B 20 44 24 B2 22 45 22 20 A7 20 |;D$: . D$."E" . |
00000C20: 39 36 30 00 40 14 42 04 44 24 B2 C8 28 44 24 2C |960.@.B.D$..(D$,|
00000C30: 38 29 3A 20 8B 20 44 24 B2 22 44 22 20 A7 20 8E |8): . D$."D" . .|
00000C40: 00 6A 14 4C 04 85 22 12 24 56 41 4C 55 45 92 20 |.j.L..".$VALUE. |
00000C50: 20 20 3F 9D 9D 9D 22 3B 56 24 3A 20 8B 20 56 24 | ?...";V$: . V$|
00000C60: B2 22 45 22 20 A7 20 39 36 30 00 7B 14 56 04 8B |."E" . 960.{.V..|
00000C70: 20 56 24 B2 22 44 22 20 A7 20 8E 00 8E 14 60 04 | V$."D" . ....`.|
00000C80: 8D 20 31 31 35 30 3A 20 8D 20 31 33 36 30 00 C4 |. 1150: . 1360..|
00000C90: 14 6A 04 99 22 49 53 20 54 48 49 53 20 45 4E 54 |.j.."IS THIS ENT|
00000CA0: 52 59 20 43 4F 52 52 45 43 54 22 3B 3A 20 8D 20 |RY CORRECT";: . |
00000CB0: 31 33 38 30 3A 20 8B 20 52 24 B2 22 4E 22 20 A7 |1380: . R$."N" .|
00000CC0: 20 39 36 30 00 CF 14 74 04 43 B2 31 3A 20 8E 00 | 960...t.C.1: ..|
00000CD0: D9 14 7E 04 99 22 93 22 3B 00 FC 14 88 04 99 22 |..~..".";......"|
00000CE0: 12 49 54 45 4D 3A 92 20 22 3B 49 24 3A 20 99 22 |.ITEM:. ";I$: ."|
00000CF0: 12 4D 41 4B 45 3A 92 20 22 3B 57 24 00 26 15 92 |.MAKE:. ";W$.&..|
00000D00: 04 99 22 12 4D 4F 44 45 4C 3A 92 20 22 3B 4D 24 |..".MODEL:. ";M$|
00000D10: 3A 20 99 22 12 53 45 52 49 41 4C 23 2F 49 44 3A |: .".SERIAL#/ID:|
00000D20: 92 20 22 3B 53 24 00 59 15 9C 04 99 22 12 44 41 |. ";S$.Y....".DA|
00000D30: 54 45 20 41 43 51 27 44 3A 92 20 22 44 24 3B A3 |TE ACQ'D:. "D$;.|
00000D40: 32 32 29 3B 22 12 56 41 4C 55 45 3A 92 20 24 22 |22);".VALUE:. $"|
00000D50: 3B 56 24 3A 20 99 3A 20 8E 00 89 15 A6 04 58 24 |;V$: .: ......X$|
00000D60: B2 49 24 3A 20 8D 20 31 32 31 30 3A 20 58 24 B2 |.I$: . 1210: X$.|
00000D70: 57 24 3A 20 8D 20 31 32 31 30 3A 20 58 24 B2 4D |W$: . 1210: X$.M|
00000D80: 24 3A 20 8D 20 31 32 31 30 00 B1 15 B0 04 58 24 |$: . 1210.....X$|
00000D90: B2 53 24 3A 20 8D 20 31 32 31 30 3A 20 58 24 B2 |.S$: . 1210: X$.|
00000DA0: 44 24 3A 20 8D 20 31 32 31 30 3A 20 58 24 B2 56 |D$: . 1210: X$.V|
00000DB0: 24 00 C3 15 BA 04 98 32 2C 58 24 3A 20 89 20 31 |$......2,X$: . 1|
00000DC0: 34 37 30 00 DE 15 C4 04 8D 20 31 32 39 30 3A 20 |470...... 1290: |
00000DD0: 49 24 B2 58 24 3A 20 8B 20 43 20 A7 20 8E 00 F9 |I$.X$: . C . ...|
00000DE0: 15 CE 04 8D 20 31 32 39 30 3A 20 57 24 B2 58 24 |.... 1290: W$.X$|
00000DF0: 3A 20 8B 20 43 20 A7 20 8E 00 14 16 D8 04 8D 20 |: . C . ....... |
00000E00: 31 32 39 30 3A 20 4D 24 B2 58 24 3A 20 8B 20 43 |1290: M$.X$: . C|
00000E10: 20 A7 20 8E 00 2F 16 E2 04 8D 20 31 32 39 30 3A | . ../.... 1290:|
00000E20: 20 53 24 B2 58 24 3A 20 8B 20 43 20 A7 20 8E 00 | S$.X$: . C . ..|
00000E30: 4A 16 EC 04 8D 20 31 32 39 30 3A 20 44 24 B2 58 |J.... 1290: D$.X|
00000E40: 24 3A 20 8B 20 43 20 A7 20 8E 00 69 16 F6 04 8D |$: . C . ..i....|
00000E50: 20 31 32 39 30 3A 20 56 24 B2 58 24 3A 20 8B 20 | 1290: V$.X$: . |
00000E60: 43 B2 32 20 A7 20 43 B2 31 00 6F 16 00 05 8E 00 |C.2 . C.1.o.....|
00000E70: A0 16 0A 05 43 B2 30 3A 20 84 31 2C 58 24 3A 20 |....C.0: .1,X$: |
00000E80: 53 53 B2 53 54 3A 20 8B 20 53 53 20 A7 20 43 B2 |SS.ST: . SS . C.|
00000E90: 33 3A 20 8B 20 53 53 B2 36 34 20 A7 20 43 B2 32 |3: . SS.64 . C.2|
00000EA0: 00 AB 16 14 05 89 20 31 34 37 30 00 D5 16 1E 05 |...... 1470.....|
00000EB0: 8B 20 5A B2 31 20 A7 20 99 22 93 12 4D 4F 44 45 |. Z.1 . ."..MODE|
00000EC0: 20 23 31 92 20 20 52 45 41 44 20 44 41 54 41 20 | #1. READ DATA |
00000ED0: 46 49 4C 45 22 00 04 17 28 05 8B 20 5A B2 32 20 |FILE"...(.. Z.2 |
00000EE0: A7 20 99 22 93 12 4D 4F 44 45 20 23 32 92 20 20 |. ."..MODE #2. |
00000EF0: 57 52 49 54 45 20 4E 45 57 20 44 41 54 41 20 46 |WRITE NEW DATA F|
00000F00: 49 4C 45 22 00 2E 17 32 05 8B 20 5A B2 33 20 A7 |ILE"...2.. Z.3 .|
00000F10: 20 99 22 93 12 4D 4F 44 45 20 23 33 92 20 20 43 | ."..MODE #3. C|
00000F20: 4F 50 59 20 44 41 54 41 20 46 49 4C 45 22 00 58 |OPY DATA FILE".X|
00000F30: 17 3C 05 8B 20 5A B2 34 20 A7 20 99 22 93 12 4D |.<.. Z.4 . ."..M|
00000F40: 4F 44 45 20 23 34 92 20 20 45 44 49 54 20 44 41 |ODE #4. EDIT DA|
00000F50: 54 41 20 46 49 4C 45 22 00 83 17 46 05 8B 20 5A |TA FILE"...F.. Z|
00000F60: B2 35 20 A7 20 99 22 93 12 4D 4F 44 45 20 23 35 |.5 . ."..MODE #5|
00000F70: 92 20 20 50 52 49 4E 54 20 44 41 54 41 20 46 49 |. PRINT DATA FI|
00000F80: 4C 45 22 00 89 17 50 05 99 00 BE 17 5A 05 99 22 |LE"...P.....Z.."|
00000F90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000FB0: 2D 2D 2D 2D 2D 2D 2D 22 3A 20 99 3A 20 8E 00 D0 |-------": .: ...|
00000FC0: 17 64 05 99 22 20 28 59 2F 4E 29 20 3F 20 22 3B |.d.." (Y/N) ? ";|
00000FD0: 00 F7 17 6E 05 8D 20 31 34 33 30 3A 20 8B 20 52 |...n.. 1430: . R|
00000FE0: 24 B3 B1 22 59 22 20 AF 20 52 24 B3 B1 22 4E 22 |$.."Y" . R$.."N"|
00000FF0: 20 A7 20 31 33 39 30 00 03 18 78 05 99 20 52 24 | . 1390...x.. R$|
00001000: 3A 20 8E 00 20 18 82 05 85 22 46 49 4C 45 4E 41 |: .. ...."FILENA|
00001010: 4D 45 20 20 20 A2 9D 9D 9D 22 3B 46 24 3A 20 8E |ME ....";F$: .|
00001020: 00 56 18 8C 05 99 3A 20 99 22 48 49 54 20 41 4E |.V....: ."HIT AN|
00001030: 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 |Y KEY WHEN READY|
00001040: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B 3A 20 | TO CONTINUE";: |
00001050: 89 20 31 34 36 30 00 6F 18 96 05 A1 20 52 24 3A |. 1460.o.... R$:|
00001060: 20 8B 20 52 24 B2 22 22 20 A7 20 31 34 33 30 00 | . R$."" . 1430.|
00001070: 75 18 A0 05 8E 00 A0 18 AA 05 99 3A 20 99 22 48 |u..........: ."H|
00001080: 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |IT ANY KEY TO CO|
00001090: 4E 54 49 4E 55 45 2C 20 44 3D 44 4F 4E 45 22 3B |NTINUE, D=DONE";|
000010A0: 00 B8 18 B4 05 8D 20 31 34 33 30 3A 20 99 3A 20 |...... 1430: .: |
000010B0: 99 22 4F 4B 22 3A 20 8E 00 D9 18 BE 05 84 31 35 |."OK": .......15|
000010C0: 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 20 8B |,EN,EM$,ET,ES: .|
000010D0: 20 45 4E B2 30 20 A7 20 8E 00 F1 18 C8 05 99 22 | EN.0 . ......."|
000010E0: 93 12 44 49 53 4B 20 45 52 52 4F 52 92 22 3A 20 |..DISK ERROR.": |
000010F0: 99 00 04 19 D2 05 99 20 45 4E 3B 45 4D 24 3B 45 |....... EN;EM$;E|
00001100: 54 3B 45 53 00 16 19 DC 05 8D 20 31 33 36 30 3A |T;ES...... 1360:|
00001110: 20 89 20 36 30 30 00 2D 19 E6 05 9F 20 34 2C 34 | . 600.-.... 4,4|
00001120: 3A 20 50 B2 31 3A 20 8D 20 31 37 30 30 00 46 19 |: P.1: . 1700.F.|
00001130: F0 05 99 22 93 50 52 49 4E 54 49 4E 47 20 44 41 |...".PRINTING DA|
00001140: 54 41 2E 2E 2E 22 00 89 19 FA 05 99 22 11 50 52 |TA..."......".PR|
00001150: 45 53 53 20 27 53 50 41 43 45 27 20 54 4F 20 50 |ESS 'SPACE' TO P|
00001160: 41 55 53 45 20 50 52 49 4E 54 49 4E 47 22 3A 20 |AUSE PRINTING": |
00001170: 99 22 41 54 20 54 48 45 20 45 4E 44 20 4F 46 20 |."AT THE END OF |
00001180: 41 4E 59 20 49 54 45 4D 22 00 A2 19 04 06 8D 20 |ANY ITEM"...... |
00001190: 31 32 32 30 3A 20 8B 20 43 B1 31 20 A7 20 31 36 |1220: . C.1 . 16|
000011A0: 39 30 00 BB 19 0E 06 98 34 2C 22 20 20 20 20 20 |90......4," |
000011B0: 20 49 54 45 4D 3A 20 22 3B 49 24 00 D4 19 18 06 | ITEM: ";I$.....|
000011C0: 98 34 2C 22 20 20 20 20 20 20 4D 41 4B 45 3A 20 |.4," MAKE: |
000011D0: 22 3B 57 24 00 ED 19 22 06 98 34 2C 22 20 20 20 |";W$..."..4," |
000011E0: 20 20 4D 4F 44 45 4C 3A 20 22 3B 4D 24 00 06 1A | MODEL: ";M$...|
000011F0: 2C 06 98 34 2C 22 53 45 52 49 41 4C 23 2F 49 44 |,..4,"SERIAL#/ID|
00001200: 3A 20 22 3B 53 24 00 1F 1A 36 06 98 34 2C 22 44 |: ";S$...6..4,"D|
00001210: 41 54 45 20 41 43 51 27 44 3A 20 22 3B 44 24 00 |ATE ACQ'D: ";D$.|
00001220: 38 1A 40 06 98 34 2C 22 56 41 4C 55 45 3A 20 20 |8.@..4,"VALUE: |
00001230: 20 20 20 20 22 3B 56 24 00 43 1A 4A 06 98 34 3A | ";V$.C.J..4:|
00001240: 20 98 34 00 5D 1A 54 06 4C B2 4C AA 31 3A 20 8B | .4.].T.L.L.1: .|
00001250: 20 4C B2 37 20 A7 20 8D 20 31 37 30 30 00 78 1A | L.7 . . 1700.x.|
00001260: 5E 06 A1 20 52 24 3A 20 8B 20 52 24 B3 B1 22 20 |^.. R$: . R$.." |
00001270: 22 20 A7 20 31 35 34 30 00 93 1A 68 06 99 22 93 |" . 1540...h..".|
00001280: 50 52 49 4E 54 49 4E 47 20 50 41 55 53 45 44 2E |PRINTING PAUSED.|
00001290: 2E 2E 22 00 C3 1A 72 06 99 3A 20 99 22 50 52 45 |.."...r..: ."PRE|
000012A0: 53 53 20 27 43 27 20 54 4F 20 43 4F 4E 54 49 4E |SS 'C' TO CONTIN|
000012B0: 55 45 20 4F 52 20 27 51 27 20 54 4F 20 51 55 49 |UE OR 'Q' TO QUI|
000012C0: 54 27 22 00 DD 1A 7C 06 A1 20 52 24 3A 20 8B 20 |T'"...|.. R$: . |
000012D0: 52 24 B2 22 43 22 20 A7 20 31 35 32 30 00 F2 1A |R$."C" . 1520...|
000012E0: 86 06 8B 20 52 24 B3 B1 22 51 22 20 A7 20 31 36 |... R$.."Q" . 16|
000012F0: 36 30 00 18 1B 90 06 98 34 3A 20 98 34 2C 22 2A |60......4: .4,"*|
00001300: 2A 2A 2A 2A 20 4C 49 53 54 49 4E 47 20 54 45 52 |**** LISTING TER|
00001310: 4D 49 4E 41 54 45 44 22 00 30 1B 9A 06 98 34 2C |MINATED".0....4,|
00001320: C7 28 31 32 29 3A A0 20 34 3A 20 89 20 36 31 30 |.(12):. 4: . 610|
00001330: 00 63 1B A4 06 98 34 2C C7 28 31 32 29 3B 22 49 |.c....4,.(12);"I|
00001340: 4E 56 45 4E 54 4F 52 59 20 4C 49 53 54 49 4E 47 |NVENTORY LISTING|
00001350: 20 4F 46 20 46 49 4C 45 3A 20 20 20 20 20 22 3B | OF FILE: ";|
00001360: 46 24 3B 00 84 1B AE 06 98 34 2C 22 20 20 20 20 |F$;......4," |
00001370: 20 2A 2A 2A 2A 2A 20 20 20 20 20 50 41 47 45 3A | ***** PAGE:|
00001380: 20 22 3B 50 00 9E 1B B8 06 98 34 3A 20 98 34 3A | ";P......4: .4:|
00001390: 20 4C B2 30 3A 20 50 B2 50 AA 31 3A 20 8E 00 00 | L.0: P.P.1: ...|
000013A0: 00 |. |
..&.D.. ******************************.,
.N...H.X.. HOUSE INVENTORY.G....
FOR THE COMMODORE-64.M..........
BY: ROBERT W. BAKER... .. 15 WINDSOR DR
, ATCO, NJ 08004.......S.... AS P
UBLISHED IN...... VOLUME 4, NUMBER 4, I
SSUE 25...... OF COMMODORE MICROCOMPUTER
MAG.".....G.... ***********************
*******.M...:.~.H..". HOUSEHOLD INVE
NTORY PROGRAM": . 1360...R.."DESIRED PRO
GRAM MODE:": ..B...." 0 = DONE": ." 1 =
READ DATA"......" 2 = WRITE NEW DATA FIL
E": ." 3 = COPY DATA FILE"......" 4 = ED
IT DATA FILE": ." 5 = PRINT DATA FILE".H
.... 1360: .: ."MODE ?";.G.... 1430: . R
$."0" . .: .: ......R.E(R$): . R.1 . R.5
. 260..... 15: . 15,8,15...".Z.R: . R
. 400,300,400,400,400.H.,.. 1310...6..:
."OUTPUT ";: . 1410...@.. F$.."." . 350.
..J.F$."INVENTORY DATA".,.T..: ."DEFAULT
FILE = ";F$.O.^.. 2,8,5,"0:".F$.",S,W":
. 1470._.H.. Z.3 . 620.O.R.. Z.4 . 670.
..|.. 960: . C . . 1190: . 380...... 610
...... 1310......: ."INPUT ";: . 1410...
... F$."." . F$."INVENTORY DATA": .: ."D
EFAULT FILE = ";F$...... 1,8,6,"0:".F$."
,S,R": . 1470.'...X$."".8.B.. Z.5 . 1510
.H.L.. Z.2 . 310.`.V.. 1220: . C.1 . 560
.X.... 1150: . C . 570...... 1220: . C
.1 . 570...... 1160: . C . 570...... 1
220: . C.1 . 570.X.... 1160: . C . 570
...... 1370...... 1450: . R$.."D" . 470.
..&.. 610.=.0.."..END OF MODE #1. DONE
READING DATA FILE": ..H.:.. 1370.I.D.. C
.1 . ."END OF DATA FILE!"...N.. C.1 . ."
DISK ERROR ( STATUS =";ST;")". .X.. 1420
...B. 1: 2: 15: . 200...L.I9$."":.
1310: .".PLEASE WAIT. ****** COPYING D
ATA FILE!":....V.. 1220: . C.1 . 880.A..
.. Z.4 . H(I$,C(I9$)).I9$ . . 1310: . 68
0.Y.... 1190: . C.1 . 880.S.... Z.3 . I9
$.."" . 630...... 1220: . C.1 . 880.....
. 1310: . 1160: . 1360: ."DESIRED ACTION
:": ......." 1 = COPY THIS ITEM, NO CHA
NGE"......" 2 = DELETE THIS ITEM".,.F..
" 3 = INSERT ITEMS BEFORE THIS ONE".Z.P
.." 4 = SEARCH & COPY TILL ITEM FOUND":
..L.Z.."ACTION ? ";...... 1430: R.E(R$)
: . R.1 . R.4 . 740...... R$.E...."OK":
I9$."": . R . 650,770,790,820.U.... C.1
. 880...... 670.....I9$.I$: W9$.W$: M9$.
M$: S9$.S$: D9$.D$: V9$.V$: C9.C.7. .. 9
60: . C . . 1190: . 800.W.*.I$.I9$: W$.W
9$: M$.M9$: S$.S9$: D$.D9$: V$.V9$: C.C9
: . 680...4.. 1310: ."ALL ENTRIES WILL B
E COPIED UNTILL".I.>..: ."DESIRED ITEM I
S FOUND;"...H..: .: ."ENTER ITEM TO SEAR
CH FOR:"...R.." ....";I9$.7.\.. I9$.".
" . I9$."": ."...SEARCH ABORTED": . 680.
X.F..: .: .: ."SEARCHING": . 640.H.P.. Z
.3 . 580...Z.. 1310: . C.1 . 590......"E
ND OF INPUT FILE!".J....: ."DO YOU WANT
TO ADD ANY ENTRIES TO THE"......: ."END
OF THE DATA FILE";"...... 1380: . R$."N"
. 610.%.... 960: . C . . 1190: . 940./.
... 610.Q...C.0:.".ENTER ITEM INFORMATIO
N:": .: ."D = DONE ENTERING DATA"...J.."
E = ERROR, RESTART ENTIRE ITEM".G.T..: .
"DO NOT USE ',' OR ':' WITHIN THE DATA".
.....: ."PRESS .RETURN. AFTER EACH ENTRY
".!.... 1360: .".ITEM. ?...";I$: . I$.
"E" . 960.2.... I$."D" . ..Z....".MAKE.
?...";W$: . W$."E" . 960.K.... W$."D"
. .......".MODEL. ?...";M$: . M$."E" .
960...... M$."D" . ..S.$..".SERIAL#/ID.
?...";S$: . S$."E" . 960...... S$."D"
. ..#.8..".DATE ACQ'D. (MONTH/DAY/YEAR)
?...";D$: . D$."E" . 960.@.B.D$.H(D$,
8): . D$."D" . ..J.L..".$VALUE. ?...";
V$: . V$."E" . 960.{.V.. V$."D" . ....`.
. 1150: . 1360.D.J.."IS THIS ENTRY CORRE
CT";: . 1380: . R$."N" . 960.O.T.C.1: ..
Y.~..".";......".ITEM:. ";I$: .".MAKE:.
";W$.&....".MODEL:. ";M$: .".SERIAL#/ID:
. ";S$.Y....".DATE ACQ'D:. "D$;.22);".VA
LUE:. $";V$: .: ......X$.I$: . 1210: X$.
W$: . 1210: X$.M$: . 1210.....X$.S$: . 1
210: X$.D$: . 1210: X$.V$.C....2,X$: . 1
470...D.. 1290: I$.X$: . C . ....N.. 129
0: W$.X$: . C . ....X.. 1290: M$.X$: . C
. ../.... 1290: S$.X$: . C . ..J.... 12
90: D$.X$: . C . ..I.... 1290: V$.X$: .
C.2 . C.1.O..... ...C.0: .1,X$: SS.ST: .
SS . C.3: . SS.64 . C.2...... 1470.U...
. Z.1 . ."..MODE #1. READ DATA FILE"...
(.. Z.2 . ."..MODE #2. WRITE NEW DATA F
ILE"...2.. Z.3 . ."..MODE #3. COPY DATA
FILE".X.<.. Z.4 . ."..MODE #4. EDIT DA
TA FILE"...F.. Z.5 . ."..MODE #5. PRINT
DATA FILE"...P.....Z.."----------------
-----------------------": .: ..P.D.." (Y
/N) ? ";...N.. 1430: . R$.."Y" . R$.."N"
. 1390...X.. R$: .. ...."FILENAME ...
.";F$: ..V....: ."HIT ANY KEY WHEN READY
TO CONTINUE";: . 1460.O.... R$: . R$.""
. 1430.U. ... ....: ."HIT ANY KEY TO CO
NTINUE, D=DONE";...... 1430: .: ."OK": .
.Y....15,EN,EM$,ET,ES: . EN.0 . ....H.."
..DISK ERROR.": ....R.. EN;EM$;ET;ES....
.. 1360: . 600.-.... 4,4: P.1: . 1700.F.
...".PRINTING DATA..."......".PRESS 'SPA
CE' TO PAUSE PRINTING": ."AT THE END OF
ANY ITEM"...... 1220: . C.1 . 1690......
4," ITEM: ";I$.T....4," MAKE:
";W$..."..4," MODEL: ";M$...,..4,"SE
RIAL#/ID: ";S$...6..4,"DATE ACQ'D: ";D$.
8.@..4,"VALUE: ";V$.C.J..4: .4.].T.
L.L.1: . L.7 . . 1700.X.^.. R$: . R$.."
" . 1540...H..".PRINTING PAUSED...".C.R.
.: ."PRESS 'C' TO CONTINUE OR 'Q' TO QUI
T'"...|.. R$: . R$."C" . 1520...... R$..
"Q" . 1660......4: .4,"***** LISTING TER
MINATED".0....4,G(12): 4: . 610.C....4,
G(12);"INVENTORY LISTING OF FILE: ";
F$;......4," ***** PAGE: ";P....
..4: .4: L.0: P.P.1: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL