home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sound / sbutil / cmsdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-05-06  |  1.7 KB  |  75 lines
  1. {$M 2024,0,10000}
  2. {**************************************************************************
  3.  
  4.                    CMSDEMO
  5.                Program to test CMSPRG
  6.  
  7.                  Date: 6/5/91
  8.                   Version: 1
  9.  
  10. ***************************************************************************
  11.  
  12.                    Copyright (c) 1991, Zackzon Labs.
  13.  
  14.                        Author: Anthony Rumble
  15.  
  16. ==========
  17. Addresses:
  18. ==========
  19. InterNet: c9106510@cc.newcastle.edu
  20. FIDONet: 3:713/802.3
  21. SIGNet: 28:2500/102
  22.  or   : 28:2200/102.2
  23.  
  24. Snail Mail:
  25.  32 Woolwich Rd.
  26.  Hunters Hill, NSW, 2110
  27.  Australia
  28.  
  29. -------------------------------------------------------------------------
  30.                               HISTORY
  31. -------------------------------------------------------------------------
  32. 1.0 - Works fine so far
  33. *************************************************************************}
  34. program cmsdemo;
  35.  
  36. uses crt, cmsprg;
  37.  
  38. var
  39.  muzak:pointer;
  40.  version:word;
  41.  ch:char;
  42.  
  43. begin
  44.  writeln('Play CMS Demo. By Anthony Rumble.');
  45.  writeln('Copyright (c) Zackzon Labs');
  46.  if paramcount<1 then
  47.  begin
  48.   writeln('Help.');
  49.   writeln('Command Line Options');
  50.   writeln('CMSDEMO <filename.CMS>');
  51.   writeln('Plays the CMS file filename.CMS');
  52.   writeln;
  53.   halt(1);
  54.  end;
  55.  if initialize then writeln('CMSDRV Active') else
  56.  begin
  57.   writeln('CMSDRV not Active');
  58.   halt(1);
  59.  end;
  60.  version:=CMS_Get_Version;
  61.  writeln('Version ',hi(version),'.',lo(version));
  62.  muzak:=CMS_Load_CMS(paramstr(1));
  63.  if not CMS_Play_Music(muzak) then
  64.  begin
  65.   writeln('Problem Playing Music');
  66.   halt(1);
  67.  end;
  68.  repeat;
  69.  write('Status = ',status);
  70.  write(#13);
  71.  until ((keypressed) or (status=0));
  72.  if keypressed then ch:=readkey;
  73.  CMS_Stop_Music;
  74. end.
  75.