Сохранение экрана, Я делаю так.... Опции

[ZeroLink]

Долго я мучился сохранять содержимое экрана, а потом его востановливать.
И вот получилось:

Это типа VAR

Код

var
 SaveScr: array[1..4000] of Byte; {сохранение экрана}
 Screen: array[1..25,1..80,(CChar, Attr)] of Byte absolute $B800:$0000;{экран}

Ну а вот сохранение:

Код

Move(Screen, SaveScr, SizeOf(SaveScr));

А вот и востановление:

Код

Move(SaveScr, Screen, SizeOf(SaveScr));

Если у Вас есть другие варианты, то выкладывайте :yes:

[APAL]

Так это только на одно сохранение.
А если будет, скажем, меню многоуровневое?

Я реализовал стековое хранение не всего экрана, а нужных (заданных) участков в динамической памяти.
Очень удобно - прямо как в АСМе - PushWin(x1,y1,x2,y2); и PopWin;