XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zahlen vergleichen (kleiner oder gleich)
Def @LE(2)  @Not(@GT(@&(1),@&(2)))
Def @LE$(2) @Not(@GT$(@$(1),@$(2)))
declare a%,b%
a% = 5
b% = 5
cls

if LE(a%,b%)

    print str$(a%) +  ist kleiner oder gleich  + str$(b%)

else

    print str$(a%) +  ist nicht kleiner oder gleich  + str$(b%)

endif

a% = 3
b% = 5
print

if LE(a%,b%)

    print str$(a%) +  ist kleiner oder gleich  + str$(b%)

else

    print str$(a%) +  ist nicht kleiner oder gleich  + str$(b%)

endif

a% = 5
b% = 3
print

if LE(a%,b%)

    print str$(a%) +  ist kleiner oder gleich  + str$(b%)

else

    print str$(a%) +  ist nicht kleiner oder gleich  + str$(b%)

endif

waitinput