
{  The purpose of this procedure is to change the status
{  of the current task to a specified WAIT status.
{
{    TMP$SET_TASK_WAIT (TASK_STATUS)
{
{  TASK_STATUS : (INPUT) This parameter specifies the new task
{                        status.
{
