00000000: 01 04 45 04 01 00 8F 20 2A 2A 20 53 54 4F 43 4B |..E.... ** STOCK|
00000010: 41 49 44 20 36 34 20 50 52 49 4E 54 20 2A 2A 20 |AID 64 PRINT ** |
00000020: 28 43 29 20 44 49 41 4C 4F 47 20 53 4F 46 54 57 |(C) DIALOG SOFTW|
00000030: 41 52 45 20 20 4A 41 4E 20 31 39 38 34 20 2A 2A |ARE JAN 1984 **|
00000040: 20 30 34 30 34 00 57 04 02 00 8B 46 53 B3 B1 33 | 0404.W....FS..3|
00000050: A7 9E 36 34 37 33 38 00 9E 04 04 00 43 42 24 B2 |..64738.....CB$.|
00000060: 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |"...............|
00000070: 9D 9D 9D 9D 9D 9D 9D 9D 22 3A 48 44 24 B2 22 13 |........":HD$.".|
00000080: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000090: 11 22 3A 43 44 24 B2 22 11 11 11 11 11 22 00 D7 |.":CD$."....."..|
000000A0: 04 05 00 4C 4E 24 B2 22 2A 2A 2A 2A 2A 2A 2A 2A |...LN$."********|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 2A 2A 2A 22 00 1E 05 06 00 42 58 24 B2 |******".....BX$.|
000000E0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 22 3A 42 4C 24 B2 42 58 24 AA 22 | ":BL$.BX$."|
00000110: 20 20 20 22 3A 43 52 24 B2 C7 28 31 33 29 00 61 | ":CR$..(13).a|
00000120: 05 08 00 5A 52 B2 30 3A 5A 31 B2 30 3A 5A 24 B2 |...ZR.0:Z1.0:Z$.|
00000130: 22 22 3A 5A 48 B2 2E 35 3A 5A 44 B2 32 3A 5A B2 |"":ZH..5:ZD.2:Z.|
00000140: 30 3A 5A 46 B2 39 3A 5A 5A 24 B2 22 30 30 30 30 |0:ZF.9:ZZ$."0000|
00000150: 30 30 22 3A 5A 46 24 B2 22 20 20 20 20 20 20 20 |00":ZF$." |
00000160: 22 00 89 05 09 00 5A 28 30 29 B2 31 3A 81 4A B2 |".....Z(0).1:.J.|
00000170: 31 A4 31 30 3A 5A 28 4A 29 B2 5A 28 4A AB 31 29 |1.10:Z(J).Z(J.1)|
00000180: AC 31 30 3A 82 3A 89 33 31 00 A1 05 0B 00 47 24 |.10:.:.31.....G$|
00000190: B2 22 22 3A A1 47 24 3A 8B 47 24 B2 22 22 A7 31 |."":.G$:.G$."".1|
000001A0: 31 00 BD 05 0C 00 41 B2 C6 28 47 24 29 3A 8B 41 |1.....A..(G$):.A|
000001B0: B3 B1 38 39 AF 41 B3 B1 37 38 A7 31 31 00 C3 05 |..89.A..78.11...|
000001C0: 0D 00 8E 00 EC 05 0F 00 98 34 2C 22 2D 2D 2D 2D |.........4,"----|
000001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B 00 1F 06 10 |----------";....|
000001F0: 00 98 34 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..4,"-----------|
00000200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 8E 00 |------------":..|
00000220: 53 06 12 00 5A 52 B2 5A 28 5A 44 29 3A 5A 31 B2 |S...ZR.Z(ZD):Z1.|
00000230: B5 28 B6 28 5A 29 AC 5A 52 AA 5A 48 29 AD 5A 52 |.(.(Z).ZR.ZH).ZR|
00000240: 3A 8B 5A 44 B2 30 A7 5A 24 B2 C4 28 5A 31 29 3A |:.ZD.0.Z$..(Z1):|
00000250: 89 32 31 00 8D 06 13 00 5A 49 B2 B5 28 5A 31 29 |.21.....ZI..(Z1)|
00000260: 3A 5A 4A B2 B5 28 28 5A 31 AB 5A 49 29 AC 5A 52 |:ZJ..((Z1.ZI).ZR|
00000270: AA 5A 48 29 3A 5A 49 24 B2 C4 28 5A 49 29 3A 5A |.ZH):ZI$..(ZI):Z|
00000280: 4A 24 B2 CA 28 C4 28 5A 4A 29 2C 32 29 00 C0 06 |J$..(.(ZJ),2)...|
00000290: 14 00 5A 24 B2 5A 49 24 AA 22 2E 22 AA C9 28 28 |..Z$.ZI$."."..((|
000002A0: 5A 5A 24 AA 5A 4A 24 29 2C 5A 44 29 3A 8B 5A B3 |ZZ$.ZJ$),ZD):.Z.|
000002B0: 30 A7 5A 24 B2 22 2D 22 AA CA 28 5A 24 2C 32 29 |0.Z$."-"..(Z$,2)|
000002C0: 00 EA 06 15 00 54 24 B2 C9 28 5A 46 24 AA 5A 24 |.....T$..(ZF$.Z$|
000002D0: 2C 5A 46 29 3A 8B C3 28 5A 24 29 B1 5A 46 A7 54 |,ZF):..(Z$).ZF.T|
000002E0: 24 B2 C8 28 5A 24 2C 5A 46 29 00 F0 06 16 00 8E |$..(Z$,ZF)......|
000002F0: 00 03 07 18 00 8B 50 32 B2 31 A7 98 34 2C C7 28 |......P2.1..4,.(|
00000300: 31 30 29 00 09 07 19 00 8E 00 21 07 1B 00 9F 31 |10).......!....1|
00000310: 35 2C 38 2C 31 35 2C 22 49 30 22 3A A0 31 35 3A |5,8,15,"I0":.15:|
00000320: 8E 00 42 07 1D 00 99 48 44 24 3A 81 4B B2 31 A4 |..B....HD$:.K.1.|
00000330: 33 3A 99 A3 32 29 42 58 24 3A 82 3A 99 48 44 24 |3:..2)BX$:.:.HD$|
00000340: 3A 8E 00 69 07 1F 00 8D 32 39 3A 99 22 11 1D 1D |:..i....29:."...|
00000350: 50 52 49 4E 54 20 52 45 43 4F 52 44 20 3F 20 5B |PRINT RECORD ? [|
00000360: 12 59 92 2F 12 4E 92 5D 22 00 7F 07 20 00 8D 31 |.Y./.N.]"... ..1|
00000370: 31 3A 8B 41 B2 37 38 A7 8D 32 39 3A 89 36 31 00 |1:.A.78..29:.61.|
00000380: A6 07 21 00 99 22 91 1D 1D 50 52 45 53 53 20 3C |..!.."...PRESS <|
00000390: 12 52 45 54 55 52 4E 92 3E 20 57 48 45 4E 20 52 |.RETURN.> WHEN R|
000003A0: 45 41 44 59 20 22 00 D1 07 22 00 50 57 24 B2 22 |EADY "...".PW$."|
000003B0: 20 45 4E 53 55 52 45 20 50 52 49 4E 54 45 52 20 | ENSURE PRINTER |
000003C0: 49 53 20 4F 4E 20 26 20 41 4C 49 47 4E 45 44 20 |IS ON & ALIGNED |
000003D0: 22 00 F3 07 23 00 99 48 44 24 43 44 24 22 11 12 |"...#..HD$CD$"..|
000003E0: 22 50 57 24 22 92 22 3A 81 4B B2 31 A4 33 30 30 |"PW$".":.K.1.300|
000003F0: 3A 82 4B 00 21 08 24 00 A1 47 24 3A 8B 47 24 B3 |:.K.!.$..G$:.G$.|
00000400: B1 43 52 24 A7 99 48 44 24 43 44 24 22 11 22 50 |.CR$..HD$CD$"."P|
00000410: 57 24 3A 81 4B B2 31 A4 35 30 30 3A 82 3A 89 33 |W$:.K.1.500:.:.3|
00000420: 35 00 57 08 25 00 99 48 44 24 22 11 11 1D 1D 22 |5.W.%..HD$"...."|
00000430: 42 58 24 3A 99 22 91 1D 1D 50 52 49 4E 54 49 4E |BX$:."...PRINTIN|
00000440: 47 20 2E 2E 2E 22 3A 99 22 11 11 11 22 42 4C 24 |G ...":."..."BL$|
00000450: 3A 9F 34 2C 34 2C 37 00 6B 08 27 00 8B 50 31 B2 |:.4,4,7.k.'..P1.|
00000460: 31 A7 98 34 2C C7 28 43 52 29 3B 00 96 08 29 00 |1..4,.(CR);...).|
00000470: 98 34 2C 22 53 54 4F 43 4B 20 46 49 4C 45 20 27 |.4,"STOCK FILE '|
00000480: 20 22 46 24 22 20 27 20 44 41 54 45 44 20 22 44 | "F$" ' DATED "D|
00000490: 41 24 3A 8D 32 34 00 B8 08 2A 00 98 34 2C C8 28 |A$:.24...*..4,.(|
000004A0: 4C 4E 24 2C 33 30 AA C3 28 46 24 29 29 3A 8D 32 |LN$,30..(F$)):.2|
000004B0: 34 3A 98 34 3A 8D 32 34 00 E4 08 2B 00 98 34 2C |4:.4:.24...+..4,|
000004C0: 22 52 45 46 20 44 45 53 43 52 49 50 54 49 4F 4E |"REF DESCRIPTION|
000004D0: 22 A6 31 30 29 22 53 55 50 50 4C 49 45 52 22 A6 |".10)"SUPPLIER".|
000004E0: 31 34 29 3B 00 08 09 2C 00 98 34 2C 22 55 4E 49 |14);...,..4,"UNI|
000004F0: 54 20 43 4F 53 54 20 20 20 20 55 4E 49 54 20 53 |T COST UNIT S|
00000500: 41 4C 45 22 3A 8D 32 34 00 34 09 2D 00 98 34 2C |ALE":.24.4.-..4,|
00000510: 22 2D 2D 2D 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"--- -----------|
00000520: 22 A6 31 30 29 22 2D 2D 2D 2D 2D 2D 2D 2D 22 A6 |".10)"--------".|
00000530: 31 34 29 3B 00 58 09 2E 00 98 34 2C 22 2D 2D 2D |14);.X....4,"---|
00000540: 2D 2D 2D 2D 2D 2D 20 20 20 20 2D 2D 2D 2D 2D 2D |------ ------|
00000550: 2D 2D 2D 22 3A 8D 32 34 00 7E 09 2F 00 98 34 2C |---":.24.~./..4,|
00000560: C8 28 53 24 28 50 28 49 29 29 2C 34 31 29 A6 36 |.(S$(P(I)),41).6|
00000570: 29 3B 3A 58 B2 34 32 3A 81 4B B2 31 A4 32 00 B4 |);:X.42:.K.1.2..|
00000580: 09 30 00 5A B2 C5 28 CA 28 53 24 28 50 28 49 29 |.0.Z..(.(S$(P(I)|
00000590: 29 2C 58 2C 37 29 29 3A 5A 44 B2 44 31 3A 8D 31 |),X,7)):ZD.D1:.1|
000005A0: 38 3A 98 34 2C 54 24 A6 34 29 3B 3A 58 B2 58 AA |8:.4,T$.4);:X.X.|
000005B0: 32 31 3A 82 00 C7 09 31 00 98 34 3A 8D 32 34 3A |21:....1..4:.24:|
000005C0: 8D 31 35 3A 8D 32 34 00 F4 09 32 00 98 34 2C A3 |.15:.24...2..4,.|
000005D0: 33 38 29 22 55 4E 49 54 53 20 20 20 20 20 20 20 |38)"UNITS |
000005E0: 56 41 4C 55 45 53 20 20 20 20 20 20 20 20 54 52 |VALUES TR|
000005F0: 41 4E 53 22 00 1A 0A 33 00 8D 32 34 3A 98 34 2C |ANS"...3..24:.4,|
00000600: A3 32 30 29 22 49 4E 50 55 54 53 3A 22 A6 37 29 |.20)"INPUTS:".7)|
00000610: 3B 3A 81 4B B2 31 A4 35 A9 32 00 39 0A 34 00 98 |;:.K.1.5.2.9.4..|
00000620: 34 2C 50 24 28 50 28 49 29 2C 4B 29 A6 34 29 3B |4,P$(P(I),K).4);|
00000630: 3A 82 3A 98 34 3A 8D 32 34 00 5C 0A 35 00 98 34 |:.:.4:.24.\.5..4|
00000640: 2C A3 31 39 29 22 4F 55 54 50 55 54 53 3A 22 A6 |,.19)"OUTPUTS:".|
00000650: 37 29 3B 3A 81 4B B2 32 A4 36 A9 32 00 83 0A 36 |7);:.K.2.6.2...6|
00000660: 00 98 34 2C 50 24 28 50 28 49 29 2C 4B 29 A6 34 |..4,P$(P(I),K).4|
00000670: 29 3B 3A 82 3A 98 34 3A 8D 32 34 3A 8D 31 35 3A |);:.:.4:.24:.15:|
00000680: 8D 32 34 00 B2 0A 37 00 98 34 2C A3 32 29 22 42 |.24...7..4,.2)"B|
00000690: 41 4C 41 4E 43 45 22 A6 35 29 22 43 2F 56 41 4C |ALANCE".5)"C/VAL|
000006A0: 55 45 22 A6 36 29 22 50 52 4F 46 49 54 22 A6 35 |UE".6)"PROFIT".5|
000006B0: 29 3B 00 DF 0A 38 00 98 34 2C 22 4D 49 4E 20 4F |);...8..4,"MIN O|
000006C0: 2F 4C 22 A6 35 29 22 52 45 4F 52 44 45 52 22 A6 |/L".5)"REORDER".|
000006D0: 35 29 22 52 2F 56 41 4C 55 45 22 3A 8D 32 34 00 |5)"R/VALUE":.24.|
000006E0: 11 0B 39 00 98 34 2C 50 24 28 50 28 49 29 2C 30 |..9..4,P$(P(I),0|
000006F0: 29 A6 33 29 3B 3A 5A B2 42 AC 55 3A 8D 31 38 3A |).3);:Z.B.U:.18:|
00000700: 54 B2 C5 28 50 24 28 50 28 49 29 2C 33 29 29 AB |T..(P$(P(I),3)).|
00000710: 5A 00 44 0B 3A 00 98 34 2C 54 24 A6 33 29 3B 3A |Z.D.:..4,T$.3);:|
00000720: 5A B2 C5 28 50 24 28 50 28 49 29 2C 34 29 29 AB |Z..(P$(P(I),4)).|
00000730: 54 3A 8D 31 38 3A 98 34 2C 54 24 A6 33 29 3B 3A |T:.18:.4,T$.3);:|
00000740: 58 B2 34 39 00 7A 0B 3B 00 81 4B B2 31 A4 32 3A |X.49.z.;..K.1.2:|
00000750: 5A B2 C5 28 CA 28 53 24 28 50 28 49 29 29 2C 58 |Z..(.(S$(P(I)),X|
00000760: 2C 37 29 29 3A 8D 31 38 3A 98 34 2C 54 24 A6 33 |,7)):.18:.4,T$.3|
00000770: 29 3B 3A 58 B2 58 AA 37 3A 82 00 9D 0B 3C 00 5A |);:X.X.7:....<.Z|
00000780: B2 5A AC 55 3A 8D 31 38 3A 98 34 2C 54 24 3A 8D |.Z.U:.18:.4,T$:.|
00000790: 32 34 3A 8D 31 35 3A 8D 32 34 3A A0 34 00 B1 0B |24:.15:.24:.4...|
000007A0: 3D 00 8D 32 37 3A 93 22 53 54 4F 43 4B 53 22 2C |=..27:."STOCKS",|
000007B0: 38 00 00 00 |8... |
..E.... ** STOCKAID 64 PRINT ** (C) DIAL
OG SOFTWARE JAN 1984 ** 0404.W....FS..3
..64738.....CB$.".......................
":HD$."..................":CD$.".....".W
...LN$."********************************
**************".....BX$."
":BL$.BX$." ":CR$
.G(13).A...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:.:.31.....G$
."":.G$:.G$."".11.....A.F(G$):.A..89.A..
78.11.C..........4,"--------------------
----------";......4,"-------------------
--------------------":..S...ZR.Z(ZD):Z1.
.(.(Z).ZR.ZH).ZR:.ZD.0.Z$.D(Z1):.21.....
ZI..(Z1):ZJ..((Z1.ZI).ZR.ZH):ZI$.D(ZI):Z
J$.J(D(ZJ),2).....Z$.ZI$.".".I((ZZ$.ZJ$)
,ZD):.Z.0.Z$."-".J(Z$,2).....T$.I(ZF$.Z$
,ZF):.C(Z$).ZF.T$.H(Z$,ZF)............P2
.1..4,G(10).......!....15,8,15,"I0": 15:
..B....HD$:.K.1.3:..2)BX$:.:.HD$:..I....
29:."...PRINT RECORD ? [.Y./.N.]".. ..1
1:.A.78..29:.61...!.."...PRESS <.RETURN.
> WHEN READY ".Q.".PW$." ENSURE PRINTER
IS ON & ALIGNED "...#..HD$CD$".."PW$".":
.K.1.300:.K.!.$..G$:.G$..CR$..HD$CD$"."P
W$:.K.1.500:.:.35.W.%..HD$"...."BX$:."..
.PRINTING ...":."..."BL$:.4,4,7.K.'..P1.
1..4,G(CR);...)..4,"STOCK FILE ' "F$" '
DATED "DA$:.24...*..4,H(LN$,30.C(F$)):.2
4:.4:.24...+..4,"REF DESCRIPTION".10)"SU
PPLIER".14);...,..4,"UNIT COST UNIT S
ALE":.24.4.-..4,"--- -----------".10)"--
------".14);.X....4,"--------- ------
---":.24.~./..4,H(S$(P(I)),41).6);:X.42:
.K.1.2...0.Z.E(J(S$(P(I)),X,7)):ZD.D1:.1
8:.4,T$.4);:X.X.21:..G.1..4:.24:.15:.24.
..2..4,.38)"UNITS VALUES TR
ANS"...3..24:.4,.20)"INPUTS:".7);:.K.1.5
.2.9.4..4,P$(P(I),K).4);:.:.4:.24.\.5..4
,.19)"OUTPUTS:".7);:.K.2.6.2...6..4,P$(P
(I),K).4);:.:.4:.24:.15:.24...7..4,.2)"B
ALANCE".5)"C/VALUE".6)"PROFIT".5);...8..
4,"MIN O/L".5)"REORDER".5)"R/VALUE":.24.
..9..4,P$(P(I),0).3);:Z.B.U:.18:T.E(P$(P
(I),3)).Z.D.:..4,T$.3);:Z.E(P$(P(I),4)).
T:.18:.4,T$.3);:X.49.Z.;..K.1.2:Z.E(J(S$
(P(I)),X,7)):.18:.4,T$.3);:X.X.7:....<.Z
.Z.U:.18:.4,T$:.24:.15:.24: 4...=..27:."
STOCKS",8...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL