PRINT
PRINT "入力された数の桁数と最上位の数を常用対数を用いて求めます。"
PRINT
DIM T(10)
INPUT PROMPT "自然数？ ":n
PRINT
LET m=LOG10(n)
LET x=INT(m)
FOR i=1 TO 9
   LET T(i)=LOG10(i)
NEXT i
CALL RANK(T,9,m-x,y)
PRINT "入力された数は";x+1;"桁です。"
PRINT "入力された数の最上位の数は";y;"です。"
PRINT
END

EXTERNAL SUB RANK(Q(),v,w,SR)      ! SR: 大きさ度 1 〜 v を求める
LET flag=0
LET SR=1
FOR i=1 TO v
   IF w=Q(i) THEN
      LET flag=1
   END IF
   IF w>Q(i) THEN
      LET SR=SR+1
   END IF
NEXT i
IF flag=0 THEN
   LET SR=SR-1
END IF
END SUB