{ (c) 1998 CREEQ <creeq@web.de> }
program Bitte_warten;
uses Crt;
begin
  clrscr;
  textcolor(white);
  gotoxy(32,9);
  write('Bitte Warten ...');
  gotoxy(37,11);
  write('°');
  gotoxy(38,11);
  write('°');
  gotoxy(39,11);
  write('°');
  gotoxy(40,11);
  write('°');
  gotoxy(41,11);
  write('°');
  repeat
    textcolor(yellow);
    gotoxy(37,11);
    write('Û');
    delay(200);
    textcolor(white);
    gotoxy(37,11);
    write('°');
    textcolor(yellow);
    gotoxy(38,11);
    write('Û');
    delay(200);
    textcolor(white);
    gotoxy(38,11);
    write('°');
    textcolor(yellow);
    gotoxy(39,11);
    write('Û');
    delay(200);
    textcolor(white);
    gotoxy(39,11);
    write('°');
    textcolor(yellow);
    gotoxy(40,11);
    write('Û');
    delay(200);
    textcolor(white);
    gotoxy(40,11);
    write('°');
    textcolor(yellow);
    gotoxy(41,11);
    write('Û');
    delay(200);
    textcolor(white);
    gotoxy(41,11);
    write('°');
  until keypressed;
  readkey;
  clrscr;
end.