Procedure Stop;
   EXTERNAL;
{*USER*
 Pascal-3 procedure to place calling task in STOPPED state. From this
state, task can only be resumed by MCR UNSTOP and USTP directives.
 
Directive status is avaiable in $DSW on return;
}