2018. News. World. Europe. USA. EU. Ukraine. Info2018. Economics2018.

2018. News. World. Europe. USA. EU. Ukraine. Info2018. Economics2018. https://www.rbc.ua/rus/news/ukraina-polsha-dogovorilis-pervyh-razresheni... Джерело:РБК-УКРАЇНА.

NBPrg40. (*TWriteLn). TWRLN1.PAS. MiniOS. OpenSource.

NBPrg40. (*TWriteLn). TWRLN1.PAS. MiniOS. OpenSource.
**************************************

{ Beloshenko Nikita 2013 (GNU) }

(*
        TWRLN1.PAS
*)

Program Test_WriteLn;

Uses MTest,
{ ----- frag1:agc2723djdnw3hdknkdn3h83dms ----- }
     MY,
{ ----- frag1:agc272dmflkse9ekrm9t5kl5095 ----- }
     MTest1;


Label EXIT_label,START_label;
Var task:String;
    tasks:Array[1..100] Of String;
    N_TASK_VAR,i:Byte;

{ ADD_NEW_TASK }
Procedure add_new_task_run;
Var T,T1:text; TempS:String;
    T2:text; TFILENAME : String;

    MODULE_UNIT : String;

NBPrg40. (*TWriteLn). TWRITELN.TMP. MiniOS. OpenSource.

NBPrg40. (*TWriteLn). TWRITELN.TMP. MiniOS. OpenSource.
**************************************

{ Beloshenko Nikita 2013 (GNU) }

(*
        TWRITELN.TMP
*)

Program Test_WriteLn;

Uses MTest,
{ ----- frag1:agc2723djdnw3hdknkdn3h83dms ----- }
{ ----- frag1:agc272dmflkse9ekrm9t5kl5095 ----- }
     MTest1;


Label EXIT_label,START_label;
Var task:String;
    tasks:Array[1..100] Of String;
    N_TASK_VAR,i:Byte;

{ ADD_NEW_TASK }
Procedure add_new_task_run;
Var T,T1:text; TempS:String;
    T2:text; TFILENAME : String;

    MODULE_UNIT : String;

NBPrg40. (*TWriteLn). TWRITELN.PAS. MiniOS. OpenSource.

NBPrg40. (*TWriteLn). TWRITELN.PAS. MiniOS. OpenSource.
**************************************

{ Beloshenko Nikita 2013 (GNU) }

(*
        TWRITELN.PAS
*)

Program Test_WriteLn;

Uses MTest,
{ ----- frag1:agc2723djdnw3hdknkdn3h83dms ----- }
     MY,
{ ----- frag1:agc272dmflkse9ekrm9t5kl5095 ----- }
     MTest1;


Label EXIT_label,START_label;
Var task:String;
    tasks:Array[1..100] Of String;
    N_TASK_VAR,i:Byte;

{ ADD_NEW_TASK }
Procedure add_new_task_run;
Var T,T1:text; TempS:String;
    T2:text; TFILENAME : String;

    MODULE_UNIT : String;

NBPrg40. (*TWriteLn). MY.TS. MiniOS. OpenSource.

NBPrg40. (*TWriteLn). MY.TS. MiniOS. OpenSource.
**************************************

MY
MY
MY_run

NBPrg40. (*TWriteLn). MY.PAS. MiniOS. OpenSource.

NBPrg40. (*TWriteLn). 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. (*TWriteLn). MTEST1.PAS. MiniOS. OpenSource.

NBPrg40. (*TWriteLn). MTEST1.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko 2013 (GNU) }

Unit MTest1;

(***********************************************
 *                                             *
 *   MTEST1.PAS                                *
 *                                             *
 *   MTest1.                                   *
 *                                             *
 ***********************************************)

Interface

Implementation

End.

NBPrg40. (*TWriteLn). MTEST.PAS. MiniOS. OpenSource.

NBPrg40. (*TWriteLn). MTEST.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013}

Unit MTEST;

(***********************************************
 *                                             *
 *   MTEST.PAS                                 *
 *                                             *
 *   MTEST.                                    *
 *                                             *
 ***********************************************)

Interface

Implementation

End.

NBPrg40. (*TWriteLn). MMLIST.TCK. MiniOS. OpenSource.

NBPrg40. (*TWriteLn). MMLIST.TCK. MiniOS. OpenSource.
**************************************

MY
HELP
ADD NEW TASK
DELETE TASK
E+M+M

NBPrg40. (*TWriteLn). IFCMDS.TMP. MiniOS. OpenSource.

NBPrg40. (*TWriteLn). IFCMDS.TMP. MiniOS. OpenSource.
**************************************

  If (task='MY') Then MY_run;
Синдикация материалов