home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / INCOME.PC < prev    next >
Text File  |  1989-09-27  |  2KB  |  78 lines
  1. >a1:" INCOME STATEMENT
  2. >a1:\wc30
  3. >b1:\dc38
  4. >b1:\wc12
  5. >c1:\dc38
  6. >c1:\wc12
  7. >d1:\dc38
  8. >d1:\wc9
  9. >a2:"Copyright, 1982, Perfect Software, Inc.
  10. >a3:"*******************************************************************
  11. >a4:"  This Spreadsheet file automatically reads in the following files:
  12. >a5:"     costgood.pc    (Cost of Goods Statement)
  13. >a6:"     gadmexpn.pc    (General and Administrative Expense Statement)
  14. >a7:"     sellexpn.pc    (Sales Expense Statement)
  15. >a8:"  We recommend using manual recalculation mode for this file.
  16. >a10:"*******************************************************************
  17. >d11:"  PERCENT
  18. >a11:\jlc
  19. >a12:"   Total Sales................
  20. >c12:6.000000000000E-13
  21. >d12:1.000000000000E+02
  22. >a13:"    Less Cost of Goods Sold...
  23. >c13:=costgood[d56]@
  24. >d13:=(c13/c12)*100@
  25. >a14:"     {This data is supplied from
  26. >a15:"      the 'costgood.pc' file.}
  27. >a17:"   Gross Profit on Sales......
  28. >c17:=c12-c13@
  29. >d17:=(c17/c12)*100@
  30. >a19:"    Less Operating Expenses
  31. >a20:"      Selling Expense.........
  32. >b20:=sellexpn[b21]@
  33. >c20:" 
  34. >a21:"       {This data comes from
  35. >a22:"       the 'sellexpn.pc' file.}
  36. >a24:"      General Expense.........
  37. >b24:=gadmexpn[b21]@
  38. >a25:"       {This data comes from
  39. >a26:"        the 'gadmexpn.pc'file.}
  40. >b27:"------------
  41. >a28:"        Subtotal..............
  42. >c28:=b20+b24@
  43. >d28:=(c28/c12)*100@
  44. >a30:"   Net Income from Operations
  45. >c30:=c17-c28@
  46. >d30:=(c30/c12)*100@
  47. >a32:"   Other Income & Expenses
  48. >a33:"      Royalties...............
  49. >b33:0
  50. >a34:"      Dividends...............
  51. >b34:0
  52. >a35:"      Sale of Fixed Assets....
  53. >b35:0
  54. >a36:"      Other...................
  55. >b36:0
  56. >b37:"------------
  57. >a38:"        Subtotal..............
  58. >b38:=sum(b33:b36)@
  59. >a40:"      Interest & Debt Expense
  60. >b40:0
  61. >b41:"------------
  62. >a42:"      Net Addition to Income
  63. >c42:=b38-b40@
  64. >d42:=(c42/c12)*100@
  65. >a44:"   Net Income Before Taxes
  66. >c44:=c30+c42@
  67. >d44:=(c44/c12)*100@
  68. >a45:"    Less Estimated Income Tax
  69. >c45:0
  70. >d45:=(c45/c12)*100@
  71. >c46:"------------
  72. >a47:"   Net Income After Taxes
  73. >c47:=c44-c45@
  74. >d47:=(c47/c12)*100@
  75. >a1
  76. \aB:COSTGOOD.PC
  77.    the 'sellexpn.pc' file.}
  78. >a24:"