$! 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")
$ demoCom = procDev+f$extract(0,f$locate("WASD_ROOT",procDir)+9,procDir)+".INSTALL]DEMO.COM"
$ write sys$output ""
$ @'demoCom' "''p1'"