Скачать Плавный Скроллинг в Текстовом Режиме

{> Cut here. FileName= SMOOTH.PAS }
Program SmoothTextScroll;
 
uses crt;
 
var i : integer;
begin
  for i:=0 to 70 do write('That''s what you are asking for? ');
  port[$3D4]:=8;
  port[$3D5]:=0;
  i:=0;
  repeat
    port[$3D4]:=8;
    port[$3D5]:=8+round(7*sin(pi*i/32));
    repeat until not boolean(port[$03DA] and 8);
    repeat until (port[$03DA] and 8)=8;
    inc(i);
  until keypressed
end.