XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Textlängen vergleichen: Textlänge kleiner oder gleich
Def @LE(2)  @Not(@GT(@&(1),@&(2)))
Def @LE$(2) @Not(@GT$(@$(1),@$(2)))
declare text1$,text2$
text1$ = Hallo
text2$ = Hallo
cls

if LE$(text1$,text2$)

    print text1$ +  ist kürzer oder gleich  + text2$

else

    print text1$ +  ist nicht kürzer oder gleich  + text2$

endif

text1$ = Hallo
text2$ = Computer
print

if LE$(text1$,text2$)

    print text1$ +  ist kürzer oder gleich  + text2$

else

    print text1$ +  ist nicht kürzer oder gleich  + text2$

endif

text1$ = Computer
text2$ = Hallo
print

if LE$(text1$,text2$)

    print text1$ +  ist kürzer oder gleich  + text2$

else

    print text1$ +  ist nicht kürzer oder gleich  + text2$

endif

waitinput