Program SBCMFDEM;
Uses SBCMF;
Const ErrList : Array [0..8] Of String[23] = (
  'Music finished.',
  'FM Driver Not Installed.',
  'Error Opening File.',
  'Error Allocating Memory.',
  'Error Resetting Driver.',
  'Error Reading File.',
  'Error Playing Music.',
  'Error Stopping Music.',
  'Error Closing File.');
Begin
  Write('TPSBK Creative Music File Player v1.0 - ');
  WriteLn('Copyright(c) 1991 Trevor Robinson');
  If ParamCount <> 1 Then Begin
    WriteLn(' Syntax:  SBCMFDEM  filename');
    Halt;
  End;
  WriteLn(ErrList[PlayCMFFile(ParamStr(1))]);
End.