Составить программу печати в возрастающем порядке всех цифр, входящих в десятичную запись данного десятичного числа — QBasic(Бейсик)

например: 
вводим число 347.162
и программа выводит цифры из которых
состоит число в порядке возрастания:
1 2 3 4 6 7

DIM b(10)
INPUT a
DO WHILE INT(a) <> a
    a = a * 10
LOOP
DO
    k = k + 1
    b(k) = a MOD 10
    a = a \ 10
LOOP UNTIL a = 0
FOR i = 1 TO k
    FOR j = 2 TO k
        IF b(j) < b(j - 1) THEN SWAP b(j), b(j - 1)
    NEXT
NEXT
FOR i = 1 TO k
    PRINT b(i);
NEXT