このPSTR$のリストを見てもらえば分かるのですが、桁数を求めるのにLOGを使わず文字列操作のみで行っています。 簡単に説明するとこれは小数点がある場所を基準にしてそこから桁数を導くという方法です。 PSTR$のような実数型でも正しく表示するのが目的ならばこれがベストですが、これはみむさんが求めているものに対してはベストとは言い難いです。