home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / os2 / pmsw2.zip / CSOURCE / PMSW2 / LOADFILE.CMD next >
OS/2 REXX Batch file  |  1993-04-16  |  637b  |  18 lines

  1. /* REXX */
  2. DrvLtr="";
  3. parse arg DrvLtr;
  4. if DrvLtr="" then do;
  5. say 'Mount PM2DOS diskette in a floppy drive.';
  6. '@pause';
  7. SDrv='A:';
  8. DInfo=SysDriveInfo('A:');
  9. parse value DInfo with DrvLtr DFree DTotal DLabel;
  10. if DInfo='' | DLabel\='PM2DOS' then do; SDrv='B:'; DInfo=SysDriveInfo('B:'); end;
  11. if DInfo='' then do; say 'Floppy not mounted'; exit; end;
  12. parse value DInfo with DrvLtr DFree DTotal DLabel;
  13. if DLabel\='PM2DOS' then do; say 'Floppy not labelled PM2DOS'; exit; end;
  14. say 'Floppy:' DrvLtr DFree DTotal DLabel;
  15. end;
  16. 'Replace ' DrvLtr'\PMSW2\*.* E:\CSOURCE\PMSW2 /U'
  17. 'Replace ' DrvLtr'\PMSW2\*.* E:\CSOURCE\PMSW2 /A'
  18.