$ set noon $ device := FRA0: $ 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 FRA0: $ dismount FRA0: $ endif $ set on $ exit