/*
Példa fájlkezelésre:
	- egy adatfájl adatainak beolvasása
	- visszairatása egy másik fájlba
Az adatfájl tartalma: diákok neve, pontszáma
Az adatokat a program két listában tárolja - természetesen egyéb tárolás is lehetne.
*/



start:- fajlbol(Nevek, Pontok), 
	fajlba(Nevek, Pontok),
	writeln('Kész!').


fajlbol(Nevek,Pontok) :- see('adatok.dat'), olvas(Nevek,Pontok), seen.

fajlba(Nevek,Pontok) :- write('Mi legyen az eredményfájl neve (kiterjesztéssel - esetleg útvonallal - aposztrofok között: '), 
			read(Eredmeny),
			tell(Eredmeny), kiir(Nevek,Pontok), told.


olvas([Nev|Tn],[Pont|Tp]) :- read(Nev), Nev\=end_of_file, read(Pont), olvas(Tn,Tp).
olvas([],[]).

kiir([Nev|Tn],[Pont|Tp]) :- writef('%w.\n%w.\n',[Nev,Pont]), kiir(Tn,Tp).
kiir([],[]).


