menu:-
write('press 1 for write data on file.'),nl,
write('press 2 for read data from file.'),nl,read(Y),start(Y),
write('do u want to continue y/n?'),read(X),(X=y,menu).
start(Y):-(Y=1,go;Y=2,process),
go:-tell('C:/people.txt'),
see(user),
read(X),
write(X),
nl,
told,
process:-
        X = 'c:/people.txt',
        see(X),
        repeat,
        get_char(T),print(T),nl,
		T=end_of_file,
		!,
		seen.