' Potenzierung mit Integer

DECLARE FUNCTION potInt# (b#, e%)

INPUT "Basis"; b#
INPUT "Exponent"; e%

PRINT potInt(b#, e%)

FUNCTION potInt# (b#, e%)
  w# = 1#
  h# = b#
  WHILE e% > 0
    IF e% MOD 2 THEN
      w# = w# * h#
    END IF
    e% = e% \ 2
    h# = h# * h#
  WEND
  potInt# = w#
END FUNCTION