$ if (P1 .eqs. "")
$ then
$  write sys$output "''esc'[1mProcedure SCRIPT to Change Directory 
$  write sys$output "based on input directory entered thru command line
$  write sys$output "''esc'[m
$  write sys$output "USAGE:''esc'[4m@cd <DIR>
$  write sys$output "''esc'[m
$  exit
$ ENDIF
$ set def [&P1]
$ sh def
