NAME
    DiskState -- Checks if a disk is validated

INPUTS
    DiskState DISK/A,QUIET/S

DISK
    The disk you want to check. Can be a name (ie. Work:) or a device name (ie.
DH0:).

QUIET
    No output.

RETURN CODES
     0         : Disk is validated or write protected.
     5 (WARN)  : Disk is not validated.
    10 (ERROR) : Couldn't get disk information.

EXAMPLE
    You could have this in your startup-sequence:

    C:DiskState dh0: QUIET
    IF WARN
        C:MakeDir RAM:ENV RAM:ENV/Sys   ;Disk is unvalidated, putting ENV: into
RAM:
        C:Copy >NIL: ENVARC: RAM:ENV ALL NOREQ
        Assign ENV: RAM:ENV
    Else
        Assign ENV: DH0:ENV
        C:HDEnv         ;HDEnv is a little utility which updates ENV: from
ENVARC:
    EndIf

Enjoy!

                                                                  Zapek

 PERMSSN    UID  GID    PACKED    SIZE  RATIO     CRC       STAMP          NAME
---------- ----------- ------- ------- ------ ---------- ------------ -------------
[generic]                 6954   10712  64.9% -lh5- ea39 Dec 25  1997 diskstate/DiskState
[generic]                 1939    4039  48.0% -lh5- e889 Dec 26  1997 diskstate/DiskState.guide
---------- ----------- ------- ------- ------ ---------- ------------ -------------
 Total         2 files    8893   14751  60.3%            Dec 27  1997