!
! Command definition for NEW callout command
!
  define syntax DEBUG
    image PUB_ROOT:[source.callout]callout
    parameter P1,
      prompt = "Line",
      value (required, type = $DEVICE)
    qualifier ECHO
    qualifier SPEED,
      nonnegatable,
      default,
      value (default = "1200", type = $NUMBER)
    qualifier INTERRUPT,
      nonnegatable,
      default,
      value (default = "1", type = $NUMBER)

  define verb callout
    image PRIV:callout
    parameter P1,
      prompt = "Line",
      value (required, type = $DEVICE)
    qualifier DEBUG,
      syntax = DEBUG
    qualifier ECHO
    qualifier SPEED,
      nonnegatable,
      default,
      value (default = "1200", type = $NUMBER)
    qualifier INTERRUPT,
      nonnegatable,
      default,
      value (default = "1", type = $NUMBER)