home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / xdeposit.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  2.3 KB  |  91 lines
  1. *
  2. *   Atlanta Data Base Users Society Banking System Add Deposits Command File
  3. *
  4. *            Program Name    : XDEPOSIT.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. *    7/15/83        Set to Public Domain with Atlanta    Keith R. Plossl
  22. *            Data Base Users Society.
  23. *
  24. * -----------------------------------------------------------------------------
  25. ERASE
  26. GO BOTTOM
  27. STORE 'Y'    TO ADDING
  28. STORE '                              '    TO BLNKS
  29. DO WHILE ADDING <> 'F'
  30.     STORE DATE    TO CH:DAT
  31.     STORE 0.00    TO C:AMT
  32.     @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  33.     @ 3,25 SAY 'New Deposit Entry Program'
  34.  
  35.     @ 6,20 SAY 'Enter Amount of 0 to EXIT'
  36.     @ 8,20 SAY '  Date of Deposit '    GET CH:DAT PICTURE '99/99/99'
  37.     @ 9,20 SAY 'Amount of Deposit '    GET C:AMT
  38.     READ
  39.  
  40. IF C:AMT <> 0
  41.     @ 21,0 SAY 'Cancel This Deposit (Y)es or (N)o'
  42.     WAIT TO XCEL
  43.     IF XCEL = 'Y'
  44.         STORE T    TO CAN
  45.     ELSE
  46.         STORE F TO CAN
  47.     ENDIF
  48.     @ 21,0    SAY BLNKS + BLNKS
  49.     @ 22,0    SAY BLNKS
  50.     @ 21,0  SAY 'Add This Record (Y)es or (N)o'
  51.     WAIT TO ANSWER
  52.     IF ANSWER = 'Y'
  53.         APPEND BLANK
  54.         REPLACE NUMBER    WITH 0.0
  55.         REPLACE TO    WITH 'DEPOSIT'
  56.         REPLACE AMOUNT    WITH C:AMT
  57.         REPLACE    DATE    WITH CH:DAT
  58.         REPLACE CANCEL    WITH CAN
  59.     ENDIF
  60.     @ 21,0  SAY BLNKS + BLNKS
  61.     @ 22,0    SAY BLNKS
  62.     @ 21,0    SAY 'Continue Adding Records (Y)es or (N)o'
  63.     WAIT TO ANSWER
  64. ENDIF
  65. IF C:AMT = 0
  66.     STORE 'N' TO ANSWER
  67. ENDIF
  68.     IF ANSWER = 'N'
  69.         @ 21,0 SAY BLNKS + BLNKS
  70.         @ 22,0 SAY BLNKS
  71.         @ 21,0 SAY 'Enter (F)inished or <CR> to QUIT'
  72.         WAIT TO END
  73.         IF END <> 'F'
  74.             ERASE
  75.             QUIT
  76.         ELSE
  77.             STORE 'F' TO ADDING
  78.         ENDIF
  79.     ENDIF
  80.     IF ANSWER = 'Y'
  81.         STORE 'Y' TO ADDING
  82.     ENDIF
  83.     ERASE
  84. ENDDO ADDING
  85. RELEASE ALL
  86. SET TALK ON
  87. RETURN  
  88. *
  89. *        END OF DEPOSIT ENTRY COMMAND PROGRAM
  90. *
  91.