XProfan

' ----------------------------
' Include-Datei für Quellcodes
' früher Profan-Versionen, die
' noch keine Operatoren nutzen
' -----------------------------

PROC add

    Parameters a!, b!
    return a! + b!

ENDPROC

PROC sub

    Parameters a!, b!
    return a! - b!

ENDPROC

PROC mul

    Parameters a!, b!
    return a! * b!

ENDPROC

PROC div

    Parameters a!, b!
    return a! / b!

ENDPROC

PROC div&

    Parameters a!, b!
    return a!  b!

ENDPROC

PROC pow

    Parameters a!, b!
    return a! ^ b!

ENDPROC

PROC mod

    Parameters a!, b!
    return a! mod b!

ENDPROC

PROC or

    Parameters a&, b&
    return a& | b&

ENDPROC

PROC and

    Parameters a&, b&
    return a& & b&

ENDPROC

PROC equ

    Parameters a!, b!
    return a! = b!

ENDPROC

PROC neq

    Parameters a!, b!
    return a! <> b!

ENDPROC

PROC lt

    Parameters a!, b!
    return a! < b!

ENDPROC

PROC gt

    Parameters a!, b!
    return a! > b!

ENDPROC

PROC add$

    Parameters a$, b$
    return a$ + b$

ENDPROC

PROC equ$

    Parameters a$, b$
    return a$ = b$

ENDPROC

PROC neq$

    Parameters a$, b$
    return a$ <> b$

ENDPROC

PROC lt$

    Parameters a$, b$
    return a$ < b$

ENDPROC

PROC gt$

    Parameters a$, b$
    return a$ > b$

ENDPROC