И вот получилось:
Это типа VAR
Код
var
SaveScr: array[1..4000] of Byte; {сохранение экрана}
Screen: array[1..25,1..80,(CChar, Attr)] of Byte absolute $B800:$0000;{экран}
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: