/* CHKDRIVE.CMD - check drive status */
'@echo off'
parse arg drive_letter;
drive_letter=delstr(drive_letter,2);
if drive_letter=' ' then do
    say "CHKDRIVE.CMD - check status of drive"
    say "USAGE: CHKDRIVE.CMD <drive>"
    say "where <drive> is the letter of drive you wish to check"
    exit
    end
else
    signal ON NOTREADY name NOT_READY
    call STREAM drive_letter || ':*', 'D'
    say "Drive Ready"
    exit

NOT_READY:
say "Drive Not Ready"
return