110 LET A=LOG10(2) #最上位桁の上界　兼　2^Lの素
120 LET B=0 #カウント初期値というだけ
140 IF A > L*A-INT(L*A) THEN LET B=B+1 #最上位桁が2未満ならカウント

L*A = L*log{10}2 = log{10}2^L = log{10}n
INT(L*A) = INT(log{10}2^L) = r-1

L*A - INT(L*A) = log{10}(n) - (r-1)
A = log{10}2

…たぶん