home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PASCAL
/
TP6SB110.ZIP
/
DEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-03-14
|
568b
|
21 lines
{$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>0 then begin
LoadVoice(paramstr(1),0,0);
sb_Output(seg(soundfile),ofs(soundfile)+26);
repeat
write('Demo of the SBVoice Unit, Copyright 1991 by Amit K. Mathur --- ');
until StatusWord=0;
end else
writeln('Usage: DEMO [d:\path\]filename.voc');
end else
writeln('SoundBlaster Init Error. SoundBlaster v1.00 not Found.');
end.