programa para accesar a la informacion de una base de datos

store space (40) to producto
store space (10) to codigo
store space (10) to precio
store space (40) to describe
cod = space (4)
use productos
clear
@5,5 say "introdir el codigo" get cod
read
locate for cod = codigo
@7,5 say "que cantidad compro? get cantidad
t= cantidad * precio
@9,20 say producto
@10,5 say "total:"
@10,15 say t
wait

programa para hacer un ciclo con una base de datos

use c:\learnforlemplist

clear

?

?

do while.not.eof ()

? proper (trim(fname)+""+iname)

skip

enddo

use

wait

como combinar un ciclo do y una instruccion

if/ else
use c\learn\emplist

clear

?

wait "do you want the names capitalized (y/n)" to yesno

?

do while.not.edf ()

if upper (yesno)="y"

?

upper (trim(fname)+""+iname

end if

skip

enddo

?

use

wait

programa para evaluar la expresion :

vf=vo+at
store 0 to a,vi,vf

fresp="s"do while (resp="s")

clear

@5,5 say "introduce la velocidad inicial" get vi

@6,5 say "introduce la aceleracion"

get areadf=vi*a

@8,5 say "fuerza"

@8,12 say vf

@8,30 say m/seg
"wait "