DataMuseum.dk

Presents historical artifacts from the history of:

Jet Computer Jet80

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

See our Wiki for more about Jet Computer Jet80

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦b71f3db3f⟧ TextFile

    Length: 1792 (0x700)
    Types: TextFile
    Names: »COSTGOOD.PC«

Derivation

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

TextFile

>a1:" COST OF GOODS STATEMENT
>a1:Øwc30
>b1:Øwc12
>c1:Øwc12
>a2:"Copyright, 1982, Perfect Software, Inc.
>a4:"***********************************************
>a5:"  The information from this statement is posted
>a6:"  to the Income Statement file 'income.pc'.
>a7:"***********************************************
>a10:"  Direct Material Expenditures
>a11:"    Materials Inventory
>c11:0
>a12:"    Purchases
>b12:0
>a13:"      Less for Returns
>b13:0
>c14:"------------
>c15:=b12-b13@
>a17:"    Materials Available
>c17:=c11+c15@
>a18:"      Less Materials Inventory
>a20:"      Direct Materials Used
>d20:=c17-c18@
>a22:"  Direct Labor Costs
>d22:0
>a24:"  Fixed Operation Expenses
>a25:"     Salaries
>c25:0
>a26:"     Rent
>c26:0
>a27:"     Payroll Taxes
>c27:0
>a28:"     Utilities
>c28:0
>a29:"     Phone
>c29:0
>a30:"     Postage
>c30:0
>a31:"     Supplies
>c31:0
>a32:"     Depreciation- Equipment
>c32:0
>a33:"     Depreciation- Building
>c33:0
>a34:"     Maintenance
>c34:0
>a35:"     Insurance
>c35:0
>a36:"     Services
>c36:0
>a37:"     Other
>c37:0
>a38:" 
>c38:"------------
>a39:"       Total Fixed Expenses
>d39:=sum(c25:c37)@
>a42:"  Total Production Costs
>d42:=sum(c22:c39)@
>a43:"   Work in Progress Inventory
>d43:0
>d44:"---------
>d45:=d42+d43@
>a47:"    Less In Progress Inventory
>c47:0
>a49:"  Cost of Goods Produced
>c49:=d44-c47@
>a50:"   Inventory of Finished Goods
>c50:0
>c51:"------------
>d52:=c49+c50@
>a54:" Less Finished Goods Inventory
>b54:" 
>d54:0
>a56:"  Total of Cost of Goods Sold
>d56:=d52-d54@
>a1
ØaSELLEXPN.PC
«eof»