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

$! a wrapper to get from the familiar pre to new post 8.1 location 'f$verify(0)
$ proccom = f$edit(f$environment("procedure"),"upcase")
$ procDev = f$parse(procCom,,,"device","no_conceal")
$ procDir = f$parse(procCom,,,"directory","no_conceal")
$ updateCom = procDev+f$extract(0,f$locate("WASD_ROOT",procDir)+9,procDir)+".INSTALL]UPDATE.COM"
$ @'updateCom' "''p1'" "''p2'"