Program to calculate the logarithm (log 10) of a number > 1

[lrcvs]

'program to calculate the logarithm (log 10) of a number > 1
'programa para calcular el logaritmo (log 10) de un numero > 1
'lrcvs 26.09.08

cls
input "Num. > 1 : "; n$
cls
i = len(n$)-1
for b# = i to (i + 1) step 1 / (10 ^ 5)
l# = 10 ^ b#
if l# >= val(n$) then print "el logaritmo de "; n$; " es = "; b#: end
next b#