Define Verb  RNOBAR

  Image  "SYS$DISK:[]RNOBAR"

   Qualifier  VERSION , Nonnegatable, Syntax=SHOWVER

    Parameter  P1 , PROMPT="File", Value(Required,Type=$INFILE)

      Qualifier  OUTPUT , Nonnegatable, Value(Required,Type=$OUTFILE)

! Values from RNO; all are assumed constant through the document:
!	N1 -- ENABLE BAR columns before bar (default 0)
!	N2 -- ENABLE BAR columns on and after bar (default 3)
!	N3 -- ENABLE BAR change bar character (default "|")
!	RM -- right margin value

      Qualifier  N1 , Nonnegatable, Value(Required,Type=$NUMBER)
      Qualifier  N2 , Nonnegatable, Value(Required,Type=$NUMBER)
      Qualifier  BAR, Nonnegatable, Value(Required)
      Qualifier  RM , Nonnegatable, Value(Required,Type=$NUMBER)

      Qualifier  NEWBAR , Nonnegatable, Value(Required)
      Qualifier  FORMAT , Nonnegatable, Value(Required,Type=FORMATS)

  Define Type  FORMATS
       Keyword  RIGHT
       Keyword  INSIDE
       Keyword  OUTSIDE

  Define Syntax	SHOWVER

    Parameter  P1 , Value(Type=$INFILE)