XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
DEF - einen neuen (X)PRF-Befehl definieren
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Dieses Beispiel demonstriert, wie man einen
eigenen Befehl für eine Operation selbst
definieren (erstellen) kann.
Es bedeuten:
------------
Zahl%                    - Eingegenbener Wert
Input                    - siehe Profan Hilfe
Print f;f,f..            - siehe Profan Hilfe
Decimals                 - siehe Profan Hilfe
Def <Name>(N) <Ausdruck> - siehe Profan Hilfe
Str$()                   - siehe Profan Hilfe
-----------------------------------------------
Declare Zahl%                                                        Variablen deklarieren
Def verdoppeln(1) Mul(!(1),2)                                       Definieren eines neuen Befehls
Cls                                                                  Standardfenster mit 640 * 480 Pixeln
Decimals 0                                                           Nachkommastellen werden festgelegt
Print Bitte geben sie einen Zahl ein:
Input zahl%                                                          Eingabe einlesen
Print add$(Die verdoppelte Zahl lautet: ,Str$(verdoppeln(Zahl%)))
Print                                                                Leerzeile
Print Bitte eine Taste zum Beenden drücken.
Waitinput                                                            Warten auf Eingabe
End                                                                  Speicher enable