como cambiar un ciclo do y una instrucion if\else

use c\learnfox\empist
clear
?
wait "do you want the names capitalized (4\n) "to yesno
?
do while. not. eof c )
if pper (yesmo)="y"
?upper (trim(frame)+" "+ i name)
else
?upper (trim(frame)+" "+ i name)
end if
skip
end do
?
use
wait