STOCK-AID
FILE INFORMATION
FILENAME(S): STOCK-AID
FILE TYPE(S): DEL
FILE SIZE: 11.3K
FIRST SEEN: 2025-11-30 19:55:37
APPEARS ON: 1 disk(s)
FILE HASH
5447c1567c270cf39a09221bae940c80d4f2407b349c5271dc5c0f8754e712a2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ACE GAMES | STOCK-AID | DEL | Curtcool, Hans Curt | 6 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 46 08 01 00 8F 20 2A 2A 20 53 54 4F 43 4B |..F.... ** STOCK|
00000010: 41 49 44 20 36 34 20 53 54 4F 43 4B 53 20 2A 2A |AID 64 STOCKS **|
00000020: 20 28 43 29 20 44 49 41 4C 4F 47 20 53 4F 46 54 | (C) DIALOG SOFT|
00000030: 57 41 52 45 20 20 4A 41 4E 20 31 39 38 34 20 2A |WARE JAN 1984 *|
00000040: 2A 20 30 34 30 34 00 53 08 02 00 8B 46 53 B3 B1 |* 0404.S....FS..|
00000050: 30 A7 38 00 70 08 03 00 9C 3A 97 35 33 32 38 30 |0.8.p....:.53280|
00000060: 2C 33 3A 97 35 33 32 38 31 2C 36 3A 99 22 9E 22 |,3:.53281,6:."."|
00000070: 00 9A 08 04 00 8D 31 31 30 3A 46 24 B2 22 53 20 |......110:F$."S |
00000080: 54 20 4F 20 43 20 4B 20 41 20 49 20 44 22 3A 48 |T O C K A I D":H|
00000090: 24 B2 46 24 3A 8D 36 3A 89 38 00 C0 08 06 00 52 |$.F$:.6:.8.....R|
000000A0: B2 31 33 30 3A 86 53 24 28 52 29 2C 50 28 52 29 |.130:.S$(R),P(R)|
000000B0: 2C 50 24 28 52 2C 36 29 2C 52 24 28 39 29 3A 8E |,P$(R,6),R$(9):.|
000000C0: 00 07 09 08 00 43 42 24 B2 22 9D 9D 9D 9D 9D 9D |.....CB$."......|
000000D0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000000E0: 9D 22 3A 48 44 24 B2 22 13 11 11 11 11 11 11 11 |.":HD$."........|
000000F0: 11 11 11 11 11 11 11 11 11 11 22 3A 43 44 24 B2 |..........":CD$.|
00000100: 22 11 11 11 11 11 22 00 39 09 09 00 4C 4E 24 B2 |".....".9...LN$.|
00000110: 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00000120: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000130: C0 C0 C0 C0 C0 C0 C0 C0 22 00 80 09 0A 00 42 58 |........".....BX|
00000140: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 20 20 20 20 20 22 3A 42 4C 24 B2 42 58 24 | ":BL$.BX$|
00000170: AA 22 20 20 20 22 3A 43 52 24 B2 C7 28 31 33 29 |." ":CR$..(13)|
00000180: 00 C3 09 0C 00 5A 52 B2 30 3A 5A 31 B2 30 3A 5A |.....ZR.0:Z1.0:Z|
00000190: 24 B2 22 22 3A 5A 48 B2 2E 35 3A 5A 44 B2 32 3A |$."":ZH..5:ZD.2:|
000001A0: 5A B2 30 3A 5A 46 B2 39 3A 5A 5A 24 B2 22 30 30 |Z.0:ZF.9:ZZ$."00|
000001B0: 30 30 30 30 22 3A 5A 46 24 B2 22 20 20 20 20 20 |0000":ZF$." |
000001C0: 20 20 22 00 F2 09 0D 00 5A 28 30 29 B2 31 3A 81 | ".....Z(0).1:.|
000001D0: 4A B2 31 A4 31 30 3A 5A 28 4A 29 B2 5A 28 4A AB |J.1.10:Z(J).Z(J.|
000001E0: 31 29 AC 31 30 3A 82 3A 8B 46 53 B3 B1 30 A7 31 |1).10:.:.FS..0.1|
000001F0: 34 35 00 2F 0A 0F 00 99 48 44 24 43 44 24 22 52 |45./....HD$CD$"R|
00000200: 45 50 4F 52 54 20 44 41 54 45 20 5B 12 44 44 2F |EPORT DATE [.DD/|
00000210: 4D 4D 2F 59 59 92 5D 20 3A 20 22 3B 3A 4C 49 B2 |MM/YY.] : ";:LI.|
00000220: 38 3A 41 4E B2 31 3A 8D 33 32 3A 41 4E B2 30 00 |8:AN.1:.32:AN.0.|
00000230: 58 0A 10 00 44 41 24 B2 49 4E 24 3A 8B 44 41 24 |X...DA$.IN$:.DA$|
00000240: B2 22 22 B0 C3 28 44 41 24 29 B3 B1 4C 49 A7 99 |.""..(DA$)..LI..|
00000250: 22 91 91 22 3A 89 31 35 00 82 0A 12 00 99 C7 28 |"..":.15.......(|
00000260: 39 29 C7 28 31 34 29 3A 8D 36 39 3A 99 22 12 20 |9).(14):.69:.". |
00000270: 53 54 4F 43 4B 20 52 45 43 4F 52 44 53 20 92 11 |STOCK RECORDS ..|
00000280: 11 22 00 C0 0A 13 00 99 22 12 43 92 52 45 41 54 |."......".C.REAT|
00000290: 45 20 4E 45 57 20 46 49 4C 45 20 20 4F 52 20 20 |E NEW FILE OR |
000002A0: 12 4C 92 4F 41 44 20 45 58 49 53 54 49 4E 47 20 |.L.OAD EXISTING |
000002B0: 46 49 4C 45 22 3A 99 48 44 24 43 44 24 4C 4E 24 |FILE":.HD$CD$LN$|
000002C0: 00 D4 0A 14 00 8D 36 31 3A 8B 47 24 B3 B1 43 52 |......61:.G$..CR|
000002D0: 24 A7 32 33 00 E4 0A 15 00 8B 46 24 B3 B1 48 24 |$.23......F$..H$|
000002E0: A7 31 34 36 00 F0 0A 16 00 8D 36 39 3A 89 31 35 |.146......69:.15|
000002F0: 00 12 0B 17 00 47 B2 C6 28 47 24 29 3A 8B 47 B3 |.....G..(G$):.G.|
00000300: B1 36 37 AF 47 B3 B1 37 36 AF 47 B3 B1 34 32 A7 |.67.G..76.G..42.|
00000310: 32 30 00 20 0B 18 00 8B 47 B2 34 32 A7 31 39 39 |20. ....G.42.199|
00000320: 00 33 0B 19 00 8B 47 B2 37 36 A7 47 B2 30 3A 89 |.3....G.76.G.0:.|
00000330: 31 35 36 00 6F 0B 1B 00 99 22 13 11 11 11 11 11 |156.o...."......|
00000340: 22 42 4C 24 3A 99 22 91 45 4E 54 45 52 20 46 49 |"BL$:.".ENTER FI|
00000350: 4C 45 20 12 20 4E 41 4D 45 20 92 20 3A 20 22 3B |LE . NAME . : ";|
00000360: 3A 41 4E B2 30 3A 4C 49 B2 31 32 3A 8D 33 32 00 |:AN.0:LI.12:.32.|
00000370: 7E 0B 1C 00 8B 49 4E 24 B2 22 22 A7 31 38 00 97 |~....IN$."".18..|
00000380: 0B 1D 00 46 24 B2 49 4E 24 3A 8D 31 32 36 3A 8B |...F$.IN$:.126:.|
00000390: 47 B2 30 A7 31 35 38 00 A0 0B 1E 00 89 31 34 36 |G.0.158......146|
000003A0: 00 C5 0B 20 00 99 22 05 5B 22 3B C8 28 42 4C 24 |... ..".[";.(BL$|
000003B0: 2C 4C 49 29 3B 22 5D 22 3B C8 28 43 42 24 2C 4C |,LI);"]";.(CB$,L|
000003C0: 49 AA 31 29 3B 00 DC 0B 21 00 49 4E 24 B2 22 20 |I.1);...!.IN$." |
000003D0: 22 3A 49 54 B2 54 49 3A 49 43 B2 32 00 F1 0B 22 |":IT.TI:IC.2..."|
000003E0: 00 A1 49 50 24 3A 8B 49 50 24 B3 B1 22 22 A7 33 |..IP$:.IP$.."".3|
000003F0: 37 00 21 0C 23 00 8B 49 54 B3 B2 54 49 A7 99 CA |7.!.#..IT..TI...|
00000400: 28 22 20 A2 22 2C 49 43 2C 31 29 3B 22 9D 22 3B |(" .",IC,1);".";|
00000410: 3A 49 43 B2 33 AB 49 43 3A 49 54 B2 54 49 AA 31 |:IC.3.IC:IT.TI.1|
00000420: 35 00 29 0C 24 00 89 33 34 00 51 0C 25 00 41 53 |5.).$..34.Q.%.AS|
00000430: B2 C6 28 49 50 24 29 3A 49 4C B2 C3 28 49 4E 24 |..(IP$):IL..(IN$|
00000440: 29 3A 8B 28 41 53 AF 31 32 37 29 B3 33 32 A7 34 |):.(AS.127).32.4|
00000450: 34 00 6C 0C 26 00 8B 41 4E B2 31 AF 28 41 53 B3 |4.l.&..AN.1.(AS.|
00000460: 34 35 B0 41 53 B1 35 37 29 A7 33 34 00 86 0C 27 |45.AS.57).34...'|
00000470: 00 8B 41 53 B2 33 34 B0 41 53 B2 34 34 B0 41 53 |..AS.34.AS.44.AS|
00000480: B2 35 38 A7 33 34 00 96 0C 28 00 8B 49 4C B3 4C |.58.34...(..IL.L|
00000490: 49 AA 31 A7 34 33 00 AA 0C 29 00 A1 49 50 24 3A |I.1.43...)..IP$:|
000004A0: 8B 49 50 24 B2 22 22 A7 34 30 00 B2 0C 2A 00 89 |.IP$."".40...*..|
000004B0: 33 37 00 E6 0C 2B 00 49 4E 24 B2 49 4E 24 AA 49 |37...+.IN$.IN$.I|
000004C0: 50 24 3A 99 49 50 24 3B 3A 49 4C B2 C3 28 49 4E |P$:.IP$;:IL..(IN|
000004D0: 24 29 3A 8B 49 4C B2 4C 49 AA 31 A7 99 22 5D 9D |$):.IL.LI.1.."].|
000004E0: 22 3B 3A 89 34 31 00 08 0D 2C 00 8B 41 53 B2 31 |";:.41...,..AS.1|
000004F0: 33 A7 8D 35 30 3A 49 4E 24 B2 CA 28 49 4E 24 2C |3..50:IN$..(IN$,|
00000500: 32 29 3A 99 3A 89 35 32 00 2C 0D 2D 00 8B 41 53 |2):.:.52.,.-..AS|
00000510: B2 32 30 AF 49 4C B1 31 A7 49 4E 24 B2 C8 28 49 |.20.IL.1.IN$..(I|
00000520: 4E 24 2C 49 4C AB 31 29 3A 89 34 38 00 57 0D 2E |N$,IL.1):.48.W..|
00000530: 00 8B 41 53 B2 31 34 31 AF 49 4C B1 31 A7 8D 35 |..AS.141.IL.1..5|
00000540: 30 3A 81 4B B2 32 A4 49 4C 3A 99 22 9D 20 9D 22 |0:.K.2.IL:.". ."|
00000550: 3B 3A 82 3A 89 33 33 00 5F 0D 2F 00 89 33 34 00 |;:.:.33._./..34.|
00000560: 82 0D 30 00 42 55 24 B2 22 20 9D 9D 22 3A 8B C3 |..0.BU$." ..":..|
00000570: 28 49 4E 24 29 B2 4C 49 A7 42 55 24 B2 22 5D 9D |(IN$).LI.BU$."].|
00000580: 9D 22 00 90 0D 31 00 99 42 55 24 3B 3A 89 33 34 |."...1..BU$;:.34|
00000590: 00 A4 0D 32 00 8B 49 4C B3 4C 49 AA 31 A7 99 22 |...2..IL.LI.1.."|
000005A0: 20 9D 22 3B 00 AA 0D 33 00 8E 00 C3 0D 34 00 8B | .";...3.....4..|
000005B0: C8 28 49 4E 24 2C 31 29 B2 22 20 22 A7 49 4E 24 |.(IN$,1)." ".IN$|
000005C0: B2 22 22 00 CF 0D 35 00 99 22 9E 22 3B 3A 8E 00 |.""...5..".";:..|
000005D0: E7 0D 37 00 47 24 B2 22 22 3A A1 47 24 3A 8B 47 |..7.G$."":.G$:.G|
000005E0: 24 B2 22 22 A7 35 35 00 F5 0D 38 00 41 B2 C6 28 |$."".55...8.A..(|
000005F0: 47 24 29 3A 8E 00 0D 0E 39 00 47 24 B2 22 22 3A |G$):....9.G$."":|
00000600: A1 47 24 3A 8B 47 24 B2 22 22 A7 35 37 00 29 0E |.G$:.G$."".57.).|
00000610: 3A 00 41 B2 C6 28 47 24 29 3A 8B 41 B3 B1 38 39 |:.A..(G$):.A..89|
00000620: AF 41 B3 B1 37 38 A7 35 37 00 2F 0E 3B 00 8E 00 |.A..78.57./.;...|
00000630: 3B 0E 3D 00 99 48 44 24 43 44 24 00 6F 0E 3E 00 |;.=..HD$CD$.o.>.|
00000640: 99 22 12 20 53 45 4C 45 43 54 20 92 20 4C 45 54 |.". SELECT . LET|
00000650: 54 45 52 20 20 22 4D 24 3B 3A 81 4B B2 31 A4 C3 |TER "M$;:.K.1..|
00000660: 28 4D 24 29 AA 31 37 3A 99 22 9D 22 3B 3A 82 00 |(M$).17:.".";:..|
00000670: 8F 0E 3F 00 47 24 B2 22 22 3A A1 47 24 3A 8B 47 |..?.G$."":.G$:.G|
00000680: 24 B3 B1 22 22 A7 99 42 4C 24 22 13 22 3A 8E 00 |$..""..BL$".":..|
00000690: B9 0E 40 00 81 4B B2 31 A4 34 30 30 3A 82 4B 3A |..@..K.1.400:.K:|
000006A0: 99 22 20 53 45 4C 45 43 54 20 12 20 4C 45 54 54 |." SELECT . LETT|
000006B0: 45 52 20 92 20 22 4D 24 3B 00 E3 0E 41 00 81 4B |ER . "M$;...A..K|
000006C0: B2 31 A4 C3 28 4D 24 29 AA 31 37 3A 99 22 9D 22 |.1..(M$).17:."."|
000006D0: 3B 3A 82 3A 81 4B B2 31 A4 34 30 30 3A 82 4B 3A |;:.:.K.1.400:.K:|
000006E0: 89 36 32 00 FF 0E 43 00 4D 24 B2 22 4F 52 20 3C |.62...C.M$."OR <|
000006F0: 52 45 54 55 52 4E 3E 20 4D 45 4E 55 22 3A 8E 00 |RETURN> MENU":..|
00000700: 25 0F 45 00 99 22 93 05 22 3B 46 24 3B A6 33 31 |%.E.."..";F$;.31|
00000710: AB C3 28 46 24 29 29 3B 44 41 24 22 9E 22 3A 99 |..(F$));DA$".":.|
00000720: 4C 4E 24 3A 8E 00 44 0F 47 00 99 22 93 22 3B 46 |LN$:..D.G..".";F|
00000730: 24 3B A6 33 31 AB C3 28 46 24 29 29 3B 44 41 24 |$;.31..(F$));DA$|
00000740: 3A 89 37 35 00 5B 0F 48 00 99 46 24 3B A6 37 31 |:.75.[.H..F$;.71|
00000750: AB C3 28 46 24 29 29 3B 44 41 24 00 6E 0F 49 00 |..(F$));DA$.n.I.|
00000760: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B 00 95 |."----------";..|
00000770: 0F 4A 00 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.J.."-----------|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000790: 2D 2D 2D 22 3B 00 C6 0F 4B 00 99 22 2D 2D 2D 2D |---";...K.."----|
000007A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007C0: 2D 2D 2D 22 3A 8E 00 FA 0F 4D 00 5A 52 B2 5A 28 |---":....M.ZR.Z(|
000007D0: 5A 44 29 3A 5A 31 B2 B5 28 B6 28 5A 29 AC 5A 52 |ZD):Z1..(.(Z).ZR|
000007E0: AA 5A 48 29 AD 5A 52 3A 8B 5A 44 B2 30 A7 5A 24 |.ZH).ZR:.ZD.0.Z$|
000007F0: B2 C4 28 5A 31 29 3A 89 38 30 00 34 10 4E 00 5A |..(Z1):.80.4.N.Z|
00000800: 49 B2 B5 28 5A 31 29 3A 5A 4A B2 B5 28 28 5A 31 |I..(Z1):ZJ..((Z1|
00000810: AB 5A 49 29 AC 5A 52 AA 5A 48 29 3A 5A 49 24 B2 |.ZI).ZR.ZH):ZI$.|
00000820: C4 28 5A 49 29 3A 5A 4A 24 B2 CA 28 C4 28 5A 4A |.(ZI):ZJ$..(.(ZJ|
00000830: 29 2C 32 29 00 67 10 4F 00 5A 24 B2 5A 49 24 AA |),2).g.O.Z$.ZI$.|
00000840: 22 2E 22 AA C9 28 28 5A 5A 24 AA 5A 4A 24 29 2C |"."..((ZZ$.ZJ$),|
00000850: 5A 44 29 3A 8B 5A B3 30 A7 5A 24 B2 22 2D 22 AA |ZD):.Z.0.Z$."-".|
00000860: CA 28 5A 24 2C 32 29 00 91 10 50 00 54 24 B2 C9 |.(Z$,2)...P.T$..|
00000870: 28 5A 46 24 AA 5A 24 2C 5A 46 29 3A 8B C3 28 5A |(ZF$.Z$,ZF):..(Z|
00000880: 24 29 B1 5A 46 A7 54 24 B2 C8 28 5A 24 2C 5A 46 |$).ZF.T$..(Z$,ZF|
00000890: 29 00 97 10 51 00 8E 00 A8 10 53 00 8B 50 32 B2 |)...Q.....S..P2.|
000008A0: 31 A7 99 C7 28 31 30 29 00 AE 10 54 00 8E 00 CA |1...(10)...T....|
000008B0: 10 56 00 83 22 12 20 53 54 4F 43 4B 20 43 4F 44 |.V..". STOCK COD|
000008C0: 45 20 20 92 20 20 20 20 20 22 00 F7 10 57 00 83 |E . "...W..|
000008D0: 22 12 20 44 45 53 43 52 49 50 54 49 4F 4E 20 92 |". DESCRIPTION .|
000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008F0: 20 20 20 20 20 20 22 00 20 11 58 00 83 22 12 20 | ". .X..". |
00000900: 53 55 50 50 4C 49 45 52 20 20 20 20 92 20 20 20 |SUPPLIER . |
00000910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000920: 00 4F 11 59 00 83 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.O.Y..".........|
00000930: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000940: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 |..............".|
00000950: 82 11 5A 00 83 22 12 20 43 55 20 43 4F 53 54 20 |..Z..". CU COST |
00000960: 92 20 20 20 20 20 20 20 20 20 20 20 12 20 43 55 |. . CU|
00000970: 20 53 41 4C 45 20 92 20 20 20 20 20 20 20 20 20 | SALE . |
00000980: 20 22 00 B1 11 5B 00 83 22 C0 C0 C0 C0 C0 C0 C0 | "...[..".......|
00000990: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000009A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000009B0: 22 00 D4 11 5C 00 83 22 49 4E 50 55 54 53 20 20 |"...\.."INPUTS |
000009C0: 20 20 20 20 20 20 20 20 20 20 20 20 4F 55 54 50 | OUTP|
000009D0: 55 54 53 22 00 07 12 5D 00 83 22 12 20 55 4E 49 |UTS"...]..". UNI|
000009E0: 54 53 20 92 20 20 20 20 20 20 20 20 20 20 20 20 |TS . |
000009F0: 20 12 20 55 4E 49 54 53 20 92 20 20 20 20 20 20 | . UNITS . |
00000A00: 20 20 20 20 20 20 22 00 3A 12 5E 00 83 22 12 20 | ".:.^..". |
00000A10: 56 41 4C 55 45 20 92 20 20 20 20 20 20 20 20 20 |VALUE . |
00000A20: 20 20 20 20 12 20 56 41 4C 55 45 20 92 20 20 20 | . VALUE . |
00000A30: 20 20 20 20 20 20 20 20 20 22 00 6D 12 5F 00 83 | ".m._..|
00000A40: 22 12 20 54 52 41 4E 53 20 92 20 20 20 20 20 20 |". TRANS . |
00000A50: 20 20 20 20 20 20 20 12 20 54 52 41 4E 53 20 92 | . TRANS .|
00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 9C 12 | "...|
00000A70: 60 00 83 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |`.."............|
00000A80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000A90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 CF 12 61 |..........."...a|
00000AA0: 00 83 22 12 20 42 41 4C 41 4E 43 45 20 92 20 20 |..". BALANCE . |
00000AB0: 20 20 20 20 20 20 20 20 20 12 20 4D 49 4E 49 4D | . MINIM|
00000AC0: 55 4D 20 92 20 20 20 20 20 20 20 20 20 20 22 00 |UM . ".|
00000AD0: 02 13 62 00 83 22 12 20 43 20 56 41 4C 55 45 20 |..b..". C VALUE |
00000AE0: 92 20 20 20 20 20 20 20 20 20 20 20 12 20 52 45 |. . RE|
00000AF0: 4F 52 44 45 52 20 92 20 20 20 20 20 20 20 20 20 |ORDER . |
00000B00: 20 22 00 35 13 63 00 83 22 12 20 50 52 4F 46 49 | ".5.c..". PROFI|
00000B10: 54 20 20 92 20 20 20 20 20 20 20 20 20 20 20 12 |T . .|
00000B20: 20 52 20 56 41 4C 55 45 20 92 20 20 20 20 20 20 | R VALUE . |
00000B30: 20 20 20 20 22 00 64 13 64 00 83 22 C0 C0 C0 C0 | ".d.d.."....|
00000B40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000B50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000B60: C0 C0 C0 22 00 94 13 65 00 83 22 9A B6 B7 B7 B7 |..."...e..".....|
00000B70: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000B80: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000B90: B7 B7 B5 22 00 C3 13 66 00 83 22 B6 20 20 20 20 |..."...f..". |
00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BC0: 20 B5 22 00 F2 13 67 00 83 22 B6 20 20 20 20 20 | ."...g..". |
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BF0: B5 22 00 21 14 68 00 83 22 B6 20 20 20 20 20 20 |.".!.h..". |
00000C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 B5 | .|
00000C20: 22 00 51 14 69 00 83 22 B6 AF AF AF AF AF AF AF |".Q.i.."........|
00000C30: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000C40: AF AF AF AF AF AF AF AF AF AF AF AF AF AF B5 9E |................|
00000C50: 22 00 91 14 6A 00 83 22 53 54 4F 43 4B 20 43 4F |"...j.."STOCK CO|
00000C60: 44 45 22 2C 31 2C 33 2C 30 2C 22 44 45 53 43 52 |DE",1,3,0,"DESCR|
00000C70: 49 50 54 49 4F 4E 22 2C 35 2C 32 30 2C 30 2C 22 |IPTION",5,20,0,"|
00000C80: 53 55 50 50 4C 49 45 52 22 2C 32 36 2C 31 35 2C |SUPPLIER",26,15,|
00000C90: 30 00 D4 14 6B 00 83 22 43 55 52 52 45 4E 54 20 |0...k.."CURRENT |
00000CA0: 55 4E 49 54 20 43 4F 53 54 20 50 52 49 43 45 22 |UNIT COST PRICE"|
00000CB0: 2C 34 32 2C 36 2C 31 2C 22 4D 49 4E 49 4D 55 4D |,42,6,1,"MINIMUM|
00000CC0: 20 53 54 4F 43 4B 20 4C 45 56 45 4C 22 2C 34 39 | STOCK LEVEL",49|
00000CD0: 2C 36 2C 31 00 15 15 6C 00 83 22 52 45 2D 4F 52 |,6,1...l.."RE-OR|
00000CE0: 44 45 52 20 51 55 41 4E 54 49 54 59 22 2C 35 36 |DER QUANTITY",56|
00000CF0: 2C 36 2C 31 2C 22 43 55 52 52 45 4E 54 20 55 4E |,6,1,"CURRENT UN|
00000D00: 49 54 20 53 41 4C 45 20 50 52 49 43 45 22 2C 36 |IT SALE PRICE",6|
00000D10: 33 2C 36 2C 31 00 58 15 6E 00 4C 24 28 31 29 B2 |3,6,1.X.n.L$(1).|
00000D20: 22 20 20 20 20 12 20 20 20 92 20 12 20 20 20 92 |" . . . .|
00000D30: 20 12 20 20 20 92 20 12 20 20 20 92 20 12 20 92 | . . . . . .|
00000D40: 20 12 A9 92 A9 20 20 12 20 20 20 92 20 12 20 92 | .... . . . .|
00000D50: 20 12 20 20 20 20 92 22 00 A3 15 6F 00 4C 24 28 | . ."...o.L$(|
00000D60: 32 29 B2 22 20 20 20 20 12 20 92 20 20 20 20 12 |2)." . . .|
00000D70: 20 92 20 20 12 20 92 20 12 20 92 20 12 20 92 20 | . . . . . . . |
00000D80: 12 20 92 20 12 20 92 12 A9 92 A9 20 20 20 12 20 |. . . ..... . |
00000D90: 92 20 12 20 92 20 12 20 92 20 20 12 20 92 20 12 |. . . . . . . .|
00000DA0: 20 92 22 00 EA 15 70 00 4C 24 28 33 29 B2 22 20 | ."...p.L$(3)." |
00000DB0: 20 20 20 12 20 20 20 92 20 20 12 20 92 20 20 12 | . . . . .|
00000DC0: 20 92 20 12 20 92 20 12 20 92 20 20 20 12 20 20 | . . . . . . |
00000DD0: A2 20 12 20 20 A2 20 12 20 20 20 92 20 12 20 92 |. . . . . . .|
00000DE0: 20 20 12 20 92 20 12 20 92 22 00 35 16 71 00 4C | . . . .".5.q.L|
00000DF0: 24 28 34 29 B2 22 20 20 20 20 20 20 12 20 92 20 |$(4)." . . |
00000E00: 20 12 20 92 20 20 12 20 92 20 12 20 92 20 12 20 | . . . . . . . |
00000E10: 92 20 12 20 92 20 12 20 92 DF 12 DF 92 20 20 20 |. . . . ..... |
00000E20: 12 20 92 20 12 20 92 20 12 20 92 20 20 12 20 92 |. . . . . . . .|
00000E30: 20 12 20 92 22 00 7A 16 72 00 4C 24 28 35 29 B2 | . .".z.r.L$(5).|
00000E40: 22 20 20 20 20 12 20 20 20 92 20 20 12 20 92 20 |" . . . . |
00000E50: 20 12 20 20 20 92 20 12 20 20 20 92 20 12 20 92 | . . . . . .|
00000E60: 20 DF 12 DF 92 20 20 12 20 92 20 12 20 92 20 12 | .... . . . . .|
00000E70: 20 92 20 12 20 20 20 20 92 22 00 B6 16 73 00 4C | . . ."...s.L|
00000E80: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EA0: 20 20 20 20 22 3A 99 C7 28 31 34 32 29 C7 28 38 | ":..(142).(8|
00000EB0: 29 22 93 11 11 22 00 E3 16 74 00 81 4B B2 31 A4 |)"..."...t..K.1.|
00000EC0: 31 36 3A 99 A3 33 29 22 12 22 4C 24 22 92 22 3A |16:..3)"."L$".":|
00000ED0: 82 3A 99 22 13 11 11 22 3A 81 4B B2 31 A4 32 35 |.:."...":.K.1.25|
00000EE0: 30 3A 82 00 14 17 75 00 81 4B B2 31 A4 35 3A 99 |0:....u..K.1.5:.|
00000EF0: 4C 24 28 4B 29 3A 81 4A B2 31 A4 35 30 3A 82 4A |L$(K):.J.1.50:.J|
00000F00: 2C 4B 3A 99 22 20 20 20 22 4C 24 3A 99 22 20 20 |,K:." "L$:." |
00000F10: 20 22 4C 24 00 38 17 76 00 99 A3 39 29 22 91 05 | "L$.8.v...9)"..|
00000F20: 20 53 54 4F 43 4B 20 43 4F 4E 54 52 4F 4C 20 53 | STOCK CONTROL S|
00000F30: 59 53 54 45 4D 20 9E 22 00 59 17 77 00 99 A6 33 |YSTEM .".Y.w...3|
00000F40: 29 3B 3A 81 4B B2 31 A4 31 36 3A 99 22 12 20 92 |);:.K.1.16:.". .|
00000F50: 20 22 3B 3A 82 3A 99 3A 99 00 75 17 78 00 99 A3 | ";:.:.:..u.x...|
00000F60: 31 32 29 22 05 20 46 20 1D 20 52 20 1D 20 4F 20 |12)". F . R . O |
00000F70: 1D 20 4D 20 22 00 9B 17 79 00 99 3A 99 A3 38 29 |. M "...y..:..8)|
00000F80: 22 9A 12 20 44 20 1D 20 49 20 1D 20 41 20 1D 20 |".. D . I . A . |
00000F90: 4C 20 1D 20 4F 20 1D 20 47 20 22 00 C9 17 7A 00 |L . O . G "...z.|
00000FA0: 99 3A 99 A3 34 29 22 12 20 53 20 1D 20 4F 20 1D |.:..4)". S . O .|
00000FB0: 20 46 20 1D 20 54 20 1D 20 57 20 1D 20 41 20 1D | F . T . W . A .|
00000FC0: 20 52 20 1D 20 45 20 9E 22 00 E8 17 7B 00 99 3A | R . E ."...{..:|
00000FD0: 99 A6 33 29 3B 3A 81 4B B2 31 A4 31 36 3A 99 22 |..3);:.K.1.16:."|
00000FE0: 12 20 92 20 22 3B 3A 82 00 F5 17 7C 00 99 22 11 |. . ";:....|..".|
00000FF0: 11 11 22 3A 8E 00 18 18 7E 00 53 24 28 30 29 B2 |..":....~.S$(0).|
00001000: 22 22 3A 81 4B B2 30 A4 52 3A 50 28 4B 29 B2 30 |"":.K.0.R:P(K).0|
00001010: 3A 82 3A 4D 24 B2 22 22 00 4C 18 7F 00 53 B2 30 |:.:M$."".L...S.0|
00001020: 3A 4E B2 30 3A 49 B2 30 3A 46 B2 30 3A 43 B2 30 |:N.0:I.0:F.0:C.0|
00001030: 3A 44 31 B2 32 3A 44 32 B2 30 3A 50 31 B2 30 3A |:D1.2:D2.0:P1.0:|
00001040: 50 32 B2 30 3A 54 53 B2 31 30 3A 8E 00 57 18 81 |P2.0:TS.10:..W..|
00001050: 00 99 22 11 11 22 3B 00 82 18 82 00 99 22 12 20 |.."..";......". |
00001060: 50 52 45 53 53 20 92 20 41 4E 59 20 4B 45 59 20 |PRESS . ANY KEY |
00001070: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A 8D 35 35 |TO CONTINUE":.55|
00001080: 3A 8E 00 90 18 84 00 8D 31 32 39 3A 89 32 31 33 |:.......129:.213|
00001090: 00 C3 18 86 00 99 48 44 24 43 44 24 4C 4E 24 3A |......HD$CD$LN$:|
000010A0: 99 42 4C 24 3A 99 22 91 41 52 45 20 59 4F 55 20 |.BL$:.".ARE YOU |
000010B0: 53 55 52 45 20 3F 20 5B 12 59 92 2F 12 4E 92 5D |SURE ? [.Y./.N.]|
000010C0: 22 3A 8E 00 E1 18 88 00 9F 31 35 2C 38 2C 31 35 |":.......15,8,15|
000010D0: 3A 84 31 35 2C 45 2C 45 24 3A 8B 45 B3 31 39 A7 |:.15,E,E$:.E.19.|
000010E0: 8E 00 14 19 89 00 A0 31 3A 99 48 44 24 43 44 24 |.......1:.HD$CD$|
000010F0: 22 11 22 45 24 22 3A 20 12 20 50 52 45 53 53 20 |"."E$": . PRESS |
00001100: 92 20 41 4E 59 20 4B 45 59 22 3A A0 31 35 3A 8D |. ANY KEY":.15:.|
00001110: 35 35 3A 8E 00 2C 19 8B 00 9F 31 35 2C 38 2C 31 |55:..,....15,8,1|
00001120: 35 2C 22 49 30 22 3A A0 31 35 3A 8E 00 4D 19 8D |5,"I0":.15:..M..|
00001130: 00 99 48 44 24 3A 81 4B B2 31 A4 33 3A 99 A3 32 |..HD$:.K.1.3:..2|
00001140: 29 42 58 24 3A 82 3A 99 48 44 24 3A 8E 00 6D 19 |)BX$:.:.HD$:..m.|
00001150: 8F 00 8C 3A 99 22 13 11 22 3A 81 4B B2 31 A4 32 |...:."..":.K.1.2|
00001160: 30 3A 87 44 24 3A 99 44 24 3A 82 3A 8E 00 7B 19 |0:.D$:.D$:.:..{.|
00001170: 91 00 8B 46 53 B2 33 A7 32 30 34 00 9F 19 92 00 |...FS.3.204.....|
00001180: 4D 24 B2 22 20 22 3A 8D 36 39 3A 99 22 53 20 54 |M$." ":.69:."S T|
00001190: 20 4F 20 43 20 4B 20 41 20 49 20 44 11 11 22 00 | O C K A I D..".|
000011A0: CE 19 93 00 99 22 12 41 92 43 43 45 53 53 20 53 |.....".A.CCESS S|
000011B0: 54 4F 43 4B 20 52 45 43 4F 52 44 53 11 11 22 3A |TOCK RECORDS..":|
000011C0: 8B 46 B2 30 A7 99 43 44 24 3A 89 31 35 30 00 EA |.F.0..CD$:.150..|
000011D0: 19 94 00 99 22 12 47 92 45 4E 45 52 41 54 45 20 |....".G.ENERATE |
000011E0: 52 45 50 4F 52 54 53 11 11 22 00 05 1A 95 00 99 |REPORTS.."......|
000011F0: 22 12 53 92 41 56 45 20 53 54 4F 43 4B 20 46 49 |".S.AVE STOCK FI|
00001200: 4C 45 11 11 22 00 1F 1A 96 00 99 22 12 43 92 41 |LE.."......".C.A|
00001210: 4C 4C 20 55 54 49 4C 49 54 49 45 53 11 11 22 00 |LL UTILITIES..".|
00001220: 3A 1A 97 00 99 22 12 52 92 45 53 54 41 52 54 20 |:....".R.ESTART |
00001230: 50 52 4F 47 52 41 4D 11 11 22 00 55 1A 98 00 99 |PROGRAM..".U....|
00001240: 22 12 45 92 4E 44 20 50 52 4F 47 52 41 4D 11 22 |".E.ND PROGRAM."|
00001250: 3A 99 4C 4E 24 00 80 1A 99 00 8D 36 31 3A 81 47 |:.LN$......61:.G|
00001260: B2 31 A4 36 3A 8B 47 24 B3 B1 CA 28 22 53 47 43 |.1.6:.G$...("SGC|
00001270: 52 45 41 22 2C 47 2C 31 29 A7 82 3A 89 31 35 33 |REA",G,1)..:.153|
00001280: 00 9F 1A 9A 00 91 47 89 31 35 36 2C 31 38 39 2C |......G.156,189,|
00001290: 31 38 39 2C 31 39 35 2C 31 39 39 2C 32 30 32 00 |189,195,199,202.|
000012A0: D3 1A 9C 00 4B 24 B2 22 53 41 56 45 20 22 3A 8B |....K$."SAVE ":.|
000012B0: 47 B2 30 A7 4B 24 B2 22 4C 4F 41 44 20 22 3A 46 |G.0.K$."LOAD ":F|
000012C0: 24 B2 22 53 20 54 20 4F 20 43 20 4B 20 41 20 49 |$."S T O C K A I|
000012D0: 20 44 22 00 FB 1A 9D 00 8D 36 39 3A 99 22 12 20 | D"......69:.". |
000012E0: 22 4B 24 22 53 54 4F 43 4B 20 46 49 4C 45 20 92 |"K$"STOCK FILE .|
000012F0: 11 11 22 3A 8B 47 B2 30 A7 32 37 00 20 1B 9E 00 |..":.G.0.27. ...|
00001300: 99 22 13 22 43 44 24 42 4C 24 3A 99 22 91 05 22 |."."CD$BL$:.".."|
00001310: 46 24 22 9E 20 22 3B 3A 8B 47 B2 30 A7 31 37 38 |F$". ";:.G.0.178|
00001320: 00 4F 1B A5 00 8D 31 33 39 3A 9F 31 2C 38 2C 31 |.O....139:.1,8,1|
00001330: 2C 22 40 30 3A 22 AA 46 24 AA 22 2C 53 2C 57 22 |,"@0:".F$.",S,W"|
00001340: 3A 8D 31 33 36 3A 8B 45 B1 31 38 A7 31 35 36 00 |:.136:.E.18.156.|
00001350: 62 1B A6 00 99 22 46 49 4C 45 20 53 41 56 49 4E |b...."FILE SAVIN|
00001360: 47 22 00 8E 1B A7 00 58 24 B2 C4 28 4E 29 3A 98 |G".....X$..(N):.|
00001370: 31 2C 58 24 3B 43 52 24 3B 3A 81 4B B2 31 A4 4E |1,X$;CR$;:.K.1.N|
00001380: AA 53 3A 8B 50 28 4B 29 B2 30 A7 31 37 31 00 9D |.S:.P(K).0.171..|
00001390: 1B A8 00 98 31 2C C4 28 50 28 4B 29 29 00 CC 1B |....1,.(P(K))...|
000013A0: A9 00 58 24 B2 C8 28 53 24 28 50 28 4B 29 29 2C |..X$..(S$(P(K)),|
000013B0: 37 39 29 3A 98 31 2C 58 24 3B 43 52 24 3B 3A 8B |79):.1,X$;CR$;:.|
000013C0: C3 28 58 24 29 B3 37 39 A7 31 37 31 00 E2 1B AA |.(X$).79.171....|
000013D0: 00 98 31 2C CA 28 53 24 28 50 28 4B 29 29 2C 38 |..1,.(S$(P(K)),8|
000013E0: 30 29 00 0A 1C AB 00 82 4B 3A 81 4B B2 31 A4 4E |0)......K:.K.1.N|
000013F0: AA 53 3A 81 4C B2 30 A4 36 3A 8B 50 28 4B 29 B2 |.S:.L.0.6:.P(K).|
00001400: 30 A7 4C B2 35 3A 89 31 37 33 00 25 1C AC 00 98 |0.L.5:.173.%....|
00001410: 31 2C 22 5B 22 3B 50 24 28 50 28 4B 29 2C 4C 29 |1,"[";P$(P(K),L)|
00001420: 3B 43 52 24 3B 00 4C 1C AD 00 82 4C 2C 4B 3A 81 |;CR$;.L....L,K:.|
00001430: 4B B2 33 A4 34 3A 98 31 2C 22 5B 22 3B 50 24 28 |K.3.4:.1,"[";P$(|
00001440: 30 2C 4B 29 3B 43 52 24 3B 3A 82 4B 00 7C 1C AE |0,K);CR$;:.K.|..|
00001450: 00 58 24 B2 C4 28 44 31 29 3A 59 24 B2 C4 28 44 |.X$..(D1):Y$..(D|
00001460: 32 29 3A 98 31 2C 58 24 3B 43 52 24 3B 59 24 3B |2):.1,X$;CR$;Y$;|
00001470: 43 52 24 3B 44 41 24 3B 43 52 24 3B 00 8C 1C AF |CR$;DA$;CR$;....|
00001480: 00 A0 31 3A A0 31 35 3A 89 31 34 36 00 BA 1C B2 |..1:.15:.146....|
00001490: 00 8D 31 33 39 3A 9F 31 2C 38 2C 30 2C 22 30 3A |..139:.1,8,0,"0:|
000014A0: 22 AA 46 24 AA 22 2C 53 2C 52 22 3A 8D 31 33 36 |".F$.",S,R":.136|
000014B0: 3A 8B 45 B1 31 38 A7 31 35 36 00 CF 1C B3 00 99 |:.E.18.156......|
000014C0: 22 46 49 4C 45 20 4C 4F 41 44 49 4E 47 22 3B 00 |"FILE LOADING";.|
000014D0: F9 1C B4 00 84 31 2C 58 24 3A 4E B2 C5 28 58 24 |.....1,X$:N..(X$|
000014E0: 29 3A 81 4B B2 31 A4 4E 3A 84 31 2C 58 24 3A 50 |):.K.1.N:.1,X$:P|
000014F0: 28 4B 29 B2 C5 28 58 24 29 00 19 1D B5 00 84 31 |(K)..(X$)......1|
00001500: 2C 58 24 3A 59 24 B2 22 22 3A 8B C3 28 58 24 29 |,X$:Y$."":..(X$)|
00001510: B1 36 39 A7 84 31 2C 59 24 00 33 1D B6 00 53 24 |.69..1,Y$.3...S$|
00001520: 28 4B 29 B2 58 24 AA 59 24 3A 50 28 4B 29 B2 4B |(K).X$.Y$:P(K).K|
00001530: 3A 82 4B 00 60 1D B7 00 81 4B B2 31 A4 4E 3A 81 |:.K.`....K.1.N:.|
00001540: 4C B2 30 A4 36 3A 84 31 2C 58 24 3A 50 24 28 4B |L.0.6:.1,X$:P$(K|
00001550: 2C 4C 29 B2 CA 28 58 24 2C 32 29 3A 82 4C 2C 4B |,L)..(X$,2):.L,K|
00001560: 00 84 1D B8 00 81 4B B2 33 A4 34 3A 84 31 2C 58 |......K.3.4:.1,X|
00001570: 24 3A 50 24 28 30 2C 4B 29 B2 CA 28 58 24 2C 32 |$:P$(0,K)..(X$,2|
00001580: 29 3A 82 4B 00 A6 1D B9 00 84 31 2C 58 24 2C 59 |):.K......1,X$,Y|
00001590: 24 2C 4B 24 3A 44 31 B2 C5 28 58 24 29 3A 44 32 |$,K$:D1..(X$):D2|
000015A0: B2 C5 28 59 24 29 00 D7 1D BA 00 A0 31 3A A0 31 |..(Y$)......1:.1|
000015B0: 35 3A 99 22 9D 9D 9D 45 44 20 22 3A 99 22 11 11 |5:."...ED ":."..|
000015C0: 4C 41 53 54 20 52 45 50 4F 52 54 20 44 41 54 45 |LAST REPORT DATE|
000015D0: 20 3A 20 22 3B 4B 24 00 E9 1D BB 00 46 B2 31 3A | : ";K$.....F.1:|
000015E0: 8D 31 32 39 3A 89 31 34 36 00 2D 1E BD 00 4B 24 |.129:.146.-...K$|
000015F0: B2 22 52 45 50 4F 52 54 53 22 3A 4B 4B 24 B2 4B |."REPORTS":KK$.K|
00001600: 24 3A 46 53 B2 31 3A 8B 47 B2 33 A7 4B 24 B2 22 |$:FS.1:.G.3.K$."|
00001610: 55 54 49 4C 49 54 49 45 53 22 3A 4B 4B 24 B2 22 |UTILITIES":KK$."|
00001620: 48 41 4E 44 4C 45 52 22 3A 46 53 B2 32 00 43 1E |HANDLER":FS.2.C.|
00001630: BE 00 8D 36 39 3A 99 22 12 20 22 4B 24 22 20 92 |...69:.". "K$" .|
00001640: 11 11 22 00 74 1E BF 00 99 22 50 4C 45 41 53 45 |..".t...."PLEASE|
00001650: 20 45 4E 53 55 52 45 20 50 52 4F 47 52 41 4D 20 | ENSURE PROGRAM |
00001660: 44 49 53 4B 20 49 53 20 49 4E 20 44 52 49 56 45 |DISK IS IN DRIVE|
00001670: 2E 11 11 22 00 A0 1E C0 00 99 22 05 43 4F 4E 54 |..."......".CONT|
00001680: 49 4E 55 45 9E 20 3F 20 5B 12 59 92 2F 12 4E 92 |INUE. ? [.Y./.N.|
00001690: 5D 22 3A 8D 35 37 3A 8B 41 B2 37 38 A7 31 34 36 |]":.57:.A.78.146|
000016A0: 00 D5 1E C1 00 8D 36 39 3A 99 22 12 20 22 4B 24 |......69:.". "K$|
000016B0: 22 20 92 11 11 22 3A 8D 31 33 39 3A 99 22 50 4C |" ...":.139:."PL|
000016C0: 45 41 53 45 20 57 41 49 54 20 2E 2E 2E 22 3A 93 |EASE WAIT ...":.|
000016D0: 4B 4B 24 2C 38 00 08 1F C3 00 8D 36 39 3A 99 22 |KK$,8......69:."|
000016E0: 52 45 53 54 41 52 54 20 50 52 4F 47 52 41 4D 11 |RESTART PROGRAM.|
000016F0: 11 22 3A 99 22 12 20 57 20 41 20 52 20 4E 20 49 |.":.". W A R N I|
00001700: 20 4E 20 47 20 92 11 22 00 43 1F C4 00 99 22 43 | N G ..".C...."C|
00001710: 4F 4E 54 45 4E 54 53 20 4F 46 20 4D 45 4D 4F 52 |ONTENTS OF MEMOR|
00001720: 59 20 57 49 4C 4C 20 42 45 20 4C 4F 53 54 21 22 |Y WILL BE LOST!"|
00001730: 3A 8D 31 33 34 3A 8D 35 37 3A 8B 41 B2 37 38 A7 |:.134:.57:.A.78.|
00001740: 31 34 36 00 4A 1F C5 00 89 33 00 81 1F C7 00 8D |146.J....3......|
00001750: 36 39 3A 99 22 12 20 45 4E 44 20 92 20 20 53 20 |69:.". END . S |
00001760: 54 20 4F 20 43 20 4B 20 41 20 49 20 44 22 3A 8D |T O C K A I D":.|
00001770: 31 33 34 3A 8D 35 37 3A 8B 41 B2 37 38 A7 31 34 |134:.57:.A.78.14|
00001780: 36 00 8C 1F C8 00 8D 31 31 30 3A 80 00 AC 1F CA |6......110:.....|
00001790: 00 8D 36 39 3A 8D 31 34 33 3A 8D 36 37 3A 8B 46 |..69:.143:.67:.F|
000017A0: B2 31 A7 8D 33 36 37 3A 89 32 31 31 00 B9 1F CB |.1..367:.211....|
000017B0: 00 47 B2 31 3A 89 32 33 30 00 F3 1F CC 00 99 48 |.G.1:.230......H|
000017C0: 44 24 22 11 1D 20 12 45 92 4E 54 45 52 20 20 20 |D$".. .E.NTER |
000017D0: 20 12 49 92 4E 50 55 54 20 20 20 20 12 42 92 52 | .I.NPUT .B.R|
000017E0: 4F 57 53 45 20 20 20 20 12 50 92 52 49 4E 54 20 |OWSE .P.RINT |
000017F0: 20 20 22 00 29 20 CD 00 99 22 1D 20 12 41 92 4D | ".) ...". .A.M|
00001800: 45 4E 44 20 20 20 20 12 4F 92 55 54 50 55 54 20 |END .O.UTPUT |
00001810: 20 20 12 46 92 49 4E 44 20 20 20 20 20 20 12 43 | .F.IND .C|
00001820: 92 4F 4D 50 41 52 45 20 22 00 61 20 CE 00 99 22 |.OMPARE ".a ..."|
00001830: 1D 20 12 44 92 45 4C 45 54 45 20 20 20 12 52 92 |. .D.ELETE .R.|
00001840: 45 43 41 4C 4C 20 20 20 12 3C 92 20 4F 52 20 12 |ECALL .<. OR .|
00001850: 3E 92 20 20 20 20 12 55 92 50 44 41 54 45 20 20 |>. .U.PDATE |
00001860: 22 00 75 20 CF 00 8D 36 31 3A 8B 47 24 B2 43 52 |".u ...61:.G$.CR|
00001870: 24 A7 31 34 36 00 A4 20 D0 00 81 47 B2 31 A4 31 |$.146.. ...G.1.1|
00001880: 33 3A 8B 47 24 B3 B1 CA 28 22 45 49 4F 41 50 44 |3:.G$...("EIOAPD|
00001890: 42 46 52 55 43 3C 3E 22 2C 47 2C 31 29 A7 82 3A |BFRUC<>",G,1)..:|
000018A0: 89 32 30 37 00 DF 20 D1 00 91 47 89 32 32 39 2C |.207.. ...G.229,|
000018B0: 32 35 30 2C 32 35 30 2C 32 39 31 2C 32 39 33 2C |250,250,291,293,|
000018C0: 32 39 37 2C 33 30 39 2C 33 32 34 2C 33 33 31 2C |297,309,324,331,|
000018D0: 33 33 35 2C 33 34 31 2C 33 36 32 2C 33 36 36 00 |335,341,362,366.|
000018E0: 0E 21 D3 00 49 24 B2 CA 28 53 24 28 50 28 49 29 |.!..I$..(S$(P(I)|
000018F0: 29 2C 37 30 2C 33 38 29 3A 4F 24 B2 CA 28 53 24 |),70,38):O$..(S$|
00001900: 28 50 28 49 29 29 2C 31 30 38 2C 33 38 29 00 33 |(P(I)),108,38).3|
00001910: 21 D5 00 5A 44 B2 44 31 3A 99 22 13 11 11 05 22 |!..ZD.D1:."...."|
00001920: A3 54 53 AA 35 29 C8 28 53 24 28 50 28 49 29 29 |.TS.5).(S$(P(I))|
00001930: 2C 34 29 00 68 21 D6 00 99 A3 54 53 AA 35 29 CA |,4).h!....TS.5).|
00001940: 28 53 24 28 50 28 49 29 29 2C 35 2C 32 31 29 3A |(S$(P(I)),5,21):|
00001950: 99 A3 54 53 AA 35 29 CA 28 53 24 28 50 28 49 29 |..TS.5).(S$(P(I)|
00001960: 29 2C 32 36 2C 31 36 29 00 9C 21 D7 00 5A B2 C5 |),26,16)..!..Z..|
00001970: 28 CA 28 53 24 28 50 28 49 29 29 2C 34 32 2C 37 |(.(S$(P(I)),42,7|
00001980: 29 29 3A 8D 37 37 3A 55 B2 5A 3A 99 22 11 22 A3 |)):.77:U.Z:.".".|
00001990: 54 53 29 54 24 A6 54 53 AA 31 29 3B 00 C8 21 D8 |TS)T$.TS.1);..!.|
000019A0: 00 5A B2 C5 28 CA 28 53 24 28 50 28 49 29 29 2C |.Z..(.(S$(P(I)),|
000019B0: 36 33 2C 37 29 29 3A 8D 37 37 3A 99 54 24 22 11 |63,7)):.77:.T$".|
000019C0: 11 22 3A 5A 44 B2 44 32 00 EF 21 D9 00 5A B2 C5 |.":ZD.D2..!..Z..|
000019D0: 28 50 24 28 50 28 49 29 2C 31 29 29 3A 8D 37 37 |(P$(P(I),1)):.77|
000019E0: 3A 99 A3 54 53 29 54 24 A6 54 53 AA 31 29 3B 00 |:..TS)T$.TS.1);.|
000019F0: 0B 22 DA 00 5A B2 C5 28 50 24 28 50 28 49 29 2C |."..Z..(P$(P(I),|
00001A00: 32 29 29 3A 8D 37 37 3A 99 54 24 00 2F 22 DB 00 |2)):.77:.T$./"..|
00001A10: 99 A3 54 53 29 50 24 28 50 28 49 29 2C 33 29 A6 |..TS)P$(P(I),3).|
00001A20: 54 53 AA 31 29 50 24 28 50 28 49 29 2C 34 29 00 |TS.1)P$(P(I),4).|
00001A30: 65 22 DC 00 99 A3 54 53 29 50 24 28 50 28 49 29 |e"....TS)P$(P(I)|
00001A40: 2C 35 29 A6 54 53 AA 31 29 50 24 28 50 28 49 29 |,5).TS.1)P$(P(I)|
00001A50: 2C 36 29 3A 99 3A 42 B2 C5 28 50 24 28 50 28 49 |,6):.:B..(P$(P(I|
00001A60: 29 2C 30 29 29 00 94 22 DD 00 5A B2 42 3A 8D 37 |),0)).."..Z.B:.7|
00001A70: 37 3A 99 A3 54 53 29 54 24 A6 54 53 AA 31 29 CA |7:..TS)T$.TS.1).|
00001A80: 28 53 24 28 50 28 49 29 29 2C 34 39 2C 37 29 3A |(S$(P(I)),49,7):|
00001A90: 5A 44 B2 32 00 C0 22 DE 00 5A B2 42 AC 55 3A 8D |ZD.2.."..Z.B.U:.|
00001AA0: 37 37 3A 99 A3 54 53 29 54 24 A6 54 53 AA 31 29 |77:..TS)T$.TS.1)|
00001AB0: CA 28 53 24 28 50 28 49 29 29 2C 35 36 2C 37 29 |.(S$(P(I)),56,7)|
00001AC0: 00 FB 22 DF 00 54 B2 C5 28 50 24 28 50 28 49 29 |.."..T..(P$(P(I)|
00001AD0: 2C 33 29 29 AB 5A 3A 5A B2 C5 28 50 24 28 50 28 |,3)).Z:Z..(P$(P(|
00001AE0: 49 29 2C 34 29 29 AB 54 3A 8D 37 37 3A 99 A3 54 |I),4)).T:.77:..T|
00001AF0: 53 29 54 24 A6 54 53 AA 31 29 3B 00 2C 23 E0 00 |S)T$.TS.1);.,#..|
00001B00: 5A B2 C5 28 CA 28 53 24 28 50 28 49 29 29 2C 35 |Z..(.(S$(P(I)),5|
00001B10: 36 2C 37 29 29 AC 55 3A 8D 37 37 3A 99 54 24 22 |6,7)).U:.77:.T$"|
00001B20: 9E 22 3A 8B 47 B3 B1 31 A7 32 30 34 00 63 23 E1 |.":.G..1.204.c#.|
00001B30: 00 8D 31 34 31 3A 99 22 11 1D 1D 41 4E 4F 54 48 |..141:."...ANOTH|
00001B40: 45 52 20 45 4E 54 52 59 20 3F 20 5B 12 59 92 2F |ER ENTRY ? [.Y./|
00001B50: 12 4E 92 5D 22 3A 8D 35 37 3A 8B 41 B2 37 38 A7 |.N.]":.57:.A.78.|
00001B60: 32 30 34 00 6C 23 E2 00 89 32 32 39 00 93 23 E4 |204.l#...229..#.|
00001B70: 00 49 4E B2 C3 28 49 4E 24 29 3A 49 4E 24 B2 49 |.IN..(IN$):IN$.I|
00001B80: 4E 24 AA C8 28 42 4C 24 2C 4C 49 AA 31 AB 49 4E |N$..(BL$,LI.1.IN|
00001B90: 29 3A 8E 00 C1 23 E5 00 8D 31 34 33 3A 8B 4E AA |):...#...143:.N.|
00001BA0: 31 B1 52 A7 8D 31 34 31 3A 99 22 1D 1D 11 46 49 |1.R..141:."...FI|
00001BB0: 4C 45 20 49 53 20 46 55 4C 4C 11 22 3A 89 31 33 |LE IS FULL.":.13|
00001BC0: 32 00 DB 23 E6 00 49 24 B2 22 22 3A 4F 24 B2 22 |2..#..I$."":O$."|
00001BD0: 22 3A 4E B2 4E AA 31 3A 51 B2 30 00 F3 23 E7 00 |":N.N.1:Q.0..#..|
00001BE0: 81 51 B2 31 A4 4E AA 53 3A 8B 50 28 51 29 B3 B1 |.Q.1.N.S:.P(Q)..|
00001BF0: 30 A7 82 00 0D 24 E8 00 50 28 51 29 B2 51 3A 50 |0....$..P(Q).Q:P|
00001C00: B2 53 3A 8B 51 B3 4E A7 53 B2 53 AB 31 00 2C 24 |.S:.Q.N.S.S.1.,$|
00001C10: E9 00 4B 24 B2 22 45 4E 54 45 52 22 3A 8B 47 B2 |..K$."ENTER":.G.|
00001C20: 34 A7 4B 24 B2 22 41 4D 45 4E 44 22 00 5F 24 EA |4.K$."AMEND"._$.|
00001C30: 00 53 24 B2 22 22 3A 8D 31 34 31 3A 99 22 1D 1D |.S$."":.141:."..|
00001C40: 12 20 22 4B 24 22 20 92 11 11 22 3A 81 4A B2 30 |. "K$" ...":.J.0|
00001C50: A4 36 3A 87 44 24 2C 4D 53 2C 4C 49 2C 41 4E 00 |.6:.D$,MS,LI,AN.|
00001C60: 82 24 EB 00 99 22 91 1D 1D 22 44 24 22 3A 20 22 |.$..."..."D$": "|
00001C70: 3B 3A 8D 33 32 3A 8B 49 4E 24 B3 B1 22 22 A7 32 |;:.32:.IN$.."".2|
00001C80: 34 30 00 93 24 EC 00 8B 46 B2 30 AF 4A B2 30 A7 |40..$...F.0.J.0.|
00001C90: 31 34 36 00 B8 24 ED 00 8B 47 B2 34 A7 54 24 28 |146..$...G.4.T$(|
00001CA0: 4A 29 B2 CA 28 53 24 28 49 29 2C 4D 53 2C 4C 49 |J)..(S$(I),MS,LI|
00001CB0: AA 31 29 3A 89 32 34 36 00 DB 24 EE 00 8B 4A B2 |.1):.246..$...J.|
00001CC0: 30 A7 50 28 51 29 B2 30 3A 53 B2 50 3A 4E B2 4E |0.P(Q).0:S.P:N.N|
00001CD0: AB 31 3A 47 B2 30 3A 89 32 31 33 00 E7 24 EF 00 |.1:G.0:.213..$..|
00001CE0: 49 4E 24 B2 22 3F 22 00 F5 24 F0 00 8B 4A B3 B1 |IN$."?"..$...J..|
00001CF0: 30 A7 32 34 35 00 15 25 F1 00 8B C3 28 49 4E 24 |0.245..%....(IN$|
00001D00: 29 B3 4C 49 B0 C8 28 49 4E 24 2C 31 29 B2 22 20 |).LI..(IN$,1)." |
00001D10: 22 A7 32 33 35 00 31 25 F2 00 8B 47 B2 34 AF C8 |".235.1%...G.4..|
00001D20: 28 53 24 28 4A 29 2C 33 29 B2 49 4E 24 A7 32 34 |(S$(J),3).IN$.24|
00001D30: 36 00 57 25 F3 00 81 4B B2 31 A4 4E AA 53 3A 8B |6.W%...K.1.N.S:.|
00001D40: C8 28 53 24 28 4B 29 2C 33 29 B3 B1 49 4E 24 A7 |.(S$(K),3)..IN$.|
00001D50: 82 4B 3A 89 32 34 35 00 91 25 F4 00 4B B2 4E AA |.K:.245..%..K.N.|
00001D60: 53 3A 82 4B 3A 99 22 11 11 1D 1D 5B 05 12 22 49 |S:.K:."....[.."I|
00001D70: 4E 24 22 92 9E 5D 20 41 4C 52 45 41 44 59 20 41 |N$"..] ALREADY A|
00001D80: 4C 4C 4F 43 41 54 45 44 91 91 91 22 3A 89 32 33 |LLOCATED...":.23|
00001D90: 35 00 A4 25 F5 00 8D 32 32 38 3A 54 24 28 4A 29 |5..%...228:T$(J)|
00001DA0: B2 49 4E 24 00 CC 25 F6 00 99 22 11 11 22 42 58 |.IN$..%...".."BX|
00001DB0: 24 3A 99 48 44 24 22 11 11 11 1D 1D 22 42 58 24 |$:.HD$"....."BX$|
00001DC0: 3A 82 4A 3A 8B 46 B2 30 A7 46 B2 31 00 F2 25 F7 |:.J:.F.0.F.1..%.|
00001DD0: 00 81 4A B2 30 A4 36 3A 53 24 B2 53 24 AA 54 24 |..J.0.6:S$.S$.T$|
00001DE0: 28 4A 29 3A 82 3A 49 B2 51 3A 8B 47 B2 34 A7 32 |(J):.:I.Q:.G.4.2|
00001DF0: 38 34 00 1D 26 F8 00 81 4A B2 30 A4 36 3A 5A B2 |84..&...J.0.6:Z.|
00001E00: 30 3A 5A 44 B2 30 3A 8D 37 37 3A 50 24 28 51 2C |0:ZD.0:.77:P$(Q,|
00001E10: 4A 29 B2 54 24 3A 82 4A 3A 89 32 38 34 00 4A 26 |J).T$:.J:.284.J&|
00001E20: FA 00 8D 31 34 31 3A 99 22 11 1D 1D 12 54 92 52 |...141:."....T.R|
00001E30: 41 4E 53 41 43 54 49 4F 4E 20 4F 52 20 12 41 92 |ANSACTION OR .A.|
00001E40: 44 4A 55 53 54 4D 45 4E 54 22 00 67 26 FB 00 8D |DJUSTMENT".g&...|
00001E50: 36 31 3A 8B 47 24 B3 B1 22 54 22 AF 47 24 B3 B1 |61:.G$.."T".G$..|
00001E60: 22 41 22 A7 32 30 34 00 8D 26 FC 00 4B 24 B2 22 |"A".204..&..K$."|
00001E70: 20 42 4F 4F 4B 20 22 3A 8B 47 24 B2 22 41 22 A7 | BOOK ":.G$."A".|
00001E80: 4B 24 B2 22 20 41 44 4A 55 53 54 20 22 00 A9 26 |K$." ADJUST "..&|
00001E90: FD 00 5A 44 B2 32 3A 4C 49 B2 39 3A 41 4E B2 31 |..ZD.2:LI.9:AN.1|
00001EA0: 3A 8B 47 B2 33 A7 32 36 39 00 CB 26 FF 00 8D 31 |:.G.3.269..&...1|
00001EB0: 34 31 3A 99 22 1D 1D 12 22 4B 24 22 49 4E 50 55 |41:."..."K$"INPU|
00001EC0: 54 20 53 54 4F 43 4B 20 92 11 22 00 ED 26 00 01 |T STOCK .."..&..|
00001ED0: 99 22 1D 1D 55 4E 49 54 53 3A 20 22 3B 3A 8D 33 |."..UNITS: ";:.3|
00001EE0: 32 3A 8B 49 4E 24 B2 22 22 A7 32 30 34 00 0A 27 |2:.IN$."".204..'|
00001EF0: 01 01 54 31 24 B2 C8 28 42 58 24 2C 4C 49 AB C3 |..T1$..(BX$,LI..|
00001F00: 28 49 4E 24 29 29 AA 49 4E 24 00 3D 27 02 01 54 |(IN$)).IN$.='..T|
00001F10: 31 B2 C5 28 49 4E 24 29 3A 8B 28 54 31 AA C5 28 |1..(IN$):.(T1..(|
00001F20: 50 24 28 50 28 49 29 2C 31 29 29 B3 30 29 B0 28 |P$(P(I),1)).0).(|
00001F30: 54 31 B1 B2 31 30 AE 35 29 A7 32 35 35 00 79 27 |T1..10.5).255.y'|
00001F40: 03 01 99 22 1D 91 22 42 58 24 22 91 22 3A 99 22 |...".."BX$".":."|
00001F50: 1D 1D 49 4E 43 4F 4D 49 4E 47 20 56 41 4C 55 45 |..INCOMING VALUE|
00001F60: 3A 20 22 3B 3A 41 4E B2 30 3A 8D 33 32 3A 8B 49 |: ";:AN.0:.32:.I|
00001F70: 4E 24 B2 22 22 A7 32 35 35 00 A5 27 04 01 8B 49 |N$."".255..'...I|
00001F80: 4E 24 B2 22 40 22 A7 54 32 B2 54 31 AC C5 28 CA |N$."@".T2.T1..(.|
00001F90: 28 53 24 28 50 28 49 29 29 2C 34 32 2C 37 29 29 |(S$(P(I)),42,7))|
00001FA0: 3A 89 32 36 32 00 CB 27 05 01 54 32 B2 C5 28 49 |:.262..'..T2..(I|
00001FB0: 4E 24 29 3A 8B 54 32 AA C5 28 50 24 28 50 28 49 |N$):.T2..(P$(P(I|
00001FC0: 29 2C 33 29 29 B3 30 A7 32 35 39 00 DF 27 06 01 |),3)).0.259..'..|
00001FD0: 5A B2 54 32 3A 8D 37 37 3A 54 32 24 B2 54 24 00 |Z.T2:.77:T2$.T$.|
00001FE0: 08 28 07 01 5A B2 C5 28 50 24 28 50 28 49 29 2C |.(..Z..(P$(P(I),|
00001FF0: 31 29 29 AA 54 31 3A 8D 37 37 3A 50 24 28 50 28 |1)).T1:.77:P$(P(|
00002000: 49 29 2C 31 29 B2 54 24 00 36 28 08 01 5A B2 C5 |I),1).T$.6(..Z..|
00002010: 28 50 24 28 50 28 49 29 2C 33 29 29 AA 54 32 3A |(P$(P(I),3)).T2:|
00002020: 8D 37 37 3A 50 24 28 50 28 49 29 2C 33 29 B2 54 |.77:P$(P(I),3).T|
00002030: 24 3A 5A 44 B2 30 00 5E 28 09 01 5A B2 C5 28 50 |$:ZD.0.^(..Z..(P|
00002040: 24 28 30 2C 33 29 29 AA 54 32 3A 8D 37 37 3A 50 |$(0,3)).T2:.77:P|
00002050: 24 28 30 2C 33 29 B2 54 24 3A 8D 32 38 38 00 A1 |$(0,3).T$:.288..|
00002060: 28 0A 01 49 24 B2 44 41 24 AA 44 54 24 AA 54 31 |(..I$.DA$.DT$.T1|
00002070: 24 AA 54 32 24 3A 8B 47 24 B2 22 54 22 A7 5A B2 |$.T2$:.G$."T".Z.|
00002080: C5 28 50 24 28 50 28 49 29 2C 35 29 29 AA 31 3A |.(P$(P(I),5)).1:|
00002090: 8D 37 37 3A 50 24 28 50 28 49 29 2C 35 29 B2 54 |.77:P$(P(I),5).T|
000020A0: 24 00 AA 28 0B 01 89 32 38 32 00 CD 28 0D 01 8D |$..(...282..(...|
000020B0: 31 34 31 3A 99 22 1D 1D 12 22 4B 24 22 4F 55 54 |141:."..."K$"OUT|
000020C0: 50 55 54 20 53 54 4F 43 4B 20 92 11 22 00 EF 28 |PUT STOCK .."..(|
000020D0: 0E 01 99 22 1D 1D 55 4E 49 54 53 3A 20 22 3B 3A |..."..UNITS: ";:|
000020E0: 8D 33 32 3A 8B 49 4E 24 B2 22 22 A7 32 30 34 00 |.32:.IN$."".204.|
000020F0: 2E 29 0F 01 54 31 24 B2 C8 28 42 58 24 2C 4C 49 |.)..T1$..(BX$,LI|
00002100: AB C3 28 49 4E 24 29 29 AA 49 4E 24 3A 54 31 B2 |..(IN$)).IN$:T1.|
00002110: C5 28 49 4E 24 29 3A 8B 54 31 AA C5 28 50 24 28 |.(IN$):.T1..(P$(|
00002120: 50 28 49 29 2C 32 29 29 B3 30 A7 32 36 39 00 5C |P(I),2)).0.269.\|
00002130: 29 10 01 8B 54 31 AA C5 28 50 24 28 50 28 49 29 |)...T1..(P$(P(I)|
00002140: 2C 32 29 29 B1 C5 28 50 24 28 50 28 49 29 2C 31 |,2))..(P$(P(I),1|
00002150: 29 29 A7 8D 31 34 31 3A 89 32 38 36 00 98 29 11 |))..141:.286..).|
00002160: 01 99 22 1D 91 22 42 58 24 22 91 22 3A 99 22 1D |..".."BX$".":.".|
00002170: 1D 4F 55 54 47 4F 49 4E 47 20 56 41 4C 55 45 3A |.OUTGOING VALUE:|
00002180: 20 22 3B 3A 41 4E B2 30 3A 8D 33 32 3A 8B 49 4E | ";:AN.0:.32:.IN|
00002190: 24 B2 22 22 A7 32 36 39 00 C4 29 12 01 8B 49 4E |$."".269..)...IN|
000021A0: 24 B2 22 40 22 A7 54 32 B2 54 31 AC C5 28 CA 28 |$."@".T2.T1..(.(|
000021B0: 53 24 28 50 28 49 29 29 2C 36 33 2C 37 29 29 3A |S$(P(I)),63,7)):|
000021C0: 89 32 37 36 00 EA 29 13 01 54 32 B2 C5 28 49 4E |.276..)..T2..(IN|
000021D0: 24 29 3A 8B 54 32 AA C5 28 50 24 28 50 28 49 29 |$):.T2..(P$(P(I)|
000021E0: 2C 34 29 29 B3 30 A7 32 37 33 00 FE 29 14 01 5A |,4)).0.273..)..Z|
000021F0: B2 54 32 3A 8D 37 37 3A 54 32 24 B2 54 24 00 27 |.T2:.77:T2$.T$.'|
00002200: 2A 15 01 5A B2 C5 28 50 24 28 50 28 49 29 2C 32 |*..Z..(P$(P(I),2|
00002210: 29 29 AA 54 31 3A 8D 37 37 3A 50 24 28 50 28 49 |)).T1:.77:P$(P(I|
00002220: 29 2C 32 29 B2 54 24 00 55 2A 16 01 5A B2 C5 28 |),2).T$.U*..Z..(|
00002230: 50 24 28 50 28 49 29 2C 34 29 29 AA 54 32 3A 8D |P$(P(I),4)).T2:.|
00002240: 37 37 3A 50 24 28 50 28 49 29 2C 34 29 B2 54 24 |77:P$(P(I),4).T$|
00002250: 3A 5A 44 B2 30 00 7D 2A 17 01 5A B2 C5 28 50 24 |:ZD.0.}*..Z..(P$|
00002260: 28 30 2C 34 29 29 AA 54 32 3A 8D 37 37 3A 50 24 |(0,4)).T2:.77:P$|
00002270: 28 30 2C 34 29 B2 54 24 3A 8D 32 38 38 00 C0 2A |(0,4).T$:.288..*|
00002280: 18 01 4F 24 B2 44 41 24 AA 44 54 24 AA 54 31 24 |..O$.DA$.DT$.T1$|
00002290: AA 54 32 24 3A 8B 47 24 B2 22 54 22 A7 5A B2 C5 |.T2$:.G$."T".Z..|
000022A0: 28 50 24 28 50 28 49 29 2C 36 29 29 AA 31 3A 8D |(P$(P(I),6)).1:.|
000022B0: 37 37 3A 50 24 28 50 28 49 29 2C 36 29 B2 54 24 |77:P$(P(I),6).T$|
000022C0: 00 F9 2A 1A 01 5A 44 B2 32 3A 5A B2 C5 28 50 24 |..*..ZD.2:Z..(P$|
000022D0: 28 50 28 49 29 2C 31 29 29 AB C5 28 50 24 28 50 |(P(I),1))..(P$(P|
000022E0: 28 49 29 2C 32 29 29 3A 8D 37 37 3A 50 24 28 50 |(I),2)):.77:P$(P|
000022F0: 28 49 29 2C 30 29 B2 54 24 00 18 2B 1B 01 53 24 |(I),0).T$..+..S$|
00002300: B2 C8 28 53 24 28 50 28 49 29 29 2C 36 39 29 3A |..(S$(P(I)),69):|
00002310: 52 24 B2 49 24 AA 4F 24 00 30 2B 1C 01 53 24 28 |R$.I$.O$.0+..S$(|
00002320: 50 28 49 29 29 B2 53 24 AA 52 24 3A 89 32 31 33 |P(I)).S$.R$:.213|
00002330: 00 6C 2B 1E 01 99 22 1D 1D 12 20 45 52 52 4F 52 |.l+..."... ERROR|
00002340: 20 92 11 22 3A 99 22 1D 1D 4E 4F 54 20 45 4E 4F | ..":."..NOT ENO|
00002350: 55 47 48 20 53 54 4F 43 4B 22 3A 81 4B B2 31 A4 |UGH STOCK":.K.1.|
00002360: 31 30 30 30 3A 82 4B 3A 89 32 36 39 00 A9 2B 20 |1000:.K:.269..+ |
00002370: 01 99 22 1D 1D 91 22 42 58 24 22 91 22 3A 99 22 |.."..."BX$".":."|
00002380: 1D 1D 44 45 54 41 49 4C 53 3A 20 22 3B 3A 4C 49 |..DETAILS: ";:LI|
00002390: B2 31 30 3A 8D 33 32 3A 8B 49 4E 24 B2 22 22 A7 |.10:.32:.IN$."".|
000023A0: 49 4E 24 B2 22 2A 2A 2A 22 00 CC 2B 21 01 44 54 |IN$."***"..+!.DT|
000023B0: 24 B2 22 20 22 AA 49 4E 24 AA C8 28 42 4C 24 2C |$." ".IN$..(BL$,|
000023C0: 31 31 AB C3 28 49 4E 24 29 29 3A 8E 00 FB 2B 23 |11..(IN$)):...+#|
000023D0: 01 52 24 B2 CA 28 53 24 28 50 28 49 29 29 2C 37 |.R$..(S$(P(I)),7|
000023E0: 30 29 3A 8C 3A 81 4B B2 31 A4 32 30 3A 87 44 24 |0):.:.K.1.20:.D$|
000023F0: 3A 82 3A 51 B2 49 3A 89 32 33 33 00 2B 2C 25 01 |:.:Q.I:.233.+,%.|
00002400: 8D 31 34 31 3A 99 22 1D 1D 45 4E 53 55 52 45 20 |.141:."..ENSURE |
00002410: 50 52 4F 47 52 41 4D 20 44 49 53 4B 20 49 53 20 |PROGRAM DISK IS |
00002420: 49 4E 20 44 52 49 56 45 2E 11 22 00 57 2C 26 01 |IN DRIVE..".W,&.|
00002430: 99 22 1D 1D 43 4F 4E 54 49 4E 55 45 20 3F 20 5B |."..CONTINUE ? [|
00002440: 12 59 92 2F 12 4E 92 5D 22 3A 8D 35 37 3A 8B 41 |.Y./.N.]":.57:.A|
00002450: B2 37 38 A7 32 30 34 00 8A 2C 27 01 8D 31 34 31 |.78.204..,'..141|
00002460: 3A 99 22 1D 1D 50 4C 45 41 53 45 20 57 41 49 54 |:."..PLEASE WAIT|
00002470: 20 2E 2E 2E 22 3A 8D 31 33 39 3A 46 53 B2 33 3A | ...":.139:FS.3:|
00002480: 93 22 50 52 49 4E 54 22 2C 38 00 93 2C 29 01 8D |."PRINT",8..,)..|
00002490: 31 34 31 00 CC 2C 2A 01 8B C5 28 50 24 28 50 28 |141..,*...(P$(P(|
000024A0: 49 29 2C 30 29 29 B2 30 AF C5 28 50 24 28 50 28 |I),0)).0..(P$(P(|
000024B0: 49 29 2C 33 29 29 B2 30 AF C5 28 50 24 28 50 28 |I),3)).0..(P$(P(|
000024C0: 49 29 2C 34 29 29 B2 30 A7 33 30 31 00 F9 2C 2B |I),4)).0.301..,+|
000024D0: 01 99 48 44 24 3A 99 22 1D 1D 12 20 44 45 4C 45 |..HD$:."... DELE|
000024E0: 54 49 4F 4E 20 92 20 20 49 53 20 4E 4F 54 20 50 |TION . IS NOT P|
000024F0: 4F 53 53 49 42 4C 45 11 22 00 23 2D 2C 01 99 22 |OSSIBLE.".#-,.."|
00002500: 1D 1D 57 48 49 4C 45 20 53 54 4F 43 4B 20 4D 4F |..WHILE STOCK MO|
00002510: 56 45 4D 45 4E 54 53 20 45 58 49 53 54 22 3A 89 |VEMENTS EXIST":.|
00002520: 31 33 32 00 3C 2D 2D 01 81 4A B2 30 A4 39 3A 8B |132.<--..J.0.9:.|
00002530: 52 24 28 4A 29 B2 22 22 A7 33 30 33 00 70 2D 2E |R$(J)."".303.p-.|
00002540: 01 82 3A 99 22 11 1D 1D 46 49 52 53 54 20 12 20 |..:."...FIRST . |
00002550: 50 52 49 4E 54 20 92 20 44 45 4C 45 54 49 4F 4E |PRINT . DELETION|
00002560: 53 20 52 45 50 4F 52 54 21 11 22 3A 89 31 33 32 |S REPORT!.":.132|
00002570: 00 A6 2D 2F 01 99 48 44 24 3A 99 22 1D 1D 11 41 |..-/..HD$:."...A|
00002580: 52 45 20 59 4F 55 20 53 55 52 45 20 3F 20 5B 12 |RE YOU SURE ? [.|
00002590: 59 92 2F 12 4E 92 5D 22 3A 8D 35 37 3A 8B 41 B2 |Y./.N.]":.57:.A.|
000025A0: 37 38 A7 32 31 33 00 DB 2D 30 01 99 48 44 24 3A |78.213..-0..HD$:|
000025B0: 99 22 1D 1D 11 53 54 4F 43 4B 20 52 45 43 4F 52 |."...STOCK RECOR|
000025C0: 44 20 12 20 44 45 4C 45 54 45 44 20 92 22 3A 81 |D . DELETED .":.|
000025D0: 4B B2 31 A4 31 30 30 30 3A 82 4B 00 1C 2E 31 01 |K.1.1000:.K...1.|
000025E0: 52 24 28 4A 29 B2 C8 28 53 24 28 50 28 49 29 29 |R$(J)..(S$(P(I))|
000025F0: 2C 34 31 29 3A 53 24 28 50 28 49 29 29 B2 22 22 |,41):S$(P(I)).""|
00002600: 3A 50 28 49 29 B2 30 3A 4E B2 4E AB 31 3A 53 B2 |:P(I).0:N.N.1:S.|
00002610: 53 AA 31 3A 8B 4E B1 30 A7 33 36 32 00 4F 2E 32 |S.1:.N.0.362.O.2|
00002620: 01 99 22 91 1D 1D 12 20 4E 4F 20 52 45 43 4F 52 |..".... NO RECOR|
00002630: 44 53 20 45 58 49 53 54 20 4F 4E 20 46 49 4C 45 |DS EXIST ON FILE|
00002640: 20 22 3A 81 4B B2 31 A4 32 30 30 30 3A 82 4B 00 | ":.K.1.2000:.K.|
00002650: 6D 2E 33 01 4D 24 B2 22 2D 20 50 52 45 53 53 20 |m.3.M$."- PRESS |
00002660: 2A 20 54 4F 20 45 4E 44 22 3A 89 31 38 00 85 2E |* TO END":.18...|
00002670: 35 01 8D 31 34 31 3A 4A B2 49 AB 31 3A 8B 4A B3 |5..141:J.I.1:.J.|
00002680: 31 A7 4A B2 30 00 96 2E 36 01 4B B2 4A AB 31 3A |1.J.0...6.K.J.1:|
00002690: 81 4C B2 31 A4 33 00 B9 2E 37 01 4B B2 4B AA 31 |.L.1.3...7.K.K.1|
000026A0: 3A 8B 50 28 4B 29 B2 30 AF 28 4B B1 30 AF 4B B3 |:.P(K).0.(K.0.K.|
000026B0: B2 4E AA 53 29 A7 33 31 31 00 DD 2E 38 01 8B 4B |.N.S).311...8..K|
000026C0: B3 31 B0 4B B1 4E AA 53 A7 4B 24 28 4C 29 B2 22 |.1.K.N.S.K$(L)."|
000026D0: 9D 9D 20 22 AA 42 58 24 3A 89 33 31 34 00 10 2F |.. ".BX$:.314../|
000026E0: 39 01 4B 24 28 4C 29 B2 22 20 22 AA C8 28 53 24 |9.K$(L)." "..(S$|
000026F0: 28 50 28 4B 29 29 2C 33 34 29 3A 8B 4C B2 32 A7 |(P(K)),34):.L.2.|
00002700: 4B 24 28 4C 29 B2 22 9E 12 22 AA 4B 24 28 4C 29 |K$(L)."..".K$(L)|
00002710: 00 33 2F 3A 01 82 4C 3A 99 48 44 24 3A 81 4C B2 |.3/:..L:.HD$:.L.|
00002720: 31 A4 33 3A 99 22 1D 05 3E 20 22 4B 24 28 4C 29 |1.3:."..> "K$(L)|
00002730: 3A 82 4C 00 64 2F 3B 01 99 22 11 11 22 42 4C 24 |:.L.d/;..".."BL$|
00002740: 3A 99 22 91 9E 42 52 4F 57 53 45 3A 20 22 3B 3A |:."..BROWSE: ";:|
00002750: 8B 4A AA 31 B3 4E A7 99 22 12 4E 92 45 58 54 20 |.J.1.N..".N.EXT |
00002760: 2F 20 22 3B 00 7D 2F 3C 01 8B 4A AA 31 B1 31 A7 |/ ";.}/<..J.1.1.|
00002770: 99 22 12 4C 92 41 53 54 20 2F 20 22 3B 00 94 2F |.".L.AST / ";../|
00002780: 3D 01 99 22 12 56 92 49 45 57 20 2F 20 12 45 92 |=..".V.IEW / .E.|
00002790: 58 49 54 22 00 B3 2F 3E 01 8D 35 35 3A 8B 41 B2 |XIT"../>..55:.A.|
000027A0: 37 38 AF 4A AA 31 B3 4E A7 4A B2 4A AA 31 3A 89 |78.J.1.N.J.J.1:.|
000027B0: 33 31 30 00 CE 2F 3F 01 8B 41 B2 37 36 AF 4A AA |310../?..A.76.J.|
000027C0: 31 B1 31 A7 4A B2 4A AB 31 3A 89 33 31 30 00 E3 |1.1.J.J.1:.310..|
000027D0: 2F 40 01 8B 41 B2 38 36 A7 49 B2 4B AB 31 3A 89 |/@..A.86.I.K.1:.|
000027E0: 33 32 32 00 F2 2F 41 01 8B 41 B3 B1 36 39 A7 33 |322../A..A..69.3|
000027F0: 31 38 00 03 30 42 01 99 22 91 22 42 4C 24 3A 89 |18..0B.."."BL$:.|
00002800: 32 31 31 00 1C 30 44 01 8D 31 34 31 3A 99 22 1D |211..0D..141:.".|
00002810: 1D 12 20 45 4E 54 45 52 20 12 11 22 00 54 30 45 |.. ENTER ..".T0E|
00002820: 01 99 22 1D 1D 52 45 46 45 52 45 4E 43 45 20 54 |.."..REFERENCE T|
00002830: 4F 20 46 49 4E 44 3A 20 22 3B 3A 41 4E B2 30 3A |O FIND: ";:AN.0:|
00002840: 4C 49 B2 33 3A 8D 33 32 3A 8B 49 4E 24 B2 22 22 |LI.3:.32:.IN$.""|
00002850: A7 32 30 34 00 78 30 46 01 8B C3 28 49 4E 24 29 |.204.x0F...(IN$)|
00002860: B3 4C 49 A7 99 22 91 1D 1D 22 42 58 24 3A 99 22 |.LI.."..."BX$:."|
00002870: 91 22 3B 3A 89 33 32 35 00 A8 30 47 01 4A B2 31 |.";:.325..0G.J.1|
00002880: 3A 4B B2 4E AA 53 3A 81 4C B2 4A A4 4B 3A 8B C8 |:K.N.S:.L.J.K:..|
00002890: 28 53 24 28 50 28 4C 29 29 2C 33 29 B3 B1 49 4E |(S$(P(L)),3)..IN|
000028A0: 24 A7 82 3A 89 33 32 39 00 BB 30 48 01 49 B2 4C |$..:.329..0H.I.L|
000028B0: 3A 4C B2 4B 3A 82 3A 89 32 31 31 00 E6 30 49 01 |:L.K:.:.211..0I.|
000028C0: 8D 31 34 31 3A 99 22 1D 1D 11 05 12 20 22 49 4E |.141:."..... "IN|
000028D0: 24 22 20 92 9E 20 4E 4F 54 20 46 4F 55 4E 44 11 |$" .. NOT FOUND.|
000028E0: 22 3A 89 31 33 32 00 16 31 4B 01 8D 31 34 31 3A |":.132..1K..141:|
000028F0: 99 22 1D 1D 12 20 44 41 54 45 20 20 92 20 20 20 |."... DATE . |
00002900: 05 22 C8 28 49 24 2C 38 29 A6 54 53 AB 31 29 C8 |.".(I$,8).TS.1).|
00002910: 28 4F 24 2C 38 29 00 47 31 4C 01 99 22 1D 1D 9E |(O$,8).G1L.."...|
00002920: 12 20 55 4E 49 54 53 20 92 20 20 05 22 CA 28 49 |. UNITS . .".(I|
00002930: 24 2C 32 31 2C 39 29 A6 54 53 AB 32 29 CA 28 4F |$,21,9).TS.2).(O|
00002940: 24 2C 32 31 2C 39 29 00 80 31 4D 01 99 22 1D 1D |$,21,9)..1M.."..|
00002950: 9E 12 20 56 41 4C 55 45 20 92 20 20 05 22 CA 28 |.. VALUE . .".(|
00002960: 49 24 2C 33 30 2C 39 29 A6 54 53 AB 32 29 CA 28 |I$,30,9).TS.2).(|
00002970: 4F 24 2C 33 30 2C 39 29 22 9E 22 3A 89 31 33 32 |O$,30,9)".":.132|
00002980: 00 B0 31 4F 01 8D 31 34 31 3A 99 22 1D 1D 55 50 |..1O..141:."..UP|
00002990: 44 41 54 45 3A 22 3A 43 B2 30 3A 81 4A B2 31 A4 |DATE:":C.0:.J.1.|
000029A0: 4E AA 53 3A 56 B2 C5 28 50 24 28 4A 2C 30 29 29 |N.S:V..(P$(J,0))|
000029B0: 00 E0 31 50 01 57 B2 C5 28 CA 28 53 24 28 4A 29 |..1P.W..(.(S$(J)|
000029C0: 2C 34 31 2C 37 29 29 3A 43 B2 43 AA 28 56 AC 57 |,41,7)):C.C.(V.W|
000029D0: 29 3A 82 3A 5A 44 B2 30 3A 5A B2 43 3A 8D 37 37 |):.:ZD.0:Z.C:.77|
000029E0: 00 16 32 51 01 99 22 1D 1D 12 20 4C 49 4E 45 53 |..2Q.."... LINES|
000029F0: 20 92 22 3B 3A 4E 24 B2 C4 28 4E 29 3A 99 22 05 | .";:N$..(N):.".|
00002A00: 22 4E 24 22 9E 22 C8 28 42 4C 24 2C 31 31 AB C3 |"N$".".(BL$,11..|
00002A10: 28 4E 24 29 29 3B 00 4A 32 52 01 99 22 12 20 20 |(N$));.J2R..". |
00002A20: 49 4E 50 55 54 20 92 05 22 50 24 28 30 2C 33 29 |INPUT .."P$(0,3)|
00002A30: 22 9E 22 3A 99 22 1D 1D 12 20 56 41 4C 55 45 20 |".":."... VALUE |
00002A40: 92 20 05 22 54 24 22 9E 22 3B 00 6D 32 53 01 99 |. ."T$".";.m2S..|
00002A50: 22 20 12 20 4F 55 54 50 55 54 20 92 05 22 50 24 |" . OUTPUT .."P$|
00002A60: 28 30 2C 34 29 22 9E 22 3A 89 31 33 32 00 9F 32 |(0,4)".":.132..2|
00002A70: 55 01 8D 31 34 31 3A 99 22 1D 1D 50 52 49 43 45 |U..141:."..PRICE|
00002A80: 53 3A 20 20 20 20 20 49 4E 50 55 54 20 20 20 4F |S: INPUT O|
00002A90: 55 54 50 55 54 20 20 20 4D 41 52 47 49 4E 22 00 |UTPUT MARGIN".|
00002AA0: B9 32 56 01 42 24 B2 C8 28 42 58 24 2C 39 29 3A |.2V.B$..(BX$,9):|
00002AB0: 5A B2 30 3A 5A 44 B2 44 31 00 F3 32 57 01 54 24 |Z.0:ZD.D1..2W.T$|
00002AC0: B2 42 24 3A 56 B2 C5 28 CA 28 49 24 2C 33 30 2C |.B$:V..(.(I$,30,|
00002AD0: 39 29 29 3A 57 B2 C5 28 CA 28 49 24 2C 32 31 2C |9)):W..(.(I$,21,|
00002AE0: 39 29 29 3A 8B 57 B3 B1 30 A7 5A B2 56 AD 57 3A |9)):.W..0.Z.V.W:|
00002AF0: 8D 37 37 00 0F 33 58 01 99 22 1D 1D 12 4C 41 53 |.77..3X.."...LAS|
00002B00: 54 20 55 50 92 20 05 22 54 24 3B 3A 54 B2 5A 00 |T UP. ."T$;:T.Z.|
00002B10: 49 33 59 01 54 24 B2 42 24 3A 58 B2 C5 28 CA 28 |I3Y.T$.B$:X..(.(|
00002B20: 4F 24 2C 33 30 2C 39 29 29 3A 59 B2 C5 28 CA 28 |O$,30,9)):Y..(.(|
00002B30: 4F 24 2C 32 31 2C 39 29 29 3A 8B 59 B3 B1 30 A7 |O$,21,9)):.Y..0.|
00002B40: 5A B2 58 AD 59 3A 8D 37 37 00 60 33 5A 01 99 54 |Z.X.Y:.77.`3Z..T|
00002B50: 24 3B 3A 5A B2 5A AB 54 3A 8D 37 37 3A 99 54 24 |$;:Z.Z.T:.77:.T$|
00002B60: 00 9A 33 5B 01 54 24 B2 42 24 3A 56 B2 C5 28 50 |..3[.T$.B$:V..(P|
00002B70: 24 28 50 28 49 29 2C 33 29 29 3A 57 B2 C5 28 50 |$(P(I),3)):W..(P|
00002B80: 24 28 50 28 49 29 2C 31 29 29 3A 8B 57 B3 B1 30 |$(P(I),1)):.W..0|
00002B90: A7 5A B2 56 AD 57 3A 8D 37 37 00 B7 33 5C 01 99 |.Z.V.W:.77..3\..|
00002BA0: 22 1D 1D 9E 12 41 56 45 52 41 47 45 92 20 05 22 |"....AVERAGE. ."|
00002BB0: 54 24 3B 3A 54 B2 5A 00 F1 33 5D 01 54 24 B2 42 |T$;:T.Z..3].T$.B|
00002BC0: 24 3A 56 B2 C5 28 50 24 28 50 28 49 29 2C 34 29 |$:V..(P$(P(I),4)|
00002BD0: 29 3A 57 B2 C5 28 50 24 28 50 28 49 29 2C 32 29 |):W..(P$(P(I),2)|
00002BE0: 29 3A 8B 57 B3 B1 30 A7 5A B2 56 AD 57 3A 8D 37 |):.W..0.Z.V.W:.7|
00002BF0: 37 00 15 34 5E 01 99 54 24 3B 3A 5A B2 5A AB 54 |7..4^..T$;:Z.Z.T|
00002C00: 3A 8D 37 37 3A 99 54 24 22 9E 22 3A 5A 44 B2 32 |:.77:.T$".":ZD.2|
00002C10: 3A 89 31 33 32 00 26 34 60 01 41 59 B2 4E AA 53 |:.132.&4`.AY.N.S|
00002C20: 3A 41 58 B2 41 59 00 41 34 61 01 41 58 B2 B5 28 |:AX.AY.A4a.AX..(|
00002C30: 41 58 AD 32 29 3A 8B 41 58 B2 30 A7 49 B2 31 3A |AX.2):.AX.0.I.1:|
00002C40: 8E 00 53 34 62 01 41 4A B2 31 3A 41 4B B2 41 59 |..S4b.AJ.1:AK.AY|
00002C50: AB 41 58 00 5D 34 63 01 41 49 B2 41 4A 00 92 34 |.AX.]4c.AI.AJ..4|
00002C60: 64 01 41 4C B2 41 49 AA 41 58 3A 8B CA 28 53 24 |d.AL.AI.AX:..(S$|
00002C70: 28 50 28 41 49 29 29 2C 56 2C 57 29 B3 B2 CA 28 |(P(AI)),V,W)...(|
00002C80: 53 24 28 50 28 41 4C 29 29 2C 56 2C 57 29 A7 33 |S$(P(AL)),V,W).3|
00002C90: 35 39 00 C5 34 65 01 58 B2 50 28 41 49 29 3A 50 |59..4e.X.P(AI):P|
00002CA0: 28 41 49 29 B2 50 28 41 4C 29 3A 50 28 41 4C 29 |(AI).P(AL):P(AL)|
00002CB0: B2 58 3A 41 49 B2 41 49 AB 41 58 3A 8B 41 49 B3 |.X:AI.AI.AX:.AI.|
00002CC0: 31 A7 33 35 39 00 CE 34 66 01 89 33 35 36 00 E5 |1.359..4f..356..|
00002CD0: 34 67 01 41 4A B2 41 4A AA 31 3A 8B 41 4A B1 41 |4g.AJ.AJ.1:.AJ.A|
00002CE0: 4B A7 33 35 33 00 EE 34 68 01 89 33 35 35 00 03 |K.353..4h..355..|
00002CF0: 35 6A 01 49 B2 49 AB 31 3A 8B 49 B3 31 A7 49 B2 |5j.I.I.1:.I.1.I.|
00002D00: 4E AA 53 00 13 35 6B 01 8B 50 28 49 29 B2 30 A7 |N.S..5k..P(I).0.|
00002D10: 33 36 32 00 1C 35 6C 01 89 32 31 31 00 31 35 6E |362..5l..211.15n|
00002D20: 01 49 B2 49 AA 31 3A 8B 49 B1 4E AA 53 A7 49 B2 |.I.I.1:.I.N.S.I.|
00002D30: 31 00 41 35 6F 01 8B 50 28 49 29 B2 30 A7 33 36 |1.A5o..P(I).0.36|
00002D40: 36 00 4A 35 70 01 89 32 31 31 00 52 35 |6.J5p..211.R5 |
..F.... ** STOCKAID 64 STOCKS ** (C) DIA
LOG SOFTWARE JAN 1984 ** 0404.S....FS..
0.8.P....:.53280,3:.53281,6:."."......11
0:F$."S T O C K A I D":H$.F$:.6:.8.....R
.130:.S$(R),P(R),P$(R,6),R$(9):......CB$
.".......................":HD$."........
..........":CD$.".....".9...LN$.".......
................................".....BX
$." "
:BL$.BX$." ":CR$.G(13).C...ZR.0:Z1.0:Z
$."":ZH..5:ZD.2:Z.0:ZF.9:ZZ$."000000":ZF
$." ".....Z(0).1:.J.1.10:Z(J).Z(J.
1).10:.:.FS..0.145./....HD$CD$"REPORT DA
TE [.DD/MM/YY.] : ";:LI.8:AN.1:.32:AN.0.
X...DA$.IN$:.DA$."".C(DA$)..LI.."..":.15
......G(9)G(14):.69:.". STOCK RECORDS ..
."......".C.REATE NEW FILE OR .L.OAD E
XISTING FILE":.HD$CD$LN$.T....61:.G$..CR
$.23......F$..H$.146......69:.15.....G.F
(G$):.G..67.G..76.G..42.20. ....G.42.199
.3....G.76.G.0:.156.O...."......"BL$:.".
ENTER FILE . NAME . : ";:AN.0:LI.12:.32.
~....IN$."".18.....F$.IN$:.126:.G.0.158.
....146.E. ..".[";H(BL$,LI);"]";H(CB$,L
I.1);...!.IN$." ":IT.TI:IC.2..."..IP$:.I
P$.."".37.!.#..IT..TI..J(" .",IC,1);".";
:IC.3.IC:IT.TI.15.).$..34.Q.%.AS.F(IP$):
IL.C(IN$):.(AS.127).32.44.L.&..AN.1.(AS.
45.AS.57).34...'..AS.34.AS.44.AS.58.34..
.(..IL.LI.1.43...)..IP$:.IP$."".40...*..
37...+.IN$.IN$.IP$:.IP$;:IL.C(IN$):.IL.L
I.1.."].";:.41...,..AS.13..50:IN$.J(IN$,
2):.:.52.,.-..AS.20.IL.1.IN$.H(IN$,IL.1)
:.48.W....AS.141.IL.1..50:.K.2.IL:.". ."
;:.:.33._./..34...0.BU$." ..":.C(IN$).LI
.BU$."].."...1..BU$;:.34...2..IL.LI.1.."
.";...3...C.4..H(IN$,1)." ".IN$."".O.5.
.".";:....7.G$."":.G$:.G$."".55...8.A.F(
G$):....9.G$."":.G$:.G$."".57.).:.A.F(G$
):.A..89.A..78.57./.;...;.=..HD$CD$.O.>.
.". SELECT . LETTER "M$;:.K.1.C(M$).17:
.".";:....?.G$."":.G$:.G$..""..BL$".":..
..@..K.1.400:.K:." SELECT . LETTER . "M$
;...A..K.1.C(M$).17:.".";:.:.K.1.400:.K:
.62...C.M$."OR <RETURN> MENU":..%.E.."..
";F$;.31.C(F$));DA$".":.LN$:..D.G..".";F
$;.31.C(F$));DA$:.75.[.H..F$;.71.C(F$));
DA$.N.I.."----------";...J.."-----------
-------------------";.F.K.."------------
---------------------------":....M.ZR.Z(
ZD):Z1..(.(Z).ZR.ZH).ZR:.ZD.0.Z$.D(Z1):.
80.4.N.ZI..(Z1):ZJ..((Z1.ZI).ZR.ZH):ZI$.
D(ZI):ZJ$.J(D(ZJ),2).G.O.Z$.ZI$.".".I((Z
Z$.ZJ$),ZD):.Z.0.Z$."-".J(Z$,2)...P.T$.I
(ZF$.Z$,ZF):.C(Z$).ZF.T$.H(Z$,ZF)...Q...
..S..P2.1..G(10)...T...J.V..". STOCK COD
E . "...W..". DESCRIPTION .
". .X..". SUPPLIER .
".O.Y..".................
......................"...Z..". CU COST
. . CU SALE . "...[..
".......................................
".T.\.."INPUTS OUTPUTS"...]
..". UNITS . . UNITS .
".:.^..". VALUE . . VA
LUE . ".M._..". TRANS .
. TRANS . "...`.."....
...................................".O.A
..". BALANCE . . MINIMUM .
"...B..". C VALUE . . RE
ORDER . ".5.C..". PROFIT .
. R VALUE . ".D.D.."....
..................................."...E
..".....................................
...".C.F..".
."...G..".
.".!.H..".
.".Q.I.."........
................................"...J.."
STOCK CODE",1,3,0,"DESCRIPTION",5,20,0,"
SUPPLIER",26,15,0.T.K.."CURRENT UNIT COS
T PRICE",42,6,1,"MINIMUM STOCK LEVEL",49
,6,1...L.."RE-ORDER QUANTITY",56,6,1,"CU
RRENT UNIT SALE PRICE",63,6,1.X.N.L$(1).
" . . . . . . . . . . .... .
. . . . ."...O.L$(2)." . . .
. . . . . . . . . . ..... . . . . .
. . . . ."...P.L$(3)." . . . . .
. . . . . . . . . . . . . . . .
.".5.Q.L$(4)." . . . . . . . . .
. . . . ..... . . . . . . . . . .".Z.
R.L$(5)." . . . . . . . . . .
.... . . . . . . . ."...S.L$."
":.G(142)G(8
)"..."...T..K.1.16:..3)"."L$".":.:."..."
:.K.1.250:....U..K.1.5:.L$(K):.J.1.50:.J
,K:." "L$:." "L$.8.V...9)".. STOCK C
ONTROL SYSTEM .".Y.W...3);:.K.1.16:.". .
";:.:.:..U.X...12)". F . R . O . M "...
Y..:..8)".. D . I . A . L . O . G ".I.Z.
.:..4)". S . O . F . T . W . A . R . E .
"...{..:..3);:.K.1.16:.". . ";:....|..".
..":....~.S$(0)."":.K.0.R:P(K).0:.:M$.""
.L..S.0:N.0:I.0:F.0:C.0:D1.2:D2.0:P1.0:
P2.0:TS.10:..W...."..";......". PRESS .
ANY KEY TO CONTINUE":.55:.......129:.213
.C....HD$CD$LN$:.BL$:.".ARE YOU SURE ? [
.Y./.N.]":.......15,8,15:.15,E,E$:.E.19.
...... 1:.HD$CD$"."E$": . PRESS . ANY KE
Y": 15:.55:..,....15,8,15,"I0": 15:..M..
..HD$:.K.1.3:..2)BX$:.:.HD$:..M....:."..
":.K.1.20:.D$:.D$:.:..{....FS.3.204.....
M$." ":.69:."S T O C K A I D..".N....".A
.CCESS STOCK RECORDS..":.F.0..CD$:.150..
....".G.ENERATE REPORTS.."......".S.AVE
STOCK FILE.."......".C.ALL UTILITIES..".
:....".R.ESTART PROGRAM..".U....".E.ND P
ROGRAM.":.LN$......61:.G.1.6:.G$..J("SGC
REA",G,1)..:.153......G.156,189,189,195,
199,202.S...K$."SAVE ":.G.0.K$."LOAD ":F
$."S T O C K A I D"......69:.". "K$"STOC
K FILE ...":.G.0.27. ...."."CD$BL$:.".."
F$". ";:.G.0.178.O....139:.1,8,1,"@0:".F
$.",S,W":.136:.E.18.156.B...."FILE SAVIN
G".....X$.D(N):.1,X$;CR$;:.K.1.N.S:.P(K)
.0.171......1,D(P(K)).L...X$.H(S$(P(K)),
79):.1,X$;CR$;:.C(X$).79.171......1,J(S$
(P(K)),80)......K:.K.1.N.S:.L.0.6:.P(K).
0.L.5:.173.%....1,"[";P$(P(K),L);CR$;.L.
...L,K:.K.3.4:.1,"[";P$(0,K);CR$;:.K.|..
.X$.D(D1):Y$.D(D2):.1,X$;CR$;Y$;CR$;DA$;
CR$;..... 1: 15:.146......139:.1,8,0,"0:
".F$.",S,R":.136:.E.18.156.O...."FILE LO
ADING";......1,X$:N.E(X$):.K.1.N:.1,X$:P
(K).E(X$)......1,X$:Y$."":.C(X$).69..1,Y
$.3...S$(K).X$.Y$:P(K).K:.K.`....K.1.N:.
L.0.6:.1,X$:P$(K,L).J(X$,2):.L,K......K.
3.4:.1,X$:P$(0,K).J(X$,2):.K......1,X$,Y
$,K$:D1.E(X$):D2.E(Y$).W... 1: 15:."...E
D ":."..LAST REPORT DATE : ";K$.....F.1:
.129:.146.-...K$."REPORTS":KK$.K$:FS.1:.
G.3.K$."UTILITIES":KK$."HANDLER":FS.2.C.
...69:.". "K$" ...".T...."PLEASE ENSURE
PROGRAM DISK IS IN DRIVE...". ....".CONT
INUE. ? [.Y./.N.]":.57:.A.78.146.U.A..69
:.". "K$" ...":.139:."PLEASE WAIT ...":.
KK$,8...C..69:."RESTART PROGRAM..":.". W
A R N I N G ..".C.D.."CONTENTS OF MEMOR
Y WILL BE LOST!":.134:.57:.A.78.146.J.E.
.3...G..69:.". END . S T O C K A I D":.
134:.57:.A.78.146...H..110:....J..69:.14
3:.67:.F.1..367:.211...K.G.1:.230...L..H
D$".. .E.NTER .I.NPUT .B.ROWSE
.P.RINT ".) M..". .A.MEND .O.UTPUT
.F.IND .C.OMPARE ".A N..". .D.ELE
TE .R.ECALL .<. OR .>. .U.PDATE
".U O..61:.G$.CR$.146.. P..G.1.13:.G$..J
("EIOAPDBFRUC<>",G,1)..:.207.. Q..G.229,
250,250,291,293,297,309,324,331,335,341,
362,366..!S.I$.J(S$(P(I)),70,38):O$.J(S$
(P(I)),108,38).3!U.ZD.D1:."....".TS.5)H(
S$(P(I)),4).H!V...TS.5)J(S$(P(I)),5,21):
..TS.5)J(S$(P(I)),26,16)..!W.Z.E(J(S$(P(
I)),42,7)):.77:U.Z:.".".TS)T$.TS.1);.H!X
.Z.E(J(S$(P(I)),63,7)):.77:.T$"..":ZD.D2
..!Y.Z.E(P$(P(I),1)):.77:..TS)T$.TS.1);.
."Z.Z.E(P$(P(I),2)):.77:.T$./"....TS)P$(
P(I),3).TS.1)P$(P(I),4).E"....TS)P$(P(I)
,5).TS.1)P$(P(I),6):.:B.E(P$(P(I),0)).."
..Z.B:.77:..TS)T$.TS.1)J(S$(P(I)),49,7):
ZD.2.."..Z.B.U:.77:..TS)T$.TS.1)J(S$(P(I
)),56,7).."..T.E(P$(P(I),3)).Z:Z.E(P$(P(
I),4)).T:.77:..TS)T$.TS.1);.,#..Z.E(J(S$
(P(I)),56,7)).U:.77:.T$".":.G..1.204.C#.
..141:."...ANOTHER ENTRY ? [.Y./.N.]":.5
7:.A.78.204.L#...229..#..IN.C(IN$):IN$.I
N$.H(BL$,LI.1.IN):..A#...143:.N.1.R..141
:."...FILE IS FULL.":.132..#..I$."":O$."
":N.N.1:Q.0..#...Q.1.N.S:.P(Q)..0....$..
P(Q).Q:P.S:.Q.N.S.S.1.,$..K$."ENTER":.G.
4.K$."AMEND"._$..S$."":.141:."... "K$" .
..":.J.0.6:.D$,MS,LI,AN..$..."..."D$": "
;:.32:.IN$.."".240..$...F.0.J.0.146..$..
.G.4.T$(J).J(S$(I),MS,LI.1):.246..$...J.
0.P(Q).0:S.P:N.N.1:G.0:.213..$..IN$."?".
.$...J..0.245..%...C(IN$).LI.H(IN$,1)."
".235.1%...G.4.H(S$(J),3).IN$.246.W%...K
.1.N.S:.H(S$(K),3)..IN$..K:.245..%..K.N.
S:.K:."....[.."IN$"..] ALREADY ALLOCATED
...":.235..%...228:T$(J).IN$.L%...".."BX
$:.HD$"....."BX$:.J:.F.0.F.1..%...J.0.6:
S$.S$.T$(J):.:I.Q:.G.4.284..&...J.0.6:Z.
0:ZD.0:.77:P$(Q,J).T$:.J:.284.J&...141:.
"....T.RANSACTION OR .A.DJUSTMENT".G&...
61:.G$.."T".G$.."A".204..&..K$." BOOK ":
.G$."A".K$." ADJUST "..&..ZD.2:LI.9:AN.1
:.G.3.269.K&...141:."..."K$"INPUT STOCK
.."..&..."..UNITS: ";:.32:.IN$."".204..'
..T1$.H(BX$,LI.C(IN$)).IN$.='..T1.E(IN$)
:.(T1.E(P$(P(I),1)).0).(T1..10.5).255.Y'
...".."BX$".":."..INCOMING VALUE: ";:AN.
0:.32:.IN$."".255..'...IN$."@".T2.T1.E(J
(S$(P(I)),42,7)):.262.K'..T2.E(IN$):.T2.
E(P$(P(I),3)).0.259..'..Z.T2:.77:T2$.T$.
.(..Z.E(P$(P(I),1)).T1:.77:P$(P(I),1).T$
.6(..Z.E(P$(P(I),3)).T2:.77:P$(P(I),3).T
$:ZD.0.^(..Z.E(P$(0,3)).T2:.77:P$(0,3).T
$:.288..(..I$.DA$.DT$.T1$.T2$:.G$."T".Z.
E(P$(P(I),5)).1:.77:P$(P(I),5).T$..(...2
82.M(...141:."..."K$"OUTPUT STOCK .."..(
..."..UNITS: ";:.32:.IN$."".204..)..T1$.
H(BX$,LI.C(IN$)).IN$:T1.E(IN$):.T1.E(P$(
P(I),2)).0.269.\)...T1.E(P$(P(I),2)).E(P
$(P(I),1))..141:.286..)...".."BX$".":.".
.OUTGOING VALUE: ";:AN.0:.32:.IN$."".269
.D)...IN$."@".T2.T1.E(J(S$(P(I)),63,7)):
.276..)..T2.E(IN$):.T2.E(P$(P(I),4)).0.2
73..)..Z.T2:.77:T2$.T$.'*..Z.E(P$(P(I),2
)).T1:.77:P$(P(I),2).T$.U*..Z.E(P$(P(I),
4)).T2:.77:P$(P(I),4).T$:ZD.0.}*..Z.E(P$
(0,4)).T2:.77:P$(0,4).T$:.288..*..O$.DA$
.DT$.T1$.T2$:.G$."T".Z.E(P$(P(I),6)).1:.
77:P$(P(I),6).T$..*..ZD.2:Z.E(P$(P(I),1)
).E(P$(P(I),2)):.77:P$(P(I),0).T$..+..S$
.H(S$(P(I)),69):R$.I$.O$.0+..S$(P(I)).S$
.R$:.213.L+..."... ERROR ..":."..NOT ENO
UGH STOCK":.K.1.1000:.K:.269..+ .."..."B
X$".":."..DETAILS: ";:LI.10:.32:.IN$."".
IN$."***".L+!.DT$." ".IN$.H(BL$,11.C(IN$
)):...+#.R$.J(S$(P(I)),70):.:.K.1.20:.D$
:.:Q.I:.233.+,%..141:."..ENSURE PROGRAM
DISK IS IN DRIVE..".W,&.."..CONTINUE ? [
.Y./.N.]":.57:.A.78.204..,'..141:."..PLE
ASE WAIT ...":.139:FS.3:."PRINT",8..,)..
141.L,*..E(P$(P(I),0)).0.E(P$(P(I),3)).0
.E(P$(P(I),4)).0.301..,+..HD$:."... DELE
TION . IS NOT POSSIBLE.".#-,.."..WHILE
STOCK MOVEMENTS EXIST":.132.<--..J.0.9:.
R$(J)."".303.P-...:."...FIRST . PRINT .
DELETIONS REPORT!.":.132..-/..HD$:."...A
RE YOU SURE ? [.Y./.N.]":.57:.A.78.213..
-0..HD$:."...STOCK RECORD . DELETED .":.
K.1.1000:.K...1.R$(J).H(S$(P(I)),41):S$(
P(I))."":P(I).0:N.N.1:S.S.1:.N.0.362.O.2
..".... NO RECORDS EXIST ON FILE ":.K.1.
2000:.K.M.3.M$."- PRESS * TO END":.18...
5..141:J.I.1:.J.1.J.0...6.K.J.1:.L.1.3..
.7.K.K.1:.P(K).0.(K.0.K..N.S).311...8..K
.1.K.N.S.K$(L).".. ".BX$:.314../9.K$(L).
" ".H(S$(P(K)),34):.L.2.K$(L)."..".K$(L)
.3/:..L:.HD$:.L.1.3:."..> "K$(L):.L.D/;.
.".."BL$:."..BROWSE: ";:.J.1.N..".N.EXT
/ ";.}/<..J.1.1..".L.AST / ";../=..".V.I
EW / .E.XIT"../>..55:.A.78.J.1.N.J.J.1:.
310.N/?..A.76.J.1.1.J.J.1:.310../@..A.86
.I.K.1:.322../A..A..69.318..0B.."."BL$:.
211..0D..141:."... ENTER ..".T0E.."..REF
ERENCE TO FIND: ";:AN.0:LI.3:.32:.IN$.""
.204.X0F..C(IN$).LI.."..."BX$:.".";:.325
..0G.J.1:K.N.S:.L.J.K:.H(S$(P(L)),3)..IN
$..:.329..0H.I.L:L.K:.:.211..0I..141:.".
.... "IN$" .. NOT FOUND.":.132..1K..141:
."... DATE . ."H(I$,8).TS.1)H(O$,8).G
1L..".... UNITS . ."J(I$,21,9).TS.2)J(O
$,21,9)..1M..".... VALUE . ."J(I$,30,9)
.TS.2)J(O$,30,9)".":.132..1O..141:."..UP
DATE:":C.0:.J.1.N.S:V.E(P$(J,0))..1P.W.E
(J(S$(J),41,7)):C.C.(V.W):.:ZD.0:Z.C:.77
..2Q.."... LINES .";:N$.D(N):."."N$"."H(
BL$,11.C(N$));.J2R..". INPUT .."P$(0,3)
".":."... VALUE . ."T$".";.M2S.." . OUTP
UT .."P$(0,4)".":.132..2U..141:."..PRICE
S: INPUT OUTPUT MARGIN"..2V.B$.H
(BX$,9):Z.0:ZD.D1..2W.T$.B$:V.E(J(I$,30,
9)):W.E(J(I$,21,9)):.W..0.Z.V.W:.77..3X.
."...LAST UP. ."T$;:T.Z.I3Y.T$.B$:X.E(J(
O$,30,9)):Y.E(J(O$,21,9)):.Y..0.Z.X.Y:.7
7.`3Z..T$;:Z.Z.T:.77:.T$..3[.T$.B$:V.E(P
$(P(I),3)):W.E(P$(P(I),1)):.W..0.Z.V.W:.
77..3\.."....AVERAGE. ."T$;:T.Z..3].T$.B
$:V.E(P$(P(I),4)):W.E(P$(P(I),2)):.W..0.
Z.V.W:.77..4^..T$;:Z.Z.T:.77:.T$".":ZD.2
:.132.&4`.AY.N.S:AX.AY.A4A.AX..(AX.2):.A
X.0.I.1:..S4B.AJ.1:AK.AY.AX.]4C.AI.AJ..4
D.AL.AI.AX:.J(S$(P(AI)),V,W)..J(S$(P(AL)
),V,W).359.E4E.X.P(AI):P(AI).P(AL):P(AL)
.X:AI.AI.AX:.AI.1.359.N4F..356..4G.AJ.AJ
.1:.AJ.AK.353..4H..355..5J.I.I.1:.I.1.I.
N.S..5K..P(I).0.362..5L..211.15N.I.I.1:.
I.N.S.I.1.A5O..P(I).0.366.J5P..211.R5
> CLICK IMAGE PREVIEW FOR FULL MODAL