FOX_programkocsi.prg

USE kocsi
v=0
DO WHILE v<>7
	CLEAR
	?"1. Adott értéknél fiatalabb kocsik"
	?"2. Az elsô piros opel tulajdonosának neve és a kocsi ára"
	?"3. Adott keresztnevû tulajdonosok"
	?"4. Adott típusú kocsik drágulnak megadott százalékkal"
	?"5. Adott színû kocsikat írjuk be egy szövegállományba"
	?"6. Uj adat"
	?"7. Kilepes"
	input "Mit valasztanal:"
	DO CASE
		CASE v=1
			input "Adott ev:" to gy
			LOCATE FOR gyartas<gy
			IF FOUND()
				BROWSE FOR gyartas<gy
			ELSE
				?"Nincs ilyen kocsi"
			ENDIF
		CASE v=2
			LOCATE FOR szin="piros" AND tipus="Opel"
			IF FOUND()
				?tulajd,ar
			ELSE
				?"Nincs piros Opel"
			ENDIF
		CASE v=3
		accept "Adj meg egy keresztnevet" to keresztnev
		BROWSE FOR SUBSTR(tulajd,AT(" ",tulajd)+1)=keresztnev
		CASE v=4
			accept "Adj meg egy tipust" to tip
			input "Szazalek" to sz
	ENDCASE
	WAIT "Uss le barmit"
ENDDO