$ set nover
$ calcclient = "$" + f$environment("default") + "calcclient"
$ count = P1
$ starttm = f$cvtime(,,"time")
$ loop:
$    calcclient add 1000 'count'
$    count = count - 1
$    if count .le. 0 then goto end_loop
$    goto loop
$ end_loop:
$ endtm = f$cvtime(,,"time")
$ write sys$error f$cvtime("''endtm'-''starttm'",,"time")