Реферат: Информационно-справочная система, обеспечивающая работу с базой данных Bit

clauses

/* Основная процедура, стр.8 */

begin:-

makewindow(1,26,94,"СПИСОК АБИТУРЬЕНТОВ",0,0,25,80),

clearwindow,

autoload,

main_menu.

/* Главное меню, стр.8 */

main_menu:-

repeat,

cursor(7,0),

write(" 0 - О системе... "),nl,

write(" 1 - Корректировка данных"),nl,

write(" 2 - Уничтожение записей"),nl,

write(" 3 - Просмотр базы"),nl,

write(" 4 - Загрузка базы"),nl,

write(" 5 - Сохранение базы"),nl,

write(" 6 - Создание новой базы"),nl,

write(" 7 - Выход из программы"),nl,

write(" =>"),

readint(C),

clearwindow,

working(C),

clearwindow,

C = 7,

retractall(_),

removewindow.

/* Процедура автоматической загрузки базы данных, стр.9 */

autoload:-