PRINT
PRINT "  ○進小数を１０進小数に変換し、"
PRINT "それを再び○進小数に変換します。"
PRINT
INPUT PROMPT "何進数？ （ ２〜１０の自然数） ":m
PRINT
INPUT PROMPT "１未満の○進小数？ （ 小数点以下９桁まで ） ":x$
PRINT
IF x$(2:2)<>"." THEN GOTO 10
DIM Z(9),Q(9) 
LET N=LEN(x$)
FOR i=3 TO N
   LET y$=x$(i:i)
   LET Z(i-2)=VAL(y$)
   IF Z(i-2)>=m THEN GOTO 10
NEXT i
LET C=0
FOR i=1 TO N-2
   LET C=C+Z(i)*m^(-1*i)
NEXT i
LET C0=C
LET j=1
DO WHILE C>0
   LET D=C*m
   LET Q(j)=INT(D)
   LET C=D-INT(D)
   IF INT(C*10^10)=O THEN LET C=0
   LET j=j+1
LOOP
PRINT "１０進小数 ＝";C0
PRINT
PRINT "        ↓↓"
PRINT
PRINT " ";m;"進小数 ＝ 0 .";
FOR i=1 TO j
   PRINT Q(i);
NEXT i
GOTO 20
10 PRINT m;"進数の入力値が不正です。"
20 PRINT
END