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