%
% Entrada-salida a y desde archivos
%

f2 = fopen('misdatos1.txt', 'r');

fprintf('\n     DETALLE DE DATOS LEIDOS\n\n');
fprintf('Nro. lectura      Caracter      ASCII\n');

ntotread = 0;
while(1)
  [v, n] = fscanf(f2, '%c', 1);
  if (n <= 0)
    break;
  end
  ntotread = ntotread + 1;
  if (v < 32)
    fprintf('%8d           NO-IMP        %3d\n', ntotread, v);
  else
    fprintf('%8d            >%c<          %3d\n', ntotread, v, v);
  end
end

status = fclose(f2);

fprintf('\nEl número total de datos leidos es %d\n', ntotread);
