[Back to SOUND SWAG index] [Back to Main SWAG index] [Original]

    {$M 16384,0,0}

    Program Demo; { to demonstrate the SBVoice Unit }
                  { Copyright 1991 Amit K. Mathur, Windsor, Ontario }

    Uses SBVoice;

    begin
    if SBFound then begin
      if paramcount=1 then begin
        LoadVoice(ParamStr(1),0,0);
        sb_Output(seg(SoundFile),ofs(SoundFile)+26);
        Repeat
         Write('Ha');
        Until StatusWord=0;
      end else
        Writeln('Usage: DEMO [d:\path\]Filename.voc');
      end else
      Writeln('SoundBlaster Init Error.  SoundBlaster v1.00 not Found.');
    end.

[Back to SOUND SWAG index] [Back to Main SWAG index] [Original]