home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / CMF.ZIP / GRAJCMF.PAS < prev    next >
Pascal/Delphi Source File  |  1996-01-22  |  2KB  |  60 lines
  1.  
  2. program GrajCMF; 
  3.  
  4. {$M 15000,0,50000}
  5.  
  6. uses cmf,crt; 
  7.  
  8. procedure Jesli_blad_to_koniec; 
  9. begin 
  10.     if CMF_blad<>COk 
  11.        then begin 
  12.              write('BÆåd : '); 
  13.              writeln(COpisBledu); 
  14.              halt 
  15.             end 
  16. end; 
  17.  
  18. var Muzyka:pointer; 
  19.     Pauza:boolean; 
  20.     ch:char; 
  21.  
  22. begin 
  23.     if paramcount<1  
  24.        then begin 
  25.              writeln('Uºycie: GRAJCMF plik'); 
  26.              writeln('plik - plik w formacie CMF'); 
  27.              halt 
  28.             end; 
  29.     Jesli_blad_to_koniec; 
  30.     Muzyka:=CZaladujPlikCMF(paramstr(1)); 
  31.     Jesli_blad_to_koniec; 
  32.     Pauza:=false; 
  33.     writeln('TytuÆ      : ',CTytulCMF(Muzyka)); 
  34.     writeln('Kompozytor : ',CKompozytorCMF(Muzyka)); 
  35.     writeln('Uwagi      : ',CKomentarzCMF(Muzyka)); 
  36.     writeln; 
  37.     writeln('Odtwarzam...'); 
  38.     writeln('SPACJA - Pauza/Kontynuacja   ESC - Koniec'); 
  39.     while keypressed do ch:=readkey; 
  40.     CZagrajCMF(Muzyka); 
  41.     Jesli_blad_to_koniec; 
  42.     repeat 
  43.         ch:=#0; 
  44.         if keypressed then ch:=readkey; 
  45.         if ch=#32 then 
  46.            case Pauza of 
  47.             false: begin  
  48.                        CPauzaCMF;  
  49.                        Pauza:=true  
  50.                    end; 
  51.             true : begin 
  52.                        CWznowCMF; 
  53.                        Pauza:=false 
  54.                    end 
  55.            end; 
  56.     until (CMFStatus=0)or(ch=#27); 
  57.     if ch=#27 then CZakonczCMF; 
  58.     CZwolnijPamiecCMF(Muzyka) 
  59. end. 
  60.