HOME INVENTORY
FILE INFORMATION
FILENAME(S): HOME INVENTORY
FILE TYPE(S): PRG
FILE SIZE: 15.5K
FIRST SEEN: 2025-12-02 23:22:59
APPEARS ON: 1 disk(s)
FILE HASH
e7afbddc006949a05db8ef4b6e07e1b396edc65267d07ee0b27fa02d9c7a103d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIZAWRITE DEUTSC | HOME INVENTORY | PRG | swasti, dinkel | 32 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4E 08 01 00 8F 20 20 20 20 20 20 20 43 42 |..N.... CB|
00000010: 4D 2D 36 34 20 20 48 4F 4D 45 20 49 4E 56 45 4E |M-64 HOME INVEN|
00000020: 54 4F 52 59 20 20 20 20 20 20 20 20 20 20 20 20 |TORY |
00000030: 20 20 20 20 28 43 29 20 31 39 38 33 20 43 52 45 | (C) 1983 CRE|
00000040: 41 54 49 56 45 20 53 4F 46 54 57 41 52 45 00 54 |ATIVE SOFTWARE.T|
00000050: 08 02 00 8F 00 6F 08 0A 00 42 44 B2 35 33 32 38 |.....o...BD.5328|
00000060: 30 3A 97 42 44 2C 33 3A 97 42 44 AA 31 2C 31 00 |0:.BD,3:.BD.1,1.|
00000070: A3 08 0B 00 99 22 93 1C 8E 08 11 11 11 11 11 11 |....."..........|
00000080: 11 22 2C 22 9D 9D 9D 48 20 4F 20 4D 20 45 20 20 |.","...H O M E |
00000090: 20 49 20 4E 20 56 20 45 20 4E 20 54 20 4F 20 52 | I N V E N T O R|
000000A0: 20 59 22 00 E1 08 0C 00 99 22 9A 11 11 11 22 2C | Y"......"....",|
000000B0: 22 20 20 43 4F 50 59 52 49 47 48 54 20 31 39 38 |" COPYRIGHT 198|
000000C0: 33 20 42 59 22 3A 99 22 11 11 22 2C 22 20 20 43 |3 BY":.".."," C|
000000D0: 52 45 41 54 49 56 45 20 53 4F 46 54 57 41 52 45 |REATIVE SOFTWARE|
000000E0: 22 00 03 09 0E 00 99 22 11 11 11 22 2C 22 20 41 |"......"..."," A|
000000F0: 4C 4C 20 52 49 47 48 54 53 20 52 45 53 45 52 56 |LL RIGHTS RESERV|
00000100: 45 44 22 00 36 09 14 00 86 49 52 24 28 32 30 30 |ED".6....IR$(200|
00000110: 2C 38 29 2C 4C 24 28 38 29 2C 4D 24 28 38 29 2C |,8),L$(8),M$(8),|
00000120: 45 24 28 34 29 3A 49 4E B2 31 3A 8D 39 32 30 30 |E$(4):IN.1:.9200|
00000130: 3A 8D 39 30 30 30 00 4A 09 E8 03 8D 39 39 30 30 |:.9000.J....9900|
00000140: 3A 8B 49 B2 30 89 31 30 35 30 00 5A 09 EB 03 8B |:.I.0.1050.Z....|
00000150: 49 B2 31 33 36 89 31 30 30 30 00 7F 09 EC 03 54 |I.136.1000.....T|
00000160: 53 24 B2 22 4C 4F 41 44 49 4E 47 20 22 3A 8D 39 |S$."LOADING ":.9|
00000170: 39 33 30 3A 8B 49 B2 31 33 36 89 31 30 30 30 00 |930:.I.136.1000.|
00000180: 9A 09 EE 03 8D 39 39 35 30 3A 8B 49 B2 31 33 36 |.....9950:.I.136|
00000190: B0 45 52 B1 31 89 31 30 30 30 00 B0 09 1A 04 8D |.ER.1.1000......|
000001A0: 39 31 30 30 3A 8F 20 4D 41 49 4E 20 4D 45 4E 55 |9100:. MAIN MENU|
000001B0: 00 D5 09 1F 04 91 43 89 31 31 30 30 2C 32 30 30 |......C.1100,200|
000001C0: 30 2C 33 30 30 30 2C 34 30 30 30 2C 31 30 37 30 |0,3000,4000,1070|
000001D0: 2C 38 30 30 30 00 E9 09 24 04 45 B2 31 3A 8D 39 |,8000...$.E.1:.9|
000001E0: 35 30 30 3A 89 31 30 35 30 00 F9 09 2E 04 8D 31 |500:.1050......1|
000001F0: 36 30 30 3A 89 31 30 35 30 00 1E 0A 4C 04 8F 20 |600:.1050...L.. |
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 49 54 45 4D 20 |********** ITEM |
00000210: 45 4E 54 52 59 20 26 20 55 50 44 41 54 45 00 31 |ENTRY & UPDATE.1|
00000220: 0A 56 04 8D 39 31 31 30 3A 8F 20 4D 45 4E 55 20 |.V..9110:. MENU |
00000230: 31 00 42 0A 60 04 8B 43 24 B2 22 45 22 A7 38 30 |1.B.`..C$."E".80|
00000240: 30 30 00 53 0A 62 04 8B 43 24 B2 22 4D 22 A7 31 |00.S.b..C$."M".1|
00000250: 30 35 30 00 71 0A 6A 04 8B 43 B3 31 B0 43 B1 4D |050.q.j..C.1.C.M|
00000260: 43 A7 45 B2 31 3A 8D 39 35 30 30 3A 89 31 31 30 |C.E.1:.9500:.110|
00000270: 30 00 97 0A 7E 04 91 43 8D 31 32 30 30 2C 31 33 |0...~..C.1200,13|
00000280: 30 30 2C 31 34 30 30 2C 31 35 30 30 2C 31 36 30 |00,1400,1500,160|
00000290: 30 3A 89 31 31 30 30 00 AE 0A B0 04 8F 20 2E 2E |0:.1100...... ..|
000002A0: 2E 20 52 45 56 49 45 57 20 49 54 45 4D 53 00 C0 |. REVIEW ITEMS..|
000002B0: 0A BA 04 8B 4C 52 B2 30 A7 8D 39 35 35 34 3A 8E |....LR.0..9554:.|
000002C0: 00 F2 0A C4 04 8D 31 38 36 30 3A 99 A3 35 29 22 |......1860:..5)"|
000002D0: 11 11 11 11 11 11 52 45 56 49 45 57 20 53 54 41 |......REVIEW STA|
000002E0: 52 54 49 4E 47 20 41 54 20 49 54 45 4D 20 23 20 |RTING AT ITEM # |
000002F0: 90 22 00 1F 0B C6 04 58 43 B2 33 31 3A 59 43 B2 |.".....XC.31:YC.|
00000300: 38 3A 4C 4C B2 33 3A 44 46 B2 31 3A 8D 39 38 30 |8:LL.3:DF.1:.980|
00000310: 30 3A 53 B2 58 30 3A 8B 53 B2 30 A7 53 B2 31 00 |0:S.X0:.S.0.S.1.|
00000320: 34 0B CE 04 8B 53 B3 30 A7 8D 39 35 35 32 3A 89 |4....S.0..9552:.|
00000330: 31 32 31 30 00 4A 0B D0 04 8B 53 B1 4C 52 A7 8D |1210.J....S.LR..|
00000340: 39 35 35 32 3A 89 31 32 31 30 00 6A 0B D8 04 81 |9552:.1210.j....|
00000350: 59 B2 53 A4 4C 52 3A 44 49 B2 59 3A 99 22 93 22 |Y.S.LR:DI.Y:."."|
00000360: A3 34 30 29 3A 8D 31 38 39 30 00 A1 0B DC 04 8B |.40):.1890......|
00000370: 59 B2 4C 52 A7 99 45 4F 24 A3 33 29 22 1F 54 48 |Y.LR..EO$.3)".TH|
00000380: 49 53 20 49 53 20 54 48 45 20 4C 41 53 54 20 49 |IS IS THE LAST I|
00000390: 54 45 4D 20 49 4E 20 54 48 45 20 46 49 4C 45 2E |TEM IN THE FILE.|
000003A0: 22 00 B7 0B E2 04 8D 39 32 34 30 3A 8B 49 B2 31 |"......9240:.I.1|
000003B0: 33 36 A7 59 B2 4C 52 00 C0 0B 13 05 82 59 3A 8E |36.Y.LR......Y:.|
000003C0: 00 D3 0B 14 05 8F 20 2E 2E 2E 41 44 44 20 49 54 |...... ...ADD IT|
000003D0: 45 4D 53 00 E5 0B 1E 05 49 4E B2 4C 52 AA 31 3A |EMS.....IN.LR.1:|
000003E0: 44 49 B2 4C 52 00 F6 0B 23 05 8B 49 4E B3 32 30 |DI.LR...#..IN.20|
000003F0: 31 89 31 33 34 30 00 2C 0C 28 05 99 22 93 22 4F |1.1340.,.(.."."O|
00000400: 46 24 A3 31 32 32 29 22 1C 54 48 45 20 4D 45 4D |F$.122)".THE MEM|
00000410: 4F 52 59 20 49 53 20 46 49 4C 4C 45 44 20 54 4F |ORY IS FILLED TO|
00000420: 20 43 41 50 41 43 49 54 59 2E 11 22 00 6C 0C 2D | CAPACITY..".l.-|
00000430: 05 99 22 20 50 4C 45 41 53 45 20 53 41 56 45 20 |.." PLEASE SAVE |
00000440: 54 48 45 20 49 54 45 4D 53 20 4F 4E 20 44 49 53 |THE ITEMS ON DIS|
00000450: 4B 20 4F 52 20 54 41 50 45 2E 1F 22 3A 8D 39 32 |K OR TAPE..":.92|
00000460: 39 30 3A 4C 52 B2 49 4E AB 31 3A 8E 00 7C 0C 3C |90:LR.IN.1:..|.<|
00000470: 05 8D 39 34 36 30 3A 8D 39 34 37 30 00 B4 0C 3E |..9460:.9470...>|
00000480: 05 8B 49 B2 31 33 36 A7 99 45 4F 24 A3 37 29 22 |..I.136..EO$.7)"|
00000490: 1C 22 4E 24 49 4E 22 12 20 4E 4F 54 20 41 44 44 |."N$IN". NOT ADD|
000004A0: 45 44 2E 20 92 22 3A 49 4E B2 49 4E AB 31 3A 89 |ED. .":IN.IN.1:.|
000004B0: 31 33 35 30 00 D7 0C 40 05 8D 31 38 37 30 3A 99 |1350...@..1870:.|
000004C0: 45 4F 24 A3 31 31 29 22 81 22 4E 24 49 4E 22 1F |EO$.11)"."N$IN".|
000004D0: 41 44 44 45 44 2E 22 00 F0 0C 46 05 8D 39 32 36 |ADDED."...F..926|
000004E0: 30 3A 8B 49 B2 31 33 36 A7 4C 52 B2 49 4E 3A 8E |0:.I.136.LR.IN:.|
000004F0: 00 0D 0D 4C 05 49 4E B2 49 4E AA 31 3A 8B 49 4E |...L.IN.IN.1:.IN|
00000500: B1 4C 52 AA 31 A7 44 49 B2 49 4E AB 31 00 1F 0D |.LR.1.DI.IN.1...|
00000510: 4F 05 4C 52 B2 4C 52 AA 31 3A 89 31 33 31 35 00 |O.LR.LR.1:.1315.|
00000520: 35 0D 78 05 8F 20 2E 2E 2E 43 48 41 4E 47 45 20 |5.x.. ...CHANGE |
00000530: 49 54 45 4D 53 00 47 0D 82 05 8B 4C 52 B2 30 A7 |ITEMS.G....LR.0.|
00000540: 8D 39 35 35 34 3A 8E 00 77 0D 84 05 8D 31 38 36 |.9554:..w....186|
00000550: 30 3A 99 4F 46 24 A3 35 29 22 90 53 45 4C 45 43 |0:.OF$.5)".SELEC|
00000560: 54 20 41 4E 20 49 54 45 4D 20 23 20 54 4F 20 43 |T AN ITEM # TO C|
00000570: 48 41 4E 47 45 2E 22 00 95 0D 8C 05 99 A3 35 30 |HANGE.".......50|
00000580: 29 22 90 28 45 4E 54 45 52 20 30 20 54 4F 20 53 |)".(ENTER 0 TO S|
00000590: 54 4F 50 29 22 00 BA 0D 8E 05 58 43 B2 33 33 3A |TOP)".....XC.33:|
000005A0: 59 43 B2 39 3A 4C 4C B2 33 3A 44 46 B2 30 3A 8D |YC.9:LL.3:DF.0:.|
000005B0: 39 38 30 30 3A 43 4E B2 58 30 00 C6 0D 96 05 8B |9800:CN.X0......|
000005C0: 43 4E B2 30 A7 8E 00 E5 0D 98 05 43 4E B2 B5 28 |CN.0.......CN..(|
000005D0: 43 4E 29 3A 8B 43 4E B3 30 A7 8D 39 35 35 32 3A |CN):.CN.0..9552:|
000005E0: 89 31 34 31 30 00 FC 0D 9A 05 8B 43 4E B1 4C 52 |.1410......CN.LR|
000005F0: A7 8D 39 35 35 32 3A 89 31 34 31 30 00 2F 0E A0 |..9552:.1410./..|
00000600: 05 44 49 B2 43 4E 3A 49 4E B2 43 4E 3A 99 22 93 |.DI.CN:IN.CN:.".|
00000610: 22 A3 35 33 29 22 1F 43 48 41 4E 47 45 20 22 4E |".53)".CHANGE "N|
00000620: 24 43 4E 3A 8D 39 34 36 30 3A 8D 39 34 37 30 00 |$CN:.9460:.9470.|
00000630: 63 0E A2 05 8B 49 B2 31 33 36 A7 99 45 4F 24 A3 |c....I.136..EO$.|
00000640: 37 29 4E 24 49 4E 22 12 20 4E 4F 54 20 43 48 41 |7)N$IN". NOT CHA|
00000650: 4E 47 45 44 20 92 22 3A 49 4E B2 43 4E 3A 89 31 |NGED .":IN.CN:.1|
00000660: 34 35 30 00 85 0E A4 05 8D 31 38 37 30 3A 99 45 |450......1870:.E|
00000670: 4F 24 A3 31 31 29 4E 24 49 4E 22 1F 43 48 41 4E |O$.11)N$IN".CHAN|
00000680: 47 45 44 2E 22 00 98 0E AA 05 8D 39 32 36 30 3A |GED."......9260:|
00000690: 8B 49 B2 31 33 36 A7 8E 00 A8 0E BE 05 99 22 93 |.I.136........".|
000006A0: 22 3A 89 20 31 34 31 30 00 BD 0E DC 05 8F 2E 2E |":. 1410........|
000006B0: 2E 44 45 4C 45 54 45 20 49 54 45 4D 53 00 CF 0E |.DELETE ITEMS...|
000006C0: E6 05 8B 4C 52 B2 30 A7 8D 39 35 35 34 3A 8E 00 |...LR.0..9554:..|
000006D0: 03 0F E8 05 8D 31 38 36 30 3A 99 4F 46 24 A3 35 |.....1860:.OF$.5|
000006E0: 29 22 1C 43 41 55 54 49 4F 4E 21 20 49 54 45 4D |)".CAUTION! ITEM|
000006F0: 20 4E 55 4D 42 45 52 53 20 43 48 41 4E 47 45 20 | NUMBERS CHANGE |
00000700: 41 53 22 00 22 0F EA 05 99 A3 31 34 29 22 44 45 |AS".".....14)"DE|
00000710: 4C 45 54 49 4F 4E 53 20 41 52 45 20 4D 41 44 45 |LETIONS ARE MADE|
00000720: 21 22 00 4A 0F EC 05 99 A3 34 35 29 22 90 53 45 |!".J.....45)".SE|
00000730: 4C 45 43 54 20 41 4E 20 49 54 45 4D 20 23 20 54 |LECT AN ITEM # T|
00000740: 4F 20 44 45 4C 45 54 45 2E 22 00 68 0F F0 05 99 |O DELETE.".h....|
00000750: A3 35 30 29 22 90 28 45 4E 54 45 52 20 30 20 54 |.50)".(ENTER 0 T|
00000760: 4F 20 53 54 4F 50 29 22 00 8E 0F F2 05 58 43 B2 |O STOP)".....XC.|
00000770: 33 33 3A 59 43 B2 31 32 3A 4C 4C B2 33 3A 44 46 |33:YC.12:LL.3:DF|
00000780: B2 30 3A 8D 39 38 30 30 3A 44 4E B2 58 30 00 A3 |.0:.9800:DN.X0..|
00000790: 0F FA 05 44 4E B2 B5 28 44 4E 29 3A 8B 44 4E B2 |...DN..(DN):.DN.|
000007A0: 30 A7 8E 00 BF 0F FC 05 8B 44 4E B3 30 B0 44 4E |0........DN.0.DN|
000007B0: B1 4C 52 A7 8D 39 35 35 32 3A 89 31 35 31 30 00 |.LR..9552:.1510.|
000007C0: EC 0F 00 06 44 49 B2 44 4E 3A 99 22 93 22 3A 8D |....DI.DN:.".":.|
000007D0: 31 38 39 30 3A 99 45 4F 24 A3 33 29 44 45 24 A3 |1890:.EO$.3)DE$.|
000007E0: 34 34 29 46 37 24 3A 8D 39 32 35 30 00 FD 0F 01 |44)F7$:.9250....|
000007F0: 06 99 45 4F 24 22 20 20 20 20 22 42 24 00 2F 10 |..EO$" "B$./.|
00000800: 02 06 8B 49 B2 31 33 36 A7 99 45 4F 24 A3 37 29 |...I.136..EO$.7)|
00000810: 22 95 22 4E 24 44 4E 22 12 20 4E 4F 54 20 44 45 |"."N$DN". NOT DE|
00000820: 4C 45 54 45 44 2E 20 92 22 3A 89 31 35 35 30 00 |LETED. .":.1550.|
00000830: 3F 10 04 06 8B 44 4E B2 4C 52 89 31 35 34 38 00 |?....DN.LR.1548.|
00000840: 70 10 09 06 81 5A B2 44 4E A4 4C 52 AB 31 3A 81 |p....Z.DN.LR.1:.|
00000850: 5A 5A B2 31 A4 38 3A 49 52 24 28 5A 2C 5A 5A 29 |ZZ.1.8:IR$(Z,ZZ)|
00000860: B2 49 52 24 28 5A AA 31 2C 5A 5A 29 3A 82 3A 82 |.IR$(Z.1,ZZ):.:.|
00000870: 00 9C 10 0C 06 4C 52 B2 4C 52 AB 31 3A 45 46 B2 |.....LR.LR.1:EF.|
00000880: 31 3A 99 45 4F 24 A3 31 31 29 22 81 22 4E 24 44 |1:.EO$.11)"."N$D|
00000890: 4E 22 1F 44 45 4C 45 54 45 44 2E 22 00 AF 10 0E |N".DELETED."....|
000008A0: 06 8D 39 32 36 30 3A 8B 49 B2 31 33 36 A7 8E 00 |..9260:.I.136...|
000008B0: BE 10 18 06 99 22 93 22 3A 89 31 35 31 30 00 D2 |.....".":.1510..|
000008C0: 10 40 06 8F 20 2E 2E 2E 53 41 56 45 20 49 54 45 |.@.. ...SAVE ITE|
000008D0: 4D 53 00 E4 10 4A 06 8B 4C 52 B2 30 A7 8D 39 35 |MS...J..LR.0..95|
000008E0: 35 34 3A 8E 00 1C 11 54 06 8D 31 38 36 30 3A 99 |54:....T..1860:.|
000008F0: 4F 46 24 A3 33 29 22 95 53 41 56 45 20 54 48 45 |OF$.3)".SAVE THE|
00000900: 20 49 54 45 4D 53 20 4F 4E 22 3A 59 43 B2 31 34 | ITEMS ON":YC.14|
00000910: 3A 58 43 B2 32 35 3A 8D 39 39 32 30 00 29 11 55 |:XC.25:.9920.).U|
00000920: 06 8B 49 B2 31 33 36 A7 8E 00 46 11 56 06 8B 44 |..I.136...F.V..D|
00000930: 56 24 B2 22 54 41 50 45 22 A7 49 24 B2 22 4E 22 |V$."TAPE".I$."N"|
00000940: 3A 89 31 36 33 36 00 6C 11 58 06 99 A3 31 32 34 |:.1636.l.X...124|
00000950: 29 22 95 44 4F 20 59 4F 55 20 57 49 53 48 20 54 |)".DO YOU WISH T|
00000960: 4F 20 53 41 56 45 20 57 49 54 48 22 00 9B 11 5A |O SAVE WITH"...Z|
00000970: 06 99 A3 34 35 29 22 95 12 20 42 20 92 20 42 41 |...45)".. B . BA|
00000980: 43 4B 55 50 22 A3 38 35 29 22 12 20 4E 20 92 20 |CKUP".85)". N . |
00000990: 4E 4F 20 42 41 43 4B 55 50 3F 22 00 B9 11 5E 06 |NO BACKUP?"...^.|
000009A0: 59 43 B2 32 31 3A 44 46 24 B2 22 42 22 3A 8D 39 |YC.21:DF$."B":.9|
000009B0: 37 35 30 3A 49 24 B2 58 24 00 C6 11 60 06 8B 49 |750:I$.X$...`..I|
000009C0: B2 49 33 36 A7 8E 00 E2 11 64 06 8B 49 24 B2 22 |.I36.....d..I$."|
000009D0: 4E 22 A7 4E 46 24 B2 22 49 4E 56 45 4E 54 4F 52 |N".NF$."INVENTOR|
000009E0: 59 22 00 08 12 66 06 54 53 24 B2 22 53 41 56 49 |Y"...f.TS$."SAVI|
000009F0: 4E 47 20 22 3A 8D 39 39 34 30 3A 8B 44 56 B2 31 |NG ":.9940:.DV.1|
00000A00: A7 8D 39 39 38 34 3A 8E 00 14 12 68 06 8D 39 39 |..9984:....h..99|
00000A10: 38 30 3A 8E 00 3F 12 44 07 99 22 93 1E 11 20 20 |80:..?.D.."... |
00000A20: 20 20 20 22 46 43 24 22 97 22 4C 52 22 1E 49 54 | "FC$"."LR".IT|
00000A30: 45 4D 53 2E 95 22 3B 3A 8D 39 31 36 30 3A 8E 00 |EMS..";:.9160:..|
00000A40: 64 12 4E 07 45 46 B2 31 3A 81 4A B2 31 A4 38 3A |d.N.EF.1:.J.1.8:|
00000A50: 49 52 24 28 49 4E 2C 4A 29 B2 49 4E 24 28 4A 29 |IR$(IN,J).IN$(J)|
00000A60: 3A 82 3A 8E 00 8F 12 62 07 99 22 93 1E 11 20 20 |:.:....b.."... |
00000A70: 20 20 20 22 46 43 24 22 97 22 4C 52 22 1E 49 54 | "FC$"."LR".IT|
00000A80: 45 4D 53 2E 95 22 3B 3A 8D 39 34 36 36 3A 8E 00 |EMS..";:.9466:..|
00000A90: AC 12 D0 07 8F 20 2A 2A 2A 2A 20 53 45 41 52 43 |..... **** SEARC|
00000AA0: 48 20 54 48 52 55 20 49 54 45 4D 53 00 C2 12 DA |H THRU ITEMS....|
00000AB0: 07 8B 4C 52 B2 30 A7 8D 39 35 35 34 3A 89 31 30 |..LR.0..9554:.10|
00000AC0: 35 30 00 D9 12 E4 07 8D 39 31 32 30 3A 8B 43 24 |50......9120:.C$|
00000AD0: B2 22 45 22 A7 38 30 30 30 00 EA 12 E6 07 8B 43 |."E".8000......C|
00000AE0: 24 B2 22 4D 22 A7 31 30 35 30 00 08 13 EE 07 8B |$."M".1050......|
00000AF0: 43 B3 31 B0 43 B1 4D 43 A7 45 B2 31 3A 8D 39 35 |C.1.C.MC.E.1:.95|
00000B00: 30 30 3A 89 32 30 30 30 00 33 13 02 08 91 43 8D |00:.2000.3....C.|
00000B10: 32 31 30 30 2C 32 31 30 30 2C 32 31 30 30 2C 32 |2100,2100,2100,2|
00000B20: 31 30 30 2C 32 32 30 30 2C 32 32 30 30 3A 89 32 |100,2200,2200:.2|
00000B30: 30 30 30 00 58 13 34 08 8F 20 53 45 41 52 43 48 |000.X.4.. SEARCH|
00000B40: 20 42 59 20 4C 4F 43 2E 2C 43 41 54 2E 2C 44 45 | BY LOC.,CAT.,DE|
00000B50: 53 43 2E 2C 53 45 52 23 00 8B 13 3E 08 8D 32 38 |SC.,SER#...>..28|
00000B60: 36 30 3A 52 51 24 B2 22 4C 4F 43 41 54 49 4F 4E |60:RQ$."LOCATION|
00000B70: 22 3A 4C 4C B2 31 30 3A 8B 43 B2 32 A7 52 51 24 |":LL.10:.C.2.RQ$|
00000B80: B2 22 43 41 54 45 47 4F 52 59 22 00 AC 13 40 08 |."CATEGORY"...@.|
00000B90: 8B 43 B2 33 A7 52 51 24 B2 22 44 45 53 43 52 49 |.C.3.RQ$."DESCRI|
00000BA0: 50 54 49 4F 4E 22 3A 4C 4C B2 31 35 00 CC 13 42 |PTION":LL.15...B|
00000BB0: 08 8B 43 B2 34 A7 52 51 24 B2 22 53 45 52 49 41 |..C.4.RQ$."SERIA|
00000BC0: 4C 20 4E 4F 2E 22 3A 4C 4C B2 31 35 00 FA 13 48 |L NO.":LL.15...H|
00000BD0: 08 99 4F 46 24 A3 32 29 22 1E 53 45 4C 45 43 54 |..OF$.2)".SELECT|
00000BE0: 20 41 20 98 22 52 51 24 22 1E 20 54 4F 20 53 45 | A ."RQ$". TO SE|
00000BF0: 41 52 43 48 20 46 4F 52 2E 22 00 22 14 4A 08 99 |ARCH FOR.".".J..|
00000C00: A3 34 31 29 C9 28 42 24 AA 52 51 24 AA 22 3A 20 |.41).(B$.RQ$.": |
00000C10: 98 22 2C 32 30 29 3A 58 43 B2 32 31 3A 59 43 B2 |.",20):XC.21:YC.|
00000C20: 31 31 00 63 14 4E 08 4C 4A B2 C3 28 49 52 24 28 |11.c.N.LJ..(IR$(|
00000C30: 4C 52 2C 43 29 29 3A 44 49 B2 4C 52 3A 4A B2 43 |LR,C)):DI.LR:J.C|
00000C40: 3A 8D 39 37 30 30 3A 53 52 24 B2 58 24 3A 8B 58 |:.9700:SR$.X$:.X|
00000C50: 24 B2 22 2A 22 A7 53 52 24 B2 49 52 24 28 4C 52 |$."*".SR$.IR$(LR|
00000C60: 2C 43 29 00 74 14 4F 08 8B 49 B2 31 33 36 A7 49 |,C).t.O..I.136.I|
00000C70: B2 30 3A 8E 00 B6 14 52 08 41 48 B2 30 3A 81 59 |.0:....R.AH.0:.Y|
00000C80: B2 31 A4 4C 52 3A 57 24 B2 49 52 24 28 59 2C 43 |.1.LR:W$.IR$(Y,C|
00000C90: 29 3A 99 22 93 1E 11 11 20 20 53 45 41 52 43 48 |):.".... SEARCH|
00000CA0: 49 4E 47 20 46 4F 52 20 98 22 53 52 24 22 2E 22 |ING FOR ."SR$"."|
00000CB0: 3A 8D 32 38 31 30 00 CB 14 54 08 8B 49 B2 31 33 |:.2810...T..I.13|
00000CC0: 36 A7 59 B2 4C 52 3A 82 59 3A 8E 00 02 15 56 08 |6.Y.LR:.Y:....V.|
00000CD0: 82 59 3A 8B 41 48 B2 30 A7 99 4F 46 24 A3 32 34 |.Y:.AH.0..OF$.24|
00000CE0: 35 29 22 96 4E 4F 20 98 22 3B 53 52 24 3B 22 96 |5)".NO .";SR$;".|
00000CF0: 20 55 4E 44 45 52 20 98 22 52 51 24 3A 89 32 31 | UNDER ."RQ$:.21|
00000D00: 33 38 00 41 15 58 08 99 45 4F 24 42 24 45 4F 24 |38.A.X..EO$B$EO$|
00000D10: A3 28 31 36 AB C3 28 53 52 24 29 29 AD 32 29 22 |.(16..(SR$)).2)"|
00000D20: 1E 54 48 41 54 27 53 20 41 4C 4C 20 54 48 45 52 |.THAT'S ALL THER|
00000D30: 45 20 49 53 20 4F 46 20 98 22 3B 53 52 24 22 2E |E IS OF .";SR$".|
00000D40: 22 00 53 15 5A 08 8D 39 36 32 30 3A 8D 39 32 39 |".S.Z..9620:.929|
00000D50: 30 3A 8E 00 6A 15 98 08 8F 20 53 45 41 52 43 48 |0:..j.... SEARCH|
00000D60: 20 42 59 20 41 4D 4F 55 4E 54 00 AB 15 A2 08 8D | BY AMOUNT......|
00000D70: 32 38 36 30 3A 41 48 B2 30 3A 57 B2 30 3A 52 51 |2860:AH.0:W.0:RQ|
00000D80: 24 B2 22 50 55 52 43 48 41 53 45 20 50 52 49 43 |$."PURCHASE PRIC|
00000D90: 45 22 3A 8B 43 B2 36 A7 52 51 24 B2 22 43 55 52 |E":.C.6.RQ$."CUR|
00000DA0: 52 45 4E 54 20 56 41 4C 55 45 22 00 EA 15 A4 08 |RENT VALUE".....|
00000DB0: 99 4F 46 24 A3 35 29 22 95 54 48 45 20 98 22 52 |.OF$.5)".THE ."R|
00000DC0: 51 24 22 95 20 54 48 41 54 20 59 4F 55 22 52 24 |Q$". THAT YOU"R$|
00000DD0: A3 35 29 22 57 49 53 48 20 54 4F 20 53 45 41 52 |.5)"WISH TO SEAR|
00000DE0: 43 48 20 46 4F 52 20 49 53 22 00 1B 16 A6 08 99 |CH FOR IS"......|
00000DF0: A3 34 35 29 22 20 47 52 45 41 54 45 52 20 54 48 |.45)" GREATER TH|
00000E00: 41 4E 20 2D 22 A3 38 35 29 22 41 4E 44 20 4C 45 |AN -".85)"AND LE|
00000E10: 53 53 20 54 48 41 4E 20 2D 98 22 00 42 16 AA 08 |SS THAN -.".B...|
00000E20: 58 43 B2 32 31 3A 59 43 B2 31 32 3A 4C 4C B2 31 |XC.21:YC.12:LL.1|
00000E30: 30 3A 44 46 B2 30 3A 8D 39 38 30 30 3A 53 41 B2 |0:DF.0:.9800:SA.|
00000E40: 58 30 00 70 16 AC 08 58 43 B2 32 31 3A 59 43 B2 |X0.p...XC.21:YC.|
00000E50: 31 34 3A 4C 4C B2 31 30 3A 44 46 B2 31 45 36 3A |14:LL.10:DF.1E6:|
00000E60: 99 22 98 22 3A 8D 39 38 30 30 3A 46 41 B2 58 30 |.".":.9800:FA.X0|
00000E70: 00 8B 16 AE 08 8B 46 41 B3 53 41 A7 45 B2 35 3A |......FA.SA.E.5:|
00000E80: 8D 39 35 30 30 3A 89 32 32 30 30 00 B7 16 B0 08 |.9500:.2200.....|
00000E90: 99 52 24 52 24 A3 31 33 AB C3 28 52 51 24 29 AD |.R$R$.13..(RQ$).|
00000EA0: 32 29 22 95 53 45 41 52 43 48 49 4E 47 20 46 4F |2)".SEARCHING FO|
00000EB0: 52 20 98 22 52 51 24 00 F0 16 B1 08 99 A3 35 30 |R ."RQ$.......50|
00000EC0: 29 22 95 20 47 52 45 41 54 45 52 20 54 48 41 4E |)". GREATER THAN|
00000ED0: 20 98 22 53 41 3B 52 24 A3 31 30 29 22 95 41 4E | ."SA;R$.10)".AN|
00000EE0: 44 20 4C 45 53 53 20 54 48 41 4E 20 98 22 46 41 |D LESS THAN ."FA|
00000EF0: 00 FF 16 B2 08 8D 39 32 30 32 3A 41 48 B2 30 00 |......9202:AH.0.|
00000F00: 2A 17 B6 08 81 59 B2 31 A4 4C 52 3A 57 24 B2 49 |*....Y.1.LR:W$.I|
00000F10: 52 24 28 59 2C 43 AA 31 29 3A 57 B2 B6 28 C5 28 |R$(Y,C.1):W..(.(|
00000F20: 57 24 29 29 3A 8D 32 38 32 30 00 3F 17 B8 08 8B |W$)):.2820.?....|
00000F30: 49 B2 31 33 36 A7 59 B2 4C 52 3A 82 59 3A 8E 00 |I.136.Y.LR:.Y:..|
00000F40: 52 17 B9 08 82 59 3A 8B 41 48 B3 B1 30 A7 32 32 |R....Y:.AH..0.22|
00000F50: 33 36 00 74 17 BA 08 99 4F 46 24 52 24 52 24 52 |36.t....OF$R$R$R|
00000F60: 24 52 24 52 24 A3 32 35 30 29 22 96 4E 4F 20 98 |$R$R$.250)".NO .|
00000F70: 22 52 51 24 00 B3 17 BB 08 99 A3 31 30 29 22 96 |"RQ$.......10)".|
00000F80: 20 47 52 45 41 54 45 52 20 54 48 41 4E 20 98 22 | GREATER THAN ."|
00000F90: 53 41 3B 52 24 A3 31 30 29 22 96 41 4E 44 20 4C |SA;R$.10)".AND L|
00000FA0: 45 53 53 20 54 48 41 4E 20 98 22 46 41 3A 89 32 |ESS THAN ."FA:.2|
00000FB0: 32 33 38 00 DD 17 BC 08 99 45 4F 24 42 24 45 4F |238......EO$B$EO|
00000FC0: 24 A3 39 29 22 95 54 48 49 53 20 49 53 20 54 48 |$.9)".THIS IS TH|
00000FD0: 45 20 4C 41 53 54 20 4F 4E 45 2E 98 22 00 E9 17 |E LAST ONE.."...|
00000FE0: BE 08 8D 39 32 39 30 3A 8E 00 0C 18 F0 0A 8F 2E |...9290:........|
00000FF0: 2E 2E 55 54 49 4C 49 54 59 20 46 4F 52 20 53 45 |..UTILITY FOR SE|
00001000: 41 52 43 48 20 53 45 43 54 49 4F 4E 00 49 18 FA |ARCH SECTION.I..|
00001010: 0A 58 B2 C3 28 53 52 24 29 3A 46 B2 C3 28 57 24 |.X..(SR$):F..(W$|
00001020: 29 AB 58 AA 31 3A 81 4A B2 31 A4 46 3A 8B 53 52 |).X.1:.J.1.F:.SR|
00001030: 24 B2 CA 28 57 24 2C 4A 2C 58 29 A7 48 46 B2 31 |$..(W$,J,X).HF.1|
00001040: 3A 4A B2 46 3A 41 48 B2 31 00 5B 18 FC 0A 82 3A |:J.F:AH.1.[....:|
00001050: 8B 48 46 B2 31 A7 8D 32 38 39 30 00 61 18 03 0B |.HF.1..2890.a...|
00001060: 8E 00 7D 18 04 0B 8B 57 B1 B2 53 41 A7 8B 57 B3 |..}....W..SA..W.|
00001070: B2 46 41 A7 48 46 B2 31 3A 41 48 B2 31 00 8D 18 |.FA.HF.1:AH.1...|
00001080: 06 0B 8B 48 46 B2 31 A7 8D 32 38 39 30 00 93 18 |...HF.1..2890...|
00001090: 0D 0B 8E 00 BF 18 2C 0B 99 22 93 22 A3 38 35 29 |......,..".".85)|
000010A0: 22 9B 22 46 43 24 3B 22 1E 22 4C 52 3B 22 9B 49 |"."FC$;"."LR;".I|
000010B0: 54 45 4D 53 1E 22 3B 3A 8D 39 31 36 30 3A 8E 00 |TEMS.";:.9160:..|
000010C0: F6 18 4A 0B 99 22 93 22 A3 38 35 29 22 9B 22 46 |..J..".".85)"."F|
000010D0: 43 24 3B 22 9A 22 4C 52 3B 22 9B 49 54 45 4D 53 |C$;"."LR;".ITEMS|
000010E0: 9A 22 3B 3A 8D 39 34 38 30 3A 8D 39 32 33 30 3A |.";:.9480:.9230:|
000010F0: 48 46 B2 30 3A 8E 00 14 19 B8 0B 8F 20 2A 2A 2A |HF.0:....... ***|
00001100: 2A 20 56 41 4C 55 41 54 49 4F 4E 20 4F 46 20 49 |* VALUATION OF I|
00001110: 54 45 4D 53 00 2A 19 C2 0B 8B 4C 52 B2 30 A7 8D |TEMS.*....LR.0..|
00001120: 39 35 35 34 3A 89 31 30 35 30 00 41 19 CC 0B 8D |9554:.1050.A....|
00001130: 39 31 33 30 3A 8B 43 24 B2 22 45 22 A7 38 30 30 |9130:.C$."E".800|
00001140: 30 00 52 19 CE 0B 8B 43 24 B2 22 4D 22 A7 31 30 |0.R....C$."M".10|
00001150: 35 30 00 70 19 D6 0B 8B 43 B3 31 B0 43 B1 4D 43 |50.p....C.1.C.MC|
00001160: A7 45 B2 31 3A 8D 39 35 30 30 3A 89 33 30 30 30 |.E.1:.9500:.3000|
00001170: 00 80 19 EA 0B 8D 33 31 30 30 3A 89 33 30 30 30 |......3100:.3000|
00001180: 00 A5 19 1C 0C 8F 4C 49 53 54 49 4E 47 20 4C 4F |......LISTING LO|
00001190: 43 2C 43 3D 31 3B 43 41 54 2C 43 3D 32 3B 41 4C |C,C=1;CAT,C=2;AL|
000011A0: 4C 2C 43 3D 33 00 E6 19 26 0C 8D 33 38 36 30 3A |L,C=3...&..3860:|
000011B0: 49 B2 30 3A 56 43 B2 30 3A 50 43 B2 30 3A 52 51 |I.0:VC.0:PC.0:RQ|
000011C0: 24 B2 22 4C 4F 43 41 54 49 4F 4E 22 3A 8B 43 B2 |$."LOCATION":.C.|
000011D0: 32 A7 52 51 24 B2 22 43 41 54 45 47 4F 52 59 22 |2.RQ$."CATEGORY"|
000011E0: 3A 89 33 31 32 30 00 09 1A 28 0C 8B 43 B2 33 A7 |:.3120...(..C.3.|
000011F0: 52 51 24 B2 22 54 4F 54 41 4C 22 3A 53 52 24 B2 |RQ$."TOTAL":SR$.|
00001200: 52 51 24 3A 89 33 31 32 38 00 30 1A 30 0C 99 4F |RQ$:.3128.0.0..O|
00001210: 46 24 A3 35 29 22 1C 53 45 4C 45 43 54 20 41 20 |F$.5)".SELECT A |
00001220: 22 52 51 24 22 20 54 4F 20 56 41 4C 55 45 2E 22 |"RQ$" TO VALUE."|
00001230: 00 46 1A 32 0C 99 A3 35 30 29 22 1C 22 52 51 24 |.F.2...50)"."RQ$|
00001240: 22 20 3A 20 90 22 00 83 1A 34 0C 58 43 B2 32 32 |" : ."...4.XC.22|
00001250: 3A 59 43 B2 31 31 3A 4C 4C B2 31 30 3A 4C 4A B2 |:YC.11:LL.10:LJ.|
00001260: C3 28 49 52 24 28 4C 52 2C 43 29 29 3A 44 49 B2 |.(IR$(LR,C)):DI.|
00001270: 4C 52 3A 4A B2 43 3A 8D 39 37 30 30 3A 53 52 24 |LR:J.C:.9700:SR$|
00001280: B2 58 24 00 9D 1A 36 0C 8B 58 24 B2 22 2A 22 A7 |.X$...6..X$."*".|
00001290: 53 52 24 B2 49 52 24 28 44 49 2C 4A 29 00 CC 1A |SR$.IR$(DI,J)...|
000012A0: 38 0C 99 4F 46 24 A3 31 37 32 29 22 1C 56 41 4C |8..OF$.172)".VAL|
000012B0: 55 49 4E 47 20 95 22 53 52 24 3A 41 48 B2 30 3A |UING ."SR$:AH.0:|
000012C0: 8B 49 B2 31 33 36 A7 49 B2 30 3A 8E 00 E4 1A 3A |.I.136.I.0:....:|
000012D0: 0C 99 45 4F 24 A3 34 35 29 42 24 3B 3A 81 59 B2 |..EO$.45)B$;:.Y.|
000012E0: 31 A4 4C 52 00 1D 1B 3C 0C 56 49 24 B2 49 52 24 |1.LR...<.VI$.IR$|
000012F0: 28 59 2C 37 29 3A 56 49 B2 C5 28 56 49 24 29 3A |(Y,7):VI..(VI$):|
00001300: 57 24 B2 56 49 24 3A 57 B2 56 49 3A 8D 39 36 31 |W$.VI$:W.VI:.961|
00001310: 30 3A 56 49 24 B2 57 24 3A 56 49 B2 57 00 60 1B |0:VI$.W$:VI.W.`.|
00001320: 3E 0C 50 49 24 B2 49 52 24 28 59 2C 36 29 3A 50 |>.PI$.IR$(Y,6):P|
00001330: 49 B2 C5 28 50 49 24 29 3A 57 24 B2 50 49 24 3A |I..(PI$):W$.PI$:|
00001340: 57 B2 50 49 3A 8D 39 36 31 30 3A 50 49 24 B2 57 |W.PI:.9610:PI$.W|
00001350: 24 3A 50 49 B2 57 3A 8B 43 B2 33 A7 33 31 34 32 |$:PI.W:.C.3.3142|
00001360: 00 78 1B 44 0C 8B 53 52 24 B3 B1 49 52 24 28 59 |.x.D..SR$..IR$(Y|
00001370: 2C 43 29 A7 33 31 35 30 00 B4 1B 46 0C 56 43 B2 |,C).3150...F.VC.|
00001380: 56 43 AA C5 28 49 52 24 28 59 2C 37 29 29 3A 50 |VC..(IR$(Y,7)):P|
00001390: 43 B2 50 43 AA C5 28 49 52 24 28 59 2C 36 29 29 |C.PC..(IR$(Y,6))|
000013A0: 3A 56 43 24 B2 C4 28 56 43 29 3A 50 43 24 B2 C4 |:VC$..(VC):PC$..|
000013B0: 28 50 43 29 00 E9 1B 4E 0C 82 59 3A 8B 50 43 B2 |(PC)...N..Y:.PC.|
000013C0: B3 30 A7 99 4F 46 24 A3 32 35 30 29 22 95 4E 4F |.0..OF$.250)".NO|
000013D0: 20 90 22 53 52 24 22 95 20 54 4F 20 56 41 4C 55 | ."SR$". TO VALU|
000013E0: 45 2E 22 3A 89 33 31 39 39 00 29 1C 50 0C 57 24 |E.":.3199.).P.W$|
000013F0: B2 50 43 24 3A 57 B2 50 43 3A 8D 39 36 31 30 3A |.PC$:W.PC:.9610:|
00001400: 50 43 24 B2 57 24 3A 50 43 B2 57 3A 57 24 B2 56 |PC$.W$:PC.W:W$.V|
00001410: 43 24 3A 57 B2 56 43 3A 8D 39 36 31 30 3A 56 43 |C$:W.VC:.9610:VC|
00001420: 24 B2 57 24 3A 56 43 B2 57 00 63 1C 52 0C 8D 39 |$.W$:VC.W.c.R..9|
00001430: 36 32 30 3A 99 4F 46 24 A3 32 34 32 29 22 1C 22 |620:.OF$.242)"."|
00001440: 53 52 24 22 20 50 55 52 43 48 41 53 45 20 50 52 |SR$" PURCHASE PR|
00001450: 49 43 45 3A 90 24 22 C9 28 42 24 AA 50 43 24 2C |ICE:.$".(B$.PC$,|
00001460: 31 30 29 00 93 1C 54 0C 99 A3 34 32 29 22 1C 22 |10)...T...42)"."|
00001470: 53 52 24 22 20 20 43 55 52 52 45 4E 54 20 56 41 |SR$" CURRENT VA|
00001480: 4C 55 45 3A 90 24 22 C9 28 42 24 AA 56 43 24 2C |LUE:.$".(B$.VC$,|
00001490: 31 30 29 00 A5 1C 7F 0C 8D 39 36 32 30 3A 8D 39 |10)......9620:.9|
000014A0: 32 36 30 3A 8E 00 CF 1C 14 0F 99 22 93 22 A3 38 |260:.......".".8|
000014B0: 35 29 22 96 22 46 43 24 22 90 22 4C 52 22 96 49 |5)"."FC$"."LR".I|
000014C0: 54 45 4D 53 1C 22 3B 3A 8D 39 31 36 30 3A 8E 00 |TEMS.";:.9160:..|
000014D0: EA 1C A0 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |..... ********* |
000014E0: 4C 49 53 54 20 49 54 45 4D 53 00 00 1D AA 0F 8B |LIST ITEMS......|
000014F0: 4C 52 B2 30 A7 8D 39 35 35 34 3A 89 31 30 35 30 |LR.0..9554:.1050|
00001500: 00 17 1D B4 0F 8D 39 31 34 30 3A 8B 43 24 B2 22 |......9140:.C$."|
00001510: 45 22 A7 38 30 30 30 00 28 1D B6 0F 8B 43 24 B2 |E".8000.(....C$.|
00001520: 22 4D 22 A7 31 30 35 30 00 46 1D BE 0F 8B 43 B3 |"M".1050.F....C.|
00001530: 31 B0 43 B1 4D 43 A7 45 B2 31 3A 8D 39 35 30 30 |1.C.MC.E.1:.9500|
00001540: 3A 89 34 30 30 30 00 56 1D D2 0F 8D 34 31 30 30 |:.4000.V....4100|
00001550: 3A 89 34 30 30 30 00 93 1D 04 10 8F 20 53 45 54 |:.4000...... SET|
00001560: 20 55 50 20 46 4F 52 20 53 43 52 45 45 4E 20 26 | UP FOR SCREEN &|
00001570: 20 50 52 49 4E 54 45 52 20 28 53 43 52 45 45 4E | PRINTER (SCREEN|
00001580: 3A 43 3D 31 20 3B 20 50 52 49 4E 54 45 52 3A 43 |:C=1 ; PRINTER:C|
00001590: 3D 32 29 00 BE 1D 06 10 8D 34 38 36 30 3A 99 4F |=2)......4860:.O|
000015A0: 46 24 A3 35 29 22 1F 44 4F 20 59 4F 55 20 57 49 |F$.5)".DO YOU WI|
000015B0: 53 48 20 54 4F 20 4C 49 53 54 20 4F 4E 22 00 FE |SH TO LIST ON"..|
000015C0: 1D 08 10 99 A3 34 35 29 22 12 20 53 20 92 20 53 |.....45)". S . S|
000015D0: 43 52 45 45 4E 22 A3 35 30 29 22 4F 52 22 A3 34 |CREEN".50)"OR".4|
000015E0: 35 29 22 12 20 50 20 92 20 50 52 49 4E 54 45 52 |5)". P . PRINTER|
000015F0: 3F 22 3A 59 43 B2 31 33 3A 58 43 B2 32 35 00 1F |?":YC.13:XC.25..|
00001600: 1E 0A 10 44 46 24 B2 22 53 22 3A 8D 39 37 35 30 |...DF$."S":.9750|
00001610: 3A 49 24 B2 58 24 3A 8B 49 B2 31 33 36 A7 8E 00 |:I$.X$:.I.136...|
00001620: 5E 1E 0C 10 48 46 B2 30 3A 4C B2 30 3A 50 47 B2 |^...HF.0:L.0:PG.|
00001630: 30 3A 44 56 B2 33 3A 44 56 24 B2 22 53 43 52 45 |0:DV.3:DV$."SCRE|
00001640: 45 4E 22 3A 8B 49 24 B2 22 50 22 A7 44 56 B2 34 |EN":.I$."P".DV.4|
00001650: 3A 44 56 24 B2 22 50 52 49 4E 54 45 52 22 00 7B |:DV$."PRINTER".{|
00001660: 1E 0E 10 8B 44 56 B2 33 A7 A0 34 3A 9F 34 2C 33 |....DV.3..4:.4,3|
00001670: 3A 50 47 B2 30 3A 89 34 31 31 36 00 9C 1E 10 10 |:PG.0:.4116.....|
00001680: A0 34 3A 9F 34 2C 34 2C 37 3A A0 34 3A 8B 53 54 |.4:.4,4,7:.4:.ST|
00001690: A7 45 B2 34 3A 8D 39 35 30 30 3A 8E 00 AA 1E 12 |.E.4:.9500:.....|
000016A0: 10 A0 34 3A 9F 34 2C 34 2C 37 00 DD 1E 14 10 4C |..4:.4,4,7.....L|
000016B0: 4C B2 31 30 3A 52 51 24 B2 22 4C 4F 43 41 54 49 |L.10:RQ$."LOCATI|
000016C0: 4F 4E 22 3A 8B 43 B2 32 A7 52 51 24 B2 22 43 41 |ON":.C.2.RQ$."CA|
000016D0: 54 45 47 4F 52 59 22 3A 89 34 31 32 30 00 02 1F |TEGORY":.4120...|
000016E0: 16 10 8B 43 B2 33 A7 52 51 24 B2 22 54 4F 54 41 |...C.3.RQ$."TOTA|
000016F0: 4C 22 3A 53 52 24 B2 22 41 4C 4C 22 3A 89 34 31 |L":SR$."ALL":.41|
00001700: 32 38 00 44 1F 18 10 99 4F 46 24 A3 32 34 35 29 |28.D....OF$.245)|
00001710: 22 1F 53 45 4C 45 43 54 20 41 20 90 22 52 51 24 |".SELECT A ."RQ$|
00001720: 22 1F 20 54 4F 20 4C 49 53 54 2E 22 A3 39 30 29 |". TO LIST.".90)|
00001730: 52 51 24 22 20 3A 20 22 3A 59 43 B2 31 37 3A 58 |RQ$" : ":YC.17:X|
00001740: 43 B2 32 32 00 84 1F 19 10 4C 4A B2 C3 28 49 52 |C.22.....LJ..(IR|
00001750: 24 28 4C 52 2C 43 29 29 3A 44 49 B2 4C 52 3A 4A |$(LR,C)):DI.LR:J|
00001760: B2 43 3A 8D 39 37 30 30 3A 8B 58 24 B2 22 2A 22 |.C:.9700:.X$."*"|
00001770: A7 53 52 24 B2 49 52 24 28 4C 52 2C 43 29 3A 89 |.SR$.IR$(LR,C):.|
00001780: 34 31 32 38 00 AC 1F 1A 10 53 52 24 B2 58 24 3A |4128.....SR$.X$:|
00001790: 8B 49 B2 31 33 36 AF 4C B1 33 A7 8D 34 38 34 30 |.I.136.L.3..4840|
000017A0: 3A 8D 34 38 35 30 3A 89 34 31 37 39 00 C1 1F 1B |:.4850:.4179....|
000017B0: 10 8B 49 B2 31 33 36 A7 49 B2 30 3A 89 34 31 31 |..I.136.I.0:.411|
000017C0: 36 00 D1 1F 20 10 8B 44 56 B2 34 A7 8D 34 38 31 |6... ..DV.4..481|
000017D0: 30 00 E2 1F 21 10 8B 44 56 B3 B1 34 A7 8D 34 38 |0...!..DV..4..48|
000017E0: 33 30 00 06 20 22 10 43 54 B2 30 3A 50 54 B2 30 |30.. ".CT.0:PT.0|
000017F0: 3A 56 54 B2 30 3A 46 B2 4C 52 3A 81 59 B2 31 A4 |:VT.0:F.LR:.Y.1.|
00001800: 46 3A 53 50 B2 39 00 33 20 23 10 A1 49 24 3A 49 |F:SP.9.3 #..I$:I|
00001810: B2 C6 28 49 24 AA C7 28 30 29 29 3A 8B 49 B2 31 |..(I$..(0)):.I.1|
00001820: 33 36 AF 44 56 B2 34 A7 8D 34 38 34 30 3A 89 34 |36.DV.4..4840:.4|
00001830: 31 37 39 00 55 20 24 10 8B 49 B2 31 33 36 A7 59 |179.U $..I.136.Y|
00001840: B2 46 3A 82 3A 8D 34 38 35 30 3A 99 22 93 22 3A |.F:.:.4850:.".":|
00001850: 89 34 31 37 39 00 63 20 25 10 8B 43 B2 33 89 34 |.4179.c %..C.3.4|
00001860: 31 33 36 00 7B 20 26 10 8B 53 52 24 B3 B1 49 52 |136.{ &..SR$..IR|
00001870: 24 28 59 2C 43 29 A7 34 31 36 30 00 AF 20 28 10 |$(Y,C).4160.. (.|
00001880: 50 49 B2 C5 28 49 52 24 28 59 2C 36 29 29 3A 50 |PI..(IR$(Y,6)):P|
00001890: 54 B2 50 54 AA 50 49 3A 56 49 B2 C5 28 49 52 24 |T.PT.PI:VI..(IR$|
000018A0: 28 59 2C 37 29 29 3A 56 54 B2 56 54 AA 56 49 00 |(Y,7)):VT.VT.VI.|
000018B0: DF 20 2A 10 57 24 B2 C4 28 50 49 29 3A 8D 39 36 |. *.W$..(PI):.96|
000018C0: 31 30 3A 50 49 24 B2 57 24 3A 57 24 B2 C4 28 56 |10:PI$.W$:W$..(V|
000018D0: 49 29 3A 8D 39 36 31 30 3A 56 49 24 B2 57 24 00 |I):.9610:VI$.W$.|
000018E0: F9 20 2C 10 98 34 2C C4 28 59 29 A6 35 AB 28 C3 |. ,..4,.(Y).5.(.|
000018F0: 28 C4 28 59 29 29 29 29 3B 00 20 21 2D 10 8B 43 |(.(Y))));. !-..C|
00001900: B3 B1 31 A7 98 34 2C 49 52 24 28 59 2C 31 29 A6 |..1..4,IR$(Y,1).|
00001910: 31 31 AB C3 28 49 52 24 28 59 2C 31 29 29 29 3B |11..(IR$(Y,1)));|
00001920: 00 47 21 2E 10 8B 43 B3 B1 32 A7 98 34 2C 49 52 |.G!...C..2..4,IR|
00001930: 24 28 59 2C 32 29 A6 31 31 AB C3 28 49 52 24 28 |$(Y,2).11..(IR$(|
00001940: 59 2C 32 29 29 29 3B 00 70 21 2F 10 8B 44 56 B2 |Y,2)));.p!/..DV.|
00001950: 33 AF 43 B2 33 A7 98 34 2C C8 28 49 52 24 28 59 |3.C.3..4,.(IR$(Y|
00001960: 2C 33 29 2C 31 32 29 52 24 3B 3A 89 34 31 34 36 |,3),12)R$;:.4146|
00001970: 00 8F 21 30 10 8B 44 56 B2 33 A7 98 34 2C 49 52 |..!0..DV.3..4,IR|
00001980: 24 28 59 2C 33 29 52 24 3B 3A 89 34 31 34 36 00 |$(Y,3)R$;:.4146.|
00001990: B0 21 31 10 98 34 2C 49 52 24 28 59 2C 33 29 A6 |.!1..4,IR$(Y,3).|
000019A0: 31 36 AB C3 28 49 52 24 28 59 2C 33 29 29 29 3B |16..(IR$(Y,3)));|
000019B0: 00 DC 21 32 10 98 34 2C 49 52 24 28 59 2C 34 29 |..!2..4,IR$(Y,4)|
000019C0: A6 31 36 AB C3 28 49 52 24 28 59 2C 34 29 29 29 |.16..(IR$(Y,4)))|
000019D0: 3B 3A 8B 44 56 B2 33 A7 34 31 34 38 00 0B 22 33 |;:.DV.3.4148.."3|
000019E0: 10 8B 43 B3 B1 33 A7 98 34 2C 49 52 24 28 59 2C |..C..3..4,IR$(Y,|
000019F0: 35 29 A6 31 30 AB C3 28 49 52 24 28 59 2C 35 29 |5).10..(IR$(Y,5)|
00001A00: 29 29 3B 3A 53 50 B2 53 50 AA 31 00 43 22 34 10 |));:SP.SP.1.C"4.|
00001A10: 98 34 2C C7 28 31 35 29 A6 53 50 AB C3 28 50 49 |.4,.(15).SP..(PI|
00001A20: 24 29 29 50 49 24 3B A6 31 31 AB C3 28 56 49 24 |$))PI$;.11..(VI$|
00001A30: 29 29 56 49 24 3A 4C B2 4C AA 31 3A 43 54 B2 43 |))VI$:L.L.1:CT.C|
00001A40: 54 AA 31 00 72 22 35 10 8B 44 56 B2 33 A7 4C B2 |T.1.r"5..DV.3.L.|
00001A50: 4C AA 31 3A 8B 4C B1 31 39 A7 8D 39 32 36 30 3A |L.1:.L.19..9260:|
00001A60: 98 34 2C 22 93 22 3A 8D 34 38 33 30 3A 89 34 31 |.4,".":.4830:.41|
00001A70: 36 30 00 8D 22 36 10 8B 4C B1 36 31 A7 8D 34 38 |60.."6..L.61..48|
00001A80: 37 30 3A 48 46 B2 30 3A 8D 34 38 31 30 00 CE 22 |70:HF.0:.4810.."|
00001A90: 40 10 82 59 3A 8B 43 54 B2 30 A7 98 34 2C 52 24 |@..Y:.CT.0..4,R$|
00001AA0: 52 24 3B A6 36 29 3B 22 CE 4F 20 90 22 3B 53 52 |R$;.6);".O .";SR|
00001AB0: 24 3B 22 1F 20 49 4E 56 45 4E 54 4F 52 59 20 54 |$;". INVENTORY T|
00001AC0: 4F 20 4C 49 53 54 2E 22 3A 4C B2 4C AA 33 00 FE |O LIST.":L.L.3..|
00001AD0: 22 42 10 57 24 B2 C4 28 50 54 29 3A 8D 39 36 31 |"B.W$..(PT):.961|
00001AE0: 30 3A 50 54 24 B2 57 24 3A 57 24 B2 C4 28 56 54 |0:PT$.W$:W$..(VT|
00001AF0: 29 3A 8D 39 36 31 30 3A 56 54 24 B2 57 24 00 27 |):.9610:VT$.W$.'|
00001B00: 23 43 10 8B 44 56 B2 33 A7 8B 4C B1 31 38 A7 8D |#C..DV.3..L.18..|
00001B10: 39 32 36 30 3A 98 34 2C 22 93 22 3A 8D 34 38 33 |9260:.4,".":.483|
00001B20: 30 3A 89 34 31 36 36 00 42 23 44 10 8B 4C B1 36 |0:.4166.B#D..L.6|
00001B30: 31 A7 8D 34 38 37 30 3A 48 46 B2 30 3A 8D 34 38 |1..4870:HF.0:.48|
00001B40: 31 30 00 71 23 46 10 98 34 2C 52 24 22 1F D4 4F |10.q#F..4,R$"..O|
00001B50: 54 41 4C 20 28 90 22 43 54 22 1F 49 54 45 4D 53 |TAL (."CT".ITEMS|
00001B60: 20 29 22 A6 34 33 AB C3 28 C4 28 43 54 29 29 29 | )".43..(.(CT)))|
00001B70: 3B 00 83 23 47 10 8B 44 56 B2 33 A7 99 22 9D 9D |;..#G..DV.3.."..|
00001B80: 9D 22 3B 00 B7 23 48 10 98 34 2C 22 24 90 22 A6 |.";..#H..4,"$.".|
00001B90: 39 AB C3 28 50 54 24 29 29 50 54 24 22 1F 20 24 |9..(PT$))PT$". $|
00001BA0: 90 22 A6 39 AB C3 28 56 54 24 29 29 56 54 24 52 |.".9..(VT$))VT$R|
00001BB0: 24 3A 4C B2 4C AA 33 00 CA 23 4A 10 8B 43 B2 33 |$:L.L.3..#J..C.3|
00001BC0: AF 44 56 B2 34 A7 34 31 37 39 00 E9 23 4C 10 8B |.DV.4.4179..#L..|
00001BD0: 43 B2 33 AF 44 56 B2 33 A7 8D 39 32 36 30 3A 99 |C.3.DV.3..9260:.|
00001BE0: 22 93 22 3A 89 34 31 37 39 00 F9 23 4D 10 8B 44 |".":.4179..#M..D|
00001BF0: 56 B2 33 A7 8D 39 32 36 30 00 40 24 4E 10 99 22 |V.3..9260.@$N.."|
00001C00: 93 22 4F 46 24 22 1F 8E 20 20 20 20 20 50 52 45 |."OF$".. PRE|
00001C10: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |SS ANY KEY TO CO|
00001C20: 4E 54 49 4E 55 45 20 54 4F 22 3A 99 2C 22 11 20 |NTINUE TO":.,". |
00001C30: 4C 49 53 54 20 42 59 20 90 22 52 51 24 22 2E 22 |LIST BY ."RQ$"."|
00001C40: 00 66 24 4F 10 99 2C 22 11 11 1F 50 52 45 53 53 |.f$O..,"...PRESS|
00001C50: 20 12 20 46 37 20 92 20 54 4F 20 53 54 4F 50 2E | . F7 . TO STOP.|
00001C60: 22 3A 48 46 B2 30 00 94 24 50 10 8D 39 36 32 30 |":HF.0..$P..9620|
00001C70: 3A 8D 39 32 39 36 3A 8B 49 B3 B1 31 33 36 A7 99 |:.9296:.I..136..|
00001C80: 22 8E 22 3A 8D 34 38 36 30 3A 48 46 B2 31 3A 89 |".":.4860:HF.1:.|
00001C90: 34 31 32 30 00 A4 24 51 10 8B 44 56 B2 34 A7 8D |4120..$Q..DV.4..|
00001CA0: 34 38 34 30 00 B5 24 52 10 8B 44 56 B3 B1 34 A7 |4840..$R..DV..4.|
00001CB0: 8D 34 38 35 30 00 CE 24 53 10 99 22 93 22 3A 8D |.4850..$S..".":.|
00001CC0: 34 38 37 30 3A A0 34 3A 99 22 8E 22 3A 8E 00 EF |4870:.4:.".":...|
00001CD0: 24 C0 12 8F 20 55 54 49 4C 49 54 49 45 53 20 46 |$... UTILITIES F|
00001CE0: 4F 52 20 54 48 49 53 20 53 45 43 54 49 4F 4E 00 |OR THIS SECTION.|
00001CF0: FE 24 CA 12 8B 48 46 B2 31 A7 34 38 31 33 00 33 |.$...HF.1.4813.3|
00001D00: 25 CB 12 50 47 B2 50 47 AA 31 3A 98 34 2C 52 24 |%..PG.PG.1:.4,R$|
00001D10: 22 93 1F C8 4F 4D 45 20 C9 4E 56 45 4E 54 4F 52 |"...OME .NVENTOR|
00001D20: 59 22 A6 31 37 29 22 0E C9 D4 C5 CD A0 CC C9 D3 |Y".17)".........|
00001D30: D4 22 3B 00 5D 25 CC 12 98 34 2C C7 28 31 35 29 |.";.]%...4,.(15)|
00001D40: A6 32 32 29 22 D0 41 47 45 22 50 47 3B 52 24 3A |.22)".AGE"PG;R$:|
00001D50: 4C B2 33 3A 8B 43 B2 33 89 34 38 31 34 00 7B 25 |L.3:.C.3.4814.{%|
00001D60: CD 12 98 34 2C 22 10 33 30 22 52 51 24 22 20 3A |...4,".30"RQ$" :|
00001D70: 20 22 53 52 24 3A 4C B2 4C AA 31 00 A3 25 CE 12 | "SR$:L.L.1..%..|
00001D80: 98 34 2C 22 C9 54 45 4D 20 22 3B 3A 8B 43 B3 B1 |.4,".TEM ";:.C..|
00001D90: 31 A7 98 34 2C 22 CC 4F 43 41 54 49 4F 4E 20 20 |1..4,".OCATION |
00001DA0: 20 22 3B 00 BF 25 CF 12 8B 43 B3 B1 32 A7 98 34 | ";..%...C..2..4|
00001DB0: 2C 22 C3 41 54 45 47 4F 52 59 20 20 20 22 3B 00 |,".ATEGORY ";.|
00001DC0: F4 25 D0 12 98 34 2C 22 C4 45 53 43 52 49 50 54 |.%...4,".ESCRIPT|
00001DD0: 49 4F 4E 20 20 20 20 20 22 3B 3A 8B 44 56 B2 33 |ION ";:.DV.3|
00001DE0: A7 98 34 2C 52 24 3B 3A 8B 43 B2 33 A7 98 34 2C |..4,R$;:.C.3..4,|
00001DF0: 22 91 22 3B 00 1A 26 D1 12 98 34 2C 22 D3 45 52 |".";..&...4,".ER|
00001E00: 49 41 4C 20 CE 55 4D 42 45 52 20 20 20 22 3B 3A |IAL .UMBER ";:|
00001E10: 8B 44 56 B2 33 A7 34 38 31 39 00 36 26 D2 12 8B |.DV.3.4819.6&...|
00001E20: 43 B3 B1 33 A7 98 34 2C 22 D0 55 52 2E C4 41 54 |C..3..4,".UR..AT|
00001E30: 45 20 20 20 22 3B 00 5E 26 D3 12 98 34 2C 22 D0 |E ";.^&...4,".|
00001E40: 55 52 2E D0 52 49 43 45 20 20 C3 55 52 2E D6 41 |UR..RICE .UR..A|
00001E50: 4C 55 45 22 52 24 3A 4C B2 4C AA 32 3A 8E 00 8D |LUE"R$:L.L.2:...|
00001E60: 26 DE 12 50 47 B2 50 47 AA 31 3A 98 34 2C 22 93 |&..PG.PG.1:.4,".|
00001E70: 1F 0E C8 4F 4D 45 20 C9 4E 56 45 4E 54 4F 52 59 |...OME .NVENTORY|
00001E80: 20 20 C9 D4 C5 CD A0 CC C9 D3 D4 22 3B 00 B3 26 | .........";..&|
00001E90: DF 12 98 34 2C C7 28 31 35 29 A6 36 29 22 D0 41 |...4,.(15).6)".A|
00001EA0: 47 45 22 50 47 3A 4C B2 31 3A 8B 43 B2 33 A7 34 |GE"PG:L.1:.C.3.4|
00001EB0: 38 31 34 00 D4 26 E0 12 99 A3 31 30 29 52 51 24 |814..&....10)RQ$|
00001EC0: 22 20 3A 20 22 53 52 24 3A 4C B2 4C AA 31 3A 89 |" : "SR$:L.L.1:.|
00001ED0: 34 38 31 34 00 09 27 E8 12 98 34 2C 52 24 52 24 |4814..'...4,R$R$|
00001EE0: A6 33 30 29 22 91 12 20 53 54 4F 50 50 45 44 20 |.30)".. STOPPED |
00001EF0: 92 20 42 59 20 12 20 46 37 20 92 20 4B 45 59 2E |. BY . F7 . KEY.|
00001F00: 22 3A 4C B2 4C AA 33 3A 8E 00 45 27 F2 12 99 22 |":L.L.3:..E'..."|
00001F10: 93 22 4F 46 24 A3 32 35 30 29 22 8E 1F 12 20 53 |."OF$.250)"... S|
00001F20: 54 4F 50 50 45 44 20 92 20 42 59 20 12 20 46 37 |TOPPED . BY . F7|
00001F30: 20 92 20 4B 45 59 2E 22 3A 8D 39 32 30 32 3A 99 | . KEY.":.9202:.|
00001F40: 22 93 22 3A 8E 00 6F 27 FC 12 99 22 93 22 A3 38 |".":..o'...".".8|
00001F50: 35 29 22 97 22 46 43 24 22 1F 22 4C 52 22 97 49 |5)"."FC$"."LR".I|
00001F60: 54 45 4D 53 1F 22 3B 3A 8D 39 31 36 30 3A 8E 00 |TEMS.";:.9160:..|
00001F70: 87 27 06 13 81 4C B2 4C A4 36 35 3A 98 34 3A 82 |.'...L.L.65:.4:.|
00001F80: 4C 3A 4C B2 30 3A 8E 00 A1 27 40 1F 97 42 44 2C |L:L.0:...'@..BD,|
00001F90: 33 3A 8B 4C 52 B2 30 B0 45 46 B2 30 A7 38 30 35 |3:.LR.0.EF.0.805|
00001FA0: 30 00 D2 27 54 1F 99 22 93 22 A3 38 32 29 22 1C |0..'T..".".82)".|
00001FB0: 59 4F 55 20 48 41 56 45 4E 27 54 20 59 45 54 20 |YOU HAVEN'T YET |
00001FC0: 53 41 56 45 44 20 54 48 45 20 43 48 41 4E 47 45 |SAVED THE CHANGE|
00001FD0: 53 22 00 00 28 56 1F 99 22 20 57 48 49 43 48 20 |S"..(V.." WHICH |
00001FE0: 59 4F 55 20 4D 41 44 45 20 54 4F 20 54 48 45 20 |YOU MADE TO THE |
00001FF0: 49 4E 56 45 4E 54 4F 52 59 20 46 49 4C 45 2E 22 |INVENTORY FILE."|
00002000: 00 2A 28 57 1F 99 A3 38 32 29 22 9C 49 46 20 59 |.*(W...82)".IF Y|
00002010: 4F 55 20 57 41 4E 54 20 54 4F 20 53 41 56 45 20 |OU WANT TO SAVE |
00002020: 54 48 45 20 46 49 4C 45 2C 22 00 5A 28 58 1F 99 |THE FILE,".Z(X..|
00002030: A3 34 32 29 22 50 52 45 53 53 20 12 20 46 37 20 |.42)"PRESS . F7 |
00002040: 92 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D |. TO RETURN TO M|
00002050: 41 49 4E 20 4D 45 4E 55 2E 22 00 89 28 59 1F 99 |AIN MENU."..(Y..|
00002060: A3 38 32 29 22 1E 49 46 20 59 4F 55 20 52 45 41 |.82)".IF YOU REA|
00002070: 4C 4C 59 20 12 20 44 4F 20 92 20 57 41 4E 54 20 |LLY . DO . WANT |
00002080: 54 4F 20 45 58 49 54 2C 22 00 B3 28 5A 1F 99 A3 |TO EXIT,"..(Z...|
00002090: 34 32 29 22 50 52 45 53 53 20 12 20 41 4E 59 20 |42)"PRESS . ANY |
000020A0: 4F 54 48 45 52 20 4B 45 59 20 92 2E 22 3A 8D 39 |OTHER KEY ..":.9|
000020B0: 32 35 30 00 C3 28 5E 1F 8B 49 B2 31 33 36 A7 31 |250..(^..I.136.1|
000020C0: 30 35 30 00 DE 28 72 1F 99 22 93 22 4F 46 24 2C |050..(r.."."OF$,|
000020D0: 22 9A 44 4F 4E 45 2E 09 11 11 11 22 3A 80 00 F5 |".DONE.....":...|
000020E0: 28 C4 22 81 58 B2 31 A4 39 3A A0 58 3A 82 58 3A |(.".X.1.9:.X:.X:|
000020F0: 89 31 30 35 30 00 09 29 28 23 8F 20 2A 2A 2A 2A |.1050..)(#. ****|
00002100: 2A 20 55 54 49 4C 49 54 59 00 2A 29 2C 23 4C 24 |* UTILITY.*),#L$|
00002110: 28 30 29 B2 22 20 20 20 20 20 20 49 54 45 4D 20 |(0)." ITEM |
00002120: 4E 55 4D 42 45 52 20 3A 20 22 00 61 29 2E 23 4C |NUMBER : ".a).#L|
00002130: 24 28 31 29 B2 22 20 20 20 20 20 20 20 20 20 4C |$(1)." L|
00002140: 4F 43 41 54 49 4F 4E 20 3A 20 12 20 20 20 20 20 |OCATION : . |
00002150: 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 92 | ...........|
00002160: 22 00 98 29 30 23 4C 24 28 32 29 B2 22 20 20 20 |"..)0#L$(2)." |
00002170: 20 20 20 20 20 20 43 41 54 45 47 4F 52 59 20 3A | CATEGORY :|
00002180: 20 12 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D | . ....|
00002190: 9D 9D 9D 9D 9D 9D 92 22 00 D9 29 32 23 4C 24 28 |......."..)2#L$(|
000021A0: 33 29 B2 22 20 20 20 20 20 20 44 45 53 43 52 49 |3)." DESCRI|
000021B0: 50 54 49 4F 4E 20 3A 20 12 20 20 20 20 20 20 20 |PTION : . |
000021C0: 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D | ........|
000021D0: 9D 9D 9D 9D 9D 9D 9D 92 22 00 1A 2A 34 23 4C 24 |........"..*4#L$|
000021E0: 28 34 29 B2 22 20 20 20 20 20 20 20 53 45 52 49 |(4)." SERI|
000021F0: 41 4C 20 4E 4F 2E 20 3A 20 12 20 20 20 20 20 20 |AL NO. : . |
00002200: 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D | .......|
00002210: 9D 9D 9D 9D 9D 9D 9D 9D 92 22 00 4D 2A 36 23 4C |.........".M*6#L|
00002220: 24 28 35 29 B2 22 20 20 20 20 50 55 52 43 48 41 |$(5)." PURCHA|
00002230: 53 45 20 44 41 54 45 20 3A 20 12 20 20 20 20 20 |SE DATE : . |
00002240: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 92 22 00 84 2A | ........."..*|
00002250: 38 23 4C 24 28 36 29 B2 22 20 20 20 50 55 52 43 |8#L$(6)." PURC|
00002260: 48 41 53 45 20 50 52 49 43 45 20 3A 20 12 20 20 |HASE PRICE : . |
00002270: 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D | ........|
00002280: 9D 9D 92 22 00 BB 2A 3A 23 4C 24 28 37 29 B2 22 |..."..*:#L$(7)."|
00002290: 20 20 20 20 43 55 52 52 45 4E 54 20 56 41 4C 55 | CURRENT VALU|
000022A0: 45 20 3A 20 12 20 20 20 20 20 20 20 20 20 20 9D |E : . .|
000022B0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 92 22 00 EE 2A 3C 23 |.........."..*<#|
000022C0: 4C 24 28 38 29 B2 22 20 20 20 56 41 4C 55 41 54 |L$(8)." VALUAT|
000022D0: 49 4F 4E 20 44 41 54 45 20 3A 20 12 20 20 20 20 |ION DATE : . |
000022E0: 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 92 22 00 0F | ........."..|
000022F0: 2B 46 23 45 24 B2 22 45 4E 54 45 52 20 4C 45 54 |+F#E$."ENTER LET|
00002300: 54 45 52 20 4F 46 20 43 48 4F 49 43 45 20 22 00 |TER OF CHOICE ".|
00002310: 42 2B 48 23 41 33 24 B2 22 20 20 20 20 20 12 20 |B+H#A3$." . |
00002320: 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 | PRESS ANY KEY T|
00002330: 4F 20 43 4F 4E 54 49 4E 55 45 20 20 92 20 20 20 |O CONTINUE . |
00002340: 20 22 00 73 2B 49 23 41 32 24 B2 22 20 20 20 20 | ".s+I#A2$." |
00002350: 20 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 | PRESS ANY KEY|
00002360: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 20 20 20 | TO CONTINUE |
00002370: 20 20 22 00 A6 2B 4A 23 41 24 B2 22 90 20 20 20 | "..+J#A$.". |
00002380: 20 20 12 20 20 50 52 45 53 53 20 41 4E 59 20 4B | . PRESS ANY K|
00002390: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 20 |EY TO CONTINUE |
000023A0: 92 20 20 20 20 22 00 D8 2B 4B 23 41 31 24 B2 22 |. "..+K#A1$."|
000023B0: 90 20 20 20 20 20 20 20 50 52 45 53 53 20 41 4E |. PRESS AN|
000023C0: 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |Y KEY TO CONTINU|
000023D0: 45 20 20 20 20 20 20 22 00 02 2C 4C 23 46 24 B2 |E "..,L#F$.|
000023E0: 22 90 20 20 20 20 50 52 45 50 41 52 45 20 54 48 |". PREPARE TH|
000023F0: 45 20 49 4E 56 45 4E 54 4F 52 59 20 44 41 54 41 |E INVENTORY DATA|
00002400: 20 22 00 33 2C 4D 23 46 31 24 B2 22 20 20 20 20 | ".3,M#F1$." |
00002410: 20 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 | PRESS ANY KEY|
00002420: 20 57 48 45 4E 20 52 45 41 44 59 20 20 20 20 20 | WHEN READY |
00002430: 20 20 22 00 61 2C 4E 23 46 37 24 B2 22 90 50 52 | ".a,N#F7$.".PR|
00002440: 45 53 53 20 12 20 46 37 20 92 20 54 4F 20 50 52 |ESS . F7 . TO PR|
00002450: 45 53 45 52 56 45 20 54 48 45 20 49 54 45 4D 2E |ESERVE THE ITEM.|
00002460: 22 00 A0 2C 52 23 43 44 24 B2 22 13 11 11 11 11 |"..,R#CD$.".....|
00002470: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002480: 11 11 11 11 22 3A 4F 46 24 B2 C8 28 43 44 24 2C |....":OF$..(CD$,|
00002490: 39 29 3A 45 4F 24 B2 C8 28 43 44 24 2C 32 33 29 |9):EO$..(CD$,23)|
000024A0: 00 E7 2C 54 23 4C 24 B2 22 A4 A4 A4 A4 A4 A4 A4 |..,T#L$.".......|
000024B0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 3A 42 |.............":B|
000024C0: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
000024D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000024E0: 20 20 20 20 20 20 22 00 34 2D 56 23 43 4C 24 B2 | ".4-V#CL$.|
000024F0: 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |"...............|
00002500: 9D 9D 9D 9D 9D 9D 22 3A 43 52 24 B2 22 1D 1D 1D |......":CR$."...|
00002510: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002520: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3A 52 24 B2 C7 |..........":R$..|
00002530: 28 31 33 29 00 5E 2D 5E 23 46 43 24 B2 22 54 48 |(13).^-^#FC$."TH|
00002540: 49 53 20 46 49 4C 45 20 43 4F 4E 54 41 49 4E 53 |IS FILE CONTAINS|
00002550: 22 3A 4E 24 B2 22 1F 49 54 45 4D 20 23 22 00 8E |":N$.".ITEM #"..|
00002560: 2D 60 23 44 45 24 B2 22 1F 50 52 45 53 53 20 41 |-`#DE$.".PRESS A|
00002570: 4E 59 20 4B 45 59 20 54 4F 20 44 45 4C 45 54 45 |NY KEY TO DELETE|
00002580: 20 54 48 49 53 20 49 54 45 4D 2E 22 3A 8E 00 C3 | THIS ITEM.":...|
00002590: 2D 8C 23 4D 24 28 30 29 B2 22 9A 48 4F 4D 45 20 |-.#M$(0).".HOME |
000025A0: 49 4E 56 45 4E 54 4F 52 59 20 3A 20 4D 41 49 4E |INVENTORY : MAIN|
000025B0: 20 4D 45 4E 55 22 3A 4D 43 24 B2 22 49 53 56 4C | MENU":MC$."ISVL|
000025C0: 41 45 22 00 EC 2D 8D 23 4D 24 28 31 29 B2 22 9B |AE"..-.#M$(1).".|
000025D0: 12 20 49 20 92 20 2D 20 49 54 45 4D 20 45 4E 54 |. I . - ITEM ENT|
000025E0: 52 59 20 26 20 55 50 44 41 54 45 22 00 13 2E 8E |RY & UPDATE"....|
000025F0: 23 4D 24 28 32 29 B2 22 95 12 20 53 20 92 20 2D |#M$(2).".. S . -|
00002600: 20 53 45 41 52 43 48 20 54 48 52 55 20 49 54 45 | SEARCH THRU ITE|
00002610: 4D 53 22 00 3B 2E 8F 23 4D 24 28 33 29 B2 22 9E |MS".;..#M$(3).".|
00002620: 12 20 56 20 92 20 2D 20 56 41 4C 55 41 54 49 4F |. V . - VALUATIO|
00002630: 4E 20 4F 46 20 49 54 45 4D 53 22 00 61 2E 90 23 |N OF ITEMS".a..#|
00002640: 4D 24 28 34 29 B2 22 9F 12 20 4C 20 92 20 2D 20 |M$(4).".. L . - |
00002650: 4C 49 53 54 49 4E 47 20 4F 46 20 49 54 45 4D 53 |LISTING OF ITEMS|
00002660: 22 00 91 2E 91 23 4D 24 28 35 29 B2 22 98 12 20 |"....#M$(5).".. |
00002670: 41 20 92 20 2D 20 53 41 56 45 20 49 54 45 4D 53 |A . - SAVE ITEMS|
00002680: 20 4F 4E 20 44 49 53 4B 20 4F 52 20 54 41 50 45 | ON DISK OR TAPE|
00002690: 22 00 B9 2E 92 23 4D 24 28 36 29 B2 22 81 12 20 |"....#M$(6).".. |
000026A0: 45 20 92 20 2D 20 45 58 49 54 20 46 52 4F 4D 20 |E . - EXIT FROM |
000026B0: 50 52 4F 47 52 41 4D 9A 22 00 D8 2E 94 23 4D 43 |PROGRAM."....#MC|
000026C0: B2 36 3A 97 42 44 2C 32 3A 59 43 B2 35 3A 58 43 |.6:.BD,2:YC.5:XC|
000026D0: B2 36 3A 89 39 33 30 30 00 0F 2F 96 23 4D 24 28 |.6:.9300../.#M$(|
000026E0: 30 29 B2 22 95 4D 45 4E 55 20 31 3A 20 49 54 45 |0).".MENU 1: ITE|
000026F0: 4D 20 45 4E 54 52 59 20 26 20 55 50 44 41 54 45 |M ENTRY & UPDATE|
00002700: 22 3A 4D 43 24 B2 22 52 41 43 44 53 4D 45 22 00 |":MC$."RACDSME".|
00002710: 38 2F 97 23 4D 24 28 31 29 B2 22 12 20 52 20 92 |8/.#M$(1).". R .|
00002720: 20 2D 20 52 45 56 49 45 57 20 49 54 45 4D 53 20 | - REVIEW ITEMS |
00002730: 49 4E 20 46 49 4C 45 22 00 5E 2F 98 23 4D 24 28 |IN FILE".^/.#M$(|
00002740: 32 29 B2 22 12 20 41 20 92 20 2D 20 41 44 44 20 |2).". A . - ADD |
00002750: 49 54 45 4D 53 20 54 4F 20 46 49 4C 45 22 00 87 |ITEMS TO FILE"..|
00002760: 2F 99 23 4D 24 28 33 29 B2 22 12 20 43 20 92 20 |/.#M$(3).". C . |
00002770: 2D 20 43 48 41 4E 47 45 20 49 54 45 4D 53 20 49 |- CHANGE ITEMS I|
00002780: 4E 20 46 49 4C 45 22 00 B2 2F 9A 23 4D 24 28 34 |N FILE"../.#M$(4|
00002790: 29 B2 22 12 20 44 20 92 20 2D 20 44 45 4C 45 54 |).". D . - DELET|
000027A0: 45 20 49 54 45 4D 53 20 46 52 4F 4D 20 46 49 4C |E ITEMS FROM FIL|
000027B0: 45 22 00 E1 2F 9B 23 4D 24 28 35 29 B2 22 12 20 |E"../.#M$(5).". |
000027C0: 53 20 92 20 2D 20 53 41 56 45 20 49 54 45 4D 53 |S . - SAVE ITEMS|
000027D0: 20 4F 4E 20 44 49 53 4B 20 4F 52 20 54 41 50 45 | ON DISK OR TAPE|
000027E0: 22 00 0B 30 9C 23 4D 24 28 36 29 B2 22 97 12 20 |"..0.#M$(6).".. |
000027F0: 4D 20 92 20 2D 20 47 4F 20 42 41 43 4B 20 54 4F |M . - GO BACK TO|
00002800: 20 4D 41 49 4E 20 4D 45 4E 55 22 00 2E 30 9D 23 | MAIN MENU"..0.#|
00002810: 4D 24 28 37 29 B2 22 81 12 20 45 20 92 20 2D 20 |M$(7).".. E . - |
00002820: 45 58 49 54 20 50 52 4F 47 52 41 4D 95 22 00 4D |EXIT PROGRAM.".M|
00002830: 30 9E 23 4D 43 B2 37 3A 97 42 44 2C 36 3A 59 43 |0.#MC.7:.BD,6:YC|
00002840: B2 34 3A 58 43 B2 35 3A 89 39 33 30 30 00 83 30 |.4:XC.5:.9300..0|
00002850: A0 23 4D 24 28 30 29 B2 22 9C 4D 45 4E 55 20 32 |.#M$(0).".MENU 2|
00002860: 3A 20 53 45 41 52 43 48 20 54 48 52 55 20 49 54 |: SEARCH THRU IT|
00002870: 45 4D 53 22 3A 4D 43 24 B2 22 4C 43 44 53 50 56 |EMS":MC$."LCDSPV|
00002880: 4D 45 22 00 A3 30 A1 23 4D 24 28 31 29 B2 22 12 |ME"..0.#M$(1).".|
00002890: 20 4C 20 92 20 2D 20 42 59 20 4C 4F 43 41 54 49 | L . - BY LOCATI|
000028A0: 4F 4E 22 00 C3 30 A2 23 4D 24 28 32 29 B2 22 12 |ON"..0.#M$(2).".|
000028B0: 20 43 20 92 20 2D 20 42 59 20 43 41 54 45 47 4F | C . - BY CATEGO|
000028C0: 52 59 22 00 E6 30 A3 23 4D 24 28 33 29 B2 22 12 |RY"..0.#M$(3).".|
000028D0: 20 44 20 92 20 2D 20 42 59 20 44 45 53 43 52 49 | D . - BY DESCRI|
000028E0: 50 54 49 4F 4E 22 00 08 31 A4 23 4D 24 28 34 29 |PTION"..1.#M$(4)|
000028F0: B2 22 12 20 53 20 92 20 2D 20 42 59 20 53 45 52 |.". S . - BY SER|
00002900: 49 41 4C 20 4E 4F 2E 22 00 2E 31 A5 23 4D 24 28 |IAL NO."..1.#M$(|
00002910: 35 29 B2 22 12 20 50 20 92 20 2D 20 42 59 20 50 |5).". P . - BY P|
00002920: 55 52 43 48 41 53 45 20 50 52 49 43 45 22 00 53 |URCHASE PRICE".S|
00002930: 31 A6 23 4D 24 28 36 29 B2 22 12 20 56 20 92 20 |1.#M$(6).". V . |
00002940: 2D 20 42 59 20 43 55 52 52 45 4E 54 20 56 41 4C |- BY CURRENT VAL|
00002950: 55 45 22 00 9C 31 A7 23 4D 24 28 37 29 B2 22 97 |UE"..1.#M$(7).".|
00002960: 12 20 4D 20 92 20 2D 20 47 4F 20 42 41 43 4B 20 |. M . - GO BACK |
00002970: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 3A 4D 24 |TO MAIN MENU":M$|
00002980: 28 38 29 B2 22 81 12 20 45 20 92 20 2D 20 45 58 |(8).".. E . - EX|
00002990: 49 54 20 50 52 4F 47 52 41 4D 1E 22 00 BC 31 A8 |IT PROGRAM."..1.|
000029A0: 23 4D 43 B2 38 3A 97 42 44 2C 31 34 3A 59 43 B2 |#MC.8:.BD,14:YC.|
000029B0: 32 3A 58 43 B2 38 3A 89 39 33 30 30 00 F0 31 AA |2:XC.8:.9300..1.|
000029C0: 23 4D 24 28 30 29 B2 22 1E 4D 45 4E 55 20 33 3A |#M$(0).".MENU 3:|
000029D0: 20 56 41 4C 55 41 54 49 4F 4E 20 4F 46 20 49 54 | VALUATION OF IT|
000029E0: 45 4D 53 22 3A 4D 43 24 B2 22 4C 43 41 4D 45 22 |EMS":MC$."LCAME"|
000029F0: 00 16 32 AB 23 4D 24 28 31 29 B2 22 12 20 4C 20 |..2.#M$(1).". L |
00002A00: 92 20 2D 20 56 41 4C 55 45 20 42 59 20 4C 4F 43 |. - VALUE BY LOC|
00002A10: 41 54 49 4F 4E 22 00 3C 32 AC 23 4D 24 28 32 29 |ATION".<2.#M$(2)|
00002A20: B2 22 12 20 43 20 92 20 2D 20 56 41 4C 55 45 20 |.". C . - VALUE |
00002A30: 42 59 20 43 41 54 45 47 4F 52 59 22 00 64 32 AD |BY CATEGORY".d2.|
00002A40: 23 4D 24 28 33 29 B2 22 12 20 41 20 92 20 2D 20 |#M$(3).". A . - |
00002A50: 56 41 4C 55 45 20 41 4C 4C 20 49 4E 56 45 4E 54 |VALUE ALL INVENT|
00002A60: 4F 52 59 22 00 8E 32 AE 23 4D 24 28 34 29 B2 22 |ORY"..2.#M$(4)."|
00002A70: 97 12 20 4D 20 92 20 2D 20 47 4F 20 42 41 43 4B |.. M . - GO BACK|
00002A80: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 00 B1 | TO MAIN MENU"..|
00002A90: 32 AF 23 4D 24 28 35 29 B2 22 81 12 20 45 20 92 |2.#M$(5).".. E .|
00002AA0: 20 2D 20 45 58 49 54 20 50 52 4F 47 52 41 4D 9A | - EXIT PROGRAM.|
00002AB0: 22 00 D1 32 B2 23 4D 43 B2 35 3A 97 42 44 2C 31 |"..2.#MC.5:.BD,1|
00002AC0: 35 3A 59 43 B2 37 3A 58 43 B2 38 3A 89 39 33 30 |5:YC.7:XC.8:.930|
00002AD0: 30 00 03 33 B4 23 4D 24 28 30 29 B2 22 1F 4D 45 |0..3.#M$(0).".ME|
00002AE0: 4E 55 20 34 3A 20 4C 49 53 54 49 4E 47 20 4F 46 |NU 4: LISTING OF|
00002AF0: 20 49 54 45 4D 53 22 3A 4D 43 24 B2 22 4C 43 41 | ITEMS":MC$."LCA|
00002B00: 4D 45 22 00 28 33 B5 23 4D 24 28 31 29 B2 22 12 |ME".(3.#M$(1).".|
00002B10: 20 4C 20 92 20 2D 20 4C 49 53 54 20 42 59 20 4C | L . - LIST BY L|
00002B20: 4F 43 41 54 49 4F 4E 22 00 4D 33 B6 23 4D 24 28 |OCATION".M3.#M$(|
00002B30: 32 29 B2 22 12 20 43 20 92 20 2D 20 4C 49 53 54 |2).". C . - LIST|
00002B40: 20 42 59 20 43 41 54 45 47 4F 52 59 22 00 74 33 | BY CATEGORY".t3|
00002B50: B7 23 4D 24 28 33 29 B2 22 12 20 41 20 92 20 2D |.#M$(3).". A . -|
00002B60: 20 4C 49 53 54 20 41 4C 4C 20 49 4E 56 45 4E 54 | LIST ALL INVENT|
00002B70: 4F 52 59 22 00 9E 33 B8 23 4D 24 28 34 29 B2 22 |ORY"..3.#M$(4)."|
00002B80: 97 12 20 4D 20 92 20 2D 20 47 4F 20 42 41 43 4B |.. M . - GO BACK|
00002B90: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 00 C1 | TO MAIN MENU"..|
00002BA0: 33 B9 23 4D 24 28 35 29 B2 22 81 12 20 45 20 92 |3.#M$(5).".. E .|
00002BB0: 20 2D 20 45 58 49 54 20 50 52 4F 47 52 41 4D 1F | - EXIT PROGRAM.|
00002BC0: 22 00 E1 33 BC 23 4D 43 B2 35 3A 97 42 44 2C 31 |"..3.#MC.5:.BD,1|
00002BD0: 31 3A 59 43 B2 35 3A 58 43 B2 38 3A 89 39 33 30 |1:YC.5:XC.8:.930|
00002BE0: 30 00 F6 33 C8 23 99 22 13 20 20 20 20 20 22 4D |0..3.#.". "M|
00002BF0: 24 28 43 29 3A 8E 00 08 34 F0 23 81 49 B2 30 A4 |$(C):...4.#.I.0.|
00002C00: 31 30 30 3A 82 49 3A 8E 00 1A 34 F2 23 81 49 B2 |100:.I:...4.#.I.|
00002C10: 30 A4 37 30 30 3A 82 49 3A 8E 00 36 34 FA 23 8B |0.700:.I:..64.#.|
00002C20: 43 46 B2 30 A7 99 22 A6 9D 22 3B 3A 43 46 B2 31 |CF.0.."..";:CF.1|
00002C30: 3A 89 39 32 31 34 00 4E 34 FC 23 8B 43 46 B2 31 |:.9214.N4.#.CF.1|
00002C40: A7 99 22 12 A6 9D 92 22 3B 3A 43 46 B2 30 00 6F |.."....";:CF.0.o|
00002C50: 34 FE 23 A1 49 24 3A 91 AB 28 49 24 B2 22 22 29 |4.#.I$:..(I$."")|
00002C60: 89 39 32 31 30 3A 49 B2 C6 28 49 24 29 3A 8E 00 |.9210:I..(I$):..|
00002C70: 89 34 04 24 99 22 A6 9D 22 3B 3A 8D 39 32 30 30 |.4.$."..";:.9200|
00002C80: 3A 99 22 12 A6 9D 92 22 3B 00 AA 34 06 24 A1 49 |:."....";..4.$.I|
00002C90: 24 3A 91 AB 28 49 24 B2 22 22 29 89 39 32 31 30 |$:..(I$."").9210|
00002CA0: 3A 49 B2 C6 28 49 24 29 3A 8E 00 CE 34 0E 24 99 |:I..(I$):...4.$.|
00002CB0: 45 4F 24 A3 34 30 29 41 33 24 3B 3A 8D 39 32 35 |EO$.40)A3$;:.925|
00002CC0: 30 3A 99 45 4F 24 A3 34 30 29 42 24 3A 8E 00 F1 |0:.EO$.40)B$:...|
00002CD0: 34 18 24 99 45 4F 24 A3 34 30 29 41 24 3B 3A 8D |4.$.EO$.40)A$;:.|
00002CE0: 39 32 35 30 3A 99 45 4F 24 A3 34 30 29 42 24 3A |9250:.EO$.40)B$:|
00002CF0: 8E 00 1B 35 22 24 A1 49 24 3A 91 AB 28 49 24 B2 |...5"$.I$:..(I$.|
00002D00: 22 22 29 89 39 32 35 30 3A 49 B2 C6 28 49 24 29 |"").9250:I..(I$)|
00002D10: 3A 99 45 4F 24 52 24 42 24 3A 8E 00 42 35 2C 24 |:.EO$R$B$:..B5,$|
00002D20: 8B 43 46 B2 30 A7 99 45 4F 24 A3 34 30 29 41 24 |.CF.0..EO$.40)A$|
00002D30: 3B 3A 8D 39 32 30 30 3A 43 46 B2 31 3A 89 39 32 |;:.9200:CF.1:.92|
00002D40: 36 34 00 64 35 2E 24 8B 43 46 B2 31 A7 99 45 4F |64.d5.$.CF.1..EO|
00002D50: 24 A3 34 30 29 41 31 24 3B 3A 8D 39 32 30 30 3A |$.40)A1$;:.9200:|
00002D60: 43 46 B2 30 00 85 35 30 24 A1 49 24 3A 91 AB 28 |CF.0..50$.I$:..(|
00002D70: 49 24 B2 22 22 29 89 39 32 36 30 3A 49 B2 C6 28 |I$."").9260:I..(|
00002D80: 49 24 29 3A 8E 00 AC 35 36 24 8B 43 46 B2 30 A7 |I$):...56$.CF.0.|
00002D90: 99 45 4F 24 A3 34 30 29 41 24 3B 3A 8D 39 32 30 |.EO$.40)A$;:.920|
00002DA0: 30 3A 43 46 B2 31 3A 89 39 32 37 34 00 CE 35 38 |0:CF.1:.9274..58|
00002DB0: 24 8B 43 46 B2 31 A7 99 45 4F 24 A3 34 30 29 41 |$.CF.1..EO$.40)A|
00002DC0: 31 24 3B 3A 8D 39 32 30 30 3A 43 46 B2 30 00 EF |1$;:.9200:CF.0..|
00002DD0: 35 3A 24 A1 49 24 3A 91 AB 28 49 24 B2 22 22 29 |5:$.I$:..(I$."")|
00002DE0: 89 39 32 37 30 3A 49 B2 C6 28 49 24 29 3A 8E 00 |.9270:I..(I$):..|
00002DF0: 0C 36 40 24 99 45 4F 24 A3 34 30 29 41 31 24 3B |.6@$.EO$.40)A1$;|
00002E00: 3A 8D 39 32 38 35 3A 8D 39 32 30 30 00 2D 36 42 |:.9285:.9200.-6B|
00002E10: 24 A1 49 24 3A 91 AB 28 49 24 B2 22 22 29 89 39 |$.I$:..(I$."").9|
00002E20: 32 38 30 3A 49 B2 C6 28 49 24 29 3A 8E 00 52 36 |280:I..(I$):..R6|
00002E30: 43 24 99 45 4F 24 A3 34 30 29 41 33 24 3B 3A 8D |C$.EO$.40)A3$;:.|
00002E40: 39 32 30 30 3A 99 45 4F 24 A3 34 30 29 42 24 3B |9200:.EO$.40)B$;|
00002E50: 3A 8E 00 7A 36 45 24 81 43 43 B2 31 34 39 A4 31 |:..z6E$.CC.149.1|
00002E60: 35 34 3A 99 C7 28 43 43 29 3B 3A 8D 39 32 38 39 |54:..(CC);:.9289|
00002E70: 3A 8D 39 32 30 30 3A 82 3A 8E 00 B1 36 49 24 99 |:.9200:.:...6I$.|
00002E80: 45 4F 24 A3 34 30 29 22 20 20 20 20 12 20 20 20 |EO$.40)" . |
00002E90: 92 22 3B C9 28 43 52 24 2C 32 36 29 3B 22 12 20 |.";.(CR$,26);". |
00002EA0: 20 20 92 20 20 20 20 22 3B 3A 8D 39 32 30 30 3A | . ";:.9200:|
00002EB0: 8E 00 D9 36 4A 24 8B 43 46 B2 30 A7 99 45 4F 24 |...6J$.CF.0..EO$|
00002EC0: A3 34 30 29 41 32 24 3B 3A 8D 39 32 30 30 3A 43 |.40)A2$;:.9200:C|
00002ED0: 46 B2 31 3A 89 39 32 39 34 00 FB 36 4C 24 8B 43 |F.1:.9294..6L$.C|
00002EE0: 46 B2 31 A7 99 45 4F 24 A3 34 30 29 41 33 24 3B |F.1..EO$.40)A3$;|
00002EF0: 3A 8D 39 32 30 30 3A 43 46 B2 30 00 25 37 4E 24 |:.9200:CF.0.%7N$|
00002F00: A1 49 24 3A 91 AB 28 49 24 B2 22 22 29 89 39 32 |.I$:..(I$."").92|
00002F10: 39 30 3A 49 B2 C6 28 49 24 29 3A 99 45 4F 24 52 |90:I..(I$):.EO$R|
00002F20: 24 42 24 3A 8E 00 46 37 50 24 A1 49 24 3A 91 AB |$B$:..F7P$.I$:..|
00002F30: 28 49 24 B2 22 22 29 89 39 32 39 36 3A 49 B2 C6 |(I$."").9296:I..|
00002F40: 28 49 24 29 3A 8E 00 6A 37 54 24 8F 20 4D 45 4E |(I$):..j7T$. MEN|
00002F50: 55 20 50 52 49 4E 54 49 4E 47 20 26 20 43 48 4F |U PRINTING & CHO|
00002F60: 49 43 45 20 53 45 4C 45 43 54 00 8D 37 5E 24 43 |ICE SELECT..7^$C|
00002F70: 24 B2 22 22 3A 99 22 93 22 C8 28 43 44 24 2C 59 |$."":.".".(CD$,Y|
00002F80: 43 29 A3 58 43 29 4D 24 28 30 29 52 24 00 A9 37 |C).XC)M$(0)R$..7|
00002F90: 60 24 81 58 B2 31 A4 4D 43 3A 99 A3 34 30 AA 58 |`$.X.1.MC:..40.X|
00002FA0: 43 29 4D 24 28 58 29 3A 82 00 E5 37 68 24 43 B2 |C)M$(X):...7h$C.|
00002FB0: 30 3A 99 A3 38 30 AA 58 43 29 45 24 3B 3A 58 43 |0:..80.XC)E$;:XC|
00002FC0: B2 58 43 AA C3 28 45 24 29 AA 32 3A 59 43 B2 59 |.XC..(E$).2:YC.Y|
00002FD0: 43 AA 32 AC 4D 43 AA 34 3A 44 46 24 B2 22 22 3A |C.2.MC.4:DF$."":|
00002FE0: 8D 39 37 35 30 00 F7 37 69 24 8B 49 B2 31 33 36 |.9750..7i$.I.136|
00002FF0: A7 58 24 B2 22 4D 22 00 30 38 6A 24 43 24 B2 C8 |.X$."M".08j$C$..|
00003000: 28 58 24 2C 31 29 3A 4C 4D B2 C3 28 4D 43 24 29 |(X$,1):LM..(MC$)|
00003010: 3A 81 58 B2 31 A4 4C 4D 3A 8B CA 28 4D 43 24 2C |:.X.1.LM:..(MC$,|
00003020: 58 2C 31 29 B2 43 24 A7 43 B2 58 3A 4C 4D B2 58 |X,1).C$.C.X:LM.X|
00003030: 00 39 38 6C 24 82 58 3A 8E 00 52 38 B8 24 8F 20 |.98l$.X:..R8.$. |
00003040: 20 20 55 54 49 4C 49 54 59 20 50 52 49 4E 54 49 | UTILITY PRINTI|
00003050: 4E 47 00 84 38 C2 24 99 C8 28 43 44 24 2C 59 43 |NG..8.$..(CD$,YC|
00003060: 29 A3 58 43 29 C8 28 4C 24 2C 4C 4C 29 C8 28 43 |).XC).(L$,LL).(C|
00003070: 4C 24 2C 4C 4C 29 3B 3A 58 24 B2 22 22 3A 58 30 |L$,LL);:X$."":X0|
00003080: B2 30 3A 8E 00 A9 38 CC 24 99 C8 28 42 24 2C 4C |.0:...8.$..(B$,L|
00003090: 4C AB C3 28 58 24 29 AA 31 29 3B 3A 58 30 B2 B6 |L..(X$).1);:X0..|
000030A0: 28 C5 28 58 24 29 29 3A 8E 00 C0 38 D0 24 8D 39 |(.(X$)):...8.$.9|
000030B0: 34 31 30 3A 99 44 46 3B 3A 58 30 B2 44 46 3A 8E |410:.DF;:X0.DF:.|
000030C0: 00 F3 38 D6 24 99 C8 28 43 44 24 2C 59 43 29 A3 |..8.$..(CD$,YC).|
000030D0: 58 43 29 49 52 24 28 44 49 2C 4A 29 C8 28 4C 24 |XC)IR$(DI,J).(L$|
000030E0: 2C 4C 4C AB 4C 4A 29 C8 28 43 4C 24 2C 4C 4C AA |,LL.LJ).(CL$,LL.|
000030F0: 31 29 3B 00 04 39 D8 24 58 24 B2 22 22 3A 58 30 |1);..9.$X$."":X0|
00003100: B2 30 3A 8E 00 34 39 E0 24 99 22 20 20 9D 9D 22 |.0:..49.$." .."|
00003110: 3A 8D 39 34 31 30 3A 99 49 52 24 28 44 49 2C 4A |:.9410:.IR$(DI,J|
00003120: 29 C8 28 42 24 2C 4C 4C AB 4C 4A 29 3B 3A 58 24 |).(B$,LL.LJ);:X$|
00003130: B2 22 2A 22 00 4A 39 E2 24 58 30 B2 C5 28 49 52 |."*".J9.$X0..(IR|
00003140: 24 28 44 49 2C 4A 29 29 3A 8E 00 71 39 E4 24 99 |$(DI,J)):..q9.$.|
00003150: 22 20 20 9D 9D 22 3A 8D 39 34 31 30 3A 99 44 46 |" ..":.9410:.DF|
00003160: 24 3B 3A 58 24 B2 44 46 24 3A 58 30 B2 44 46 3A |$;:X$.DF$:X0.DF:|
00003170: 8E 00 A0 39 EA 24 99 C8 28 43 52 24 2C 4C 4A AA |...9.$..(CR$,LJ.|
00003180: 31 29 C8 28 42 24 2C 4C 4C AB 4C 4A 29 3B 3A 58 |1).(B$,LL.LJ);:X|
00003190: 30 B2 C5 28 49 52 24 28 44 49 2C 4A 29 29 3A 8E |0..(IR$(DI,J)):.|
000031A0: 00 C2 39 F4 24 8F 20 20 49 54 45 4D 20 45 4E 54 |..9.$. ITEM ENT|
000031B0: 52 59 20 44 49 53 50 4C 41 59 20 53 45 43 54 49 |RY DISPLAY SECTI|
000031C0: 4F 4E 00 E5 39 F6 24 8D 31 38 36 30 3A 99 22 13 |ON..9.$.1860:.".|
000031D0: 22 A3 31 32 30 29 22 95 22 3B 4C 24 28 30 29 22 |".120)".";L$(0)"|
000031E0: 1F 22 3B 44 49 00 0E 3A F8 24 81 4A B2 31 A4 38 |.";DI..:.$.J.1.8|
000031F0: 3A 99 A3 34 30 29 22 95 22 4C 24 28 4A 29 22 1F |:..40)"."L$(J)".|
00003200: 22 49 52 24 28 44 49 2C 4A 29 3A 82 3A 8E 00 25 |"IR$(DI,J):.:..%|
00003210: 3A FA 24 99 A3 38 30 29 22 95 22 4C 24 28 30 29 |:.$..80)"."L$(0)|
00003220: 22 1F 22 44 49 00 54 3A FC 24 81 4A B2 31 A4 38 |"."DI.T:.$.J.1.8|
00003230: 3A 99 A3 34 30 29 22 95 22 C8 28 4C 24 28 4A 29 |:..40)".".(L$(J)|
00003240: 2C 32 30 29 22 1F 22 49 52 24 28 44 49 2C 4A 29 |,20)"."IR$(DI,J)|
00003250: 3A 82 3A 8E 00 77 3A FE 24 99 22 13 22 A3 31 34 |:.:..w:.$.".".14|
00003260: 30 29 22 95 22 49 4E 3A 8F 20 49 4E 50 55 54 20 |0)"."IN:. INPUT |
00003270: 53 45 43 54 49 4F 4E 00 A6 3A 00 25 81 4A B2 31 |SECTION..:.%.J.1|
00003280: A4 38 3A 59 43 B2 34 AA 32 AC 4A 3A 58 43 B2 32 |.8:YC.4.2.J:XC.2|
00003290: 30 3A 4C 4C B2 31 30 3A 8B 4A B2 33 B0 4A B2 34 |0:LL.10:.J.3.J.4|
000032A0: A7 4C 4C B2 31 35 00 B8 3A 02 25 8B 4A B2 35 B0 |.LL.15..:.%.J.5.|
000032B0: 4A B2 38 A7 4C 4C B2 38 00 D7 3A 04 25 4C 4A B2 |J.8.LL.8..:.%LJ.|
000032C0: C3 28 49 52 24 28 44 49 2C 4A 29 29 3A 99 22 90 |.(IR$(DI,J)):.".|
000032D0: 22 3A 8D 39 37 30 30 00 FE 3A 06 25 49 4E 24 28 |":.9700..:.%IN$(|
000032E0: 4A 29 B2 58 24 3A 8B 58 24 B2 22 2A 22 A7 49 4E |J).X$:.X$."*".IN|
000032F0: 24 28 4A 29 B2 49 52 24 28 44 49 2C 4A 29 00 07 |$(J).IR$(DI,J)..|
00003300: 3B 07 25 82 4A 3A 8E 00 27 3B 08 25 8F 20 20 20 |;.%.J:..';.%. |
00003310: 53 45 41 52 43 48 20 20 44 49 53 50 4C 41 59 20 |SEARCH DISPLAY |
00003320: 53 45 43 54 49 4F 4E 00 3D 3B 0A 25 99 A3 38 30 |SECTION.=;.%..80|
00003330: 29 22 97 22 4C 24 28 30 29 22 1E 22 59 00 6D 3B |)"."L$(0)"."Y.m;|
00003340: 0C 25 81 4A B2 31 A4 38 3A 99 A3 34 30 29 22 97 |.%.J.1.8:..40)".|
00003350: 22 3B C8 28 4C 24 28 4A 29 2C 32 30 29 3B 22 1E |";.(L$(J),20);".|
00003360: 22 49 52 24 28 59 2C 4A 29 3A 82 3A 8E 00 96 3B |"IR$(Y,J):.:...;|
00003370: 12 25 99 C8 28 43 44 24 2C 59 43 29 A3 58 43 29 |.%..(CD$,YC).XC)|
00003380: 3A 8E 3A 8F 20 50 4F 53 49 54 49 4F 4E 20 41 54 |:.:. POSITION AT|
00003390: 20 59 43 2C 58 43 00 C0 3B 1C 25 45 24 28 30 29 | YC,XC..;.%E$(0)|
000033A0: B2 22 54 48 41 54 27 53 20 4E 4F 54 20 4F 4E 45 |."THAT'S NOT ONE|
000033B0: 20 4F 46 20 54 48 45 20 43 48 4F 49 43 45 53 22 | OF THE CHOICES"|
000033C0: 00 EA 3B 28 25 45 24 28 31 29 B2 22 23 20 4D 55 |..;(%E$(1)."# MU|
000033D0: 53 54 20 42 45 20 42 45 54 57 45 45 4E 20 31 20 |ST BE BETWEEN 1 |
000033E0: 41 4E 44 22 AA C4 28 4C 52 29 00 24 3C 2A 25 45 |AND"..(LR).$<*%E|
000033F0: 24 28 32 29 B2 22 4E 4F 20 49 54 45 4D 53 20 49 |$(2)."NO ITEMS I|
00003400: 4E 20 4D 45 4D 4F 52 59 22 3A 45 24 28 33 29 B2 |N MEMORY":E$(3).|
00003410: 22 4E 4F 20 50 52 49 4E 54 45 52 20 4F 4E 20 4C |"NO PRINTER ON L|
00003420: 49 4E 45 22 00 4B 3C 30 25 45 24 28 34 29 B2 22 |INE".K<0%E$(4)."|
00003430: 4C 41 52 47 45 52 20 41 4D 4F 55 4E 54 20 4D 55 |LARGER AMOUNT MU|
00003440: 53 54 20 42 45 20 4C 41 53 54 22 00 7C 3C 3A 25 |ST BE LAST".|<:%|
00003450: 99 45 4F 24 22 20 96 12 45 52 52 4F 52 92 3D 3D |.EO$" ..ERROR.==|
00003460: 3E 20 22 45 24 28 45 AB 31 29 3A 8D 39 36 32 30 |> "E$(E.1):.9620|
00003470: 3A 8D 39 32 39 30 3A 45 B2 30 3A 8E 00 94 3C 4E |:.9290:E.0:...<N|
00003480: 25 8F 20 20 20 20 20 20 20 45 52 52 4F 52 20 46 |%. ERROR F|
00003490: 4C 41 47 53 00 A9 3C 50 25 45 B2 32 3A 8D 39 35 |LAGS..<P%E.2:.95|
000034A0: 30 30 3A 99 22 93 22 3A 8E 00 BE 3C 52 25 45 B2 |00:.".":...<R%E.|
000034B0: 33 3A 8D 39 35 30 30 3A 99 22 93 22 3A 8E 00 F0 |3:.9500:.".":...|
000034C0: 3C 58 25 99 45 4F 24 42 24 45 4F 24 2C 45 52 3B |<X%.EO$B$EO$,ER;|
000034D0: 45 52 24 3A 8D 39 36 32 30 3A 9F 31 35 2C 38 2C |ER$:.9620:.15,8,|
000034E0: 31 35 2C 22 49 22 3A A0 31 35 3A 8D 39 32 36 30 |15,"I":.15:.9260|
000034F0: 00 FC 3C 5A 25 A0 31 3A A0 35 3A 8E 00 21 3D 80 |..<Z%.1:.5:..!=.|
00003500: 25 8F 20 46 4F 52 4D 41 54 2C 53 4F 55 4E 44 20 |%. FORMAT,SOUND |
00003510: 26 20 4D 49 53 43 2E 20 55 54 49 4C 49 54 49 45 |& MISC. UTILITIE|
00003520: 53 00 4B 3D 8A 25 57 B2 C5 28 57 24 29 3A 8B C8 |S.K=.%W..(W$):..|
00003530: 28 C9 28 57 24 2C 32 29 2C 31 29 B2 22 2E 22 A7 |(.(W$,2),1).".".|
00003540: 57 24 B2 57 24 AA 22 30 22 3A 8E 00 63 3D 8E 25 |W$.W$."0":..c=.%|
00003550: 8B 57 B2 B5 28 57 29 A7 57 24 B2 57 24 AA 22 2E |.W..(W).W$.W$.".|
00003560: 30 30 22 00 69 3D 90 25 8E 00 A5 3D 94 25 53 B2 |00".i=.%...=.%S.|
00003570: 35 34 32 37 32 3A 46 52 B2 33 30 3A 81 4C B2 30 |54272:FR.30:.L.0|
00003580: A4 32 34 3A 97 53 AA 4C 2C 30 3A 82 3A 97 53 AA |.24:.S.L,0:.:.S.|
00003590: 31 2C 31 33 30 3A 97 53 AA 35 2C 39 3A 97 53 AA |1,130:.S.5,9:.S.|
000035A0: 31 35 2C 46 52 00 DB 3D 96 25 97 53 AA 32 34 2C |15,FR..=.%.S.24,|
000035B0: 31 30 3A 81 4C B2 31 A4 32 3A 97 53 AA 34 2C 32 |10:.L.1.2:.S.4,2|
000035C0: 31 3A 97 53 AA 31 35 2C 46 52 AB 4C AC 36 3A 81 |1:.S.15,FR.L.6:.|
000035D0: 54 B2 31 A4 4C AC 33 30 30 3A 82 00 0A 3E 98 25 |T.1.L.300:...>.%|
000035E0: 97 53 AA 34 2C 32 30 3A 81 54 B2 31 A4 28 4C AC |.S.4,20:.T.1.(L.|
000035F0: 31 30 29 3A 82 3A 82 3A 81 4C B2 30 A4 32 34 3A |10):.:.:.L.0.24:|
00003600: 97 53 AA 4C 2C 30 3A 82 3A 8E 00 14 3E E4 25 8D |.S.L,0:.:...>.%.|
00003610: 39 34 33 30 00 37 3E E6 25 8D 39 32 31 30 3A 58 |9430.7>.%.9210:X|
00003620: B2 49 AF 31 32 37 3A 8B 58 24 B2 22 22 AF 49 B2 |.I.127:.X$."".I.|
00003630: 31 33 A7 39 34 34 30 00 46 3E E8 25 8B 49 B2 31 |13.9440.F>.%.I.1|
00003640: 33 A7 39 34 32 30 00 5F 3E EA 25 8B 49 B2 32 30 |3.9420._>.%.I.20|
00003650: B0 49 B2 33 32 B0 49 B2 33 38 A7 39 37 31 34 00 |.I.32.I.38.9714.|
00003660: 70 3E EC 25 8B 49 B2 31 33 36 A7 4A B2 38 3A 8E |p>.%.I.136.J.8:.|
00003670: 00 84 3E EE 25 8B 49 B3 34 35 B0 49 B1 39 30 A7 |..>.%.I.45.I.90.|
00003680: 39 37 30 32 00 B9 3E F0 25 8B 28 49 B2 35 38 B0 |9702..>.%.(I.58.|
00003690: 49 B2 35 39 B0 49 B2 36 31 B0 49 B2 36 33 B0 49 |I.59.I.61.I.63.I|
000036A0: B2 36 34 B0 58 B3 33 32 B0 58 B1 39 36 29 AF 49 |.64.X.32.X.96).I|
000036B0: B3 B1 32 30 A7 39 37 30 32 00 C9 3E F2 25 8B 49 |..20.9702..>.%.I|
000036C0: B3 B1 32 30 A7 39 37 32 34 00 D9 3E F4 25 8B 58 |..20.9724..>.%.X|
000036D0: 24 B2 22 22 A7 39 37 30 32 00 F5 3E F6 25 8B C3 |$."".9702..>.%..|
000036E0: 28 58 24 29 B2 4C 4C A7 99 22 20 9D 9D 22 3B 3A |(X$).LL.." ..";:|
000036F0: 89 39 37 32 32 00 01 3F F8 25 99 22 A4 9D 9D 22 |.9722..?.%."..."|
00003700: 3B 00 1C 3F FA 25 58 24 B2 C8 28 58 24 2C C3 28 |;..?.%X$..(X$,.(|
00003710: 58 24 29 AB 31 29 3A 89 39 37 30 32 00 33 3F FC |X$).1):.9702.3?.|
00003720: 25 8B 58 24 B2 22 22 A7 99 22 20 22 3B 3A 8D 39 |%.X$."".." ";:.9|
00003730: 34 31 30 00 4F 3F FE 25 8B C3 28 58 24 29 B3 4C |410.O?.%..(X$).L|
00003740: 4C A7 58 24 B2 58 24 AA 49 24 3A 99 49 24 3B 00 |L.X$.X$.I$:.I$;.|
00003750: 59 3F 00 26 89 39 37 30 32 00 7C 3F 16 26 4C 4C |Y?.&.9702.|?.&LL|
00003760: B2 31 3A 8D 39 34 31 30 3A 8F 20 41 4C 50 48 41 |.1:.9410:. ALPHA|
00003770: 20 49 4E 49 54 49 41 4C 20 47 45 54 00 9F 3F 18 | INITIAL GET..?.|
00003780: 26 8D 39 32 31 30 3A 58 B2 49 AF 31 32 37 3A 8B |&.9210:X.I.127:.|
00003790: 58 24 B2 22 22 AF 49 B2 31 33 A7 39 34 34 34 00 |X$."".I.13.9444.|
000037A0: AE 3F 1A 26 8B 49 B2 31 33 A7 39 34 32 30 00 BD |.?.&.I.13.9420..|
000037B0: 3F 1C 26 8B 49 B2 32 30 A7 39 37 36 34 00 CA 3F |?.&.I.20.9764..?|
000037C0: 1E 26 8B 49 B2 31 33 36 A7 8E 00 DE 3F 20 26 8B |.&.I.136....? &.|
000037D0: 49 B3 36 35 B0 49 B1 39 30 A7 39 37 35 32 00 EE |I.65.I.90.9752..|
000037E0: 3F 24 26 8B 49 B3 B1 32 30 A7 39 37 37 34 00 FE |?$&.I..20.9774..|
000037F0: 3F 26 26 8B 58 24 B2 22 22 A7 39 37 35 32 00 1A |?&&.X$."".9752..|
00003800: 40 28 26 8B C3 28 58 24 29 B2 4C 4C A7 99 22 20 |@(&..(X$).LL.." |
00003810: 9D 9D 22 3B 3A 89 39 37 37 32 00 26 40 2A 26 99 |..";:.9772.&@*&.|
00003820: 22 A4 9D 9D 22 3B 00 41 40 2C 26 58 24 B2 C8 28 |"...";.A@,&X$..(|
00003830: 58 24 2C C3 28 58 24 29 AB 31 29 3A 89 39 37 35 |X$,.(X$).1):.975|
00003840: 32 00 58 40 2E 26 8B 58 24 B2 22 22 A7 99 22 20 |2.X@.&.X$."".." |
00003850: 22 3B 3A 8D 39 34 31 30 00 74 40 30 26 8B C3 28 |";:.9410.t@0&..(|
00003860: 58 24 29 B3 4C 4C A7 58 24 B2 58 24 AA 49 24 3A |X$).LL.X$.X$.I$:|
00003870: 99 49 24 3B 00 7E 40 32 26 89 39 37 35 32 00 9B |.I$;.~@2&.9752..|
00003880: 40 48 26 8D 39 34 31 30 3A 8F 20 20 20 20 20 20 |@H&.9410:. |
00003890: 4E 55 4D 45 52 49 43 20 47 45 54 00 B6 40 4A 26 |NUMERIC GET..@J&|
000038A0: 8D 39 32 31 30 3A 8B 58 24 B2 22 22 AF 49 B2 31 |.9210:.X$."".I.1|
000038B0: 33 A7 39 34 32 34 00 C5 40 4C 26 8B 49 B2 31 33 |3.9424..@L&.I.13|
000038C0: A7 39 34 32 30 00 D9 40 4D 26 8B 49 B2 34 36 B0 |.9420..@M&.I.46.|
000038D0: 49 B2 32 30 A7 39 38 30 38 00 FB 40 4E 26 8B 28 |I.20.9808..@N&.(|
000038E0: 49 B3 34 38 B0 49 B1 35 37 29 AF 49 B3 B1 34 36 |I.48.I.57).I..46|
000038F0: AF 49 B3 B1 32 30 A7 39 38 30 32 00 0B 41 50 26 |.I..20.9802..AP&|
00003900: 8B 49 B3 B1 32 30 A7 39 38 31 38 00 1B 41 52 26 |.I..20.9818..AR&|
00003910: 8B 58 24 B2 22 22 A7 39 38 30 32 00 37 41 54 26 |.X$."".9802.7AT&|
00003920: 8B C3 28 58 24 29 B2 4C 4C A7 99 22 20 9D 9D 22 |..(X$).LL.." .."|
00003930: 3B 3A 89 39 38 31 36 00 43 41 56 26 99 22 A4 9D |;:.9816.CAV&."..|
00003940: 9D 22 3B 00 5E 41 58 26 58 24 B2 C8 28 58 24 2C |.";.^AX&X$..(X$,|
00003950: C3 28 58 24 29 AB 31 29 3A 89 39 38 30 32 00 7A |.(X$).1):.9802.z|
00003960: 41 5A 26 8B C3 28 58 24 29 B3 4C 4C A7 58 24 B2 |AZ&..(X$).LL.X$.|
00003970: 58 24 AA 49 24 3A 99 49 24 3B 00 84 41 5C 26 89 |X$.I$:.I$;..A\&.|
00003980: 39 38 30 32 00 BC 41 AC 26 97 42 44 2C 31 33 3A |9802..A.&.BD,13:|
00003990: 49 B2 30 3A 99 22 93 9A 22 A3 31 32 35 29 22 48 |I.0:."..".125)"H|
000039A0: 41 56 45 20 59 4F 55 20 41 4E 20 49 4E 56 45 4E |AVE YOU AN INVEN|
000039B0: 54 4F 52 59 20 46 49 4C 45 3F 20 22 00 E3 41 B1 |TORY FILE? "..A.|
000039C0: 26 59 43 B2 34 3A 58 43 B2 33 34 3A 44 46 24 B2 |&YC.4:XC.34:DF$.|
000039D0: 22 22 3A 8D 39 37 35 30 3A 49 24 B2 C8 28 58 24 |"":.9750:I$..(X$|
000039E0: 2C 31 29 00 FD 41 B6 26 8B 49 24 B3 B1 22 59 22 |,1)..A.&.I$.."Y"|
000039F0: AF 49 24 B3 B1 22 4E 22 89 39 39 30 30 00 10 42 |.I$.."N".9900..B|
00003A00: B8 26 8B 49 24 B3 B1 22 59 22 A7 49 B2 30 3A 8E |.&.I$.."Y".I.0:.|
00003A10: 00 41 42 C0 26 99 3A 99 A3 39 30 29 22 12 20 54 |.AB.&.:..90)". T|
00003A20: 20 92 20 54 41 50 45 22 A3 35 35 29 22 4F 52 22 | . TAPE".55)"OR"|
00003A30: A3 35 30 29 22 12 20 44 20 92 20 44 49 53 4B 3F |.50)". D . DISK?|
00003A40: 22 00 6E 42 C2 26 59 43 B2 39 3A 58 43 B2 32 37 |".nB.&YC.9:XC.27|
00003A50: 3A 99 22 91 22 A3 32 30 29 3B 3A 44 46 24 B2 22 |:.".".20);:DF$."|
00003A60: 44 22 3A 8D 39 37 35 30 3A 49 24 B2 58 24 00 9A |D":.9750:I$.X$..|
00003A70: 42 C4 26 44 56 B2 38 3A 44 56 24 B2 22 44 49 53 |B.&DV.8:DV$."DIS|
00003A80: 4B 22 3A 8B 49 24 B2 22 54 22 A7 44 56 B2 31 3A |K":.I$."T".DV.1:|
00003A90: 44 56 24 B2 22 54 41 50 45 22 00 A0 42 C9 26 8E |DV$."TAPE"..B.&.|
00003AA0: 00 C4 42 CA 26 49 B2 30 3A 4E 46 24 B2 22 49 4E |..B.&I.0:NF$."IN|
00003AB0: 56 45 4E 54 4F 52 59 22 3A 8B 44 56 B3 B1 38 A7 |VENTORY":.DV..8.|
00003AC0: 39 39 34 30 00 F1 42 CC 26 99 A3 31 36 35 29 22 |9940..B.&..165)"|
00003AD0: 9A 57 48 49 43 48 20 46 49 4C 45 20 44 4F 20 59 |.WHICH FILE DO Y|
00003AE0: 4F 55 20 57 49 53 48 20 54 4F 20 4C 4F 41 44 3F |OU WISH TO LOAD?|
00003AF0: 22 00 29 43 CE 26 99 A3 34 35 29 22 9A 12 20 49 |".)C.&..45)".. I|
00003B00: 20 92 20 49 4E 56 45 4E 54 4F 52 59 22 A3 38 35 | . INVENTORY".85|
00003B10: 29 22 12 20 42 20 92 20 49 4E 56 45 4E 54 4F 52 |)". B . INVENTOR|
00003B20: 59 20 42 41 43 4B 55 50 22 00 47 43 D0 26 59 43 |Y BACKUP".GC.&YC|
00003B30: B2 31 37 3A 44 46 24 B2 22 49 22 3A 8D 39 37 35 |.17:DF$."I":.975|
00003B40: 30 3A 49 24 B2 58 24 00 54 43 D1 26 8B 49 B2 31 |0:I$.X$.TC.&.I.1|
00003B50: 33 36 A7 8E 00 77 43 D2 26 8B 49 24 B2 22 42 22 |36...wC.&.I$."B"|
00003B60: A7 4E 46 24 B2 22 49 4E 56 45 4E 54 4F 52 59 20 |.NF$."INVENTORY |
00003B70: 42 41 43 4B 55 50 22 00 90 43 D4 26 99 45 4F 24 |BACKUP"..C.&.EO$|
00003B80: 46 24 44 56 24 3A 99 46 31 24 3A 8D 39 32 35 30 |F$DV$:.F1$:.9250|
00003B90: 00 A0 43 D6 26 99 45 4F 24 A3 34 29 42 24 3A 8E |..C.&.EO$.4)B$:.|
00003BA0: 00 C0 43 D9 26 99 45 4F 24 22 9A 20 20 20 20 22 |..C.&.EO$". "|
00003BB0: 54 53 24 4E 46 24 22 20 46 49 4C 45 2E 22 3A 8E |TS$NF$" FILE.":.|
00003BC0: 00 D0 43 DD 26 99 45 4F 24 A3 34 29 42 24 3A 8E |..C.&.EO$.4)B$:.|
00003BD0: 00 F7 43 DE 26 8B 44 56 B2 31 A7 99 22 91 91 91 |..C.&.DV.1.."...|
00003BE0: 91 91 91 91 91 22 3A 9F 31 2C 31 2C 30 2C 4E 46 |.....":.1,1,0,NF|
00003BF0: 24 3A 89 39 39 37 30 00 0D 44 E0 26 9F 31 2C 38 |$:.9970..D.&.1,8|
00003C00: 2C 39 2C 4E 46 24 AA 22 2C 53 2C 52 22 00 23 44 |,9,NF$.",S,R".#D|
00003C10: E8 26 9F 35 2C 38 2C 31 35 3A 84 35 2C 45 52 2C |.&.5,8,15:.5,ER,|
00003C20: 45 52 24 00 32 44 EA 26 8B 45 52 B1 31 89 39 35 |ER$.2D.&.ER.1.95|
00003C30: 36 30 00 63 44 F2 26 8D 39 39 34 35 3A 84 31 2C |60.cD.&.9945:.1,|
00003C40: 4C 52 3A 81 5A B2 31 A4 4C 52 3A 81 5A 5A B2 31 |LR:.Z.1.LR:.ZZ.1|
00003C50: A4 38 3A 84 31 2C 49 52 24 28 5A 2C 5A 5A 29 3A |.8:.1,IR$(Z,ZZ):|
00003C60: 82 3A 82 00 75 44 F4 26 A0 31 3A 8B 44 56 B2 31 |.:..uD.&.1:.DV.1|
00003C70: A7 39 39 37 39 00 86 44 F6 26 84 35 2C 45 52 2C |.9979..D.&.5,ER,|
00003C80: 45 52 24 3A A0 35 00 9B 44 F8 26 8D 39 36 32 30 |ER$:.5..D.&.9620|
00003C90: 3A 8B 45 52 B1 31 89 39 35 36 30 00 CB 44 FB 26 |:.ER.1.9560..D.&|
00003CA0: 99 45 4F 24 42 24 45 4F 24 A3 35 29 4E 46 24 22 |.EO$B$EO$.5)NF$"|
00003CB0: 20 46 49 4C 45 20 4C 4F 41 44 45 44 2E 22 3A 8D | FILE LOADED.":.|
00003CC0: 39 32 37 30 3A 45 46 B2 30 3A 8E 00 EE 44 FC 26 |9270:EF.0:...D.&|
00003CD0: 8D 39 39 34 35 3A 9F 35 2C 38 2C 31 35 2C 22 49 |.9945:.5,8,15,"I|
00003CE0: 22 3A 8B 58 24 B2 22 4E 22 A7 39 39 38 32 00 2E |":.X$."N".9982..|
00003CF0: 45 FD 26 98 35 2C 22 53 30 3A 49 4E 56 45 4E 54 |E.&.5,"S0:INVENT|
00003D00: 4F 52 59 20 42 41 43 4B 55 50 22 3A 98 35 2C 22 |ORY BACKUP":.5,"|
00003D10: 52 30 3A 49 4E 56 45 4E 54 4F 52 59 20 42 41 43 |R0:INVENTORY BAC|
00003D20: 4B 55 50 3D 49 4E 56 45 4E 54 4F 52 59 22 00 4E |KUP=INVENTORY".N|
00003D30: 45 FE 26 98 35 2C 22 53 30 3A 49 4E 56 45 4E 54 |E.&.5,"S0:INVENT|
00003D40: 4F 52 59 22 3A 84 35 2C 45 52 2C 45 52 24 00 5D |ORY":.5,ER,ER$.]|
00003D50: 45 FF 26 8B 45 52 B1 31 89 39 35 36 30 00 8B 45 |E.&.ER.1.9560..E|
00003D60: 00 27 8D 39 39 34 35 3A 9F 31 2C 44 56 2C 39 2C |.'.9945:.1,DV,9,|
00003D70: 22 49 4E 56 45 4E 54 4F 52 59 2C 53 2C 57 22 3A |"INVENTORY,S,W":|
00003D80: 8B 44 56 B3 B1 38 A7 39 39 38 36 00 A4 45 01 27 |.DV..8.9986..E.'|
00003D90: 84 35 2C 45 52 2C 45 52 24 3A 8B 45 52 B1 31 A7 |.5,ER,ER$:.ER.1.|
00003DA0: 39 35 36 30 00 CF 45 02 27 98 31 2C 4C 52 3A 81 |9560..E.'.1,LR:.|
00003DB0: 5A B2 31 A4 4C 52 3A 81 5A 5A B2 31 A4 38 3A 98 |Z.1.LR:.ZZ.1.8:.|
00003DC0: 31 2C 49 52 24 28 5A 2C 5A 5A 29 3A 82 3A 82 00 |1,IR$(Z,ZZ):.:..|
00003DD0: E2 45 03 27 A0 31 3A 8B 44 56 B3 B1 38 A7 39 39 |.E.'.1:.DV..8.99|
00003DE0: 38 39 00 EF 45 04 27 A0 35 3A 8D 39 36 32 30 00 |89..E.'.5:.9620.|
00003DF0: 1A 46 05 27 99 45 4F 24 A3 32 29 42 24 A3 32 29 |.F.'.EO$.2)B$.2)|
00003E00: 42 24 45 4F 24 2C 22 97 46 49 4C 45 20 53 41 56 |B$EO$,".FILE SAV|
00003E10: 45 44 2E 22 A3 34 30 29 41 24 00 2B 46 0F 27 8D |ED.".40)A$.+F.'.|
00003E20: 39 32 35 30 3A 45 46 B2 30 3A 8E 00 00 00 |9250:EF.0:.... |
..N.... CBM-64 HOME INVENTORY
(C) 1983 CREATIVE SOFTWARE.T
.....O...BD.53280:.BD,3:.BD.1,1......"..
.........","...H O M E I N V E N T O R
Y"......"...."," COPYRIGHT 1983 BY":."
.."," CREATIVE SOFTWARE"......"..."," A
LL RIGHTS RESERVED".6....IR$(200,8),L$(8
),M$(8),E$(4):IN.1:.9200:.9000.J....9900
:.I.0.1050.Z....I.136.1000....TS$."LOAD
ING ":.9930:.I.136.1000......9950:.I.136
.ER.1.1000......9100:. MAIN MENU.U....C.
1100,2000,3000,4000,1070,8000...$.E.1:.9
500:.1050......1600:.1050...L.. ********
** ITEM ENTRY & UPDATE.1.V..9110:. MENU
1.B.`..C$."E".8000.S.B..C$."M".1050.Q.J.
.C.1.C.MC.E.1:.9500:.1100...~..C.1200,13
00,1400,1500,1600:.1100...... ... REVIEW
ITEMS......LR.0..9554:....D..1860:..5)"
......REVIEW STARTING AT ITEM # ."...F.X
C.31:YC.8:LL.3:DF.1:.9800:S.X0:.S.0.S.1.
4.N..S.0..9552:.1210.J.P..S.LR..9552:.12
10.J.X..Y.S.LR:DI.Y:.".".40):.1890......
Y.LR..EO$.3)".THIS IS THE LAST ITEM IN T
HE FILE."......9240:.I.136.Y.LR......Y:.
.S.... ...ADD ITEMS.....IN.LR.1:DI.LR...
#..IN.201.1340.,.(.."."OF$.122)".THE MEM
ORY IS FILLED TO CAPACITY..".L.-.." PLEA
SE SAVE THE ITEMS ON DISK OR TAPE..":.92
90:LR.IN.1:..|.<..9460:.9470...>..I.136.
.EO$.7)"."N$IN". NOT ADDED. .":IN.IN.1:.
1350.W.@..1870:.EO$.11)"."N$IN".ADDED.".
..F..9260:.I.136.LR.IN:....L.IN.IN.1:.IN
.LR.1.DI.IN.1...O.LR.LR.1:.1315.5.X.. ..
.CHANGE ITEMS.G....LR.0..9554:..W....186
0:.OF$.5)".SELECT AN ITEM # TO CHANGE.".
......50)".(ENTER 0 TO STOP)".....XC.33:
YC.9:LL.3:DF.0:.9800:CN.X0.F....CN.0....
...CN..(CN):.CN.0..9552:.1410......CN.LR
..9552:.1410./. .DI.CN:IN.CN:.".".53)".C
HANGE "N$CN:.9460:.9470.C....I.136..EO$.
7)N$IN". NOT CHANGED .":IN.CN:.1450.....
.1870:.EO$.11)N$IN".CHANGED."......9260:
.I.136........".":. 1410.........DELETE
ITEMS.O....LR.0..9554:.......1860:.OF$.5
)".CAUTION! ITEM NUMBERS CHANGE AS"."...
..14)"DELETIONS ARE MADE!".J.....45)".SE
LECT AN ITEM # TO DELETE.".H.....50)".(E
NTER 0 TO STOP)".....XC.33:YC.12:LL.3:DF
.0:.9800:DN.X0.....DN..(DN):.DN.0.......
.DN.0.DN.LR..9552:.1510.....DI.DN:.".":.
1890:.EO$.3)DE$.44)F7$:.9250......EO$"
"B$./....I.136..EO$.7)"."N$DN". NOT DE
LETED. .":.1550.?....DN.LR.1548.P....Z.D
N.LR.1:.ZZ.1.8:IR$(Z,ZZ).IR$(Z.1,ZZ):.:.
.....LR.LR.1:EF.1:.EO$.11)"."N$DN".DELET
ED."......9260:.I.136........".":.1510.R
.@.. ...SAVE ITEMS...J..LR.0..9554:....T
..1860:.OF$.3)".SAVE THE ITEMS ON":YC.14
:XC.25:.9920.).U..I.136...F.V..DV$."TAPE
".I$."N":.1636.L.X...124)".DO YOU WISH T
O SAVE WITH"...Z...45)".. B . BACKUP".85
)". N . NO BACKUP?"...^.YC.21:DF$."B":.9
750:I$.X$.F.`..I.I36.....D..I$."N".NF$."
INVENTORY"...F.TS$."SAVING ":.9940:.DV.1
..9984:....H..9980:..?.D.."... "FC$"
."LR".ITEMS..";:.9160:..D.N.EF.1:.J.1.8:
IR$(IN,J).IN$(J):.:....B.."... "FC$"
."LR".ITEMS..";:.9466:....P.. **** SEARC
H THRU ITEMS.B.Z..LR.0..9554:.1050.Y....
9120:.C$."E".8000......C$."M".1050......
C.1.C.MC.E.1:.9500:.2000.3....C.2100,210
0,2100,2100,2200,2200:.2000.X.4.. SEARCH
BY LOC.,CAT.,DESC.,SER#...>..2860:RQ$."
LOCATION":LL.10:.C.2.RQ$."CATEGORY"...@.
.C.3.RQ$."DESCRIPTION":LL.15.L.B..C.4.RQ
$."SERIAL NO.":LL.15...H..OF$.2)".SELECT
A ."RQ$". TO SEARCH FOR.".".J...41)I(B$
.RQ$.": .",20):XC.21:YC.11.C.N.LJ.C(IR$(
LR,C)):DI.LR:J.C:.9700:SR$.X$:.X$."*".SR
$.IR$(LR,C).T.O..I.136.I.0:....R.AH.0:.Y
.1.LR:W$.IR$(Y,C):.".... SEARCHING FOR
."SR$".":.2810.K.T..I.136.Y.LR:.Y:....V.
.Y:.AH.0..OF$.245)".NO .";SR$;". UNDER .
"RQ$:.2138.A.X..EO$B$EO$.(16.C(SR$)).2)"
.THAT'S ALL THERE IS OF .";SR$".".S.Z..9
620:.9290:..J.... SEARCH BY AMOUNT......
2860:AH.0:W.0:RQ$."PURCHASE PRICE":.C.6.
RQ$."CURRENT VALUE"......OF$.5)".THE ."R
Q$". THAT YOU"R$.5)"WISH TO SEARCH FOR I
S".......45)" GREATER THAN -".85)"AND LE
SS THAN -.".B...XC.21:YC.12:LL.10:DF.0:.
9800:SA.X0.P...XC.21:YC.14:LL.10:DF.1E6:
.".":.9800:FA.X0......FA.SA.E.5:.9500:.2
200......R$R$.13.C(RQ$).2)".SEARCHING FO
R ."RQ$.......50)". GREATER THAN ."SA;R$
.10)".AND LESS THAN ."FA......9202:AH.0.
*....Y.1.LR:W$.IR$(Y,C.1):W..(E(W$)):.28
20.?....I.136.Y.LR:.Y:..R....Y:.AH..0.22
36.T....OF$R$R$R$R$R$.250)".NO ."RQ$....
...10)". GREATER THAN ."SA;R$.10)".AND L
ESS THAN ."FA:.2238......EO$B$EO$.9)".TH
IS IS THE LAST ONE.."......9290:........
..UTILITY FOR SEARCH SECTION.I...X.C(SR$
):F.C(W$).X.1:.J.1.F:.SR$.J(W$,J,X).HF.1
:J.F:AH.1.[....:.HF.1..2890.A.....}....W
..SA..W..FA.HF.1:AH.1......HF.1..2890...
......,..".".85)"."FC$;"."LR;".ITEMS.";:
.9160:....J..".".85)"."FC$;"."LR;".ITEMS
.";:.9480:.9230:HF.0:....... **** VALUAT
ION OF ITEMS.*.B..LR.0..9554:.1050.A.L..
9130:.C$."E".8000.R.N..C$."M".1050.P.V..
C.1.C.MC.E.1:.9500:.3000......3100:.3000
......LISTING LOC,C=1;CAT,C=2;ALL,C=3...
&..3860:I.0:VC.0:PC.0:RQ$."LOCATION":.C.
2.RQ$."CATEGORY":.3120...(..C.3.RQ$."TOT
AL":SR$.RQ$:.3128.0.0..OF$.5)".SELECT A
"RQ$" TO VALUE.".F.2...50)"."RQ$" : ."..
.4.XC.22:YC.11:LL.10:LJ.C(IR$(LR,C)):DI.
LR:J.C:.9700:SR$.X$...6..X$."*".SR$.IR$(
DI,J).L.8..OF$.172)".VALUING ."SR$:AH.0:
.I.136.I.0:....:..EO$.45)B$;:.Y.1.LR...<
.VI$.IR$(Y,7):VI.E(VI$):W$.VI$:W.VI:.961
0:VI$.W$:VI.W.`.>.PI$.IR$(Y,6):PI.E(PI$)
:W$.PI$:W.PI:.9610:PI$.W$:PI.W:.C.3.3142
.X.D..SR$..IR$(Y,C).3150...F.VC.VC.E(IR$
(Y,7)):PC.PC.E(IR$(Y,6)):VC$.D(VC):PC$.D
(PC)...N..Y:.PC..0..OF$.250)".NO ."SR$".
TO VALUE.":.3199.).P.W$.PC$:W.PC:.9610:
PC$.W$:PC.W:W$.VC$:W.VC:.9610:VC$.W$:VC.
W.C.R..9620:.OF$.242)"."SR$" PURCHASE PR
ICE:.$"I(B$.PC$,10)...T...42)"."SR$" CU
RRENT VALUE:.$"I(B$.VC$,10).....9620:.9
260:..O....".".85)"."FC$"."LR".ITEMS.";:
.9160:.... .. ********* LIST ITEMS......
LR.0..9554:.1050......9140:.C$."E".8000.
(....C$."M".1050.F....C.1.C.MC.E.1:.9500
:.4000.V.R..4100:.4000...... SET UP FOR
SCREEN & PRINTER (SCREEN:C=1 ; PRINTER:C
=2)......4860:.OF$.5)".DO YOU WISH TO LI
ST ON".......45)". S . SCREEN".50)"OR".4
5)". P . PRINTER?":YC.13:XC.25.....DF$."
S":.9750:I$.X$:.I.136...^...HF.0:L.0:PG.
0:DV.3:DV$."SCREEN":.I$."P".DV.4:DV$."PR
INTER".{....DV.3. 4:.4,3:PG.0:.4116.....
4:.4,4,7: 4:.ST.E.4:.9500:...... 4:.4,4
,7.....LL.10:RQ$."LOCATION":.C.2.RQ$."CA
TEGORY":.4120......C.3.RQ$."TOTAL":SR$."
ALL":.4128.D....OF$.245)".SELECT A ."RQ$
". TO LIST.".90)RQ$" : ":YC.17:XC.22....
.LJ.C(IR$(LR,C)):DI.LR:J.C:.9700:.X$."*"
.SR$.IR$(LR,C):.4128.....SR$.X$:.I.136.L
.3..4840:.4850:.4179.A....I.136.I.0:.411
6.Q. ..DV.4..4810...!..DV..4..4830.. ".C
T.0:PT.0:VT.0:F.LR:.Y.1.F:SP.9.3 #..I$:I
.F(I$.G(0)):.I.136.DV.4..4840:.4179.U $.
.I.136.Y.F:.:.4850:.".":.4179.C %..C.3.4
136.{ &..SR$..IR$(Y,C).4160.. (.PI.E(IR$
(Y,6)):PT.PT.PI:VI.E(IR$(Y,7)):VT.VT.VI.
. *.W$.D(PI):.9610:PI$.W$:W$.D(VI):.9610
:VI$.W$.. ,..4,D(Y).5.(C(D(Y))));. !-..C
..1..4,IR$(Y,1).11.C(IR$(Y,1)));.G!...C.
.2..4,IR$(Y,2).11.C(IR$(Y,2)));.P!/..DV.
3.C.3..4,H(IR$(Y,3),12)R$;:.4146..!0..DV
.3..4,IR$(Y,3)R$;:.4146..!1..4,IR$(Y,3).
16.C(IR$(Y,3)));..!2..4,IR$(Y,4).16.C(IR
$(Y,4)));:.DV.3.4148.."3..C..3..4,IR$(Y,
5).10.C(IR$(Y,5)));:SP.SP.1.C"4..4,G(15)
.SP.C(PI$))PI$;.11.C(VI$))VI$:L.L.1:CT.C
T.1.R"5..DV.3.L.L.1:.L.19..9260:.4,".":.
4830:.4160.."6..L.61..4870:HF.0:.4810.N"
@..Y:.CT.0..4,R$R$;.6);"NO .";SR$;". INV
ENTORY TO LIST.":L.L.3.."B.W$.D(PT):.961
0:PT$.W$:W$.D(VT):.9610:VT$.W$.'#C..DV.3
..L.18..9260:.4,".":.4830:.4166.B#D..L.6
1..4870:HF.0:.4810.Q#F..4,R$".TOTAL (."C
T".ITEMS )".43.C(D(CT)));..#G..DV.3.."..
.";..#H..4,"$.".9.C(PT$))PT$". $.".9.C(V
T$))VT$R$:L.L.3.J#J..C.3.DV.4.4179..#L..
C.3.DV.3..9260:.".":.4179..#M..DV.3..926
0.@$N.."."OF$".. PRESS ANY KEY TO CO
NTINUE TO":.,". LIST BY ."RQ$".".F$O..,"
...PRESS . F7 . TO STOP.":HF.0..$P..9620
:.9296:.I..136..".":.4860:HF.1:.4120..$Q
..DV.4..4840..$R..DV..4..4850.N$S..".":.
4870: 4:.".":...$... UTILITIES FOR THIS
SECTION..$J..HF.1.4813.3%K.PG.PG.1:.4,R$
"..HOME INVENTORY".17)".ITEM LIST";.]%L.
.4,G(15).22)"PAGE"PG;R$:L.3:.C.3.4814.{%
M..4,".30"RQ$" : "SR$:L.L.1..%N..4,"ITEM
";:.C..1..4,"LOCATION ";..%O..C..2..4
,"CATEGORY ";..%P..4,"DESCRIPTION
";:.DV.3..4,R$;:.C.3..4,".";..&Q..4,"SER
IAL NUMBER ";:.DV.3.4819.6&R..C..3..4,
"PUR.DATE ";.^&S..4,"PUR.PRICE CUR.VA
LUE"R$:L.L.2:...&..PG.PG.1:.4,"...HOME I
NVENTORY ITEM LIST";..&...4,G(15).6)"PA
GE"PG:L.1:.C.3.4814.T&....10)RQ$" : "SR$
:L.L.1:.4814..'...4,R$R$.30)".. STOPPED
. BY . F7 . KEY.":L.L.3:..E'..."."OF$.25
0)"... STOPPED . BY . F7 . KEY.":.9202:.
".":..O'...".".85)"."FC$"."LR".ITEMS.";:
.9160:...'...L.L.65:.4:.L:L.0:...'@..BD,
3:.LR.0.EF.0.8050.R'T..".".82)".YOU HAVE
N'T YET SAVED THE CHANGES"..(V.." WHICH
YOU MADE TO THE INVENTORY FILE.".*(W...8
2)".IF YOU WANT TO SAVE THE FILE,".Z(X..
.42)"PRESS . F7 . TO RETURN TO MAIN MENU
."..(Y...82)".IF YOU REALLY . DO . WANT
TO EXIT,"..(Z...42)"PRESS . ANY OTHER KE
Y ..":.9250.C(^..I.136.1050..(R.."."OF$,
".DONE.....":...(D".X.1.9: X:.X:.1050..)
(#. ***** UTILITY.*),#L$(0)." ITEM
NUMBER : ".A).#L$(1)." LOCATION
: . ..........."..)0#L$(2)."
CATEGORY : . ..........."
.Y)2#L$(3)." DESCRIPTION : .
................"..*4#L$(4)."
SERIAL NO. : . .......
.........".M*6#L$(5)." PURCHASE DATE
: . ........."..*8#L$(6)." PURC
HASE PRICE : . ..........."..*:
#L$(7)." CURRENT VALUE : . .
.........."..*<#L$(8)." VALUATION DATE
: . ........."..+F#E$."ENTER LET
TER OF CHOICE ".B+H#A3$." . PRESS A
NY KEY TO CONTINUE . ".S+I#A2$."
PRESS ANY KEY TO CONTINUE "..+J#
A$.". . PRESS ANY KEY TO CONTINUE
. ".X+K#A1$.". PRESS ANY KEY TO
CONTINUE "..,L#F$.". PREPARE TH
E INVENTORY DATA ".3,M#F1$." PRESS
ANY KEY WHEN READY ".A,N#F7$.".PR
ESS . F7 . TO PRESERVE THE ITEM.". ,R#CD
$.".........................":OF$.H(CD$,
9):EO$.H(CD$,23)..,T#L$."...............
.....":B$."
".4-V#CL$.".....................":
CR$.".............................":R$.G
(13).^-^#FC$."THIS FILE CONTAINS":N$.".I
TEM #"..-`#DE$.".PRESS ANY KEY TO DELETE
THIS ITEM.":..C-.#M$(0).".HOME INVENTOR
Y : MAIN MENU":MC$."ISVLAE"..-.#M$(1).".
. I . - ITEM ENTRY & UPDATE"....#M$(2)."
.. S . - SEARCH THRU ITEMS".;..#M$(3).".
. V . - VALUATION OF ITEMS".A..#M$(4).".
. L . - LISTING OF ITEMS"....#M$(5)."..
A . - SAVE ITEMS ON DISK OR TAPE"....#M$
(6).".. E . - EXIT FROM PROGRAM.".X..#MC
.6:.BD,2:YC.5:XC.6:.9300../.#M$(0).".MEN
U 1: ITEM ENTRY & UPDATE":MC$."RACDSME".
8/.#M$(1).". R . - REVIEW ITEMS IN FILE"
.^/.#M$(2).". A . - ADD ITEMS TO FILE"..
/.#M$(3).". C . - CHANGE ITEMS IN FILE".
./.#M$(4).". D . - DELETE ITEMS FROM FIL
E"../.#M$(5).". S . - SAVE ITEMS ON DISK
OR TAPE"..0.#M$(6).".. M . - GO BACK TO
MAIN MENU"..0.#M$(7).".. E . - EXIT PRO
GRAM.".M0.#MC.7:.BD,6:YC.4:XC.5:.9300..0
#M$(0).".MENU 2: SEARCH THRU ITEMS":MC$
."LCDSPVME"..0.#M$(1).". L . - BY LOCATI
ON".C0.#M$(2).". C . - BY CATEGORY"..0.#
M$(3).". D . - BY DESCRIPTION"..1.#M$(4)
.". S . - BY SERIAL NO."..1.#M$(5).". P
. - BY PURCHASE PRICE".S1.#M$(6).". V .
- BY CURRENT VALUE"..1.#M$(7).".. M . -
GO BACK TO MAIN MENU":M$(8).".. E . - EX
IT PROGRAM."..1.#MC.8:.BD,14:YC.2:XC.8:.
9300..1.#M$(0).".MENU 3: VALUATION OF IT
EMS":MC$."LCAME"..2.#M$(1).". L . - VALU
E BY LOCATION".<2.#M$(2).". C . - VALUE
BY CATEGORY".D2.#M$(3).". A . - VALUE AL
L INVENTORY"..2.#M$(4).".. M . - GO BACK
TO MAIN MENU"..2.#M$(5).".. E . - EXIT
PROGRAM.".Q2.#MC.5:.BD,15:YC.7:XC.8:.930
0..3.#M$(0).".MENU 4: LISTING OF ITEMS":
MC$."LCAME".(3.#M$(1).". L . - LIST BY L
OCATION".M3.#M$(2).". C . - LIST BY CATE
GORY".T3.#M$(3).". A . - LIST ALL INVENT
ORY"..3.#M$(4).".. M . - GO BACK TO MAIN
MENU".A3.#M$(5).".. E . - EXIT PROGRAM.
"..3.#MC.5:.BD,11:YC.5:XC.8:.9300..3H#."
. "M$(C):...4.#.I.0.100:.I:...4.#.I.
0.700:.I:..64.#.CF.0.."..";:CF.1:.9214.N
4.#.CF.1.."....";:CF.0.O4.#.I$:..(I$."")
.9210:I.F(I$):...4.$."..";:.9200:."...."
;..4.$.I$:..(I$."").9210:I.F(I$):..N4.$.
EO$.40)A3$;:.9250:.EO$.40)B$:...4.$.EO$.
40)A$;:.9250:.EO$.40)B$:...5"$.I$:..(I$.
"").9250:I.F(I$):.EO$R$B$:..B5,$.CF.0..E
O$.40)A$;:.9200:CF.1:.9264.D5.$.CF.1..EO
$.40)A1$;:.9200:CF.0..50$.I$:..(I$."").9
260:I.F(I$):...56$.CF.0..EO$.40)A$;:.920
0:CF.1:.9274.N58$.CF.1..EO$.40)A1$;:.920
0:CF.0..5:$.I$:..(I$."").9270:I.F(I$):..
.6@$.EO$.40)A1$;:.9285:.9200.-6B$.I$:..(
I$."").9280:I.F(I$):..R6C$.EO$.40)A3$;:.
9200:.EO$.40)B$;:..Z6E$.CC.149.154:.G(CC
);:.9289:.9200:.:...6I$.EO$.40)" .
.";I(CR$,26);". . ";:.9200:..Y6J$.C
F.0..EO$.40)A2$;:.9200:CF.1:.9294..6L$.C
F.1..EO$.40)A3$;:.9200:CF.0.%7N$.I$:..(I
$."").9290:I.F(I$):.EO$R$B$:..F7P$.I$:..
(I$."").9296:I.F(I$):..J7T$. MENU PRINTI
NG & CHOICE SELECT..7^$C$."":."."H(CD$,Y
C).XC)M$(0)R$..7`$.X.1.MC:..40.XC)M$(X):
...7H$C.0:..80.XC)E$;:XC.XC.C(E$).2:YC.Y
C.2.MC.4:DF$."":.9750..7I$.I.136.X$."M".
08J$C$.H(X$,1):LM.C(MC$):.X.1.LM:.J(MC$,
X,1).C$.C.X:LM.X.98L$.X:..R8.$. UTILIT
Y PRINTING..8B$.H(CD$,YC).XC)H(L$,LL)H(C
L$,LL);:X$."":X0.0:...8L$.H(B$,LL.C(X$).
1);:X0..(E(X$)):...8P$.9410:.DF;:X0.DF:.
..8V$.H(CD$,YC).XC)IR$(DI,J)H(L$,LL.LJ)H
(CL$,LL.1);..9X$X$."":X0.0:..49.$." .."
:.9410:.IR$(DI,J)H(B$,LL.LJ);:X$."*".J9.
$X0.E(IR$(DI,J)):..Q9.$." ..":.9410:.DF
$;:X$.DF$:X0.DF:.. 9.$.H(CR$,LJ.1)H(B$,L
L.LJ);:X0.E(IR$(DI,J)):..B9.$. ITEM ENT
RY DISPLAY SECTION..9.$.1860:.".".120)".
";L$(0)".";DI..:.$.J.1.8:..40)"."L$(J)".
"IR$(DI,J):.:..%:.$..80)"."L$(0)"."DI.T:
.$.J.1.8:..40)"."H(L$(J),20)"."IR$(DI,J)
:.:..W:.$.".".140)"."IN:. INPUT SECTION.
.:.%.J.1.8:YC.4.2.J:XC.20:LL.10:.J.3.J.4
.LL.15..:.%.J.5.J.8.LL.8.W:.%LJ.C(IR$(DI
,J)):.".":.9700..:.%IN$(J).X$:.X$."*".IN
$(J).IR$(DI,J)..;.%.J:..';.%. SEARCH
DISPLAY SECTION.=;.%..80)"."L$(0)"."Y.M;
.%.J.1.8:..40)".";H(L$(J),20);"."IR$(Y,J
):.:...;.%.H(CD$,YC).XC):.:. POSITION AT
YC,XC..;.%E$(0)."THAT'S NOT ONE OF THE
CHOICES"..;(%E$(1)."# MUST BE BETWEEN 1
AND".D(LR).$<*%E$(2)."NO ITEMS IN MEMORY
":E$(3)."NO PRINTER ON LINE".K<0%E$(4)."
LARGER AMOUNT MUST BE LAST".|<:%.EO$" ..
ERROR.==> "E$(E.1):.9620:.9290:E.0:...<N
%. ERROR FLAGS..<P%E.2:.9500:.".":
...<R%E.3:.9500:.".":...<X%.EO$B$EO$,ER;
ER$:.9620:.15,8,15,"I": 15:.9260..<Z% 1:
5:..!=.%. FORMAT,SOUND & MISC. UTILITIE
S.K=.%W.E(W$):.H(I(W$,2),1).".".W$.W$."0
":..C=.%.W..(W).W$.W$.".00".I=.%...=.%S.
54272:FR.30:.L.0.24:.S.L,0:.:.S.1,130:.S
.5,9:.S.15,FR..=.%.S.24,10:.L.1.2:.S.4,2
1:.S.15,FR.L.6:.T.1.L.300:...>.%.S.4,20:
.T.1.(L.10):.:.:.L.0.24:.S.L,0:.:...>.%.
9430.7>.%.9210:X.I.127:.X$."".I.13.9440.
F>.%.I.13.9420._>.%.I.20.I.32.I.38.9714.
P>.%.I.136.J.8:...>.%.I.45.I.90.9702..>.
%.(I.58.I.59.I.61.I.63.I.64.X.32.X.96).I
..20.9702.I>.%.I..20.9724.Y>.%.X$."".970
2..>.%.C(X$).LL.." ..";:.9722..?.%."..."
;..?.%X$.H(X$,C(X$).1):.9702.3?.%.X$."".
." ";:.9410.O?.%.C(X$).LL.X$.X$.I$:.I$;.
Y?.&.9702.|?.&LL.1:.9410:. ALPHA INITIAL
GET..?.&.9210:X.I.127:.X$."".I.13.9444.
.?.&.I.13.9420..?.&.I.20.9764.J?.&.I.136
....? &.I.65.I.90.9752..?$&.I..20.9774..
?&&.X$."".9752..@(&.C(X$).LL.." ..";:.97
72.&@*&."...";.A@,&X$.H(X$,C(X$).1):.975
2.X@.&.X$."".." ";:.9410.T@0&.C(X$).LL.X
$.X$.I$:.I$;.~@2&.9752..@H&.9410:.
NUMERIC GET..@J&.9210:.X$."".I.13.9424.E
@L&.I.13.9420.Y@M&.I.46.I.20.9808..@N&.(
I.48.I.57).I..46.I..20.9802..AP&.I..20.9
818..AR&.X$."".9802.7AT&.C(X$).LL.." .."
;:.9816.CAV&."...";.^AX&X$.H(X$,C(X$).1)
:.9802.ZAZ&.C(X$).LL.X$.X$.I$:.I$;..A\&.
9802..A.&.BD,13:I.0:."..".125)"HAVE YOU
AN INVENTORY FILE? "..A.&YC.4:XC.34:DF$.
"":.9750:I$.H(X$,1)..A.&.I$.."Y".I$.."N"
.9900..B.&.I$.."Y".I.0:..AB.&.:..90)". T
. TAPE".55)"OR".50)". D . DISK?".NBB&YC
.9:XC.27:.".".20);:DF$."D":.9750:I$.X$..
BD&DV.8:DV$."DISK":.I$."T".DV.1:DV$."TAP
E". BI&..DBJ&I.0:NF$."INVENTORY":.DV..8.
9940..BL&..165)".WHICH FILE DO YOU WISH
TO LOAD?".)CN&..45)".. I . INVENTORY".85
)". B . INVENTORY BACKUP".GCP&YC.17:DF$.
"I":.9750:I$.X$.TCQ&.I.136...WCR&.I$."B"
.NF$."INVENTORY BACKUP"..CT&.EO$F$DV$:.F
1$:.9250. CV&.EO$.4)B$:...CY&.EO$". "
TS$NF$" FILE.":..PC.&.EO$.4)B$:...C.&.DV
.1.."........":.1,1,0,NF$:.9970..D.&.1,8
,9,NF$.",S,R".#D.&.5,8,15:.5,ER,ER$.2D.&
.ER.1.9560.CD.&.9945:.1,LR:.Z.1.LR:.ZZ.1
.8:.1,IR$(Z,ZZ):.:..UD.& 1:.DV.1.9979..D
.&.5,ER,ER$: 5..D.&.9620:.ER.1.9560.KD.&
.EO$B$EO$.5)NF$" FILE LOADED.":.9270:EF.
0:...D.&.9945:.5,8,15,"I":.X$."N".9982..
E.&.5,"S0:INVENTORY BACKUP":.5,"R0:INVEN
TORY BACKUP=INVENTORY".NE.&.5,"S0:INVENT
ORY":.5,ER,ER$.]E.&.ER.1.9560..E.'.9945:
.1,DV,9,"INVENTORY,S,W":.DV..8.9986..E.'
.5,ER,ER$:.ER.1.9560.OE.'.1,LR:.Z.1.LR:.
ZZ.1.8:.1,IR$(Z,ZZ):.:...E.' 1:.DV..8.99
89..E.' 5:.9620..F.'.EO$.2)B$.2)B$EO$,".
FILE SAVED.".40)A$.+F.'.9250:EF.0:....
> CLICK IMAGE PREVIEW FOR FULL MODAL