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

⟦5c200ee41⟧ TextFile

    Length: 2048 (0x800)
    Types: TextFile
    Names: »PROFEE.PC«

Derivation

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

TextFile

>a1:" DETERMINING FEE TO CHARGE FOR PROFESSIONAL SERVICES
>a1:Øwc23
>b1:Øwc11
>c1:Øwc2
>d1:Øwc11
>a2:"Copyright, 1982, Perfect Software, Inc.
>c2:"Inc.
>d2:"c.
>a4:" -----------------------------
>a5:" Yearly Salary
>b5:0
>d5:"<-- You supply the salary you
>a6:" Days worked per month
>b6:0
>d6:"     desire to acheive.
>a6:Ødl0
>a7:" Days worked per year
>b7:=b6*12@
>a7:Ødl0
>a8:" Desired Percent Profit
>b8:0
>d8:"<-- You supply the percent
>a9:" -----------------------------
>d9:"     profit you want.
>b12:"  Monthly
>d12:"  Yearly
>a13:"  Operation Overhead
>a14:"   Office Expenses
>d14:" 
>a15:"    Rent
>b15:0
>d15:=b15*12@
>a16:"    Secretary's Wage
>b16:0
>d16:=b16*12@
>a17:"    Postage
>b17:0
>d17:=b17*12@
>a18:"    Telephone
>b18:0
>d18:=b18*12@
>a19:"    Utilities
>b19:0
>d19:=b19*12@
>a20:"    Supplies
>b20:0
>d20:=b20*12@
>a21:"    Other
>b21:0
>d21:=b21*12@
>a22:"       Subtotal
>b22:=sum(b15:b21)@
>d22:=sum(d15:d21)@
>a24:"   Support Services
>a25:"    Insurance
>b25:0
>d25:=b25*12@
>a26:"    Marketing
>b26:0
>d26:=b26*12@
>a27:"    Legal
>b27:0
>d27:=b27*12@
>a28:"    Advertising
>b28:0
>d28:=b28*12@
>a29:"    Accounting
>b29:0
>d29:=b29*12@
>a30:"    Other
>b30:0
>d30:=b30*12@
>a31:"       Subtotal
>b31:=sum(b25:b30)@
>d31:=sum(d25:d30)@
>a32:"  
>a33:"   Additional Expenses
>a34:"    Automobile
>b34:0
>d34:=b34*12@
>a35:"    Entertainment
>b35:0
>d35:=b35*12@
>a36:"    Travel
>b36:0
>d36:=b36*12@
>a37:"    Vacation
>b37:0
>d37:=b37*12@
>a38:"    Miscellaneous
>b38:0
>d38:=b38*12@
>a39:"       Subtotal
>b39:=sum(b34:b38)@
>d39:=sum(d34:d38)@
>a42:"      TOTAL EXPENSES
>b42:=b22+b31+b39@
>d42:=d22+d31+d39@
>a44:"====================================
>b44:"=================
>a45:"  Daily Overhead 
>b45:=d42/b7@
>a46:"  Daily Salary
>b46:=b5/b7@
>a47:"  Daily Profit
>b47:=((b8*(b45+b46))/100)@
>a49:"  Required Billing Rate
>b49:=b45+b46+b47@
>a1
«eof»