Microsoft Small Basic

Program Listing: GRS792
divisor = 10
num = 1
i = 1
While num > 0
num = num / divisor
TextWindow.WriteLine(divisor + "^(-" + i + ")=" + num)
i = i + 1
EndWhile