procedure RcvMsg(var dest: packed array [dlow..dhigh: integer] of char;
                 var message: message_packet_type;
                 var recv_status: integer
  	);
   EXTERNAL;
{*USER*
Receive a MESSAGE from the task specified in DEST.  If no task specified,
(string is clear - len = 0), then receive from any task.
The $DSW from variable receive directive is
returned in RECV_STATUS. }