Определить, есть ли в заданном четырехразрядном числе а цифры 5 или 8 - QBasic

Формулировка задачи:

Определить, есть ли в заданном четырехразрядном числе а цифры 5 или 8.

Решение задачи: «Определить, есть ли в заданном четырехразрядном числе а цифры 5 или 8»

Листинг программы

DECLARE FUNCTION M! (i!)
CLS
DIM SHARED A AS STRING
 
INPUT "A = "; A
 
FOR i = 1 TO LEN(A)
   IF M(i) = 5 OR M(i) = 8 THEN k = -1
NEXT i
 
IF k THEN PRINT "YES" ELSE PRINT "NO"
END
 
FUNCTION M (i)
   M = VAL(MID$(A, i, 1))
END FUNCTION

Объяснение кода листинга программы

DECLARE FUNCTION M! (i!) - функция не определена, ошибка
CLS - очистка экрана
DIM SHARED A AS STRING - объявление переменной A типа строка
INPUT A =; A - ввод числа, хранящегося в переменной A
FOR i = 1 TO LEN(A) - цикл, который будет выполняться от 1 до длины строки A
IF M(i) = 5 OR M(i) = 8 THEN k = -1 - проверка на наличие цифр 5 или 8 в строке A и присвоение переменной k значения -1 в случае обнаружения этих цифр
NEXT i - переход к следующей итерации цикла
IF k THEN PRINT YES ELSE PRINT NO - проверка значения переменной k и вывод соответствующего сообщения
END - завершение программы
FUNCTION M (i) - определение функции M с одним аргументом i
M = VAL(MID$(A, i, 1)) - присвоение функции M значения, полученного из строки A с помощью функции MID$ и функции VAL, которая преобразует строку в числовое значение
END FUNCTION - завершение определения функции M