PRINT
PRINT "例えば 123456789.0123456789 と入力してください。"
PRINT "その数は、小数点以上 9 桁、小数点以下 10 桁 と表示します。"
PRINT
OPTION ARITHMETIC decimal_HIGH
LET C1 = 0
LET C2 = 0
INPUT PROMPT "正の数？　":N0
PRINT
PRINT "その数は、"
PRINT
LET N1 = INT(N0)
LET N2 = N0 - N1
IF N1 > 0 THEN
   DO WHILE N1 >= 1
      LET N1 = N1 / 10
      LET C1 = C1 + 1
   LOOP
   PRINT  "　　小数点以上 ";C1;" 桁です。"
   PRINT
END IF
IF N2 > 0 THEN
   DO WHILE INT(N2) < N2
      LET N2 = N2 * 10
      LET C2 = C2 + 1
   LOOP
   PRINT  "　　小数点以下 ";C2;" 桁です。"
   PRINT
END IF
END