home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbbooks.zip
/
DEPOSIT.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
1KB
|
42 lines
******************************* DEPOSIT.CMD
**************************** Make Deposits.
ERASE
USE REGISTER
? " Existing deposits.... "
?
LIST OFF FOR DEPOSIT DATE,AMOUNT
?
STORE Y TO ADDING
DO WHILE ADDING
? " Add deposit? "
SET CONS OFF
WAIT TO YN
SET CONS ON
IF !(YN)="Y"
APPEND BLAN
REPL DEPOSIT WITH T
REPL TO:WHOM WITH "Deposit"
ERASE
@ 5,2 SAY "Enter Date " GET DATE
@ 7,2 SAY "Enter Amount " GET AMOUNT;
PICT "9999999.99"
@ 9,2 SAY "Purpose" GET REASON
READ
ELSE
STORE F TO ADDING
ENDIF (while adding)
ENDDO (while adding)
RELE ADDING,YN
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