home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PASCAL
/
TPSBK100.ZIP
/
SBCMFDEM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-06-30
|
595b
|
25 lines
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.