OPTION ARITHMETIC decimal_HIGH 
PRINT
PRINT "例えば、 Ａ ＝ 10.0123456789　　　Ｂ ＝ 1.1"
PRINT
INPUT PROMPT "１以下の正の小数 Ａ ？　":n1
PRINT
INPUT PROMPT "正の小数 Ｂ ？　":n2
PRINT
LET Z = n1 + n2
LET c = 0
DO WHILE INT(n1) < n1
   LET n1 = n1 * 10
   LET c = c + 1
LOOP
PRINT "小数 Ａ は 小数点以下 ";c;" 桁です。"
PRINT
PRINT "２つの小数の和 ＝ "; Z
PRINT
END