$!
$! Determine directory in which all programs are ...
$ cf = F$ENV("PROCEDURE")
$ root=f$parse(cf,,,"DEVICE") + f$parse(cf,,,"DIRECTORY")
$ fload == "@" + root + "fload.com"
$ subfont == "$" + root + "subfont.exe-" + f$getsy("ARCH_NAME")
$ exit