Программа

DEF FNQuestion$ (St$) 'Функция получения ответа на вопрос
  LOCAL S$  'Объявление локальных переменных
  PRINT St$; " [Y/N] ";   'Вывод вопроса
  DO
    S$ = INKEY$ 'Чтение нажатия клавиши
  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"
                                                'Определение значения функции
  PRINT S$  'Вывод ответа
END DEF
 
DO
LOOP WHILE FNQuestion$("Закончить программу?") <> "YES"
END