profalt.inc: Ältere Profancodes automatisch anpassen

[Frabbing]

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

[Jac de Lad]

Die liegt doch dem XProfan 11 mit bei.

[Frabbing]

Gehört trotzdem hier hin.