Define Verb  ZMENU

  Image  "HERE:ZMENU"

   Qualifier  SCROLLING , Syntax=ZMENU_SCROLLING

    Parameter  P1 , Value( Default="SYS$INPUT:" )

      Qualifier  SYMBOLS , Nonnegatable

      Qualifier  POINTER , Default, Nonnegatable , Value( Default="-->" )

      Qualifier  ITEM , Default, Nonnegatable, Value( Default="^" )

      Qualifier  INITIAL , Default , Nonnegatable, Value(Type=$NUMBER,Default=1)

      Qualifier  WIDE , Nonnegatable

      Qualifier  NOINTERRUPT , Nonnegatable

      Qualifier  TEXT , Nonnegatable, Value

      Qualifier  START0 , Nonnegatable

      Qualifier  BOUND , Nonnegatable

      Qualifier  DEBUG , Nonnegatable

      Qualifier  VERSION , Nonnegatable

Define Syntax  ZMENU_SCROLLING

  Image  "HERE:ZMENU_SCROLL"

    Parameter  P1 , Value(Required,Type=$INFILE)

      Qualifier  ITEM , Default, Nonnegatable, Value( Default="^" )

      Qualifier  WIDE , Nonnegatable

      Qualifier  SYMBOLS , Nonnegatable