Manchmal findet man ja im Netz noch alte Quelltexte für Profan.
Diese nutzen noch die alten Operatoren. Man möchte aber gerne
solche Programme ausführen, aber jetzt nicht sonderlich viel an
den Quelltexten rum arbeiten. Oft sind es auch lange DEF's, die
diese Operatoren enthalten und man muß sich sehr lange reindenken,
um die Funktion zu verstehen. Andererseits geht es nur ums Ausprobieren
und man verwirft den Quelltext evtl. wieder, weil es doch nicht das ist,
was man sucht. Man hat aber einige Zeit damit verbracht, den Quelltext
lauffähig zu machen. Vorher, als es den Schalter $O+ noch gab, war es
kein Problem. Mittlerweile ist dieser wirkungslos.
Da kann man sich aber auch mit ein paar kleinen DEF's selber behelfen :
DEF Add(2) @%(1) + @%(2)
DEF Sub(2) @%(1) - @%(2)
DEF Mul(2) @%(1) * @%(2)
DEF Div(2) @%(1) / @%(2)
DEF Equ(2) IF(@%(1) = @%(2), 1, 0)
DEF Equ$(2) IF(@$(1) = @$(2), 1, 0)
DEF NEqu(2) IF(@%(1) <> @%(2), 1, 0)
DEF NEqu$(2) IF(@$(1) <> @$(2), 1, 0)
DEF LT(2) IF(@%(1) < @%(2), 1, 0)
DEF GT(2) IF(@%(1) > @%(2), 1, 0)
CLS
Print Add(5, 8)
Print Equ(5, 5)
Print NEqu$("Hallo", "Hallo")
Print LT(5, 8)
Print GT(5, 8)
WaitKey
Alles anzeigen
Vielleicht ist es ja für den einen oder anderen brauchbar.