home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / database / scrivner.lbr / CHECKBK.SCR < prev    next >
Text File  |  1986-12-13  |  8KB  |  83 lines
  1. #announce Check Book Balancer
  2. [[def 9.2]]
  3.                CheckBook Balancer
  4.  
  5. [[d oc=0]] [[d od=0]]
  6.  
  7. Date      Check Number           Description             Check Amount            Deposit Amount             Running Count         Ch          De            Checks                            In Transit
  8.  
  9. 8.1                              OPENING BALANCE                                                            [[ rc=443.01]]                              
  10. 8.2       [[ cn=1005]]           Dividend                [[ ca=440]]             [[ da=12500]]              [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  11. 8.2       [[ cn=cn+1]]           CEB for travel          [[ ca=234.15]]          [[ da=00000]]              [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  12. 8.3       [[ cn=cn+1]]           CEB salary              [[ ca=1200  ]]          [[ da=00000]]              [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  13. 8.3       [[ cn=cn+1]]           Newspaper Sub           [[ ca=25    ]]          [[ da=00000]]              [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  14. 8.3       [[ cn=cn+1]]           Magazine  Sub           [[ ca=40    ]]          [[ da=00000]]              [[ rc=rc-ca+da]]      [[ oc=1]]                  [[ if(oc,ca,0)]] [[s oc=0]]    [[ if(od,da,0)]]
  15. 8.3       [[ cn=cn+1]]           Health Insurance        [[ ca=55.87 ]]          [[ da=00000]]              [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  16. 8.3       [[ cn=cn+1]]                                   [[ ca=00.00 ]]VOID      [[ da=00000]]              [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  17. 8.3       [[ cn=cn+1]]           Lawyer                  [[ ca=55.00 ]]          [[ da=00000]]              [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  18. 8.3       [[ cn=cn+1]]           Postage                 [[ ca=30.35 ]]          [[ da=00000]]              [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  19. 8.3      [[ cn=cn+1]]         Supplier 1         [[ ca=2550 ]]         [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  20. 8.3       [[ cn=cn+1]]         Supplier 2         [[ ca=2556 ]]         [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  21. 8.3       [[ cn=cn+1]]         FAB Salary         [[ ca=1303.33]]     [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  22. 8.3      [[ cn=cn+1]]                      [[ ca=00.00 ]]VOID     [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  23. 8.3      [[ cn=cn+1]]         Accountant         [[ ca=975  ]]         [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  24. 8.3      [[ cn=cn+1]]         Landlord         [[ ca=311.67]]         [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  25. 8.3      [[ cn=cn+1]]         Office Supply Store     [[ ca=10 ]]         [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  26. 8.3      [[ cn=cn+1]]         Postage         [[ ca=40 ]]         [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  27. 8.3      [[ cn=cn+1]]         Supplier 2         [[ ca=2335]]         [[ da=3000 ]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  28. 8.3       [[ cn=cn+1]]         Supplier 4         [[ ca=288.75]]         [[ da=110   ]]            [[ rc=rc-ca+da]]                   [[ od=1]]     [[ if(oc,ca,0)]]               [[ if(od,da,0)]][[s od=0]]
  29. 8.3      [[ cn=cn+1]]         Landlord         [[ ca=13.07]]         [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  30. 8.3      [[ cn=cn+1]]         Consultant         [[ ca=150 ]]         [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  31. 8.3      [[ cn=cn+1]]         Supplier 5         [[ ca=2164]]         [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  32.           [[ cn=cn+1]]                     [[ ca=0000]]         [[ da=00000]]            [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  33.           [[ cn=cn+1]]                                                 [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  34.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  35.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  36.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  37.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  38.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  39.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  40.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  41.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  42.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  43.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  44.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  45.           [[ cn=cn+1]]                                                [[ rc=rc-ca+da]]                                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  46.  
  47.             End Of Period Book Balance                                [[ rc   ]]        
  48.  
  49.  
  50. =============================================================================================================================================================================================================
  51.  
  52.  
  53. Previously outstanding items.
  54. -----------------------------
  55.  
  56. Date      Check Number        Description         Check Amount           Deposit Amount                   Checks       Deposits        Os checks            In transit.    
  57.  
  58. 6.8       955            Office Supply Co.     [[ ca=100]]         [[ da=0000]]                     [[ oc=1 ]]                 [[ if(oc,ca,0)]]               [[ if(od,da,0)]][[s oc=0]]
  59. 7.12      967            Landlord         [[ ca=345.67]]         [[ da=0000]]                                      [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  60. 7.17      990            Accountant         [[ ca=200]]         [[ da=0000]]                                     [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  61. 7.15      1002            Parking Garage         [[ ca=112]]         [[ da=0000]]                                     [[ if(oc,ca,0)]]               [[ if(od,da,0)]]
  62.  
  63.                                                                                  [[ts osch]]            [[ts osde]]
  64.  
  65. [[dp Your outstanding checks total ,,osch,, and  your outstanding deposits total ,,osde,,.]]
  66.  
  67.  
  68. Ending book balance    =    [[ rc   ]]
  69. #input mac_charge,,Please enter the bank charges,,[[ bc=$I ]]
  70. Bank charges        =     mac_charge
  71.                 ------------
  72.  
  73. Adjusted book balance    =    [[ abb=rc-bc]]
  74.  
  75. Outstanding checks    =    [[ osch  ]]
  76. Deposits in transit    =    [[ osde  ]]
  77. Adjustments        =    [[ adj=0 ]]
  78.                 ------------
  79.  
  80. Bank Balance        =    [[ abb+osch-osde-adj]]
  81.                 ============
  82.  
  83.