home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / ARECMULT.PC < prev    next >
Encoding:
Text File  |  1989-09-27  |  5.0 KB  |  232 lines
  1. >a1:\dc0
  2. >a1:\wc2
  3. >b1:"ACCOUNTS RECEIVABLE WORKSHEET
  4. >b1:\wc17
  5. >c1:\dc0
  6. >c1:\wc6
  7. >d1:\jcr
  8. >e1:"Note: This should be on drive B:
  9. >e1:\dc0
  10. >e1:\wc4
  11. >e1:\jcc
  12. >f1:\dc0
  13. >f1:\wc3
  14. >f1:\jcc
  15. >g1:\dc0
  16. >g1:\wc3
  17. >g1:\jcc
  18. >h1:\dc0
  19. >h1:\wc6
  20. >h1:\jcc
  21. >i1:\dc0
  22. >i1:\wc3
  23. >i1:\jcc
  24. >j1:\dc0
  25. >j1:\wc3
  26. >j1:\jcc
  27. >k1:\dc0
  28. >k1:\wc3
  29. >k1:\jcc
  30. >l1:\dc0
  31. >l1:\jcc
  32. >m1:\wc9
  33. >m1:\jcc
  34. >n1:\dc0
  35. >n1:\wc5
  36. >n1:\jcc
  37. >o1:\dc0
  38. >o1:\wc3
  39. >p1:\dc0
  40. >p1:\wc3
  41. >q1:\dc0
  42. >q1:\wc3
  43. >r1:\dc0
  44. >r1:\wc5
  45. >s1:\dc0
  46. >s1:\wc5
  47. >a2:"Co
  48. >b2:"pyright, 1982, Perfect Software, Inc.  
  49. >a3:"==
  50. >b3:"==============================================
  51. >b4:"Today's Date (enter MN:DY:YR)-->
  52. >e4:1.000000000000E+00
  53. >f4:1.000000000000E+00
  54. >g4:8.200000000000E+01
  55. >a5:"==
  56. >b5:"==============================================
  57. >b6:"This program automatically reads in the following entry files:
  58. >b7:"   arentry1.pc
  59. >c7:"arentry2.pc   arentry3.pc
  60. >b8:"Switch to these files to enter the appropriate data.  We recommend
  61. >b9:"using manual recalculation mode for this file.  Also, you will need
  62. >b10:"to press the recalculation key "!" twice because of forward references.
  63. >a11:"==========================================================================
  64. >c12:"     ACCOUNTS  RECEIVABLE  SUMMARY  STATEMENT
  65. >a13:"L
  66. >a14:"a
  67. >e14:" Dat
  68. >f14:"e of
  69. >g14:"f 
  70. >i14:" 
  71. >l14:" Age of
  72. >q14:" 
  73. >a15:"t
  74. >c15:"Invoice
  75. >d15:"e        
  76. >e15:" Invoice
  77. >f15:"oice
  78. >g15:"e   
  79. >h15:"Days 
  80. >i15:"Date 
  81. >j15:"e Du
  82. >k15:"ue
  83. >l15:" Invoice
  84. >r15:"Worktable
  85. >a16:"e
  86. >b16:" Name of Account
  87. >c16:"Number
  88. >d16:" Amount
  89. >e16:" MN:
  90. >f16:"DY:
  91. >g16:"YR
  92. >h16:"Net 
  93. >i16:"MN:
  94. >j16:"DY:
  95. >k16:"YR
  96. >l16:" (Days)
  97. >r16:"Columns
  98. >a17:"--
  99. >b17:" ---------------
  100. >c17:"------
  101. >d17:" --------
  102. >e17:" ---
  103. >f17:"---
  104. >g17:"---
  105. >h17:"----- 
  106. >i17:"--
  107. >j17:"--
  108. >k17:"--
  109. >l17:" ------
  110. >a18:=if(if(g4=g18,c30-r18,365-r18+c30)>h18,1,0)@
  111. >c18:=arentry1[c4]@
  112. >d18:=arentry1[d21]@
  113. >e18:=arentry1[e4]@
  114. >f18:=arentry1[g4]@
  115. >g18:=arentry1[i4]@
  116. >h18:=arentry1[c5]@
  117. >i18:=lookup(s18-1,c28:p28)@
  118. >j18:=s18-lookup(i18,c27:p27)@
  119. >k18:=if(e18+(int((h18+f18)/30))>=13,g18+1,g18)@
  120. >l18:=if(g4=g18,c30-r18,365-r18+c30)@
  121. >r18:=lookup(e18,c27:p27)+f18@
  122. >s18:=if((h18+r18)<=365,h18+r18,h18+r18-365)@
  123. >a19:=if(if(g4=g19,c30-r19,365-r19+c30)>h19,1,0)@
  124. >c19:=arentry2[c4]@
  125. >d19:=arentry2[d21]@
  126. >e19:=arentry2[e4]@
  127. >f19:=arentry2[g4]@
  128. >g19:=arentry2[i4]@
  129. >h19:=arentry2[c5]@
  130. >i19:=lookup(s19-1,c28:p28)@
  131. >j19:=s19-lookup(i19,c27:p27)@
  132. >k19:=if(e19+(int((h19+f19)/30))>=13,g19+1,g19)@
  133. >l19:=if(g4=g19,c30-r19,365-r19+c30)@
  134. >r19:=lookup(e19,c27:p27)+f19@
  135. >s19:=if((h19+r19)<=365,h19+r19,h19+r19-365)@
  136. >a20:=if(if(g4=g20,c30-r20,365-r20+c30)>h20,1,0)@
  137. >c20:=arentry3[c4]@
  138. >d20:=arentry3[d21]@
  139. >e20:=arentry3[e4]@
  140. >f20:=arentry3[g4]@
  141. >g20:=arentry3[i4]@
  142. >h20:=arentry3[c5]@
  143. >i20:=lookup(s20-1,c28:p28)@
  144. >j20:=s20-lookup(i20,c27:p27)@
  145. >k20:=if(e20+(int((h20+f20)/30))>=13,g20+1,g20)@
  146. >l20:=if(g4=g20,c30-r20,365-r20+c30)@
  147. >r20:=lookup(e20,c27:p27)+f20@
  148. >s20:=if((h20+r20)<=365,h20+r20,h20+r20-365)@
  149. >b22:"   Totals
  150. >d22:=sum(d18:d20)@
  151. >b24:0
  152. >c24:0
  153. >d24:1.000000000000E+00
  154. >e24:2.000000000000E+00
  155. >f24:3.000000000000E+00
  156. >g24:4.000000000000E+00
  157. >h24:5.000000000000E+00
  158. >i24:6.000000000000E+00
  159. >j24:7.000000000000E+00
  160. >k24:8.000000000000E+00
  161. >l24:9.000000000000E+00
  162. >m24:1.000000000000E+01
  163. >n24:1.100000000000E+01
  164. >o24:1.200000000000E+01
  165. >p24:1.300000000000E+01
  166. >b25:0
  167. >c25:0
  168. >d25:3.100000000000E+01
  169. >e25:2.800000000000E+01
  170. >f25:3.100000000000E+01
  171. >g25:3.000000000000E+01
  172. >h25:3.100000000000E+01
  173. >i25:3.000000000000E+01
  174. >j25:3.100000000000E+01
  175. >k25:3.100000000000E+01
  176. >l25:3.000000000000E+01
  177. >m25:3.100000000000E+01
  178. >n25:3.000000000000E+01
  179. >o25:3.100000000000E+01
  180. >p25:3.100000000000E+01
  181. >c27:1.000000000065E-01
  182. >d27:1.000000000000E+00
  183. >e27:2.000000000000E+00
  184. >f27:3.000000000000E+00
  185. >g27:4.000000000000E+00
  186. >h27:5.000000000000E+00
  187. >i27:6.000000000000E+00
  188. >j27:7.000000000000E+00
  189. >k27:8.000000000000E+00
  190. >l27:9.000000000000E+00
  191. >m27:1.000000000000E+01
  192. >n27:1.100000000000E+01
  193. >o27:1.200000000000E+01
  194. >p27:1.300000000000E+01
  195. >b28:0
  196. >c28:0
  197. >d28:0
  198. >e28:3.100000000000E+01
  199. >f28:5.900000000000E+01
  200. >g28:9.000000000000E+01
  201. >h28:1.200000000000E+02
  202. >i28:1.510000000000E+02
  203. >j28:1.810000000000E+02
  204. >k28:2.220000000000E+02
  205. >l28:2.430000000000E+02
  206. >m28:2.730000000000E+02
  207. >n28:3.040000000000E+02
  208. >o28:3.340000000000E+02
  209. >p28:3.650000000000E+02
  210. >r28:" 
  211. >b29:0
  212. >c29:0
  213. >d29:1.000000000000E+00
  214. >e29:2.000000000000E+00
  215. >f29:3.000000000000E+00
  216. >g29:4.000000000000E+00
  217. >h29:5.000000000000E+00
  218. >i29:6.000000000000E+00
  219. >j29:7.000000000000E+00
  220. >k29:8.000000000000E+00
  221. >l29:9.000000000000E+00
  222. >m29:1.000000000000E+01
  223. >n29:1.100000000000E+01
  224. >o29:1.200000000000E+01
  225. >p29:1.300000000000E+01
  226. >b30:"  Day Number
  227. >c30:=lookup(e4,c27:p27)+f4@
  228. >b31:"Invoice Day
  229. >c31:=lookup(e18,c27:p27)+f18@
  230. >a1
  231. \aB:ARENTRY1.PC
  232.