$ set noon
$ device := _ARISIA$FRA7:
$ set process/priv=all
$ if .not. f$getdvi(device,"exists") then exit
$ if (f$getdvi(device,"sts") .and. 16) .ne. 0
$ then
$   mc squash_flush _ARISIA$FRA7:
$   dismount _ARISIA$FRA7:
$ endif
$ set on
$ exit