Howdy Ilya,

14 Jan 95, Ilya Kozachenko wrote to All:

 IK> Может, кто знаком с субжем от Ziff Communications ?
 IK> Расскажите, pls, кто знает, как они плывущий текст делают
 IK> в режиме 03h ? Целый день голову ломаю, уже и фонты менял,
 IK> и графику пробовал, но ни черта не выходит ;-(

Поpты, однако... :o)

Вот, на Пасцале:

Greetingz,
Mr. Byte

--- GoldEd/P32 2.42.G0214+
 * Origin: AndRew's BBS (+371-2-559777) ThE OxyGen F0r CodErs (2:5100/33)

{> 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.