* * Atlanta Data Base Users Society Banking System Cancel Checks Command File * * Program Name : XCANCEL.CMD * Author : Keith R. Plossl * Date Written : July 1982 * * * ----------------------------------------------------------------------------- * 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 * * This program has been placed in the public domain by Keith R. Plossl * for the Atlanta Data Base Users Society, Inc. Atlanta, Georgia * and may be copied, modified or used NON-COMMERCIALLY provided this * notice, the title block and modification history have not been * removed. The COMMERCIAL sale or use of this program for profit * is strictly prohibited. KRP 7/15/83 * * ----------------------------------------------------------------------------- * Modification History * * 2/1/83 Added decimal check numbers & Keith R. Plossl * corrected not on file routine. * * 2/26/83 Replaced LOCATE with FIND. Keith R. Plossl * * 7/15/83 Set to Public Domain with Atlanta Keith R. Plossl * Data Base Users Society. * * ----------------------------------------------------------------------------- ERASE STORE 'Y' TO XCANING STORE ' ' TO BLNKS DO WHILE XCANING <> 'F' STORE 0 TO M:NO @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System' @ 3,25 SAY ' Check Cancelling Program' @ 5,0 SAY 'Enter Check Number of 0 to EXIT' @ 7,10 SAY 'Check Number to Cancel' GET M:NO READ GO TOP IF M:NO <> 0 STORE STR(M:NO,7,1) TO STM:NO FIND &STM:NO IF # > 0 STORE TO TO CH:TO STORE AMOUNT TO CH:AMT STORE MEMO TO CH:MEMO STORE NUMBER TO M:NO STORE INTEREST TO I:PAID STORE SLSTAX TO S:TAX STORE PURPOSE TO PURP STORE DATE TO CH:DAT ERASE * ---------------------------------------------------------------------------- * Records Display Screen * ---------------------------------------------------------------------------- @ 2,15 SAY 'Atlanta Data Base Users Society Bank Account System' @ 3,25 SAY ' Check Cancelling Program' @ 6,40 SAY 'Check Number ' + STR(M:NO,7,1) @ 7,40 SAY 'Date Written ' + CH:DAT @ 8,0 SAY 'Pay to The Order of : ' + CH:TO @ 9,40 SAY 'Amount ($) ' + STR(CH:AMT,10,2) @ 10,0 SAY 'Memo :' + CH:MEMO @ 11,0 SAY 'Sales Tax Paid ' + STR(S:TAX,5,2) @ 12,0 SAY 'Interest Paid ' + STR(I:PAID,5,2) @ 13,0 SAY '-------------------------------- Purpose of Check ---------------------' @ 14,0 SAY 'AU - Automobile EL - Electricity MO - Mortgage ' @ 15,0 SAY 'BC - Bank Charges FO - Food RE - Repairs ' @ 16,0 SAY 'BU - Business Expense GA - Gas TA - Taxes ' @ 17,0 SAY 'CL - Clothing HI - Home Improvements TE - Telephone ' @ 18,0 SAY 'DP - Dues + Public. IN - Insurance WA - Water ' @ 19,0 SAY 'ED - Education MD - Medical & Dental MI - Miscellaneous' @ 20,0 SAY 'Purpose Letter : ' + PURP @ 22,0 SAY 'Cancel This Check (Y)es or (N)o' WAIT TO XCEL IF XCEL = 'Y' STORE T TO CAN ELSE STORE F TO CAN ENDIF @ 22,0 SAY BLNKS + BLNKS @ 23,0 SAY BLNKS @ 22,0 SAY 'Update this Record (Y)es or (N)o' WAIT TO ANSWER IF ANSWER = 'Y' REPLACE CANCEL WITH CAN ENDIF ELSE @ 9,10 SAY 'Check ' + STR(M:NO,7,1) + ' not on file.' ENDIF @ 23,0 SAY BLNKS @ 22,0 SAY 'Continue Cancelling Checks (Y)es or (N)o' WAIT TO ANSWER ENDIF IF M:NO = 0.0 STORE 'N' TO ANSWER ENDIF IF ANSWER = 'N' @ 22,0 SAY BLNKS + BLNKS @ 23,0 SAY BLNKS @ 22,0 SAY 'Enter (F)inished or to QUIT' WAIT TO END IF END <> 'F' ERASE QUIT ELSE STORE 'F' TO XCANING ENDIF ENDIF IF ANSWER = 'Y' STORE 'Y' TO XCANING ENDIF ERASE ENDDO XCANING RELEASE ALL SET TALK ON RETURN * -- END OF CHECK CANCELLING COMMAND PROGRAM *