function savePerson( pers, filename )
    
    num_pers = length( pers );

    % Datei zum Schreiben öffnen
    fid = fopen( filename, 'w' );
    % Check, ob fid gültig ist 
    if( fid < 0 ) 
      fprintf( 'Kann Datei %s nicht öffnen \n', filename ); 
      return; % im Fehlerfall Funktion beenden 
    end
   
    fprintf( fid, '\nMeine Freunde : \n' );
    fprintf( fid,  '---------------\n' );
    for( n = 1:num_pers )
       fprintf( fid, 'Name: %s, Tel.Nr.: %g \n', ...
                pers(n).name, pers(n).telnr  );
    end
    
    fclose( fid );
            