{
{ Procedure DUP$OUTPUT_MESSAGE takes the text sent to it and outputs it to the
{ the file specified,
{
{     DUP$OUTPUT_MESSAGE (status_message: ost$status; VAR display_control_
{       pointer, ^clt$display_control, status: ost$status)
{
{  STATUS_MESSAGE - This record contains the parameters that the OS will use
{    to fill in the message template
{
{  DISPLAY_CONTROL_POINTER - This points to a record of type display_control
{    which describes the file to whch output will be directed
{
{  STATUS - This is the standard status record for returning any errors
{
{ Procedure DUP$OUTPUT_MESSAGE uses the OS to formulate the message.  Message
{ level of brief is used and maximum message length is set to the page width in
{ the display control record.  Any bad status returned by CLP$PUT_PARTIAL will{ cause output to stop (It could
{ to the caller.
