procedure SndMsg(var dest: packed array [dlow..dhigh: integer] of char;
                 var message: message_packet_type;
                 var send_status: integer
  	);
   EXTERNAL;
{*USER*
 Send a MESSAGE to the task at DEST.  $DSW from variable send directive is
 returned in SEND_STATUS. }