INV64
FILE INFORMATION
FILENAME(S): INV64
FILE TYPE(S): PRG
FILE SIZE: 10.7K
FIRST SEEN: 2025-11-30 21:23:56
APPEARS ON: 1 disk(s)
FILE HASH
22c08deb1b9b41a94edf239e4593ada0f89b4026583a3aa7340bd9efb06a09b7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 31 1 | INV64 | PRG | DuncanTwain | 10 | 10 | 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 36 0D 19 01 99 22 11 |UNCTION".6....".|
00000510: 11 20 20 20 20 20 50 52 4F 47 52 41 4D 20 42 59 |. PROGRAM BY|
00000520: 22 3B A6 35 29 22 12 20 52 45 50 4C 49 43 41 20 |";.5)". REPLICA |
00000530: 49 4E 43 20 92 22 00 40 0D 22 01 8D 20 31 37 30 |INC .".@.".. 170|
00000540: 00 5C 0D 2C 01 58 B2 C6 28 5A 24 29 AB 36 34 3A |.\.,.X..(Z$).64:|
00000550: 8B 58 B3 31 B0 58 B1 34 A7 32 39 30 00 79 0D 36 |.X.1.X.4.290.y.6|
00000560: 01 91 20 58 20 89 20 34 30 30 2C 33 35 30 30 2C |.. X . 400,3500,|
00000570: 35 30 30 30 2C 39 30 30 30 00 82 0D 90 01 99 22 |5000,9000......"|
00000580: 93 22 00 A4 0D 9A 01 99 A6 31 30 29 22 12 49 4E |.".......10)".IN|
00000590: 56 45 4E 54 4F 52 59 20 4D 41 49 4E 54 45 4E 41 |VENTORY MAINTENA|
000005A0: 4E 43 45 22 00 AC 0D A4 01 99 4C 24 00 CB 0D AE |NCE"......L$....|
000005B0: 01 99 A6 32 29 22 11 11 12 20 41 20 92 20 44 49 |...2)"... A . DI|
000005C0: 53 50 4C 41 59 20 50 41 52 54 22 00 E5 0D B8 01 |SPLAY PART".....|
000005D0: 99 A6 32 29 22 11 12 20 42 20 92 20 41 44 44 20 |..2)".. B . ADD |
000005E0: 50 41 52 54 22 00 02 0E C2 01 99 A6 32 29 22 11 |PART".......2)".|
000005F0: 12 20 43 20 92 20 43 48 41 4E 47 45 20 50 41 52 |. C . CHANGE PAR|
00000600: 54 22 00 1F 0E CC 01 99 A6 32 29 22 11 12 20 44 |T".......2)".. D|
00000610: 20 92 20 44 45 4C 45 54 45 20 50 41 52 54 22 00 | . DELETE PART".|
00000620: 41 0E D6 01 99 A6 32 29 22 11 12 20 45 20 92 20 |A.....2)".. E . |
00000630: 45 4E 54 45 52 20 53 54 4F 43 4B 20 53 4F 4C 44 |ENTER STOCK SOLD|
00000640: 22 00 67 0E E0 01 99 A6 32 29 22 11 12 20 46 20 |".g.....2)".. F |
00000650: 92 20 45 4E 54 45 52 20 53 54 4F 43 4B 20 52 45 |. ENTER STOCK RE|
00000660: 43 45 49 56 45 44 22 00 8C 0E EA 01 99 A6 32 29 |CEIVED".......2)|
00000670: 22 11 12 20 58 20 92 20 52 45 54 55 52 4E 20 54 |".. X . RETURN T|
00000680: 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 00 A4 0E F4 |O MAIN MENU"....|
00000690: 01 99 22 11 11 45 4E 54 45 52 20 46 55 4E 43 54 |.."..ENTER FUNCT|
000006A0: 49 4F 4E 22 00 AE 0E FE 01 8D 20 31 37 30 00 BF |ION"...... 170..|
000006B0: 0E 03 02 8B 20 5A 24 B2 22 58 22 A7 31 39 30 00 |.... Z$."X".190.|
000006C0: DE 0E 08 02 58 B2 C6 28 5A 24 29 AB 36 34 3A 8B |....X..(Z$).64:.|
000006D0: 20 58 B3 31 B0 58 B1 36 20 A7 20 35 31 30 00 05 | X.1.X.6 . 510..|
000006E0: 0F 12 02 91 20 58 20 89 20 36 30 30 2C 31 30 30 |.... X . 600,100|
000006F0: 30 2C 36 30 30 30 2C 32 34 30 30 2C 32 35 30 30 |0,6000,2400,2500|
00000700: 2C 32 35 30 30 00 18 0F 58 02 8F 20 44 49 53 50 |,2500...X.. DISP|
00000710: 4C 41 59 20 50 41 52 54 00 21 0F 62 02 99 22 93 |LAY PART.!.b..".|
00000720: 22 00 45 0F 6C 02 99 A6 31 30 29 22 12 44 49 53 |".E.l...10)".DIS|
00000730: 50 4C 41 59 20 50 41 52 54 20 4E 55 4D 42 45 52 |PLAY PART NUMBER|
00000740: 22 3A 99 4C 24 00 67 0F 76 02 46 B2 30 3A 85 22 |":.L$.g.v.F.0:."|
00000750: 50 41 52 54 20 4E 55 4D 42 45 52 20 28 30 3D 45 |PART NUMBER (0=E|
00000760: 4E 44 29 20 22 3B 46 00 70 0F 7B 02 99 22 93 22 |ND) ";F.p.{.."."|
00000770: 00 88 0F 7C 02 99 22 20 12 50 41 52 54 20 23 20 |...|.." .PART # |
00000780: 92 22 3B 46 3A 99 4C 24 00 96 0F 80 02 8B 20 46 |.";F:.L$...... F|
00000790: B2 30 A7 34 30 30 00 AE 0F 85 02 8B 20 46 B1 36 |.0.400...... F.6|
000007A0: 35 30 20 A7 20 8D 31 36 35 3A 89 36 31 30 00 DF |50 . .165:.610..|
000007B0: 0F 8A 02 8B 20 52 45 43 24 28 46 29 B3 B1 22 31 |.... REC$(F).."1|
000007C0: 22 A7 99 22 50 41 52 54 20 4E 4F 54 20 4F 4E 20 |".."PART NOT ON |
000007D0: 46 49 4C 45 22 3A 8D 31 36 36 3A 89 36 31 30 00 |FILE":.166:.610.|
000007E0: EB 0F 94 02 8D 20 31 30 38 30 30 00 17 10 9E 02 |..... 10800.....|
000007F0: 81 20 4A B2 32 A4 31 31 3A 99 48 44 24 28 4A 29 |. J.2.11:.HD$(J)|
00000800: 3B 22 92 20 20 20 22 3B 46 42 24 28 4A AB 31 29 |;". ";FB$(J.1)|
00000810: 3A 99 4C 24 3A 82 4A 00 35 10 A8 02 99 22 48 49 |:.L$:.J.5...."HI|
00000820: 54 20 52 45 54 55 52 4E 20 54 4F 20 43 4F 4E 54 |T RETURN TO CONT|
00000830: 49 4E 55 45 22 00 3E 10 B2 02 8D 31 37 30 00 52 |INUE".>....170.R|
00000840: 10 BC 02 8B 20 5A 24 B3 B1 C7 28 31 33 29 A7 36 |.... Z$...(13).6|
00000850: 39 30 00 5C 10 C6 02 89 20 36 31 30 00 6F 10 20 |90.\.... 610.o. |
00000860: 03 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 38 30 30 00 |..Z$:.Z$."".800.|
00000870: 7A 10 25 03 5A 5A 24 B2 5A 24 00 93 10 2A 03 44 |z.%.ZZ$.Z$...*.D|
00000880: B2 C6 28 5A 24 29 3A 8B 20 44 B2 34 38 20 A7 20 |..(Z$):. D.48 . |
00000890: 38 33 30 00 A7 10 34 03 8B 20 44 B3 36 35 B0 44 |830...4.. D.65.D|
000008A0: B1 37 34 A7 38 30 30 00 B1 10 3E 03 99 5A 24 3A |.74.800...>..Z$:|
000008B0: 8E 00 BD 10 52 03 81 20 4A B2 33 A4 36 00 CD 10 |....R.. J.3.6...|
000008C0: 5C 03 45 B2 C5 28 46 42 24 28 4A 29 29 00 E4 10 |\.E..(FB$(J))...|
000008D0: 66 03 45 B2 B5 28 45 29 3A 46 42 24 28 4A 29 B2 |f.E..(E):FB$(J).|
000008E0: C4 28 45 29 00 EF 10 70 03 82 4A 3A 4A B2 30 00 |.(E)...p..J:J.0.|
000008F0: F5 10 7A 03 8E 00 04 11 E8 03 8F 20 41 44 44 20 |..z........ ADD |
00000900: 50 41 52 54 00 0D 11 F2 03 99 22 93 22 00 29 11 |PART......".".).|
00000910: FC 03 99 A6 31 30 29 22 12 41 44 44 20 50 41 52 |....10)".ADD PAR|
00000920: 54 20 4E 55 4D 42 45 52 22 00 31 11 06 04 99 4C |T NUMBER".1....L|
00000930: 24 00 53 11 10 04 46 B2 30 3A 85 22 50 41 52 54 |$.S...F.0:."PART|
00000940: 20 4E 55 4D 42 45 52 20 28 30 3D 45 4E 44 29 20 | NUMBER (0=END) |
00000950: 22 3B 46 00 62 11 1A 04 8B 20 46 B2 30 20 A7 34 |";F.b.... F.0 .4|
00000960: 30 30 00 7B 11 24 04 8B 20 46 B1 36 35 30 20 A7 |00.{.$.. F.650 .|
00000970: 20 8D 31 36 35 3A 89 31 30 30 30 00 AD 11 2E 04 | .165:.1000.....|
00000980: 8B 20 52 45 43 24 28 46 29 B2 22 31 22 20 A7 99 |. REC$(F)."1" ..|
00000990: 22 44 55 50 4C 49 43 41 54 45 20 4E 55 4D 42 45 |"DUPLICATE NUMBE|
000009A0: 52 22 3A 8D 31 36 36 3A 89 31 30 30 30 00 BA 11 |R":.166:.1000...|
000009B0: 38 04 81 20 4A B2 32 A4 31 31 00 E5 11 42 04 99 |8.. J.2.11...B..|
000009C0: 48 44 24 28 4A 29 3B 3A 8D 31 30 36 30 30 3A 46 |HD$(J);:.10600:F|
000009D0: 42 24 28 4A AB 31 29 B2 58 24 3A 99 4C 24 3A 82 |B$(J.1).X$:.L$:.|
000009E0: 4A 3A 4A B2 30 00 09 12 47 04 81 4A B2 33 A4 38 |J:J.0...G..J.3.8|
000009F0: 3A 8B 20 C5 28 46 42 24 28 4A 29 29 B2 30 A7 46 |:. .(FB$(J)).0.F|
00000A00: 42 24 28 4A 29 B2 22 30 22 00 10 12 48 04 82 4A |B$(J)."0"...H..J|
00000A10: 00 19 12 49 04 8D 38 35 30 00 25 12 4C 04 8D 20 |...I..850.%.L.. |
00000A20: 31 30 32 30 30 00 35 12 56 04 52 45 43 24 28 46 |10200.5.V.REC$(F|
00000A30: 29 B2 22 31 22 00 40 12 60 04 89 20 31 30 30 30 |)."1".@.`.. 1000|
00000A40: 00 65 12 B0 04 59 24 B2 CA 28 C4 28 A5 41 28 58 |.e...Y$..(.(.A(X|
00000A50: 29 29 2C 32 29 AA CA 28 C4 28 A5 42 28 58 29 29 |)),2)..(.(.B(X))|
00000A60: 2C 33 2C 33 29 00 78 12 BA 04 59 24 B2 C9 28 43 |,3,3).x...Y$..(C|
00000A70: 24 AA 59 24 2C 31 30 29 00 98 12 C4 04 8B CA 28 |$.Y$,10).......(|
00000A80: 59 24 2C 34 2C 31 29 B2 22 20 22 A7 59 24 B2 22 |Y$,4,1)." ".Y$."|
00000A90: 20 20 22 AA 59 24 3A 8E 00 B3 12 CE 04 59 24 B2 | ".Y$:......Y$.|
00000AA0: C8 28 59 24 2C 34 29 AA 22 2C 22 AA C9 28 59 24 |.(Y$,4).","..(Y$|
00000AB0: 2C 36 29 00 D0 12 D8 04 8B C8 28 59 24 2C 31 29 |,6).......(Y$,1)|
00000AC0: B2 22 20 22 A7 59 24 B2 22 20 22 AA 59 24 3A 8E |." ".Y$." ".Y$:.|
00000AD0: 00 EE 12 E2 04 59 24 B2 C8 28 59 24 2C 31 29 AA |.....Y$..(Y$,1).|
00000AE0: 22 2C 22 AA C9 28 59 24 2C 31 30 29 3A 8E 00 13 |","..(Y$,10):...|
00000AF0: 13 14 05 59 24 B2 CA 28 C4 28 A5 41 28 58 29 29 |...Y$..(.(.A(X))|
00000B00: 2C 32 29 AA CA 28 C4 28 A5 42 28 58 29 29 2C 33 |,2)..(.(.B(X)),3|
00000B10: 2C 33 29 00 33 13 19 05 8B CA 28 C4 28 A5 42 28 |,3).3.....(.(.B(|
00000B20: 58 29 29 2C 33 2C 33 29 B2 22 2E 30 30 22 A7 31 |X)),3,3).".00".1|
00000B30: 33 31 30 00 3F 13 1B 05 59 24 B2 C4 28 4B 29 00 |310.?...Y$..(K).|
00000B40: 51 13 1E 05 59 24 B2 C9 28 43 24 AA 59 24 2C 37 |Q...Y$..(C$.Y$,7|
00000B50: 29 00 57 13 28 05 8E 00 62 13 3E 08 8B 58 B2 35 |).W.(...b.>..X.5|
00000B60: A7 99 00 74 13 60 09 8F 20 44 45 4C 45 54 45 20 |...t.`.. DELETE |
00000B70: 50 41 52 54 00 7D 13 6A 09 99 22 93 22 00 A0 13 |PART.}.j.."."...|
00000B80: 74 09 99 A6 31 30 29 22 12 44 45 4C 45 54 45 20 |t...10)".DELETE |
00000B90: 50 41 52 54 20 4E 55 4D 42 45 52 22 3A 99 4C 24 |PART NUMBER":.L$|
00000BA0: 00 C2 13 7E 09 46 B2 30 3A 85 22 50 41 52 54 20 |...~.F.0:."PART |
00000BB0: 4E 55 4D 42 45 52 20 28 30 3D 45 4E 44 29 20 22 |NUMBER (0=END) "|
00000BC0: 3B 46 00 D2 13 88 09 8B 20 46 B2 30 20 A7 20 34 |;F...... F.0 . 4|
00000BD0: 30 30 00 EB 13 8D 09 8B 20 46 B1 36 35 30 20 A7 |00...... F.650 .|
00000BE0: 20 8D 31 36 35 3A 89 32 34 31 30 00 1D 14 92 09 | .165:.2410.....|
00000BF0: 8B 20 52 45 43 24 28 46 29 B3 B1 22 31 22 A7 99 |. REC$(F).."1"..|
00000C00: 22 50 41 52 54 20 4E 4F 54 20 4F 4E 20 46 49 4C |"PART NOT ON FIL|
00000C10: 45 22 3A 8D 31 36 36 3A 89 32 34 31 30 00 3A 14 |E":.166:.2410.:.|
00000C20: 9C 09 85 22 11 41 52 45 20 59 4F 55 20 53 55 52 |...".ARE YOU SUR|
00000C30: 45 28 59 2F 4E 29 22 3B 41 24 00 56 14 A6 09 8B |E(Y/N)";A$.V....|
00000C40: 20 41 24 B3 B1 22 4E 22 AF 20 41 24 B3 B1 22 59 | A$.."N". A$.."Y|
00000C50: 22 89 32 34 36 30 00 67 14 B0 09 8B 41 24 B2 22 |".2460.g....A$."|
00000C60: 4E 22 A7 32 34 31 30 00 A3 14 BA 09 52 45 43 24 |N".2410.....REC$|
00000C70: 28 46 29 B2 22 2F 22 3A 99 22 50 41 52 54 20 4E |(F)."/":."PART N|
00000C80: 55 4D 42 45 52 20 22 3B 46 3B 22 20 44 45 4C 45 |UMBER ";F;" DELE|
00000C90: 54 45 44 22 3A 8D 31 36 36 3A 46 B2 30 3A 89 32 |TED":.166:F.0:.2|
00000CA0: 34 31 30 00 BE 14 C4 09 8F 20 49 4E 56 45 4E 54 |410...... INVENT|
00000CB0: 4F 52 59 20 41 44 4A 55 53 54 4D 45 4E 54 00 EA |ORY ADJUSTMENT..|
00000CC0: 14 CE 09 8B 58 B2 35 A7 99 22 93 22 A3 31 30 29 |....X.5..".".10)|
00000CD0: 22 12 20 53 20 54 20 4F 20 43 20 4B 20 20 20 20 |". S T O C K |
00000CE0: 53 20 4F 20 4C 20 44 20 92 22 00 1C 15 D8 09 8B |S O L D ."......|
00000CF0: 58 B2 36 A7 99 22 93 22 A3 35 29 22 12 20 53 20 |X.6..".".5)". S |
00000D00: 54 20 4F 20 43 20 4B 20 20 20 52 20 45 20 43 20 |T O C K R E C |
00000D10: 45 20 49 20 56 20 45 20 44 20 92 22 00 24 15 E2 |E I V E D .".$..|
00000D20: 09 99 4C 24 00 4B 15 EC 09 99 22 20 20 59 4F 55 |..L$.K...." YOU|
00000D30: 20 4D 41 59 20 45 4E 54 45 52 20 55 50 20 54 4F | MAY ENTER UP TO|
00000D40: 20 31 30 20 50 41 52 54 53 2E 22 00 6D 15 EE 09 | 10 PARTS.".m...|
00000D50: 99 22 20 20 54 48 45 20 51 55 41 4E 54 49 54 59 |." THE QUANTITY|
00000D60: 20 49 4E 20 53 54 4F 43 4B 20 20 22 3B 00 88 15 | IN STOCK ";...|
00000D70: F6 09 8B 58 B2 35 A7 99 22 41 4E 44 20 59 54 44 |...X.5.."AND YTD|
00000D80: 20 53 41 4C 45 53 20 22 00 9F 15 00 0A 8B 58 B2 | SALES "......X.|
00000D90: 36 A7 99 22 41 4E 44 20 43 4F 53 54 53 20 22 00 |6.."AND COSTS ".|
00000DA0: C8 15 0A 0A 99 22 20 20 57 49 4C 4C 20 42 45 20 |....." WILL BE |
00000DB0: 41 44 4A 55 53 54 45 44 20 41 55 54 4F 4D 41 54 |ADJUSTED AUTOMAT|
00000DC0: 49 43 41 4C 4C 59 2E 22 00 F0 15 0F 0A 99 A6 35 |ICALLY.".......5|
00000DD0: 29 22 12 45 4E 54 45 52 92 28 30 29 12 54 4F 20 |)".ENTER.(0).TO |
00000DE0: 45 4E 44 20 49 4E 50 55 54 22 3A 99 3A 99 4C 24 |END INPUT":.:.L$|
00000DF0: 00 03 16 14 0A 99 54 4C 24 28 58 29 3A 99 3A 4C |......TL$(X):.:L|
00000E00: 4E B2 30 00 16 16 46 0A 46 B2 30 3A 85 22 22 3B |N.0...F.F.0:."";|
00000E10: 46 3A 99 22 91 22 00 28 16 50 0A 8B 46 B2 30 AF |F:.".".(.P..F.0.|
00000E20: 4C 4E B2 30 A7 34 30 30 00 36 16 54 0A 8B 46 B2 |LN.0.400.6.T..F.|
00000E30: 30 A7 32 37 30 30 00 53 16 5A 0A 8B 46 B1 36 35 |0.2700.S.Z..F.65|
00000E40: 30 A7 8D 31 36 35 3A 8D 32 31 30 31 30 3A 89 32 |0..165:.21010:.2|
00000E50: 36 33 30 00 8F 16 64 0A 8B 52 45 43 24 28 46 29 |630...d..REC$(F)|
00000E60: B3 B1 22 31 22 A7 99 22 12 20 50 41 52 54 20 4E |.."1"..". PART N|
00000E70: 4F 54 20 4F 4E 20 46 49 4C 45 20 92 22 3A 8D 31 |OT ON FILE .":.1|
00000E80: 36 36 3A 8D 32 32 30 33 30 3A 89 32 36 33 30 00 |66:.22030:.2630.|
00000E90: A2 16 6E 0A 4C 4E B2 4C 4E AA 31 3A 8D 32 30 30 |..n.LN.LN.1:.200|
00000EA0: 30 30 00 B2 16 78 0A 8B 4C 4E B3 31 30 A7 32 36 |00...x..LN.10.26|
00000EB0: 33 30 00 CC 16 8C 0A 8F 20 2A 2A 2A 20 44 49 53 |30...... *** DIS|
00000EC0: 50 4C 41 59 20 45 4E 54 52 49 45 53 00 D7 16 90 |PLAY ENTRIES....|
00000ED0: 0A 99 22 93 22 3A 99 00 0A 17 96 0A 99 A3 35 29 |..".":........5)|
00000EE0: 22 12 20 53 20 54 20 4F 20 43 20 4B 20 20 20 55 |". S T O C K U|
00000EF0: 20 50 20 44 20 41 20 54 20 45 20 44 20 92 22 3A | P D A T E D .":|
00000F00: 99 3A 99 3A 8D 32 31 31 30 30 00 26 17 9A 0A 4C |.:.:.21100.&...L|
00000F10: 49 B2 4C 4E 3A 8B 58 B2 36 A7 8D 32 32 34 30 30 |I.LN:.X.6..22400|
00000F20: 3A 89 32 37 33 30 00 58 17 A0 0A 81 20 4C 4E B2 |:.2730.X.... LN.|
00000F30: 31 A4 4C 49 3A 99 A6 32 29 50 4E 24 28 4C 4E 29 |1.LI:..2)PN$(LN)|
00000F40: A3 31 31 29 55 4D 24 28 4C 4E 29 A3 32 30 29 51 |.11)UM$(LN).20)Q|
00000F50: 54 24 28 4C 4E 29 3A 82 00 7F 17 AA 0A 99 22 11 |T$(LN):.......".|
00000F60: 50 52 45 53 53 20 27 43 27 20 54 4F 20 43 4F 4E |PRESS 'C' TO CON|
00000F70: 54 49 4E 55 45 20 55 50 44 41 54 49 4E 47 22 00 |TINUE UPDATING".|
00000F80: 85 17 B0 0A 99 00 B0 17 B4 0A 99 22 50 52 45 53 |..........."PRES|
00000F90: 53 20 3C 52 45 54 55 52 4E 3E 20 54 4F 20 45 58 |S <RETURN> TO EX|
00000FA0: 49 54 20 54 4F 20 49 4E 56 45 4E 54 4F 52 59 22 |IT TO INVENTORY"|
00000FB0: 00 C3 17 B8 0A 99 22 4D 41 49 4E 54 45 4E 41 4E |......"MAINTENAN|
00000FC0: 43 45 22 00 D7 17 BE 0A A1 5A 24 3A 8B 5A 24 B2 |CE"......Z$:.Z$.|
00000FD0: 22 22 A7 32 37 35 30 00 F0 17 C2 0A 8B 5A 24 B2 |"".2750......Z$.|
00000FE0: 22 5F 22 A7 8D 31 32 31 30 30 3A 89 32 37 35 30 |"_"..12100:.2750|
00000FF0: 00 02 18 C8 0A 8B 5A 24 B2 C7 28 31 33 29 A7 34 |......Z$..(13).4|
00001000: 30 30 00 15 18 D2 0A 8B 5A 24 B2 C7 28 36 37 29 |00......Z$..(67)|
00001010: A7 32 35 30 30 00 1F 18 DC 0A 89 32 37 35 30 00 |.2500......2750.|
00001020: 29 18 AC 0D 99 22 93 11 22 00 47 18 B6 0D 99 A6 |)...."..".G.....|
00001030: 31 30 29 22 12 49 4E 56 45 4E 54 4F 52 59 20 52 |10)".INVENTORY R|
00001040: 45 50 4F 52 54 53 22 00 4F 18 C0 0D 99 4C 24 00 |EPORTS".O....L$.|
00001050: 6F 18 CA 0D 99 A6 32 29 22 11 11 12 20 41 20 92 |o.....2)"... A .|
00001060: 49 4E 56 45 4E 54 4F 52 59 20 4C 49 53 54 22 00 |INVENTORY LIST".|
00001070: 8E 18 D4 0D 99 A6 32 29 22 11 12 20 42 20 92 52 |......2)".. B .R|
00001080: 45 4F 52 44 45 52 20 52 45 50 4F 52 54 22 00 A9 |EORDER REPORT"..|
00001090: 18 DE 0D 99 A6 32 29 22 11 12 20 43 20 92 50 52 |.....2)".. C .PR|
000010A0: 49 43 45 20 4C 49 53 54 22 00 CD 18 E8 0D 99 A6 |ICE LIST".......|
000010B0: 32 29 22 11 12 20 58 20 92 52 45 54 55 52 4E 20 |2)".. X .RETURN |
000010C0: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 00 EB 18 |TO MAIN MENU"...|
000010D0: F2 0D 99 22 11 11 45 4E 54 45 52 20 52 45 50 4F |..."..ENTER REPO|
000010E0: 52 54 20 44 45 53 49 52 45 44 22 00 F4 18 FC 0D |RT DESIRED".....|
000010F0: 8D 31 37 30 00 05 19 06 0E 8B 20 5A 24 B2 22 58 |.170...... Z$."X|
00001100: 22 A7 31 39 30 00 22 19 10 0E 58 B2 C6 28 5A 24 |".190."...X..(Z$|
00001110: 29 AB 36 34 3A 8B 58 B3 31 B0 58 B1 33 A7 33 35 |).64:.X.1.X.3.35|
00001120: 39 30 00 3B 19 1A 0E 91 20 58 20 89 20 33 36 32 |90.;.... X . 362|
00001130: 30 2C 34 30 30 30 2C 34 33 30 30 00 63 19 24 0E |0,4000,4300.c.$.|
00001140: 99 22 93 11 22 A3 31 30 29 22 12 20 49 4E 56 45 |."..".10)". INVE|
00001150: 4E 54 4F 52 59 20 52 45 50 4F 52 54 20 92 22 3A |NTORY REPORT .":|
00001160: 99 4C 24 00 6E 19 2E 0E 8D 31 30 39 30 30 00 79 |.L$.n....10900.y|
00001170: 19 38 0E 8D 31 32 30 33 30 00 87 19 7E 0E 81 20 |.8..12030...~.. |
00001180: 46 B2 31 A4 36 35 30 00 9F 19 88 0E 8B 20 52 45 |F.1.650...... RE|
00001190: 43 24 28 46 29 B3 B1 22 31 22 A7 33 37 37 30 00 |C$(F).."1".3770.|
000011A0: AA 19 92 0E 8D 31 30 38 30 30 00 B6 19 97 0E 8D |.....10800......|
000011B0: 20 31 31 30 30 30 00 DF 19 9C 0E 98 32 32 2C 46 | 11000......22,F|
000011C0: 24 22 20 22 44 45 24 22 20 22 55 4D 24 22 20 20 |$" "DE$" "UM$" |
000011D0: 22 49 53 24 22 20 20 22 4C 50 24 22 20 22 3B 00 |"IS$" "LP$" ";.|
000011E0: FF 19 A6 0E 98 32 32 2C 4E 50 24 22 20 20 22 52 |.....22,NP$" "R|
000011F0: 4F 24 22 20 20 22 4C 43 24 22 20 22 53 4C 24 00 |O$" "LC$" "SL$.|
00001200: 28 1A B0 0E 4C 4E B2 4C 4E AA 31 3A 8B 20 4C 4E |(...LN.LN.1:. LN|
00001210: B1 35 35 20 A7 20 A0 32 32 3A 8D 20 31 32 30 30 |.55 . .22:. 1200|
00001220: 30 3A 8D 31 32 30 33 30 00 2F 1A BA 0E 82 46 00 |0:.12030./....F.|
00001230: 41 1A C4 0E 98 32 32 2C 4C 24 AA 4C 24 3A 98 32 |A....22,L$.L$:.2|
00001240: 32 00 63 1A CE 0E 98 32 32 2C 22 54 4F 54 41 4C |2.c....22,"TOTAL|
00001250: 20 50 41 52 54 53 20 22 54 50 3A 98 32 32 3A 54 | PARTS "TP:.22:T|
00001260: 50 B2 30 00 88 1A D8 0E 98 32 32 2C 22 54 4F 54 |P.0......22,"TOT|
00001270: 41 4C 20 49 4E 20 53 54 4F 43 4B 20 22 54 53 3A |AL IN STOCK "TS:|
00001280: 98 32 32 3A 54 53 B2 30 00 97 1A DD 0E 4B B2 56 |.22:TS.0.....K.V|
00001290: 4C 3A 8D 31 32 30 30 00 C7 1A E2 0E 98 32 32 2C |L:.1200......22,|
000012A0: 22 56 41 4C 55 45 20 41 54 20 4C 49 53 54 20 50 |"VALUE AT LIST P|
000012B0: 52 49 43 45 20 20 20 20 24 20 22 59 24 3A 98 32 |RICE $ "Y$:.2|
000012C0: 32 3A 59 24 B2 22 22 00 D6 1A E7 0E 4B B2 56 43 |2:Y$."".....K.VC|
000012D0: 3A 8D 31 32 30 30 00 F6 1A EC 0E 98 32 32 2C 22 |:.1200......22,"|
000012E0: 56 41 4C 55 45 20 41 54 20 43 4F 53 54 20 20 20 |VALUE AT COST |
000012F0: 20 24 20 22 59 24 00 0E 1B F6 0E 98 32 32 2C C7 | $ "Y$......22,.|
00001300: 28 31 39 29 3A A0 32 32 3A 59 24 B2 22 22 00 18 |(19):.22:Y$.""..|
00001310: 1B 00 0F 89 33 35 30 30 00 3E 1B A0 0F 99 22 93 |....3500.>....".|
00001320: 11 22 A3 31 30 29 22 12 20 52 45 4F 52 44 45 52 |.".10)". REORDER|
00001330: 20 52 45 50 4F 52 54 20 92 22 3A 99 4C 24 00 4A | REPORT .":.L$.J|
00001340: 1B AA 0F 8D 20 31 30 39 30 30 00 55 1B BE 0F 8D |.... 10900.U....|
00001350: 31 32 32 30 30 00 65 1B C8 0F 81 20 46 B2 31 20 |12200.e.... F.1 |
00001360: A4 20 36 35 30 00 7D 1B D2 0F 8B 20 52 45 43 24 |. 650.}.... REC$|
00001370: 28 46 29 B3 B1 22 31 22 A7 34 32 30 30 00 8F 1B |(F).."1".4200...|
00001380: DC 0F 8D 31 30 38 30 30 3A 8D 31 31 30 30 30 00 |...10800:.11000.|
00001390: B8 1B E6 0F 4F 51 B2 C5 28 46 42 24 28 33 29 29 |....OQ..(FB$(3))|
000013A0: AB C5 28 46 42 24 28 34 29 29 3A 8B 20 4F 51 B1 |..(FB$(4)):. OQ.|
000013B0: 30 20 A7 20 34 32 30 30 00 C5 1B F0 0F 4F 51 B2 |0 . 4200.....OQ.|
000013C0: B6 28 4F 51 29 00 E4 1B FA 0F 8B 4F 51 B3 C5 28 |.(OQ)......OQ..(|
000013D0: 46 42 24 28 35 29 29 A7 4F 51 B2 C5 28 46 42 24 |FB$(5)).OQ..(FB$|
000013E0: 28 35 29 29 00 F2 1B 04 10 4F 51 24 B2 C4 28 4F |(5)).....OQ$..(O|
000013F0: 51 29 00 06 1C 0E 10 52 43 B2 4F 51 AC C5 28 46 |Q).....RC.OQ..(F|
00001400: 42 24 28 38 29 29 00 13 1C 18 10 54 43 B2 54 43 |B$(8)).....TC.TC|
00001410: AA 52 43 00 29 1C 22 10 4B B2 52 43 3A 8D 31 32 |.RC.).".K.RC:.12|
00001420: 30 30 3A 52 43 24 B2 59 24 00 3E 1C 2C 10 4F 51 |00:RC$.Y$.>.,.OQ|
00001430: 24 B2 C9 28 52 42 24 AA 4F 51 24 2C 35 29 00 68 |$..(RB$.OQ$,5).h|
00001440: 1C 4A 10 98 32 32 2C 46 24 22 20 22 44 45 24 22 |.J..22,F$" "DE$"|
00001450: 20 22 55 4D 24 22 20 20 22 49 53 24 22 20 20 22 | "UM$" "IS$" "|
00001460: 52 4F 24 22 20 20 22 3B 00 86 1C 54 10 98 32 32 |RO$" ";...T..22|
00001470: 2C 4D 4E 24 22 20 22 4F 51 24 22 20 22 4E 50 24 |,MN$" "OQ$" "NP$|
00001480: 22 20 22 52 43 24 00 AE 1C 5E 10 4C 4E B2 4C 4E |" "RC$...^.LN.LN|
00001490: AA 31 3A 8B 20 4C 4E B1 35 35 20 A7 20 A0 32 32 |.1:. LN.55 . .22|
000014A0: 3A 8D 31 32 30 30 30 3A 8D 31 32 32 30 30 00 B5 |:.12000:.12200..|
000014B0: 1C 68 10 82 46 00 C7 1C 72 10 98 32 32 2C 4C 24 |.h..F...r..22,L$|
000014C0: AA 4C 24 3A 98 32 32 00 D6 1C 77 10 4B B2 54 43 |.L$:.22...w.K.TC|
000014D0: 3A 8D 31 32 30 30 00 06 1D 7C 10 98 32 32 2C 22 |:.1200...|..22,"|
000014E0: 20 22 A3 33 38 29 22 54 4F 54 41 4C 20 4E 45 54 | ".38)"TOTAL NET|
000014F0: 20 43 4F 53 54 20 4F 46 20 4F 52 44 45 52 20 20 | COST OF ORDER |
00001500: 20 20 24 22 59 24 00 21 1D 86 10 98 32 32 2C C7 | $"Y$.!....22,.|
00001510: 28 31 39 29 3A A0 32 32 3A 4B B2 30 3A 54 43 B2 |(19):.22:K.0:TC.|
00001520: 30 00 2B 1D 90 10 89 33 35 30 30 00 56 1D CC 10 |0.+....3500.V...|
00001530: 99 22 93 11 22 A3 35 29 22 12 20 49 4E 56 45 4E |."..".5)". INVEN|
00001540: 54 4F 52 59 20 50 52 49 43 45 20 4C 49 53 54 20 |TORY PRICE LIST |
00001550: 92 22 3A 99 4C 24 00 62 1D D6 10 8D 20 31 30 39 |.":.L$.b.... 109|
00001560: 30 30 00 6E 1D EA 10 8D 20 31 32 33 30 30 00 7C |00.n.... 12300.||
00001570: 1D F4 10 81 20 46 B2 31 A4 36 35 30 00 94 1D FE |.... F.1.650....|
00001580: 10 8B 20 52 45 43 24 28 46 29 B3 B1 22 31 22 A7 |.. REC$(F).."1".|
00001590: 34 34 30 30 00 A6 1D 12 11 8D 31 30 38 30 30 3A |4400......10800:|
000015A0: 8D 31 31 30 30 30 00 CF 1D 1C 11 98 32 32 2C 46 |.11000......22,F|
000015B0: 24 22 20 20 20 20 20 20 22 44 45 24 22 20 20 20 |$" "DE$" |
000015C0: 20 22 55 4D 24 22 20 20 20 20 20 22 4C 50 24 00 | "UM$" "LP$.|
000015D0: F5 1D 26 11 4C 4E B2 4C 4E AA 31 3A 8B 20 4C 4E |..&.LN.LN.1:. LN|
000015E0: B1 35 35 A7 A0 32 32 3A 8D 31 32 30 30 30 3A 8D |.55..22:.12000:.|
000015F0: 31 32 33 30 30 00 FC 1D 30 11 82 46 00 0A 1E 3A |12300...0..F...:|
00001600: 11 98 32 32 2C 4C 24 AA 4C 24 00 1C 1E 44 11 98 |..22,L$.L$...D..|
00001610: 32 32 2C C7 28 31 39 29 3A A0 32 32 00 25 1E 4E |22,.(19):.22.%.N|
00001620: 11 89 31 39 30 00 3B 1E 88 13 8F 20 5A 45 52 4F |..190.;.... ZERO|
00001630: 20 59 54 44 20 54 4F 54 41 4C 53 00 44 1E 92 13 | YTD TOTALS.D...|
00001640: 99 22 93 22 00 5F 1E 9C 13 99 A6 31 30 29 22 12 |."."._.....10)".|
00001650: 5A 45 52 4F 20 53 41 4C 45 53 20 59 54 44 22 00 |ZERO SALES YTD".|
00001660: 67 1E A6 13 99 4C 24 00 92 1E B0 13 99 22 54 48 |g....L$......"TH|
00001670: 49 53 20 52 4F 55 54 49 4E 45 20 57 49 4C 4C 20 |IS ROUTINE WILL |
00001680: 53 45 54 20 54 48 45 20 59 54 44 20 53 41 4C 45 |SET THE YTD SALE|
00001690: 53 22 00 BE 1E B5 13 99 22 46 49 45 4C 44 53 20 |S"......"FIELDS |
000016A0: 4F 4E 20 41 4C 4C 20 49 4E 56 45 4E 54 4F 52 59 |ON ALL INVENTORY|
000016B0: 20 52 45 43 4F 52 44 53 20 54 4F 20 30 22 00 C7 | RECORDS TO 0"..|
000016C0: 1E B6 13 99 22 20 22 00 FE 1E BA 13 99 22 54 4F |...." "......"TO|
000016D0: 20 43 4F 4E 54 49 4E 55 45 20 48 49 54 20 52 45 | CONTINUE HIT RE|
000016E0: 54 55 52 4E 20 4F 52 20 41 4E 59 20 4F 54 48 45 |TURN OR ANY OTHE|
000016F0: 52 20 4B 45 59 20 54 4F 20 45 58 49 54 22 00 08 |R KEY TO EXIT"..|
00001700: 1F C4 13 8D 20 31 37 30 00 1C 1F CE 13 8B 20 5A |.... 170...... Z|
00001710: 24 B3 B1 C7 28 31 33 29 89 31 39 30 00 2A 1F D8 |$...(13).190.*..|
00001720: 13 81 20 46 B2 31 A4 36 35 30 00 42 1F E2 13 8B |.. F.1.650.B....|
00001730: 20 52 45 43 24 28 46 29 B3 B1 22 31 22 89 35 31 | REC$(F).."1".51|
00001740: 33 30 00 4E 1F EC 13 8D 20 31 30 38 30 30 00 5D |30.N.... 10800.]|
00001750: 1F F6 13 46 42 24 28 36 29 B2 22 30 22 00 68 1F |...FB$(6)."0".h.|
00001760: 00 14 8D 31 30 32 30 30 00 6E 1F 0A 14 82 00 78 |...10200.n.....x|
00001770: 1F 14 14 89 33 35 30 30 00 8A 1F 70 17 8F 20 43 |....3500...p.. C|
00001780: 48 41 4E 47 45 20 50 41 52 54 00 93 1F 7A 17 99 |HANGE PART...z..|
00001790: 22 93 22 00 B6 1F 84 17 99 A6 31 30 29 22 12 20 |".".......10)". |
000017A0: 43 48 41 4E 47 45 20 50 41 52 54 20 44 41 54 41 |CHANGE PART DATA|
000017B0: 20 22 3A 99 4C 24 00 D8 1F 8E 17 46 B2 30 3A 85 | ":.L$.....F.0:.|
000017C0: 22 50 41 52 54 20 4E 55 4D 42 45 52 20 28 30 3D |"PART NUMBER (0=|
000017D0: 45 4E 44 29 20 22 3B 46 00 E6 1F 98 17 8B 20 46 |END) ";F...... F|
000017E0: B2 30 A7 34 30 30 00 FD 1F A2 17 8B 20 46 B1 36 |.0.400...... F.6|
000017F0: 35 30 A7 8D 31 36 35 3A 89 36 30 31 30 00 2F 20 |50..165:.6010./ |
00001800: AC 17 8B 20 52 45 43 24 28 46 29 B3 B1 22 31 22 |... REC$(F).."1"|
00001810: A7 99 22 50 41 52 54 20 4E 4F 54 20 4F 4E 20 46 |.."PART NOT ON F|
00001820: 49 4C 45 22 3A 8D 31 36 36 3A 89 36 30 31 30 00 |ILE":.166:.6010.|
00001830: 3A 20 B6 17 8D 31 30 38 30 30 00 4B 20 BB 17 8D |: ...10800.K ...|
00001840: 31 31 30 30 30 3A 99 22 93 11 22 00 78 20 BD 17 |11000:."..".x ..|
00001850: 99 22 20 12 20 55 50 44 41 54 49 4E 47 20 50 41 |." . UPDATING PA|
00001860: 52 54 20 4E 55 4D 42 45 52 20 92 20 22 3B 46 3A |RT NUMBER . ";F:|
00001870: 99 4C 24 3A 99 22 11 22 00 9F 20 C0 17 99 22 20 |.L$:.".".. ..." |
00001880: 12 20 41 20 92 20 55 4E 49 54 20 4F 46 1D 4D 45 |. A . UNIT OF.ME|
00001890: 41 53 55 52 45 3A 20 22 55 4D 24 3A 99 4C 24 00 |ASURE: "UM$:.L$.|
000018A0: C2 20 CA 17 99 22 20 12 20 42 20 92 20 44 45 53 |. ..." . B . DES|
000018B0: 43 52 49 50 54 49 4F 4E 3A 20 22 44 45 24 3A 99 |CRIPTION: "DE$:.|
000018C0: 4C 24 00 F4 20 D4 17 99 22 20 12 20 43 20 92 20 |L$.. ..." . C . |
000018D0: 49 4E 2F 53 54 4B 3A 20 22 49 53 24 22 20 20 12 |IN/STK: "IS$" .|
000018E0: 20 44 20 92 20 52 45 4F 52 44 3A 20 22 52 4F 24 | D . REORD: "RO$|
000018F0: 3A 99 4C 24 00 27 21 DE 17 99 22 20 12 20 45 20 |:.L$.'!..." . E |
00001900: 92 20 4D 4E 20 4F 52 44 3A 20 22 4D 4E 24 22 20 |. MN ORD: "MN$" |
00001910: 20 20 12 20 46 20 92 20 53 41 4C 45 53 3A 20 22 | . F . SALES: "|
00001920: 53 4C 24 3A 99 4C 24 00 56 21 E8 17 99 22 20 12 |SL$:.L$.V!..." .|
00001930: 20 47 20 92 20 4C 49 53 54 3A 20 22 4C 50 24 22 | G . LIST: "LP$"|
00001940: 20 20 20 12 20 48 20 92 20 4E 45 54 3A 20 22 4E | . H . NET: "N|
00001950: 50 24 3A 99 4C 24 00 72 21 F2 17 99 22 20 12 20 |P$:.L$.r!..." . |
00001960: 49 20 92 20 4C 4F 43 41 3A 20 22 4C 43 24 3A 99 |I . LOCA: "LC$:.|
00001970: 4C 24 00 89 21 F7 17 99 22 20 12 20 4A 20 92 20 |L$..!..." . J . |
00001980: 56 45 4E 3A 20 22 56 4E 24 00 91 21 F8 17 99 4C |VEN: "VN$..!...L|
00001990: 24 00 C8 21 FC 17 99 22 12 20 45 4E 54 45 52 20 |$..!...". ENTER |
000019A0: 4C 45 54 54 45 52 20 54 4F 20 43 48 41 4E 47 45 |LETTER TO CHANGE|
000019B0: 20 92 20 28 30 3D 45 4E 44 29 20 3F 20 12 20 92 | . (0=END) ? . .|
000019C0: 9D 22 3B 3A 8D 38 30 30 00 D8 21 01 18 8B 20 44 |.";:.800..!... D|
000019D0: B2 34 38 A7 36 32 30 30 00 E3 21 06 18 44 B2 44 |.48.6200..!..D.D|
000019E0: AB 36 34 00 15 22 10 18 55 44 B2 31 3A 99 22 11 |.64.."..UD.1:.".|
000019F0: 12 20 45 4E 54 45 52 20 4E 45 57 20 49 4E 46 4F |. ENTER NEW INFO|
00001A00: 52 4D 41 54 49 4F 4E 22 3A 4E 25 B2 32 35 3A 8D |RMATION":N%.25:.|
00001A10: 31 30 36 30 30 00 29 22 1A 18 46 42 24 28 44 29 |10600.)"..FB$(D)|
00001A20: B2 58 24 3A 89 36 30 37 35 00 3A 22 38 18 8B 20 |.X$:.6075.:"8.. |
00001A30: 55 44 B3 B1 31 A7 36 30 31 30 00 5D 22 42 18 55 |UD..1.6010.]"B.U|
00001A40: 44 B2 30 3A 99 A3 38 29 22 11 12 20 55 50 44 41 |D.0:..8)".. UPDA|
00001A50: 54 49 4E 47 20 52 45 43 4F 52 44 20 22 00 73 22 |TING RECORD ".s"|
00001A60: 4C 18 8D 38 35 30 3A 8D 31 30 32 30 30 3A 89 36 |L..850:.10200:.6|
00001A70: 30 31 30 00 A0 22 28 23 99 22 93 11 11 11 11 11 |010.."(#."......|
00001A80: 11 11 11 22 A3 37 29 22 12 20 52 45 43 4F 52 44 |...".7)". RECORD|
00001A90: 49 4E 47 20 49 4E 44 45 58 20 46 49 4C 45 20 22 |ING INDEX FILE "|
00001AA0: 00 AB 22 32 23 8D 31 30 35 30 30 00 B9 22 3C 23 |.."2#.10500.."<#|
00001AB0: A0 31 35 3A A0 35 3A A0 32 00 C8 22 46 23 97 20 |.15:.5:.2.."F#. |
00001AC0: 37 38 38 2C 34 39 3A 80 00 EC 22 10 27 8F 20 49 |788,49:...".'. I|
00001AD0: 4E 49 54 49 41 4C 49 5A 45 20 52 45 43 4F 52 44 |NITIALIZE RECORD|
00001AE0: 53 20 55 53 45 44 20 54 41 42 4C 45 00 09 23 1A |S USED TABLE..#.|
00001AF0: 27 81 20 49 B2 31 A4 36 35 30 3A 52 45 43 24 28 |'. I.1.650:REC$(|
00001B00: 49 29 B2 22 2F 22 3A 82 49 00 0F 23 24 27 8E 00 |I)."/":.I..#$'..|
00001B10: 33 23 74 27 8F 20 4C 4F 41 44 20 49 4E 44 45 58 |3#t'. LOAD INDEX|
00001B20: 20 49 4E 54 4F 20 52 45 43 4F 52 44 53 20 54 41 | INTO RECORDS TA|
00001B30: 42 4C 45 00 4C 23 7E 27 9F 35 2C 38 2C 35 2C 22 |BLE.L#~'.5,8,5,"|
00001B40: 30 3A 49 4E 44 45 58 2C 53 2C 52 22 00 67 23 88 |0:INDEX,S,R".g#.|
00001B50: 27 81 49 B2 31 A4 36 35 30 3A 84 35 2C 52 45 43 |'.I.1.650:.5,REC|
00001B60: 24 28 49 29 3A 82 49 00 6E 23 92 27 A0 35 00 74 |$(I):.I.n#.'.5.t|
00001B70: 23 9C 27 8E 00 87 23 D8 27 8F 20 57 52 49 54 45 |#.'...#.'. WRITE|
00001B80: 20 52 45 43 4F 52 44 00 93 23 E2 27 8D 20 31 30 | RECORD..#.'. 10|
00001B90: 33 30 30 00 A8 23 EC 27 98 31 35 2C 22 42 2D 50 |300..#.'.15,"B-P|
00001BA0: 3A 22 3B 43 48 3B 46 50 00 CA 23 F6 27 81 46 49 |:";CH;FP..#.'.FI|
00001BB0: B2 31 A4 46 58 3A 98 43 48 2C 46 42 24 28 46 49 |.1.FX:.CH,FB$(FI|
00001BC0: 29 3B C7 28 31 33 29 3B 3A 82 00 E4 23 00 28 98 |);.(13);:...#.(.|
00001BD0: 31 35 2C 22 55 32 3A 22 3B 43 48 3B 46 44 3B 46 |15,"U2:";CH;FD;F|
00001BE0: 54 3B 46 53 00 EF 23 0A 28 8D 31 30 34 30 30 00 |T;FS..#.(.10400.|
00001BF0: F5 23 14 28 8E 00 10 24 3C 28 8F 20 53 45 54 20 |.#.(...$<(. SET |
00001C00: 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 |TRACK AND SECTOR|
00001C10: 00 32 24 46 28 8B 46 B3 33 35 38 A7 46 31 B2 30 |.2$F(.F.358.F1.0|
00001C20: 3A 46 32 B2 32 32 3A 46 33 B2 31 3A 89 31 30 33 |:F2.22:F3.1:.103|
00001C30: 35 30 00 5D 24 50 28 8B 46 B1 33 35 37 AF 46 B3 |50.]$P(.F.357.F.|
00001C40: 34 37 32 A7 46 31 B2 33 35 37 3A 46 32 B2 32 30 |472.F1.357:F2.20|
00001C50: 3A 46 33 B2 31 39 3A 89 31 30 33 35 30 00 88 24 |:F3.19:.10350..$|
00001C60: 5A 28 8B 46 B1 34 37 31 AF 46 B3 35 38 30 A7 46 |Z(.F.471.F.580.F|
00001C70: 31 B2 34 37 31 3A 46 32 B2 31 39 3A 46 33 B2 32 |1.471:F2.19:F3.2|
00001C80: 35 3A 89 31 30 33 35 30 00 A6 24 64 28 8B 46 B1 |5:.10350..$d(.F.|
00001C90: 35 37 39 A7 46 31 B2 35 37 39 3A 46 32 B2 31 38 |579.F1.579:F2.18|
00001CA0: 3A 46 33 B2 33 31 00 C5 24 6E 28 46 54 B2 B5 28 |:F3.31..$n(FT..(|
00001CB0: 28 28 46 AB 46 31 29 AB 31 29 AD 28 46 32 AB 31 |((F.F1).1).(F2.1|
00001CC0: 29 29 AA 46 33 00 E6 24 78 28 46 53 B2 46 AB 46 |)).F3..$x(FS.F.F|
00001CD0: 31 AB 28 46 54 AB 46 33 29 AC 46 32 AA 28 46 54 |1.(FT.F3).F2.(FT|
00001CE0: AB 46 33 AB 31 29 00 EC 24 82 28 8E 00 01 25 A0 |.F3.1)..$.(...%.|
00001CF0: 28 8F 20 45 52 52 4F 52 20 43 48 45 43 4B 49 4E |(. ERROR CHECKIN|
00001D00: 47 00 16 25 AA 28 84 31 35 2C 45 4E 2C 45 4D 24 |G..%.(.15,EN,EM$|
00001D10: 2C 45 54 2C 45 53 00 22 25 B4 28 8B 45 4E B2 30 |,ET,ES."%.(.EN.0|
00001D20: A7 8E 00 3E 25 BE 28 99 22 45 52 52 4F 52 20 53 |...>%.(."ERROR S|
00001D30: 54 41 54 55 53 3A 22 3B 45 4E 3B 45 4D 24 00 7B |TATUS:";EN;EM$.{|
00001D40: 25 C3 28 81 5A B2 31 A4 31 30 30 30 3A 82 5A 3A |%.(.Z.1.1000:.Z:|
00001D50: 99 22 93 46 4F 52 4D 41 54 54 45 44 20 44 41 54 |.".FORMATTED DAT|
00001D60: 41 20 44 49 53 4B 20 53 48 4F 55 4C 44 20 42 45 |A DISK SHOULD BE|
00001D70: 20 49 4E 20 44 52 49 56 45 21 22 00 AA 25 C8 28 | IN DRIVE!"..%.(|
00001D80: 99 22 50 52 45 53 53 3A 28 59 29 54 4F 20 43 4F |."PRESS:(Y)TO CO|
00001D90: 4E 54 49 4E 55 45 2F 28 4E 29 54 4F 20 53 54 4F |NTINUE/(N)TO STO|
00001DA0: 50 20 50 52 4F 47 52 41 4D 22 00 BE 25 CD 28 85 |P PROGRAM"..%.(.|
00001DB0: 20 59 24 3A 8B 59 24 B2 22 59 22 A7 20 8E 00 C4 | Y$:.Y$."Y". ...|
00001DC0: 25 D2 28 90 00 DE 25 04 29 9F 35 2C 38 2C 35 2C |%.(...%.).5,8,5,|
00001DD0: 22 40 30 3A 49 4E 44 45 58 2C 53 2C 57 22 00 FD |"@0:INDEX,S,W"..|
00001DE0: 25 0E 29 81 49 B2 31 A4 36 35 30 3A 98 35 2C 52 |%.).I.1.650:.5,R|
00001DF0: 45 43 24 28 49 29 3B C7 28 31 33 29 3B 00 08 26 |EC$(I);.(13);..&|
00001E00: 18 29 82 3A A0 35 3A 8E 00 1D 26 68 29 58 24 B2 |.).:.5:...&h)X$.|
00001E10: 22 22 3A 5A 24 B2 22 22 3A 4C 45 B2 30 00 3B 26 |"":Z$."":LE.0.;&|
00001E20: 69 29 8B 20 4A B2 32 B0 5A 5A 24 B2 22 41 22 A7 |i). J.2.ZZ$."A".|
00001E30: 4E 25 B2 33 3A 89 31 30 36 31 35 00 5A 26 6A 29 |N%.3:.10615.Z&j)|
00001E40: 8B 20 4A B2 33 B0 5A 5A 24 B2 22 42 22 A7 4E 25 |. J.3.ZZ$."B".N%|
00001E50: B2 32 30 3A 89 31 30 36 31 35 00 78 26 6B 29 8B |.20:.10615.x&k).|
00001E60: 20 4A B2 34 B0 5A 5A 24 B2 22 43 22 A7 4E 25 B2 | J.4.ZZ$."C".N%.|
00001E70: 36 3A 89 31 30 36 31 35 00 96 26 6C 29 8B 20 4A |6:.10615..&l). J|
00001E80: B2 35 B0 5A 5A 24 B2 22 44 22 A7 4E 25 B2 35 3A |.5.ZZ$."D".N%.5:|
00001E90: 89 31 30 36 31 35 00 B4 26 6D 29 8B 20 4A B2 36 |.10615..&m). J.6|
00001EA0: B0 5A 5A 24 B2 22 45 22 A7 4E 25 B2 35 3A 89 31 |.ZZ$."E".N%.5:.1|
00001EB0: 30 36 31 35 00 D2 26 6E 29 8B 20 4A B2 37 B0 5A |0615..&n). J.7.Z|
00001EC0: 5A 24 B2 22 46 22 A7 4E 25 B2 36 3A 89 31 30 36 |Z$."F".N%.6:.106|
00001ED0: 31 35 00 F0 26 6F 29 8B 20 4A B2 38 B0 5A 5A 24 |15..&o). J.8.ZZ$|
00001EE0: B2 22 47 22 A7 4E 25 B2 37 3A 89 31 30 36 31 35 |."G".N%.7:.10615|
00001EF0: 00 0E 27 70 29 8B 20 4A B2 39 B0 5A 5A 24 B2 22 |..'p). J.9.ZZ$."|
00001F00: 48 22 A7 4E 25 B2 37 3A 89 31 30 36 31 35 00 2D |H".N%.7:.10615.-|
00001F10: 27 71 29 8B 20 4A B2 31 30 B0 5A 5A 24 B2 22 49 |'q). J.10.ZZ$."I|
00001F20: 22 A7 4E 25 B2 35 3A 89 31 30 36 31 35 00 45 27 |".N%.5:.10615.E'|
00001F30: 72 29 8B 4A B2 31 31 B0 5A 5A 24 B2 22 4A 22 A7 |r).J.11.ZZ$."J".|
00001F40: 4E 25 B2 32 35 00 57 27 77 29 99 22 20 92 20 3F |N%.25.W'w)." . ?|
00001F50: 20 12 20 92 9D 22 3B 00 6C 27 7C 29 A1 5A 24 3A | . ..";.l'|).Z$:|
00001F60: 8B 5A 24 B2 22 22 A7 31 30 36 32 30 00 A4 27 86 |.Z$."".10620..'.|
00001F70: 29 42 B2 C6 28 5A 24 29 3A 8B 42 B2 33 B0 42 B2 |)B..(Z$):.B.3.B.|
00001F80: 31 37 B0 42 B2 31 39 B0 42 B2 32 39 B0 42 B2 31 |17.B.19.B.29.B.1|
00001F90: 34 35 B0 42 B2 31 34 37 B0 42 B2 31 35 37 A7 31 |45.B.147.B.157.1|
00001FA0: 30 36 32 30 00 B8 27 90 29 8B 20 4C 45 B3 B1 30 |0620..'.). LE..0|
00001FB0: 20 A7 20 31 30 36 36 30 00 D4 27 9A 29 8B 42 B2 | . 10660..'.).B.|
00001FC0: 31 33 B0 42 B2 33 32 A7 58 24 B2 22 22 3A 89 31 |13.B.32.X$."":.1|
00001FD0: 30 36 32 30 00 EB 27 A4 29 8B 42 B2 31 33 AF 4C |0620..'.).B.13.L|
00001FE0: 45 B2 B1 31 A7 99 22 20 22 3A 8E 00 FD 27 AE 29 |E..1.." ":...'.)|
00001FF0: 8B 20 42 B3 B1 32 30 A7 31 30 37 30 30 00 15 28 |. B..20.10700..(|
00002000: B8 29 8B 20 4C 45 B3 31 A7 58 24 B2 22 22 3A 89 |.). LE.1.X$."":.|
00002010: 31 30 36 32 30 00 42 28 C2 29 58 24 B2 C8 28 58 |10620.B(.)X$..(X|
00002020: 24 2C 4C 45 AB 31 29 3A 99 22 20 9D 9D 12 20 92 |$,LE.1):." ... .|
00002030: 9D 22 3B 3A 4C 45 B2 4C 45 AB 31 3A 89 31 30 36 |.";:LE.LE.1:.106|
00002040: 32 30 00 71 28 CC 29 58 24 B2 58 24 AA 5A 24 3A |20.q(.)X$.X$.Z$:|
00002050: 99 5A 24 22 12 20 92 9D 22 3B 3A 4C 45 B2 C3 28 |.Z$". ..";:LE..(|
00002060: 58 24 29 3A 8B 20 4C 45 B1 4E 25 A7 31 30 36 39 |X$):. LE.N%.1069|
00002070: 30 00 7C 28 E0 29 89 31 30 36 32 30 00 8E 28 30 |0.|(.).10620..(0|
00002080: 2A 8F 20 52 45 41 44 20 52 45 43 4F 52 44 00 9A |*. READ RECORD..|
00002090: 28 3A 2A 8D 20 31 30 33 30 30 00 B4 28 44 2A 98 |(:*. 10300..(D*.|
000020A0: 31 35 2C 22 55 31 3A 22 3B 43 48 3B 46 44 3B 46 |15,"U1:";CH;FD;F|
000020B0: 54 3B 46 53 00 C9 28 4E 2A 98 31 35 2C 22 42 2D |T;FS..(N*.15,"B-|
000020C0: 50 3A 22 3B 43 48 3B 46 50 00 D5 28 58 2A 8D 20 |P:";CH;FP..(X*. |
000020D0: 31 30 34 30 30 00 E3 28 62 2A 81 20 46 49 B2 31 |10400..(b*. FI.1|
000020E0: A4 46 58 00 F5 28 6C 2A 84 43 48 2C 46 42 24 28 |.FX..(l*.CH,FB$(|
000020F0: 46 49 29 3A 82 00 FB 28 76 2A 8E 00 1E 29 94 2A |FI):...(v*...).*|
00002100: 99 22 11 53 45 54 20 50 52 49 4E 54 45 52 20 54 |.".SET PRINTER T|
00002110: 4F 20 54 4F 50 20 4F 46 20 50 41 47 45 22 00 3D |O TOP OF PAGE".=|
00002120: 29 9E 2A 99 22 11 48 49 54 20 52 45 54 55 52 4E |).*.".HIT RETURN|
00002130: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 56 29 | TO CONTINUE".V)|
00002140: A8 2A A1 5A 24 3A 8B 5A 24 B3 B1 C7 28 31 33 29 |.*.Z$:.Z$...(13)|
00002150: A7 31 30 39 32 30 00 7F 29 B2 2A 8F 4F 50 45 4E |.10920..).*.OPEN|
00002160: 32 32 2C 34 3A 50 52 49 4E 54 23 32 32 2C 43 48 |22,4:PRINT#22,CH|
00002170: 52 24 28 31 34 37 29 3A 43 4C 4F 53 45 32 32 00 |R$(147):CLOSE22.|
00002180: A1 29 BC 2A 50 47 B2 31 3A 54 50 B2 30 3A 54 53 |.).*PG.1:TP.0:TS|
00002190: B2 30 3A 56 4C B2 30 3A 56 43 B2 30 3A 4C 4E B2 |.0:VL.0:VC.0:LN.|
000021A0: 30 00 A7 29 C6 2A 8E 00 C0 29 F8 2A 44 45 24 B2 |0..).*...).*DE$.|
000021B0: C8 28 46 42 24 28 32 29 AA 52 42 24 2C 32 30 29 |.(FB$(2).RB$,20)|
000021C0: 00 D8 29 02 2B 55 4D 24 B2 C8 28 46 42 24 28 31 |..).+UM$..(FB$(1|
000021D0: 29 AA 52 42 24 2C 33 29 00 F0 29 0C 2B 49 53 24 |).RB$,3)..).+IS$|
000021E0: B2 C9 28 52 42 24 AA 46 42 24 28 33 29 2C 36 29 |..(RB$.FB$(3),6)|
000021F0: 00 0D 2A 16 2B 4B B2 C5 28 46 42 24 28 37 29 29 |..*.+K..(FB$(7))|
00002200: 3A 8D 31 33 30 30 3A 4C 50 24 B2 59 24 00 2F 2A |:.1300:LP$.Y$./*|
00002210: 20 2B 4B B2 C5 28 46 42 24 28 38 29 29 3A 8D 31 | +K..(FB$(8)):.1|
00002220: 33 30 30 3A 4E 50 24 B2 C9 28 59 24 2C 37 29 00 |300:NP$..(Y$,7).|
00002230: 47 2A 2A 2B 52 4F 24 B2 C9 28 52 42 24 AA 46 42 |G**+RO$..(RB$.FB|
00002240: 24 28 34 29 2C 35 29 00 5F 2A 34 2B 4C 43 24 B2 |$(4),5)._*4+LC$.|
00002250: C8 28 46 42 24 28 39 29 AA 52 42 24 2C 35 29 00 |.(FB$(9).RB$,5).|
00002260: 77 2A 3E 2B 53 4C 24 B2 C9 28 52 42 24 AA 46 42 |w*>+SL$..(RB$.FB|
00002270: 24 28 36 29 2C 36 29 00 8C 2A 48 2B 46 24 B2 C8 |$(6),6)..*H+F$..|
00002280: 28 C4 28 46 29 AA 52 42 24 2C 34 29 00 A4 2A 52 |(.(F).RB$,4)..*R|
00002290: 2B 4D 4E 24 B2 C9 28 52 42 24 AA 46 42 24 28 35 |+MN$..(RB$.FB$(5|
000022A0: 29 2C 35 29 00 BE 2A 5C 2B 56 4E 24 B2 C8 28 46 |),5)..*\+VN$..(F|
000022B0: 42 24 28 31 30 29 AA 52 42 24 2C 32 35 29 00 D7 |B$(10).RB$,25)..|
000022C0: 2A C0 2B 54 50 B2 54 50 AA 31 3A 54 53 B2 54 53 |*.+TP.TP.1:TS.TS|
000022D0: AA C5 28 49 53 24 29 00 F1 2A CA 2B 56 4C B2 56 |..(IS$)..*.+VL.V|
000022E0: 4C AA 28 C5 28 49 53 24 29 AC C5 28 4C 50 24 29 |L.(.(IS$)..(LP$)|
000022F0: 29 00 0B 2B D4 2B 56 43 B2 56 43 AA 28 C5 28 49 |)..+.+VC.VC.(.(I|
00002300: 53 24 29 AC C5 28 4E 50 24 29 29 00 11 2B DE 2B |S$)..(NP$))..+.+|
00002310: 8E 00 28 2B E0 2E 9F 32 32 2C 34 3A 81 49 B2 31 |..(+...22,4:.I.1|
00002320: A4 36 3A 98 32 32 3A 82 00 3D 2B EA 2E A0 32 32 |.6:.22:..=+...22|
00002330: 3A 50 47 B2 50 47 AA 31 3A 4C 4E B2 30 00 43 2B |:PG.PG.1:LN.0.C+|
00002340: F4 2E 8E 00 72 2B FE 2E 9F 32 32 2C 34 3A 98 32 |....r+...22,4:.2|
00002350: 32 2C C7 28 31 29 22 49 4E 56 45 4E 54 4F 52 59 |2,.(1)"INVENTORY|
00002360: 20 4C 49 53 54 22 A3 31 35 29 22 50 41 47 45 22 | LIST".15)"PAGE"|
00002370: 50 47 00 80 2B 08 2F 98 32 32 2C 4C 24 AA 4C 24 |PG..+./.22,L$.L$|
00002380: 00 B1 2B 12 2F 98 32 32 2C 22 50 41 52 54 20 44 |..+./.22,"PART D|
00002390: 45 53 43 52 49 50 54 49 4F 4E 20 20 20 20 20 20 |ESCRIPTION |
000023A0: 20 20 20 20 55 4F 4D 20 20 49 4E 2F 53 54 4B 22 | UOM IN/STK"|
000023B0: 3B 00 E2 2B 1C 2F 98 32 32 2C 22 20 20 20 20 4C |;..+./.22," L|
000023C0: 49 53 54 20 20 20 20 4E 45 54 20 20 20 52 45 4F |IST NET REO|
000023D0: 52 44 20 20 20 4C 4F 43 20 20 20 20 53 41 4C 45 |RD LOC SALE|
000023E0: 53 22 00 F0 2B 26 2F 98 32 32 2C 4C 24 AA 4C 24 |S"..+&/.22,L$.L$|
000023F0: 00 F8 2B 30 2F A0 32 32 00 04 2C 3A 2F 9F 32 32 |..+0/.22..,:/.22|
00002400: 2C 34 3A 8E 00 14 2C 44 2F 53 50 24 B2 22 20 22 |,4:...,D/SP$." "|
00002410: 3A 58 B2 30 00 24 2C 58 2F 9F 34 2C 34 3A 98 34 |:X.0.$,X/.4,4:.4|
00002420: 2C 53 50 24 00 5D 2C 62 2F 81 51 B2 31 30 32 34 |,SP$.],b/.Q.1024|
00002430: A4 31 39 34 33 3A 41 B2 C2 28 51 29 AF 31 32 37 |.1943:A..(Q).127|
00002440: 3A 42 B2 41 AB 36 34 AC 28 41 B3 33 32 29 3A 98 |:B.A.64.(A.32):.|
00002450: 34 2C C7 28 42 29 3B 3A 58 B2 58 AA 31 00 79 2C |4,.(B);:X.X.1.y,|
00002460: 80 2F 8B 58 B2 34 30 A7 98 34 2C 22 22 3A 98 34 |./.X.40..4,"":.4|
00002470: 2C 53 50 24 3B 3A 58 B2 30 00 84 2C 8A 2F 82 3A |,SP$;:X.0..,./.:|
00002480: A0 34 3A 8E 00 B3 2C A8 2F 9F 32 32 2C 34 3A 98 |.4:...,./.22,4:.|
00002490: 32 32 2C C7 28 31 29 22 52 45 4F 52 44 45 52 20 |22,.(1)"REORDER |
000024A0: 52 45 50 4F 52 54 22 A3 31 35 29 22 50 41 47 45 |REPORT".15)"PAGE|
000024B0: 22 50 47 00 C1 2C B2 2F 98 32 32 2C 4C 24 AA 4C |"PG..,./.22,L$.L|
000024C0: 24 00 E2 2C BC 2F 98 32 32 2C 22 20 22 A3 33 38 |$..,./.22," ".38|
000024D0: 29 22 52 45 4F 52 44 20 20 20 20 20 20 20 20 20 |)"REORD |
000024E0: 22 3B 00 03 2D C1 2F 98 32 32 2C 22 52 45 43 20 |";..-./.22,"REC |
000024F0: 20 20 55 4E 49 54 20 20 20 52 45 43 20 52 45 4F | UNIT REC REO|
00002500: 52 44 22 00 34 2D C6 2F 98 32 32 2C 22 50 41 52 |RD".4-./.22,"PAR|
00002510: 54 20 44 45 53 43 52 49 50 54 49 4F 4E 20 20 20 |T DESCRIPTION |
00002520: 20 20 20 20 20 20 20 55 4F 4D 20 20 49 4E 2F 53 | UOM IN/S|
00002530: 54 4B 22 3B 00 62 2D D0 2F 98 32 32 2C 22 20 20 |TK";.b-./.22," |
00002540: 50 4F 49 4E 54 20 20 20 4D 49 4E 20 20 20 51 54 |POINT MIN QT|
00002550: 59 20 20 20 43 4F 53 54 20 20 20 20 20 43 4F 53 |Y COST COS|
00002560: 54 22 00 70 2D DA 2F 98 32 32 2C 4C 24 AA 4C 24 |T".p-./.22,L$.L$|
00002570: 00 78 2D E4 2F A0 32 32 00 84 2D EE 2F 9F 32 32 |.x-./.22..-./.22|
00002580: 2C 34 3A 8E 00 B8 2D 0C 30 9F 32 32 2C 34 3A 98 |,4:...-.0.22,4:.|
00002590: 32 32 2C C7 28 31 29 22 49 4E 56 45 4E 54 4F 52 |22,.(1)"INVENTOR|
000025A0: 59 20 50 52 49 43 45 20 4C 49 53 54 22 A3 38 29 |Y PRICE LIST".8)|
000025B0: 22 50 41 47 45 22 50 47 00 C6 2D 16 30 98 32 32 |"PAGE"PG..-.0.22|
000025C0: 2C 4C 24 AA 4C 24 00 FD 2D 20 30 98 32 32 2C 22 |,L$.L$..- 0.22,"|
000025D0: 50 41 52 54 20 20 20 20 20 20 44 45 53 43 52 49 |PART DESCRI|
000025E0: 50 54 49 4F 4E 22 A3 31 33 29 22 55 4F 4D 20 20 |PTION".13)"UOM |
000025F0: 20 20 4C 49 53 54 20 50 52 49 43 45 22 00 0B 2E | LIST PRICE"...|
00002600: 2A 30 98 32 32 2C 4C 24 AA 4C 24 00 13 2E 34 30 |*0.22,L$.L$...40|
00002610: A0 32 32 00 1F 2E 3E 30 9F 32 32 2C 34 3A 8E 00 |.22...>0.22,4:..|
00002620: 40 2E 20 4E 8F 20 2A 2A 47 45 54 20 52 45 43 4F |@. N. **GET RECO|
00002630: 52 44 20 26 20 42 55 49 4C 44 20 54 41 42 4C 45 |RD & BUILD TABLE|
00002640: 00 6A 2E 2A 4E 8D 31 30 38 30 30 3A 8B C5 28 46 |.j.*N.10800:..(F|
00002650: 42 24 28 33 29 29 B3 31 AF 58 B2 35 A7 8D 32 32 |B$(3)).1.X.5..22|
00002660: 35 30 30 3A 89 32 30 31 31 30 00 8F 2E 34 4E 99 |500:.20110...4N.|
00002670: 22 91 22 A3 31 30 29 46 42 24 28 31 29 A3 31 35 |".".10)FB$(1).15|
00002680: 29 3A 8F 20 44 49 53 50 4C 41 59 20 55 4F 4D 00 |):. DISPLAY UOM.|
00002690: AB 2E 39 4E 4E 25 B2 36 3A 8D 31 30 36 30 30 20 |..9NN%.6:.10600 |
000026A0: 8F 20 2A 20 47 45 54 20 51 54 59 00 BE 2E 3B 4E |. * GET QTY...;N|
000026B0: 8B C5 28 58 24 29 B1 30 A7 32 30 30 32 39 00 E7 |..(X$).0.20029..|
000026C0: 2E 3C 4E 99 22 12 20 51 54 59 20 4D 55 53 54 20 |.<N.". QTY MUST |
000026D0: 42 45 20 3E 20 30 20 92 22 3A 8D 32 32 30 30 35 |BE > 0 .":.22005|
000026E0: 3A 89 32 30 31 31 30 00 FE 2E 3D 4E 8D 32 32 36 |:.20110...=N.226|
000026F0: 30 30 3A 8B 45 52 B2 31 A7 32 30 31 31 30 00 1C |00:.ER.1.20110..|
00002700: 2F 3E 4E 51 54 24 B2 58 24 3A 8B 58 B2 36 A7 8D |/>NQT$.X$:.X.6..|
00002710: 32 32 32 30 30 3A 89 32 30 30 34 30 00 34 2F 3F |22200:.20040.4/?|
00002720: 4E 51 54 B2 C5 28 46 42 24 28 33 29 29 AB C5 28 |NQT..(FB$(3))..(|
00002730: 51 54 24 29 00 4C 2F 40 4E 8B 51 54 B3 30 A7 8D |QT$).L/@N.QT.0..|
00002740: 32 32 30 30 30 3A 89 32 30 31 31 30 00 65 2F 42 |22000:.20110.e/B|
00002750: 4E 59 54 44 B2 C5 28 46 42 24 28 36 29 29 AA C5 |NYTD..(FB$(6))..|
00002760: 28 51 54 24 29 00 77 2F 44 4E 46 42 24 28 36 29 |(QT$).w/DNFB$(6)|
00002770: B2 C4 28 59 54 44 29 00 88 2F 48 4E 46 42 24 28 |..(YTD)../HNFB$(|
00002780: 33 29 B2 C4 28 51 54 29 00 A8 2F 52 4E 8D 31 30 |3)..(QT)../RN.10|
00002790: 32 32 30 20 20 8F 20 2A 2A 2A 52 45 57 52 49 54 |220 . ***REWRIT|
000027A0: 45 20 52 45 43 4F 52 44 00 BA 2F 66 4E 4C 4E 24 |E RECORD../fNLN$|
000027B0: 28 4C 4E 29 B2 C4 28 4C 4E 29 00 D4 2F 70 4E 50 |(LN)..(LN)../pNP|
000027C0: 4E 24 28 4C 4E 29 B2 C9 28 52 42 24 AA C4 28 46 |N$(LN)..(RB$..(F|
000027D0: 29 2C 33 29 00 ED 2F 7A 4E 51 54 24 28 4C 4E 29 |),3)../zNQT$(LN)|
000027E0: B2 C9 28 52 42 24 AA 51 54 24 2C 36 29 00 00 30 |..(RB$.QT$,6)..0|
000027F0: 84 4E 55 4D 24 28 4C 4E 29 B2 46 42 24 28 31 29 |.NUM$(LN).FB$(1)|
00002800: 00 06 30 8E 4E 8E 00 18 30 6C 52 99 54 4C 24 28 |..0.N...0lR.TL$(|
00002810: 58 29 3A 99 4C 24 3A 99 00 1E 30 94 52 8E 00 34 |X):.L$:...0.R..4|
00002820: 30 F0 55 99 22 12 20 3E 20 49 4E 20 53 54 4F 43 |0.U.". > IN STOC|
00002830: 4B 20 92 22 00 44 30 F5 55 81 49 B2 31 A4 31 30 |K .".D0.U.I.1.10|
00002840: 30 30 3A 82 00 50 30 FA 55 4C 4E B2 4C 4E AB 31 |00:..P0.ULN.LN.1|
00002850: 00 79 30 0E 56 99 22 91 20 20 20 20 20 20 20 20 |.y0.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 91 22 00 7F 30 18 56 8E 00 | ."..0.V..|
00002880: 94 30 54 56 58 24 B2 22 22 3A 5A 24 B2 22 22 3A |.0TVX$."":Z$."":|
00002890: 4C 45 B2 30 00 A8 30 5E 56 99 A3 32 33 29 22 91 |LE.0..0^V..23)".|
000028A0: 12 20 3F 20 92 9D 22 3B 00 B3 30 68 56 8D 31 30 |. ? ..";..0hV.10|
000028B0: 36 32 30 00 B9 30 72 56 8E 00 DE 30 B8 56 99 A3 |620..0rV...0.V..|
000028C0: 32 35 29 22 91 22 3B 3A 4E 25 B2 37 3A 8D 31 30 |25)".";:N%.7:.10|
000028D0: 36 30 30 20 8F 20 47 45 54 20 43 4F 53 54 00 F9 |600 . GET COST..|
000028E0: 30 C2 56 8B C5 28 58 24 29 B1 30 A7 8D 32 32 33 |0.V..(X$).0..223|
000028F0: 30 30 3A 89 32 32 32 33 30 00 22 31 CC 56 4E 43 |00:.22230."1.VNC|
00002900: B2 C5 28 46 42 24 28 38 29 29 3A 43 53 24 28 4C |..(FB$(8)):CS$(L|
00002910: 4E 29 B2 C9 28 52 42 24 AA 46 42 24 28 38 29 2C |N)..(RB$.FB$(8),|
00002920: 37 29 00 3A 31 D6 56 51 54 B2 C5 28 46 42 24 28 |7).:1.VQT..(FB$(|
00002930: 33 29 29 AA C5 28 51 54 24 29 00 53 31 E0 56 43 |3))..(QT$).S1.VC|
00002940: 53 24 28 4C 4E 29 B2 C9 28 52 42 24 AA 59 59 24 |S$(LN)..(RB$.YY$|
00002950: 2C 37 29 00 59 31 EA 56 8E 00 72 31 1C 57 4B B2 |,7).Y1.V..r1.WK.|
00002960: C5 28 58 24 29 3A 8D 31 33 30 30 3A 59 59 24 B2 |.(X$):.1300:YY$.|
00002970: 59 24 00 8D 31 21 57 4F 56 B2 C5 28 46 42 24 28 |Y$..1!WOV..(FB$(|
00002980: 38 29 29 AC C5 28 46 42 24 28 33 29 29 00 A1 31 |8))..(FB$(3))..1|
00002990: 26 57 4E 56 B2 C5 28 51 54 24 29 AC C5 28 59 24 |&WNV..(QT$)..(Y$|
000029A0: 29 00 B9 31 30 57 54 51 B2 C5 28 46 42 24 28 33 |)..10WTQ..(FB$(3|
000029B0: 29 29 AA C5 28 51 54 24 29 00 D0 31 3A 57 4B B2 |))..(QT$)..1:WK.|
000029C0: 28 4F 56 AA 4E 56 29 AD 54 51 3A 8D 31 33 30 30 |(OV.NV).TQ:.1300|
000029D0: 00 DE 31 44 57 46 42 24 28 38 29 B2 59 24 00 E4 |..1DWFB$(8).Y$..|
000029E0: 31 4E 57 8E 00 1D 32 80 57 81 4C 4E B2 31 A4 4C |1NW...2.W.LN.1.L|
000029F0: 49 3A 99 A3 32 29 50 4E 24 28 4C 4E 29 A3 39 29 |I:..2)PN$(LN).9)|
00002A00: 55 4D 24 28 4C 4E 29 A3 31 38 29 51 54 24 28 4C |UM$(LN).18)QT$(L|
00002A10: 4E 29 A3 32 39 29 43 53 24 28 4C 4E 29 00 23 32 |N).29)CS$(LN).#2|
00002A20: 86 57 82 00 29 32 8A 57 8E 00 44 32 E4 57 8F 20 |.W..)2.W..D2.W. |
00002A30: 2A 2A 4F 55 54 20 4F 46 20 53 54 4F 43 4B 20 45 |**OUT OF STOCK E|
00002A40: 52 52 4F 52 00 63 32 EE 57 99 22 12 20 4F 55 54 |RROR.c2.W.". OUT|
00002A50: 20 4F 46 20 53 54 4F 43 4B 20 92 22 3A 8D 32 32 | OF STOCK .":.22|
00002A60: 30 30 35 00 69 32 F8 57 8E 00 84 32 48 58 42 4E |005.i2.W...2HXBN|
00002A70: B2 C5 28 58 24 29 3A 42 49 B2 B5 28 42 4E 29 3A |..(X$):BI..(BN):|
00002A80: 45 52 B2 30 00 95 32 4D 58 8B 42 49 B2 42 4E A7 |ER.0..2MX.BI.BN.|
00002A90: 32 32 36 34 30 00 BE 32 52 58 99 22 12 20 51 55 |22640..2RX.". QU|
00002AA0: 41 4E 54 49 54 59 20 4D 55 53 54 20 42 45 20 57 |ANTITY MUST BE W|
00002AB0: 48 4F 4C 45 20 4E 55 4D 42 45 52 20 92 22 00 C9 |HOLE NUMBER ."..|
00002AC0: 32 5C 58 8D 32 32 30 30 35 00 D2 32 66 58 45 52 |2\X.22005..2fXER|
00002AD0: B2 31 00 D8 32 70 58 8E 00 00 00 FB |.1..2pX..... |
....... 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".6....".. PROGRAM BY";.5)".
REPLICA INC .".@.".. 170.\.,.X.F(Z$).64:
.X.1.X.4.290.Y.6.. X . 400,3500,5000,900
0......".".......10)".INVENTORY MAINTENA
NCE"......L$.K.....2)"... A . DISPLAY PA
RT".......2)".. B . ADD PART"...B...2)".
. C . CHANGE PART"...L...2)".. D . DELET
E PART".A.V...2)".. E . ENTER STOCK SOLD
".G.....2)".. F . ENTER STOCK RECEIVED".
......2)".. X . RETURN TO MAIN MENU"....
.."..ENTER FUNCTION"...... 170...... Z$.
"X".190.....X.F(Z$).64:. X.1.X.6 . 510..
.... X . 600,1000,6000,2400,2500,2500...
X.. DISPLAY PART.!.B..".".E.L...10)".DIS
PLAY PART NUMBER":.L$.G.V.F.0:."PART NUM
BER (0=END) ";F.P.{.."."...|.." .PART #
.";F:.L$...... F.0.400...... F.650 . .16
5:.610...... REC$(F).."1".."PART NOT ON
FILE":.166:.610...... 10800...... J.2.11
:.HD$(J);". ";FB$(J.1):.L$:.J.5...."HI
T RETURN TO CONTINUE".>....170.R.... Z$.
.G(13).690.\.F.. 610.O. ..Z$:.Z$."".800.
Z.%.ZZ$.Z$...*.D.F(Z$):. D.48 . 830...4.
. D.65.D.74.800...>..Z$:....R.. J.3.6.M.
\.E.E(FB$(J))...F.E..(E):FB$(J).D(E)...P
..J:J.0...Z........ ADD PART......".".).
....10)".ADD PART NUMBER".1....L$.S...F.
0:."PART NUMBER (0=END) ";F.B.... F.0 .4
00.{.$.. F.650 . .165:.1000...... REC$(F
)."1" .."DUPLICATE NUMBER":.166:.1000...
8.. J.2.11...B..HD$(J);:.10600:FB$(J.1).
X$:.L$:.J:J.0...G..J.3.8:. E(FB$(J)).0.F
B$(J)."0"...H..J...I..850.%.L.. 10200.5.
V.REC$(F)."1".@.`.. 1000.E...Y$.J(D(.A(X
)),2).J(D(.B(X)),3,3).X...Y$.I(C$.Y$,10)
...D..J(Y$,4,1)." ".Y$." ".Y$:....N.Y$.
H(Y$,4).",".I(Y$,6).P.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).3...
.J(D(.B(X)),3,3).".00".1310.?...Y$.D(K).
Q...Y$.I(C$.Y$,7).W.(...B.>..X.5...T.`..
DELETE PART.}.J..".". .T...10)".DELETE
PART NUMBER":.L$.B.~.F.0:."PART NUMBER (
0=END) ";F.R.... F.0 . 400...... F.650 .
.165:.2410...... REC$(F).."1".."PART NO
T ON FILE":.166:.2410.:....".ARE YOU SUR
E(Y/N)";A$.V.... A$.."N". A$.."Y".2460.G
....A$."N".2410.....REC$(F)."/":."PART N
UMBER ";F;" DELETED":.166:F.0:.2410...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$.K...." YOU MAY ENTER UP TO 10 PART
S.".M...." THE QUANTITY IN STOCK ";...
...X.5.."AND YTD SALES "......X.6.."AND
COSTS ".H...." WILL BE ADJUSTED AUTOMAT
ICALLY.".......5)".ENTER.(0).TO END INPU
T":.:.L$......TL$(X):.:LN.0...F.F.0:."";
F:.".".(.P..F.0.LN.0.400.6.T..F.0.2700.S
.Z..F.650..165:.21010:.2630...D..REC$(F)
.."1"..". PART NOT ON FILE .":.166:.2203
0:.2630...N.LN.LN.1:.20000...X..LN.10.26
30.L.... *** DISPLAY ENTRIES.W....".":..
......5)". S T O C K U P D A T E D .":
.:.:.21100.&...LI.LN:.X.6..22400:.2730.X
. .. LN.1.LI:..2)PN$(LN).11)UM$(LN).20)Q
T$(LN):......".PRESS 'C' TO CONTINUE UP
DATING"............"PRESS <RETURN> TO EX
IT TO INVENTORY".C...."MAINTENANCE".W...
.Z$:.Z$."".2750...B..Z$."_"..12100:.2750
...H..Z$.G(13).400...R..Z$.G(67).2500...
...2750.)...."..".G.....10)".INVENTORY R
EPORTS".O....L$.O.J...2)"... A .INVENTOR
Y LIST"...T...2)".. B .REORDER REPORT"..
.....2)".. C .PRICE LIST".M.....2)".. X
.RETURN TO MAIN MENU"......"..ENTER REPO
RT DESIRED"......170...... Z$."X".190.".
..X.F(Z$).64:.X.1.X.3.3590.;.... X . 362
0,4000,4300.C.$.."..".10)". INVENTORY RE
PORT .":.L$.N....10900.Y.8..12030...~..
F.1.650...... REC$(F).."1".3770......108
00...... 11000......22,F$" "DE$" "UM$"
"IS$" "LP$" ";......22,NP$" "RO$" "LC
$" "SL$.(...LN.LN.1:. LN.55 . 22:. 1200
0:.12030./....F.A.D..22,L$.L$:.22.C.N..2
2,"TOTAL PARTS "TP:.22:TP.0...X..22,"TOT
AL IN STOCK "TS:.22:TS.0.....K.VL:.1200.
G....22,"VALUE AT LIST PRICE $ "Y$:.2
2:Y$."".V...K.VC:.1200......22,"VALUE AT
COST $ "Y$......22,G(19): 22:Y$.""..
....3500.>. .."..".10)". REORDER REPORT
.":.L$.J.... 10900.U....12200.E.H.. F.1
. 650.}.R.. REC$(F).."1".4200......10800
:.11000.....OQ.E(FB$(3)).E(FB$(4)):. OQ.
0 . 4200.E...OQ..(OQ)......OQ.E(FB$(5)).
OQ.E(FB$(5)).....OQ$.D(OQ).....RC.OQ.E(F
B$(8)).....TC.TC.RC.).".K.RC:.1200:RC$.Y
$.>.,.OQ$.I(RB$.OQ$,5).H.J..22,F$" "DE$"
"UM$" "IS$" "RO$" ";...T..22,MN$" "O
Q$" "NP$" "RC$...^.LN.LN.1:. LN.55 . 22
:.12000:.12200...H..F.G.R..22,L$.L$:.22.
V.W.K.TC:.1200...|..22," ".38)"TOTAL NET
COST OF ORDER $"Y$.!....22,G(19): 22
:K.0:TC.0.+....3500.V.L.."..".5)". INVEN
TORY PRICE LIST .":.L$.B.V.. 10900.N....
12300.|.... F.1.650...... REC$(F).."1".
4400......10800:.11000.O....22,F$"
"DE$" "UM$" "LP$...&.LN.LN.1:. LN
.55. 22:.12000:.12300...0..F...:..22,L$.
L$...D..22,G(19): 22.%.N..190.;.... ZERO
YTD TOTALS.D...."."._.....10)".ZERO SAL
ES YTD".G....L$......"THIS ROUTINE WILL
SET THE YTD SALES"......"FIELDS ON ALL I
NVENTORY RECORDS TO 0".G...." "......"TO
CONTINUE HIT RETURN OR ANY OTHER KEY TO
EXIT"...D.. 170...N.. Z$..G(13).190.*.X
.. F.1.650.B.... REC$(F).."1".5130.N....
10800.]...FB$(6)."0".H....10200.N.....X
....3500...P.. CHANGE PART...Z..".".....
..10)". CHANGE PART DATA ":.L$.X...F.0:.
"PART NUMBER (0=END) ";F...... F.0.400..
.... F.650..165:.6010./ ... REC$(F).."1"
.."PART NOT ON FILE":.166:.6010.: ...108
00.K ...11000:."..".X ..." . UPDATING PA
RT NUMBER . ";F:.L$:.".".. ..." . A . UN
IT OF.MEASURE: "UM$:.L$.B J.." . B . DES
CRIPTION: "DE$:.L$.. T.." . C . IN/STK:
"IS$" . D . REORD: "RO$:.L$.'!..." . E
. MN ORD: "MN$" . F . SALES: "SL$:.L$.
V!..." . G . LIST: "LP$" . H . NET: "N
P$:.L$.R!..." . I . LOCA: "LC$:.L$..!...
" . J . VEN: "VN$..!...L$.H!...". ENTER
LETTER TO CHANGE . (0=END) ? . ..";:.800
.X!... D.48.6200..!..D.D.64.."..UD.1:.".
. ENTER NEW INFORMATION":N%.25:.10600.)"
..FB$(D).X$:.6075.:"8.. UD..1.6010.]"B.U
D.0:..8)".. UPDATING RECORD ".S"L..850:.
10200:.6010. "(#.".........".7)". RECORD
ING INDEX FILE ".."2#.10500.."<# 15: 5:
2.H"F#. 788,49:...".'. INITIALIZE RECORD
S USED TABLE..#.'. I.1.650:REC$(I)."/":.
I..#$'..3#T'. LOAD INDEX INTO RECORDS TA
BLE.L#~'.5,8,5,"0:INDEX,S,R".G#.'.I.1.65
0:.5,REC$(I):.I.N#.' 5.T#.'...#X'. WRITE
RECORD..#.'. 10300..#.'.15,"B-P:";CH;FP
.J#.'.FI.1.FX:.CH,FB$(FI);G(13);:...#.(.
15,"U2:";CH;FD;FT;FS..#.(.10400..#.(...$
<(. SET TRACK AND SECTOR.2$F(.F.358.F1.0
:F2.22:F3.1:.10350.]$P(.F.357.F.472.F1.3
57:F2.20:F3.19:.10350..$Z(.F.471.F.580.F
1.471:F2.19:F3.25:.10350..$D(.F.579.F1.5
79:F2.18:F3.31.E$N(FT..(((F.F1).1).(F2.1
)).F3..$X(FS.F.F1.(FT.F3).F2.(FT.F3.1)..
$.(...% (. ERROR CHECKING..%.(.15,EN,EM$
,ET,ES."%.(.EN.0...>%.(."ERROR STATUS:";
EN;EM$.{%C(.Z.1.1000:.Z:.".FORMATTED DAT
A DISK SHOULD BE IN DRIVE!"..%H(."PRESS:
(Y)TO CONTINUE/(N)TO STOP PROGRAM"..%M(.
Y$:.Y$."Y". ..D%R(...%.).5,8,5,"@0:INDE
X,S,W"..%.).I.1.650:.5,REC$(I);G(13);..&
.).: 5:...&H)X$."":Z$."":LE.0.;&I). J.2.
ZZ$."A".N%.3:.10615.Z&J). J.3.ZZ$."B".N%
.20:.10615.X&K). J.4.ZZ$."C".N%.6:.10615
..&L). J.5.ZZ$."D".N%.5:.10615..&M). J.6
.ZZ$."E".N%.5:.10615.R&N). J.7.ZZ$."F".N
%.6:.10615..&O). J.8.ZZ$."G".N%.7:.10615
..'P). J.9.ZZ$."H".N%.7:.10615.-'Q). J.1
0.ZZ$."I".N%.5:.10615.E'R).J.11.ZZ$."J".
N%.25.W'W)." . ? . ..";.L'|).Z$:.Z$."".1
0620..'.)B.F(Z$):.B.3.B.17.B.19.B.29.B.1
45.B.147.B.157.10620..'.). LE..0 . 10660
.T'.).B.13.B.32.X$."":.10620..'.).B.13.L
E..1.." ":...'.). B..20.10700..(.). LE.1
.X$."":.10620.B(B)X$.H(X$,LE.1):." ... .
.";:LE.LE.1:.10620.Q(L)X$.X$.Z$:.Z$". ..
";:LE.C(X$):. LE.N%.10690.|(.).10620..(0
*. READ RECORD..(:*. 10300..(D*.15,"U1:"
;CH;FD;FT;FS.I(N*.15,"B-P:";CH;FP.U(X*.
10400..(B*. FI.1.FX..(L*.CH,FB$(FI):...(
V*...).*.".SET PRINTER TO TOP OF PAGE".=
).*.".HIT RETURN TO CONTINUE".V).*.Z$:.Z
$..G(13).10920.).*.OPEN22,4:PRINT#22,CH
R$(147):CLOSE22..).*PG.1:TP.0:TS.0:VL.0:
VC.0:LN.0..)F*...).*DE$.H(FB$(2).RB$,20)
.X).+UM$.H(FB$(1).RB$,3)..).+IS$.I(RB$.F
B$(3),6)..*.+K.E(FB$(7)):.1300:LP$.Y$./*
+K.E(FB$(8)):.1300:NP$.I(Y$,7).G**+RO$.
I(RB$.FB$(4),5)._*4+LC$.H(FB$(9).RB$,5).
W*>+SL$.I(RB$.FB$(6),6)..*H+F$.H(D(F).RB
$,4)..*R+MN$.I(RB$.FB$(5),5)..*\+VN$.H(F
B$(10).RB$,25).W*.+TP.TP.1:TS.TS.E(IS$).
.*J+VL.VL.(E(IS$).E(LP$))..+T+VC.VC.(E(I
S$).E(NP$))..+.+..(+...22,4:.I.1.6:.22:.
.=+.. 22:PG.PG.1:LN.0.C+....R+...22,4:.2
2,G(1)"INVENTORY LIST".15)"PAGE"PG..+./.
22,L$.L$..+./.22,"PART DESCRIPTION
UOM IN/STK";..+./.22," LIST N
ET REORD LOC SALES"..+&/.22,L$.L$
..+0/ 22..,:/.22,4:...,D/SP$." ":X.0.$,X
/.4,4:.4,SP$.],B/.Q.1024.1943:A.B(Q).127
:B.A.64.(A.32):.4,G(B);:X.X.1.Y,./.X.40.
.4,"":.4,SP$;:X.0..,./.: 4:...,./.22,4:.
22,G(1)"REORDER REPORT".15)"PAGE"PG.A,./
.22,L$.L$..,./.22," ".38)"REORD
";..-A/.22,"REC UNIT REC REORD".4-F/
.22,"PART DESCRIPTION UOM IN/S
TK";.B-P/.22," POINT MIN QTY COST
COST".P-Z/.22,L$.L$.X-./ 22..-./.22
,4:...-.0.22,4:.22,G(1)"INVENTORY PRICE
LIST".8)"PAGE"PG.F-.0.22,L$.L$..- 0.22,"
PART DESCRIPTION".13)"UOM LIST P
RICE"...*0.22,L$.L$...40 22...>0.22,4:..
@. N. **GET RECORD & BUILD TABLE.J.*N.10
800:.E(FB$(3)).1.X.5..22500:.20110...4N.
".".10)FB$(1).15):. DISPLAY UOM...9NN%.6
:.10600 . * GET QTY...;N.E(X$).0.20029..
.<N.". QTY MUST BE > 0 .":.22005:.20110.
..=N.22600:.ER.1.20110../>NQT$.X$:.X.6..
22200:.20040.4/?NQT.E(FB$(3)).E(QT$).L/@
N.QT.0..22000:.20110.E/BNYTD.E(FB$(6)).E
(QT$).W/DNFB$(6).D(YTD)../HNFB$(3).D(QT)
../RN.10220 . ***REWRITE RECORD../FNLN$
(LN).D(LN).T/PNPN$(LN).I(RB$.D(F),3)../Z
NQT$(LN).I(RB$.QT$,6)..0.NUM$(LN).FB$(1)
..0.N...0LR.TL$(X):.L$:...0.R..40.U.". >
IN STOCK .".D0.U.I.1.1000:..P0.ULN.LN.1
.Y0.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..223
00:.22230."1LVNC.E(FB$(8)):CS$(LN).I(RB$
.FB$(8),7).:1VVQT.E(FB$(3)).E(QT$).S1.VC
S$(LN).I(RB$.YY$,7).Y1.V..R1.WK.E(X$):.1
300:YY$.Y$..1!WOV.E(FB$(8)).E(FB$(3))..1
&WNV.E(QT$).E(Y$)..10WTQ.E(FB$(3)).E(QT$
).P1: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..D2.W.
**OUT OF STOCK ERROR.C2.W.". OUT OF STOC
K .":.22005.I2.W...2HXBN.E(X$):BI..(BN):
ER.0..2MX.BI.BN.22640..2RX.". QUANTITY M
UST BE WHOLE NUMBER .".I2\X.22005.R2FXER
.1.X2PX.....
> CLICK IMAGE PREVIEW FOR FULL MODAL