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 / MBUG102.ARC / MENU7.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  31 lines
  1. *MENU7.PRG
  2. *FILE MAINTENANCE PROGRAM
  3. ERASE
  4. DO WHILE T
  5. ERASE
  6. @ 2,0 SAY '*****************************************************************'
  7. @ 3,0 SAY '                 FILE MAINTENANCE MENU                           '
  8. @ 5,0 SAY '         PRESS.........................TO DO                     '
  9. @ 6,0 SAY '          1                           TO CHECK LAST FEW ENTRIES  '
  10. @ 7,0 SAY '          2                           END OF MONTH PROCEDURES    '
  11. @ 8,0 SAY '          3                           EDIT MENU                  '
  12. @ 9,0 SAY '          4                           RECOVER DISK SPACE         '
  13. @ 11,0 SAY '          R                           RETURN TO MAIN MENU       '
  14. @ 12,0 SAY '****************************************************************'
  15. SET CONSOLE OFF
  16. WAIT TO DEC
  17. STORE !(DEC) TO DEC
  18. SET CONSOLE ON
  19. DO CASE
  20.  CASE DEC='1'
  21.  DO A:LISTFILE
  22.  CASE DEC='2'
  23.  DO A:ARCHIVE
  24.  CASE DEC='3'
  25.  DO A:MAINTAIN
  26.  CASE DEC='4'
  27.  DO A:RECOVER
  28.  CASE DEC='R'
  29.     RETURN
  30. ENDCASE
  31. ENDDO       EDI