home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / PROFEE.PC < prev    next >
Encoding:
Text File  |  1989-09-27  |  2.0 KB  |  110 lines
  1. >a1:" DETERMINING FEE TO CHARGE FOR PROFESSIONAL SERVICES
  2. >a1:\wc23
  3. >b1:\wc11
  4. >c1:\wc2
  5. >d1:\wc11
  6. >a2:"Copyright, 1982, Perfect Software, Inc.
  7. >c2:"Inc.
  8. >d2:"c.
  9. >a4:" -----------------------------
  10. >a5:" Yearly Salary
  11. >b5:0
  12. >d5:"<-- You supply the salary you
  13. >a6:" Days worked per month
  14. >b6:0
  15. >d6:"     desire to acheive.
  16. >a6:\dl0
  17. >a7:" Days worked per year
  18. >b7:=b6*12@
  19. >a7:\dl0
  20. >a8:" Desired Percent Profit
  21. >b8:0
  22. >d8:"<-- You supply the percent
  23. >a9:" -----------------------------
  24. >d9:"     profit you want.
  25. >b12:"  Monthly
  26. >d12:"  Yearly
  27. >a13:"  Operation Overhead
  28. >a14:"   Office Expenses
  29. >d14:" 
  30. >a15:"    Rent
  31. >b15:0
  32. >d15:=b15*12@
  33. >a16:"    Secretary's Wage
  34. >b16:0
  35. >d16:=b16*12@
  36. >a17:"    Postage
  37. >b17:0
  38. >d17:=b17*12@
  39. >a18:"    Telephone
  40. >b18:0
  41. >d18:=b18*12@
  42. >a19:"    Utilities
  43. >b19:0
  44. >d19:=b19*12@
  45. >a20:"    Supplies
  46. >b20:0
  47. >d20:=b20*12@
  48. >a21:"    Other
  49. >b21:0
  50. >d21:=b21*12@
  51. >a22:"       Subtotal
  52. >b22:=sum(b15:b21)@
  53. >d22:=sum(d15:d21)@
  54. >a24:"   Support Services
  55. >a25:"    Insurance
  56. >b25:0
  57. >d25:=b25*12@
  58. >a26:"    Marketing
  59. >b26:0
  60. >d26:=b26*12@
  61. >a27:"    Legal
  62. >b27:0
  63. >d27:=b27*12@
  64. >a28:"    Advertising
  65. >b28:0
  66. >d28:=b28*12@
  67. >a29:"    Accounting
  68. >b29:0
  69. >d29:=b29*12@
  70. >a30:"    Other
  71. >b30:0
  72. >d30:=b30*12@
  73. >a31:"       Subtotal
  74. >b31:=sum(b25:b30)@
  75. >d31:=sum(d25:d30)@
  76. >a32:"  
  77. >a33:"   Additional Expenses
  78. >a34:"    Automobile
  79. >b34:0
  80. >d34:=b34*12@
  81. >a35:"    Entertainment
  82. >b35:0
  83. >d35:=b35*12@
  84. >a36:"    Travel
  85. >b36:0
  86. >d36:=b36*12@
  87. >a37:"    Vacation
  88. >b37:0
  89. >d37:=b37*12@
  90. >a38:"    Miscellaneous
  91. >b38:0
  92. >d38:=b38*12@
  93. >a39:"       Subtotal
  94. >b39:=sum(b34:b38)@
  95. >d39:=sum(d34:d38)@
  96. >a42:"      TOTAL EXPENSES
  97. >b42:=b22+b31+b39@
  98. >d42:=d22+d31+d39@
  99. >a44:"====================================
  100. >b44:"=================
  101. >a45:"  Daily Overhead 
  102. >b45:=d42/b7@
  103. >a46:"  Daily Salary
  104. >b46:=b5/b7@
  105. >a47:"  Daily Profit
  106. >b47:=((b8*(b45+b46))/100)@
  107. >a49:"  Required Billing Rate
  108. >b49:=b45+b46+b47@
  109. >a1
  110.