Возведение в степень

Private CONST MaxL AS LONG = 120000 'максимальное кол-во элементов в массиве
Private CONST mBase AS ULongInt = 1000000000 'система счисления в массиве
Private CONST lBase AS LONG = 9 'кол-во цифр в каждом элементе массива
 
SUB lMultArr(a() AS ULongInt, ByRef al AS LONG, b() AS ULongInt, bl AS LONG)
   DIM AS LONG i, j, k, cl
   DIM AS ULongInt cr, c()
   REDIM c(0 TO MaxL) AS ULongInt
 
   FOR i = 0 TO al
      FOR j = 0 TO bl
        cr = a(i) * b(j)
            k = i + j
            WHILE cr > 0
            cr = cr + c(k)
            c(k) = cr MOD mBase
            cr = cr \ mBase
            k = k + 1
            WEND
            IF k - 1 > cl THEN cl = k - 1
      NEXT
   NEXT
   FOR i = 0 TO cl
        a(i) = c(i)
   NEXT
   al = cl
END SUB
 
DIM AS ULongInt n(), p()
DIM AS LONG nl, pl, m, i
DIM AS SINGLE t1, t2 
REDIM n(0 TO MaxL) AS ULongInt, p(0 TO MaxL) AS ULongInt
 
n(0) = 9
p(0) = 2
m = 999999
    
t1 = TIMER
DO
    IF m MOD 2 THEN lMultArr(p(), pl, n(), nl)
    m = m \ 2
    IF m > 0 THEN lMultArr(n(), nl, n(), nl) ELSE EXIT DO
LOOP
t2 = TIMER
 
OPEN "output.txt" FOR OUTPUT AS #1
PRINT #1, p(pl) & "";
FOR i = pl - 1 TO 0 STEP -1
    PRINT #1, RIGHT$(STRING$(lBase, "0") & p(i), lBase);
NEXT i
CLOSE
PRINT t2 - t1
SLEEP