/* Das extern geladene Serial-Device ist leicht
 * aus dem RAM zu entfernen.
 */

void FlushSerialDevice()   /* extern geladenes Device aus */
{                                    /* aus RAM entfernen */
APTR serDev;

  serDev = (APTR)                  /* Serial-Dev. suchen */
           FindName(&execBasePtr->DeviceList, SERIALNAME);
  if (serDev)                                /* gefunden */
    {
     Forbid();               /* damit uns niemand stoert */
     RemDevice(serDev);  /* belegte Ressourcen freigeben */
     Permit();               /* wieder offen fuer andere */
    }
}