home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / PAYROLL.PC < prev    next >
Text File  |  1989-09-27  |  4KB  |  173 lines
  1. >a1:" PAYROLL ANALYSIS WORKSHEET
  2. >a1:\wc18
  3. >b1:\wc6
  4. >c1:\wc6
  5. >d1:\wc6
  6. >e1:\wc7
  7. >f1:\wc7
  8. >g1:\wc8
  9. >j1:\wc8
  10. >k1:\wc9
  11. >a2:"Copyright, 1982, Perfect Software, Inc.
  12. >a3:"*******************************************************************
  13. >a4:"  This program automatically reads in the 'payfacts.pc' file
  14. >a5:"    needed by this file.  This file uses forward referencing, 
  15. >a6:"    therefore you will need to press the recalculation key (!) 
  16. >a7:"    twice when updating the file.
  17. >a8:"*******************************************************************
  18. >b10:"PAYROLL SUMMARY STATEMENT  (weekly)
  19. >b11:"Hourly
  20. >d11:" O.T.
  21. >e11:"Federal
  22. >g11:" State
  23. >h11:"  Gross
  24. >i11:"   Net
  25. >j11:" 
  26. >a12:" Name of Employee
  27. >b12:"Rate
  28. >c12:" Hours
  29. >d12:" Hours
  30. >e12:"  Tax
  31. >f12:"  FICA
  32. >g12:"   Tax
  33. >h12:"   Pay
  34. >i12:"   Pay
  35. >j12:" 
  36. >a13:"
  37. >b13:=payfacts[c9]@
  38. >c13:0
  39. >d13:0
  40. >e13:=w13/52@
  41. >f13:=(payfacts[g5]*h13)@
  42. >g13:0
  43. >h13:=b13*((1.5*d13)+c13)@
  44. >i13:=h13-e13-f13-g13@
  45. >k13:=(h13*52)-(payfacts[f9]*1000)@
  46. >l13:=lookup(k13,a23:h23) @
  47. >m13:=k13-l13@
  48. >n13:=lookup(l13,a24:h24)@
  49. >o13:=n13*m13@
  50. >p13:=lookup(n13,a25:h25)+o13@
  51. >r13:=lookup(k13,a28:h28)@
  52. >s13:=k13-r13@
  53. >t13:=lookup(r13,a29:h29)@
  54. >u13:=t13*s13@
  55. >v13:=lookup(t13,a30:h30)+u13@
  56. >w13:=v13*payfacts[e9]+(p13*payfacts[d9])@
  57. >a14:"
  58. >b14:=payfacts[c10]@
  59. >c14:0
  60. >d14:0
  61. >e14:=w14/52@
  62. >f14:=(payfacts[g5]*h14)@
  63. >g14:0
  64. >h14:=b14*((1.5*d14)+c14)@
  65. >i14:=h14-e14-f14-g14@
  66. >k14:=(h14*52)-(payfacts[f10]*1000)@
  67. >l14:=lookup(k14,a23:h23) @
  68. >m14:=k14-l14@
  69. >n14:=lookup(l14,a24:h24)@
  70. >o14:=n14*m14@
  71. >p14:=lookup(n14,a25:h25)+o14@
  72. >r14:=lookup(k14,a28:h28)@
  73. >s14:=k14-r14@
  74. >t14:=lookup(r14,a29:h29)@
  75. >u14:=t14*s14@
  76. >v14:=lookup(t14,a30:h30)+u14@
  77. >w14:=v14*payfacts[e10]+(p14*payfacts[d10])@
  78. >a15:"
  79. >b15:=payfacts[c11]@
  80. >c15:0
  81. >d15:0
  82. >e15:=w15/52@
  83. >f15:=(payfacts[g5]*h15)@
  84. >g15:0
  85. >h15:=b15*((1.5*d15)+c15)@
  86. >i15:=h15-e15-f15-g15@
  87. >k15:=(h15*52)-(payfacts[f11]*1000)@
  88. >l15:=lookup(k15,a23:h23) @
  89. >m15:=k15-l15@
  90. >n15:=lookup(l15,a24:h24)@
  91. >o15:=n15*m15@
  92. >p15:=lookup(n15,a25:h25)+o15@
  93. >r15:=lookup(k15,a28:h28)@
  94. >s15:=k15-r15@
  95. >t15:=lookup(r15,a29:h29)@
  96. >u15:=t15*s15@
  97. >v15:=lookup(t15,a30:h30)+u15@
  98. >w15:=v15*payfacts[e11]+(p15*payfacts[d11])@
  99. >a17:"       Totals
  100. >c17:=sum(c13:c15)@
  101. >d17:=sum(d13:d15)@
  102. >e17:=sum(e13:e15)@
  103. >f17:=sum(f13:f15)@
  104. >g17:=sum(g13:g15)@
  105. >h17:=sum(h13:h15)@
  106. >i17:=sum(i13:i15)@
  107. >a23:0
  108. >b23:1.400000000000E+03
  109. >c23:4.100000000000E+03
  110. >d23:9.500000000000E+03
  111. >e23:1.420000000000E+04
  112. >f23:2.200000000000E+04
  113. >g23:2.250000000000E+04
  114. >h23:3.310000000000E+04
  115. >a24:0
  116. >b24:1.400000000000E+03
  117. >c24:4.100000000000E+03
  118. >d24:9.500000000000E+03
  119. >e24:1.420000000000E+04
  120. >f24:2.200000000000E+04
  121. >g24:2.250000000000E+04
  122. >h24:3.310000000000E+04
  123. >a25:0
  124. >b25:1.200000000020E-01
  125. >c25:1.500000000020E-01
  126. >d25:1.900000000020E-01
  127. >e25:2.500000000020E-01
  128. >f25:3.000000000020E-01
  129. >g25:3.400000000020E-01
  130. >h25:3.700000000020E-01
  131. >a26:0
  132. >b26:0
  133. >c26:3.240000000000E+02
  134. >d26:1.134000000000E+03
  135. >e26:2.065000000000E+03
  136. >f26:3.965000000000E+03
  137. >g26:5.705000000000E+03
  138. >h26:7.507000000000E+03
  139. >a28:0
  140. >b28:2.400000000000E+03
  141. >c28:9.600000000000E+03
  142. >d28:1.918000000000E+04
  143. >e28:2.360000000000E+04
  144. >f28:2.890000000000E+04
  145. >g28:2.890000000000E+04
  146. >h28:4.480000000000E+04
  147. >a29:0
  148. >b29:2.400000000000E+03
  149. >c29:9.600000000000E+03
  150. >d29:1.918000000000E+04
  151. >e29:2.360000000000E+04
  152. >f29:2.890000000000E+04
  153. >g29:2.890000000000E+04
  154. >h29:4.480000000000E+04
  155. >a30:0
  156. >b30:1.200000000020E-01
  157. >c30:1.700000000020E-01
  158. >d30:2.200000000020E-01
  159. >e30:2.500000000020E-01
  160. >f30:2.800000000020E-01
  161. >g30:3.300000000020E-01
  162. >h30:3.710000000050E-01
  163. >a31:0
  164. >b31:0
  165. >c31:8.640000000000E+02
  166. >d31:2.492600000000E+03
  167. >e31:3.465000000000E+03
  168. >f31:4.790000000000E+03
  169. >g31:6.274000000000E+03
  170. >h31:9.772000000000E+03
  171. >a1
  172. \aB:PAYFACTS.PC
  173.