home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Intermedia 1998 January
/
inter1_98.iso
/
www
/
rozi
/
CMF.ZIP
/
MM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-03-12
|
340b
|
21 lines
uses cmf,crt;
{$L mm.obj}
procedure mm; external;
var ch:char;
begin
if CMF_blad<>COk then
begin
writeln(COpisBledu);
halt
end;
CZagrajCMF(@mm);
repeat
until (CMFStatus=0)or(keypressed);
if keypressed then ch:=readkey;
CZakonczCMF
end.