set talk off
clear
use elevi
? 'elevi:'
display all
? 'elevi olimpici'
go top
locate for olimpic=.T.
if found ()
go top
list nume, prenume, olimpic for olimpic=.t.
else
? 'nu e'
endif
go top
locate for premiant=.t.
if found()
go top
list nume, prenume, premiant for premiant=.t.
else
? 'nu e'
endif
go top
locate for nume='popescu'
if found()
go top
list premiul, pret for nume='popescu'and prenume='dan'
else
? 'nu e'
endif