Поиск цифр в строке символов

'Пример иллюстрирует работу со строками, поиск в них слов и обработку слов
'В исходной строке X$ определить и вывести слова, в которых первая буква встречается всего один раз
 
REM
CLS
PRINT
INPUT "Введите строку ", X$      'Вводим строку
D = LEN(X$)                        'узнаем длину строки
DIM S$(D)                          'создаем массив строк размером с длину строки (подчеркиваю - массив строк, тк в его элементах будем сохранять символы)
 
 
FOR I = 1 TO D                     'старт цикла для прохода по строке
  S$(I) = MID$(X$, I, 1)                'вытаскиваем символ под номером I и пихаем его в массив в элемент A(i)
NEXT I                              'конец цикла прохода по строке  - теперь всю строку раскидали по массиву - можем обрабатывать и искать что-то
                                     'хотя это не обязательно - можно просто каждый раз вызывать MID$(X$, I, 1) чтобы обратится
                                     'к какому нибудь символу в строке, а теперь можно как к массиву S(I) - мы внесли КАЖДЫЙ СИМВОЛ
                                     '(в том числе пробелы - любой) в элементы массива
 
'********************************Поиск цифр***************************************
 
PRINT "Поиск цифр первым способом ";
FOR I = 1 TO D                     'старт цикла для прохода по массиву
  IF (S$(I) = "0") OR (S$(I) = "1") OR (S$(I) = "2") OR (S$(I) = "3") OR (S$(I) = "4") OR (S$(I) = "5") OR (S$(I) = "6") OR (S$(I) = "7") OR (S$(I) = "8") OR (S$(I) = "9") THEN
  PRINT S$(I);
  END IF
NEXT I
PRINT
 
'********************************Поиск цифр второй способ*****************************
 
PRINT "Поиск цифр вторым способом ";
FOR I = 1 TO D                     'старт цикла для прохода по массиву 
  FOR K = 0 TO 9
    IF STR$(K) = S$(I) THEN PRINT S$(I); 'перебираем в цикле счетчик К от 0 до 9 (то есть цифры)
  NEXT K                                  'и переводя его в строку с помощью STR$ сравниваем с элементом массива
                                          'если совпал, то печатаем  
NEXT I
 
END