Бегущая строка, не затирающая фон

[polyarnik]

Здравствуйте, господа программисты. Нуждаюсь в помощи по следующей задаче:
"Написать программу, которая будет работать с видеопамятью. По экрану, содержащему некоторую информацию, справа налево “бежит” текстовая строка, программа должна работать резидентно. Текст, присутствовавший на экране до запуска программы, не должен портиться никаким образом.
В программе следует использовать два обработчика прерываний – прерываний таймера и прерываний клавиатуры. Прерывания таймера регламентируют скорость перемещения объекта, причем параметр, характеризующий величину скорости, необходимо задавать с клавиатуры при запуске программы. Информация о параметре, задающем скорость движения, должна выводиться на экран при запуске программы без параметров."

Подскажите, пожалуйста хотя бы как сделать, чтобы бегущая строка не стирала фоновые надписи (например результат работы команды dir). Остальное не проблема, разобрался.

Накалякал вот что:

{$M 2048,0,0}
program lab5os;
uses
  Dos,Windos,crt;
type
      TInterrupt = procedure (Flags: Word);
var
   Screen: array[1..25, 1..80, (charr, Attr)] of byte absolute $B800:$0000;
   se,st,stro:string;
   H,M,S,SS,S100,K:Word;
   i,j,kw,kw2,kz,x,y:integer;
   oldkey:byte;
     { старый обработчик }
   OldInt1C,OldInt9:TInterrupt;
   code: integer;

procedure stroka;
begin
    stro:=('  " Я Б Л О К И   П А Д А Ю Т   В   Н Е Б О "');
    k:=80-Length(stro);
     for i:=1 to k do
     stro:=stro+' ';
end;

procedure stroka1;
begin
    delete(stro,1,1);
    delay(kw);
    st:=copy(stro,1,1);
    stro:=stro+st;
    for i :=1 to 80 do
 {     Screen[kw2, i, Attr] := $1F;     }
    for j:=1 to Length(stro)-1  do
      Screen[kw2,J, charr] :=ord(stro[j]);
end;

  { обработчик прерывания Int1C }
procedure Int1C(Flags, CS, IP, AX, BX, CX, DX, SI, DI, DS, ES, BP: Word);interrupt;
begin
   GetTime(H, M, S, S100);
   stroka1;
   if kz=1 then
   OldInt1C(Flags);
end;

procedure Cpp;
begin
  clrscr;
  stroka;
    IF ParamCount<>2 THEN 
      begin
        writeln('Программа запущена с параметрами по умолчанию:');
        writeln('- положение строки = 5');
        writeln('- скорость строки = 10000');
      end else clrscr;
  kw:=y;kw2:=x;
  writeln;
end;

{ обработчик int 09h }
procedure Int9(Flags, CS, IP, AX, BX, CX, DX, SI, DI, DS, ES, BP: Word);
            interrupt;
var
  Key:byte;
  df:byte;
 begin
  key := Port[$60];
  OldKey:=key;
  inline($9C);
  Oldint9(Flags);
 end;


begin
  GetIntVec($1C, @OldInt1C);
  SetIntVec($1C,addr(Int1C));
  GetIntVec($9,@Oldint9);
  IF ParamCount<>2 THEN    {при запуске программе передано не 2 параметра}
    begin
      x:=5;  {значения по умолчанию}
      y:=10000;
    end
  else
    begin
      VAL(ParamStr(1),x,Code);
      IF Code<>0 THEN BEGIN
      WRITELN('ОШИБКА: положение строки задано неверно');
      writeln('lab5os <положение> <скорость>'); halt; end;
      VAL(ParamStr(2),y,Code);
      IF Code<>0 THEN BEGIN
      WRITELN('ОШИБКА: скорость задана неверно');
      writeln('lab5os <положение> <скорость>'); halt; end;
    end;
  cpp;
  writeln;
  SetIntVec($9,@int9);
  keep(0);
end.

Это конечно работает, но строка стирает фон и дублируется при нажатиях Enter. Скорее всего необходимо обращение к видеопамяти напрямую по абсолютным адресам и оттуда "брать" символы, но пока из этого у меня ничего хорошего не получилось))

[Stilet]

Тебе в паскале в каком режиме то?

[polyarnik]

В любом, но думаю в текстовом проще будет.

[Stilet]

в текстовом проще будет.

Да но условие

Текст, присутствовавший на экране до запуска программы, не должен портиться никаким образом.

Сразу отбрось. Его и в графике соблюсти трудно, а в тексте бессмысленно.
Максимум что ты добьешся это восстановление того что было на экране под надписью. Это легко. Считывай в строку из нужной координаты, а когда текст оттуда будеш передвигать пиши что сохранил в видеопамять

Вот тут примерчик накропал. ТОлько резидентом его сделай и радуйси6

uses crt;
var
 scr:array[1..25,1..80,(c,a)] of byte absolute $B800:0;
 m,s:string;
 var e,k,i:integer;
begin
  m:='qwert';       s:='';
  for i:=1 to 25 do begin
   for k:=1 to 80 do begin
    move(scr[i,k,c],s,length(m)+4);
    for e:=1 to length(m) do begin
     scr[i,k+e-1,c]:=byte(m[e]);
    end;
    delay(50);
    if keypressed then halt;
    move(s,scr[i,k,c],length(m)+4);
   end;
  end;
end.

[polyarnik]

большое спасибо, Stilet. Оставил движение по горизонтали, строка бегает целиком, не исчезая частично за границы экрана, также оставляет за собой "след":

uses crt;
var
 scr:array[1..25,1..80,(c,a)] of byte absolute $B800:0;
 m,s:string;
 var e,k,i:integer;
begin
  m:='Ne KirilicA Otobrazaetsa';       s:='';             clrscr;
  i:=5;
  while not keypressed do          begin
   for k:=1 to 80-length(m) do begin
    move(scr[i,k,c],s,length(m)+1);
    for e:=1 to length(m) do begin
     scr[i,k+e-1,c]:=byte(m[e]);
    end;
    delay(7000);
    move(s,scr[i,k,c],length(m)+1); end;
  end;
end.

Как это можно исправить? Может посимвольно пробел к строке приплюсовывать?

[Stilet]

Может посимвольно пробел к строке приплюсовывать?

Зачем? Чет я не понял что у тебя за проблема...

А-а-а стоп. Кажись допер
Вот попробуй учитывать ее длину

   for k:=1 to 80-length(m) do begin

Только это смотрится некрасиво

[OCTAGRAM]

Чтоб по Enter строка не дублировалась, можно попробовать в структурах BIOS поставить 24 строки вместо 25. И монопольно рисовать на 25ой.

[polyarnik]

Сообщение от Stilet

Вот попробуй учитывать ее длину

   for k:=1 to 80-length(m) do begin

Stilet, дак у меня так и написано))
OCTAGRAM, а как это будет выглядеть в программном коде применительно к моей программе?

в резидентной работе этого кода при выводе команды dir строка изчезает...

Ничего не получается, мысли уже закончились. Помогите пожалуйста, может кто-нибудь знает как это сделать...

[OCTAGRAM]

Перехватывать прерывание int 10h

Перед вызовом старого обработчика стирать бегущую строку, после вызова восстанавливать.

[polyarnik]

а можно пример программного кода?