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

   tp_onempty() - notify when output buffer empty

   nNote := tp_onempty(nPort, [cFunction])

   nPort       Serial port number.
   cFunction   Name of notification function.

   Returns     Notification handle.

   Requests notification when the output buffer becomes empty.  If
   cFunction is omitted, deletes any onempty notification request for
   that port.

   Example:

       nFD := fopen("message.txt")
       SendBlock()

       procedure SendBlock
           local cBlock

           cBlock := freadstr(nFD, 1000)

           if len(cBlock) > 0
               tp_send(1, cBlock)
               tp_onempty(1, "SendBlock")
           else
               fclose(nFD)
           endif

           return