como combinar un ciclo "do "y una instruccion "if/else"

use c\\earnfox\emplist
clear
?
wait "do you want the names capitalized (y/n)" to yesno
?
do while.not.eof()
if upper (yes no)="y"
?upper (trim(fname)+" "+iname
else
?proper(trim(fname)+" "+iname
end if
skip
enddo
?
use
wait