home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 15-05.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  746b  |  38 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. var
  5.   voice_array : array [0..60] of integer;
  6.   i           : integer;
  7.   volume      : integer;
  8.  
  9. begin
  10.   fg_initpm;
  11.   if (fg_testmode(9,0) = 0) then
  12.   begin
  13.     write('This program requires a PCjr or ');
  14.     writeln('a Tandy 1000 system.');
  15.     exit;
  16.   end;
  17.  
  18.   i := 0;
  19.  
  20.   for volume := 1 to 15 do
  21.   begin
  22.     voice_array[i] := 1;      { use channel 1 }
  23.     inc(i);
  24.     voice_array[i] := 500;    { 500 Hz frequency }
  25.     inc(i);
  26.     voice_array[i] := volume; { variable volume }
  27.     inc(i);
  28.     voice_array[i] := 16;     { duration }
  29.     inc(i);
  30.   end;
  31.   voice_array[i] := 0;
  32.  
  33.   fg_voices(voice_array,1);
  34.  
  35.   while (fg_playing = 1) do
  36.      writeln('Still playing...');
  37. end.
  38.