!**************************************TAR**************************************
define verb TAR
   image u$dir:TAR
   parameter P1 , label=TAPE , prompt="Tape drive"
      value (required,type=$infile)
   qualifier FILE
   qualifier EXTRACT
   qualifier BINARY
   qualifier INQUIRE
   qualifier SECOND_CHANCE
      default
   qualifier NAMES
      value (default="sys$output:",type=$outfile)
   qualifier LIST
      value (default="sys$output:",type=$outfile)
   qualifier VERBOSE
   qualifier FLATTEN
      default