Click above to get retro games delivered to your door ever month!

   tp_xdcd() - get or set file transfer DCD flag

   lOldFlag := tp_xdcd([lNewFlag])

   lNewFlag    New DCD flag.

   Returns     Original DCD flag.

   Gets or sets the file transfer DCD flag.  When this flag is set to
   TRUE, DCD (Data Carrier Detect) handshaking is enabled during a
   protocol file transfer.  If DCD is negated (i.e., if the modem
   connection is lost) during a file transfer, the transfer will abort
   immediately with error code TE_NDCD.

   If lNewFlag is omitted, tp_xdcd() just returns the current flag.  If
   lNewFlag is specified, it changes the flag and returns the original
   value.  The initial default setting is FALSE.

   Example:

       tp_xdcd(tp_isdcd(1))
           // If DCD is on, assume port 1 is a modem and we should
           // abort a file transfer if it hangs up.  If DCD is off,
           // this may be a hardwired connection with no DCD.