Programa para calcular "VF"

store 0 to vf,vo,a,t
resp="s"
do while (resp="s")
clear
@5,5 say "Introduce la velocidad inicial" get vo
read
@6,5 say "Introduce la aceleracion" get a
read
@7,5 say "Introduce el tiempo" get t
read
vf=vo+a*t
@8,5 say "El resultado es:"
@8,15 say vf
@8,25 say "M"
wait "¿desea otro calculo s/n?" to resp
resp=upper (resp)
enddo
wait window "fin del programa"