home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug019.arc / FILES.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  40 lines
  1. ********  FILES No.2  *********
  2. ********  This changes drive  *******
  3. ERAS
  4. STORE 'A' TO B
  5. SET TALK OFF
  6.      ACCEPT 'Do you require a print-out (Y / N) ?'to A
  7.      IF !(A)='Y'
  8.      SET PRINT ON
  9.      ENDIF
  10.      DO WHILE T
  11. *****?'Type in zero (0) to QUIT, or indicate '
  12.      ACCE 'Which disk drive? A or B ?        ( 0 to Quit ).' to B
  13.      If B='0'
  14.      SET TALK ON
  15.      CANCEL
  16.      ELSE
  17.      ERASE
  18. ?'                            FILES ON', &B
  19. ?'                            DATABASE FILES'
  20. DISP FILES LIKE *.DBF ON &B
  21. ?'                            COMMANDS'
  22. DISP FILES LIKE *.CMD ON &B
  23. ?'                            INDEX FILES'
  24. DISP FILES LIKE *.NDX ON &B
  25. ?'                            BACKUP FILES'
  26. DISPLAY FILES LIKE *.BAK ON &B
  27. SET PRINT OFF
  28. ENDIF
  29. ENDDO
  30.  
  31.  
  32.      ACCEPT ' which disk drive ?  A or  B  ?' to B
  33.      If B='0'
  34.      SET TALK ON
  35.      CANCEL
  36.      ELSE
  37.      ERASE
  38. ?'                          Files on  ', &B
  39. ?'                            COMMANDS'
  40. DISP FILE LIKE *.CMD ON &B