home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sound / sounds / sounds.pas
Encoding:
Pascal/Delphi Source File  |  1988-07-31  |  580 b   |  25 lines
  1. Program sounds; { by Neale Pickett and John Lyo }
  2.                 { 6/25/87                       }
  3.                 { some strange sounds.          }
  4. var
  5.    a,I : integer;
  6.  
  7. begin
  8.  ClrScr;
  9.  
  10.  for i:=1 to 10000 do begin { a strange sound}
  11.   sound(i);
  12.   sound(20000-i);
  13.  end;
  14.  
  15.  for i:=20000 downto 1 do sound(random(i+i)); { a frying sound }
  16.  
  17.  for a:=1 to 5 do  { a sizzling sound }
  18.  for i:=20000 downto 15000 do sound(random(i)-(random(10000-i)));
  19.  
  20.  for i:=20000 downto 1 do sound(random(2000)+i); { a spaceship sound }
  21.  
  22.  NoSound; { turn speaker off }
  23.  
  24. end.
  25.