$ set nover
$ echoclient = "$" + f$environment("default") + "echoclient"
$ starttm = f$cvtime(,,"time")
$ echoclient "aBcDeFgHiJkLmNoPqRsTuVwXyZ0123456789_!@#$%^&*()_+=-" 'P1'
$ endtm = f$cvtime(,,"time")
$ write sys$error f$cvtime("''endtm'-''starttm'",,"time")