$ this = f$environment("PROCEDURE")
$ this_dir = f$parse(this,,,"DEVICE") + f$parse(this,,,"DIRECTORY")
$ define/system/exec/nolog FREETYPE 'this_dir'
$ define/system/exec/nolog FREETYPE_SHR32 FREETYPE:freetypeshr32-2_1_4.exe
$! define/system/exec/nolog FREETYPE_SHR64 FREETYPE:freetypeshr64-2_1_4.exe