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

   tp_isdcd() - return DCD status

   lDCD := tp_isdcd(nPort)

   nPort       Serial port number.

   Returns     TRUE if DCD is set, FALSE if cleared.

   Returns the status of the DCD input: TRUE if DCD is asserted, FALSE
   if DCD is negated.  DCD is the Data Carrier Detect input.  It is
   usually asserted by a modem when it has connected to another modem,
   negated when either end disconnects.

   Example:

       if .not. tp_isdcd(1)
           ? "Connection lost"
       endif