home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / PASCAL / PAVT199 / FMST.PAS < prev    next >
Pascal/Delphi Source File  |  1992-07-09  |  232b  |  15 lines
  1. {$X+}
  2. Uses Crt, PAvtSnd;
  3.  
  4. var f : integer;
  5.  
  6. BEGIN
  7.   repeat
  8.     Write('Frequency to test (0 exits): ');
  9.     Readln(f);
  10.     Sound2(f);
  11.     Writeln('(FM) Press any key...');
  12.     ReadKey;
  13.     NoSound2;
  14.   until f = 0;
  15. END.