{ (c) 1998 CREEQ <creeq@web.de> }
program Muster;

uses Crt;

var v, h : byte;
    w    : boolean;

begin
  clrscr;
  v := 1;
  h := 80;
  w := false;
  repeat
    gotoxy(v,1); write('Û');
    gotoxy(h,1); write('Û');
    gotoxy(1,1); insline;
    if w = false then inc(v);
    if w = false then dec(h);
    if w = true then dec(v);
    if w = true then inc(h);
    if v = 80 then w := true;
    if v = 1 then w := false;
    delay(10);
  until keypressed;
  readkey;
end.