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

nl,nl,

write("1 - Загрузить основную базу из выбранного файла"),nl,

write("2 - Загрузить основную базу из файла bit.dat"),nl,

write("3 - Загрузить базу BSTUD из выбранного файла"),nl,

write("4 - Загрузить базу BSTUD из файла bstud.dat"),nl,

write("5 - Выход в основное меню"),nl,

write("=>"),

readint(C),

clearwindow,

C>0,C<=5,

load_bd(C),

clearwindow,

C = 5,!,

removewindow.

/* Процедура сохранения базы данных, стр.10 */

working(5):-

makewindow(8,62,120,"Сохранение",5,10,15,60),

sound(5,220),

repeat,

nl,nl,

write("1 - Сохранить основную базу в указанном файле"),nl,

write("2 - Сохранить основную базу в файле bit.dat"),nl,

write("3 - Сохранить базу BSTUD в указанном файле"),nl,

write("4 - Сохранить базу BSTUD в файле bstud.dat"),nl,

write("5 - Выход в основное меню"),nl,

write("=>"),

readint(I),

clearwindow,

I>0,I<=5,