STORE SPACE (30) TO PRODUCTO
STORE SPACE (4) TO CODIGO
STORE 0 TO PRECIO
STORE
0 TO CANTIDAD,T
COD= SPACE(4)
USE
PRODUCTOS
CLEAR

PROGRMA 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

COMO CONBINAR 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

estore space(30) to producto
estore space(15) to peso
estore space(13) to presio
estore space(4) to codigo
estore space (10) to marca
estore 0 to presio
store 0 to cantidad
cod= space (4)
use productos
clear
@5,5 say"introdusir el codigo" get cod
read
locate for cod=codigo
@8,5 say" introdusca cantidad comprobada"get cantidad
t=cantidad*presio
@9,5 say"producto:"
@9,20 say producto
@10,5 say "total:"
@10,15 say t
wait