XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Potenzen berechnen
DECLARE A%,OK%,Ergebnis!
OK% = 0

WHILENOT OK%

    A% = @INPUT$(Bitte eine Zahl zwischen 1 und 25 eingeben:,
    EINGABE,A%)

    IF (A% < 1) OR (A% > 25)

        BEEP

    ELSE

        OK% = 1

    ENDIF

ENDWHILE

Ergebnis! = A% ^ A%
SET(DECIMALS,0)
MESSAGEBOX(Das Ergebnis von  + str$(A%) +  hoch  + str$(A%) +  lautet:  + Str$(Ergebnis!),ERGEBNIS,4160)