home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug061.arc / CHECKS.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  86 lines
  1. *********CHECKS.CMD********
  2. CLEAR
  3. SET TALK OFF
  4. DO DATE
  5. RESTORE FROM CkMem
  6. DO WHILE T
  7. ERASE
  8. @  1, 5 SAY [*********************************************************************]
  9. @  2, 5 SAY [*                                                                   *]
  10. @  3, 5 SAY [*********************************************************************]
  11. SET INTENSITY OFF
  12. @  2,28 SAY [CHECKBOOK MAINTENANCE]
  13. @  7,25 SAY [1  Enter Checks]
  14. @  8,25 SAY [2  Enter Deposits]
  15. @  9,25 SAY [3  Miscellaneous Entries]
  16. @ 10,25 SAY [4  Verify Balance]
  17. @ 11,25 SAY [5  Reconcile with Statement]
  18. @ 12,25 SAY [6  Edit Records]
  19. SET INTENSITY ON
  20. @ 14,25 SAY [X  Exit to dBASE II]
  21. @ 15,25 SAY [I  Initialize Program]
  22. SET INTENSITY OFF
  23. STORE ' ' TO CkChoice
  24. @ 17,25 SAY [CHOICE?]
  25. SET INTENSITY ON
  26. @ 17,33 GET CkChoice
  27. READ
  28. DO WHILE (CkChoice < '1' .OR. CkChoice > '6') .AND. !('&CkChoice') <> 'X' .AND. !('&CkChoice') <> 'M'.AND. !('&CkChoice') <> 'I'.AND. !('&CkChoice')<>'E'
  29.   @ 18,0
  30.   DO WHILE N<10
  31.     STORE 1 TO N
  32.     STORE N+1 TO N
  33.   ENDDO
  34.   @ 19,20 SAY [INVALID CHOICE. PLEASE TRY AGAIN.]
  35.   @ 17,33 GET CkChoice
  36.   READ
  37. ENDDO
  38. IF !('&CkChoice') = 'X'
  39.     SAVE TO CkMem
  40.     USE
  41.     RETURN
  42. ENDIF
  43. IF !('&CkChoice') = 'M'
  44.   ERASE
  45.   DISPLAY MEMORY
  46.   WAIT  
  47. ENDIF
  48. IF !('&CkChoice') = 'I'
  49.   DO INITPROG
  50.   ERASE
  51.   USE
  52. ENDIF
  53. DO CASE
  54.   CASE CkChoice = '1'
  55.     STORE 'EnterCk' TO CmChoice
  56.     DO GetBase
  57.     ERASE
  58.     USE
  59.   CASE CkChoice = '2'
  60.     STORE 'EnterDep' TO CmChoice
  61.     DO GetBase
  62.     ERASE
  63.     USE
  64.   CASE CkChoice = '3'
  65.     STORE 'EnterMsc' TO CmChoice
  66.     DO GetBase
  67.     ERASE
  68.     USE
  69.   CASE CkChoice = '4'
  70.     STORE 'Verify' TO CmChoice
  71.     DO GetBase
  72.     ERASE
  73.     USE
  74.   CASE CkChoice = '5'
  75.     STORE 'Recncile' to CmChoice
  76.     DO GetBase
  77.     ERASE
  78.     USE
  79.   CASE CkChoice = '6'
  80.     STORE 'EditCk' TO CmChoice
  81.     DO GetBase
  82.     ERASE
  83.     USE
  84. ENDCASE
  85. ENDDO
  86.