$ pwd = f$directory()
$ write sys$output "Present Working Directory ",pwd
