home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sound / sbutil / demosrc.exe / CMSDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-25  |  1.3 KB  |  50 lines
  1. {$A+,B-,D-,E+,F-,G-,I+,L-,N-,O-,R-,S-,V+,X-}
  2. {$M 3000,0,1008}
  3. {**************************************************************************
  4.  
  5.                                CMSTEST
  6.                         Program to Test CMSDRVR
  7.  
  8.                              Date: 4/4/91
  9.                               Version: 1
  10.  
  11. ***************************************************************************
  12.  
  13.                    Copyright (c) 1991, Zackzon Labs.
  14.  
  15.                        Author: Anthony Rumble
  16.  
  17. ==========
  18. Addresses:
  19. ==========
  20. InterNet: c9106510@cc.newcastle.edu
  21. SIGNet: 28:2200/108
  22.  
  23. Snail Mail:
  24.  32 Woolwich Rd.
  25.  Hunters Hill, NSW, 2110
  26.  Australia
  27.  
  28. -------------------------------------------------------------------------
  29.                               HISTORY
  30. -------------------------------------------------------------------------
  31. 1.0 - Works fine so far
  32. *************************************************************************}
  33. program cmstest;
  34.  
  35. uses cmsdrvr, misc, crt;
  36.  
  37. begin
  38.  clrscr;
  39.  writeln('CMS Demo1 By Anthony Rumble.');
  40.  writeln('Copyright (c) Zackzon Labs');
  41.  cms_reset;
  42.  cms_play(C, $A, $0, 2, 1);
  43.  cms_play(E, $0, $A, 2, 2);
  44.  cms_play(G, $A, $0, 2, 3);
  45.  cms_play(C, $0, $A, 3, 4);
  46.  cms_play(E, $A, $0, 3, 5);
  47.  cms_play(G, $0, $A, 3, 6);
  48.  pause;
  49.  cms_reset;
  50. end.