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

   tp_waitproc() - install tp_waitfor() monitor procedure

   tp_waitproc([cProcedure])

   cProcedure  Procedure name

   tp_waitproc() was invented as an aid for debugging tp_waitfor().
   When you specify a monitor procedure, tp_waitfor() will call that
   procedure, passing it all of the text that tp_waitfor() processes.
   The text is passed in chunks of one or more characters, size
   depending on the speed of the incoming data.

   Once you set a monitor procedure, it stays in effect until you
   specify a different one, or call tp_waitproc() again with no argument
   (NOT an empty string) to remove the monitor.

   [5.0] In Clipper 5.0, you can use a code block instead of a procedure
   name.

   Example:

       ...
       tp_waitproc("WaitMon")      // Set monitor
       tp_waitfor(nPort, 60, "CONNECT", "NO DIAL", "BUSY", ;
           "NO ANSWER", "NO CARRIER")
       ...
       tp_waitproc()               // Remove monitor
       ...
       tp_waitproc( { |chunk| qqout(chunk) } )
                                   // Clipper 5 only

       procedure WaitMon(chunk)
           ?? chunk
           return