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"

PROGRMA PARA ACCESAR A LA INFORMACION DE UNA BASE DE DATOS MEDIANTE UN PROGRMA
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

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
enddo
?
use
wait

PROGRMA PARA ACCESAR A LA INFORMACION DE UNA BASE DE DATOS MEDIANTE UN PROGRMA
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