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

⟦e21487713⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »PROC04.TXT«

Derivation

└─⟦56cb05a1f⟧ Bits:30005457 SuperCalc/MBasic/Plan80
    └─ ⟦this⟧ »PROC04.TXT« 
└─⟦ed6270ad1⟧ Bits:30005316 PLAN80 Version 2.6
    └─ ⟦this⟧ »PROC04.TXT«

TextFile

:RULES 
  Deprec       =  CumDepr - CumDepr(-1)
  Invest       =  Invest(-1)+@MAX(100,Cash(-1))-100
  Debt         =  @MAX(Debt(-1),Equity(-1),(60%*Invest))
  InvInc       =  Yeild * Invest
  IntExp       =  -IntRate * Debt
  PBT          =  Admin + InvInc + Deprec + IntExp 
  Taxes        =  -PBT * @LOOKUP(PBT,Bracket1..Bracket3,TRate1)
  NET          =  PBT + Taxes
  Equity       =  Equity(-1) + NET
  LIABIL       =  Debt + Equity
  ASSETS       =  LIABIL
  Cash         =  ASSETS - CumDepr - Physical - Invest
«eof»