home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / nicol / sti_song / sti_demo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-22  |  538 b   |  19 lines
  1. program STI_DEMO;
  2.  
  3. Uses Crt,STI_SONG;
  4.  
  5. begin
  6.   ClrScr;
  7.   Writeln('                     So who needs a sound board ? ');
  8.   Writeln('                     Listen to this !!!');
  9.   Writeln;
  10.   Writeln('Playing A Few Notes ...');
  11.   STI_Play_Initialise;
  12.   STI_PlayString('MBT190O1ABCDEFGP4O2ABCDEFGO3P4ABCDEFGP4O4ABCDEFGP4O5ABCDEFGP4O6ABCDEFG');
  13.   Delay(1000);
  14.  
  15.   Writeln('Playing Happy Birthday ...');
  16.   STI_Play_Initialise;
  17.   STI_PlayString('MBT140L4MFMNO4C8C8DCFE2C8C8DCGF2C8C8O5CO4AFED2T90B-8B-8AFGF2');
  18.   Delay(1000);
  19. end.