store space(30) to producto
store space(15) to peso
store space(20) to precio
store space(4) to codigo
store space(15)to marca
store 0 to precio
store 0 to cantidad
cod= space
use productos
clear
@5,5 say "introducir el codigo" get cod
read
locate for cod=codigo
@8,5 say"introduzca cantidad comprada" get cantidad
t=cantidad*precio
@9,5 say "producto:"
@9,20 say producto
@10,5 say "total:"
@10,15 say t
wait

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

programa para hacer un ciclo con una base de datos

use c:\learnfox\emplist
clear
?
?
do while.not.eof()
?proper(trim(fname)+" "+iname)
skip
enddo
?
use
wait

programa para resolver un 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,30say "u.cubicas"
wait