{
{    The purpose of this procedure is to compare swap the current task id in
{ the given active receiver record.
{
{       NLP$UDP_ACTIVATE_RECEIVER (ACTIVE_RECEIVER, ANOTHER_RECEIVER_ACTIVE)
{
{ ACTIVE_RECEIVER: (input)  This parameter contains the pointer to the active
{       receiver record.
{
{ ANOTHER_RECEIVER_ACTIVE: (output)  This parameter is set to TRUE if the
{       initial value of active receiver is non zero.
{
