(50G) Large Integer to Base 10 Log Programme

[Gerald H]

Just for those interested, here a programme taking integer input & returning base ten log as a long real. For the 2,000 digit integer above the programme returned

%% 1.99978513184057E3

PARI answered the same problem with

1999.785131840567325356093351

Name of programme: LONGLOG

::
CK1&Dispatch
# FF
::
DUP
Z0_
Z<=
caseSIZEERR
FPTR2 ^Z>S
DUPLEN$
#1-
OVER
BINT13
1_#1-SUB$
FPTR2 ^S>Z
FPTR2 ^Z>R
%MANTISSA
%>%%
ROT
BINT13
LAST$
CHR_.
>H$
CHR_0
>H$
palparse
DROP
%>%%
%% 1E11
%%/
%%+
%%LN
%%10
%%LN
%%/
SWAP
UNCOERCE%%
%%+
;
;