$! 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'"