/* 5. Erweiterung */
/* Die Startup-Sequence wird blockweise gelesen
 * und an einen zweiten Rechner uebertragen.
 */

void SendeTextDatei(IOExtSerPtr txReqPtr)
{
  FileHandleBPtr txDateiHdl;
  long           gelesen,
                 geschrieben;

  geschrieben = FPuts(txWin, Senden);        /* Info-Text */
  SetTermChars(txReqPtr);     /* um Dateiende zu erkennen */
  txReqPtr->IOSer.io_Command = CMD_WRITE;
  txDateiHdl = (FileHandleBPtr       ) /* exemplar. Datei */
                Open("S:StartUp-Sequence", MODE_OLDFILE);
  if (txDateiHdl)            /* Datei zum Lesen geoeffnet */
    {
     for(;;)                            /* Endlosschleife */
       {
        gelesen =                     /* Datenblock lesen */
           FRead(txDateiHdl, txPuffer, 1, sizeof(txPuffer));
        if (gelesen)                       /* Byte-Anzahl */
          {
           txReqPtr->IOSer.io_Length = gelesen;
           DoIO(txReqPtr);                  /* abschicken */
           geschrieben = Write(txWin, ".", 1);/* nur Info */
          }
        else               /* nichts (mehr) gelesen, also */
          break;                 /* raus aus der Schleife */

        if (txReqPtr->IOSer.io_Error)  /* bei Sendefehler */
           break;                   /* Schleife verlassen */
       }
     Close(txDateiHdl);
    }
  geschrieben = FPuts(txWin, Beendet);        /* nur Info */
}