Define Verb  REFORMAT

  Image  "HERE: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

	Disallow  DUPLICATES AND NOT KEY

      Qualifier  DJDE , Nonnegatable	! For Xerox 9700 laser printer files

      Qualifier  SYMBOLS , Nonnegatable , Value( List )

      Qualifier  FAO , Nonnegatable , Value( Required )

      Qualifier  BLANK_LINES , Nonnegatable , Value( Required, Type=BLANKOPS )

	  Define Type  BLANKOPS
	       Keyword  REMOVE_ALL
	       Keyword  REMOVE_NULLS
	       Keyword  REMOVE_NON_NULLS
	       Keyword  REMOVE_ADJACENT

    Define Syntax  SHOWVER

      Parameter  P1 , Value(Type=$INFILE)

      Parameter  P2 , Value(Type=$OUTFILE )