home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / CMF.ZIP / MUZYK.PAS < prev    next >
Pascal/Delphi Source File  |  1996-01-22  |  352b  |  21 lines
  1.  
  2. uses cmf,crt; 
  3.  
  4. {$L doodle.obj} 
  5. procedure doodle; external; 
  6.  
  7. var ch:char; 
  8.  
  9. begin 
  10.     if CMF_blad<>COk then  
  11.        begin  
  12.            writeln(COpisBledu); 
  13.            halt 
  14.        end; 
  15.     CZagrajCMF(@doodle); 
  16.     repeat 
  17.     until (CMFStatus=0)or(keypressed); 
  18.     if keypressed then ch:=readkey; 
  19.     CZakonczCMF 
  20. end.
  21.