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

ok,

!,

removewindow.

working(2):-

error,

removewindow,!.

/* Процедура вывода меню просмотра базы данных, стр.9 */

working(3):-

makewindow(6,30,26,"Просмотp базы",0,0,25,80),

sound(5,220),

repeat,

nl,

nl,

cursor(10,0),

write(" 1 - Просмотр основной базы"),nl,

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

write(" 3 - Выход в главное меню" ),nl,

write(" =>"),

readint(X),

clearwindow,

X>0,X<=3,

view(X),

clearwindow,

X=3,!,

removewindow.

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

working(4):-

makewindow(7,62,120,"Загрузка",5,10,15,60),

sound(5,220),