NBPrg40. TREE.PAS. MiniOS. OpenSource.

NBPrg40. TREE.PAS. MiniOS. OpenSource.
***************************************

{ Nikita Beloshenko (GNU) 2013 }

Unit TREE;

(********************************************
 *                                          *
 *   TREE.PAS                               *
 *                                          *
 *   TREE.                                  *
 *                                          *
 ********************************************)

Interface

Procedure TREE_run;

Implementation

Procedure TREE_run;
Begin
  WriteLn(' Nikita Beloshenko (GNU) 2013 ');
  WriteLn(' ----- TREE 2013 {(test) (module)} ----- ');

  { TREE }

  WriteLn('TREE');
  WriteLn(' |  ');
  WriteLn(' 0-----------0 B1');
  WriteLn(' |           |  ');
  WriteLn(' |           0-----------0 B11');
  WriteLn(' |           |  ');
  WriteLn(' |           0-----------0 B12');
  WriteLn(' |               ');
  WriteLn(' |  ');
  WriteLn(' 0-----------0 B2');

End;

End.