Basic - DEF en BASIC

Hola:
Mi consulta es la siguiente:
Quiero saber que es el comando DEF en qbasic,
Lo que pasa que estoy traspasando de lenguaje un programa
( el traspaso es de Basic a Visual BAsic) y en una de sus líneas
del programa en Basic contiene el comando DEF que no se que hace:

9610 REM SUBROUTINE ITER
9620 REM
9630 REM
9640 DEF FNSESA(X)=C0*(((X)/100)^4-CTE)+((11.89*X+.000545*X^2+265000!/X)*SO2/1000)
9650 DEF FNSESE(X)=(9.47*X-1929*LOG(X)-358000!/X)*N2/1000+(19.86*X-890*SQR(X)+4167*LOG(X))*H2O/1000
9660 DEF FNSESI(X)=(9.46*X-1829*LOG(X)-331000!/X)*CO/1000+(16.2*X-3630*LOG(X)-436000!/X)*CO2/1000
9670 DEF FNSESO(X)=(6.36*X+.000895*X^2-(2.76E-07*X^3)/3)*AR/1000-CEN
9680 DEF FNEFE(X)=(FNSESA(X)+FNSESE(X)+FNSESI(X)+FNSESO(X))
9690 DEF FNSTSA(X)=C0*(4*((X)/100)^3)+((11.89+2*.000545*X-265000!/X^2)*SO2/1000)
9700 DEF FNSTSE(X)=(9.47-1929/X+358000!/X^2)*N2/1000+(19.86-445/SQR(X)+4167/X)*H2O/1000
9710 DEF FNSTSI(X)=(9.46-1829/X+331000!/X^2)*CO/1000+(16.2-3630/X+436000!/X^2)*CO2/1000
9720 DEF FNSTSO(X)=(6.36+.00178*X-(2.76E-07*X^2))*AR/1000
9730 DEF FNFPRI(X)=(FNSTSA(X)+FNSTSE(X)+FNSTSI(X)+FNSTSO(X))

Mi consulta es:
si en otras líneas se le asigna un valor a X, ej: X=0.9
el comando def tiene un efecto sobre el resultado de la ecuacdión?

Espero tu respuesta
Muchas Gracias

Te explico;
LA instruccion DEF FN que es la que tienes en el codigo se utiliza para crear funciones en Basic por ejemplo:

10 DEF FNHIP(C1,C2)=SQR((C1*C1)+(C2*C2))

Aqui hemos definido la funcio HIP para calcular la hipitenusa de un triangulo segun el teorema de pitagoras, para utilizarla ...

20 PRINT HIP(10,12) (Ahora no recuerdo si hay que poner el FN antes)

y nos presentaria en pantalla la hipotenusa de un triangulo cuyos catetos valen 10 y 12.

Solo tendrias que crear funciones en el codigo de VB para que las llames cuando el codigo las necesite, puedes incluso crear objetos que te hagan la misma funcion.

Espero que te sirva de algo esta explicacion.

Pedro Amaro

coman caca nisiqiera tienen la cantidad qyo qiero