COMO COMBINAR UN CICLO DO Y UNA INTRUCCION IF/ELSE

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

programa para hacer un ciclo con una base de datos

-use:\learnfox\emplist
-clear
-?
-?
-do while.not.eof()
-? proper(trim(frame)+""+iname)
-end do
-?
-use
-wait

programa de ventas

-store space (25) to producto
-store space (15) to peso
-store space (15) to precio
-store space (4) to codigo
-store space (15) to marca
-store 0 to precio
-store 0 to cantidad
-cod=space (4)
-use productos
-clear
-@ 5,5 say "introdusca el codigo" get cod
-read
-locate for cod=codigo
-@ 8,5 say "introdusca la cantidad comprada" get cantidadT
-=cantidad*precio
-@ 9,5 say "producto"
-@ 9,20 say producto
-@ 10,5 say "total"
-@ 10,15 say T
-wait


DE: LEYDA SOTELO DIAZ