home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / xmodcks.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  5.5 KB  |  166 lines

  1. *
  2. *   Atlanta Data Base Users Society Banking System Modify Checks Command File
  3. *
  4. *               Program Name    : XMODCKS.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. *    2/26/83        Replaced LOCATE with FIND.        Keith R. Plossl
  25. *
  26. *    7/15/83        Set to Public Domain with Atlanta    Keith R. Plossl
  27. *            Data Base Users Society.
  28. *
  29. * -----------------------------------------------------------------------------
  30. ERASE
  31. STORE 'Y' TO MODIFY
  32. STORE '                              '    TO BLNKS
  33. DO WHILE MODIFY <> 'F'
  34.     STORE 0.0    TO M:NO
  35.     @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  36.     @ 3,25 SAY ' Check Modification Program'
  37.     @ 5,0  SAY 'Enter Check Number of 0 to EXIT'
  38.  
  39.     @ 7,10 SAY 'Check Number to Modify'    GET M:NO PICTURE '999999.9'
  40.     READ
  41.     GO TOP
  42.     IF M:NO <> 0.0
  43.     STORE STR(M:NO,7,1)    TO STM:NO
  44.     FIND &STM:NO
  45.     IF # > 0
  46.           STORE TO        TO CH:TO
  47.           STORE AMOUNT           TO CH:AMT
  48.           STORE MEMO        TO CH:MEMO
  49.           STORE NUMBER         TO M:NO
  50.         STORE INTEREST        TO I:PAID
  51.         STORE SLSTAX        TO S:TAX
  52.         STORE PURPOSE        TO PURP
  53.         STORE DATE        TO CH:DAT
  54.     ELSE
  55.         @ 9,10 SAY 'Check '+ STR(M:NO,7,1) + ' not on file.'
  56.     ENDIF
  57.     IF # > 0
  58.     ERASE
  59. * ----------------------------------------------------------------------------
  60. *            Records Display Screen
  61. * ----------------------------------------------------------------------------
  62.     @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  63.     @ 3,25 SAY ' Check Modifying Program'
  64.  
  65.       @ 6,40 SAY 'Check Number  ' + STR(M:NO,7,1)
  66.       @ 7,40 SAY 'Date Written  ' + CH:DAT
  67.       @ 8,0  SAY 'Pay to The Order of : ' + CH:TO
  68.       @ 9,40 SAY 'Amount ($)  ' + STR(CH:AMT,10,2)
  69.     @ 10,0  SAY 'Memo :' + CH:MEMO
  70.     @ 11,0  SAY 'Sales Tax Paid  ' + STR(S:TAX,5,2)
  71.     @ 12,0  SAY 'Interest Paid   ' + STR(I:PAID,5,2)
  72.     @ 13,0  SAY '-------------------------------- Purpose of Check ---------------------'
  73.       @ 14,0  SAY 'AU - Automobile         EL - Electricity             MO - Mortgage     '  
  74.     @ 15,0  SAY 'BC - Bank Charges       FO - Food                    RE - Repairs      '
  75.       @ 16,0  SAY 'BU - Business Expense   GA - Gas                     TA - Taxes        '
  76.       @ 17,0  SAY 'CL - Clothing           HI - Home Improvements       TE - Telephone    '
  77.     @ 18,0  SAY 'DP - Dues + Public.     IN - Insurance               WA - Water        '
  78.       @ 19,0  SAY 'ED - Education          MD - Medical & Dental        MI - Miscellaneous'
  79.       @ 20,0  SAY 'Purpose Letter : ' + PURP
  80.  
  81.     @ 22,0 SAY 'Modify This Check (Y)es or (N)o'
  82.     WAIT TO MODF
  83.     IF MODF = 'Y'
  84.         ERASE
  85. * ----------------------------------------------------------------------------
  86. *        Add Records Display Screen
  87. * ----------------------------------------------------------------------------
  88.         @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System'
  89.         @ 3,25 SAY ' Check Modification Program'
  90.  
  91.         @ 5,0  SAY 'Enter Check Number of 0 to EXIT'
  92.           @ 6,40 SAY 'Check Number  '     GET M:NO PICTURE '999999.9'
  93.           @ 7,40 SAY 'Date Written  '     GET CH:DAT PICTURE '99/99/99'
  94.           @ 8,0  SAY 'Pay to The Order of  '     GET CH:TO
  95.           @ 9,40 SAY 'Amount ($)  '     GET CH:AMT 
  96.         @ 10,0  SAY 'Memo'        GET CH:MEMO
  97.         @ 11,0  SAY 'Sales Tax Paid  '    GET S:TAX
  98.         @ 12,0  SAY 'Interest Paid   '    GET I:PAID
  99.         @ 13,0  SAY '-------------------------------- Purpose of Check ---------------------'
  100.           @ 14,0  SAY 'AU - Automobile         EL - Electricity             MO - Mortgage     '  
  101.         @ 15,0  SAY 'BC - Bank Charges       FO - Food                    RE - Repairs      '
  102.           @ 16,0  SAY 'BU - Business Expense   GA - Gas                     TA - Taxes        '
  103.           @ 17,0  SAY 'CL - Clothing           HI - Home Improvements       TE - Telephone    '
  104.         @ 18,0  SAY 'DP - Dues + Public.     IN - Insurance               WA - Water        '
  105.           @ 19,0  SAY 'ED - Education          MD - Medical & Dental        MI - Miscellaneous'
  106.           @ 20,0  SAY 'Enter Purpose Letter' GET PURP
  107.           READ
  108.         IF M:NO <> 0.0
  109.             @ 22,0 SAY 'Cancel This Check (Y)es or (N)o'
  110.             WAIT TO XCEL
  111.         IF XCEL = 'Y'
  112.             STORE T        TO CAN
  113.         ELSE
  114.             STORE F        TO CAN
  115.         ENDIF
  116.         @ 22,0 SAY BLNKS + BLNKS
  117.         @ 23,0 SAY BLNKS
  118.           @ 22,0 SAY 'Update this Record (Y)es or (N)o'
  119.         WAIT TO ANSWER
  120.         IF ANSWER = 'Y'
  121.             REPLACE NUMBER        WITH M:NO
  122.             REPLACE TO        WITH CH:TO
  123.             REPLACE AMOUNT        WITH CH:AMT
  124.             REPLACE MEMO        WITH CH:MEMO
  125.             REPLACE SLSTAX        WITH S:TAX
  126.             REPLACE INTEREST    WITH I:PAID
  127.             REPLACE PURPOSE        WITH PURP
  128.             REPLACE DATE        WITH CH:DAT
  129.             REPLACE CANCEL        WITH CAN
  130.         ENDIF
  131.         ENDIF    
  132.     ENDIF
  133.     ENDIF
  134.     @ 23,0 SAY BLNKS
  135.     @ 22,0 SAY 'Continue Modifying Checks (Y)es or (N)o'
  136.     WAIT TO ANSWER
  137.     IF M:NO    = 0.0
  138.         STORE 'N'    TO ANSWER
  139.     ENDIF
  140.     ENDIF
  141.     IF ANSWER = 'N'
  142.         @ 22,0 SAY BLNKS + BLNKS
  143.         @ 23,0 SAY BLNKS
  144.         @ 22,0 SAY 'Enter (F)inished or <CR> to QUIT'
  145.         WAIT TO END
  146.         IF END <> 'F'
  147.             ERASE
  148.             QUIT
  149.         ELSE
  150.             STORE 'F' TO MODIFY
  151.         ENDIF
  152.     ENDIF
  153.     IF ANSWER = 'Y'
  154.         STORE 'Y' TO MODIFY
  155.     ENDIF
  156.     
  157.     ERASE
  158. ENDDO MODIFY
  159. RELEASE ALL
  160. SET TALK ON
  161. RETURN
  162. *
  163. *        -- END OF CHECK MODIFICATION COMMAND PROGRAM
  164. *
  165.  
  166.