XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zahlen addieren
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Dieses Beispiel demonstriert, wie zwei Zahlen
miteinander addiert werden können.
Es bedeutet:
------------
cls          - erstellt Standardfenster (640 * 480)
print        - stellt folgende Zeichen auf Hauptfenster dar
str$         - wandelt eine Zahl in einen String um
-----------------------------------------------
declare summand1%,summand2%              Variablen declarieren
let summand1%=1                          Zuweisungen
let summand2%=2
cls
print 1.Summand:  + str$(summand1%)
print 2.Summand:  + str$(summand2%)
print
print ---beides addiert---
print
print str$(summand1% + summand2%)        addiert beide Summanden
waitinput                                warten auf Eingabe