NBPrg40. (*CFProc). CFPROC.PAS. MiniOS. OpenSource.

NBPrg40. (*CFProc). CFPROC.PAS. MiniOS. OpenSource.
***************************************

{ Nikita Beloshenko (GNU) 2013 }

Unit CFProc;

(***********************************************
 *                                             *
 *   CFPROC.PAS                                *
 *                                             *
 *   CFProc.                                   *
 *                                             *
 ***********************************************)

Interface

Procedure CFProc_run;

Implementation

Uses MTest,
{ ---------- }
     HISTOGR,
     EDSFILE,
     CPFILE,
     EDFILE,
     TYFILE,
     CRFILE,
     CONCALC,
     TREE,
     MY1,
     MY,
     MTest1;

Const
  CFProc_AlgoFile = 'CFProc.dat'; { FILE }

{ FROM TWRITELN }
Procedure CFProc_do_command(Var Task:String);
Begin
  If (task='HISTOGR') Then HISTOGR_run;
  If (task='File->(Edit)->(With Search)') Then Edit_S_FILE_run;
  If (task='File->(Copy)') Then CopyFILE_run;
  If (task='File->(Edit)') Then EditFILE_run;
  If (task='Type File') Then TypeFILE_run;
  If (task='Create Text File') Then CRFILE_run;
  If (task='Console Calc') Then CONCALC_run;
  If (task='TREE') Then TREE_run;
  If (task='MY1') Then MY1_run;
  If (task='MY') Then MY_run;
End;

Procedure CFProc_run;
Var
  T : Text;
  S : String;
Begin
  WriteLn(' Nikita Beloshenko (GNU) 2013 ');
  WriteLn(' ----- CFProc 2013 {(algo) (module)} ----- ');

  assign(T,CFProc_AlgoFile);
  reset(T);
  While Not eof(T) Do
  Begin
    ReadLn(T,S);
    CFProc_do_command(S);
  End;
  close(T);
End;

End.