home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 15-02.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  574b  |  33 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. var
  5.   volume : integer;
  6.  
  7. begin
  8.   fg_initpm;
  9.   if (fg_testmode(9,0) = 0) then
  10.   begin
  11.     write('This program requires a PCjr or ');
  12.     writeln('a Tandy 1000 system.');
  13.     exit;
  14.   end;
  15.  
  16.   writeln('2048 Hz periodic noise...');
  17.   fg_voice(4,2,15,3);
  18.   fg_waitfor(18);
  19.  
  20.   writeln('2048 Hz white noise...');
  21.   fg_voice(5,2,15,3);
  22.   fg_waitfor(18);
  23.  
  24.   writeln('500 Hz tone of increasing volume...');
  25.   for volume := 1 to 15 do
  26.   begin
  27.     fg_voice(1,500,volume,0);
  28.     fg_waitfor(4);
  29.   end;
  30.  
  31.   fg_quiet;
  32. end.
  33.