*.  Proc:  SET-DEST
*.  This logic sets global variable DEST to a value that can be used as
*.  the destination option on *ACCEPT and *DISPLAY directives.
*.
*IF [INFO$,1,5,1] = DEMAND
*SET DEST = 'Z'                  . Dummy value
*ELSE
*SET DEST = 'O'                  . Console operator
*ENDIF