home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / xnewentr.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  3.9 KB  |  124 lines
  1. *
  2. *    Atlanta Data Base Users Society Banking System Add Checks Command File
  3. *
  4. *               Program Name    : XNEWENTR.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. GO BOTTOM
  30. DO WHILE NUMBER = 0 .AND. # > 1
  31.     SKIP -1
  32. ENDDO
  33. STORE 'Y' TO ADDING
  34. DO WHILE ADDING <> 'F'
  35.       STORE '                              '  TO CH:TO
  36.       STORE 0.00                     TO M:AMT
  37.       STORE '                    '         TO CH:MEMO
  38.       STORE NUMBER + 1             TO M:NO
  39.     STORE '                              '     TO BLNKS
  40.     STORE 0.00                TO I:PAID
  41.     STORE 0.00                TO S:TAX
  42.     STORE '  '                TO PURP
  43.     STORE DATE                TO CH:DAT
  44.     STORE F                    TO PRNT
  45. * ----------------------------------------------------------------------------
  46. *        Add Records Display Screen
  47. * ----------------------------------------------------------------------------
  48.     @ 2,15 SAY 'Atl. Data Base Users Society Bank Account System'
  49.     @ 3,25 SAY ' New Check Entry Program'
  50.  
  51.     @ 5,0  SAY 'Enter Check Number of 0 to EXIT'
  52.       @ 6,40 SAY 'Check Number  '     GET M:NO PICTURE '999999.9'
  53.       @ 7,40 SAY 'Date Written  '     GET CH:DAT PICTURE '99/99/99'
  54.       @ 8,0  SAY 'Pay to The Order of  '     GET CH:TO
  55.       @ 9,40 SAY 'Amount ($)  '     GET M:AMT 
  56.     @ 10,0  SAY 'Memo'        GET CH:MEMO
  57.     @ 11,0  SAY 'Sales Tax Paid  '    GET S:TAX
  58.     @ 12,0  SAY 'Interest Paid   '    GET I:PAID
  59.     @ 13,0  SAY '-------------------------------- Purpose of Check ---------------------'
  60.       @ 14,0  SAY 'AU - Automobile         EL - Electricity             MO - Mortgage     '  
  61.     @ 15,0  SAY 'BC - Bank Charges       FO - Food                    RE - Repairs      '
  62.       @ 16,0  SAY 'BU - Business Expense   GA - Gas                     TA - Taxes        '
  63.       @ 17,0  SAY 'CL - Clothing           HI - Home Improvements       TE - Telephone    '
  64.     @ 18,0  SAY 'DP - Dues + Public.     IN - Insurance               WA - Water        '
  65.       @ 19,0  SAY 'ED - Education          MD - Medical & Dental        MI - Miscellaneous'
  66.       @ 20,0  SAY 'Enter Purpose Letter' GET PURP
  67.       READ
  68.     IF M:NO <> 0
  69.         @ 22,0 SAY 'Cancel This Check (Y)es or (N)o'
  70.         WAIT TO XCEL
  71.         IF XCEL = 'Y'
  72.             STORE T        TO CAN
  73.         ELSE
  74.             STORE F        TO CAN
  75.         ENDIF
  76.         @ 22,0 SAY BLNKS + BLNKS
  77.         @ 23,0 SAY BLNKS
  78.           @ 22,0 SAY 'Add this Record (Y)es or (N)o'
  79.         WAIT TO ANSWER
  80.         IF ANSWER = 'Y'
  81.               APPEND BLANK
  82.             REPLACE NUMBER        WITH M:NO
  83.             REPLACE TO        WITH CH:TO
  84.             REPLACE AMOUNT        WITH M:AMT
  85.             REPLACE MEMO        WITH CH:MEMO
  86.             REPLACE SLSTAX        WITH S:TAX
  87.             REPLACE INTEREST    WITH I:PAID
  88.             REPLACE PURPOSE        WITH PURP
  89.             REPLACE DATE        WITH CH:DAT
  90.             REPLACE CANCEL        WITH CAN
  91.             REPLACE PRINTED        WITH PRNT
  92.         ENDIF
  93.  
  94.         @ 23,0 SAY BLNKS
  95.         @ 22,0 SAY 'Continue Adding Records (Y)es or (N)o'
  96.         WAIT TO ANSWER
  97.     ENDIF
  98.     IF M:NO    = 0
  99.         STORE 'N'    TO ANSWER
  100.     ENDIF
  101.         IF ANSWER = 'N'
  102.             @ 22,0 SAY BLNKS + BLNKS
  103.             @ 23,0 SAY BLNKS
  104.             @ 22,0 SAY 'Enter (F)inished or <CR> to QUIT'
  105.         WAIT TO END
  106.         IF END <> 'F'
  107.             ERASE
  108.             QUIT
  109.         ELSE
  110.             STORE 'F' TO ADDING
  111.         ENDIF
  112.     ENDIF
  113.     IF ANSWER = 'Y'
  114.         STORE 'Y' TO ADDING
  115.     ENDIF
  116.     ERASE
  117. ENDDO ADDING
  118. RELEASE ALL
  119. SET TALK ON
  120. RETURN  
  121.  
  122. *        -- END OF CHECK ENTRY COMMAND PROGRAM
  123. *
  124.