It's not clear what you are trying to do. Study what Joe has proposed. In case you really want to do this ....

Code:
' n^p (n to the power of P)
' n = 2
' p = 5
' x = 2^5 = 32
' in PBP
x var byte
p var byte
p = 5
x = 1
x = x << p	' x = 32

' or 
' n = 10
' p = 3
' x = 10 ^ 3 = 1000
' in PBP
x var word
y var byte
p var byte
x = 1
for y = 1 to p
x = x * 10
next y	
' x = 1000