[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]

$! a wrapper to get from the familiar pre to post 8.1 location 'f$verify(0)
$ proccom = f$edit(f$environment("procedure"),"upcase")
$ installcom = f$parse(proccom,,,"device","no_conceal") + -
               f$parse(proccom,,,"directory","no_conceal") - -
               "][" - ".000000" - "000000."- ".]" - "]" + -
               ".INSTALL]INSTALL.COM"
$ @'installCom' "''p1'" "''p2'"