!! 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