PRINT "11^5 = " ; FNipow(11, 5)
      PRINT "PI^3 = " ; FNfpow(PI, 3)
      END

      DEF FNipow(A%, B%)
      LOCAL I%, P%
      P% = 1
      FOR I% = 1 TO 32
        P% *= P%
        IF B% < 0 THEN P% *= A%
        B% = B% << 1
      NEXT
      = P%

      DEF FNfpow(A, B%)
      LOCAL I%, P
      P = 1
      FOR I% = 1 TO 32
        P *= P
        IF B% < 0 THEN P *= A
        B% = B% << 1
      NEXT
      = P