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

[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: