home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sound Sensations!
/
sound_sensations.iso
/
soundb
/
tpsbk100
/
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.