Umiestnenie súboru www.TrSek.com/pas/rolovan.pas{ ROLOVAN.PAS Copyright (c) TrSek alias Zdeno Sekerak }
{ Program vie rolovat lubovolne textove okno nahor alebo nadol. }
{ Ovladanie sipkami. }
{ }
{ Datum:11.02.1992 http://www.trsek.com }
program rolovanie;
uses crt,dos;
var i:integer;
ch:char;
{ aktualne okno roluje nahor }
procedure RolujHore(x1,y1,x2,y2:integer);
var reg:registers;
begin
with reg do begin
ah:=$06;
al:=1; bh:=0;
ch:=y1; cl:=x1;
dh:=y2; dl:=x2;
end;
intr($10,reg);
end;
{ aktualne okno roluje dole }
procedure RolujDole(x1,y1,x2,y2:integer);
var reg:registers;
begin
with reg do begin
ah:=$07;
al:=1; bh:=0;
ch:=y1; cl:=x1;
dh:=y2; dl:=x2;
end;
intr($10,reg);
end;
Begin
ClrScr;
for i:=32 to 255 do
Write(i:3,' - ',chr(i),' ');