home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BGSOUND6.ZIP / BGDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-30  |  397 b   |  15 lines
  1. Program back_ground_demo;
  2.  
  3. uses crt,bgsound;
  4.  
  5. begin
  6.   writeln('Building music');
  7.   PlayMusic('T80 O4 L8 GFE-FGGG P8 FFF4 GB-B-4 GFE-FGGG GFFGFE-');
  8.   writeln('Music is playing');
  9.   while BGSPlaying do begin  { wait for music to end }
  10.     if WhereY = 25 then ClrScr;
  11.     writeln('The program can continue processing while the music is playing')
  12.   end;
  13.   writeln('Music is done')
  14. end.
  15.