home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / FLI.ZIP / FLICMF.PAS next >
Pascal/Delphi Source File  |  1996-03-17  |  436b  |  24 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('w.cmf');
  17. jesli_blad_to_koniec;
  18. CZagrajCMF(Muzyka);
  19. Jesli_blad_to_koniec;
  20. fli_play('apdemo.fli');
  21. ch:=readkey;
  22. if ch=#27 then CZakonczCMF;
  23. CZwolnijPamiecCMF(Muzyka)
  24. end.