INVENTARIO
FILE INFORMATION
FILENAME(S): INVENTARIO
FILE TYPE(S): PRG
FILE SIZE: 10.8K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
4987e92051abfc7ce166ced092cee571aa055b1dccd61bef1b9b25760c7488ae
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | INVENTARIO | PRG | Bugjam - Argentina | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 01 00 97 20 37 38 38 2C 35 32 3A 99 |....... 788,52:.|
00000010: 22 93 22 3A 97 35 33 32 38 31 2C 31 32 00 30 08 |".":.53281,12.0.|
00000020: 0A 00 8F 20 49 4E 56 45 4E 54 4F 52 59 20 36 34 |... INVENTORY 64|
00000030: 00 3A 08 10 00 99 C7 28 35 29 00 5E 08 14 00 86 |.:.....(5).^....|
00000040: 52 45 43 24 28 36 35 30 29 3A 46 44 B2 30 3A 46 |REC$(650):FD.0:F|
00000050: 58 B2 31 30 3A 43 48 B2 32 3A 46 50 B2 31 00 6B |X.10:CH.2:FP.1.k|
00000060: 08 1E 00 86 48 44 24 28 31 33 29 00 86 08 28 00 |....HD$(13)...(.|
00000070: 48 44 24 28 31 29 B2 22 20 12 50 41 52 54 20 4E |HD$(1)." .PART N|
00000080: 55 4D 42 45 52 22 00 A2 08 32 00 48 44 24 28 32 |UMBER"...2.HD$(2|
00000090: 29 B2 22 20 12 55 4E 49 54 20 4F 46 20 4D 45 41 |)." .UNIT OF MEA|
000000A0: 53 22 00 BD 08 3C 00 48 44 24 28 33 29 B2 22 20 |S"...<.HD$(3)." |
000000B0: 12 44 45 53 43 52 49 50 54 49 4F 4E 22 00 D5 08 |.DESCRIPTION"...|
000000C0: 46 00 48 44 24 28 34 29 B2 22 20 12 49 4E 20 53 |F.HD$(4)." .IN S|
000000D0: 54 4F 43 4B 22 00 EF 08 50 00 48 44 24 28 35 29 |TOCK"...P.HD$(5)|
000000E0: B2 22 20 12 52 45 4F 52 44 45 52 20 50 54 22 00 |." .REORDER PT".|
000000F0: 0A 09 5A 00 48 44 24 28 36 29 B2 22 20 12 4D 49 |..Z.HD$(6)." .MI|
00000100: 4E 20 4F 52 44 20 51 54 59 22 00 23 09 64 00 48 |N ORD QTY".#.d.H|
00000110: 44 24 28 37 29 B2 22 20 12 53 41 4C 45 53 20 59 |D$(7)." .SALES Y|
00000120: 54 44 22 00 3D 09 6E 00 48 44 24 28 38 29 B2 22 |TD".=.n.HD$(8)."|
00000130: 20 12 4C 49 53 54 20 50 52 49 43 45 22 00 55 09 | .LIST PRICE".U.|
00000140: 78 00 48 44 24 28 39 29 B2 22 20 12 4E 45 54 20 |x.HD$(9)." .NET |
00000150: 43 4F 53 54 22 00 6E 09 82 00 48 44 24 28 31 30 |COST".n...HD$(10|
00000160: 29 B2 22 20 12 4C 4F 43 41 54 49 4F 4E 22 00 85 |)." .LOCATION"..|
00000170: 09 8C 00 48 44 24 28 31 31 29 B2 22 20 12 56 45 |...HD$(11)." .VE|
00000180: 4E 44 4F 52 22 00 91 09 8E 00 86 54 4C 24 28 36 |NDOR"......TL$(6|
00000190: 29 00 BA 09 90 00 54 4C 24 28 35 29 B2 22 20 20 |).....TL$(5)." |
000001A0: 20 20 50 41 52 54 20 20 20 20 55 4F 4D 20 20 20 | PART UOM |
000001B0: 20 51 55 41 4E 54 49 54 59 22 00 E9 09 92 00 54 | QUANTITY".....T|
000001C0: 4C 24 28 36 29 B2 22 20 20 50 41 52 54 20 20 20 |L$(6)." PART |
000001D0: 20 55 4F 4D 20 20 20 20 51 55 41 4E 54 49 54 59 | UOM QUANTITY|
000001E0: 20 20 20 20 43 4F 53 54 22 00 03 0A 96 00 81 49 | COST"......I|
000001F0: B2 31 A4 33 39 3A 41 53 24 B2 41 53 24 AA 22 2A |.1.39:AS$.AS$."*|
00000200: 22 3A 82 00 40 0A 97 00 99 20 22 93 22 3B A3 31 |":..@.... ".";.1|
00000210: 33 29 22 90 49 4E 56 45 4E 54 4F 52 59 20 36 34 |3)".INVENTORY 64|
00000220: 22 3A 99 22 11 11 11 50 4C 41 43 45 20 44 41 54 |":."...PLACE DAT|
00000230: 41 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 22 |A DISK IN DRIVE"|
00000240: 00 5E 0A 98 00 99 22 11 48 49 54 20 52 45 54 55 |.^....".HIT RETU|
00000250: 52 4E 20 57 48 45 4E 20 52 45 41 44 59 22 00 67 |RN WHEN READY".g|
00000260: 0A 99 00 8D 31 37 30 00 7B 0A 9A 00 8B 20 5A 24 |....170.{.... Z$|
00000270: B3 B1 C7 28 31 33 29 A7 31 35 33 00 98 0A 9B 00 |...(13).153.....|
00000280: 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 9F 32 |.15,8,15,"I0":.2|
00000290: 2C 38 2C 32 2C 22 23 22 00 B3 0A 9C 00 85 22 11 |,8,2,"#"......".|
000002A0: 4E 45 57 20 44 49 53 4B 20 28 59 2F 4E 29 22 3B |NEW DISK (Y/N)";|
000002B0: 4E 44 24 00 D0 0A 9D 00 8B 20 4E 44 24 B3 B1 22 |ND$...... ND$.."|
000002C0: 59 22 AF 20 4E 44 24 B3 B1 22 4E 22 A7 31 35 36 |Y". ND$.."N".156|
000002D0: 00 01 0B 9E 00 8B 20 4E 44 24 B2 22 4E 22 20 A7 |...... ND$."N" .|
000002E0: 20 8D 31 30 31 30 30 3A 8D 31 30 34 30 30 3A 8B | .10100:.10400:.|
000002F0: 45 4E B3 B1 30 A7 A0 31 35 3A A0 32 3A 89 31 35 |EN..0..15:.2:.15|
00000300: 31 00 17 0B 9F 00 8B 20 4E 44 24 B2 22 59 22 A7 |1...... ND$."Y".|
00000310: 20 8D 31 30 30 30 30 00 21 0B A0 00 89 20 31 38 | .10000.!.... 18|
00000320: 35 00 47 0B A5 00 99 22 4E 55 4D 42 45 52 20 54 |5.G...."NUMBER T|
00000330: 4F 4F 20 4C 41 52 47 45 22 3A 81 49 B2 31 A4 31 |OO LARGE":.I.1.1|
00000340: 30 30 30 3A 82 3A 8E 00 59 0B A6 00 81 49 B2 31 |000:.:..Y....I.1|
00000350: A4 31 30 30 30 3A 82 3A 8E 00 6C 0B AA 00 A1 5A |.1000:.:..l....Z|
00000360: 24 3A 8B 5A 24 B2 22 22 A7 31 37 30 00 85 0B AF |$:.Z$."".170....|
00000370: 00 8B 20 5A 24 B2 22 5F 22 A7 8D 31 32 31 30 30 |.. Z$."_"..12100|
00000380: 3A 89 31 37 30 00 8B 0B B4 00 8E 00 C8 0B B9 00 |:.170...........|
00000390: 43 24 B2 22 20 20 20 20 20 20 20 20 20 20 22 3A |C$." ":|
000003A0: 96 A5 41 28 58 29 B2 B5 28 B6 28 4B 29 29 3A 96 |..A(X)..(.(K)):.|
000003B0: A5 42 28 58 29 B2 28 B6 28 4B 29 29 AB A5 41 28 |.B(X).(.(K))..A(|
000003C0: 58 29 AA 31 2E 30 30 35 00 D9 0B BA 00 52 42 24 |X).1.005.....RB$|
000003D0: B2 22 22 3A 4C 24 B2 22 22 00 F4 0B BB 00 81 20 |."":L$.""...... |
000003E0: 49 B2 31 A4 33 30 3A 52 42 24 B2 52 42 24 AA 22 |I.1.30:RB$.RB$."|
000003F0: 20 22 3A 82 00 0F 0C BC 00 81 20 49 B2 31 20 A4 | ":....... I.1 .|
00000400: 20 33 39 3A 4C 24 B2 4C 24 AA 22 2D 22 3A 82 00 | 39:L$.L$."-":..|
00000410: 18 0C BE 00 99 22 93 22 00 38 0C C8 00 99 A6 31 |.....".".8.....1|
00000420: 30 29 22 12 49 4E 56 45 4E 54 4F 52 59 20 46 55 |0)".INVENTORY FU|
00000430: 4E 43 54 49 4F 4E 53 22 00 45 0C D2 00 99 4C 24 |NCTIONS".E....L$|
00000440: 3A 99 22 11 22 00 6B 0C E6 00 99 A6 32 29 22 12 |:.".".k.....2)".|
00000450: 20 41 20 92 20 49 4E 56 45 4E 54 4F 52 59 20 4D | A . INVENTORY M|
00000460: 41 49 4E 54 45 4E 41 4E 43 45 22 00 8E 0C FA 00 |AINTENANCE".....|
00000470: 99 A6 32 29 22 11 12 20 42 20 92 20 49 4E 56 45 |..2)".. B . INVE|
00000480: 4E 54 4F 52 59 20 52 45 50 4F 52 54 53 22 00 AE |NTORY REPORTS"..|
00000490: 0C 04 01 99 A6 32 29 22 11 12 20 43 20 92 20 5A |.....2)".. C . Z|
000004A0: 45 52 4F 20 53 41 4C 45 53 20 59 54 44 22 00 E1 |ERO SALES YTD"..|
000004B0: 0C 0E 01 99 A6 32 29 22 11 12 20 44 20 92 20 45 |.....2)".. D . E|
000004C0: 58 49 54 20 50 52 4F 47 52 41 4D 20 20 20 12 20 |XIT PROGRAM . |
000004D0: 5F 20 92 20 50 52 49 4E 54 20 53 43 52 45 45 4E |_ . PRINT SCREEN|
000004E0: 22 00 E9 0C 13 01 99 4C 24 00 08 0D 18 01 99 22 |"......L$......"|
000004F0: 11 45 4E 54 45 52 20 44 45 53 49 52 45 44 20 46 |.ENTER DESIRED F|
00000500: 55 4E 43 54 49 4F 4E 22 00 3B 0D 19 01 99 22 11 |UNCTION".;....".|
00000510: 11 20 20 20 20 20 50 52 4F 47 52 41 4D 20 42 59 |. PROGRAM BY|
00000520: 22 3B A6 33 29 22 12 20 45 44 55 41 52 44 4F 20 |";.3)". EDUARDO |
00000530: 4C 2E 55 52 43 4F 4C 41 20 92 22 00 45 0D 22 01 |L.URCOLA .".E.".|
00000540: 8D 20 31 37 30 00 61 0D 2C 01 58 B2 C6 28 5A 24 |. 170.a.,.X..(Z$|
00000550: 29 AB 36 34 3A 8B 58 B3 31 B0 58 B1 34 A7 32 39 |).64:.X.1.X.4.29|
00000560: 30 00 7E 0D 36 01 91 20 58 20 89 20 34 30 30 2C |0.~.6.. X . 400,|
00000570: 33 35 30 30 2C 35 30 30 30 2C 39 30 30 30 00 87 |3500,5000,9000..|
00000580: 0D 90 01 99 22 93 22 00 A9 0D 9A 01 99 A6 31 30 |....".".......10|
00000590: 29 22 12 49 4E 56 45 4E 54 4F 52 59 20 4D 41 49 |)".INVENTORY MAI|
000005A0: 4E 54 45 4E 41 4E 43 45 22 00 B1 0D A4 01 99 4C |NTENANCE"......L|
000005B0: 24 00 D0 0D AE 01 99 A6 32 29 22 11 11 12 20 41 |$.......2)"... A|
000005C0: 20 92 20 44 49 53 50 4C 41 59 20 50 41 52 54 22 | . DISPLAY PART"|
000005D0: 00 EA 0D B8 01 99 A6 32 29 22 11 12 20 42 20 92 |.......2)".. B .|
000005E0: 20 41 44 44 20 50 41 52 54 22 00 07 0E C2 01 99 | ADD PART"......|
000005F0: A6 32 29 22 11 12 20 43 20 92 20 43 48 41 4E 47 |.2)".. C . CHANG|
00000600: 45 20 50 41 52 54 22 00 24 0E CC 01 99 A6 32 29 |E PART".$.....2)|
00000610: 22 11 12 20 44 20 92 20 44 45 4C 45 54 45 20 50 |".. D . DELETE P|
00000620: 41 52 54 22 00 46 0E D6 01 99 A6 32 29 22 11 12 |ART".F.....2)"..|
00000630: 20 45 20 92 20 45 4E 54 45 52 20 53 54 4F 43 4B | E . ENTER STOCK|
00000640: 20 53 4F 4C 44 22 00 6C 0E E0 01 99 A6 32 29 22 | SOLD".l.....2)"|
00000650: 11 12 20 46 20 92 20 45 4E 54 45 52 20 53 54 4F |.. F . ENTER STO|
00000660: 43 4B 20 52 45 43 45 49 56 45 44 22 00 91 0E EA |CK RECEIVED"....|
00000670: 01 99 A6 32 29 22 11 12 20 58 20 92 20 52 45 54 |...2)".. X . RET|
00000680: 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 |URN TO MAIN MENU|
00000690: 22 00 A9 0E F4 01 99 22 11 11 45 4E 54 45 52 20 |"......"..ENTER |
000006A0: 46 55 4E 43 54 49 4F 4E 22 00 B3 0E FE 01 8D 20 |FUNCTION"...... |
000006B0: 31 37 30 00 C4 0E 03 02 8B 20 5A 24 B2 22 58 22 |170...... Z$."X"|
000006C0: A7 31 39 30 00 E3 0E 08 02 58 B2 C6 28 5A 24 29 |.190.....X..(Z$)|
000006D0: AB 36 34 3A 8B 20 58 B3 31 B0 58 B1 36 20 A7 20 |.64:. X.1.X.6 . |
000006E0: 35 31 30 00 0A 0F 12 02 91 20 58 20 89 20 36 30 |510...... X . 60|
000006F0: 30 2C 31 30 30 30 2C 36 30 30 30 2C 32 34 30 30 |0,1000,6000,2400|
00000700: 2C 32 35 30 30 2C 32 35 30 30 00 1D 0F 58 02 8F |,2500,2500...X..|
00000710: 20 44 49 53 50 4C 41 59 20 50 41 52 54 00 26 0F | DISPLAY PART.&.|
00000720: 62 02 99 22 93 22 00 4A 0F 6C 02 99 A6 31 30 29 |b..".".J.l...10)|
00000730: 22 12 44 49 53 50 4C 41 59 20 50 41 52 54 20 4E |".DISPLAY PART N|
00000740: 55 4D 42 45 52 22 3A 99 4C 24 00 6C 0F 76 02 46 |UMBER":.L$.l.v.F|
00000750: B2 30 3A 85 22 50 41 52 54 20 4E 55 4D 42 45 52 |.0:."PART NUMBER|
00000760: 20 28 30 3D 45 4E 44 29 20 22 3B 46 00 75 0F 7B | (0=END) ";F.u.{|
00000770: 02 99 22 93 22 00 8D 0F 7C 02 99 22 20 12 50 41 |.."."...|.." .PA|
00000780: 52 54 20 23 20 92 22 3B 46 3A 99 4C 24 00 9B 0F |RT # .";F:.L$...|
00000790: 80 02 8B 20 46 B2 30 A7 34 30 30 00 B3 0F 85 02 |... F.0.400.....|
000007A0: 8B 20 46 B1 36 35 30 20 A7 20 8D 31 36 35 3A 89 |. F.650 . .165:.|
000007B0: 36 31 30 00 E4 0F 8A 02 8B 20 52 45 43 24 28 46 |610...... REC$(F|
000007C0: 29 B3 B1 22 31 22 A7 99 22 50 41 52 54 20 4E 4F |).."1".."PART NO|
000007D0: 54 20 4F 4E 20 46 49 4C 45 22 3A 8D 31 36 36 3A |T ON FILE":.166:|
000007E0: 89 36 31 30 00 F0 0F 94 02 8D 20 31 30 38 30 30 |.610...... 10800|
000007F0: 00 1C 10 9E 02 81 20 4A B2 32 A4 31 31 3A 99 48 |...... J.2.11:.H|
00000800: 44 24 28 4A 29 3B 22 92 20 20 20 22 3B 46 42 24 |D$(J);". ";FB$|
00000810: 28 4A AB 31 29 3A 99 4C 24 3A 82 4A 00 3A 10 A8 |(J.1):.L$:.J.:..|
00000820: 02 99 22 48 49 54 20 52 45 54 55 52 4E 20 54 4F |.."HIT RETURN TO|
00000830: 20 43 4F 4E 54 49 4E 55 45 22 00 43 10 B2 02 8D | CONTINUE".C....|
00000840: 31 37 30 00 57 10 BC 02 8B 20 5A 24 B3 B1 C7 28 |170.W.... Z$...(|
00000850: 31 33 29 A7 36 39 30 00 61 10 C6 02 89 20 36 31 |13).690.a.... 61|
00000860: 30 00 74 10 20 03 A1 5A 24 3A 8B 5A 24 B2 22 22 |0.t. ..Z$:.Z$.""|
00000870: A7 38 30 30 00 7F 10 25 03 5A 5A 24 B2 5A 24 00 |.800...%.ZZ$.Z$.|
00000880: 98 10 2A 03 44 B2 C6 28 5A 24 29 3A 8B 20 44 B2 |..*.D..(Z$):. D.|
00000890: 34 38 20 A7 20 38 33 30 00 AC 10 34 03 8B 20 44 |48 . 830...4.. D|
000008A0: B3 36 35 B0 44 B1 37 34 A7 38 30 30 00 B6 10 3E |.65.D.74.800...>|
000008B0: 03 99 5A 24 3A 8E 00 C2 10 52 03 81 20 4A B2 33 |..Z$:....R.. J.3|
000008C0: A4 36 00 D2 10 5C 03 45 B2 C5 28 46 42 24 28 4A |.6...\.E..(FB$(J|
000008D0: 29 29 00 E9 10 66 03 45 B2 B5 28 45 29 3A 46 42 |))...f.E..(E):FB|
000008E0: 24 28 4A 29 B2 C4 28 45 29 00 F4 10 70 03 82 4A |$(J)..(E)...p..J|
000008F0: 3A 4A B2 30 00 FA 10 7A 03 8E 00 09 11 E8 03 8F |:J.0...z........|
00000900: 20 41 44 44 20 50 41 52 54 00 12 11 F2 03 99 22 | ADD PART......"|
00000910: 93 22 00 2E 11 FC 03 99 A6 31 30 29 22 12 41 44 |.".......10)".AD|
00000920: 44 20 50 41 52 54 20 4E 55 4D 42 45 52 22 00 36 |D PART NUMBER".6|
00000930: 11 06 04 99 4C 24 00 58 11 10 04 46 B2 30 3A 85 |....L$.X...F.0:.|
00000940: 22 50 41 52 54 20 4E 55 4D 42 45 52 20 28 30 3D |"PART NUMBER (0=|
00000950: 45 4E 44 29 20 22 3B 46 00 67 11 1A 04 8B 20 46 |END) ";F.g.... F|
00000960: B2 30 20 A7 34 30 30 00 80 11 24 04 8B 20 46 B1 |.0 .400...$.. F.|
00000970: 36 35 30 20 A7 20 8D 31 36 35 3A 89 31 30 30 30 |650 . .165:.1000|
00000980: 00 B2 11 2E 04 8B 20 52 45 43 24 28 46 29 B2 22 |...... REC$(F)."|
00000990: 31 22 20 A7 99 22 44 55 50 4C 49 43 41 54 45 20 |1" .."DUPLICATE |
000009A0: 4E 55 4D 42 45 52 22 3A 8D 31 36 36 3A 89 31 30 |NUMBER":.166:.10|
000009B0: 30 30 00 BF 11 38 04 81 20 4A B2 32 A4 31 31 00 |00...8.. J.2.11.|
000009C0: EA 11 42 04 99 48 44 24 28 4A 29 3B 3A 8D 31 30 |..B..HD$(J);:.10|
000009D0: 36 30 30 3A 46 42 24 28 4A AB 31 29 B2 58 24 3A |600:FB$(J.1).X$:|
000009E0: 99 4C 24 3A 82 4A 3A 4A B2 30 00 0E 12 47 04 81 |.L$:.J:J.0...G..|
000009F0: 4A B2 33 A4 38 3A 8B 20 C5 28 46 42 24 28 4A 29 |J.3.8:. .(FB$(J)|
00000A00: 29 B2 30 A7 46 42 24 28 4A 29 B2 22 30 22 00 15 |).0.FB$(J)."0"..|
00000A10: 12 48 04 82 4A 00 1E 12 49 04 8D 38 35 30 00 2A |.H..J...I..850.*|
00000A20: 12 4C 04 8D 20 31 30 32 30 30 00 3A 12 56 04 52 |.L.. 10200.:.V.R|
00000A30: 45 43 24 28 46 29 B2 22 31 22 00 45 12 60 04 89 |EC$(F)."1".E.`..|
00000A40: 20 31 30 30 30 00 6A 12 B0 04 59 24 B2 CA 28 C4 | 1000.j...Y$..(.|
00000A50: 28 A5 41 28 58 29 29 2C 32 29 AA CA 28 C4 28 A5 |(.A(X)),2)..(.(.|
00000A60: 42 28 58 29 29 2C 33 2C 33 29 00 7D 12 BA 04 59 |B(X)),3,3).}...Y|
00000A70: 24 B2 C9 28 43 24 AA 59 24 2C 31 30 29 00 9D 12 |$..(C$.Y$,10)...|
00000A80: C4 04 8B CA 28 59 24 2C 34 2C 31 29 B2 22 20 22 |....(Y$,4,1)." "|
00000A90: A7 59 24 B2 22 20 20 22 AA 59 24 3A 8E 00 B8 12 |.Y$." ".Y$:....|
00000AA0: CE 04 59 24 B2 C8 28 59 24 2C 34 29 AA 22 2C 22 |..Y$..(Y$,4).","|
00000AB0: AA C9 28 59 24 2C 36 29 00 D5 12 D8 04 8B C8 28 |..(Y$,6).......(|
00000AC0: 59 24 2C 31 29 B2 22 20 22 A7 59 24 B2 22 20 22 |Y$,1)." ".Y$." "|
00000AD0: AA 59 24 3A 8E 00 F3 12 E2 04 59 24 B2 C8 28 59 |.Y$:......Y$..(Y|
00000AE0: 24 2C 31 29 AA 22 2C 22 AA C9 28 59 24 2C 31 30 |$,1).","..(Y$,10|
00000AF0: 29 3A 8E 00 18 13 14 05 59 24 B2 CA 28 C4 28 A5 |):......Y$..(.(.|
00000B00: 41 28 58 29 29 2C 32 29 AA CA 28 C4 28 A5 42 28 |A(X)),2)..(.(.B(|
00000B10: 58 29 29 2C 33 2C 33 29 00 38 13 19 05 8B CA 28 |X)),3,3).8.....(|
00000B20: C4 28 A5 42 28 58 29 29 2C 33 2C 33 29 B2 22 2E |.(.B(X)),3,3).".|
00000B30: 30 30 22 A7 31 33 31 30 00 44 13 1B 05 59 24 B2 |00".1310.D...Y$.|
00000B40: C4 28 4B 29 00 56 13 1E 05 59 24 B2 C9 28 43 24 |.(K).V...Y$..(C$|
00000B50: AA 59 24 2C 37 29 00 5C 13 28 05 8E 00 67 13 3E |.Y$,7).\.(...g.>|
00000B60: 08 8B 58 B2 35 A7 99 00 79 13 60 09 8F 20 44 45 |..X.5...y.`.. DE|
00000B70: 4C 45 54 45 20 50 41 52 54 00 82 13 6A 09 99 22 |LETE PART...j.."|
00000B80: 93 22 00 A5 13 74 09 99 A6 31 30 29 22 12 44 45 |."...t...10)".DE|
00000B90: 4C 45 54 45 20 50 41 52 54 20 4E 55 4D 42 45 52 |LETE PART NUMBER|
00000BA0: 22 3A 99 4C 24 00 C7 13 7E 09 46 B2 30 3A 85 22 |":.L$...~.F.0:."|
00000BB0: 50 41 52 54 20 4E 55 4D 42 45 52 20 28 30 3D 45 |PART NUMBER (0=E|
00000BC0: 4E 44 29 20 22 3B 46 00 D7 13 88 09 8B 20 46 B2 |ND) ";F...... F.|
00000BD0: 30 20 A7 20 34 30 30 00 F0 13 8D 09 8B 20 46 B1 |0 . 400...... F.|
00000BE0: 36 35 30 20 A7 20 8D 31 36 35 3A 89 32 34 31 30 |650 . .165:.2410|
00000BF0: 00 22 14 92 09 8B 20 52 45 43 24 28 46 29 B3 B1 |.".... REC$(F)..|
00000C00: 22 31 22 A7 99 22 50 41 52 54 20 4E 4F 54 20 4F |"1".."PART NOT O|
00000C10: 4E 20 46 49 4C 45 22 3A 8D 31 36 36 3A 89 32 34 |N FILE":.166:.24|
00000C20: 31 30 00 3F 14 9C 09 85 22 11 41 52 45 20 59 4F |10.?....".ARE YO|
00000C30: 55 20 53 55 52 45 28 59 2F 4E 29 22 3B 41 24 00 |U SURE(Y/N)";A$.|
00000C40: 5B 14 A6 09 8B 20 41 24 B3 B1 22 4E 22 AF 20 41 |[.... A$.."N". A|
00000C50: 24 B3 B1 22 59 22 89 32 34 36 30 00 6C 14 B0 09 |$.."Y".2460.l...|
00000C60: 8B 41 24 B2 22 4E 22 A7 32 34 31 30 00 A8 14 BA |.A$."N".2410....|
00000C70: 09 52 45 43 24 28 46 29 B2 22 2F 22 3A 99 22 50 |.REC$(F)."/":."P|
00000C80: 41 52 54 20 4E 55 4D 42 45 52 20 22 3B 46 3B 22 |ART NUMBER ";F;"|
00000C90: 20 44 45 4C 45 54 45 44 22 3A 8D 31 36 36 3A 46 | DELETED":.166:F|
00000CA0: B2 30 3A 89 32 34 31 30 00 C3 14 C4 09 8F 20 49 |.0:.2410...... I|
00000CB0: 4E 56 45 4E 54 4F 52 59 20 41 44 4A 55 53 54 4D |NVENTORY ADJUSTM|
00000CC0: 45 4E 54 00 EF 14 CE 09 8B 58 B2 35 A7 99 22 93 |ENT......X.5..".|
00000CD0: 22 A3 31 30 29 22 12 20 53 20 54 20 4F 20 43 20 |".10)". S T O C |
00000CE0: 4B 20 20 20 20 53 20 4F 20 4C 20 44 20 92 22 00 |K S O L D .".|
00000CF0: 21 15 D8 09 8B 58 B2 36 A7 99 22 93 22 A3 35 29 |!....X.6..".".5)|
00000D00: 22 12 20 53 20 54 20 4F 20 43 20 4B 20 20 20 52 |". S T O C K R|
00000D10: 20 45 20 43 20 45 20 49 20 56 20 45 20 44 20 92 | E C E I V E D .|
00000D20: 22 00 29 15 E2 09 99 4C 24 00 50 15 EC 09 99 22 |".)....L$.P...."|
00000D30: 20 20 59 4F 55 20 4D 41 59 20 45 4E 54 45 52 20 | YOU MAY ENTER |
00000D40: 55 50 20 54 4F 20 31 30 20 50 41 52 54 53 2E 22 |UP TO 10 PARTS."|
00000D50: 00 72 15 EE 09 99 22 20 20 54 48 45 20 51 55 41 |.r...." THE QUA|
00000D60: 4E 54 49 54 59 20 49 4E 20 53 54 4F 43 4B 20 20 |NTITY IN STOCK |
00000D70: 22 3B 00 8D 15 F6 09 8B 58 B2 35 A7 99 22 41 4E |";......X.5.."AN|
00000D80: 44 20 59 54 44 20 53 41 4C 45 53 20 22 00 A4 15 |D YTD SALES "...|
00000D90: 00 0A 8B 58 B2 36 A7 99 22 41 4E 44 20 43 4F 53 |...X.6.."AND COS|
00000DA0: 54 53 20 22 00 CD 15 0A 0A 99 22 20 20 57 49 4C |TS "......" WIL|
00000DB0: 4C 20 42 45 20 41 44 4A 55 53 54 45 44 20 41 55 |L BE ADJUSTED AU|
00000DC0: 54 4F 4D 41 54 49 43 41 4C 4C 59 2E 22 00 F5 15 |TOMATICALLY."...|
00000DD0: 0F 0A 99 A6 35 29 22 12 45 4E 54 45 52 92 28 30 |....5)".ENTER.(0|
00000DE0: 29 12 54 4F 20 45 4E 44 20 49 4E 50 55 54 22 3A |).TO END INPUT":|
00000DF0: 99 3A 99 4C 24 00 08 16 14 0A 99 54 4C 24 28 58 |.:.L$......TL$(X|
00000E00: 29 3A 99 3A 4C 4E B2 30 00 1B 16 46 0A 46 B2 30 |):.:LN.0...F.F.0|
00000E10: 3A 85 22 22 3B 46 3A 99 22 91 22 00 2D 16 50 0A |:."";F:.".".-.P.|
00000E20: 8B 46 B2 30 AF 4C 4E B2 30 A7 34 30 30 00 3B 16 |.F.0.LN.0.400.;.|
00000E30: 54 0A 8B 46 B2 30 A7 32 37 30 30 00 58 16 5A 0A |T..F.0.2700.X.Z.|
00000E40: 8B 46 B1 36 35 30 A7 8D 31 36 35 3A 8D 32 31 30 |.F.650..165:.210|
00000E50: 31 30 3A 89 32 36 33 30 00 94 16 64 0A 8B 52 45 |10:.2630...d..RE|
00000E60: 43 24 28 46 29 B3 B1 22 31 22 A7 99 22 12 20 50 |C$(F).."1"..". P|
00000E70: 41 52 54 20 4E 4F 54 20 4F 4E 20 46 49 4C 45 20 |ART NOT ON FILE |
00000E80: 92 22 3A 8D 31 36 36 3A 8D 32 32 30 33 30 3A 89 |.":.166:.22030:.|
00000E90: 32 36 33 30 00 A7 16 6E 0A 4C 4E B2 4C 4E AA 31 |2630...n.LN.LN.1|
00000EA0: 3A 8D 32 30 30 30 30 00 B7 16 78 0A 8B 4C 4E B3 |:.20000...x..LN.|
00000EB0: 31 30 A7 32 36 33 30 00 D1 16 8C 0A 8F 20 2A 2A |10.2630...... **|
00000EC0: 2A 20 44 49 53 50 4C 41 59 20 45 4E 54 52 49 45 |* DISPLAY ENTRIE|
00000ED0: 53 00 DC 16 90 0A 99 22 93 22 3A 99 00 0F 17 96 |S......".":.....|
00000EE0: 0A 99 A3 35 29 22 12 20 53 20 54 20 4F 20 43 20 |...5)". S T O C |
00000EF0: 4B 20 20 20 55 20 50 20 44 20 41 20 54 20 45 20 |K U P D A T E |
00000F00: 44 20 92 22 3A 99 3A 99 3A 8D 32 31 31 30 30 00 |D .":.:.:.21100.|
00000F10: 2B 17 9A 0A 4C 49 B2 4C 4E 3A 8B 58 B2 36 A7 8D |+...LI.LN:.X.6..|
00000F20: 32 32 34 30 30 3A 89 32 37 33 30 00 5D 17 A0 0A |22400:.2730.]...|
00000F30: 81 20 4C 4E B2 31 A4 4C 49 3A 99 A6 32 29 50 4E |. LN.1.LI:..2)PN|
00000F40: 24 28 4C 4E 29 A3 31 31 29 55 4D 24 28 4C 4E 29 |$(LN).11)UM$(LN)|
00000F50: A3 32 30 29 51 54 24 28 4C 4E 29 3A 82 00 84 17 |.20)QT$(LN):....|
00000F60: AA 0A 99 22 11 50 52 45 53 53 20 27 43 27 20 54 |...".PRESS 'C' T|
00000F70: 4F 20 43 4F 4E 54 49 4E 55 45 20 55 50 44 41 54 |O CONTINUE UPDAT|
00000F80: 49 4E 47 22 00 8A 17 B0 0A 99 00 B5 17 B4 0A 99 |ING"............|
00000F90: 22 50 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 20 |"PRESS <RETURN> |
00000FA0: 54 4F 20 45 58 49 54 20 54 4F 20 49 4E 56 45 4E |TO EXIT TO INVEN|
00000FB0: 54 4F 52 59 22 00 C8 17 B8 0A 99 22 4D 41 49 4E |TORY"......"MAIN|
00000FC0: 54 45 4E 41 4E 43 45 22 00 DC 17 BE 0A A1 5A 24 |TENANCE"......Z$|
00000FD0: 3A 8B 5A 24 B2 22 22 A7 32 37 35 30 00 F5 17 C2 |:.Z$."".2750....|
00000FE0: 0A 8B 5A 24 B2 22 5F 22 A7 8D 31 32 31 30 30 3A |..Z$."_"..12100:|
00000FF0: 89 32 37 35 30 00 07 18 C8 0A 8B 5A 24 B2 C7 28 |.2750......Z$..(|
00001000: 31 33 29 A7 34 30 30 00 1A 18 D2 0A 8B 5A 24 B2 |13).400......Z$.|
00001010: C7 28 36 37 29 A7 32 35 30 30 00 24 18 DC 0A 89 |.(67).2500.$....|
00001020: 32 37 35 30 00 2E 18 AC 0D 99 22 93 11 22 00 4C |2750......"..".L|
00001030: 18 B6 0D 99 A6 31 30 29 22 12 49 4E 56 45 4E 54 |.....10)".INVENT|
00001040: 4F 52 59 20 52 45 50 4F 52 54 53 22 00 54 18 C0 |ORY REPORTS".T..|
00001050: 0D 99 4C 24 00 74 18 CA 0D 99 A6 32 29 22 11 11 |..L$.t.....2)"..|
00001060: 12 20 41 20 92 49 4E 56 45 4E 54 4F 52 59 20 4C |. A .INVENTORY L|
00001070: 49 53 54 22 00 93 18 D4 0D 99 A6 32 29 22 11 12 |IST".......2)"..|
00001080: 20 42 20 92 52 45 4F 52 44 45 52 20 52 45 50 4F | B .REORDER REPO|
00001090: 52 54 22 00 AE 18 DE 0D 99 A6 32 29 22 11 12 20 |RT".......2)".. |
000010A0: 43 20 92 50 52 49 43 45 20 4C 49 53 54 22 00 D2 |C .PRICE LIST"..|
000010B0: 18 E8 0D 99 A6 32 29 22 11 12 20 58 20 92 52 45 |.....2)".. X .RE|
000010C0: 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E |TURN TO MAIN MEN|
000010D0: 55 22 00 F0 18 F2 0D 99 22 11 11 45 4E 54 45 52 |U"......"..ENTER|
000010E0: 20 52 45 50 4F 52 54 20 44 45 53 49 52 45 44 22 | REPORT DESIRED"|
000010F0: 00 F9 18 FC 0D 8D 31 37 30 00 0A 19 06 0E 8B 20 |......170...... |
00001100: 5A 24 B2 22 58 22 A7 31 39 30 00 27 19 10 0E 58 |Z$."X".190.'...X|
00001110: B2 C6 28 5A 24 29 AB 36 34 3A 8B 58 B3 31 B0 58 |..(Z$).64:.X.1.X|
00001120: B1 33 A7 33 35 39 30 00 40 19 1A 0E 91 20 58 20 |.3.3590.@.... X |
00001130: 89 20 33 36 32 30 2C 34 30 30 30 2C 34 33 30 30 |. 3620,4000,4300|
00001140: 00 68 19 24 0E 99 22 93 11 22 A3 31 30 29 22 12 |.h.$.."..".10)".|
00001150: 20 49 4E 56 45 4E 54 4F 52 59 20 52 45 50 4F 52 | INVENTORY REPOR|
00001160: 54 20 92 22 3A 99 4C 24 00 73 19 2E 0E 8D 31 30 |T .":.L$.s....10|
00001170: 39 30 30 00 7E 19 38 0E 8D 31 32 30 33 30 00 8C |900.~.8..12030..|
00001180: 19 7E 0E 81 20 46 B2 31 A4 36 35 30 00 A4 19 88 |.~.. F.1.650....|
00001190: 0E 8B 20 52 45 43 24 28 46 29 B3 B1 22 31 22 A7 |.. REC$(F).."1".|
000011A0: 33 37 37 30 00 AF 19 92 0E 8D 31 30 38 30 30 00 |3770......10800.|
000011B0: BB 19 97 0E 8D 20 31 31 30 30 30 00 E4 19 9C 0E |..... 11000.....|
000011C0: 98 32 32 2C 46 24 22 20 22 44 45 24 22 20 22 55 |.22,F$" "DE$" "U|
000011D0: 4D 24 22 20 20 22 49 53 24 22 20 20 22 4C 50 24 |M$" "IS$" "LP$|
000011E0: 22 20 22 3B 00 04 1A A6 0E 98 32 32 2C 4E 50 24 |" ";......22,NP$|
000011F0: 22 20 20 22 52 4F 24 22 20 20 22 4C 43 24 22 20 |" "RO$" "LC$" |
00001200: 22 53 4C 24 00 2D 1A B0 0E 4C 4E B2 4C 4E AA 31 |"SL$.-...LN.LN.1|
00001210: 3A 8B 20 4C 4E B1 35 35 20 A7 20 A0 32 32 3A 8D |:. LN.55 . .22:.|
00001220: 20 31 32 30 30 30 3A 8D 31 32 30 33 30 00 34 1A | 12000:.12030.4.|
00001230: BA 0E 82 46 00 46 1A C4 0E 98 32 32 2C 4C 24 AA |...F.F....22,L$.|
00001240: 4C 24 3A 98 32 32 00 68 1A CE 0E 98 32 32 2C 22 |L$:.22.h....22,"|
00001250: 54 4F 54 41 4C 20 50 41 52 54 53 20 22 54 50 3A |TOTAL PARTS "TP:|
00001260: 98 32 32 3A 54 50 B2 30 00 8D 1A D8 0E 98 32 32 |.22:TP.0......22|
00001270: 2C 22 54 4F 54 41 4C 20 49 4E 20 53 54 4F 43 4B |,"TOTAL IN STOCK|
00001280: 20 22 54 53 3A 98 32 32 3A 54 53 B2 30 00 9C 1A | "TS:.22:TS.0...|
00001290: DD 0E 4B B2 56 4C 3A 8D 31 32 30 30 00 CC 1A E2 |..K.VL:.1200....|
000012A0: 0E 98 32 32 2C 22 56 41 4C 55 45 20 41 54 20 4C |..22,"VALUE AT L|
000012B0: 49 53 54 20 50 52 49 43 45 20 20 20 20 24 20 22 |IST PRICE $ "|
000012C0: 59 24 3A 98 32 32 3A 59 24 B2 22 22 00 DB 1A E7 |Y$:.22:Y$.""....|
000012D0: 0E 4B B2 56 43 3A 8D 31 32 30 30 00 FB 1A EC 0E |.K.VC:.1200.....|
000012E0: 98 32 32 2C 22 56 41 4C 55 45 20 41 54 20 43 4F |.22,"VALUE AT CO|
000012F0: 53 54 20 20 20 20 24 20 22 59 24 00 13 1B F6 0E |ST $ "Y$.....|
00001300: 98 32 32 2C C7 28 31 39 29 3A A0 32 32 3A 59 24 |.22,.(19):.22:Y$|
00001310: B2 22 22 00 1D 1B 00 0F 89 33 35 30 30 00 43 1B |.""......3500.C.|
00001320: A0 0F 99 22 93 11 22 A3 31 30 29 22 12 20 52 45 |..."..".10)". RE|
00001330: 4F 52 44 45 52 20 52 45 50 4F 52 54 20 92 22 3A |ORDER REPORT .":|
00001340: 99 4C 24 00 4F 1B AA 0F 8D 20 31 30 39 30 30 00 |.L$.O.... 10900.|
00001350: 5A 1B BE 0F 8D 31 32 32 30 30 00 6A 1B C8 0F 81 |Z....12200.j....|
00001360: 20 46 B2 31 20 A4 20 36 35 30 00 82 1B D2 0F 8B | F.1 . 650......|
00001370: 20 52 45 43 24 28 46 29 B3 B1 22 31 22 A7 34 32 | REC$(F).."1".42|
00001380: 30 30 00 94 1B DC 0F 8D 31 30 38 30 30 3A 8D 31 |00......10800:.1|
00001390: 31 30 30 30 00 BD 1B E6 0F 4F 51 B2 C5 28 46 42 |1000.....OQ..(FB|
000013A0: 24 28 33 29 29 AB C5 28 46 42 24 28 34 29 29 3A |$(3))..(FB$(4)):|
000013B0: 8B 20 4F 51 B1 30 20 A7 20 34 32 30 30 00 CA 1B |. OQ.0 . 4200...|
000013C0: F0 0F 4F 51 B2 B6 28 4F 51 29 00 E9 1B FA 0F 8B |..OQ..(OQ)......|
000013D0: 4F 51 B3 C5 28 46 42 24 28 35 29 29 A7 4F 51 B2 |OQ..(FB$(5)).OQ.|
000013E0: C5 28 46 42 24 28 35 29 29 00 F7 1B 04 10 4F 51 |.(FB$(5)).....OQ|
000013F0: 24 B2 C4 28 4F 51 29 00 0B 1C 0E 10 52 43 B2 4F |$..(OQ).....RC.O|
00001400: 51 AC C5 28 46 42 24 28 38 29 29 00 18 1C 18 10 |Q..(FB$(8)).....|
00001410: 54 43 B2 54 43 AA 52 43 00 2E 1C 22 10 4B B2 52 |TC.TC.RC...".K.R|
00001420: 43 3A 8D 31 32 30 30 3A 52 43 24 B2 59 24 00 43 |C:.1200:RC$.Y$.C|
00001430: 1C 2C 10 4F 51 24 B2 C9 28 52 42 24 AA 4F 51 24 |.,.OQ$..(RB$.OQ$|
00001440: 2C 35 29 00 6D 1C 4A 10 98 32 32 2C 46 24 22 20 |,5).m.J..22,F$" |
00001450: 22 44 45 24 22 20 22 55 4D 24 22 20 20 22 49 53 |"DE$" "UM$" "IS|
00001460: 24 22 20 20 22 52 4F 24 22 20 20 22 3B 00 8B 1C |$" "RO$" ";...|
00001470: 54 10 98 32 32 2C 4D 4E 24 22 20 22 4F 51 24 22 |T..22,MN$" "OQ$"|
00001480: 20 22 4E 50 24 22 20 22 52 43 24 00 B3 1C 5E 10 | "NP$" "RC$...^.|
00001490: 4C 4E B2 4C 4E AA 31 3A 8B 20 4C 4E B1 35 35 20 |LN.LN.1:. LN.55 |
000014A0: A7 20 A0 32 32 3A 8D 31 32 30 30 30 3A 8D 31 32 |. .22:.12000:.12|
000014B0: 32 30 30 00 BA 1C 68 10 82 46 00 CC 1C 72 10 98 |200...h..F...r..|
000014C0: 32 32 2C 4C 24 AA 4C 24 3A 98 32 32 00 DB 1C 77 |22,L$.L$:.22...w|
000014D0: 10 4B B2 54 43 3A 8D 31 32 30 30 00 0B 1D 7C 10 |.K.TC:.1200...|.|
000014E0: 98 32 32 2C 22 20 22 A3 33 38 29 22 54 4F 54 41 |.22," ".38)"TOTA|
000014F0: 4C 20 4E 45 54 20 43 4F 53 54 20 4F 46 20 4F 52 |L NET COST OF OR|
00001500: 44 45 52 20 20 20 20 24 22 59 24 00 26 1D 86 10 |DER $"Y$.&...|
00001510: 98 32 32 2C C7 28 31 39 29 3A A0 32 32 3A 4B B2 |.22,.(19):.22:K.|
00001520: 30 3A 54 43 B2 30 00 30 1D 90 10 89 33 35 30 30 |0:TC.0.0....3500|
00001530: 00 5B 1D CC 10 99 22 93 11 22 A3 35 29 22 12 20 |.[...."..".5)". |
00001540: 49 4E 56 45 4E 54 4F 52 59 20 50 52 49 43 45 20 |INVENTORY PRICE |
00001550: 4C 49 53 54 20 92 22 3A 99 4C 24 00 67 1D D6 10 |LIST .":.L$.g...|
00001560: 8D 20 31 30 39 30 30 00 73 1D EA 10 8D 20 31 32 |. 10900.s.... 12|
00001570: 33 30 30 00 81 1D F4 10 81 20 46 B2 31 A4 36 35 |300...... F.1.65|
00001580: 30 00 99 1D FE 10 8B 20 52 45 43 24 28 46 29 B3 |0...... REC$(F).|
00001590: B1 22 31 22 A7 34 34 30 30 00 AB 1D 12 11 8D 31 |."1".4400......1|
000015A0: 30 38 30 30 3A 8D 31 31 30 30 30 00 D4 1D 1C 11 |0800:.11000.....|
000015B0: 98 32 32 2C 46 24 22 20 20 20 20 20 20 22 44 45 |.22,F$" "DE|
000015C0: 24 22 20 20 20 20 22 55 4D 24 22 20 20 20 20 20 |$" "UM$" |
000015D0: 22 4C 50 24 00 FA 1D 26 11 4C 4E B2 4C 4E AA 31 |"LP$...&.LN.LN.1|
000015E0: 3A 8B 20 4C 4E B1 35 35 A7 A0 32 32 3A 8D 31 32 |:. LN.55..22:.12|
000015F0: 30 30 30 3A 8D 31 32 33 30 30 00 01 1E 30 11 82 |000:.12300...0..|
00001600: 46 00 0F 1E 3A 11 98 32 32 2C 4C 24 AA 4C 24 00 |F...:..22,L$.L$.|
00001610: 21 1E 44 11 98 32 32 2C C7 28 31 39 29 3A A0 32 |!.D..22,.(19):.2|
00001620: 32 00 2A 1E 4E 11 89 31 39 30 00 40 1E 88 13 8F |2.*.N..190.@....|
00001630: 20 5A 45 52 4F 20 59 54 44 20 54 4F 54 41 4C 53 | ZERO YTD TOTALS|
00001640: 00 49 1E 92 13 99 22 93 22 00 64 1E 9C 13 99 A6 |.I....".".d.....|
00001650: 31 30 29 22 12 5A 45 52 4F 20 53 41 4C 45 53 20 |10)".ZERO SALES |
00001660: 59 54 44 22 00 6C 1E A6 13 99 4C 24 00 97 1E B0 |YTD".l....L$....|
00001670: 13 99 22 54 48 49 53 20 52 4F 55 54 49 4E 45 20 |.."THIS ROUTINE |
00001680: 57 49 4C 4C 20 53 45 54 20 54 48 45 20 59 54 44 |WILL SET THE YTD|
00001690: 20 53 41 4C 45 53 22 00 C3 1E B5 13 99 22 46 49 | SALES"......"FI|
000016A0: 45 4C 44 53 20 4F 4E 20 41 4C 4C 20 49 4E 56 45 |ELDS ON ALL INVE|
000016B0: 4E 54 4F 52 59 20 52 45 43 4F 52 44 53 20 54 4F |NTORY RECORDS TO|
000016C0: 20 30 22 00 CC 1E B6 13 99 22 20 22 00 03 1F BA | 0"......" "....|
000016D0: 13 99 22 54 4F 20 43 4F 4E 54 49 4E 55 45 20 48 |.."TO CONTINUE H|
000016E0: 49 54 20 52 45 54 55 52 4E 20 4F 52 20 41 4E 59 |IT RETURN OR ANY|
000016F0: 20 4F 54 48 45 52 20 4B 45 59 20 54 4F 20 45 58 | OTHER KEY TO EX|
00001700: 49 54 22 00 0D 1F C4 13 8D 20 31 37 30 00 21 1F |IT"...... 170.!.|
00001710: CE 13 8B 20 5A 24 B3 B1 C7 28 31 33 29 89 31 39 |... Z$...(13).19|
00001720: 30 00 2F 1F D8 13 81 20 46 B2 31 A4 36 35 30 00 |0./.... F.1.650.|
00001730: 47 1F E2 13 8B 20 52 45 43 24 28 46 29 B3 B1 22 |G.... REC$(F).."|
00001740: 31 22 89 35 31 33 30 00 53 1F EC 13 8D 20 31 30 |1".5130.S.... 10|
00001750: 38 30 30 00 62 1F F6 13 46 42 24 28 36 29 B2 22 |800.b...FB$(6)."|
00001760: 30 22 00 6D 1F 00 14 8D 31 30 32 30 30 00 73 1F |0".m....10200.s.|
00001770: 0A 14 82 00 7D 1F 14 14 89 33 35 30 30 00 8F 1F |....}....3500...|
00001780: 70 17 8F 20 43 48 41 4E 47 45 20 50 41 52 54 00 |p.. CHANGE PART.|
00001790: 98 1F 7A 17 99 22 93 22 00 BB 1F 84 17 99 A6 31 |..z..".".......1|
000017A0: 30 29 22 12 20 43 48 41 4E 47 45 20 50 41 52 54 |0)". CHANGE PART|
000017B0: 20 44 41 54 41 20 22 3A 99 4C 24 00 DD 1F 8E 17 | DATA ":.L$.....|
000017C0: 46 B2 30 3A 85 22 50 41 52 54 20 4E 55 4D 42 45 |F.0:."PART NUMBE|
000017D0: 52 20 28 30 3D 45 4E 44 29 20 22 3B 46 00 EB 1F |R (0=END) ";F...|
000017E0: 98 17 8B 20 46 B2 30 A7 34 30 30 00 02 20 A2 17 |... F.0.400.. ..|
000017F0: 8B 20 46 B1 36 35 30 A7 8D 31 36 35 3A 89 36 30 |. F.650..165:.60|
00001800: 31 30 00 34 20 AC 17 8B 20 52 45 43 24 28 46 29 |10.4 ... REC$(F)|
00001810: B3 B1 22 31 22 A7 99 22 50 41 52 54 20 4E 4F 54 |.."1".."PART NOT|
00001820: 20 4F 4E 20 46 49 4C 45 22 3A 8D 31 36 36 3A 89 | ON FILE":.166:.|
00001830: 36 30 31 30 00 3F 20 B6 17 8D 31 30 38 30 30 00 |6010.? ...10800.|
00001840: 50 20 BB 17 8D 31 31 30 30 30 3A 99 22 93 11 22 |P ...11000:.".."|
00001850: 00 7D 20 BD 17 99 22 20 12 20 55 50 44 41 54 49 |.} ..." . UPDATI|
00001860: 4E 47 20 50 41 52 54 20 4E 55 4D 42 45 52 20 92 |NG PART NUMBER .|
00001870: 20 22 3B 46 3A 99 4C 24 3A 99 22 11 22 00 A4 20 | ";F:.L$:.".".. |
00001880: C0 17 99 22 20 12 20 41 20 92 20 55 4E 49 54 20 |..." . A . UNIT |
00001890: 4F 46 1D 4D 45 41 53 55 52 45 3A 20 22 55 4D 24 |OF.MEASURE: "UM$|
000018A0: 3A 99 4C 24 00 C7 20 CA 17 99 22 20 12 20 42 20 |:.L$.. ..." . B |
000018B0: 92 20 44 45 53 43 52 49 50 54 49 4F 4E 3A 20 22 |. DESCRIPTION: "|
000018C0: 44 45 24 3A 99 4C 24 00 F9 20 D4 17 99 22 20 12 |DE$:.L$.. ..." .|
000018D0: 20 43 20 92 20 49 4E 2F 53 54 4B 3A 20 22 49 53 | C . IN/STK: "IS|
000018E0: 24 22 20 20 12 20 44 20 92 20 52 45 4F 52 44 3A |$" . D . REORD:|
000018F0: 20 22 52 4F 24 3A 99 4C 24 00 2C 21 DE 17 99 22 | "RO$:.L$.,!..."|
00001900: 20 12 20 45 20 92 20 4D 4E 20 4F 52 44 3A 20 22 | . E . MN ORD: "|
00001910: 4D 4E 24 22 20 20 20 12 20 46 20 92 20 53 41 4C |MN$" . F . SAL|
00001920: 45 53 3A 20 22 53 4C 24 3A 99 4C 24 00 5B 21 E8 |ES: "SL$:.L$.[!.|
00001930: 17 99 22 20 12 20 47 20 92 20 4C 49 53 54 3A 20 |.." . G . LIST: |
00001940: 22 4C 50 24 22 20 20 20 12 20 48 20 92 20 4E 45 |"LP$" . H . NE|
00001950: 54 3A 20 22 4E 50 24 3A 99 4C 24 00 77 21 F2 17 |T: "NP$:.L$.w!..|
00001960: 99 22 20 12 20 49 20 92 20 4C 4F 43 41 3A 20 22 |." . I . LOCA: "|
00001970: 4C 43 24 3A 99 4C 24 00 8E 21 F7 17 99 22 20 12 |LC$:.L$..!..." .|
00001980: 20 4A 20 92 20 56 45 4E 3A 20 22 56 4E 24 00 96 | J . VEN: "VN$..|
00001990: 21 F8 17 99 4C 24 00 CD 21 FC 17 99 22 12 20 45 |!...L$..!...". E|
000019A0: 4E 54 45 52 20 4C 45 54 54 45 52 20 54 4F 20 43 |NTER LETTER TO C|
000019B0: 48 41 4E 47 45 20 92 20 28 30 3D 45 4E 44 29 20 |HANGE . (0=END) |
000019C0: 3F 20 12 20 92 9D 22 3B 3A 8D 38 30 30 00 DD 21 |? . ..";:.800..!|
000019D0: 01 18 8B 20 44 B2 34 38 A7 36 32 30 30 00 E8 21 |... D.48.6200..!|
000019E0: 06 18 44 B2 44 AB 36 34 00 1A 22 10 18 55 44 B2 |..D.D.64.."..UD.|
000019F0: 31 3A 99 22 11 12 20 45 4E 54 45 52 20 4E 45 57 |1:.".. ENTER NEW|
00001A00: 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 22 3A 4E 25 | INFORMATION":N%|
00001A10: B2 32 35 3A 8D 31 30 36 30 30 00 2E 22 1A 18 46 |.25:.10600.."..F|
00001A20: 42 24 28 44 29 B2 58 24 3A 89 36 30 37 35 00 3F |B$(D).X$:.6075.?|
00001A30: 22 38 18 8B 20 55 44 B3 B1 31 A7 36 30 31 30 00 |"8.. UD..1.6010.|
00001A40: 62 22 42 18 55 44 B2 30 3A 99 A3 38 29 22 11 12 |b"B.UD.0:..8)"..|
00001A50: 20 55 50 44 41 54 49 4E 47 20 52 45 43 4F 52 44 | UPDATING RECORD|
00001A60: 20 22 00 78 22 4C 18 8D 38 35 30 3A 8D 31 30 32 | ".x"L..850:.102|
00001A70: 30 30 3A 89 36 30 31 30 00 A5 22 28 23 99 22 93 |00:.6010.."(#.".|
00001A80: 11 11 11 11 11 11 11 11 22 A3 37 29 22 12 20 52 |........".7)". R|
00001A90: 45 43 4F 52 44 49 4E 47 20 49 4E 44 45 58 20 46 |ECORDING INDEX F|
00001AA0: 49 4C 45 20 22 00 B0 22 32 23 8D 31 30 35 30 30 |ILE ".."2#.10500|
00001AB0: 00 BE 22 3C 23 A0 31 35 3A A0 35 3A A0 32 00 CD |.."<#.15:.5:.2..|
00001AC0: 22 46 23 97 20 37 38 38 2C 34 39 3A 80 00 F1 22 |"F#. 788,49:..."|
00001AD0: 10 27 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 52 |.'. INITIALIZE R|
00001AE0: 45 43 4F 52 44 53 20 55 53 45 44 20 54 41 42 4C |ECORDS USED TABL|
00001AF0: 45 00 0E 23 1A 27 81 20 49 B2 31 A4 36 35 30 3A |E..#.'. I.1.650:|
00001B00: 52 45 43 24 28 49 29 B2 22 2F 22 3A 82 49 00 14 |REC$(I)."/":.I..|
00001B10: 23 24 27 8E 00 38 23 74 27 8F 20 4C 4F 41 44 20 |#$'..8#t'. LOAD |
00001B20: 49 4E 44 45 58 20 49 4E 54 4F 20 52 45 43 4F 52 |INDEX INTO RECOR|
00001B30: 44 53 20 54 41 42 4C 45 00 51 23 7E 27 9F 35 2C |DS TABLE.Q#~'.5,|
00001B40: 38 2C 35 2C 22 30 3A 49 4E 44 45 58 2C 53 2C 52 |8,5,"0:INDEX,S,R|
00001B50: 22 00 6C 23 88 27 81 49 B2 31 A4 36 35 30 3A 84 |".l#.'.I.1.650:.|
00001B60: 35 2C 52 45 43 24 28 49 29 3A 82 49 00 73 23 92 |5,REC$(I):.I.s#.|
00001B70: 27 A0 35 00 79 23 9C 27 8E 00 8C 23 D8 27 8F 20 |'.5.y#.'...#.'. |
00001B80: 57 52 49 54 45 20 52 45 43 4F 52 44 00 98 23 E2 |WRITE RECORD..#.|
00001B90: 27 8D 20 31 30 33 30 30 00 AD 23 EC 27 98 31 35 |'. 10300..#.'.15|
00001BA0: 2C 22 42 2D 50 3A 22 3B 43 48 3B 46 50 00 CF 23 |,"B-P:";CH;FP..#|
00001BB0: F6 27 81 46 49 B2 31 A4 46 58 3A 98 43 48 2C 46 |.'.FI.1.FX:.CH,F|
00001BC0: 42 24 28 46 49 29 3B C7 28 31 33 29 3B 3A 82 00 |B$(FI);.(13);:..|
00001BD0: E9 23 00 28 98 31 35 2C 22 55 32 3A 22 3B 43 48 |.#.(.15,"U2:";CH|
00001BE0: 3B 46 44 3B 46 54 3B 46 53 00 F4 23 0A 28 8D 31 |;FD;FT;FS..#.(.1|
00001BF0: 30 34 30 30 00 FA 23 14 28 8E 00 15 24 3C 28 8F |0400..#.(...$<(.|
00001C00: 20 53 45 54 20 54 52 41 43 4B 20 41 4E 44 20 53 | SET TRACK AND S|
00001C10: 45 43 54 4F 52 00 37 24 46 28 8B 46 B3 33 35 38 |ECTOR.7$F(.F.358|
00001C20: A7 46 31 B2 30 3A 46 32 B2 32 32 3A 46 33 B2 31 |.F1.0:F2.22:F3.1|
00001C30: 3A 89 31 30 33 35 30 00 62 24 50 28 8B 46 B1 33 |:.10350.b$P(.F.3|
00001C40: 35 37 AF 46 B3 34 37 32 A7 46 31 B2 33 35 37 3A |57.F.472.F1.357:|
00001C50: 46 32 B2 32 30 3A 46 33 B2 31 39 3A 89 31 30 33 |F2.20:F3.19:.103|
00001C60: 35 30 00 8D 24 5A 28 8B 46 B1 34 37 31 AF 46 B3 |50..$Z(.F.471.F.|
00001C70: 35 38 30 A7 46 31 B2 34 37 31 3A 46 32 B2 31 39 |580.F1.471:F2.19|
00001C80: 3A 46 33 B2 32 35 3A 89 31 30 33 35 30 00 AB 24 |:F3.25:.10350..$|
00001C90: 64 28 8B 46 B1 35 37 39 A7 46 31 B2 35 37 39 3A |d(.F.579.F1.579:|
00001CA0: 46 32 B2 31 38 3A 46 33 B2 33 31 00 CA 24 6E 28 |F2.18:F3.31..$n(|
00001CB0: 46 54 B2 B5 28 28 28 46 AB 46 31 29 AB 31 29 AD |FT..(((F.F1).1).|
00001CC0: 28 46 32 AB 31 29 29 AA 46 33 00 EB 24 78 28 46 |(F2.1)).F3..$x(F|
00001CD0: 53 B2 46 AB 46 31 AB 28 46 54 AB 46 33 29 AC 46 |S.F.F1.(FT.F3).F|
00001CE0: 32 AA 28 46 54 AB 46 33 AB 31 29 00 F1 24 82 28 |2.(FT.F3.1)..$.(|
00001CF0: 8E 00 06 25 A0 28 8F 20 45 52 52 4F 52 20 43 48 |...%.(. ERROR CH|
00001D00: 45 43 4B 49 4E 47 00 1B 25 AA 28 84 31 35 2C 45 |ECKING..%.(.15,E|
00001D10: 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 27 25 B4 28 |N,EM$,ET,ES.'%.(|
00001D20: 8B 45 4E B2 30 A7 8E 00 43 25 BE 28 99 22 45 52 |.EN.0...C%.(."ER|
00001D30: 52 4F 52 20 53 54 41 54 55 53 3A 22 3B 45 4E 3B |ROR STATUS:";EN;|
00001D40: 45 4D 24 00 80 25 C3 28 81 5A B2 31 A4 31 30 30 |EM$..%.(.Z.1.100|
00001D50: 30 3A 82 5A 3A 99 22 93 46 4F 52 4D 41 54 54 45 |0:.Z:.".FORMATTE|
00001D60: 44 20 44 41 54 41 20 44 49 53 4B 20 53 48 4F 55 |D DATA DISK SHOU|
00001D70: 4C 44 20 42 45 20 49 4E 20 44 52 49 56 45 21 22 |LD BE IN DRIVE!"|
00001D80: 00 AF 25 C8 28 99 22 50 52 45 53 53 3A 28 59 29 |..%.(."PRESS:(Y)|
00001D90: 54 4F 20 43 4F 4E 54 49 4E 55 45 2F 28 4E 29 54 |TO CONTINUE/(N)T|
00001DA0: 4F 20 53 54 4F 50 20 50 52 4F 47 52 41 4D 22 00 |O STOP PROGRAM".|
00001DB0: C3 25 CD 28 85 20 59 24 3A 8B 59 24 B2 22 59 22 |.%.(. Y$:.Y$."Y"|
00001DC0: A7 20 8E 00 C9 25 D2 28 90 00 E3 25 04 29 9F 35 |. ...%.(...%.).5|
00001DD0: 2C 38 2C 35 2C 22 40 30 3A 49 4E 44 45 58 2C 53 |,8,5,"@0:INDEX,S|
00001DE0: 2C 57 22 00 02 26 0E 29 81 49 B2 31 A4 36 35 30 |,W"..&.).I.1.650|
00001DF0: 3A 98 35 2C 52 45 43 24 28 49 29 3B C7 28 31 33 |:.5,REC$(I);.(13|
00001E00: 29 3B 00 0D 26 18 29 82 3A A0 35 3A 8E 00 22 26 |);..&.).:.5:.."&|
00001E10: 68 29 58 24 B2 22 22 3A 5A 24 B2 22 22 3A 4C 45 |h)X$."":Z$."":LE|
00001E20: B2 30 00 40 26 69 29 8B 20 4A B2 32 B0 5A 5A 24 |.0.@&i). J.2.ZZ$|
00001E30: B2 22 41 22 A7 4E 25 B2 33 3A 89 31 30 36 31 35 |."A".N%.3:.10615|
00001E40: 00 5F 26 6A 29 8B 20 4A B2 33 B0 5A 5A 24 B2 22 |._&j). J.3.ZZ$."|
00001E50: 42 22 A7 4E 25 B2 32 30 3A 89 31 30 36 31 35 00 |B".N%.20:.10615.|
00001E60: 7D 26 6B 29 8B 20 4A B2 34 B0 5A 5A 24 B2 22 43 |}&k). J.4.ZZ$."C|
00001E70: 22 A7 4E 25 B2 36 3A 89 31 30 36 31 35 00 9B 26 |".N%.6:.10615..&|
00001E80: 6C 29 8B 20 4A B2 35 B0 5A 5A 24 B2 22 44 22 A7 |l). J.5.ZZ$."D".|
00001E90: 4E 25 B2 35 3A 89 31 30 36 31 35 00 B9 26 6D 29 |N%.5:.10615..&m)|
00001EA0: 8B 20 4A B2 36 B0 5A 5A 24 B2 22 45 22 A7 4E 25 |. J.6.ZZ$."E".N%|
00001EB0: B2 35 3A 89 31 30 36 31 35 00 D7 26 6E 29 8B 20 |.5:.10615..&n). |
00001EC0: 4A B2 37 B0 5A 5A 24 B2 22 46 22 A7 4E 25 B2 36 |J.7.ZZ$."F".N%.6|
00001ED0: 3A 89 31 30 36 31 35 00 F5 26 6F 29 8B 20 4A B2 |:.10615..&o). J.|
00001EE0: 38 B0 5A 5A 24 B2 22 47 22 A7 4E 25 B2 37 3A 89 |8.ZZ$."G".N%.7:.|
00001EF0: 31 30 36 31 35 00 13 27 70 29 8B 20 4A B2 39 B0 |10615..'p). J.9.|
00001F00: 5A 5A 24 B2 22 48 22 A7 4E 25 B2 37 3A 89 31 30 |ZZ$."H".N%.7:.10|
00001F10: 36 31 35 00 32 27 71 29 8B 20 4A B2 31 30 B0 5A |615.2'q). J.10.Z|
00001F20: 5A 24 B2 22 49 22 A7 4E 25 B2 35 3A 89 31 30 36 |Z$."I".N%.5:.106|
00001F30: 31 35 00 4A 27 72 29 8B 4A B2 31 31 B0 5A 5A 24 |15.J'r).J.11.ZZ$|
00001F40: B2 22 4A 22 A7 4E 25 B2 32 35 00 5C 27 77 29 99 |."J".N%.25.\'w).|
00001F50: 22 20 92 20 3F 20 12 20 92 9D 22 3B 00 71 27 7C |" . ? . ..";.q'||
00001F60: 29 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 30 36 32 |).Z$:.Z$."".1062|
00001F70: 30 00 A9 27 86 29 42 B2 C6 28 5A 24 29 3A 8B 42 |0..'.)B..(Z$):.B|
00001F80: B2 33 B0 42 B2 31 37 B0 42 B2 31 39 B0 42 B2 32 |.3.B.17.B.19.B.2|
00001F90: 39 B0 42 B2 31 34 35 B0 42 B2 31 34 37 B0 42 B2 |9.B.145.B.147.B.|
00001FA0: 31 35 37 A7 31 30 36 32 30 00 BD 27 90 29 8B 20 |157.10620..'.). |
00001FB0: 4C 45 B3 B1 30 20 A7 20 31 30 36 36 30 00 D9 27 |LE..0 . 10660..'|
00001FC0: 9A 29 8B 42 B2 31 33 B0 42 B2 33 32 A7 58 24 B2 |.).B.13.B.32.X$.|
00001FD0: 22 22 3A 89 31 30 36 32 30 00 F0 27 A4 29 8B 42 |"":.10620..'.).B|
00001FE0: B2 31 33 AF 4C 45 B2 B1 31 A7 99 22 20 22 3A 8E |.13.LE..1.." ":.|
00001FF0: 00 02 28 AE 29 8B 20 42 B3 B1 32 30 A7 31 30 37 |..(.). B..20.107|
00002000: 30 30 00 1A 28 B8 29 8B 20 4C 45 B3 31 A7 58 24 |00..(.). LE.1.X$|
00002010: B2 22 22 3A 89 31 30 36 32 30 00 47 28 C2 29 58 |."":.10620.G(.)X|
00002020: 24 B2 C8 28 58 24 2C 4C 45 AB 31 29 3A 99 22 20 |$..(X$,LE.1):." |
00002030: 9D 9D 12 20 92 9D 22 3B 3A 4C 45 B2 4C 45 AB 31 |... ..";:LE.LE.1|
00002040: 3A 89 31 30 36 32 30 00 76 28 CC 29 58 24 B2 58 |:.10620.v(.)X$.X|
00002050: 24 AA 5A 24 3A 99 5A 24 22 12 20 92 9D 22 3B 3A |$.Z$:.Z$". ..";:|
00002060: 4C 45 B2 C3 28 58 24 29 3A 8B 20 4C 45 B1 4E 25 |LE..(X$):. LE.N%|
00002070: A7 31 30 36 39 30 00 81 28 E0 29 89 31 30 36 32 |.10690..(.).1062|
00002080: 30 00 93 28 30 2A 8F 20 52 45 41 44 20 52 45 43 |0..(0*. READ REC|
00002090: 4F 52 44 00 9F 28 3A 2A 8D 20 31 30 33 30 30 00 |ORD..(:*. 10300.|
000020A0: B9 28 44 2A 98 31 35 2C 22 55 31 3A 22 3B 43 48 |.(D*.15,"U1:";CH|
000020B0: 3B 46 44 3B 46 54 3B 46 53 00 CE 28 4E 2A 98 31 |;FD;FT;FS..(N*.1|
000020C0: 35 2C 22 42 2D 50 3A 22 3B 43 48 3B 46 50 00 DA |5,"B-P:";CH;FP..|
000020D0: 28 58 2A 8D 20 31 30 34 30 30 00 E8 28 62 2A 81 |(X*. 10400..(b*.|
000020E0: 20 46 49 B2 31 A4 46 58 00 FA 28 6C 2A 84 43 48 | FI.1.FX..(l*.CH|
000020F0: 2C 46 42 24 28 46 49 29 3A 82 00 00 29 76 2A 8E |,FB$(FI):...)v*.|
00002100: 00 23 29 94 2A 99 22 11 53 45 54 20 50 52 49 4E |.#).*.".SET PRIN|
00002110: 54 45 52 20 54 4F 20 54 4F 50 20 4F 46 20 50 41 |TER TO TOP OF PA|
00002120: 47 45 22 00 42 29 9E 2A 99 22 11 48 49 54 20 52 |GE".B).*.".HIT R|
00002130: 45 54 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 |ETURN TO CONTINU|
00002140: 45 22 00 5B 29 A8 2A A1 5A 24 3A 8B 5A 24 B3 B1 |E".[).*.Z$:.Z$..|
00002150: C7 28 31 33 29 A7 31 30 39 32 30 00 84 29 B2 2A |.(13).10920..).*|
00002160: 8F 4F 50 45 4E 32 32 2C 34 3A 50 52 49 4E 54 23 |.OPEN22,4:PRINT#|
00002170: 32 32 2C 43 48 52 24 28 31 34 37 29 3A 43 4C 4F |22,CHR$(147):CLO|
00002180: 53 45 32 32 00 A6 29 BC 2A 50 47 B2 31 3A 54 50 |SE22..).*PG.1:TP|
00002190: B2 30 3A 54 53 B2 30 3A 56 4C B2 30 3A 56 43 B2 |.0:TS.0:VL.0:VC.|
000021A0: 30 3A 4C 4E B2 30 00 AC 29 C6 2A 8E 00 C5 29 F8 |0:LN.0..).*...).|
000021B0: 2A 44 45 24 B2 C8 28 46 42 24 28 32 29 AA 52 42 |*DE$..(FB$(2).RB|
000021C0: 24 2C 32 30 29 00 DD 29 02 2B 55 4D 24 B2 C8 28 |$,20)..).+UM$..(|
000021D0: 46 42 24 28 31 29 AA 52 42 24 2C 33 29 00 F5 29 |FB$(1).RB$,3)..)|
000021E0: 0C 2B 49 53 24 B2 C9 28 52 42 24 AA 46 42 24 28 |.+IS$..(RB$.FB$(|
000021F0: 33 29 2C 36 29 00 12 2A 16 2B 4B B2 C5 28 46 42 |3),6)..*.+K..(FB|
00002200: 24 28 37 29 29 3A 8D 31 33 30 30 3A 4C 50 24 B2 |$(7)):.1300:LP$.|
00002210: 59 24 00 34 2A 20 2B 4B B2 C5 28 46 42 24 28 38 |Y$.4* +K..(FB$(8|
00002220: 29 29 3A 8D 31 33 30 30 3A 4E 50 24 B2 C9 28 59 |)):.1300:NP$..(Y|
00002230: 24 2C 37 29 00 4C 2A 2A 2B 52 4F 24 B2 C9 28 52 |$,7).L**+RO$..(R|
00002240: 42 24 AA 46 42 24 28 34 29 2C 35 29 00 64 2A 34 |B$.FB$(4),5).d*4|
00002250: 2B 4C 43 24 B2 C8 28 46 42 24 28 39 29 AA 52 42 |+LC$..(FB$(9).RB|
00002260: 24 2C 35 29 00 7C 2A 3E 2B 53 4C 24 B2 C9 28 52 |$,5).|*>+SL$..(R|
00002270: 42 24 AA 46 42 24 28 36 29 2C 36 29 00 91 2A 48 |B$.FB$(6),6)..*H|
00002280: 2B 46 24 B2 C8 28 C4 28 46 29 AA 52 42 24 2C 34 |+F$..(.(F).RB$,4|
00002290: 29 00 A9 2A 52 2B 4D 4E 24 B2 C9 28 52 42 24 AA |)..*R+MN$..(RB$.|
000022A0: 46 42 24 28 35 29 2C 35 29 00 C3 2A 5C 2B 56 4E |FB$(5),5)..*\+VN|
000022B0: 24 B2 C8 28 46 42 24 28 31 30 29 AA 52 42 24 2C |$..(FB$(10).RB$,|
000022C0: 32 35 29 00 DC 2A C0 2B 54 50 B2 54 50 AA 31 3A |25)..*.+TP.TP.1:|
000022D0: 54 53 B2 54 53 AA C5 28 49 53 24 29 00 F6 2A CA |TS.TS..(IS$)..*.|
000022E0: 2B 56 4C B2 56 4C AA 28 C5 28 49 53 24 29 AC C5 |+VL.VL.(.(IS$)..|
000022F0: 28 4C 50 24 29 29 00 10 2B D4 2B 56 43 B2 56 43 |(LP$))..+.+VC.VC|
00002300: AA 28 C5 28 49 53 24 29 AC C5 28 4E 50 24 29 29 |.(.(IS$)..(NP$))|
00002310: 00 16 2B DE 2B 8E 00 2D 2B E0 2E 9F 32 32 2C 34 |..+.+..-+...22,4|
00002320: 3A 81 49 B2 31 A4 36 3A 98 32 32 3A 82 00 42 2B |:.I.1.6:.22:..B+|
00002330: EA 2E A0 32 32 3A 50 47 B2 50 47 AA 31 3A 4C 4E |...22:PG.PG.1:LN|
00002340: B2 30 00 48 2B F4 2E 8E 00 77 2B FE 2E 9F 32 32 |.0.H+....w+...22|
00002350: 2C 34 3A 98 32 32 2C C7 28 31 29 22 49 4E 56 45 |,4:.22,.(1)"INVE|
00002360: 4E 54 4F 52 59 20 4C 49 53 54 22 A3 31 35 29 22 |NTORY LIST".15)"|
00002370: 50 41 47 45 22 50 47 00 85 2B 08 2F 98 32 32 2C |PAGE"PG..+./.22,|
00002380: 4C 24 AA 4C 24 00 B6 2B 12 2F 98 32 32 2C 22 50 |L$.L$..+./.22,"P|
00002390: 41 52 54 20 44 45 53 43 52 49 50 54 49 4F 4E 20 |ART DESCRIPTION |
000023A0: 20 20 20 20 20 20 20 20 20 55 4F 4D 20 20 49 4E | UOM IN|
000023B0: 2F 53 54 4B 22 3B 00 E7 2B 1C 2F 98 32 32 2C 22 |/STK";..+./.22,"|
000023C0: 20 20 20 20 4C 49 53 54 20 20 20 20 4E 45 54 20 | LIST NET |
000023D0: 20 20 52 45 4F 52 44 20 20 20 4C 4F 43 20 20 20 | REORD LOC |
000023E0: 20 53 41 4C 45 53 22 00 F5 2B 26 2F 98 32 32 2C | SALES"..+&/.22,|
000023F0: 4C 24 AA 4C 24 00 FD 2B 30 2F A0 32 32 00 09 2C |L$.L$..+0/.22..,|
00002400: 3A 2F 9F 32 32 2C 34 3A 8E 00 19 2C 44 2F 53 50 |:/.22,4:...,D/SP|
00002410: 24 B2 22 20 22 3A 58 B2 30 00 29 2C 58 2F 9F 34 |$." ":X.0.),X/.4|
00002420: 2C 34 3A 98 34 2C 53 50 24 00 62 2C 62 2F 81 51 |,4:.4,SP$.b,b/.Q|
00002430: B2 31 30 32 34 A4 31 39 34 33 3A 41 B2 C2 28 51 |.1024.1943:A..(Q|
00002440: 29 AF 31 32 37 3A 42 B2 41 AB 36 34 AC 28 41 B3 |).127:B.A.64.(A.|
00002450: 33 32 29 3A 98 34 2C C7 28 42 29 3B 3A 58 B2 58 |32):.4,.(B);:X.X|
00002460: AA 31 00 7E 2C 80 2F 8B 58 B2 34 30 A7 98 34 2C |.1.~,./.X.40..4,|
00002470: 22 22 3A 98 34 2C 53 50 24 3B 3A 58 B2 30 00 89 |"":.4,SP$;:X.0..|
00002480: 2C 8A 2F 82 3A A0 34 3A 8E 00 B8 2C A8 2F 9F 32 |,./.:.4:...,./.2|
00002490: 32 2C 34 3A 98 32 32 2C C7 28 31 29 22 52 45 4F |2,4:.22,.(1)"REO|
000024A0: 52 44 45 52 20 52 45 50 4F 52 54 22 A3 31 35 29 |RDER REPORT".15)|
000024B0: 22 50 41 47 45 22 50 47 00 C6 2C B2 2F 98 32 32 |"PAGE"PG..,./.22|
000024C0: 2C 4C 24 AA 4C 24 00 E7 2C BC 2F 98 32 32 2C 22 |,L$.L$..,./.22,"|
000024D0: 20 22 A3 33 38 29 22 52 45 4F 52 44 20 20 20 20 | ".38)"REORD |
000024E0: 20 20 20 20 20 22 3B 00 08 2D C1 2F 98 32 32 2C | ";..-./.22,|
000024F0: 22 52 45 43 20 20 20 55 4E 49 54 20 20 20 52 45 |"REC UNIT RE|
00002500: 43 20 52 45 4F 52 44 22 00 39 2D C6 2F 98 32 32 |C REORD".9-./.22|
00002510: 2C 22 50 41 52 54 20 44 45 53 43 52 49 50 54 49 |,"PART DESCRIPTI|
00002520: 4F 4E 20 20 20 20 20 20 20 20 20 20 55 4F 4D 20 |ON UOM |
00002530: 20 49 4E 2F 53 54 4B 22 3B 00 67 2D D0 2F 98 32 | IN/STK";.g-./.2|
00002540: 32 2C 22 20 20 50 4F 49 4E 54 20 20 20 4D 49 4E |2," POINT MIN|
00002550: 20 20 20 51 54 59 20 20 20 43 4F 53 54 20 20 20 | QTY COST |
00002560: 20 20 43 4F 53 54 22 00 75 2D DA 2F 98 32 32 2C | COST".u-./.22,|
00002570: 4C 24 AA 4C 24 00 7D 2D E4 2F A0 32 32 00 89 2D |L$.L$.}-./.22..-|
00002580: EE 2F 9F 32 32 2C 34 3A 8E 00 BD 2D 0C 30 9F 32 |./.22,4:...-.0.2|
00002590: 32 2C 34 3A 98 32 32 2C C7 28 31 29 22 49 4E 56 |2,4:.22,.(1)"INV|
000025A0: 45 4E 54 4F 52 59 20 50 52 49 43 45 20 4C 49 53 |ENTORY PRICE LIS|
000025B0: 54 22 A3 38 29 22 50 41 47 45 22 50 47 00 CB 2D |T".8)"PAGE"PG..-|
000025C0: 16 30 98 32 32 2C 4C 24 AA 4C 24 00 02 2E 20 30 |.0.22,L$.L$... 0|
000025D0: 98 32 32 2C 22 50 41 52 54 20 20 20 20 20 20 44 |.22,"PART D|
000025E0: 45 53 43 52 49 50 54 49 4F 4E 22 A3 31 33 29 22 |ESCRIPTION".13)"|
000025F0: 55 4F 4D 20 20 20 20 4C 49 53 54 20 50 52 49 43 |UOM LIST PRIC|
00002600: 45 22 00 10 2E 2A 30 98 32 32 2C 4C 24 AA 4C 24 |E"...*0.22,L$.L$|
00002610: 00 18 2E 34 30 A0 32 32 00 24 2E 3E 30 9F 32 32 |...40.22.$.>0.22|
00002620: 2C 34 3A 8E 00 45 2E 20 4E 8F 20 2A 2A 47 45 54 |,4:..E. N. **GET|
00002630: 20 52 45 43 4F 52 44 20 26 20 42 55 49 4C 44 20 | RECORD & BUILD |
00002640: 54 41 42 4C 45 00 6F 2E 2A 4E 8D 31 30 38 30 30 |TABLE.o.*N.10800|
00002650: 3A 8B C5 28 46 42 24 28 33 29 29 B3 31 AF 58 B2 |:..(FB$(3)).1.X.|
00002660: 35 A7 8D 32 32 35 30 30 3A 89 32 30 31 31 30 00 |5..22500:.20110.|
00002670: 94 2E 34 4E 99 22 91 22 A3 31 30 29 46 42 24 28 |..4N.".".10)FB$(|
00002680: 31 29 A3 31 35 29 3A 8F 20 44 49 53 50 4C 41 59 |1).15):. DISPLAY|
00002690: 20 55 4F 4D 00 B0 2E 39 4E 4E 25 B2 36 3A 8D 31 | UOM...9NN%.6:.1|
000026A0: 30 36 30 30 20 8F 20 2A 20 47 45 54 20 51 54 59 |0600 . * GET QTY|
000026B0: 00 C3 2E 3B 4E 8B C5 28 58 24 29 B1 30 A7 32 30 |...;N..(X$).0.20|
000026C0: 30 32 39 00 EC 2E 3C 4E 99 22 12 20 51 54 59 20 |029...<N.". QTY |
000026D0: 4D 55 53 54 20 42 45 20 3E 20 30 20 92 22 3A 8D |MUST BE > 0 .":.|
000026E0: 32 32 30 30 35 3A 89 32 30 31 31 30 00 03 2F 3D |22005:.20110../=|
000026F0: 4E 8D 32 32 36 30 30 3A 8B 45 52 B2 31 A7 32 30 |N.22600:.ER.1.20|
00002700: 31 31 30 00 21 2F 3E 4E 51 54 24 B2 58 24 3A 8B |110.!/>NQT$.X$:.|
00002710: 58 B2 36 A7 8D 32 32 32 30 30 3A 89 32 30 30 34 |X.6..22200:.2004|
00002720: 30 00 39 2F 3F 4E 51 54 B2 C5 28 46 42 24 28 33 |0.9/?NQT..(FB$(3|
00002730: 29 29 AB C5 28 51 54 24 29 00 51 2F 40 4E 8B 51 |))..(QT$).Q/@N.Q|
00002740: 54 B3 30 A7 8D 32 32 30 30 30 3A 89 32 30 31 31 |T.0..22000:.2011|
00002750: 30 00 6A 2F 42 4E 59 54 44 B2 C5 28 46 42 24 28 |0.j/BNYTD..(FB$(|
00002760: 36 29 29 AA C5 28 51 54 24 29 00 7C 2F 44 4E 46 |6))..(QT$).|/DNF|
00002770: 42 24 28 36 29 B2 C4 28 59 54 44 29 00 8D 2F 48 |B$(6)..(YTD)../H|
00002780: 4E 46 42 24 28 33 29 B2 C4 28 51 54 29 00 AD 2F |NFB$(3)..(QT)../|
00002790: 52 4E 8D 31 30 32 32 30 20 20 8F 20 2A 2A 2A 52 |RN.10220 . ***R|
000027A0: 45 57 52 49 54 45 20 52 45 43 4F 52 44 00 BF 2F |EWRITE RECORD../|
000027B0: 66 4E 4C 4E 24 28 4C 4E 29 B2 C4 28 4C 4E 29 00 |fNLN$(LN)..(LN).|
000027C0: D9 2F 70 4E 50 4E 24 28 4C 4E 29 B2 C9 28 52 42 |./pNPN$(LN)..(RB|
000027D0: 24 AA C4 28 46 29 2C 33 29 00 F2 2F 7A 4E 51 54 |$..(F),3)../zNQT|
000027E0: 24 28 4C 4E 29 B2 C9 28 52 42 24 AA 51 54 24 2C |$(LN)..(RB$.QT$,|
000027F0: 36 29 00 05 30 84 4E 55 4D 24 28 4C 4E 29 B2 46 |6)..0.NUM$(LN).F|
00002800: 42 24 28 31 29 00 0B 30 8E 4E 8E 00 1D 30 6C 52 |B$(1)..0.N...0lR|
00002810: 99 54 4C 24 28 58 29 3A 99 4C 24 3A 99 00 23 30 |.TL$(X):.L$:..#0|
00002820: 94 52 8E 00 39 30 F0 55 99 22 12 20 3E 20 49 4E |.R..90.U.". > IN|
00002830: 20 53 54 4F 43 4B 20 92 22 00 49 30 F5 55 81 49 | STOCK .".I0.U.I|
00002840: B2 31 A4 31 30 30 30 3A 82 00 55 30 FA 55 4C 4E |.1.1000:..U0.ULN|
00002850: B2 4C 4E AB 31 00 7E 30 0E 56 99 22 91 20 20 20 |.LN.1.~0.V.". |
00002860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002870: 20 20 20 20 20 20 20 20 20 20 20 20 91 22 00 84 | ."..|
00002880: 30 18 56 8E 00 99 30 54 56 58 24 B2 22 22 3A 5A |0.V...0TVX$."":Z|
00002890: 24 B2 22 22 3A 4C 45 B2 30 00 AD 30 5E 56 99 A3 |$."":LE.0..0^V..|
000028A0: 32 33 29 22 91 12 20 3F 20 92 9D 22 3B 00 B8 30 |23)".. ? ..";..0|
000028B0: 68 56 8D 31 30 36 32 30 00 BE 30 72 56 8E 00 E3 |hV.10620..0rV...|
000028C0: 30 B8 56 99 A3 32 35 29 22 91 22 3B 3A 4E 25 B2 |0.V..25)".";:N%.|
000028D0: 37 3A 8D 31 30 36 30 30 20 8F 20 47 45 54 20 43 |7:.10600 . GET C|
000028E0: 4F 53 54 00 FE 30 C2 56 8B C5 28 58 24 29 B1 30 |OST..0.V..(X$).0|
000028F0: A7 8D 32 32 33 30 30 3A 89 32 32 32 33 30 00 27 |..22300:.22230.'|
00002900: 31 CC 56 4E 43 B2 C5 28 46 42 24 28 38 29 29 3A |1.VNC..(FB$(8)):|
00002910: 43 53 24 28 4C 4E 29 B2 C9 28 52 42 24 AA 46 42 |CS$(LN)..(RB$.FB|
00002920: 24 28 38 29 2C 37 29 00 3F 31 D6 56 51 54 B2 C5 |$(8),7).?1.VQT..|
00002930: 28 46 42 24 28 33 29 29 AA C5 28 51 54 24 29 00 |(FB$(3))..(QT$).|
00002940: 58 31 E0 56 43 53 24 28 4C 4E 29 B2 C9 28 52 42 |X1.VCS$(LN)..(RB|
00002950: 24 AA 59 59 24 2C 37 29 00 5E 31 EA 56 8E 00 77 |$.YY$,7).^1.V..w|
00002960: 31 1C 57 4B B2 C5 28 58 24 29 3A 8D 31 33 30 30 |1.WK..(X$):.1300|
00002970: 3A 59 59 24 B2 59 24 00 92 31 21 57 4F 56 B2 C5 |:YY$.Y$..1!WOV..|
00002980: 28 46 42 24 28 38 29 29 AC C5 28 46 42 24 28 33 |(FB$(8))..(FB$(3|
00002990: 29 29 00 A6 31 26 57 4E 56 B2 C5 28 51 54 24 29 |))..1&WNV..(QT$)|
000029A0: AC C5 28 59 24 29 00 BE 31 30 57 54 51 B2 C5 28 |..(Y$)..10WTQ..(|
000029B0: 46 42 24 28 33 29 29 AA C5 28 51 54 24 29 00 D5 |FB$(3))..(QT$)..|
000029C0: 31 3A 57 4B B2 28 4F 56 AA 4E 56 29 AD 54 51 3A |1:WK.(OV.NV).TQ:|
000029D0: 8D 31 33 30 30 00 E3 31 44 57 46 42 24 28 38 29 |.1300..1DWFB$(8)|
000029E0: B2 59 24 00 E9 31 4E 57 8E 00 22 32 80 57 81 4C |.Y$..1NW.."2.W.L|
000029F0: 4E B2 31 A4 4C 49 3A 99 A3 32 29 50 4E 24 28 4C |N.1.LI:..2)PN$(L|
00002A00: 4E 29 A3 39 29 55 4D 24 28 4C 4E 29 A3 31 38 29 |N).9)UM$(LN).18)|
00002A10: 51 54 24 28 4C 4E 29 A3 32 39 29 43 53 24 28 4C |QT$(LN).29)CS$(L|
00002A20: 4E 29 00 28 32 86 57 82 00 2E 32 8A 57 8E 00 49 |N).(2.W...2.W..I|
00002A30: 32 E4 57 8F 20 2A 2A 4F 55 54 20 4F 46 20 53 54 |2.W. **OUT OF ST|
00002A40: 4F 43 4B 20 45 52 52 4F 52 00 68 32 EE 57 99 22 |OCK ERROR.h2.W."|
00002A50: 12 20 4F 55 54 20 4F 46 20 53 54 4F 43 4B 20 92 |. OUT OF STOCK .|
00002A60: 22 3A 8D 32 32 30 30 35 00 6E 32 F8 57 8E 00 89 |":.22005.n2.W...|
00002A70: 32 48 58 42 4E B2 C5 28 58 24 29 3A 42 49 B2 B5 |2HXBN..(X$):BI..|
00002A80: 28 42 4E 29 3A 45 52 B2 30 00 9A 32 4D 58 8B 42 |(BN):ER.0..2MX.B|
00002A90: 49 B2 42 4E A7 32 32 36 34 30 00 C3 32 52 58 99 |I.BN.22640..2RX.|
00002AA0: 22 12 20 51 55 41 4E 54 49 54 59 20 4D 55 53 54 |". QUANTITY MUST|
00002AB0: 20 42 45 20 57 48 4F 4C 45 20 4E 55 4D 42 45 52 | BE WHOLE NUMBER|
00002AC0: 20 92 22 00 CE 32 5C 58 8D 32 32 30 30 35 00 D7 | ."..2\X.22005..|
00002AD0: 32 66 58 45 52 B2 31 00 DD 32 70 58 8E 00 00 00 |2fXER.1..2pX....|
00002AE0: 00 00 33 01 01 09 22 00 2F 00 F0 00 DD 0F 20 00 |..3..."./..... .|
00002AF0: F9 06 BD 01 B0 01 B9 01 B9 01 00 01 99 00 B9 01 |................|
00002B00: 00 |. |
....... 788,52:.".":.53281,12.0.... INVE
NTORY 64.:....G(5).^....REC$(650):FD.0:F
X.10:CH.2:FP.1.K....HD$(13)...(.HD$(1)."
.PART NUMBER"...2.HD$(2)." .UNIT OF MEA
S"...<.HD$(3)." .DESCRIPTION".U.F.HD$(4)
." .IN STOCK"...P.HD$(5)." .REORDER PT".
..Z.HD$(6)." .MIN ORD QTY".#.D.HD$(7)."
.SALES YTD".=.N.HD$(8)." .LIST PRICE".U.
X.HD$(9)." .NET COST".N...HD$(10)." .LOC
ATION".....HD$(11)." .VENDOR"......TL$(6
).....TL$(5)." PART UOM QUANTIT
Y".....TL$(6)." PART UOM QUANTITY
COST"......I.1.39:AS$.AS$."*":..@...
. ".";.13)".INVENTORY 64":."...PLACE DAT
A DISK IN DRIVE".^....".HIT RETURN WHEN
READY".G....170.{.... Z$..G(13).153.....
.15,8,15,"I0":.2,8,2,"#"......".NEW DISK
(Y/N)";ND$.P.... ND$.."Y". ND$.."N".156
...... ND$."N" . .10100:.10400:.EN..0. 1
5: 2:.151...... ND$."Y". .10000.!. .. 18
5.G...."NUMBER TOO LARGE":.I.1.1000:.:..
Y....I.1.1000:.:..L....Z$:.Z$."".170....
.. Z$."_"..12100:.170.......H...C$."
":..A(X)..(.(K)):..B(X).(.(K))..A(
X).1.005.Y...RB$."":L$.""...... I.1.30:R
B$.RB$." ":....... I.1 . 39:L$.L$."-":..
.....".".8.H...10)".INVENTORY FUNCTIONS"
.E.R..L$:.".".K.....2)". A . INVENTORY M
AINTENANCE".......2)".. B . INVENTORY RE
PORTS".......2)".. C . ZERO SALES YTD"..
.....2)".. D . EXIT PROGRAM . _ . PRIN
T SCREEN"......L$......".ENTER DESIRED F
UNCTION".;....".. PROGRAM BY";.3)".
EDUARDO L.URCOLA .".E.".. 170.A.,.X.F(Z$
).64:.X.1.X.4.290.~.6.. X . 400,3500,500
0,9000......".".......10)".INVENTORY MAI
NTENANCE"......L$.P.....2)"... A . DISPL
AY PART".......2)".. B . ADD PART"...B..
.2)".. C . CHANGE PART".$.L...2)".. D .
DELETE PART".F.V...2)".. E . ENTER STOCK
SOLD".L.....2)".. F . ENTER STOCK RECEI
VED".......2)".. X . RETURN TO MAIN MENU
"......"..ENTER FUNCTION"...... 170.D...
. Z$."X".190.....X.F(Z$).64:. X.1.X.6 .
510...... X . 600,1000,6000,2400,2500,25
00...X.. DISPLAY PART.&.B..".".J.L...10)
".DISPLAY PART NUMBER":.L$.L.V.F.0:."PAR
T NUMBER (0=END) ";F.U.{.."."...|.." .PA
RT # .";F:.L$...... F.0.400...... F.650
. .165:.610...... REC$(F).."1".."PART NO
T ON FILE":.166:.610...... 10800...... J
.2.11:.HD$(J);". ";FB$(J.1):.L$:.J.:..
.."HIT RETURN TO CONTINUE".C....170.W...
. Z$..G(13).690.A.F.. 610.T. ..Z$:.Z$.""
.800..%.ZZ$.Z$...*.D.F(Z$):. D.48 . 830
...4.. D.65.D.74.800...>..Z$:..B.R.. J.3
.6.R.\.E.E(FB$(J))...F.E..(E):FB$(J).D(E
)...P..J:J.0...Z........ ADD PART......"
.".......10)".ADD PART NUMBER".6....L$.X
...F.0:."PART NUMBER (0=END) ";F.G.... F
.0 .400...$.. F.650 . .165:.1000...... R
EC$(F)."1" .."DUPLICATE NUMBER":.166:.10
00...8.. J.2.11...B..HD$(J);:.10600:FB$(
J.1).X$:.L$:.J:J.0...G..J.3.8:. E(FB$(J)
).0.FB$(J)."0"...H..J...I..850.*.L.. 102
00.:.V.REC$(F)."1".E.`.. 1000.J...Y$.J(D
(.A(X)),2).J(D(.B(X)),3,3).}...Y$.I(C$.Y
$,10)...D..J(Y$,4,1)." ".Y$." ".Y$:....
N.Y$.H(Y$,4).",".I(Y$,6).U.X..H(Y$,1)."
".Y$." ".Y$:......Y$.H(Y$,1).",".I(Y$,10
):......Y$.J(D(.A(X)),2).J(D(.B(X)),3,3)
.8....J(D(.B(X)),3,3).".00".1310.D...Y$.
D(K).V...Y$.I(C$.Y$,7).\.(...G.>..X.5...
Y.`.. DELETE PART...J.."."...T...10)".DE
LETE PART NUMBER":.L$.G.~.F.0:."PART NUM
BER (0=END) ";F.W.... F.0 . 400...... F.
650 . .165:.2410.".... REC$(F).."1".."PA
RT NOT ON FILE":.166:.2410.?....".ARE YO
U SURE(Y/N)";A$.[.... A$.."N". A$.."Y".2
460.L....A$."N".2410.....REC$(F)."/":."P
ART NUMBER ";F;" DELETED":.166:F.0:.2410
.C.D.. INVENTORY ADJUSTMENT...N..X.5..".
".10)". S T O C K S O L D .".!.X..X.6
..".".5)". S T O C K R E C E I V E D .
".)....L$.P...." YOU MAY ENTER UP TO 10
PARTS.".R...." THE QUANTITY IN STOCK
";......X.5.."AND YTD SALES "......X.6..
"AND COSTS ".M...." WILL BE ADJUSTED AU
TOMATICALLY.".......5)".ENTER.(0).TO END
INPUT":.:.L$......TL$(X):.:LN.0...F.F.0
:."";F:.".".-.P..F.0.LN.0.400.;.T..F.0.2
700.X.Z..F.650..165:.21010:.2630...D..RE
C$(F).."1"..". PART NOT ON FILE .":.166:
.22030:.2630...N.LN.LN.1:.20000...X..LN.
10.2630.Q.... *** DISPLAY ENTRIES......"
.":........5)". S T O C K U P D A T E
D .":.:.:.21100.+...LI.LN:.X.6..22400:.2
730.]. .. LN.1.LI:..2)PN$(LN).11)UM$(LN)
.20)QT$(LN):.......".PRESS 'C' TO CONTIN
UE UPDATING"............"PRESS <RETURN>
TO EXIT TO INVENTORY".H...."MAINTENANCE"
......Z$:.Z$."".2750...B..Z$."_"..12100:
.2750...H..Z$.G(13).400...R..Z$.G(67).25
00.$....2750......"..".L.....10)".INVENT
ORY REPORTS".T....L$.T.J...2)"... A .INV
ENTORY LIST"...T...2)".. B .REORDER REPO
RT".......2)".. C .PRICE LIST".R.....2)"
.. X .RETURN TO MAIN MENU"......"..ENTER
REPORT DESIRED"......170...... Z$."X".1
90.'...X.F(Z$).64:.X.1.X.3.3590.@.... X
. 3620,4000,4300.H.$.."..".10)". INVENTO
RY REPORT .":.L$.S....10900.~.8..12030..
.~.. F.1.650...... REC$(F).."1".3770....
..10800...... 11000......22,F$" "DE$" "U
M$" "IS$" "LP$" ";......22,NP$" "RO$"
"LC$" "SL$.-...LN.LN.1:. LN.55 . 22:.
12000:.12030.4....F.F.D..22,L$.L$:.22.H
.N..22,"TOTAL PARTS "TP:.22:TP.0...X..22
,"TOTAL IN STOCK "TS:.22:TS.0.....K.VL:.
1200.L....22,"VALUE AT LIST PRICE $ "
Y$:.22:Y$."".....K.VC:.1200......22,"VAL
UE AT COST $ "Y$......22,G(19): 22:Y$
.""......3500.C. .."..".10)". REORDER RE
PORT .":.L$.O.... 10900.Z....12200.J.H..
F.1 . 650...R.. REC$(F).."1".4200......
10800:.11000.....OQ.E(FB$(3)).E(FB$(4)):
. OQ.0 . 4200.J...OQ..(OQ)......OQ.E(FB$
(5)).OQ.E(FB$(5)).....OQ$.D(OQ).....RC.O
Q.E(FB$(8)).....TC.TC.RC...".K.RC:.1200:
RC$.Y$.C.,.OQ$.I(RB$.OQ$,5).M.J..22,F$"
"DE$" "UM$" "IS$" "RO$" ";...T..22,MN
$" "OQ$" "NP$" "RC$...^.LN.LN.1:. LN.55
. 22:.12000:.12200...H..F.L.R..22,L$.L$
:.22...W.K.TC:.1200...|..22," ".38)"TOTA
L NET COST OF ORDER $"Y$.&....22,G(19
): 22:K.0:TC.0.0....3500.[.L.."..".5)".
INVENTORY PRICE LIST .":.L$.G.V.. 10900.
S.... 12300...... F.1.650...... REC$(F).
."1".4400......10800:.11000.T....22,F$"
"DE$" "UM$" "LP$...&.LN.LN.1
:. LN.55. 22:.12000:.12300...0..F...:..2
2,L$.L$.!.D..22,G(19): 22.*.N..190.@....
ZERO YTD TOTALS.I....".".D.....10)".ZER
O SALES YTD".L....L$......"THIS ROUTINE
WILL SET THE YTD SALES".C...."FIELDS ON
ALL INVENTORY RECORDS TO 0".L...." "....
.."TO CONTINUE HIT RETURN OR ANY OTHER K
EY TO EXIT"...D.. 170.!.N.. Z$..G(13).19
0./.X.. F.1.650.G.... REC$(F).."1".5130.
S.... 10800.B...FB$(6)."0".M....10200.S.
....}....3500...P.. CHANGE PART...Z.."."
.......10)". CHANGE PART DATA ":.L$.....
F.0:."PART NUMBER (0=END) ";F...... F.0.
400.. ... F.650..165:.6010.4 ... REC$(F)
.."1".."PART NOT ON FILE":.166:.6010.? .
..10800.P ...11000:."..".} ..." . UPDATI
NG PART NUMBER . ";F:.L$:.".".. ..." . A
. UNIT OF.MEASURE: "UM$:.L$.G J.." . B
. DESCRIPTION: "DE$:.L$.. T.." . C . IN/
STK: "IS$" . D . REORD: "RO$:.L$.,!..."
. E . MN ORD: "MN$" . F . SALES: "SL$
:.L$.[!..." . G . LIST: "LP$" . H . NE
T: "NP$:.L$.W!..." . I . LOCA: "LC$:.L$.
.!..." . J . VEN: "VN$..!...L$.M!...". E
NTER LETTER TO CHANGE . (0=END) ? . ..";
:.800..!... D.48.6200..!..D.D.64.."..UD.
1:.".. ENTER NEW INFORMATION":N%.25:.106
00.."..FB$(D).X$:.6075.?"8.. UD..1.6010.
B"B.UD.0:..8)".. UPDATING RECORD ".X"L..
850:.10200:.6010.."(#.".........".7)". R
ECORDING INDEX FILE ".."2#.10500.."<# 15
: 5: 2.M"F#. 788,49:...".'. INITIALIZE R
ECORDS USED TABLE..#.'. I.1.650:REC$(I).
"/":.I..#$'..8#T'. LOAD INDEX INTO RECOR
DS TABLE.Q#~'.5,8,5,"0:INDEX,S,R".L#.'.I
.1.650:.5,REC$(I):.I.S#.' 5.Y#.'...#X'.
WRITE RECORD..#.'. 10300..#.'.15,"B-P:";
CH;FP.O#.'.FI.1.FX:.CH,FB$(FI);G(13);:..
.#.(.15,"U2:";CH;FD;FT;FS..#.(.10400..#.
(...$<(. SET TRACK AND SECTOR.7$F(.F.358
.F1.0:F2.22:F3.1:.10350.B$P(.F.357.F.472
.F1.357:F2.20:F3.19:.10350..$Z(.F.471.F.
580.F1.471:F2.19:F3.25:.10350..$D(.F.579
.F1.579:F2.18:F3.31.J$N(FT..(((F.F1).1).
(F2.1)).F3..$X(FS.F.F1.(FT.F3).F2.(FT.F3
.1)..$.(...% (. ERROR CHECKING..%.(.15,E
N,EM$,ET,ES.'%.(.EN.0...C%.(."ERROR STAT
US:";EN;EM$..%C(.Z.1.1000:.Z:.".FORMATTE
D DATA DISK SHOULD BE IN DRIVE!"..%H(."P
RESS:(Y)TO CONTINUE/(N)TO STOP PROGRAM".
C%M(. Y$:.Y$."Y". ..I%R(...%.).5,8,5,"@0
:INDEX,S,W"..&.).I.1.650:.5,REC$(I);G(13
);..&.).: 5:.."&H)X$."":Z$."":LE.0.@&I).
J.2.ZZ$."A".N%.3:.10615._&J). J.3.ZZ$."
B".N%.20:.10615.}&K). J.4.ZZ$."C".N%.6:.
10615..&L). J.5.ZZ$."D".N%.5:.10615..&M)
. J.6.ZZ$."E".N%.5:.10615.W&N). J.7.ZZ$.
"F".N%.6:.10615..&O). J.8.ZZ$."G".N%.7:.
10615..'P). J.9.ZZ$."H".N%.7:.10615.2'Q)
. J.10.ZZ$."I".N%.5:.10615.J'R).J.11.ZZ$
."J".N%.25.\'W)." . ? . ..";.Q'|).Z$:.Z$
."".10620..'.)B.F(Z$):.B.3.B.17.B.19.B.2
9.B.145.B.147.B.157.10620..'.). LE..0 .
10660.Y'.).B.13.B.32.X$."":.10620..'.).B
.13.LE..1.." ":...(.). B..20.10700..(.).
LE.1.X$."":.10620.G(B)X$.H(X$,LE.1):."
... ..";:LE.LE.1:.10620.V(L)X$.X$.Z$:.Z$
". ..";:LE.C(X$):. LE.N%.10690..(.).1062
0..(0*. READ RECORD..(:*. 10300..(D*.15,
"U1:";CH;FD;FT;FS.N(N*.15,"B-P:";CH;FP.Z
(X*. 10400..(B*. FI.1.FX..(L*.CH,FB$(FI)
:...)V*..#).*.".SET PRINTER TO TOP OF PA
GE".B).*.".HIT RETURN TO CONTINUE".[).*.
Z$:.Z$..G(13).10920..).*.OPEN22,4:PRINT#
22,CHR$(147):CLOSE22..).*PG.1:TP.0:TS.0:
VL.0:VC.0:LN.0..)F*..E).*DE$.H(FB$(2).RB
$,20)..).+UM$.H(FB$(1).RB$,3)..).+IS$.I(
RB$.FB$(3),6)..*.+K.E(FB$(7)):.1300:LP$.
Y$.4* +K.E(FB$(8)):.1300:NP$.I(Y$,7).L**
+RO$.I(RB$.FB$(4),5).D*4+LC$.H(FB$(9).RB
$,5).|*>+SL$.I(RB$.FB$(6),6)..*H+F$.H(D(
F).RB$,4)..*R+MN$.I(RB$.FB$(5),5).C*\+VN
$.H(FB$(10).RB$,25)..*.+TP.TP.1:TS.TS.E(
IS$)..*J+VL.VL.(E(IS$).E(LP$))..+T+VC.VC
.(E(IS$).E(NP$))..+.+..-+...22,4:.I.1.6:
.22:..B+.. 22:PG.PG.1:LN.0.H+....W+...22
,4:.22,G(1)"INVENTORY LIST".15)"PAGE"PG.
.+./.22,L$.L$..+./.22,"PART DESCRIPTION
UOM IN/STK";..+./.22," LIST
NET REORD LOC SALES"..+&/.22,
L$.L$..+0/ 22..,:/.22,4:...,D/SP$." ":X.
0.),X/.4,4:.4,SP$.B,B/.Q.1024.1943:A.B(Q
).127:B.A.64.(A.32):.4,G(B);:X.X.1.~,./.
X.40..4,"":.4,SP$;:X.0..,./.: 4:...,./.2
2,4:.22,G(1)"REORDER REPORT".15)"PAGE"PG
.F,./.22,L$.L$..,./.22," ".38)"REORD
";..-A/.22,"REC UNIT REC REORD"
.9-F/.22,"PART DESCRIPTION UOM
IN/STK";.G-P/.22," POINT MIN QTY
COST COST".U-Z/.22,L$.L$.}-./ 22..-
./.22,4:...-.0.22,4:.22,G(1)"INVENTORY P
RICE LIST".8)"PAGE"PG.K-.0.22,L$.L$... 0
.22,"PART DESCRIPTION".13)"UOM L
IST PRICE"...*0.22,L$.L$...40 22.$.>0.22
,4:..E. N. **GET RECORD & BUILD TABLE.O.
*N.10800:.E(FB$(3)).1.X.5..22500:.20110.
..4N.".".10)FB$(1).15):. DISPLAY UOM...9
NN%.6:.10600 . * GET QTY.C.;N.E(X$).0.20
029...<N.". QTY MUST BE > 0 .":.22005:.2
0110../=N.22600:.ER.1.20110.!/>NQT$.X$:.
X.6..22200:.20040.9/?NQT.E(FB$(3)).E(QT$
).Q/@N.QT.0..22000:.20110.J/BNYTD.E(FB$(
6)).E(QT$).|/DNFB$(6).D(YTD)../HNFB$(3).
D(QT)../RN.10220 . ***REWRITE RECORD../
FNLN$(LN).D(LN).Y/PNPN$(LN).I(RB$.D(F),3
)../ZNQT$(LN).I(RB$.QT$,6)..0.NUM$(LN).F
B$(1)..0.N...0LR.TL$(X):.L$:..#0.R..90.U
.". > IN STOCK .".I0.U.I.1.1000:..U0.ULN
.LN.1.~0.V.".
."..0.V...0TVX$."":Z$."":LE.0..0^V..
23)".. ? ..";..0HV.10620..0RV...0.V..25)
".";:N%.7:.10600 . GET COST..0BV.E(X$).0
..22300:.22230.'1LVNC.E(FB$(8)):CS$(LN).
I(RB$.FB$(8),7).?1VVQT.E(FB$(3)).E(QT$).
X1.VCS$(LN).I(RB$.YY$,7).^1.V..W1.WK.E(X
$):.1300:YY$.Y$..1!WOV.E(FB$(8)).E(FB$(3
))..1&WNV.E(QT$).E(Y$)..10WTQ.E(FB$(3)).
E(QT$).U1:WK.(OV.NV).TQ:.1300..1DWFB$(8)
.Y$..1NW.."2.W.LN.1.LI:..2)PN$(LN).9)UM$
(LN).18)QT$(LN).29)CS$(LN).(2.W...2.W..I
2.W. **OUT OF STOCK ERROR.H2.W.". OUT OF
STOCK .":.22005.N2.W...2HXBN.E(X$):BI..
(BN):ER.0..2MX.BI.BN.22640.C2RX.". QUANT
ITY MUST BE WHOLE NUMBER .".N2\X.22005.W
2FXER.1..2PX......3..."./..... .........
.........
> CLICK IMAGE PREVIEW FOR FULL MODAL