/***************************************************************************
**     Words: Ein Programm zum Lernen des Vokabulars einer Fremdsprache   **
****************************************************************************
**                            geschrieben von                             **
**                            Daniel Neukomm                              **
**                             Sustenweg 17                               **
**                             CH-3014 Bern                               **
**                           Tel 031/41 80 97                             **
**                    od.   00 41 31 41 80 97 (von Deutschland aus)       **
****************************************************************************
**                Dieses Programm darf man frei kopieren.                 **
**             Das Kopieren ist nur für diejenigen verboten,              **
**         die daraus einen geschäftlichen Profit schlagen wollen         **
**             Die Copyright-Erklärung und meine Adresse muss             **
**                      im Programm stehen bleiben!                       **
***************************************************************************/
/*   in diesem Programmteil wird mit Hilfe der Funktion FileName ein
     Filename geholt und darauf der Editer ed gestartet     */

extern char Device[20],Sprache[15],File[20];
extern long handle;

Editieren()
{
   char String[50];
   register short i,k,l;
   Write(handle,"\f",1);
   strcpy(String,"ed \"");
   strcat(String,Device);
   if ((i=String[strlen(String)-1])!=':' && i!='/' && i!='\"') strcat(String,"/");
   strcat(String,Sprache);
   if(FileName(&String[4],1)<0)return();
   Pathzuweisung(&String[4]);
   strcat(String,"\"");
   Execute(String,0,handle);   /* ed wird aufgerufen*/
}