Программа

DECLARE FUNCTION Question$ (St$)

DO
LOOP WHILE Question$("Закончить программу?") <> "YES"
END

FUNCTION Question$ (St$)  'Функция получения ответа на вопрос
  DO
    PRINT St$; " [Y/N] ";   'Вывод вопроса
    INPUT "", S$  'Чтение ответа
  LOOP WHILE S$ <> "Y" AND S$ <> "y" AND S$ <> "N" AND S$ <> "n"
                            'Выход из цикла при получении корректного ответа
  IF S$ = "Y" OR S$ = "y" THEN Question$ = "YES" ELSE Question$ = "NO"
                                              'Определение значения функции
END FUNCTION