Motoren Geräusch

[sCrAPt]

Delphi-Quellcode:

var
  i: integer;
begin
  for i := 0 to 50 do
  begin
    beep;
    sleep(50);
    beep;
    sleep(20);
    beep;
    sleep(50);
    beep;
    sleep(10);
    beep;
    sleep(40);
    beep;
    sleep(40);
    beep;
    sleep(20);
  end;
end;

*gg*

, sCrAPt