{$M 30000,0,$10000}
program MusicDOS;
uses DOS,SBBKMUZ;
begin
  writeln('SoundBlaster Musical DOS - Copyright 1991, Trevor Robinson');
  if paramcount <> 1 then begin
    writeln(' Syntax:  MUSICDOS  musicfile');
    halt(1);
  end;
  if not BackgroundInit then begin
    writeln(' Not enough memory for music data');
    halt(1);
  end;
  if PlayMuz(paramstr(1)) then begin
    PlayingMode(RepeatSong);
    swapvectors;
    exec(getenv('COMSPEC'),'');
    swapvectors;
    WriteLn('SoundBlaster Musical DOS finished.');
  end else
    writeln(paramstr(1)+' not found.');
  ShutdownBackground;
end.