home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / CHECK.PC < prev    next >
Encoding:
Text File  |  1989-09-27  |  2.8 KB  |  141 lines
  1. >a1:" CHECK REGISTER PROGRAM
  2. >a1:\dc0
  3. >a1:\wc9
  4. >a1:\jcc
  5. >b1:\wc10
  6. >c1:\wc25
  7. >d1:\wc10
  8. >e1:\dc38
  9. >e1:\wc11
  10. >f1:\dc0
  11. >f1:\wc7
  12. >f1:\jcc
  13. >a2:"Copyright, 1982, Perfect Software, Inc.
  14. >a4:" Enter beginning balance in d12. 
  15. >a5:" Enter beginning check number in a15. 
  16. >a6:"  {Remember, CTRL--S will take the cursor directly to these locations.}
  17. >a7:" Deposits can be recorded by opening a line with
  18. >a8:"   the CTRL--O command and entering deposit 
  19. >a9:"   information on the new line.
  20. >a10:" Your balance is displayed at the end of the 
  21. >a11:"   program.  Press ESCape..> to go to the end.
  22. >c13:"   Beginning Balance =
  23. >d13:0
  24. >f14:"Cleared
  25. >a15:" CHECK #
  26. >b15:"  Date
  27. >c15:"   Description
  28. >d15:"  Paid
  29. >e15:"Deposit
  30. >f15:"(1=yes)
  31. >a16:1.000000000000E+00
  32. >h16:=if(f16,d16,0)@
  33. >a17:=a16+1@
  34. >f17:" 
  35. >h17:=if(f17,d17,0)@
  36. >a18:=a17+1@
  37. >h18:=if(f18,d18,0)@
  38. >a19:=a18+1@
  39. >h19:=if(f19,d19,0)@
  40. >a20:=a19+1@
  41. >h20:=if(f20,d20,0)@
  42. >a21:=a20+1@
  43. >h21:=if(f21,d21,0)@
  44. >a22:=a21+1@
  45. >h22:=if(f22,d22,0)@
  46. >a23:=a22+1@
  47. >h23:=if(f23,d23,0)@
  48. >a24:=a23+1@
  49. >h24:=if(f24,d24,0)@
  50. >a25:=a24+1@
  51. >h25:=if(f25,d25,0)@
  52. >a26:=a25+1@
  53. >h26:=if(f26,d26,0)@
  54. >a27:=a26+1@
  55. >h27:=if(f27,d27,0)@
  56. >a28:=a27+1@
  57. >h28:=if(f28,d28,0)@
  58. >a29:=a28+1@
  59. >h29:=if(f29,d29,0)@
  60. >a30:=a29+1@
  61. >h30:=if(f30,d30,0)@
  62. >a31:=a30+1@
  63. >h31:=if(f31,d31,0)@
  64. >a32:=a31+1@
  65. >h32:=if(f32,d32,0)@
  66. >a33:=a32+1@
  67. >h33:=if(f33,d33,0)@
  68. >a34:=a33+1@
  69. >h34:=if(f34,d34,0)@
  70. >a35:=a34+1@
  71. >h35:=if(f35,d35,0)@
  72. >a36:=a35+1@
  73. >h36:=if(f36,d36,0)@
  74. >a37:=a36+1@
  75. >h37:=if(f37,d37,0)@
  76. >a38:=a37+1@
  77. >h38:=if(f38,d38,0)@
  78. >a39:=a38+1@
  79. >h39:=if(f39,d39,0)@
  80. >a40:=a39+1@
  81. >h40:=if(f40,d40,0)@
  82. >a41:=a40+1@
  83. >h41:=if(f41,d41,0)@
  84. >a42:=a41+1@
  85. >h42:=if(f42,d42,0)@
  86. >a43:=a42+1@
  87. >h43:=if(f43,d43,0)@
  88. >a44:=a43+1@
  89. >h44:=if(f44,d44,0)@
  90. >a45:=a44+1@
  91. >h45:=if(f45,d45,0)@
  92. >a46:=a45+1@
  93. >h46:=if(f46,d46,0)@
  94. >a47:=a46+1@
  95. >h47:=if(f47,d47,0)@
  96. >a48:=a47+1@
  97. >h48:=if(f48,d48,0)@
  98. >a49:=a48+1@
  99. >h49:=if(f49,d49,0)@
  100. >a50:=a49+1@
  101. >h50:=if(f50,d50,0)@
  102. >a51:=a50+1@
  103. >h51:=if(f51,d51,0)@
  104. >a52:=a51+1@
  105. >h52:=if(f52,d52,0)@
  106. >a53:=a52+1@
  107. >h53:=if(f53,d53,0)@
  108. >a54:=a53+1@
  109. >h54:=if(f54,d54,0)@
  110. >a55:=a54+1@
  111. >h55:=if(f55,d55,0)@
  112. >a56:=a55+1@
  113. >h56:=if(f56,d56,0)@
  114. >a57:=a56+1@
  115. >h57:=if(f57,d57,0)@
  116. >a58:=a57+1@
  117. >h58:=if(f58,d58,0)@
  118. >a59:=a58+1@
  119. >h59:=if(f59,d59,0)@
  120. >a60:=a59+1@
  121. >h60:=if(f60,d60,0)@
  122. >a61:=a60+1@
  123. >h61:=if(f61,d61,0)@
  124. >a62:=a61+1@
  125. >h62:=if(f62,d62,0)@
  126. >a63:=a62+1@
  127. >h63:=if(f63,d63,0)@
  128. >a64:=a63+1@
  129. >a65:=a64+1@
  130. >a66:"
  131. >d67:=sum(d16:d65)@
  132. >e67:=sum(e16:e65) +d13@
  133. >h67:=sum(h16:h65)@
  134. >b69:"Records Balance
  135. >d69:=e67-d67@
  136. >b70:"(Deposits less checks written)
  137. >b72:"Reconciliation Balance  
  138. >d72:=e67-h67@
  139. >b73:"(Deposits less checks cleared)
  140. >a1
  141.