Программа

DECLARE SUB ViewBase (MinPrice!)
DECLARE SUB MakeBase ()

CONST FileName$ = "BASE"   ' Имя файла с данными

DEF FNQuestion$ (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            'Определение значения функции
                            FNQuestion$ = "YES"
                          ELSE
                            FNQuestion$ = "NO"
  END IF
END DEF

CLS  'Очистка экрана
CALL MakeBase  ' Создание базы
PRINT ' Пропуск строки
INPUT "Введите минимальную цену товара ", MinPrice   'Ввод минимальной цены
CALL ViewBase(MinPrice)  ' Просмотр базы
END

SUB MakeBase 'Процедура создания базы
  OPEN FileName$ FOR OUTPUT AS #1 ' Открытие файла под запись
  DO WHILE FNQuestion$("Создать запись?") = "YES" ' Цикл создания базы
    INPUT "Введите название изделия ", GoodsName$ ' Ввод названия
    INPUT "Введите цену ", Price                  ' Ввод цены
    PRINT #1, GoodsName$, ",", Price              ' Запись данных в файл
  LOOP
  CLOSE #1 ' Закрытие файла
END SUB

SUB ViewBase (MinPrice) ' Процедура просмотра базы
  CLS  'Очистка экрана
  'Вывод шапки таблицы :
  PRINT "╔═════════════════╤═════════╗"
  PRINT "║ Модель          │ Цена    ║"
  PRINT "╟─────────────────┼─────────╢"
  OPEN FileName$ FOR INPUT AS #1 ' Открытие файла для чтения
  DO UNTIL EOF(1)  ' Цикл просмотра базы
    INPUT #1, GoodsName$, Price      ' Ввод данных
    IF Price >= MinPrice THEN PRINT USING "║ \             \ │ ####.## ║"; GoodsName$; Price
    ' Если цена не превышает указанную, то - вывод данных
  LOOP
  CLOSE #1 ' Закрытие файла
  PRINT "╚═════════════════╧═════════╝"  'Закрытие таблицы
END SUB