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

   tp_iscts() - return CTS status

   lCTS := tp_iscts(nPort)

   nPort       Serial port number.

   Returns     TRUE if CTS is set, FALSE if cleared.

   Returns the status of the CTS input: TRUE if CTS is asserted, FALSE
   if CTS is negated.  CTS is the Clear To Send input.  It is usually
   asserted in response to the computer's RTS (Request To Send) output,
   but may be negated if the other device is not ready to accept input.

   Example:

       if tp_iscts(1)
           ? "CTS is high"
       endif