home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 15-08.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  353b  |  18 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. begin
  5.   fg_initpm;
  6.   fg_musicb('T150 L8 EDCDEEE P DDD P EGG P EDCDEEE L16 P L8 EDDEDC$',1);
  7.   fg_waitkey;
  8.  
  9.   fg_suspend;
  10.   writeln('Music suspended.  Press any key to resume.');
  11.   fg_waitkey;
  12.  
  13.   fg_resume;
  14.   writeln('Music resumed.');
  15.   while (fg_playing = 1) do;
  16.   writeln('Music finished.');
  17. end.
  18.