Zapamätá obsah textovej obrazovky v pascale

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Programy zos Pascalu

Program: Rememobr.pas
Subor exe: Rememobr.exe
Subor ubuntu: Rememobr

Program si odpamätá pôvodnú textovú obrazovku pri svojom spustení. Vypíše neaký nezmyselný text. Po skončení obnoví textovú obrazovku aj s farebnými nastaveniami.
{ 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.