NBPrg40. (*EXT31). (**mmlst.ed). MMLED.PAS. MiniOS. OpenSource.

NBPrg40. (*EXT31). (**mmlst.ed). MMLED.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }

Unit mmled; { MmLstEdit }

(***********************************************
 *                                             *
 *   MMLED.PAS                                 *
 *                                             *
 *   mmled.                                    *
 *                                             *
 ***********************************************)

Interface

Procedure MmLstEdit_run;

Implementation

Uses edfp; { EditFile + Path }

Procedure MmLstEdit_run;
Var
  Path : String;
Begin
  WriteLn(' Nikita Beloshenko (GNU) 2013 ');
  WriteLn(' ----- MmLstEdit 2013 {(text) (module)} ----- ');

  WriteLn(' ----- MMLIST.TCK ----- ');
  Path        := 'MMLIST.TCK';
  edfp_run(Path);
End;

End.