home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / soundb / tp6sb110 / demo.pas < prev    next >
Pascal/Delphi Source File  |  1991-03-14  |  568b  |  21 lines
  1. {$M 16384,0,0}
  2.  
  3. program Demo; { to demonstrate the SBVoice Unit }
  4.               { Copyright 1991 Amit K. Mathur, Windsor, Ontario }
  5.  
  6. uses SBVoice;
  7.  
  8. begin
  9. if SBFound then begin
  10.   if paramcount>0 then begin
  11.     LoadVoice(paramstr(1),0,0);
  12.     sb_Output(seg(soundfile),ofs(soundfile)+26);
  13.     repeat
  14.       write('Demo of the SBVoice Unit, Copyright 1991 by Amit K. Mathur --- ');
  15.     until StatusWord=0;
  16.   end else
  17.     writeln('Usage: DEMO [d:\path\]filename.voc');
  18. end else
  19.   writeln('SoundBlaster Init Error.  SoundBlaster v1.00 not Found.');
  20. end.
  21.