home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / FLI_2.ZIP / FLICMF.PAS < prev    next >
Pascal/Delphi Source File  |  1996-03-23  |  447b  |  25 lines
  1. {$M 15000,0,500000}
  2. uses cmf,crt,fliunit;
  3. var Muzyka:pointer;
  4. ch:char;
  5. procedure Jesli_blad_to_koniec;
  6. begin
  7. if CMF_blad<>COk
  8. then begin
  9. write('BÆåd : ');
  10. writeln(COpisBledu);
  11. halt;
  12. end;
  13. end;
  14. begin
  15. Jesli_blad_to_koniec;
  16. Muzyka:=CZaladujPlikCMF('demo.cmf');
  17. jesli_blad_to_koniec;
  18. CZagrajCMF(Muzyka);
  19. Jesli_blad_to_koniec;
  20. fli_play('napis.fli');
  21. {ch:=readkey;
  22. exit;
  23. if ch=#27 then} CZakonczCMF;
  24. CZwolnijPamiecCMF(Muzyka)
  25. end.