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

   tp_isdsr() - return DSR status

   lDSR := tp_isdsr(nPort)

   nPort       Serial port number.

   Returns     TRUE if DSR set, FALSE if cleared.

   Returns the status of the DSR input: TRUE if DSR is asserted, FALSE
   if DSR is negated.  DSR is the Data Set Ready input.  It is usually
   asserted whenever the device connected to the serial port is powered
   up, but may be negated if the device is not ready to accept input.

   Example:

       if .not. tp_isdsr(1)
           ? "Modem is not turned on"
       endif