Program sounds; { by Neale Pickett and John Lyo }
                { 6/25/87                       }
                { some strange sounds.          }
var
   a,I : integer;

begin
 ClrScr;

 for i:=1 to 10000 do begin { a strange sound}
  sound(i);
  sound(20000-i);
 end;

 for i:=20000 downto 1 do sound(random(i+i)); { a frying sound }

 for a:=1 to 5 do  { a sizzling sound }
 for i:=20000 downto 15000 do sound(random(i)-(random(10000-i)));

 for i:=20000 downto 1 do sound(random(2000)+i); { a spaceship sound }

 NoSound; { turn speaker off }

end.