home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / xcancel.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  3.8 KB  |  126 lines
  1. *
  2. *  Atlanta Data Base Users Society Banking System Cancel Checks Command File
  3. *
  4. *               Program Name    : XCANCEL.CMD
  5. *              Author        : Keith R. Plossl
  6. *            Date Written    : July 1982
  7. *
  8. *
  9. * -----------------------------------------------------------------------------
  10. *       P U B L I C   D O M A I N   S O F T W A R E   N O T I C E
  11. *
  12. *   This program has been placed in the public domain by Keith R. Plossl
  13. *   for the Atlanta Data Base Users Society, Inc. Atlanta, Georgia
  14. *   and may be copied, modified or used NON-COMMERCIALLY provided this
  15. *   notice, the title block and modification history have not been 
  16. *   removed.  The COMMERCIAL sale or use of this program for profit 
  17. *   is strictly prohibited.  KRP 7/15/83
  18. *   
  19. * -----------------------------------------------------------------------------
  20. *            Modification History
  21. *
  22. *    2/1/83        Added decimal check numbers &        Keith R. Plossl
  23. *                       corrected not on file routine.
  24. *
  25. *    2/26/83        Replaced LOCATE with FIND.        Keith R. Plossl
  26. *
  27. *    7/15/83        Set to Public Domain with Atlanta    Keith R. Plossl
  28. *            Data Base Users Society.
  29. *
  30. * -----------------------------------------------------------------------------
  31. ERASE
  32. STORE 'Y' TO XCANING
  33. STORE '                              '    TO BLNKS
  34. DO WHILE XCANING <> 'F'
  35.     STORE 0    TO M:NO
  36.     @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  37.     @ 3,25 SAY ' Check Cancelling Program'
  38.     @ 5,0  SAY 'Enter Check Number of 0 to EXIT'
  39.  
  40.     @ 7,10 SAY 'Check Number to Cancel'    GET M:NO
  41.     READ
  42.     GO TOP
  43.     IF M:NO <> 0
  44.     STORE STR(M:NO,7,1)    TO STM:NO
  45.     FIND &STM:NO
  46.     IF # > 0
  47.           STORE TO        TO CH:TO
  48.           STORE AMOUNT           TO CH:AMT
  49.           STORE MEMO        TO CH:MEMO
  50.           STORE NUMBER         TO M:NO
  51.         STORE INTEREST        TO I:PAID
  52.         STORE SLSTAX        TO S:TAX
  53.         STORE PURPOSE        TO PURP
  54.         STORE DATE        TO CH:DAT
  55.         ERASE
  56. * ----------------------------------------------------------------------------
  57. *            Records Display Screen
  58. * ----------------------------------------------------------------------------
  59.         @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  60.         @ 3,25 SAY ' Check Cancelling Program'
  61.  
  62.           @ 6,40 SAY 'Check Number  ' + STR(M:NO,7,1)
  63.           @ 7,40 SAY 'Date Written  ' + CH:DAT
  64.           @ 8,0  SAY 'Pay to The Order of : ' + CH:TO
  65.           @ 9,40 SAY 'Amount ($)  ' + STR(CH:AMT,10,2)
  66.         @ 10,0  SAY 'Memo :' + CH:MEMO
  67.         @ 11,0  SAY 'Sales Tax Paid  ' + STR(S:TAX,5,2)
  68.         @ 12,0  SAY 'Interest Paid   ' + STR(I:PAID,5,2)
  69.         @ 13,0  SAY '-------------------------------- Purpose of Check ---------------------'
  70.           @ 14,0  SAY 'AU - Automobile         EL - Electricity             MO - Mortgage     '  
  71.         @ 15,0  SAY 'BC - Bank Charges       FO - Food                    RE - Repairs      '
  72.           @ 16,0  SAY 'BU - Business Expense   GA - Gas                     TA - Taxes        '
  73.           @ 17,0  SAY 'CL - Clothing           HI - Home Improvements       TE - Telephone    '
  74.         @ 18,0  SAY 'DP - Dues + Public.     IN - Insurance               WA - Water        '
  75.           @ 19,0  SAY 'ED - Education          MD - Medical & Dental        MI - Miscellaneous'
  76.           @ 20,0  SAY 'Purpose Letter : ' + PURP
  77.  
  78.         @ 22,0 SAY 'Cancel This Check (Y)es or (N)o'
  79.         WAIT TO XCEL
  80.         IF XCEL = 'Y'
  81.             STORE T        TO CAN
  82.         ELSE
  83.             STORE F        TO CAN
  84.         ENDIF
  85.         @ 22,0 SAY BLNKS + BLNKS
  86.         @ 23,0 SAY BLNKS
  87.           @ 22,0 SAY 'Update this Record (Y)es or (N)o'
  88.         WAIT TO ANSWER
  89.         IF ANSWER = 'Y'
  90.             REPLACE CANCEL        WITH CAN
  91.         ENDIF
  92.     ELSE
  93.         @ 9,10 SAY 'Check ' + STR(M:NO,7,1) + ' not on file.'
  94.     ENDIF
  95.     @ 23,0 SAY BLNKS
  96.     @ 22,0 SAY 'Continue Cancelling Checks (Y)es or (N)o'
  97.     WAIT TO ANSWER
  98.     ENDIF
  99.     IF M:NO    = 0.0
  100.         STORE 'N'    TO ANSWER
  101.     ENDIF
  102.     IF ANSWER = 'N'
  103.         @ 22,0 SAY BLNKS + BLNKS
  104.         @ 23,0 SAY BLNKS
  105.         @ 22,0 SAY 'Enter (F)inished or <CR> to QUIT'
  106.         WAIT TO END
  107.         IF END <> 'F'
  108.             ERASE
  109.             QUIT
  110.         ELSE
  111.             STORE 'F' TO XCANING
  112.         ENDIF
  113.     ENDIF
  114.     IF ANSWER = 'Y'
  115.         STORE 'Y' TO XCANING
  116.     ENDIF
  117.     ERASE
  118. ENDDO XCANING
  119. RELEASE ALL
  120. SET TALK ON
  121. RETURN
  122.  
  123. *        -- END OF CHECK CANCELLING COMMAND PROGRAM
  124. *
  125.  
  126.