Restorecrtmode/0

restorecrtmode восстанавливает первоначальный видеорежим, определен-

ный с помощью initgraph. Если текстовой режим отличается от 80*25, то

нужно также вызывать предикат textmode для восстановления первоначального

экрана. Этот предикат может быть использован вместе с setgraphmode для

переключения в текстовый и обратно в графический режим.

Пример

Этот пример использует директиву компилятора include для подключения

файла GRAPDECL.PRO, который определяет символические константы для многих

целых переменных в BGI.

/* Program CH17EX01.PRO */

include "GRAPDECL.PRO"

constants

bgi_path = "\\tprolog2\\bgi"

predicates

toText

tempTextmode

toGraphic

goal

toGraphic,

tempTextmode,

toText.

clauses

toGraphic :-

% Detect graphics hardware

detectGraph(G_Driver, G_Mode),

initGraph(G_Driver, G_Mode, New_Driver, New_Mode, bgi_path),

write("A look into the BGI"), nl,

writef("Graph_Driver = %,Graph_Mode = %",G_Driver,G_Mode),nl,

writef("New_Driver = %,New_Mode = %",New_Driver,New_Mode),nl,

write("Press key to return:"),

readchar(_).

tempTextmode :-

getGraphMode(GraphMode),

restoreCRTMode,

write("\nNow you are in text mode.\n\n"),

write("\nPress any key to go back to graphics ..."),

readchar(_),

setGraphMode(GraphMode).

toText :-

closegraph.