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

existfile("bit.dat"),

consult("bit.dat",абитурьент),

cursor(21,30),

write("*База загружена*").

autoload:-

makewindow(2,74,79,"ОШИБКА",6,18,8,40),

cursor(2,10),

write("Нет базы на диске"),

sound(70,294),

removewindow,

!.

/* Вывод данных о создателе программы, стр.9 */

working(0):-

makewindow(3,27,30,"О системе...",0,0,25,80),

nl,nl,

write(" Инфоpмационно-спpавочная система"),

nl,nl,

write(" Список абитурьентов "),

nl,nl,nl,nl,

write(" Программа составлена в среде "),

nl,

write(" TURBO-PROLOG v.2.0."),

nl,nl,nl,

write(" автоp: Данченков А.В."),

nl,nl,

write(" МГИРЭА, гp.ИИ-1-95 (с) 1996 г. "),

nl,

sound(5,220),

cursor(22,26),