Umístnení souboru www.TrSek.com/pas/rememobr.pas{ REMEMOBR.PAS Copyright (c) TrSek alias Zdeno Sekerak }
{ Program si odpameta povodnu obrazovku pri svojom spusteni. }
{ Vypise neaky nezmyselny text. }
{ Po skonceni obnovi obrazovku a vrati do povodneho stavu. }
{ }
{ Datum:11.11.1996 http://www.trsek.com }
program vrat_obrazovku;
uses crt,dos;
var x,y:integer;
reg:registers;
text,color:array [1..80,1..24] of byte;
begin
{ zapamata si co je na obrazovke }
for x:=1 to 80 do
for y:=1 to 24 do begin
gotoxy(x,y);
reg.ah:=$08;
reg.bh:=0;
intr($10,reg);
text[x,y]:=reg.al;
color[x,y]:=reg.ah;
end;
clrscr;
writeln('Povodny obsah textovej obrazovky mam v pameti.');
writeln('Stlac klaves pre obnovenie.');
{ pocka na stlacenie klavesy }
readkey;
{ obnovi obrazovku }
for x:=1 to 80 do
for y:=1 to 24 do begin
gotoxy(x,y);
reg.ah:=$09;
reg.al:=text[x,y];
reg.bh:=0;
reg.bl:=color[x,y];
reg.cx:=1;
intr($10,reg);
end;
end.