{
{   The purpose of this procedure is to check if a TCP socket
{ for the given application is available for the user to accept.
{ If the user specifies the wait option, the current task is queued
{ in the wait for accept socket queue.
{
{       NLP$SK_CHECK_ACCEPT_SOCKET_AVAI (APPLICATION, WAIT,
{             ACTIVITY_COMPLETE)
{
{ APPLICATION: (input) This parameter specifies the application
{       name.
{
{ WAIT: (input) This parameter is set to TRUE if the user wants to
{       wait for the socket.
{
{ ACTIVITY_COMPLETE: (output) This parameter is set to TRUE if a
{       socket is available to be accepted. Otherwise, it is set
{       to FALSE.
{

