Написать функцию подсчитывающую кол-во цифр числа. Используя ее , определить , в каком из двух данных чисел больше цифр QBasic(Бейсик)

 DEFLNG A-Z
 DECLARE FUNCTION C% (Ch&)
 CLS
  INPUT "Vvedite chislo A :", A: PRINT C%(A)
  INPUT "Vvedite chislo B :", B: PRINT C%(B)
  IF C%(A) > C%(B) THEN PRINT "v pervom bolshe" ELSE PRINT "vo vtorom bolshe"
 
FUNCTION C% (Ch&)
k = 0: f = Ch&
 DO
  f = f \ 10: k = k + 1
 LOOP UNTIL f = 0
 C% = k
END FUNCTION