NBPrg40. (*EXT31). (**x16pic.ed). SPED.PAS. MiniOS. OpenSource.

NBPrg40. (*EXT31). (**x16pic.ed). SPED.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }

Unit sped; { SmallPicEdit }

(***********************************************
 *                                             *
 *   SPED.PAS                                  *
 *                                             *
 *   sped.                                     *
 *                                             *
 ***********************************************)

Interface

Procedure SmallPicEdit_run;

Implementation

Uses edfp; { EditFile + Path }

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

  WriteLn(' ----- [NAME].P ----- ');
  WriteLn('       Sample : GR.p => [NAME] = GR');
  WriteLn('? ---- [NAME]?');
  ReadLn(Path);
  Path        := Path + '.P';
  edfp_run(Path);
End;

End.