/*
Az adatok.dat fájl néhány ember nevét és a nála lévő pénzmennyiség értékét tartalmazza.
Feladatunk "játszadozni" ezekkel az adatokkal:
- valamilyen feltétel teljesülése esetén 
	- szúrjunk be újabb adatot
	- töröljünk adatot
	- módosítsuk az adatot
- állapítsuk meg, hogy hány különböző név szerepel az adatok között
- állapítsuk meg az adatbázisban szereplő számok összegét
- az egy-egy névhez tartozó átlagos számértéket
- ki(k) a legjobbak
- stb.

*/

start :- adatbevitel, menu.

adatbevitel :- ...

menu :- writeln('Válasszon a következő lehetőségek közül: '),
	writeln('1. új ember felvétele'),
	writeln('2. adott ember törlése'),
	writeln('3. egy ember pénzt költ'),
	writeln('4. egy ember pénzt kap'),
	writeln('5. minden ember pénzt kap'),
	writeln('6. adatok listázása'),
	writeln('7. összes pénzmennyiség'),
	writeln('8. átlagos pénzmennyiség'),
	writeln('9. leggazdagabbak'),
	writeln('0. kilépés'), read(V), menu(V).

menu(1) :- write('Kérem a nevét: '), read(Nev), beszur(Nev), menu.

menu(2) :- write('Kérem a nevét: '), read(Nev), torol(Nev), menu.

menu(3) :- write('Kérem a nevét: '), read(Nev), kolt(Nev), menu.

menu(4) :- write('Kérem a nevét: '), read(Nev), kap(Nev), menu.	

menu(5) :- writeln('Mekkora összeget kapnak? : '), read(Penz), kapnak(Penz), menu.

menu(6) :- listazas, menu.

menu(7) :- vagyon, menu.

menu(8) :- atlag, menu.

menu(9) :- leggazdagabbak, menu.

menu(0) :- writeln('végre! :)').

menu(_) :- writeln('Hibás választás'), menu.
  
