home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug061.arc / ENTERCK.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  89 lines
  1. ***** ENTERCK.CMD *****
  2. RESTORE FROM &UseBase
  3. ERASE
  4. STORE DATE() TO MDate
  5. DO WHILE T
  6. @ 16,0
  7. SET INTENSITY ON
  8. @  2, 5 SAY [*****************************************************************]
  9. @  3, 5 SAY [*                                                               *]
  10. @  4, 5 SAY [*****************************************************************]
  11. SET INTENSITY OFF
  12. @  3,31 SAY [ENTERING CHECKS]
  13. SET INTENSITY ON
  14. @  7,26 SAY [CURRENT BALANCE:]
  15. SET INTENSITY OFF
  16. @  7,43 SAY Balance
  17. SET INTENSITY ON
  18. APPEND BLANK
  19. REPLACE ENTRYCAT WITH 'C'
  20. @ 11,48 SAY [CHECK NUMBER:]
  21. SET INTENSITY OFF
  22. REPLACE NO WITH MNo
  23. @ 11,62 SAY NO
  24. SET INTENSITY ON
  25. REPLACE DATE WITH MDate
  26. @ 12,56 SAY [DATE:]
  27. SET INTENSITY OFF
  28. @ 12,62 GET DATE PICTURE '99/99/99'
  29. STORE DATE TO MDate
  30. SET INTENSITY ON
  31. @ 14, 7 SAY [TO:]
  32. SET INTENSITY OFF
  33. @ 14,11 GET TO
  34. SET INTENSITY ON
  35. @ 14,54 SAY [AMOUNT:]
  36. SET INTENSITY OFF
  37. @ 14,62 GET Debit
  38. READ
  39. STORE DATE TO MDate
  40. IF TO = [                                        ]
  41.   DELETE
  42.   PACK
  43.   ERASE
  44.   RELEASE MDate
  45.   SAVE TO &UseBase
  46.   RELEASE Balance
  47.   RELEASE MNO
  48.   RELEASE CkChoice
  49.   RETURN
  50. ENDIF
  51. STORE MNo+1 TO MNo
  52. SET INTENSITY ON
  53. @ 16,27 SAY [NEW BALANCE:]
  54. STORE (Balance - DEBIT) TO Balance
  55. @ 16,39 SAY STR(Balance,8,2)
  56. SET INTENSITY OFF
  57. @ 18,25 SAY [-C-              -X-]
  58. SET INTENSITY ON
  59. @ 18,29 SAY [CONTINUE]
  60. @ 18,46 SAY [EXIT]
  61. STORE ' ' TO Continue
  62. @ 18,38 GET Continue
  63. READ
  64. IF !('&Continue') <> 'C'
  65.    RELEASE Continue
  66.    ERASE
  67.    SAVE TO &UseBase
  68.    RELEASE Balance
  69.    RELEASE MNo
  70.    RELEASE MDate
  71.    RELEASE CkChoice
  72.    RETURN
  73. ENDIF
  74. RELEASE Continue
  75. ENDDO
  76.    TENSITY ON
  77. @ 14,25 SAY [X  Exit to System]
  78. @ 15,25 SAY [I  Initialize Program]
  79. SET INTENSITY OFF
  80. STORE ' ' TO CkChoice
  81. @ 17,25 SAY [CHOICE?]
  82. SET INTENSITY ON
  83. @ 17,33 GET CkChoice
  84. READ
  85. DO WHILE (CkChoice < '1' .OR. CkChoice > '6') .AND. !('&CkChoice') <> 'X' .AND. !('&CkChoice') <> 'M'.AND. !('&CkChoice') <> 'I'.AND. !('&CkChoice')<>'E'
  86.   @ 18,0
  87.   DO WHILE N<10
  88.     STORE 1 TO N
  89.     S