Refactored pad

gistfile1.txt

  variable addr

::: Power function
  : pow       ( bp-n ) 
    over here !           ::: Store the base for later use.
    1 - 0;                ::: Subtract 1 from the power and exit if the result is 0.
    for here @ * next ;   ::: Fetch the base and multiply it by the number.

::: Get the top value from the address stack.
  : r         ( -n )   ` pop ` dup ` push ; immediate 


  : pad       ( -   )    
    addr @ @              ::: Get the value pointed to by addr.
    6 for dup             ::: Handle up to 6 digits.
    base @ r pow          ::: Multiply the base by itself, a given number of times.
    <if 32 emit then next ::: When the number is less than the smallest number 
                          ::: that takes up the given number of columns,
                          ::: begin emitting spaces.
  ;