home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / xdepcanc.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  2.1 KB  |  79 lines
  1. *
  2. *  Atlanta Data Base Users Society Banking System Deposit Cancel Command File
  3. *
  4. *            Program Name    : XDEPCANC.CMD
  5. *            Author        : Keith R. Plossl
  6. *            Date Written    : July 1982
  7. *
  8. * -----------------------------------------------------------------------------
  9. *       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
  10. *
  11. *   This program has been placed in the public domain by Keith R. Plossl
  12. *   for the Atlanta Data Base Users Society, Inc. Atlanta, Georgia
  13. *   and may be copied, modified or used NON-COMMERCIALLY provided this
  14. *   notice, the title block and modification history have not been 
  15. *   removed.  The COMMERCIAL sale or use of this program for profit 
  16. *   is strictly prohibited.  KRP 7/15/83
  17. *   
  18. * -----------------------------------------------------------------------------
  19. *                Modification History
  20. *
  21. *    2/1/83        Added decimal check numbers           Keith R. Plossl
  22. *            to data file & programs.
  23. *
  24. *    7/15/83        Set to Public Domain with Atlanta    Keith R. Plossl
  25. *            Data Base Users Society.
  26. *
  27. * -----------------------------------------------------------------------------
  28. ERASE
  29. STORE 'Y'    TO XCANING
  30. STORE '                              '    TO BLNKS
  31. STORE F    TO XEND
  32. DO WHILE XCANING <> 'F'
  33.     GO TOP
  34.     LOCATE FOR NUMBER = 0.0 .AND. .NOT. CANCEL
  35.     @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  36.     @ 3,22 SAY 'Deposit Cancelling Program'
  37.     IF .NOT.EOF
  38.         @ 6,10 SAY '     Deposit Date : ' + DATE
  39.         @ 7,10 SAY 'Amount of Deposit : ' + STR(AMOUNT,10,2)
  40.  
  41.         @ 21,0 SAY 'Cancel This Deposit (Y)es or (N)o'
  42.         WAIT TO XCEL
  43.         IF XCEL = 'Y'
  44.             REPLACE CANCEL    WITH T
  45.         ENDIF
  46.       ELSE  
  47.         @ 10,15 SAY 'All Deposits on File Are Cancelled'
  48.         STORE T    TO XEND
  49.     ENDIF 
  50.     IF .NOT. XEND
  51.     @ 22,0 SAY BLNKS
  52.     @ 21,0 SAY BLNKS + BLNKS
  53.     @ 21,0 SAY 'Continue Cancelling Deposits (Y)es or (N)o'
  54.     WAIT TO ANSWER
  55.     ENDIF
  56.     IF XEND
  57.         STORE 'N'    TO ANSWER
  58.     ENDIF
  59.     IF ANSWER = 'N'
  60.         @ 21,0 SAY BLNKS + BLNKS
  61.         @ 22,0 SAY BLNKS
  62.         @ 21,0 SAY 'Enter (F)inished or <CR> to QUIT'
  63.         WAIT TO END
  64.         IF END <> 'F'
  65.             ERASE
  66.             QUIT
  67.         ELSE
  68.             STORE 'F' TO XCANING
  69.         ENDIF
  70.     ENDIF
  71.     ERASE
  72. ENDDO XCANING
  73. RELEASE ALL
  74. SET TALK ON
  75. RETURN  
  76. *
  77. *        END OF DEPOSIT CANCELLING COMMAND FILE
  78. *
  79.