home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug061.arc / ENTERDEP.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  70 lines
  1. ***** ENTERDEP.CMD *****
  2. SET INTENSITY ON
  3. RESTORE FROM &UseBase
  4. ERASE
  5. STORE DATE() TO MDate
  6. @  1, 5 SAY [*****************************************************************]
  7. @  2, 5 SAY [*                                                               *]
  8. @  3, 5 SAY [*****************************************************************]
  9. SET INTENSITY OFF
  10. @  2,30 SAY [ENTERING DEPOSITS]
  11. SET INTENSITY ON
  12. APPEND BLANK
  13. REPLACE ENTRYCAT WITH 'D'
  14. REPLACE DATE WITH MDate
  15. @  7,31 SAY [DATE:]
  16. @  8,29 SAY [AMOUNT:]
  17. @ 10,19 SAY [PREVIOUS BALANCE:]
  18. @ 11,24 SAY [NEW BALANCE:]
  19. SET COLON OFF
  20. @  7,38 GET DATE PICTURE '99/99/99'
  21. @  8,38 GET CREDIT
  22. SET COLON ON
  23. @ 10,38 SAY STR(Balance,8,2)
  24. READ
  25. IF CREDIT = 0
  26.    DELETE
  27.    PACK
  28.    RELEASE MDate
  29.    SAVE TO &UseBase
  30.    RELEASE Balance
  31.    RELEASE MNo
  32.    RELEASE CkChoice
  33.    RETURN
  34. ENDIF
  35. STORE Balance + CREDIT TO Balance
  36. @ 11,37 SAY STR(Balance,8,2)
  37. SET INTENSITY OFF
  38. @ 15,26 SAY [-HIT          TO CONTINUE-]
  39. SET INTENSITY ON
  40. @ 15,31 SAY [<RETURN>]
  41. SET CONSOLE OFF
  42. WAIT
  43. SET CONSOLE ON
  44.    RELEASE MDate
  45.    SAVE TO &UseBase
  46.    RELEASE Balance
  47.    RELEASE MNo
  48.    RELEASE CkChoice
  49. RETURN  DO GetBase
  50.     ERASE
  51.     USE
  52.   CASE CkChoice = '5'
  53.     STORE 'Recncile' to CmChoice
  54.     DO GetBase
  55.     ERASE
  56.     USE
  57.   CASE CkChoice = '6'
  58.     STORE 'EditCk' TO CmChoice
  59.     DO GetBase
  60.     ERASE
  61.     USE
  62. ENDCASE
  63. ENDDO
  64. ENTERING DEPOSITS]
  65. SET INTENSITY ON
  66. APPEND BLANK
  67. REPLACE ENTRYCAT WITH 'D'
  68. REPLACE DATE WITH MDate
  69. @  7,31 SAY [DATE:]
  70. @