Программа

DEF FNQuestion$ (St$) 'Функция получения ответа на вопрос
  LOCAL S$  'Объявление локальной переменной
  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 FNQuestion$ = "YES" ELSE FNQuestion$ = "NO"
                                                'Определение значения функции
END DEF

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