|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2304 (0x900)
Types: TextFile
Names: »INCOME.PC«
└─⟦a6ed1cd35⟧ Bits:30002862 Perfect Calc 1.10 for JET80 CP/M
└─ ⟦this⟧ »INCOME.PC«
>a1:" INCOME STATEMENT >a1:Øwc30 >b1:Ødc38 >b1:Øwc12 >c1:Ødc38 >c1:Øwc12 >d1:Ødc38 >d1:Øwc9 >a2:"Copyright, 1982, Perfect Software, Inc. >a3:"******************************************************************* >a4:" This Spreadsheet file automatically reads in the following files: >a5:" costgood.pc (Cost of Goods Statement) >a6:" gadmexpn.pc (General and Administrative Expense Statement) >a7:" sellexpn.pc (Sales Expense Statement) >a8:" We recommend using manual recalculation mode for this file. >a10:"******************************************************************* >d11:" PERCENT >a11:Øjlc >a12:" Total Sales................ >c12:1.100000000000E-12 >d12:1.000000000000E+02 >a13:" Less Cost of Goods Sold... >c13:=costgoodÆd56Å@ >d13:=(c13/c12)*100@ >a14:" æThis data is supplied from >a15:" the 'costgood.pc' file.å >a17:" Gross Profit on Sales...... >c17:=c12-c13@ >d17:=(c17/c12)*100@ >a19:" Less Operating Expenses >a20:" Selling Expense......... >b20:=sellexpnÆb21Å@ >c20:" >a21:" æThis data comes from >a22:" the 'sellexpn.pc' file.å >a24:" General Expense......... >b24:=gadmexpnÆb21Å@ >a25:" æThis data comes from >a26:" the 'gadmexpn.pc'file.å >b27:"------------ >a28:" Subtotal.............. >c28:=b20+b24@ >d28:=(c28/c12)*100@ >a30:" Net Income from Operations >c30:=c17-c28@ >d30:=(c30/c12)*100@ >a32:" Other Income & Expenses >a33:" Royalties............... >b33:0 >a34:" Dividends............... >b34:0 >a35:" Sale of Fixed Assets.... >b35:0 >a36:" Other................... >b36:0 >b37:"------------ >a38:" Subtotal.............. >b38:=sum(b33:b36)@ >a40:" Interest & Debt Expense >b40:0 >b41:"------------ >a42:" Net Addition to Income >c42:=b38-b40@ >d42:=(c42/c12)*100@ >a44:" Net Income Before Taxes >c44:=c30+c42@ >d44:=(c44/c12)*100@ >a45:" Less Estimated Income Tax >c45:0 >d45:=(c45/c12)*100@ >c46:"------------ >a47:" Net Income After Taxes >c47:=c44-c45@ >d47:=(c47/c12)*100@ >a1 ØaCOSTGOOD.PC «eof»