{
{    The purpose of this procedure is to send as much data as is allowed by
{ system and network resources on the given channel connection.  If all data is
{ not sent, the data fragments are updated and the remaining data is returned
{ to the caller.
{
{       NLP$SK_TCP_SEND_DATA (CL_CONNECTION, INITIAL_CAPACITY, DATA,
{             DATA_LENGTH, PUSH_FLAG, URGENT_FLAG, STARTING_FRAGMENT,
{             REMAINING_FRAGMENT, REMAINING_DATA_LENGTH)
{
{ CL_CONNECTION: (input, output)  This parameter specifies the interlayer
{       structure associated with the channel connection.
{
{ INITIAL_CAPACITY: (input)  This parameter specifies the initial capacity on
{       the channel connection.  A non zero capacity represents a clear to send
{       condition.  On input the capacity must be non-zero.
{
{ DATA: (input, output)  This parameter specifies the data fragments to be
{       sent.  On return, it contains the remaining data fragments.
{
{ DATA_LENGTH: (input)  This parameter specifies the length of the data to be
{       sent.
{
{ PUSH_FLAG: (input)  This parameter specifies the value of the PUSH flag to be
{       associated with the data.
{
{ URGENT_FLAG: (input)  This parameter specifies the value of the URGENT flag
{       to be associated with the data.
{
{ STARTING_FRAGMENT: (input)  This parameter specifies the next fragment from
{       which to start sending data.
{
{ REMAINING_FRAGMENT: (output)  This parameter contains the starting fragment
{       of the remaining data.
{
{ REMAINING_DATA_LENGTH: (output)  This parameter contains the length of the
{       remaining data
{
