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

programa para hacer un ciclo con una base de datos

use c:\learnfox\empist
clear
?
?do while. not. eof c)
?proper(tim(fnama)+" "+name)
skip
end do
?
use
wait

programa de venta de productos

1_store space (30) to producto
2_store space (4) to codigo
3_store 0 to precio
store 0 to cantidad, t
cod=space(4)
use productos
clear
@5, say "introducir el codigo" get cod
read
locate for cod=cmd001
@7,6 say "cantidad comprada?" get cantidad
read
t=cantidad*precio
@a,5 say"producto:"
@a,20 producto
@10,5 say "total:"
@10,15 say T
wait

programa para calcular la valocidad final

STORE 0 TO VF,VO,A,T
RESP="S"
DO WHILE (RESP="S")
CLEAR
@5,5 SAY "INTRODUCE EL VALOR DE LA VELOCIDAD INICIAL" GET VO
READ
@6,5 SAY "INTRODUCE EL VALOR DE LA ACELERACION" GET A
READ
@7,5 SAY "INTRODUCE EL VALOR DE TIEMPO" GET T
READ
VF=VO+A*T
@8,5 SAY "VELOCIDAD FINAL="
@8,12 SAY VF
@8,30 SAY "M/SEG2"
WAIT "DECEA OTROS CALCULOS/N?" TO RESP
RESP=UPPER(RESP)
ENDDO
WAIT WINDOW "FIN DEL PROGRAMA"

lista de presios

calculo del volumen del cilindro

store 0 to r,h
store 3.1416 to pi
clear
@10,10 say "introduce el radio" get r
read
@ 11,10 say "introducir la altura" get h
read
v=pi*r*r*h
@14,10 say "V="
@14,13 say v
@14,30 say"u.cubicas"
wait