procedure async_stuff(ch: char);

   This function tries to stuff characters into the asynchronous
   communications port to which connection has been set up, by filling
   the buffer to be used.