home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
MBUG
/
MBUG061.ARC
/
EFT.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1979-12-31
|
2KB
|
58 lines
***** EFT.CMD *****
ERASE
SET INTENSITY ON
@ 2, 5 SAY [*****************************************************************]
@ 3, 5 SAY [* *]
@ 4, 5 SAY [*****************************************************************]
SET INTENSITY OFF
@ 3,21 SAY [ENTERING ELECTRONIC FUNDS TRANSFERS]
SET INTENSITY ON
@ 7,25 SAY [CURRENT BALANCE:]
SET INTENSITY OFF
@ 7,42 SAY Balance
SET INTENSITY ON
APPEND BLANK
REPLACE ENTRYCAT WITH 'E'
SET INTENSITY ON
REPLACE DATE WITH MDate
@ 12,56 SAY [DATE:]
SET INTENSITY OFF
@ 12,62 GET DATE PICTURE '99/99/99'
STORE DATE TO MDate
SET INTENSITY ON
@ 14, 7 SAY [TO:]
SET INTENSITY OFF
@ 14,11 GET TO
SET INTENSITY ON
@ 14,54 SAY [AMOUNT:]
SET INTENSITY OFF
@ 14,62 GET Debit
READ
STORE DATE TO MDate
IF TO = [ ]
DELETE
PACK
ERASE
RELEASE MiscChoice, MDate
SAVE TO &UseBase
RELEASE Balance, MNo, StateBal
SAVE TO CkMem
SET COLON ON
RETURN
ENDIF
SET INTENSITY ON
@ 16,28 SAY [NEW BALANCE:]
STORE (Balance - DEBIT) TO Balance
@ 16,40 SAY STR(Balance,8,2)
@ 19,26 SAY [HIT TO CONTINUE]
SET INTENSITY OFF
@ 19,31 SAY [<RETURN>]
SET CONSOLE OFF
WAIT
SET CONSOLE ON
ERASE
RETURN
[CHECKBOOK MAINTENANCE]
@ 7,25 SAY [1 Enter Checks]
@ 8,25 SAY [2 Enter Deposits]
@ 9,25 SAY [3 Miscellaneous Entries]