Есть функция LEN от текстовых значений, а вот по числовым - нету...
Вот код функции, определяющей количество цифр в чиле

SUB NumAutoLen (Number%, Ln%)

    DO
        I% + I% + 1
        IF Number% > 10 ^ I% THEN
            Ln% = Ln% + 1
        ELSE
            EXIT DO
        END IF
    LOOP

END SUB

-------------------------------------
Все гениально и просто!