$ x=f$environment("procedure")
$ x=f$extract(0,f$locate("]",x),x)
$ define/nolog decus$device "''x'.]"
$ define/nolog decus$directory "''x']"
$ define/nolog exe$dir decus$device:[exe]
$ sd	:== $exe$dir:sd
$ find	:== $exe$dir:find
$ file	:== $exe$dir:file
$ compile :== @decus$directory:compile