Введите слово. Слово состоит из названия цифр без пробела. выведите на печать это число- QBasic(Бейсик)

CLS
INPUT "vvedite"; a$
h = LEN(a$)
DIM b$(9)
DATA nol,odin,dva,tri,chetyri,pjat,shest,sem,vosem,devjat
FOR i = 0 TO 9
    READ b$(i)
NEXT
i = 0: j = 1
DO
    v = LEN(b$(i))
    IF v + j - 1 > h THEN v = h
    IF b$(i) = MID$(a$, j, v) THEN
        s$ = s$ + LTRIM$(STR$(i))
        j = j + LEN(b$(i))
    ELSE
        i = i + 1
        IF i > 9 THEN i = 0
    END IF
LOOP UNTIL j >= h
PRINT s$