ako$

USE gyogyszer
v=0
DO WHILE v<>7
 	?"1. Adattábla megjelenítése"
 	?"2. Adott értéknél olcsóbb gyógyszerek listája"
 	?"3. Valaki vásárol"
 	?"4. Uj gyógyszer érkezik"
	?"5. Napi törlés"
	?"6. Adott típusú gyógyszer drágul adott százalékkal"
 	?"7. Kilépés"
 	input "Valassz:" to v
 	DO case
 	   CASE v=1
 	      BROWSE
 	    CASE v=2
 	    	input "Milyen erteknel legyen olcsobb:" to ert
 	    	BROWSE FOR egysegar<ert
 	    CASE v=3
 	       accept "Gyogyszer neve:" to gy
 	       input "Mennyit:" to h

 	       LOCATE FOR gyogyszer=gy AND mennyiseg>0
 	       IF FOUND()
 	          IF mennyiseg>=h
 	             ?"Fizetni kell:", egysegar*h," lejt"
 	             replace mennyiseg WITH mennyiseg-h
 	           ELSE
 	             ?"Fizetni kell:" , egysegar*mennyiseg," lejt"
 	             Replace mennyiseg WITH 0
 	           ENDIF
 	        ELSE
 	           ?"Nincs ilyen gyogyszer raktaron"
 	          ENDIF
 	     CASE v=4
 	     accept "Nev:" to gy
 	     accept "Tipus:" to t
 	     input "Egysegar:" to ar
 	     input "Mennyiseg:" to h
 	     input "Ervenyes:" to erv
 	     APPEND BLANK
 	     replace gyogyszer WITH gy tipus WITH t egysegar WITH ar mennyiseg WITH h ervenyes WITH erv
 	    CASE v=5
			DELETE FOR mennyiseg=0 OR ervenyes<=DATE()
		CASE v=6
			accept "Tipus:" to t
			input "Hany szazalekkal?" to sz
			replace egysegar WITH egysegar+egysegar*sz/100 FOR tipus=t


 	    endcase
 	    WAIT
 	 ENDDO
 	 use