FUNCTION LOGG(Q,W)
   LET t=W
   LET ITER=16       ! 有効桁数
   LET i=0
   LET s=0
   DO UNTIL t=1 OR i>=ITER
      LET p=0        ! 桁数
      DO WHILE t>=Q
         LET t=t/Q
         LET p=p+1
      LOOP
      LET s=s+p*10^(-i)
      LET t=t^10
      LET i=i+1
   LOOP
   LET LOGG=s
END FUNCTION

PRINT
PRINT "対数の値を求めます。"
PRINT "   e = 2.71828 18284"
PRINT
INPUT PROMPT "log の底？   ":A
INPUT PROMPT "log X の X (正の数）？ ":x
PRINT
LET z=LOGG(A,x)
PRINT "LOG {( 底";A;")";x;"} ＝";z
PRINT
PRINT "LOG {( 底 e )";x;"} / LOG {( 底 e )";A;"} ＝";LOG(x)/LOG(A)       ! 検算※底の変換
PRINT
END