$ SHOW TIME
    15-DEC-2001 14:25:42
  $ GOSUB SYMBOL
  $ EXIT
  $ SYMBOL:
  $     SHOW SYMBOL RED
        RED = "SET DEFAULT [LOWE.DCL]"
  $     RETURN 1

      The GOSUB command transfers control to the subroutine labeled
      SYMBOL. After the subroutine is executed, the RETURN command
      transfers control back to the command following the calling
      GOSUB statement, giving $STATUS and $SEVERITY a value of 1. The
      procedure then exits.