set talk off
clear 
use untitled
?'lista abonatilor'
display all
wait
?'lista abonatilor care si-au achitat factura'
display all nume for achitat=.T.
go top
locate for achitat=.F.
if not found()
?"nu exista abonati care si-au achitat factura"
endif
wait
?'suma totala'
calculate sum(pretluna) for achitat=.T. to x
?x
use
return