DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦9b8e33723⟧ TextFile

    Length: 2816 (0xb00)
    Types: TextFile
    Names: »STOCK.PC«

Derivation

└─⟦a6ed1cd35⟧ Bits:30002862 Perfect Calc 1.10 for JET80 CP/M
    └─ ⟦this⟧ »STOCK.PC«

TextFile

>a1:" STOCK PORTFOLIO EVALUATOR
>a1:Øwc23
>c1:Øwc10
>f1:Øwc11
>h1:Øwc7
>i1:Øwc9
>o1:Øwc12
>p1:Øwc10
>a2:"Copyright, 1982, Perfect Software, Inc.
>a3:"-----------------------------------------------------------------------
>a4:"  We recommend using the manual recalculation MODE when entering 
>a5:"   data on this spreadsheet (CTRL--X m æselect 'm' for manual optionå).
>a6:"-----------------------------------------------------------------------
>b7:"Exchange
>c7:"  Number
>d7:" Current
>e7:"Purchase 
>g7:" Dividend
>i7:"  Date of  
>j7:"  Current
>k7:"   Yearly
>l7:"   Yearly
>m7:"  Current
>n7:"  Purchase
>o7:"e  Capital
>p7:" Percentage
>a8:"  Corporation
>b8:" Symbol
>c8:" of Shares
>d8:"  Price
>e8:"  Price
>f8:"Commission
>g8:" per share
>h8:"e Yield
>i8:"  Purchase
>j8:"e   Date
>k8:"    Hi
>l8:"    Low
>m8:"    Value
>n8:"   Price
>o8:"   Gain/Loss
>p8:" Gain/Loss
>c9:0
>d9:0
>e9:0
>f9:0
>g9:0
>h9:=d9/g9@
>k9:0
>l9:0
>m9:=c9*d9@
>n9:=(c9*e9)+f9@
>o9:=m9-n9@
>p9:=o9/n9@
>c10:0
>d10:0
>e10:0
>f10:0
>g10:0
>h10:=d10/g10@
>k10:0
>l10:0
>m10:=c10*d10@
>n10:=(c10*e10)+f10@
>o10:=m10-n10@
>p10:=o10/n10@
>c11:0
>d11:0
>e11:0
>f11:0
>g11:0
>h11:=d11/g11@
>k11:0
>l11:0
>m11:=c11*d11@
>n11:=(c11*e11)+f11@
>o11:=m11-n11@
>p11:=o11/n11@
>c12:0
>d12:0
>e12:0
>f12:0
>g12:0
>h12:=d12/g12@
>k12:0
>l12:0
>m12:=c12*d12@
>n12:=(c12*e12)+f12@
>o12:=m12-n12@
>p12:=o12/n12@
>c13:0
>d13:0
>e13:0
>f13:0
>g13:0
>h13:=d13/g13@
>k13:0
>l13:0
>m13:=c13*d13@
>n13:=(c13*e13)+f13@
>o13:=m13-n13@
>p13:=o13/n13@
>c14:0
>d14:0
>e14:0
>f14:0
>g14:0
>h14:=d14/g14@
>k14:0
>l14:0
>m14:=c14*d14@
>n14:=(c14*e14)+f14@
>o14:=m14-n14@
>p14:=o14/n14@
>c15:0
>d15:0
>e15:0
>f15:0
>g15:0
>h15:=d15/g15@
>k15:0
>l15:0
>m15:=c15*d15@
>n15:=(c15*e15)+f15@
>o15:=m15-n15@
>p15:=o15/n15@
>c16:0
>d16:0
>e16:0
>f16:0
>g16:0
>h16:=d16/g16@
>k16:0
>l16:0
>m16:=c16*d16@
>n16:=(c16*e16)+f16@
>o16:=m16-n16@
>p16:=o16/n16@
>c17:0
>d17:0
>e17:0
>f17:0
>g17:0
>h17:=d17/g17@
>k17:0
>l17:0
>m17:=c17*d17@
>n17:=(c17*e17)+f17@
>o17:=m17-n17@
>p17:=o17/n17@
>c18:0
>d18:0
>e18:0
>f18:0
>g18:0
>h18:=d18/g18@
>k18:0
>l18:0
>m18:=c18*d18@
>n18:=(c18*e18)+f18@
>o18:=m18-n18@
>p18:=o18/n18@
>f19:" ----------
>h19:" ------
>m19:" --------
>n19:"  -------
>o19:"    --------
>a20:"       TOTALS
>c20:=sum(c9:c18)@
>f20:=sum(f9:f18)@
>h20:=avg(h9:h18)@
>m20:=sum(m9:m18)@
>n20:=sum(n9:n18)@
>o20:=sum(o9:o18)@
>p20:=o20/n20@
>a22:"      CURRENT EQUITY =
>b22:=M20@
>a1
«eof»