COMO CAMBIAR UN CICLO DO Y UNA INSTRUCCION IF/ELSE

use c\learnfox\emplist
clear
?
wait"Do you want the names capitalized(y\n)"To yesno
?
Do while.Not.Eof ()
If upper(yesno)="y"
?upper(Trim(fname)+""+Iname)
Else
?profer(Trim(fname)+""+Iname)
End if
Skip
Enddo
?
Use
Wait