{
{   The purpose of this procedure is to get the next assignable
{ socket identifier.
{
{       NLP$SK_GET_SOCKET_ID (SOCKET_ID)
{
{ SOCKET_ID: (output) This parameter contains the assigned socket
{       identifier. A zero value implies that all socket identifiers
{       are in use.
{
