ARCHIVOS_1.pl

% ESCRITURA Y LECTURA DE ARCHIVOS HASTA EL FIN DE ARCHIVO

%======================
% ESCRITURA
%======================
escritura:-
	read(X),
	X \= 0,		% VALOR DE SALIDA
	escritura_1(X).
escritura:-!.


escritura_1(X):-
	write(X), write('.'), nl,
	escritura.

escribe(Archivo):-
	tell(Archivo),
	escritura,
	told.
%======================
% LECTURA
%======================
lectura:-
        read(Term),
	Term \== end_of_file,
        lectura_1(Term).

% se encontrO el fin de archivo
lectura:- !.

lectura_1(Term) :-
        write(Term), nl,
        lectura.


lee(Archivo):-
	see(Archivo),
	lectura,
	seen.
%==================================================================