Define Verb  REFORMAT

  Image  "SYS$DISK:[]REFORMAT"

  Qualifier  VERSION , Nonnegatable, Syntax=SHOWVER

    Parameter  P1 , Prompt="From" , Value( Required, Type=$INFILE )

    Parameter  P2 , Prompt="To" , Value( Required, Type=$OUTFILE )

      Qualifier  FORTRAN , Nonnegatable

      Qualifier  LIST , Nonnegatable

      Qualifier  NONE , Nonnegatable

	Disallow  ANY2(FORTRAN,LIST,NONE)

      Qualifier  CONVERT , Nonnegatable

      Qualifier  TRUNCATE , Nonnegatable

      Qualifier  UNTAB , Nonnegatable

      Qualifier  SHIFT , Nonnegatable , Value( Required )

      Qualifier  COLUMNS , Nonnegatable , Value( Required, List )

      Qualifier  FIXED , Nonnegatable , Value( Required )

      Qualifier  KEY , Nonnegatable , Value( Required, List )

	Qualifier  DUPLICATES

      Qualifier  SYMBOLS , Nonnegatable , Value( List )

      Qualifier  FAO , Nonnegatable , Value( Required )

	Disallow  DUPLICATES AND NOT KEY

    Define Syntax  SHOWVER

      Parameter  P1 , Value(Type=$INFILE)

      Parameter  P2 , Value(Type=$OUTFILE )