home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Intermedia 1998 January
/
inter1_98.iso
/
www
/
rozi
/
FLI.ZIP
/
FLICMF.PAS
next >
Wrap
Pascal/Delphi Source File
|
1996-03-17
|
436b
|
24 lines
{$M 15000,0,500000}
uses cmf,crt,fliunit;
var Muzyka:pointer;
ch:char;
procedure Jesli_blad_to_koniec;
begin
if CMF_blad<>COk
then begin
write('BÆåd : ');
writeln(COpisBledu);
halt;
end;
end;
begin
Jesli_blad_to_koniec;
Muzyka:=CZaladujPlikCMF('w.cmf');
jesli_blad_to_koniec;
CZagrajCMF(Muzyka);
Jesli_blad_to_koniec;
fli_play('apdemo.fli');
ch:=readkey;
if ch=#27 then CZakonczCMF;
CZwolnijPamiecCMF(Muzyka)
end.