Все, наверное поняли, о чем пойдет речь...

SUB NTT (Number%, Text$, Ln%)

    Text$ = ""
    Num% = Number%

    FOR I% = Ln%-1 to 0 step -1
        DO
            IF Num% >= 10 ^ I% THEN
                Num% = Num% - 10 ^ I%
                N% = N% + 1
            ELSE
                EXIT DO
            END IF
        LOOP
        Text$ = Text$ + CHR$ (N% + 48)
        N% = 0
    NEXT I%
END SUB

--------------------------------------------------------------------
Эта подпрограмма переводит число Number% в Text$ без изменения исходного значения чилса.