12 lines
246 B
QBasic
12 lines
246 B
QBasic
!! Función `valor absoluto`, devuelve un `REAL` que
|
|
!! contiene el valor absoluto de la expresión numérica
|
|
!! `NUM%`.
|
|
FUNCTION ABS(NUM%)
|
|
REAL ABS
|
|
REAL NUM%
|
|
END FUNCTION
|
|
|
|
FUNCTION ASC(STR$)
|
|
INTEGER*2 ASC
|
|
STRING STR$
|
|
END FUNCTION |