contrib/openvms/vms/startup.com

$!
$! Mercurial startup file
$!
$ proc = f$environment("PROCEDURE")
$ cur_dev = f$parse(proc,,,"DEVICE","SYNTAX_ONLY")
$ cur_dir = f$parse(proc,,,"DIRECTORY","SYNTAX_ONLY")
$!
$! Define logicals
$!
$ @'cur_dev''cur_dir'logicals "/system/exec"
$
$ exit