function write_file()
   filename = 'neu.txt';
   fid = fopen( filename, 'w' );  % Datei zum Schreiben öffnen
   if( fid < 0 )                  % Check, ob fid gültig ist
      fprintf( 'Kann Datei %s nicht öffnen \n', filename );
      return;   % im Fehlerfall Funktion beenden
   end
   
   fprintf( 'Bitte 5 Zeilen Text eingeben : \n' );
   for( n = 1:5 )                      % 5-mal Text von der Tastatur
      tline = input( '- ', 's' );      % Tastaturabfrage  
      fprintf( fid, '%s \n', tline );  % Text in Datei schreiben
   end

   fclose( fid );   % Datei wieder schließen
end