{ =================================================== }
{       Das MKINL Programm -- INCLUDE Dateien         }
{                                                     }
{           TEIL 5 : Bildschirm Funktionen            }
{                                                     }
{ =================================================== }

procedure Video(Message:AnyString);
begin
  LowVideo;
  write(Message);
  NormVideo;
end;

procedure GetCursor;
begin
  CursX:=wherex;
  CursY:=wherey;
end;

procedure flash(Message:Anystring);
var
  i            : integer;
  sw           : Light;
  txt          : Anystring;
  key          : boolean;

  procedure do_delay(len:integer);
  const
    dela       = 50;
  begin
    i:=1;
    repeat
      delay(dela);
      key:=keypressed;
      i:=succ(i);
    until (key or (i>(len div dela)));
  end;

  procedure do_flash(switch:Light);
  const
    re         = ' Nochmal';
    re_res     = '        ';
    del_val    = 200;
  begin
    gotoxy(CursX,CursY);
    case switch of
      ON    : begin
                video(Message);
                write(re);
                do_delay(del_val);
              end;
      OFF   : begin
                write(txt+re);
                do_delay(del_val);
              end;
      RESET : write(txt+re_res);
      end;
  end;

begin { flash }
  invisible;
  sw:=ON;
  txt:=message;
  for i:=1 to length(message) do txt[i]:=' ';
  repeat
    do_flash(sw);
    if sw=ON then sw:=OFF
             else sw:=ON;
  until key;
  do_flash(RESET);
  visible;
  Gotoxy(CursX,CursY);
end;