home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbbooks.zip / DEPOSIT.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  1KB  |  42 lines
  1. ******************************* DEPOSIT.CMD
  2. **************************** Make Deposits.
  3. ERASE
  4. USE REGISTER
  5.  
  6. ? " Existing deposits.... "
  7. ?
  8. LIST OFF FOR DEPOSIT DATE,AMOUNT
  9.  
  10. ?
  11. STORE Y TO ADDING
  12. DO WHILE ADDING
  13.  
  14.    ? " Add deposit? "
  15.    SET CONS OFF
  16.    WAIT TO YN
  17.    SET CONS ON
  18.  
  19.    IF !(YN)="Y"
  20.       APPEND BLAN
  21.       REPL DEPOSIT WITH T
  22.       REPL TO:WHOM WITH "Deposit"
  23.       ERASE
  24.       @ 5,2 SAY "Enter Date " GET DATE
  25.       @ 7,2 SAY "Enter Amount " GET AMOUNT;
  26.           PICT "9999999.99"
  27.       @ 9,2 SAY "Purpose" GET REASON
  28.       READ
  29.     ELSE
  30.       STORE F TO ADDING
  31.     ENDIF (while adding)
  32. ENDDO (while adding)
  33.  
  34. RELE ADDING,YN
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  on rental         999.991 100Bank of America     01/15/84TTT  300.10House Interest            400.00                         01/15/84TTF* 300.20House Principal           500.00                         01/15/84TTF* 400.00Car Payment               223.131 101Allstate Finance    01/15/84TTT  500.00Insurance                 123.452