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

NBPrg40. (*EXT31). (**x16pic.ed). GR.P. MiniOS. OpenSource.

NBPrg40. (*EXT31). (**x16pic.ed). GR.P. MiniOS. OpenSource.
**************************************

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 1 1 1 0 0 0 0 4 4 4 0
0 0 0 0 0 0 1 1 1 0 0 0 4 4 4 0
0 0 0 0 0 0 0 1 1 1 0 0 4 4 4 0
0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0
0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0
0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0
0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0
0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0
0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0

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

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

{ Nikita Beloshenko (GNU) 2013 }

Unit edfp;

{ edfp = E D F I L E + Path - loop }

(*
   
   EDFP.PAS 

   +---------------------------+ 
   |                           | 
   |      E D F I L E          | 
   |                           | 
   +---------------------------+ *)

Interface

Procedure edfp_run(Var Path :String);

Implementation

{ Edit File , edfp = edit file , path }
Procedure edfp_run(Var Path :String);
Var
  Name,S : String;

NBPrg40. (*EXT31). (**x16pic.ed). EDBUF.TMP. MiniOS. OpenSource.

NBPrg40. (*EXT31). (**x16pic.ed). EDBUF.TMP. MiniOS. OpenSource.
**************************************

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 1 1 1 0 0 0 0 4 4 4 0
0 0 0 0 0 0 1 1 1 0 0 0 4 4 4 0
0 0 0 0 0 0 0 1 1 1 0 0 4 4 4 0
0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0
0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0
0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0
0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0
0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0
0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0

NBPrg40. (*EXT31). (**x16pic.ed). dirinfo. MiniOS. OpenSource.

NBPrg40. (*EXT31). (**x16pic.ed). dirinfo. MiniOS. OpenSource.
**************************************

+-----------+
+ x16pic.ed +
+-----------+

  Nikita Beloshenko (GNU) 2013.

  NBPrg40 .

  -> ext31 -> x16pic.ed

NBPrg40. (*EXT31). (**unit.ed). uned.TS. MiniOS. OpenSource.

NBPrg40. (*EXT31). (**unit.ed). uned.TS. MiniOS. OpenSource.
**************************************

uned
UnitEdit
UnitEdit_run

NBPrg40. (*EXT31). (**unit.ed). UNED.PAS. MiniOS. OpenSource.

NBPrg40. (*EXT31). (**unit.ed). UNED.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }

Unit uned; { UnitEdit }

(***********************************************
 *                                             *
 *   UNED.PAS                                  *
 *                                             *
 *   uned.                                     *
 *                                             *
 ***********************************************)

Interface

Procedure UnitEdit_run;

Implementation

NBPrg40. (*EXT31). (**unit.ed). TST.PAS. MiniOS. OpenSource.

NBPrg40. (*EXT31). (**unit.ed). TST.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }

(*
        TST.PAS
*)

Program tst;

Uses uned;

Begin
  UnitEdit_run
End.

NBPrg40. (*EXT31). (**unit.ed). MY.PAS. MiniOS. OpenSource.

NBPrg40. (*EXT31). (**unit.ed). MY.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }

Unit My;

(***************************
 *                         *
 *   MY.PAS                *
 *                         *
 *   My.                   *
 *                         *
 ***************************)

Interface

Procedure My_run;

Implementation

Procedure My_run;
Begin
  WriteLn(' Nikita Beloshenko (GNU) 2013 ');
  WriteLn(' ----- My 2013 {(test) (module)} ----- ');
End;

End.

NBPrg40. (*EXT31). (**unit.ed). EDFP.PAS. MiniOS. OpenSource.

NBPrg40. (*EXT31). (**unit.ed). EDFP.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }

Unit edfp;

{ edfp = E D F I L E + Path - loop }

(*
   
   EDFP.PAS

   +---------------------------+ 
   |                           | 
   |      E D F I L E          | 
   |                           | 
   +---------------------------+ *)

Interface

Procedure edfp_run(Var Path :String);

Implementation

{ Edit File , edfp = edit file , path }
Procedure edfp_run(Var Path :String);
Var
  Name,S : String;
Синдикация материалов