PRINT
LET e = 2.7182818284590452353602874
PRINT "LOG2(2^5) ＝";LOG2(2^5)
PRINT "LOG10(10^5) ＝";LOG10(10^5)
PRINT "ネイピア数 e ＝ 2.7182818284590452353602874   "
PRINT "    LOG(e^5) ＝";LOG(e^5)
PRINT
PRINT
INPUT PROMPT "１０進数を何進数に変換しますか ( ２ 〜 ９ ）？  ":M
INPUT PROMPT "変換したい数は？　":N
LET P=INT(LOG10(N)/LOG10(M))   ! LOGM(N)＝LOG10(N)/LOG10(M): N は M進数に変換すると P+1桁の数になる
LET X=M^P
LET XX=X
LET NN=N
PRINT
PRINT "　⇒ ";
FOR I=1 TO P+1
   PRINT INT(N/X);
   LET N=N-INT(N/X)*X
   LET X=X/M
NEXT I
PRINT "  （";M;"進数 ）"
PRINT
PRINT
PRINT "確かめ："
PRINT
PRINT "  ";
LET C=0
FOR I=1 TO P+1
   PRINT INT(NN/XX);"×";M;"^";P+1-I;
   LET C=C+INT(NN/XX)*M^(P+1-I)
   IF I<P+1 THEN
      PRINT " ＋ ";
   ELSE
      PRINT " ＝ ";C
   END IF
   LET NN=NN-INT(NN/XX)*XX
   LET XX=XX/M
NEXT I
PRINT 
END