home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug061.arc / EFT.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  58 lines
  1. ***** EFT.CMD *****
  2. ERASE
  3. SET INTENSITY ON
  4. @  2, 5 SAY [*****************************************************************]
  5. @  3, 5 SAY [*                                                               *]
  6. @  4, 5 SAY [*****************************************************************]
  7. SET INTENSITY OFF
  8. @  3,21 SAY [ENTERING ELECTRONIC FUNDS TRANSFERS]
  9. SET INTENSITY ON
  10. @  7,25 SAY [CURRENT BALANCE:]
  11. SET INTENSITY OFF
  12. @  7,42 SAY Balance
  13. SET INTENSITY ON
  14. APPEND BLANK
  15. REPLACE ENTRYCAT WITH 'E'
  16. SET INTENSITY ON
  17. REPLACE DATE WITH MDate
  18. @ 12,56 SAY [DATE:]
  19. SET INTENSITY OFF
  20. @ 12,62 GET DATE PICTURE '99/99/99'
  21. STORE DATE TO MDate
  22. SET INTENSITY ON
  23. @ 14, 7 SAY [TO:]
  24. SET INTENSITY OFF
  25. @ 14,11 GET TO
  26. SET INTENSITY ON
  27. @ 14,54 SAY [AMOUNT:]
  28. SET INTENSITY OFF
  29. @ 14,62 GET Debit
  30. READ
  31. STORE DATE TO MDate
  32. IF TO = [                                        ]
  33.   DELETE
  34.   PACK
  35.   ERASE
  36.   RELEASE MiscChoice, MDate
  37.   SAVE TO &UseBase
  38.   RELEASE Balance, MNo, StateBal
  39.   SAVE TO CkMem
  40.   SET COLON ON
  41.   RETURN
  42. ENDIF
  43. SET INTENSITY ON
  44. @ 16,28 SAY [NEW BALANCE:]
  45. STORE (Balance - DEBIT) TO Balance
  46. @ 16,40 SAY STR(Balance,8,2)
  47. @ 19,26 SAY [HIT            TO CONTINUE]
  48. SET INTENSITY OFF
  49. @ 19,31 SAY [<RETURN>]
  50. SET CONSOLE OFF
  51. WAIT
  52. SET CONSOLE ON
  53. ERASE
  54. RETURN
  55.    [CHECKBOOK MAINTENANCE]
  56. @  7,25 SAY [1  Enter Checks]
  57. @  8,25 SAY [2  Enter Deposits]
  58. @  9,25 SAY [3  Miscellaneous Entries]