[31m-- main is main file of main project written with Ada.[m
[31m-- Main is Copyright (C) 2025 Manuel De Girardi ; [m
[31m--[m
[31m--   This program is free software; you can redistribute it and/or modify[m
[31m--   it under the terms of the GNU General Public License as published by[m
[31m--   the Free Software Foundation; either version 2 of the License, or[m
[31m--   (at your option) any later version.[m
[31m--[m
[31m--   This program is distributed in the hope that it will be useful,[m
[31m--   but WITHOUT ANY WARRANTY; without even the implied warranty of[m
[31m--   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the[m
[31m--   GNU General Public License for more details.[m
[31m--[m
[31m--   You should have received a copy of the GNU General Public License[m
[31m--   along with this program; if not, write to the Free Software[m
[31m--   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA[m
[31m--[m
[31m-- Date := 2026-10-08 13:45:27 ; [m
[31m-- Version := 0.45.0a ; [m
[01;34mwith[m Lib[31m.[mShared [31m;[m
[01;34muse[m Lib[31m.[mShared [31m;[m
[01;34mwith[m Gnat[31m.[mCommand_Line[31m;[m
[01;34mwith[m Gnat[31m.[mDirectory_Operations [31m;[m
[01;34mwith[m Gnat[31m.[mDirectory_Operations[31m.[mIteration[31m;[m
[01;34muse[m Gnat[31m.[mDirectory_Operations [31m;[m
[01;34muse[m Gnat[31m.[mDirectory_Operations[31m.[mIteration[31m;[m
[01;34mwith[m Ada[31m.[mDirectories[31m;[m
[01;34muse[m Ada[31m;[m
[01;34mwith[m M[31m.[mShared[31m;[m
[01;34mwith[m M[31m.[mBalance[31m;[m
[01;34mwith[m M[31m.[mAccountant[31m;[m

[01;34mwith[m Ada[31m.[mWide_Text_Io[31m;[m
[01;34mwith[m Text_Io[31m;[m
[01;34muse[m Text_Io[31m;[m
[01;34mwith[m PragmARC[31m.[mAnsi_Tty_Control[31m;[m
[01;34muse[m PragmARC[31m;[m
[01;34mwith[m Ada[31m.[mCharacters[31m.[mHandling[31m;[m
[01;34muse[m Ada[31m.[mCharacters[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mFixed[31m;[m
[01;34muse[m Ada[31m.[mStrings[31m.[mFixed[31m;[m

[01;34mwith[m Ada[31m.[mContainers[31m.[mVectors[31m;[m
[01;34muse[m Ada[31m.[mContainers[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mWide_Fixed[31m;[m
[01;34muse[m Ada[31m.[mStrings[31m;[m
[01;34mwith[m M[31m.[mVersions[31m.[mVersion_Io[31m;[m
[01;34muse[m M[31m.[mVersions[31m;[m
[01;34muse[m M[31m.[mVersions[31m.[mVersion_Io[31m;[m

[31m----------------------------------------------------------[m
[31m-- Mode none[m
[01;34mwith[m M[31m.[mTools[31m;[m
[01;34mwith[m M[31m.[mShell[31m;[m
[01;34mwith[m M[31m.[mAttributes[31m;[m

[01;34mwith[m Ada[31m.[mCalendar[31m.[mFormatting[31m;[m
[01;34muse[m Ada[31m.[mCalendar[31m;[m
[01;34mwith[m Ada[31m.[mWide_Characters[31m.[mHandling[31m;[m
[01;34muse[m Ada[31m.[mWide_Characters[31m.[mHandling[31m;[m

[01;34mwith[m Gnat[31m.[mDirectory_Operations[31m;[m

[01;34mwith[m Gnat[31m.[mSemaphores[31m;[m
[01;34muse[m Gnat[31m.[mSemaphores[31m;[m

[31m----------------------------------------------------------[m
[31m-- Organizer[m
[01;34mwith[m Ada[31m.[mTags[31m;[m
[01;34muse[m Ada[31m.[mTags[31m;[m
[01;34mwith[m M[31m.[mStrings[31m;[m
[01;34muse[m M[31m.[mStrings[31m;[m

[31m-----------------------------------------------------------[m
[31m-- Mode manager[m

[01;34muse[m Ada[31m.[mContainers[31m;[m

[01;34mwith[m Gnos[31m;[m

[01;34mwith[m Gnos[31m.[mParameters[31m;[m
[01;34muse[m Gnos[31m.[mParameters[31m;[m


[01;34mwith[m Gnos[31m.[mProjects[31m;[m


[01;34mwith[m Gnos[31m.[mResults[31m;[m
[31m--use Gnos.Results;[m
[01;34mwith[m Gnos[31m.[mVersions[31m;[m
[01;34mwith[m Gnos[31m.[mVersions[31m.[mEditting[31m;[m

[01;34muse[m Gnos[31m.[mVersions[31m.[mEditting[31m;[m
[01;34mwith[m Gnos[31m.[mVersions[31m.[mEnvironment[31m;[m
[01;34mwith[m Gnos[31m.[mGnose[31m;[m

[01;34muse[m Ada[31m;[m

[31m----------------------------------------------------------[m
[31m-- Activity[m
[01;34mwith[m M[31m.[mAccountant[31m;[m
[01;34muse[m M[31m.[mAccountant[31m;[m
[01;34mwith[m M[31m.[mBalance[31m;[m
[01;34muse[m M[31m.[mBalance[31m;[m
[01;34mwith[m Sky[31m.[mStock[31m;[m
[01;34mwith[m Sky[31m.[mStocks_Manager[31m;[m
[01;34muse[m Sky[31m.[mStock[31m;[m
[01;34muse[m Sky[31m.[mStocks_Manager[31m;[m
[01;34mwith[m M[31m.[mErrors[31m;[m



[01;34mwith[m M[31m.[mProject[31m;[m
[01;34muse[m M[31m.[mProject[31m;[m
[01;34mwith[m M[31m.[mWOPR[31m;[m
[01;34muse[m M[31m.[mWOPR[31m;[m

[01;34mwith[m Sai[31m;[m
[01;34mwith[m Sai[31m.[mEditting[31m;[m
[01;34muse[m Sai[31m;[m
[01;34muse[m Sai[31m.[mEditting[31m;[m

[01;34mwith[m Ansi_Console[31m;[m
[01;34mwith[m M[31m.[mAnsi[31m.[mConsole[31m;[m
[01;34muse[m M[31m.[mAnsi[31m;[m
[01;34mwith[m Adam[31m;[m
[01;34muse[m Adam[31m;[m
[01;34mwith[m Adam[31m.[mResults[31m;[m
[01;34mwith[m Adam[31m.[mInterfaces[31m;[m
[01;34muse[m Adam[31m.[mInterfaces[31m;[m
[01;34mwith[m Adam[31m.[mTextual[31m;[m
[01;34muse[m Adam[31m.[mTextual[31m;[m
[01;34mwith[m Adam[31m.[mWeb[31m;[m
[01;34muse[m Adam[31m.[mWeb[31m;[m
[01;34mwith[m Adam[31m.[mOperating_system[31m;[m
[31m--use Adam.Operating_system;[m
[01;34mwith[m Adam[31m.[mValues[31m;[m
[31m--with Adam.Terminal;[m
[31m--use Adam.Terminal;[m
[31m--with Adam.Terminal.Ansi_Consoles;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mWide_Unbounded[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mUnbounded[31m;[m
[01;34muse[m Ada[31m.[mStrings[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m;[m
[01;34muse[m Ada[31m;[m
[01;34mwith[m Aws[31m.[mClient[31m;[m
[01;34mwith[m Gnat[31m.[mSockets[31m;[m
[01;34mwith[m Gnat[31m.[mRegexp[31m;[m
[01;34mwith[m Ada[31m.[mNumerics[31m.[mDiscrete_Random[31m;[m
[01;34muse[m Gnat[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mUTF_Encoding[31m.[mStrings[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mUTF_Encoding[31m.[mWide_Strings[31m;[m
[01;34mwith[m Ada[31m.[mText_Io[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mUnbounded[31m;[m
[01;34muse[m Ada[31m.[mStrings[31m;[m
[01;34mwith[m Ada[31m.[mTask_Identification[31m;[m
[01;34muse[m Ada[31m.[mTask_Identification[31m;[m


[01;34mwith[m PragmARC[31m.[mRem_NN_Wrapper[31m;[m
[01;34muse[m PragmARC[31m.[mRem_NN_Wrapper[31m;[m


[31m--------------------------------[m
[31m--        Workstation         --[m
[31m--------------------------------[m
[01;34mwith[m Work [31m;[m 
[01;34muse[m Work[31m;[m
[31m--  with Work.Station ; [m
[31m--  with Work.Station.Main;[m
[01;34mwith[m Work[31m.[mConsole [31m;[m 
[01;34mwith[m Work[31m.[mMachine [31m;[m 
[01;34mwith[m Work[31m.[mProgram [31m;[m 
[01;34mwith[m Work[31m.[mManager [31m;[m 
[01;34mwith[m Work[31m.[mVirtual [31m;[m 
[01;34mwith[m Work[31m.[mClasses [31m;[m 

[01;34mwith[m Work[31m.[mAttribu [31m;[m 
[01;34muse[m Work[31m.[mAttribu[31m;[m

[01;34mwith[m Work[31m.[mClasses[31m.[mProfile_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mContent_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mEvent_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mPlanning_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mJob_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mAccount_Class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mAccount_Line_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mNote_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mCar_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mContact_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mMachine_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mActivity_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mUniverse_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mhouse_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mCompta_line_class[31m;[m
[01;34mwith[m Work[31m.[mClasses[31m.[mComponent_class[31m;[m
[01;34mwith[m Work[31m.[mWargame[31m;[m
[01;34mwith[m Work[31m.[mWargame[31m.[mSearch[31m;[m
[01;34mwith[m Work[31m.[mTypes[31m;[m
[01;34muse[m Work[31m.[mTypes[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mFixed[31m;[m
[01;34muse[m Ada[31m.[mStrings[31m.[mFixed[31m;[m

[01;34mwith[m Ansi_Console[31m;[m
[01;34muse[m Ansi_Console[31m;[m
[01;34mwith[m Windows_Console[31m;[m

[01;34mwith[m Ada[31m.[mInteger_Text_Io[31m;[m
[01;34muse[m Ada[31m.[mInteger_Text_Io[31m;[m

[01;34mwith[m Ansi_Console[31m;[m
[01;34muse[m Ansi_Console[31m;[m




[01;34mwith[m Ada[31m.[mCalendar[31m.[mFormatting[31m;[m

[01;34muse[m Ada[31m.[mCalendar[31m;[m
[01;34mwith[m Ada[31m.[mContainers[31m;[m
[01;34mwith[m PragmARC[31m.[mAnsi_Tty_Control[31m;[m
[01;34muse[m PragmARC[31m.[mAnsi_Tty_Control[31m;[m


[01;34mwith[m Ada[31m.[mNumerics[31m.[mFloat_Random[31m;[m
[01;34muse[m Ada[31m.[mNumerics[31m.[mFloat_Random[31m;[m
[01;34mwith[m Ada[31m.[mUnchecked_Deallocation[31m;[m
[01;34mwith[m Ada[31m.[mCharacters[31m.[mHandling[31m;[m
[01;34muse[m Ada[31m.[mCharacters[31m.[mHandling[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mWide_Fixed[31m;[m
[01;34muse[m Ada[31m.[mStrings[31m;[m

[01;34mwith[m Ada[31m.[mNumerics[31m.[mDiscrete_Random[31m;[m
[01;34muse[m Ada[31m.[mNumerics[31m;[m

[01;34mwith[m PragmARC[31m.[mWrapping[31m;[m
[01;34mwith[m Sai[31m.[mShared[31m;[m
[01;34muse[m Sai[31m.[mShared[31m;[m

[01;34mwith[m El[31m.[mStrings[31m;[m
[01;34mwith[m System[31m.[mOs_Constants[31m;[m
[01;34muse[m System[31m;[m

[01;34mpackage[m [01;34mbody[m M[31m.[mAgence [01;34mis[m
   
   
   
   [01;34mpackage[m My_Classes [01;34mis[m [01;34mnew[m Work[31m.[m[01;30mClasses[m [31m([mWindows[31m);[m
   [01;34mpackage[m My_Profile [01;34mis[m [01;34mnew[m My_Classes[31m.[mProfile_Class[31m;[m
   [01;34mpackage[m My_Content [01;34mis[m [01;34mnew[m My_Classes[31m.[mContent_Class[31m;[m
   [01;34mpackage[m My_Event [01;34mis[m [01;34mnew[m My_Classes[31m.[mEvent_Class[31m;[m
   [01;34mpackage[m My_Planning [01;34mis[m [01;34mnew[m My_Classes[31m.[mPlanning_Class[31m;[m
   [01;34mpackage[m My_Job [01;34mis[m [01;34mnew[m My_Classes[31m.[mJob_Class[31m;[m
   [01;34mpackage[m My_Universe [01;34mis[m [01;34mnew[m My_Classes[31m.[mUniverse_Class[31m;[m
   [01;34mpackage[m My_Note [01;34mis[m [01;34mnew[m  My_Classes[31m.[mNote_Class[31m;[m
   [01;34mpackage[m My_Car [01;34mis[m [01;34mnew[m My_Classes[31m.[mCar_Class[31m;[m
   [01;34mpackage[m My_Contact [01;34mis[m [01;34mnew[m My_Classes[31m.[mContact_Class[31m;[m
   [01;34mpackage[m My_Machine [01;34mis[m [01;34mnew[m My_Classes[31m.[mMachine_Class[31m;[m
   [01;34mpackage[m My_Activity [01;34mis[m [01;34mnew[m My_Classes[31m.[mActivity_Class[31m;[m
   [01;34mpackage[m My_House [01;34mis[m [01;34mnew[m My_Classes[31m.[mhouse_Class[31m;[m
   [01;34mpackage[m My_Account [01;34mis[m [01;34mnew[m  My_Classes[31m.[mAccount_Class[31m;[m
   [01;34mpackage[m My_Account_Line [01;34mis[m [01;34mnew[m My_Classes[31m.[mAccount_Line_Class[31m;[m
   [01;34mpackage[m My_Compta_Line [01;34mis[m [01;34mnew[m My_Classes[31m.[mCompta_Line_Class[31m;[m
   [01;34mpackage[m My_Component [01;34mis[m [01;34mnew[m My_Classes[31m.[mComponent_Class[31m;[m
   [01;34muse[m My_Classes[31m;[m
   [01;34muse[m My_Profile[31m;[m
   [01;34muse[m My_Content[31m;[m
   [01;34muse[m My_Event[31m;[m
   [01;34muse[m My_Planning[31m;[m
   [01;34muse[m My_Job[31m;[m
   [01;34muse[m My_Universe[31m;[m
   [01;34muse[m My_Note[31m;[m
   [01;34muse[m My_Car[31m;[m
   [01;34muse[m My_Contact[31m;[m
   [01;34muse[m My_Machine[31m;[m
   [01;34muse[m My_Activity[31m;[m
   [01;34muse[m My_House[31m;[m
   [01;34muse[m My_Content[31m;[m
   [01;34muse[m My_account[31m;[m
   [01;34muse[m My_Account_Line[31m;[m
   [01;34muse[m My_Component[31m;[m
   
   
   [01;34mpackage[m Object_Rand [01;34mis[m
      
      [01;34mfunction[m Random [01;34mreturn[m Object_Access[31m;[m
      
   [01;34mend[m Object_Rand[31m;[m
   [01;34mpackage[m [01;34mbody[m Object_Rand [01;34mis[m
      
      [01;34mpackage[m Name_Rand [01;34mis[m [01;34mnew[m [01;30mDiscrete_Random[m[31m([mObj_Enum[31m);[m
      
      [01;34mfunction[m Random [01;34mreturn[m Object_Access [01;34mis[m
	 Gen [31m:[m Name_Rand[31m.[mGenerator[31m;[m
      [01;34mbegin[m
	 Name_Rand[31m.[m[01;30mReset[m[31m([mGen[31m);[m
	 [01;34mcase[m Name_Rand[31m.[m[01;30mRandom[m[31m([mGen[31m)[m [01;34mis[m
	    [01;34mwhen[m Universe [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	    [01;34mwhen[m Profile [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	    [01;34mwhen[m Planning [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	    [01;34mwhen[m Job [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	    [01;34mwhen[m Event [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	    [01;34mwhen[m Machine [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	    [01;34mwhen[m Acc [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	    [01;34mwhen[m Account_Line [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	    [01;34mwhen[m Activity [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	    [01;34mwhen[m Compta_Line [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m	       
	    [01;34mwhen[m Note [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	    [01;34mwhen[m Component [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	    [01;34mwhen[m Contact [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	    [01;34mwhen[m Content [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	    [01;34mwhen[m House [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	    [01;34mwhen[m Car [31m=>[m
	       [01;34mreturn[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	 [01;34mend[m [01;34mcase[m[31m;[m
      [01;34mend[m Random[31m;[m
   [01;34mend[m Object_Rand[31m;[m

   
   [31m----------------------------------------------------[m
   [31m--                                                --[m
   
   
   
   [31m--use Ansi_Windows;[m
   [01;34muse[m Windows[31m.[mAnsi_Windows[31m;[m
   [01;34muse[m M[31m.[mAnsi[31m.[mConsole[31m;[m
   
   [01;34muse[m Object_Vectors[31m;[m   
   
   
   
   [01;34mprocedure[m [01;30mLoad_File[m [31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Class [31m:[m [01;34min[m Class_Enum[31m;[m Vector [31m:[m [01;34min[m [01;34mout[m Object_Vectors[31m.[mVector[31m)[m [01;34mis[m
      File [31m:[m Text_Io[31m.[mFile_Type[31m;[m
   [01;34mbegin[m
      Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Text_Io[31m.[mIn_File[31m,[m Filename[31m);[m
      [01;34mwhile[m [01;34mnot[m Text_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
	 [01;34mcase[m Class [01;34mis[m
	    [01;34mwhen[m Job [31m=>[m
	       [01;34mdeclare[m
		  O [31m:[m Object_Access [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;34mbegin[m
		  [01;30mRead[m[31m([mO[31m.[m[01;34mall[m[31m,[m File[31m);[m
		  [01;30mAppend[m[31m([mVector[31m,[m O[31m);[m
	       [01;34mend[m[31m;[m
	    [01;34mwhen[m Content [31m=>[m
	       [01;34mdeclare[m
		  O [31m:[m Object_Access [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;34mbegin[m
		  [01;30mRead[m[31m([mO[31m.[m[01;34mall[m[31m,[m File[31m);[m
		  [01;30mAppend[m[31m([mVector[31m,[m O[31m);[m
	       [01;34mend[m[31m;[m
	    [01;34mwhen[m Event [31m=>[m
	       [01;34mdeclare[m
		  O [31m:[m Object_Access [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;34mbegin[m
		  [01;30mRead[m[31m([mO[31m.[m[01;34mall[m[31m,[m File[31m);[m
		  [01;30mAppend[m[31m([mVector[31m,[m O[31m);[m
	       [01;34mend[m[31m;[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       [01;34mnull[m[31m;[m
	 [01;34mend[m [01;34mcase[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
      [31m--Text_Io.Put_Line("Readed.");[m
   [01;34mend[m Load_File[31m;[m
   

   
   
   [01;34mtype[m Text_Access [01;34mis[m [01;34maccess[m [01;34mall[m [32mString[m[31m;[m
   
   [01;34mprocedure[m Text_Free [01;34mis[m [01;34mnew[m Ada[31m.[m[01;30mUnchecked_Deallocation[m [31m([m[32mString[m[31m,[m Text_Access[31m);[m
   
   
   
   [01;34mtype[m Text_List [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Text_Access[31m;[m
   
   
   
   D [31m:[m [32mFloat[m [31m:=[m [35m0.0[m[31m;[m
   
   Choice [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   
   Stock [31m:[m [01;34mconstant[m Text_List [31m:=[m 
     

     [31m([m
      [31m-- Les jour important[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"0"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"1"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"2"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"3"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"4"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"5"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"6"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"7"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"8"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"9"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"10"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"11"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"12"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"13"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"14"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"15"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"16"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"17"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"18"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"19"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"20"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"21"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"22"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"23"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"24"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"25"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"26"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"27"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"28"[m[31m),[m
      
      [01;34mnew[m [32mString[m ' [31m([m[31m"janv"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"fev"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"mars"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"avril"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"mai"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"juin"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"juillet"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"aout"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"sept"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"oct"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"nov"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"dec"[m[31m)[m
     [31m);[m
   
   Ten_Choices [31m:[m [01;30mText_List[m[31m([m[35m1[m[31m..[m[35m10[m[31m);[m[31m-- dix point pour etablir un context.[m
   
   
   
   G [31m:[m Generator[31m;[m
   
   
   [31m--               End Workstation                  --[m
   [31m----------------------------------------------------[m
   
   
   
   
   [01;34mfunction[m [01;30mSystem[m[31m([mLine [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mreturn[m [32mInteger[m[31m;[m
   [01;34mpragma[m [01;30mImport[m [31m([mC[31m,[m System[31m,[m [31m"system"[m[31m);[m
   
   
   
   
   Char [31m:[m [32mCharacter[m[31m;[m
   Stopped [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   
   
   
   
   
   
   Gnose_Params [31m:[m Gnose_Parameters_Type[31m;[m
   
   Projects_Params [31m:[m Projects_Parameters_Type[31m;[m
   
   [01;34mpackage[m Gnos_Projects [01;34mis[m [01;34mnew[m Gnos[31m.[m[01;30mProjects[m[31m([mProjects_Params[31m);[m
   
   [01;34mpackage[m Agnose [01;34mis[m [01;34mnew[m Gnos[31m.[m[01;30mGnose[m[31m([mGnose_Params[31m);[m
   [01;34muse[m Agnose[31m;[m
   [01;34muse[m Agnose[31m.[mNeural[31m;[m
   [01;34muse[m Agnose[31m.[mNeural[31m.[mObjects_System[31m;[m
   [01;34muse[m Agnose[31m.[mNeural[31m.[mObjects_System[31m.[mObjects_system[31m;[m
   [01;34muse[m Agnose[31m.[mNeural[31m.[mObjects_System[31m.[mObjects_System[31m.[mLanguage[31m;[m
   [01;34muse[m Agnose[31m.[mNeural[31m.[mObjects_System[31m.[mObjects_System[31m.[mLanguage[31m.[mAgnose_Projects[31m;[m
   
   [01;34mpackage[m Environment [01;34mis[m [01;34mnew[m Gnos[31m.[mVersions[31m.[m[01;30mEnvironment[m[31m([mAgnose[31m.[mNeural[31m.[mObjects_System[31m.[mObjects_System[31m.[mLanguage[31m.[mAgnose_Projects[31m);[m
   [01;34muse[m Environment[31m;[m
   
   [01;34muse[m M[31m.[mErrors[31m;[m
   [01;34muse[m M[31m.[mBalance[31m;[m
   [01;34muse[m M[31m.[mAccountant[31m;[m

   
   [01;34muse[m Ansi_Tty_Control[31m;[m
   

   [01;34muse[m Windows[31m.[mAnsi_Windows[31m;[m
   
   [01;34muse[m M[31m.[mAnsi[31m.[mConsole [31m;[m
   [01;34muse[m M[31m.[mShared[31m;[m
   
   [01;34muse[m Gnat[31m.[mDirectory_Operations[31m;[m
   [01;34muse[m Text_Io[31m;[m      
   
   [01;34muse[m Ada[31m.[mStrings[31m.[mFixed[31m;[m
   [01;34muse[m Ada[31m.[mCharacters[31m;[m
   
   [31m--use M.Tools;[m
   [01;34muse[m M[31m.[mShell[31m;[m
   [01;34muse[m M[31m.[mAttributes[31m;[m


   [01;34muse[m Sky[31m;[m
   
   [01;34muse[m Ada[31m.[mStrings[31m;[m
   
   
   [01;34mpackage[m W_Io [01;34mrenames[m Ada[31m.[mWide_Text_Io[31m;[m
   
   
   [01;34mpackage[m Internal [01;34mis[m
      
      [01;34mfunction[m [31m"="[m [31m([mLeft[31m,[m Right [31m:[m [01;34min[m OS_Lib[31m.[mString_Access[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m
      [01;34mfunction[m [31m"<"[m [31m([mLeft[31m,[m Right [31m:[m [01;34min[m OS_Lib[31m.[mString_Access[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m
      [01;34mpackage[m Wstr_Vectors [01;34mis[m [01;34mnew[m [01;30mVectors[m [31m([mPositive[31m,[m OS_Lib[31m.[mString_Access[31m,[m [31m"="[m[31m);[m
      [01;34mpackage[m Sorting [01;34mis[m [01;34mnew[m Wstr_Vectors[31m.[m[01;30mGeneric_Sorting[m[31m([m[31m"<"[m[31m);[m
      
      [01;34muse[m Ada[31m.[mText_Io[31m;[m
      
      
      
      
      
      white     [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[01;37m"[m[31m;[m
      Magenta     [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[01;35m"[m[31m;[m
      Cyan     [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[01;36m"[m[31m;[m
      Blue     [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[01;34m"[m[31m;[m
      Red     [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[01;31m"[m[31m;[m
      Green     [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[01;32m"[m[31m;[m
      Yellow     [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[01;33m"[m[31m;[m
      Black     [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[01;30m"[m[31m;[m
      Normal    [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[00m"[m[31m;[m

      
      [01;34mtype[m File_Set [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Os_Lib[31m.[mString_Access[31m;[m
      

      
      
      
      [01;34mtype[m File_Table [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>,[m Positive [01;34mrange[m [31m<>)[m [01;34mof[m Os_Lib[31m.[mString_Access[31m;[m
      
      [01;34mprocedure[m [01;30mXls[m [31m([mCmd_Line [31m:[m [01;34min[m [32mString[m[31m;[mWin [31m:[m [01;34min[m Window_Record[31m;[mLine_index [31m:[m [01;34min[m Natural[31m;[m Count [31m:[m [01;34mout[m Natural[31m;[mFor_Ansi [31m:[m [01;34min[m [32mBoolean[m [31m:=[m False[31m);[m
      
      
   [01;34mend[m Internal[31m;[m
   
   
   [01;34mprocedure[m [01;30mInternal_Help[m [31m([mLine [31m:[m [01;34min[m [32mWide_string[m[31m;[m Result [31m:[m [01;34min[m [01;34mout[m M[31m.[mtools[31m.[mSpawn_Result_Record[31m);[m
      

   [01;34mpackage[m [01;34mbody[m Internal [01;34mis[m
      
      [01;34muse[m Wstr_Vectors[31m;[m
      [01;34muse[m Sorting[31m;[m
      [01;34mfunction[m [31m"="[m [31m([mLeft[31m,[m Right [31m:[m [01;34min[m OS_Lib[31m.[mString_Access[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
      [01;34mbegin[m
	 [01;34mreturn[m Left[31m.[m[01;34mall[m [31m=[m Right[31m.[m[01;34mall[m[31m;[m
      [01;34mend[m [31m"="[m[31m;[m
      
      [01;34mfunction[m [31m"<"[m [31m([mLeft[31m,[m Right [31m:[m [01;34min[m OS_Lib[31m.[mString_Access[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
      [01;34mbegin[m
	 [01;34mreturn[m Left[31m.[m[01;34mall[m [31m<[m Right[31m.[m[01;34mall[m[31m;[m
      [01;34mend[m [31m"<"[m[31m;[m
      
      
      [01;34mprocedure[m [01;30mXls[m [31m([mCmd_Line [31m:[m [01;34min[m [32mString[m[31m;[mWin [31m:[m Window_Record[31m;[mLine_index [31m:[m [01;34min[m Natural[31m;[m Count [31m:[m [01;34mout[m Natural[31m;[mFor_Ansi [31m:[m [01;34min[m [32mBoolean[m [31m:=[m False[31m)[m [01;34mis[m
	 Target [31m:[m Wstr_Vectors[31m.[mVector[31m;[m
	 Dir_List [31m:[m Wstr_Vectors[31m.[mVector[31m;[m
	 File_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 [01;34mprocedure[m [01;30mAdd_Name[m [31m([mName  [31m:[m [01;34min[m [32mString[m[31m;[m
			     Num   [31m:[m [01;34min[m Positive[31m;[m
			     Verax [31m:[m [01;34min[m [01;34mout[m [32mBoolean[m[31m);[m
	 [01;34mprocedure[m Iterator [01;34mis[m [01;34mnew[m [01;30mWildcard_Iterator[m [31m([mAdd_Name[31m);[m
	 [01;34mprocedure[m [01;30mAdd_Name[m [31m([mName  [31m:[m [01;34min[m [32mString[m[31m;[m
			     Num   [31m:[m [01;34min[m Positive[31m;[m
			     Verax [31m:[m [01;34min[m [01;34mout[m [32mBoolean[m[31m)[m [01;34mis[m
	 [01;34mbegin[m
	    Target [31m:=[m Target [31m&[m [01;34mnew[m [32mString[m ' [31m([mName[31m);[m      
	    File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
	 [01;34mend[m Add_Name[31m;[m
   
	 

	 L_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 C_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 File_Counter [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 
	 
	 Command [31m:[m Gnat[31m.[mCommand_Line[31m.[mCommand_Line[31m;[m
	 Arguments [31m:[m Wstr_Vectors[31m.[mVector[31m;[m
	 Set [31m:[m [01;30mFile_Set[m[31m([m[35m1[m[31m..[m[35m4096[m[31m);[m   
	 
	 Buffer_args[31m,[m Arguments_List [31m:[m Os_Lib[31m.[mArgument_List_Access[31m;[m                  
	 
	 Char_Count[31m,[m Line_By_Column[31m,[m Col[31m,[m Top_Col [31m:[m  Positive [31m:=[m [35m1[m[31m;[m
	 Line [31m:[m Natural [31m:=[m [35m1[m[31m;[m
	 
	 Long_Option [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Date [31m:[m Time [31m:=[m Clock[31m;[m 
	 Size [31m:[m Long_integer [31m:=[m [35m0[m[31m;[m   
	 
	 
	 
	 Dir_Match [31m:[m Directories[31m.[mSearch_Type[31m;[m	
	 Dir_Path  [31m:[m Directories[31m.[mDirectory_Entry_Type[31m;[m
	 
	 Column_By_Page [31m:[m Positive [31m:=[m [35m1[m[31m;[m
	 Width [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Hiegh [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 
      [01;34mbegin[m
	 [01;34mif[m For_Ansi [01;34mthen[m
	    [01;30mDraw_Window[m[31m([mWin[31m);[m	 	    
	    
	 [01;34mend[m [01;34mif[m[31m;[m
	 Gnat[31m.[mCommand_Line[31m.[m[01;30mSet_Command_Line[m[31m([mCommand[31m,[m Cmd_Line[31m);[m
	 
	 Gnat[31m.[mCommand_Line[31m.[m[01;30mBuild[m[31m([mCommand[31m,[m Arguments_List[31m,[m False[31m);[m
	 
	 [01;34mbegin[m
	    [01;34mif[m OS_Lib[31m.[m[31m"/="[m[31m([mArguments_List[31m,[m [01;34mnull[m[31m)[m [01;34mand[m [01;34mthen[m
	      Arguments_List'Length [31m>[m [35m1[m [01;34mthen[m
	       [01;34mfor[m Arg [01;34min[m [35m2[m[31m..[mArguments_List'last [01;34mloop[m
		  [01;34mif[m [01;30mArguments_List[m[31m([mArg[31m).[m[01;34mall[m [31m=[m [31m"-l"[m [01;34mthen[m		     
		     Long_Option [31m:=[m True[31m;[m		     
		  [01;34melsif[m [01;30mArguments_List[m[31m([mArg[31m)([m[35m1[m[31m)[m [31m=[m [31m'-'[m [01;34mthen[m
		     [01;34mif[m For_Ansi [01;34mthen[m
			[01;30mDraw_Text[m[31m([mWin[31m,[m Lib[31m.[mShared[31m.[mLine_Cur[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m [31m"invalid option"[m[31m);[m
		     [01;34melse[m
			[01;30mPut_Line[m[31m([m[31m"invalid option"[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34melse[m
		     [01;34mdeclare[m
			S [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mArguments_List[m[31m([mArg[31m).[m[01;34mall[m[31m;[m
		     [01;34mbegin[m
			[01;34mexit[m [01;34mwhen[m S'Length [31m=[m [35m0[m[31m;[m
			Arguments [31m:=[m Arguments [31m&[m [01;34mnew[m [32mString[m ' [31m([mS[31m);[m
		     [01;34mend[m[31m;[m

		  [01;34mend[m [01;34mif[m[31m;[m    
		  
	       [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m[31m;[m
	 
	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mArguments[31m)[m [01;34mthen[m
	    
	    [01;34mfor[m Arg [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mArguments[31m)[m [01;34mloop[m

	       [01;34mdeclare[m
		  E [31m:[m [32mString[m [31m:=[m [01;30mElement[m[31m([mArguments[31m,[m [32mInteger[m[31m([mArg[31m)).[m[01;34mall[m[31m;[m
	       [01;34mbegin[m
		  
		  [01;34mif[m E [31m=[m [31m".."[m [01;34mthen[m
		     [01;30miterator[m[31m([m[31m"../*"[m[31m);[m
		  [01;34melsif[m E [31m=[m [31m"."[m [01;34mor[m E [31m=[m [31m"./"[m [01;34mthen[m
		     
		     [01;30miterator[m[31m([m[31m"./*"[m[31m);[m
		     
		  [01;34melsif[m E [31m=[m [31m"*"[m [01;34mor[m E [31m=[m [31m"./*"[m [01;34mthen[m
		     
		     [01;30miterator[m[31m([mDirectories[31m.[m[01;30mbase_Name[m[31m([mE [31m&[m [31m"/*"[m[31m));[m
		     
		  [01;34melsif[m E [31m=[m [31m"../*"[m [01;34mthen[m
		     
		     [01;30miterator[m[31m([mDirectories[31m.[m[01;30mbase_Name[m[31m([mE [31m&[m [31m"/*"[m[31m));[m

		  [01;34melsif[m [01;34mnot[m Os_Lib[31m.[m[01;30mIs_Directory[m [31m([mE[31m)[m [01;34mthen[m
		     
		     [01;30miterator[m[31m([mE[31m);[m
		     
		  [01;34melsif[m Os_Lib[31m.[m[01;30mIs_Directory[m [31m([mE[31m)[m [01;34mthen[m
		     
		     [01;30miterator[m[31m([mE [31m&[m [31m"/*"[m[31m);[m
		  [01;34melse[m
		     
		     [01;30miterator[m[31m([mDirectories[31m.[m[01;30mbase_Name[m[31m([mE [31m&[m [31m"/*"[m[31m));[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	       
	       
	    [01;30mSort[m[31m([mTarget[31m);[m
	    
	    File_Index [31m:=[m [35m0[m[31m;[m
	    [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mTarget[31m)[m [01;34mthen[m
	       [01;34mfor[m Name [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mTarget[31m)[m [01;34mloop[m

		  [01;34mdeclare[m
		     File_Name [31m:[m OS_Lib[31m.[mString_Access [31m:=[m [01;30mElement[m[31m([mTarget[31m,[m [32mInteger[m[31m([mName[31m));[m
		  [01;34mbegin[m

		     [01;34mif[m Os_Lib[31m.[m[01;30mIs_Directory[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([mBlue [31m&[m Directories[31m.[m[01;30mSimple_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m&[m [31m'/'[m[31m)[m [31m;[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Os_Lib[31m.[m[01;30mIs_Executable_File[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([mGreen [31m&[m Directories[31m.[m[01;30msimple_Name[m[31m([mFile_Name[31m.[m[01;34mall[m [31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"tgz"[m 
		       [01;34mor[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"tar"[m [01;34mor[m	
		       Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"gz"[m [01;34mor[m	
		       Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"tar.gz"[m [01;34mor[m	
		       Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"zip"[m [01;34mthen[m
			
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([mRed [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m&[m 
					  [31m'.'[m [31m&[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m	 
		     [01;34melsif[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"png"[m 
		       [01;34mor[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"jpg"[m [01;34mor[m	
		       Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"jpeg"[m [01;34mthen[m
			
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([mmagenta [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m&[m 
					  [31m'.'[m [31m&[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"iso"[m [01;34mthen[m
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([myellow [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m 
					  [31m&[m [31m'.'[m [31m&[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"txt"[m [01;34mthen[m
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([mblack [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m&[m [31m'.'[m [31m&[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([mwhite [31m&[m Directories[31m.[m[01;30msimple_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Os_Lib[31m.[m[01;30mIs_Symbolic_Link[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
			[01;34mif[m Os_Lib[31m.[m[01;30mNormalize_Pathname[m[31m([mFile_Name[31m.[m[01;34mall[m[31m,[m Directories[31m.[m[01;30mContaining_Directory[m[31m([mFile_Name[31m.[m[01;34mall[m[31m))[m'Length [31m=[m [35m0[m [01;34mthen[m		     
			   [01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([mRed [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			   File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
			[01;34melse[m
			   [01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([myellow [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			   File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m 
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([mYellow [31m&[m Directories[31m.[m[01;30msimple_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
			
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m[31m;[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	    
	    [31m--[m
	    
	    [31m--[m
	    
	    [31m--[m

	    [01;34mif[m File_Index [31m/=[m [35m0[m [01;34mthen[m
	       [01;34mif[m Long_Option [01;34mthen[m		
		  [01;34mif[m [01;34mnot[m For_Ansi [01;34mthen[m
		     [01;34mfor[m I [01;34min[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m [35m1[m [31m..[m lines [01;34mloop[m
			W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mI[31m,[m [35m1[m[31m))[m [31m&[m Ada[31m.[mStrings[31m.[mWide_Fixed[31m.[m[31m"*"[m[31m([mColumns[31m,[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m)));[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  [01;34mfor[m I [01;34min[m Natural'[01;30mMin[m[31m([mLine_Index[31m,[m File_Index[31m-[m[35m1[m[31m)+[m[35m1[m[31m..[mFile_Index [01;34mloop[m			
		     
		     [01;34mif[m Os_Lib[31m.[m[01;30mIs_Directory[m [31m([m[01;30mElement[m[31m([mTarget[31m,[m [32mInteger[m[31m([mI[31m)).[m[01;34mall[m[31m)[m [01;34mthen[m		
			
			[01;34mdeclare[m	    
			   Dir [31m:[m [32mString[m [31m:=[m [01;30mElement[m[31m([mTarget[31m,[m [32minteger[m[31m([mI[31m)).[m[01;34mall[m[31m;[m	
			[01;34mbegin[m   
			   
			   [01;34mif[m Dir [31m/=[m [31m"."[m [01;34mand[m Dir [31m/=[m [31m".."[m [01;34mthen[m
			      Directories[31m.[m[01;30mStart_Search[m[31m([mDir_Match[31m,[m Dir[31m,[m Dir[31m);[m		

			      Directories[31m.[m[01;30mGet_Next_Entry[m[31m([mDir_Match[31m,[m Dir_Path[31m);[m	

			      Date [31m:=[m Ada[31m.[mDirectories[31m.[m[01;30mModification_time[m[31m([mDir_Path[31m);[m	

			      Size [31m:=[m [01;30mLong_Integer[m[31m([mAda[31m.[mDirectories[31m.[m[01;30mSize[m[31m([mDir_Path[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mexception[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m[31m;[m    
		     [01;34melse[m	
			[01;34mdeclare[m	    
			   Dir [31m:[m [32mString[m [31m:=[m [01;30mElement[m[31m([mTarget[31m,[m [32minteger[m[31m([mI[31m)).[m[01;34mall[m[31m;[m	
			[01;34mbegin[m   
			   [01;34mif[m Dir [31m/=[m [31m"."[m [01;34mand[m Dir [31m/=[m [31m".."[m [01;34mthen[m

			      Date [31m:=[m Ada[31m.[mDirectories[31m.[m[01;30mModification_time[m[31m([mDirectories[31m.[m[01;30mFull_Name[m[31m([mDir[31m));[m

			      Size [31m:=[m [01;30mLong_Integer[m[31m([mAda[31m.[mDirectories[31m.[m[01;30mSize[m[31m([mDirectories[31m.[m[01;30mFull_Name[m[31m([mDir[31m)));[m   
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m

		     [01;34mif[m For_Ansi [01;34mthen[m
			Line [31m:=[m Line [31m+[m [35m1[m[31m;[m	
			[01;30mDraw_Text[m[31m([mWin[31m,[m Line[31m,[m [35m1[m[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mDate[31m)));[m
			[01;30mDraw_Text[m[31m([mWin[31m,[m Line[31m,[m [35m20[m[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLong_Integer'[01;30mImage[m[31m([m[01;30mLong_Integer[m[31m([mSize[31m))));[m
			[01;30mDraw_Text[m[31m([mWin[31m,[m Line[31m,[m [35m35[m[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mSet[m[31m([mI[31m).[m[01;34mall[m [31m&[m Normal[31m));[m			   

		     [01;34melse[m
			[01;34mif[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m Line [31m>[m Lines [31m-[m [35m1[m [01;34mthen[m
			   New_Line[31m;[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLines[31m,[m [35m1[m[31m)[m [31m&[m Formatting[31m.[m[01;30mImage[m[31m([mDate[31m));[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLines[31m,[m [35m20[m[31m)[m [31m&[m Long_Integer'[01;30mImage[m[31m([m[01;30mLong_Integer[m[31m([mSize[31m)));[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLines[31m,[m [35m35[m[31m)[m [31m&[m [01;30mSet[m[31m([mI[31m).[m[01;34mall[m [31m&[m Normal[31m);[m
			   Line [31m:=[m Line [31m+[m [35m1[m[31m;[m	
			[01;34melse[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m [35m1[m[31m)[m [31m&[m Formatting[31m.[m[01;30mImage[m[31m([mDate[31m));[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m [35m20[m[31m)[m [31m&[m Long_Integer'[01;30mImage[m[31m([m[01;30mLong_Integer[m[31m([mSize[31m)));[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m [35m35[m[31m)[m [31m&[m [01;30mSet[m[31m([mI[31m).[m[01;34mall[m [31m&[m Normal[31m);[m
			   Line [31m:=[m Line [31m+[m [35m1[m[31m;[m	
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		     Size [31m:=[m [35m0[m[31m;[m
		     [01;34mif[m [01;34mnot[m For_Ansi [01;34mthen[m
			[31m--exit when Lib.Shared.Line_Cur + Line >= Lines;[m
			[01;34mnull[m[31m;[m
		     [01;34melse[m
			[01;34mexit[m [01;34mwhen[m Line [31m>=[m Win[31m.[mH[31m-[m[35m2[m[31m;[m

		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mloop[m[31m;[m		
		  [01;34mif[m [01;34mnot[m For_Ansi [01;34mand[m 
		    Lib[31m.[mShared[31m.[mLine_Cur [31m+[m Line [31m<[m lines
		  [01;34mthen[m
		     Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m [32mInteger[m'[01;30mMax[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m Lines[31m);[m
		     [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur[31m,[m [35m1[m[31m)[m [31m&[m Normal[31m);[m
		     Count [31m:=[m Line[31m;[m
		  [01;34melsif[m [01;34mnot[m For_Ansi [01;34mthen[m
		     Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m [32mInteger[m'[01;30mMax[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m Lines[31m);[m
		     New_Line[31m;[m
		     [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur[31m,[m [35m1[m[31m)[m [31m&[m Normal[31m);[m
		     Count [31m:=[m Line[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
 	       [01;34melse[m
		  [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mFile_Index [01;34mloop[m
		     [01;34mif[m [01;30mSet[m[31m([mIter[31m)[m'Length [31m>[m Top_Col [01;34mthen[m
			Top_Col [31m:=[m [01;30mSet[m[31m([mIter[31m)[m'Length[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     Char_Count [31m:=[m Char_Count [31m+[m [01;30mSet[m[31m([mIter[31m)[m'Length[31m;[m
		  [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34mif[m For_Ansi [01;34mthen[m
		     Line_By_Column [31m:=[m File_index[31m/(([mWin[31m.[mW[31m)/([mTop_Col[31m+[m[35m7[m[31m))+[m[35m1[m[31m;[m
		  [01;34melse[m
		     Line_By_Column [31m:=[m File_index[31m/(([mColumns[31m)/([mTop_Col[31m+[m[35m7[m[31m)+[m[35m1[m[31m)+[m[35m1[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  Column_By_Page [31m:=[m [31m([mFile_Index [31m/[m Line_By_Column[31m)+[m[35m1[m[31m;[m
		  [01;34mdeclare[m
		     Table [31m:[m [01;30mFile_Table[m[31m([m[35m1[m[31m..[mLine_By_Column[31m,[m [35m1[m[31m..[mColumn_By_Page[31m);[m
		  [01;34mbegin[m
		     
		     [01;34mfor[m column [01;34min[m Table'[01;34mRange[m[31m([m[35m2[m[31m)[m [01;34mloop[m
			[01;34mfor[m Line [01;34min[m Table'[01;34mrange[m[31m([m[35m1[m[31m)[m [01;34mloop[m
			   [01;30mTable[m[31m([mLine[31m,[m Column[31m)[m [31m:=[m [01;30mSet[m[31m([mFile_Counter[31m+[m[35m1[m[31m);[m
			   File_Counter [31m:=[m File_Counter[31m+[m[35m1[m[31m;[m
			[01;34mend[m [01;34mloop[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		     File_Counter [31m:=[m [35m0[m[31m;[m
		     [01;34mif[m For_Ansi [01;34mthen[m
		Line [31m:=[m Line [31m+[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;34mif[m [01;34mnot[m For_Ansi [01;34mthen[m
			[01;34mfor[m I [01;34min[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m [35m1[m[31m..[m lines [01;34mloop[m
			   W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mI[31m,[m [35m1[m[31m))[m [31m&[m Ada[31m.[mStrings[31m.[mWide_Fixed[31m.[m[31m"*"[m[31m([mColumns[31m,[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m)));[m
			[01;34mend[m [01;34mloop[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		 Main1 [31m:[m
		     [01;34mfor[m Iter_L [01;34min[m Natural'[01;30mMin[m[31m([mLine_Index[31m,[m Table'[01;30mLast[m[31m([m[35m1[m[31m)-[m[35m1[m[31m)+[m[35m1[m[31m..[mTable'[01;30mLast[m[31m([m[35m1[m[31m)[m [01;34mloop[m
			[01;34mfor[m Iter_C [01;34min[m Table'[01;34mRange[m[31m([m[35m2[m[31m)[m [01;34mloop[m
			   [01;34mif[m [01;34mnot[m Os_Lib[31m.[m[31m"="[m[31m([m[01;30mTable[m[31m([mIter_L[31m,[m Iter_C[31m),[m [01;34mnull[m[31m)[m [01;34mthen[m
			      [01;34mif[m For_Ansi [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mWin[31m,[m Line[31m,[m Col[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mTable[m[31m([mIter_L[31m,[m Iter_C[31m).[m[01;34mall[m[31m));[m
			      [01;34melse[m
				 [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m Col[31m)[m [31m&[m [01;30mTable[m[31m([mIter_L[31m,[m Iter_C[31m).[m[01;34mall[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      Col [31m:=[m Col [31m+[m Top_Col[31m;[m
			      File_Counter [31m:=[m File_Counter[31m+[m[35m1[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mexit[m Main1 [01;34mwhen[m File_Counter [31m=[m File_Index[31m;[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;34mif[m [01;34mnot[m For_Ansi [01;34mthen[m
			   [01;34mif[m Line_Cur [31m+[m Line [31m>=[m Lines [01;34mthen[m
			      New_Line[31m;[m
			   [01;34melse[m
			      Line [31m:=[m Line [31m+[m [35m1[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melse[m
			   [01;34mif[m Line [31m>=[m Win[31m.[mH[31m-[m[35m2[m [01;34mthen[m
			      [01;34mexit[m[31m;[m				 
			   [01;34melse[m
			      Line [31m:=[m Line [31m+[m [35m1[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			Col [31m:=[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mloop[m main1[31m;[m
		     Count [31m:=[m Count [31m+[m Line_By_Column[31m;[m
		  [01;34mend[m[31m;[m
		  [01;34mif[m [01;34mnot[m For_Ansi [01;34mand[m 
		    Lib[31m.[mShared[31m.[mLine_Cur [31m+[m Line [31m<[m lines
		  [01;34mthen[m
		     Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m Line_By_Column[31m+[m[35m1[m[31m;[m
		     [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur[31m,[m [35m1[m[31m)[m [31m&[m Normal[31m);[m
		     Count [31m:=[m Line[31m;[m
		  [01;34melsif[m [01;34mnot[m For_Ansi [01;34mthen[m
		     Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m Line_By_Column[31m+[m[35m1[m[31m;[m
		     New_Line[31m;[m
		     [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur[31m,[m [35m1[m[31m)[m [31m&[m Normal[31m);[m
		     Count [31m:=[m Line[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  Col [31m:=[m [35m1[m[31m;[m
		  Top_Col [31m:=[m [35m1[m[31m;[m
		  Line [31m:=[m [35m1[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m

	    
	 [01;34melse[m
	    [01;30mIterator[m[31m([mDirectories[31m.[mCurrent_Directory [31m&[m [31m"/*"[m[31m);[m

	    [01;30mSort[m[31m([mTarget[31m);[m
	    File_Index [31m:=[m [35m0[m[31m;[m
	    [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mTarget[31m)[m [01;34mthen[m
	       [01;34mfor[m Name [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mTarget[31m)[m [01;34mloop[m
		  [01;34mdeclare[m
		     File_Name [31m:[m OS_Lib[31m.[mString_Access [31m:=[m [01;30mElement[m[31m([mTarget[31m,[m [32mInteger[m[31m([mName[31m));[m
		  [01;34mbegin[m
		     
		     [01;34mif[m Os_Lib[31m.[m[01;30mIs_Directory[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([mBlue [31m&[m Directories[31m.[m[01;30mSimple_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m&[m [31m'/'[m[31m)[m [31m;[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Os_Lib[31m.[m[01;30mIs_Executable_File[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([mGreen [31m&[m Directories[31m.[m[01;30msimple_Name[m[31m([mFile_Name[31m.[m[01;34mall[m [31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"tgz"[m 
		       [01;34mor[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"tar"[m [01;34mor[m	
		       Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"gz"[m [01;34mor[m
		       Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"tar.gz"[m [01;34mor[m	
		       Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"zip"[m [01;34mthen[m
			
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([mRed [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m&[m 
					  [31m'.'[m [31m&[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m	 
		     [01;34melsif[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"png"[m 
		       [01;34mor[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"jpg"[m [01;34mor[m	
		       Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"jpeg"[m [01;34mthen[m
			
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([mmagenta [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m&[m 
					  [31m'.'[m [31m&[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"iso"[m [01;34mthen[m
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([myellow [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m 
					  [31m&[m [31m'.'[m [31m&[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m=[m [31m"txt"[m [01;34mthen[m
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([mblack [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [31m&[m [31m'.'[m [31m&[m Directories[31m.[m[01;30mExtension[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
			
		     [01;34melsif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
			[01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			  [01;34mnew[m [32mString[m ' [31m([mwhite [31m&[m Directories[31m.[m[01;30msimple_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Os_Lib[31m.[m[01;30mIs_Symbolic_Link[m[31m([mFile_Name[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
			[01;34mif[m Os_Lib[31m.[m[01;30mNormalize_Pathname[m[31m([mFile_Name[31m.[m[01;34mall[m[31m,[m Directories[31m.[m[01;30mContaining_Directory[m[31m([mFile_Name[31m.[m[01;34mall[m[31m))[m'Length [31m=[m [35m0[m [01;34mthen[m		     
			   [01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([mRed [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			   File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
			[01;34melse[m
			   [01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([mCyan [31m&[m Directories[31m.[m[01;30mbase_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
			   File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
		       [01;30mSet[m[31m([mFile_Index[31m+[m[35m1[m[31m)[m [31m:=[m 
			 [01;34mnew[m [32mString[m ' [31m([mYellow [31m&[m Directories[31m.[m[01;30msimple_Name[m[31m([mFile_Name[31m.[m[01;34mall[m[31m));[m
		       File_Index [31m:=[m File_Index [31m+[m [35m1[m[31m;[m
		       
			
		     [01;34mend[m [01;34mif[m[31m;[m

		  [01;34mend[m[31m;[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m

	    [31m--  --[m
	    
	    [31m--  --[m
	    
	    [31m--  --[m
	    
	    [01;34mif[m File_Index [31m/=[m [35m0[m [01;34mthen[m
	       [01;34mif[m Long_Option [01;34mthen[m		
		  [01;34mif[m [01;34mnot[m For_Ansi [01;34mthen[m
		     [01;34mfor[m I [01;34min[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m [35m1[m [31m..[m Lines [01;34mloop[m
			W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mI[31m,[m [35m1[m[31m))[m [31m&[m Ada[31m.[mStrings[31m.[mWide_Fixed[31m.[m[31m"*"[m[31m([mColumns[31m,[mWide_Character'[01;30mVal[m[31m([m[35m32[m[31m)));[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mfor[m I [01;34min[m Natural'[01;30mMin[m[31m([mLine_Index[31m,[m File_Index[31m-[m[35m1[m[31m)+[m[35m1[m[31m..[mFile_Index [01;34mloop[m
		     [01;34mif[m Os_Lib[31m.[m[01;30mIs_Directory[m [31m([m[01;30mElement[m[31m([mTarget[31m,[m [32mInteger[m[31m([mI[31m)).[m[01;34mall[m[31m)[m [01;34mthen[m		
			[01;34mdeclare[m	    
			   Dir [31m:[m [32mString[m [31m:=[m [01;30mElement[m[31m([mTarget[31m,[m [32minteger[m[31m([mI[31m)).[m[01;34mall[m[31m;[m	
			[01;34mbegin[m   
			   [01;34mif[m Dir [31m/=[m [31m"."[m [01;34mand[m Dir [31m/=[m [31m".."[m [01;34mthen[m
			      Directories[31m.[m[01;30mStart_Search[m[31m([mDir_Match[31m,[m Dir[31m,[m dir[31m);[m
			      
			      Directories[31m.[m[01;30mGet_Next_Entry[m[31m([mDir_Match[31m,[m Dir_Path[31m);[m	
			      
			      Date [31m:=[m Ada[31m.[mDirectories[31m.[m[01;30mModification_time[m[31m([mDir_Path[31m);[m	
			      
			      Size [31m:=[m [01;30mLong_Integer[m[31m([mAda[31m.[mDirectories[31m.[m[01;30mSize[m[31m([mDir_Path[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mexception[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m[31m;[m
		     [01;34melse[m	
			[01;34mdeclare[m	    
			   Dir [31m:[m [32mString[m [31m:=[m [01;30mElement[m[31m([mTarget[31m,[m [32minteger[m[31m([mI[31m)).[m[01;34mall[m[31m;[m	
			[01;34mbegin[m   
			   [01;34mif[m Dir [31m/=[m [31m"."[m [01;34mand[m Dir [31m/=[m [31m".."[m [01;34mthen[m
			      Date [31m:=[m Ada[31m.[mDirectories[31m.[m[01;30mModification_time[m[31m([mDirectories[31m.[m[01;30mFull_Name[m[31m([mdir[31m));[m		
			      
			      Size [31m:=[m [01;30mLong_Integer[m[31m([mAda[31m.[mDirectories[31m.[m[01;30mSize[m[31m([mDirectories[31m.[m[01;30mFull_Name[m[31m([mdir[31m)));[m   
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;34mif[m For_Ansi [01;34mthen[m
			Line [31m:=[m Line [31m+[m [35m1[m[31m;[m	
			[01;30mDraw_Text[m[31m([mWin[31m,[m Line[31m,[m [35m1[m[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mDate[31m)));[m
			[01;30mDraw_Text[m[31m([mWin[31m,[m Line[31m,[m [35m20[m[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLong_Integer'[01;30mImage[m[31m([m[01;30mLong_Integer[m[31m([mSize[31m))));[m
			[01;30mDraw_Text[m[31m([mWin[31m,[m Line[31m,[m [35m35[m[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mSet[m[31m([mI[31m).[m[01;34mall[m [31m&[m Normal[31m));[m			
		     [01;34melse[m
			[01;34mif[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m Line [31m>[m Lines [31m-[m [35m1[m [01;34mthen[m
			   New_Line[31m;[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLines[31m,[m [35m1[m[31m)[m [31m&[m Formatting[31m.[m[01;30mImage[m[31m([mDate[31m));[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLines[31m,[m [35m20[m[31m)[m [31m&[m Long_Integer'[01;30mImage[m[31m([m[01;30mLong_Integer[m[31m([mSize[31m)));[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLines[31m,[m [35m35[m[31m)[m [31m&[m [01;30mSet[m[31m([mI[31m).[m[01;34mall[m [31m&[m Normal[31m);[m
			   Line [31m:=[m Line [31m+[m [35m1[m[31m;[m	
			[01;34melse[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m [35m1[m[31m)[m [31m&[m Formatting[31m.[m[01;30mImage[m[31m([mDate[31m));[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m [35m20[m[31m)[m [31m&[m Long_Integer'[01;30mImage[m[31m([m[01;30mLong_Integer[m[31m([mSize[31m)));[m
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m [35m35[m[31m)[m [31m&[m [01;30mSet[m[31m([mI[31m).[m[01;34mall[m [31m&[m Normal[31m);[m
			   Line [31m:=[m Line [31m+[m [35m1[m[31m;[m	
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m


		     
		     Size [31m:=[m [35m0[m[31m;[m
		     [01;34mif[m [01;34mnot[m For_Ansi [01;34mthen[m
			[31m--exit when Lib.Shared.Line_Cur + Line >= Lines;[m
			[01;34mnull[m[31m;[m
		     [01;34melse[m
			[01;34mexit[m [01;34mwhen[m Line [31m>=[m Win[31m.[mH[31m-[m[35m2[m[31m;[m

		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mloop[m[31m;[m		
		  		  [01;34mif[m [01;34mnot[m For_Ansi [01;34mand[m 
		    Lib[31m.[mShared[31m.[mLine_Cur [31m+[m Line [31m<[m lines
		  [01;34mthen[m
		     Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m [32mInteger[m'[01;30mMax[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m Lines[31m);[m
		     [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur[31m,[m [35m1[m[31m)[m [31m&[m Normal[31m);[m
		     Count [31m:=[m Line[31m;[m
		  [01;34melsif[m [01;34mnot[m For_Ansi [01;34mthen[m
		     Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m [32mInteger[m'[01;30mMax[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m Lines[31m);[m
		     New_Line[31m;[m
		     [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur[31m,[m [35m1[m[31m)[m [31m&[m Normal[31m);[m
		     Count [31m:=[m Line[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34melse[m
		  
		  [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mFile_Index [01;34mloop[m
		     
		     [01;34mif[m [01;30mSet[m[31m([mIter[31m)[m'Length [31m>[m Top_Col [01;34mthen[m
			Top_Col [31m:=[m [01;30mSet[m[31m([mIter[31m)[m'Length[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     Char_Count [31m:=[m Char_Count [31m+[m [01;30mSet[m[31m([mIter[31m)[m'Length[31m;[m
		  [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34mif[m [01;34mnot[m For_Ansi [01;34mthen[m
		     Line_By_Column [31m:=[m File_index[31m/(([mColumns[31m)/([mTop_Col[31m+[m[35m7[m[31m))+[m[35m1[m[31m;[m
		  [01;34melse[m
		     Line_By_Column [31m:=[m File_index[31m/(([mWin[31m.[mW[31m)/([mTop_Col[31m+[m[35m7[m[31m)+[m[35m1[m[31m)+[m[35m1[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  Column_By_Page [31m:=[m [31m([mFile_Index [31m/[m Line_By_Column[31m)+[m[35m1[m[31m;[m

		  [01;34mdeclare[m
		     Table [31m:[m [01;30mFile_Table[m[31m([m[35m1[m[31m..[mLine_By_Column[31m,[m [35m1[m[31m..[mColumn_By_Page[31m);[m
		  [01;34mbegin[m


		     
		     [01;34mfor[m column [01;34min[m Table'[01;34mRange[m[31m([m[35m2[m[31m)[m [01;34mloop[m
			[01;34mfor[m Line [01;34min[m Table'[01;34mrange[m[31m([m[35m1[m[31m)[m [01;34mloop[m
			   [01;30mTable[m[31m([mLine[31m,[m Column[31m)[m [31m:=[m [01;30mSet[m[31m([mFile_Counter[31m+[m[35m1[m[31m);[m
			   File_Counter [31m:=[m File_Counter[31m+[m[35m1[m[31m;[m
			[01;34mend[m [01;34mloop[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m

		     File_Counter [31m:=[m [35m0[m[31m;[m
		     
		     [01;34mif[m For_Ansi [01;34mthen[m
			Line [31m:=[m Line [31m+[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;34mif[m [01;34mnot[m For_Ansi [01;34mthen[m
			[01;34mfor[m I [01;34min[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m [35m1[m [31m..[m Lines [01;34mloop[m
			   W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mI[31m,[m [35m1[m[31m))[m [31m&[m Ada[31m.[mStrings[31m.[mWide_Fixed[31m.[m[31m"*"[m[31m([mColumns[31m,[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m)));[m
			[01;34mend[m [01;34mloop[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		 Main2 [31m:[m
		     [01;34mfor[m Iter_L [01;34min[m Natural'[01;30mMin[m[31m([mLine_Index[31m,[m Table'[01;30mLast[m[31m([m[35m1[m[31m)-[m[35m1[m[31m)+[m[35m1[m[31m..[mTable'[01;30mLast[m[31m([m[35m1[m[31m)[m [01;34mloop[m
		     
			[01;34mfor[m Iter_C [01;34min[m Table'[01;34mRange[m[31m([m[35m2[m[31m)[m [01;34mloop[m

			   [01;34mif[m [01;34mnot[m Gnat[31m.[mOs_Lib[31m.[m[31m"="[m[31m([m[01;30mTable[m[31m([mIter_L[31m,[m Iter_C[31m),[m [01;34mnull[m[31m)[m [01;34mthen[m
			      [01;34mif[m For_Ansi [01;34mthen[m
				 
				 [01;30mDraw_Text[m[31m([mWin[31m,[m Line[31m,[m Col[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mTable[m[31m([mIter_L[31m,[m Iter_C[31m).[m[01;34mall[m[31m));[m

			      [01;34melse[m
				 [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur [31m+[m Line[31m,[m Col[31m)[m [31m&[m [01;30mTable[m[31m([mIter_L[31m,[m Iter_C[31m).[m[01;34mall[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      Col [31m:=[m Col [31m+[m Top_Col[31m;[m
			      File_Counter [31m:=[m File_Counter[31m+[m[35m1[m[31m;[m
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mexit[m Main2 [01;34mwhen[m File_Counter [31m=[m File_Index[31m;[m

			[01;34mend[m [01;34mloop[m[31m;[m

			[01;34mif[m [01;34mnot[m For_Ansi [01;34mthen[m
			   [01;34mif[m Line_Cur [31m+[m Line [31m>=[m Lines [01;34mthen[m
			      New_Line[31m;[m
			   [01;34melse[m
			      Line [31m:=[m Line [31m+[m [35m1[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			[01;34melse[m

			   [01;34mif[m Line [31m>=[m Win[31m.[mH[31m-[m[35m2[m [01;34mthen[m

			      [01;34mexit[m[31m;[m
			   [01;34melse[m

			      Line [31m:=[m Line [31m+[m [35m1[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

			Col [31m:=[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mloop[m Main2[31m;[m

		     Count [31m:=[m Count [31m+[m Line_By_Column[31m;[m

		  [01;34mend[m[31m;[m
		  [01;34mif[m [01;34mnot[m For_Ansi [01;34mand[m 
		    Lib[31m.[mShared[31m.[mLine_Cur [31m+[m Line [31m<[m lines
		  [01;34mthen[m
		     Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m Line_By_Column[31m+[m[35m1[m[31m;[m
		     [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur[31m,[m [35m1[m[31m)[m [31m&[m Normal[31m);[m
		     Count [31m:=[m Line[31m;[m
		  [01;34melsif[m [01;34mnot[m For_Ansi [01;34mthen[m
		     Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m Line_By_Column[31m+[m[35m1[m[31m;[m
		     New_Line[31m;[m
		     [01;30mPut[m[31m([m[01;30mPosition[m[31m([mLib[31m.[mShared[31m.[mLine_Cur[31m,[m [35m1[m[31m)[m [31m&[m Normal[31m);[m
		     Count [31m:=[m Line[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m

		  Col [31m:=[m [35m1[m[31m;[m
		  Top_Col [31m:=[m [35m1[m[31m;[m
		  Line [31m:=[m [35m1[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	       
	    [01;34mend[m [01;34mif[m[31m;[m   
	 [01;34mend[m [01;34mif[m[31m;[m

      [01;34mend[m Xls[31m;[m
      
      
   [01;34mend[m Internal[31m;[m
   [01;34mfunction[m [01;30mPrint_Set[m [31m([mSet [31m:[m [01;34min[m M[31m.[mtools[31m.[mWide_Result_Access[31m;[m
		       Into [31m:[m [01;34min[m Window_Record[31m;[m
		       Top [31m:[m [01;34min[m Line_Index_Range[31m;[m		       
		       Total_Lines[31m:[m [01;34mout[m Natural[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m
   
   [01;34mfunction[m [01;30mPrint_Set[m [31m([mSet [31m:[m [01;34min[m Wide_Set[31m;[m
		       Into [31m:[m [01;34min[m Window_Record[31m;[m
		       Top [31m:[m [01;34min[m Line_Index_Range[31m;[m		       
		       Total_Lines[31m:[m [01;34mout[m Natural[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
      height [31m:[m [01;34mconstant[m Positive [31m:=[m Into[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m;[m
      Width  [31m:[m [01;34mconstant[m Positive [31m:=[m Into[31m.[mWin[31m.[mW[31m-[m[35m2[m[31m;[m
      Line_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m      
   [01;34mbegin[m
      Total_Lines [31m:=[m [35m0[m[31m;[m
      [01;34mif[m Set[31m.[mLine_Last [31m=[m [35m0[m [01;34mthen[m

	 [01;34mreturn[m True[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      
  Print_Loop[31m:[m
      [01;34mfor[m I [01;34min[m Top[31m+[m[35m1[m [31m..[m Positive'[01;30mmin[m[31m([mTop[31m+[mHeight[31m,[m Set[31m.[mLine_Last[31m)[m [01;34mloop[m
	 
	 [01;34mdeclare[m
	    tmp [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m Set[31m.[m[01;30mLines[m[31m([mI[31m).[m[01;34mall[m[31m;[m
	    Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mTmp[m[31m([mTmp'First[31m..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mTmp[31m),[m Backward[31m));[m
	    
	    Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Width[31m-[m[35m1[m[31m;[m
	    Lines_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Height[31m;[m
	    
	    
	    B_Inf [31m:[m Positive [31m:=[m [35m1[m[31m;[m
	    B_Sup [31m:[m Positive [31m:=[m Chars_Max[31m;[m
	    
	    Bot   [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 [01;34mbegin[m

	    [01;34mif[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m>[m [35m0[m [01;34mand[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m<[m [31m([mChars_Max [31m*[m Lines_Max[31m)[m [01;34mthen[m

	       [01;34mfor[m Line_Window [01;34min[m [35m0[m [31m..[m [32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m([mLine[31m)/[mChars_Max[31m,[m Lines_Max[31m)[m [01;34mloop[m

		  B_Inf [31m:=[m Line_Window[31m*[mChars_Max [31m+[m [35m1[m[31m;[m
		  B_Sup [31m:=[m [32mInteger[m'[01;30mmin[m[31m(([mLine_Window [31m+[m [35m1[m[31m)*[mChars_Max[31m,[m [01;30mReal_Length[m[31m([mLine[31m));[m
		  [01;34mbegin[m
		     
		     [01;34mif[m [01;30mReal_length[m[31m([mLine[31m)[m [31m<=[m Chars_max [01;34mthen[m
			[01;30mDraw_Text[m[31m([mInto[31m,[m Line_Count [31m+[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Line[31m);[m
		     [01;34melse[m
			[01;30mDraw_Text[m[31m([mInto[31m,[m Line_Count [31m+[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m                            
		     [01;34mend[m [01;34mif[m[31m;[m                 
		  [01;34mend[m[31m;[m
		  
		  Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
		  [01;34mif[m Line_Count [31m=[m height [01;34mthen[m		     
		     [01;34mexit[m Print_Loop[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
	       [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34melse[m
	       
	       Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m                           
	 [01;34mend[m[31m;[m
	 
	 [01;34mif[m Line_Count [31m=[m height [01;34mthen[m	    
	    [01;34mexit[m Print_Loop[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m	 
      [01;34mend[m [01;34mloop[m Print_Loop[31m;[m
      
      Total_Lines [31m:=[m Line_Count[31m;[m
      [01;34mreturn[m True[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mreturn[m False[31m;[m
   [01;34mend[m Print_Set[31m;[m

   
   [01;34mfunction[m [01;30mPrint_Set[m [31m([mSet [31m:[m [01;34min[m Wide_String_Set[31m;[m
		       Into [31m:[m [01;34min[m Window_Record[31m;[m
		       Top [31m:[m [01;34min[m Line_Index_Range[31m;[m		       
		       Total_Lines[31m:[m [01;34mout[m Natural[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
      height [31m:[m [01;34mconstant[m Positive [31m:=[m Into[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m;[m
      Width  [31m:[m [01;34mconstant[m Positive [31m:=[m Into[31m.[mWin[31m.[mW[31m-[m[35m2[m[31m;[m
      Line_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m      
   [01;34mbegin[m
      Total_Lines [31m:=[m [35m0[m[31m;[m
      [01;34mif[m Set[31m.[mLine_Last [31m=[m [35m0[m [01;34mthen[m

	 [01;34mreturn[m True[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      
  Print_Loop[31m:[m
      [01;34mfor[m I [01;34min[m Top[31m+[m[35m1[m [31m..[m Positive'[01;30mmin[m[31m([mTop[31m+[mHeight[31m,[m Set[31m.[mLine_Last[31m)[m [01;34mloop[m
	 
	 [01;34mdeclare[m
	    tmp [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m Set[31m.[m[01;30mLines[m[31m([mI[31m).[m[01;34mall[m[31m;[m
	    Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mTmp[m[31m([mTmp'First[31m..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mTmp[31m),[m Backward[31m));[m
	    
	    Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Width[31m-[m[35m1[m[31m;[m
	    Lines_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Height[31m;[m
	    
	    
	    B_Inf [31m:[m Positive [31m:=[m [35m1[m[31m;[m
	    B_Sup [31m:[m Positive [31m:=[m Chars_Max[31m;[m
	    
	    Bot   [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 [01;34mbegin[m
	    
	    [01;34mif[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m>[m [35m0[m [01;34mand[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m<[m [31m([mChars_Max [31m*[m Lines_Max[31m)[m [01;34mthen[m
	       
	       
	       [01;34mfor[m Line_Window [01;34min[m [35m0[m [31m..[m [32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m([mLine[31m)/[mChars_Max[31m,[m Lines_Max[31m)[m [01;34mloop[m
		  
		  B_Inf [31m:=[m Line_Window[31m*[mChars_Max [31m+[m [35m1[m[31m;[m
		  B_Sup [31m:=[m [32mInteger[m'[01;30mmin[m[31m(([mLine_Window [31m+[m [35m1[m[31m)*[mChars_Max[31m,[m [01;30mReal_Length[m[31m([mLine[31m));[m
		  [01;34mbegin[m
		     
		     [01;34mif[m [01;30mReal_length[m[31m([mLine[31m)[m [31m<=[m Chars_max [01;34mthen[m
			[01;30mDraw_Text[m[31m([mInto[31m,[m Line_Count [31m+[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Line[31m);[m
		     [01;34melse[m
			[01;30mDraw_Text[m[31m([mInto[31m,[m Line_Count [31m+[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m                            
		     [01;34mend[m [01;34mif[m[31m;[m                 
		  [01;34mend[m[31m;[m
		  
		  Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
		  [01;34mif[m Line_Count [31m=[m height [01;34mthen[m		     
		     [01;34mexit[m Print_Loop[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
	       [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34melse[m
	       
	       Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m                           
	 [01;34mend[m[31m;[m
	 
	 [01;34mif[m Line_Count [31m=[m height [01;34mthen[m	    
	    [01;34mexit[m Print_Loop[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m	 
      [01;34mend[m [01;34mloop[m Print_Loop[31m;[m
      
      Total_Lines [31m:=[m Line_Count[31m;[m
      [01;34mreturn[m True[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mreturn[m False[31m;[m
   [01;34mend[m Print_Set[31m;[m

   
   [01;34mfunction[m [01;30mWord_Count[m [31m([mLine [31m:[m [01;34min[m [32mWide_String[m[31m;[m Max_Word [31m:[m [01;34min[m Line_Index_Range[31m)[m [01;34mreturn[m Word_Range[31m;[m
   
   [01;34mfunction[m [01;30mWord_Count[m [31m([mLine [31m:[m [01;34min[m [32mWide_String[m[31m;[m Max_Word [31m:[m [01;34min[m Line_Index_Range[31m)[m [01;34mreturn[m Word_range [01;34mis[m
      Number_Of_Word [31m:[m Word_range[31m:=[m [35m0[m[31m;[m
      
      Set [31m:[m [01;30mWide_String_Set[m[31m([mMax_Word[31m);[m
      Set_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Top [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Bot [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      [01;34mif[m Line'Length [31m=[m [35m0[m [01;34mthen[m
	 [01;34mreturn[m [35m0[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m)[m [31m=[m [35m0[m [01;34mthen[m
	 [01;34mreturn[m [35m0[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      Top [31m:=[m [35m1[m[31m;[m
      [01;34mfor[m Wchar [01;34min[m Line'[01;34mRange[m [01;34mloop[m
	 [01;34mif[m [01;30mIs_Letter[m [31m([m[01;30mLine[m[31m([mWchar[31m))[m [01;34mthen[m
	    Bot [31m:=[m Bot [31m+[m [35m1[m[31m;[m
	 [01;34melse[m
	    [01;34mif[m Bot [31m>[m Top [01;34mthen[m
	       Number_Of_Word [31m:=[m Number_Of_Word [31m+[m [35m1[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	    Number_Of_Word [31m:=[m Number_Of_Word [31m+[m [35m1[m[31m;[m
	    Top [31m:=[m Wchar[31m+[m[35m1[m[31m;[m
	    Bot [31m:=[m Positive'[01;30mMin[m[31m([mTop[31m,[m Line'Last[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mreturn[m Number_Of_Word[31m;[m
   [01;34mend[m Word_Count[31m;[m

   
   
      [01;34mfunction[m [01;30mVersion_Update[m[31m([mVersion [31m:[m [01;34min[m  M[31m.[mVersions[31m.[mVersion_Type[31m)[m [01;34mreturn[m M[31m.[mVersions[31m.[mVersion_Type [01;34mis[m
      The_Version [31m:[m M[31m.[mVersions[31m.[mVersion_Type [31m:=[m version[31m;[m

   [01;34mbegin[m
      [01;34mif[m Versions[31m.[mNew_Action [01;34mand[m [31m([m[01;34mnot[m Versions[31m.[mNew_Description[31m)[m [01;34mthen[m
	 [01;34mif[m The_Version[31m.[mRevision_Version [31m+[m [35m1[m [31m<[m Revision_Version_Type'Last [01;34mthen[m
   	    The_Version[31m.[mRevision_Version [31m:=[m The_Version[31m.[mRevision_Version [31m+[m [35m1[m[31m;[m
   	 [01;34melsif[m The_Version[31m.[mMajor_Version [31m+[m [35m1[m [31m<[m Major_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mMajor_Version [31m:=[m The_Version[31m.[mMajor_Version [31m+[m [35m1[m[31m;[m
	    The_Version[31m.[mMinor_Version [31m:=[m [35m0[m[31m;[m
	    The_Version[31m.[mRevision_Version [31m:=[m [35m0[m[31m;[m
	 [01;34melse[m
	    [01;34mraise[m Impl_Limit[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34melsif[m Versions[31m.[mNew_Description [01;34mand[m Versions[31m.[mNew_Action [01;34mthen[m
	 [01;34mif[m The_Version[31m.[mMinor_Version [31m+[m [35m1[m [31m<[m Minor_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mMinor_Version [31m:=[m The_Version[31m.[mMinor_Version [31m+[m [35m1[m[31m;[m	      
	    The_Version[31m.[mRevision_Version [31m:=[m [35m0[m[31m;[m		  	    
	 [01;34melsif[m The_Version[31m.[mRevision_Version [31m+[m [35m1[m [31m<[m Revision_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mRevision_Version [31m:=[m The_Version[31m.[mRevision_Version [31m+[m [35m1[m[31m;[m
	 [01;34melsif[m The_Version[31m.[mMajor_Version [31m+[m [35m1[m [31m<[m Major_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mMajor_Version [31m:=[m The_Version[31m.[mMajor_Version [31m+[m [35m1[m[31m;[m
	    The_Version[31m.[mMinor_Version [31m:=[m [35m0[m[31m;[m
	    The_Version[31m.[mRevision_Version [31m:=[m [35m0[m[31m;[m
	 [01;34melse[m
	    [01;34mraise[m Impl_Limit[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34melsif[m Versions[31m.[mNew_Description [01;34mthen[m
	 The_Version[31m.[mRelease_Version [31m:=[m [31m'a'[m[31m;[m
	 
	 [01;34mif[m The_Version[31m.[mMinor_Version [31m+[m [35m1[m [31m<[m Minor_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mMinor_Version [31m:=[m The_Version[31m.[mMinor_Version [31m+[m [35m1[m[31m;[m	      
	    The_Version[31m.[mRevision_Version [31m:=[m [35m0[m[31m;[m		  	    
	 [01;34melsif[m The_Version[31m.[mRevision_Version [31m+[m [35m1[m [31m<[m Revision_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mRevision_Version [31m:=[m The_Version[31m.[mRevision_Version [31m+[m [35m1[m[31m;[m
	 [01;34melsif[m The_Version[31m.[mMajor_Version [31m+[m [35m1[m [31m<[m Major_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mMajor_Version [31m:=[m The_Version[31m.[mMajor_Version [31m+[m [35m1[m[31m;[m
	    The_Version[31m.[mMinor_Version [31m:=[m [35m0[m[31m;[m
	    The_Version[31m.[mRevision_Version [31m:=[m [35m0[m[31m;[m
	 [01;34melse[m
	    [01;34mraise[m Impl_Limit[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34melsif[m The_Version[31m.[mRelease_Version [31m=[m [31m'a'[m [01;34mthen[m
	 The_Version[31m.[mRelease_Version [31m:=[m [31m'b'[m[31m;[m
	 [01;34mif[m The_Version[31m.[mMinor_Version [31m+[m [35m1[m [31m<[m Minor_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mMinor_Version [31m:=[m The_Version[31m.[mMinor_Version [31m+[m [35m1[m[31m;[m	      
	    The_Version[31m.[mRevision_Version [31m:=[m [35m0[m[31m;[m		  	    
	 [01;34melsif[m The_Version[31m.[mRevision_Version [31m+[m [35m1[m [31m<[m Revision_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mRevision_Version [31m:=[m The_Version[31m.[mRevision_Version [31m+[m [35m1[m[31m;[m
	 [01;34melsif[m The_Version[31m.[mMajor_Version [31m+[m [35m1[m [31m<[m Major_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mMajor_Version [31m:=[m The_Version[31m.[mMajor_Version [31m+[m [35m1[m[31m;[m
	    The_Version[31m.[mMinor_Version [31m:=[m [35m0[m[31m;[m
	    The_Version[31m.[mRevision_Version [31m:=[m [35m0[m[31m;[m
	 [01;34melse[m
	    [01;34mraise[m Impl_Limit[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34melse[m
	 The_Version[31m.[mRelease_Version [31m:=[m [31m'r'[m[31m;[m
	 [01;34mif[m The_Version[31m.[mRevision_Version [31m+[m [35m1[m [31m<[m Revision_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mRevision_Version [31m:=[m The_Version[31m.[mRevision_Version [31m+[m [35m1[m[31m;[m
	    
	 [01;34melsif[m The_Version[31m.[mMinor_Version [31m+[m [35m1[m [31m<[m Minor_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mMinor_Version [31m:=[m The_Version[31m.[mMinor_Version [31m+[m [35m1[m[31m;[m	      
	    The_Version[31m.[mRevision_Version [31m:=[m [35m0[m[31m;[m		  	    
	    
	 [01;34melsif[m The_Version[31m.[mMajor_Version [31m+[m [35m1[m [31m<[m Major_Version_Type'Last [01;34mthen[m
	    The_Version[31m.[mMajor_Version [31m:=[m The_Version[31m.[mMajor_Version [31m+[m [35m1[m[31m;[m
	    The_Version[31m.[mMinor_Version [31m:=[m [35m0[m[31m;[m
	    The_Version[31m.[mRevision_Version [31m:=[m [35m0[m[31m;[m
	 [01;34melse[m
	    [01;34mraise[m Impl_Limit[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      [01;34mreturn[m The_Version[31m;[m

   [01;34mend[m Version_Update[31m;[m
   
      [01;34mprocedure[m [01;30mUsers_Read[m [31m([mUsers [31m:[m [01;34min[m [01;34mout[m User_Set[31m;[m filename [31m:[m [01;34min[m [32mstring[m[31m)[m [01;34mis[m
      
      File [31m:[m W_Io[31m.[mFile_Type[31m;[m
      Iter [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      
   [01;34mbegin[m
      W_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m W_Io[31m.[mIn_File[31m,[m filename[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
      [01;34mwhile[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
	 [31m--Player_Type := Player_Enum'Value(Handling.To_String(W_Io.Get_Line(File)));[m
   	 [01;34mdeclare[m   	    
	    user [31m:[m User_Record[31m;[m
   	 [01;34mbegin[m
   	    User[31m.[mLogname [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m)));[m
   	    User[31m.[mPassword [31m:=[m [01;34mnew[m [32mString[m '[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m)));[m
   	    User[31m.[mIdentity[31m.[mFull_Name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m
   	    User[31m.[mIdentity[31m.[maddress [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m
   	    User[31m.[mIdentity[31m.[mCity_Code [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m
   	    User[31m.[mIdentity[31m.[mCity_Name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m
   	    User[31m.[mIdentity[31m.[memail [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m
	    User[31m.[mIdentity[31m.[mWeb_Addr [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m
   	    Users[31m.[m[01;30mset[m[31m([mIter [31m+[m [35m1[m[31m)[m [31m:=[m [01;34mnew[m User_Record ' [31m([mUser[31m);[m
	    Iter [31m:=[m Iter [31m+[m [35m1[m[31m;[m
   	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      Users[31m.[mUser_Last [31m:=[m Iter[31m;[m
      W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
   [01;34mend[m Users_Read[31m;[m
   
   [01;34mprocedure[m [01;30mUsers_Write[m [31m([mUsers [31m:[m [01;34min[m [01;34mout[m User_Set[31m;[m filename[31m:[m [01;34min[m [32mString[m[31m)[m [01;34mis[m
      
      File [31m:[m W_Io[31m.[mFile_Type[31m;[m
      
   [01;34mbegin[m
      W_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m W_Io[31m.[mOut_File[31m,[m filename[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m

      [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mUsers[31m.[mUser_Last [01;34mloop[m
   	 [01;34mdeclare[m
   	    User [31m:[m [01;34mconstant[m User_Record [31m:=[m Users[31m.[m[01;30mSet[m[31m([mIter[31m).[m[01;34mall[m[31m;[m
   	 [01;34mbegin[m
	    
   	    [01;34mif[m User[31m.[mLogname [31m/=[m [01;34mnull[m [01;34mthen[m
	       
   	       W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mUser[31m.[mLogname[31m.[m[01;34mall[m[31m));[m
	       
   	       W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mUser[31m.[mPassword[31m.[m[01;34mall[m[31m));[m

   	       W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m User[31m.[mIdentity[31m.[mFull_Name[31m.[m[01;34mall[m[31m);[m

   	       W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m User[31m.[mIdentity[31m.[mAddress[31m.[m[01;34mall[m[31m);[m

   	       W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m User[31m.[mIdentity[31m.[mCity_Code[31m.[m[01;34mall[m[31m);[m

   	       W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m User[31m.[mIdentity[31m.[mCity_Name[31m.[m[01;34mall[m[31m);[m

   	       W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m User[31m.[mIdentity[31m.[mEmail[31m.[m[01;34mall[m[31m);[m

	       [01;34mif[m User[31m.[mIdentity[31m.[mWeb_Addr [31m/=[m [01;34mnull[m [01;34mthen[m

		  W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m User[31m.[mIdentity[31m.[mWeb_Addr[31m.[m[01;34mall[m[31m);[m
	       [01;34melse[m
		  W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m""[m[31m);[m
	       [01;34mend[m [01;34mif[m[31m;[m
   	    [01;34melse[m
	       
   	       [01;34mexit[m[31m;[m
   	    [01;34mend[m [01;34mif[m[31m;[m
   	 [01;34mend[m[31m;[m		     
      [01;34mend[m [01;34mloop[m[31m;[m
      W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
   [01;34mend[m Users_write[31m;[m
   

   
   [01;34mfunction[m [01;30mNew_Wide_String[m [31m([mTitle [31m:[m [01;34min[m [32mWide_String[m[31m;[m
   			     Label [31m:[m [01;34min[m [32mWide_String[m[31m;[m
   			     Length [31m:[m [01;34min[m Positive[31m;[m
   			     Line[31m,[m Col [31m:[m [01;34min[m Positive[31m;[m
   			     Print [31m:[m [01;34min[m [32mBoolean[m[31m)[m [01;34mreturn[m [32mWide_String[m[31m;[m

   
   [01;34mfunction[m New_Auth [01;34mreturn[m Logon_Record [01;34mis[m
      Auth [31m:[m Logon_Record[31m;[m
      Logname [31m:[m [01;34maccess[m [32mString[m[31m;[m
   [01;34mbegin[m
      
      Logname [31m:=[m Os_Lib[31m.[m[01;30mGetenv[m[31m([m[31m"LOGNAME"[m[31m);[m

      [01;34mif[m Logname [31m/=[m [01;34mnull[m [01;34mthen[m
   	 Auth[31m.[mLogname [31m:=[m [01;34mnew[m [32mString[m ' [31m([mLogname[31m.[m[01;34mall[m[31m);[m
      [01;34melse[m
   	 Auth[31m.[mLogname [31m:=[m 
   	   [01;34mnew[m [32mString[m ' 
   	   [31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mNew_Wide_String[m[31m([m[31m"Authentification"[m[31m,[m [31m"Logname : "[m[31m,[m [35m24[m[31m,[m Lines[31m/[m[35m2[m[31m-[m[35m3[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m19[m[31m,[m True[31m)));[m
      [01;34mend[m [01;34mif[m[31m;[m

      Auth[31m.[mpassword [31m:=[m
   	Sha1[31m.[mDigest
   	[31m([mHandling[31m.[mTo_String
   	   [31m([mNew_Wide_String
   	      [31m([m[31m"Authentification"[m[31m,[m [31m"Password : "[m[31m,[m [35m25[m[31m,[m Lines[31m/[m[35m2[m[31m-[m[35m3[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m20[m[31m,[m
   	       false[31m)));[m
      [01;34mreturn[m Auth[31m;[m
   [01;34mend[m New_Auth[31m;[m

   
   [01;34mtask[m [01;34mbody[m Auth_Process [01;34mis[m

      
      
      
      Denied_Access [31m:[m Window_Type [31m:=[m
   	[31m([mLines[31m/[m[35m2[m[31m-[m[35m3[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m10[m[31m,[m [35m5[m[31m,[m [35m20[m[31m,[m Single_Line_Frame[31m,[m cyan[31m,[m White[31m);[m
      
      Id_Win        [31m:[m Window_Type [31m:=[m
      	[31m([m[35m1[m[31m,[m [31m([mColumns[31m/[m[35m4[m[31m)*[m[35m2[m[31m+[m[35m1[m[31m,[m [35m8[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m1[m[31m,[m Single_Line_Frame[31m,[m Yellow[31m,[m Green[31m);[m
      
      Correct       [31m:[m Wide_Access[31m;[m
      User          [31m:[m User_Record[31m;[m
   [01;34mbegin[m

  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
	    [01;34mor[m
	       [01;34maccept[m Halt [01;34mdo[m
		  [01;34mnull[m[31m;[m
		  [31m--W_Io.Put_Line("Halting Author...");[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [31m--W_Io.Put_Line("Auth");null;[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Refresh[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m up_arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m

	       [01;34maccept[m Auth [01;34mdo[m

		  Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
		  [01;34mdeclare[m		  
		     
		     Identity      [31m:[m Identity_Record[31m;[m
		     Done          [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
		  [01;34mbegin[m

		     [01;34mwhile[m [01;34mnot[m Done [01;34mloop[m
			[01;34mloop[m
			   [01;34mbegin[m

			      App[31m.[mUser_Auth [31m:=[m New_Auth[31m;[m
			      
			      [01;34mexit[m[31m;[m
			   [01;34mexception[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
				 [01;30mDraw_Window[m[31m([mDenied_Access[31m);[m
				 [01;30mDraw[m[31m([mDenied_Access[31m,[m [35m2[m[31m,[m [35m3[m[31m,[m Red[31m,[m [31m"Access denied"[m[31m);[m
				 [01;34mdelay[m [35m2.0[m[31m;[m
				 Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
			   [01;34mend[m[31m;[m
			[01;34mend[m [01;34mloop[m[31m;[m

			[31m--Ansi.Console.Clear_Screen;[m
			
			[01;34mcase[m Os_Constants[31m.[mTarget_Os [01;34mis[m
			   [01;34mwhen[m Os_Constants[31m.[mWindows [31m=>[m	    
			      App[31m.[mUser_path [31m:=[m [01;30mGetenv[m[31m([m[31m"HOMEPATH"[m[31m);[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      App[31m.[mUser_path [31m:=[m [01;30mGetenv[m[31m([m[31m"HOME"[m[31m);[m

			[01;34mend[m [01;34mcase[m[31m;[m

			[01;34mif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([mApp[31m.[mUser_Path[31m.[m[01;34mall[m [31m&[m Dir_separator [31m&[m [31m"users.txt"[m[31m)[m [01;34mthen[m

			   [01;30mUsers_Read[m[31m([mApp[31m.[mVisitors[31m,[m App[31m.[mUser_Path[31m.[m[01;34mall[m [31m&[m Dir_separator [31m&[m [31m"users.txt"[m[31m);[m

			   [31m--if App.Visitors /= null and then[m
			   [01;34mif[m App[31m.[mVisitors[31m.[mUser_Last [31m/=[m [35m0[m [01;34mthen[m

			      [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mApp[31m.[mVisitors[31m.[mUser_Last [01;34mloop[m
				 [01;34mdeclare[m
				    User [31m:[m User_Access [31m:=[m App[31m.[mVisitors[31m.[m[01;30mSet[m[31m([mIter[31m);[m
				 [01;34mbegin[m

				    [01;34mif[m User[31m.[mLogname [31m/=[m [01;34mnull[m [01;34mthen[m
				       [01;34mif[m User[31m.[mLogname[31m.[m[01;34mall[m [31m=[m App[31m.[mUser_Auth[31m.[mLogname[31m.[m[01;34mall[m [01;34mand[m [01;34mthen[m
					 User[31m.[mPassword[31m.[m[01;34mall[m [31m=[m App[31m.[mUser_Auth[31m.[mpassword [01;34mthen[m
					  Identity [31m:=[m User[31m.[mIdentity[31m;[m
					  App[31m.[mUser [31m:=[m User[31m;[m
					  App[31m.[mUser_Ready [31m:=[m True[31m;[m
					  Done [31m:=[m True[31m;[m
					  App[31m.[mFull_Shell_Filename [31m:=[m [01;34mnew[m [32mString[m ' 
					    [31m([mApp[31m.[mUser_Path[31m.[m[01;34mall[m [31m&[m Dir_separator [31m&[m Shell_file[31m);[m

					  [01;34mexit[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34melse[m
				       [01;34mexit[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m[31m;[m
			      [01;34mend[m [01;34mloop[m[31m;[m	 
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;34mif[m [01;34mnot[m Done [01;34mthen[m
			   [01;34mwhile[m [01;34mnot[m Done [01;34mloop[m
			      [01;34mbegin[m
				 Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
				 [01;34mif[m App[31m.[mUser_Auth[31m.[mPassword [31m=[m 
				   Sha1[31m.[mDigest
				   [31m([mHandling[31m.[mTo_String
				      [31m([m[01;30mNew_Wide_String[m[31m([m[31m"Verify password"[m[31m,[m 
						       [31m"Password : "[m[31m,[m 
						       [35m25[m[31m,[m 
						       Lines[31m/[m[35m2[m[31m-[m[35m3[m[31m,[m 
						       Columns[31m/[m[35m2[m[31m-[m[35m20[m[31m,[m 
						       false[31m)))[m [01;34mthen[m
				    user[31m.[mLogname [31m:=[m [01;34mnew[m [32mString[m ' [31m([mApp[31m.[mUser_Auth[31m.[mLogname[31m.[m[01;34mall[m[31m);[m
				    User[31m.[mpassword [31m:=[m [01;34mnew[m [32mString[m ' [31m([mApp[31m.[mUser_Auth[31m.[mPassword[31m);[m
				    [01;34mloop[m
				       [01;34mbegin[m
					  Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
					  Identity[31m.[mFull_Name [31m:=[m 
					    [01;34mnew[m [32mWide_String[m ' 
					    [31m([m[01;30mNew_Wide_String[m[31m([m[31m"Identification"[m[31m,[m 
							     [31m"Full name : "[m[31m,[m 
							     [35m25[m[31m,[m 
							     Lines[31m/[m[35m2[m[31m-[m[35m3[m[31m,[m 
							     Columns[31m/[m[35m2[m[31m-[m[35m19[m[31m,[m 
							     True[31m));[m
					  Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
					  Identity[31m.[mAddress [31m:=[m 
					    [01;34mnew[m [32mWide_String[m ' 
					    [31m([m[01;30mNew_Wide_String[m[31m([m[31m"Identification"[m[31m,[m 
							     [31m"Address : "[m[31m,[m [35m48[m[31m,[m 
							     Lines[31m/[m[35m2[m[31m-[m[35m3[m[31m,[m 
							     Columns[31m/[m[35m2[m[31m-[m[35m30[m[31m,[m 
							     True[31m));[m
					  Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
					  Identity[31m.[mCity_Code [31m:=[m 
					    [01;34mnew[m [32mWide_String[m ' 
					    [31m([mNew_Wide_String
					       [31m([m[31m"Identification"[m[31m,[m 
						[31m"City code : "[m[31m,[m 
						[35m10[m[31m,[m 
						Lines[31m/[m[35m2[m[31m-[m[35m3[m[31m,[m 
						Columns[31m/[m[35m2[m[31m-[m[35m11[m[31m,[m 
						True[31m));[m
					  Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
					  Identity[31m.[mCity_Name [31m:=[m 
					    [01;34mnew[m [32mWide_String[m ' 
					    [31m([m[01;30mNew_Wide_String[m[31m([m[31m"Identification"[m[31m,[m 
							     [31m"City : "[m[31m,[m 
							     [35m25[m[31m,[m 
							     Lines[31m/[m[35m2[m[31m-[m[35m3[m[31m,[m 
							     Columns[31m/[m[35m2[m[31m-[m[35m16[m[31m,[m 
							     True[31m));[m
					  Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
					  Identity[31m.[memail [31m:=[m 
					    [01;34mnew[m [32mWide_String[m ' 
					    [31m([m[01;30mNew_Wide_String[m[31m([m[31m"Identification"[m[31m,[m 
							     [31m"Email address : "[m[31m,[m 
							     [35m49[m[31m,[m 
   							     Lines[31m/[m[35m2[m[31m-[m[35m3[m[31m,[m 
							     Columns[31m/[m[35m2[m[31m-[m[35m37[m[31m,[m 
							     True[31m));[m
				       [01;34mexception[m
					  [01;34mwhen[m W_Io[31m.[mEnd_Error [31m=>[m
					     [01;34mraise[m[31m;[m
				       [01;34mend[m[31m;[m
				       Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
				       [01;30mDraw_Window[m[31m([mId_Win[31m);[m
				       [01;30mDraw[m[31m([mId_Win[31m,[m [35m1[m[31m,[m Id_Win[31m.[mw[31m/[m[35m2[m[31m-[m[35m5[m[31m,[m Magenta[31m,[m [31m"Informations"[m[31m);[m
				       [01;30mDraw[m[31m([mId_Win[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Logname     : "[m [31m&[m 
					      Handling[31m.[m[01;30mTo_Wide_String[m[31m([mUser[31m.[mLogname[31m.[m[01;34mall[m[31m));[m
				       [01;30mDraw[m[31m([mId_Win[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Full name   : "[m [31m&[m 
					      Identity[31m.[mFull_Name[31m.[m[01;34mall[m[31m);[m
				       [01;30mDraw[m[31m([mId_Win[31m,[m [35m4[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Address     : "[m [31m&[m 
					      Identity[31m.[mAddress[31m.[m[01;34mall[m[31m);[m
				       [01;30mDraw[m[31m([mId_Win[31m,[m [35m5[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Code & City : "[m [31m&[m 
					      Identity[31m.[mCity_name[31m.[m[01;34mall[m [31m&[m [31m' '[m [31m&[m Identity[31m.[mCity_Code[31m.[m[01;34mall[m[31m);[m
				       [01;30mDraw[m[31m([mId_Win[31m,[m [35m6[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Email       : "[m [31m&[m 
					      Identity[31m.[mEmail[31m.[m[01;34mall[m[31m);[m
				       Correct [31m:=[m [01;34mnew[m [32mWide_String[m ' 
					 [31m([mNew_Wide_String
					    [31m([m[31m"Verification"[m[31m,[m 
					     [31m"This informations are correct (y/o or n) : "[m[31m,[m 
					     [35m3[m[31m,[m Lines[31m/[m[35m2[m[31m-[m[35m3[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m25[m[31m,[m True[31m));[m

				       [01;34mif[m Correct [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m				
					 Correct'Length [31m=[m [35m1[m [01;34mthen[m
					  [01;34mcase[m [01;30mCorrect[m[31m([m[35m1[m[31m)[m [01;34mis[m
					     [01;34mwhen[m [31m'y'[m [31m|[m [31m'o'[m [31m=>[m

						User[31m.[mIdentity [31m:=[m Identity[31m;[m
						User[31m.[mLogname [31m:=[m [01;34mnew[m [32mString[m ' [31m([mApp[31m.[mUser_Auth[31m.[mLogname[31m.[m[01;34mall[m[31m);[m
						User[31m.[mPassword [31m:=[m [01;34mnew[m [32mString[m '[31m([mApp[31m.[mUser_Auth[31m.[mPassword[31m);[m
						[31m--						if App.Visitors = null then[m
						[31m--						   App.Visitors := new User_Set(4);[m
						[31m--						end if;[m
						
						App[31m.[mVisitors[31m.[m[01;30mSet[m[31m([mApp[31m.[mVisitors[31m.[mUser_Last [31m+[m [35m1[m[31m)[m [31m:=[m [01;34mnew[m User_Record ' [31m([mUser[31m);[m
						
						App[31m.[mVisitors[31m.[mUser_Last [31m:=[m App[31m.[mVisitors[31m.[mUser_Last [31m+[m [35m1[m[31m;[m
						
						App[31m.[mUser [31m:=[m App[31m.[mVisitors[31m.[m[01;30mSet[m[31m([mApp[31m.[mVisitors[31m.[mUser_Last[31m);[m
						App[31m.[mUser_Ready [31m:=[m True[31m;[m
						
						Done [31m:=[m True[31m;[m
						
					     [01;34mwhen[m [01;34mothers[m [31m=>[m
						[01;34mnull[m[31m;[m
					  [01;34mend[m [01;34mcase[m[31m;[m
					  
					  [01;34mif[m Done [01;34mthen[m
					     Correct [31m:=[m [01;34mnew[m [32mWide_String[m ' 
					       [31m([mNew_Wide_String
						  [31m([m[31m"Restering"[m[31m,[m 
						   [31m"Do you want registerring this informations (y/o or n) : "[m[31m,[m 
						   [35m3[m[31m,[m Lines[31m/[m[35m2[m[31m-[m[35m3[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m25[m[31m,[m True[31m));[m

					     [01;34mif[m Correct [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m				
					       Correct'Length [31m=[m [35m1[m [01;34mthen[m
						
						[01;34mcase[m [01;30mCorrect[m[31m([m[35m1[m[31m)[m [01;34mis[m
						   [01;34mwhen[m [31m'y'[m [31m|[m [31m'o'[m [31m=>[m
						      [31m--if App.Visitors = null then[m
						      [31m-- raise Spec_Error;[m
						      [31m--end if;[m
						      Users_Write
							[31m([mApp[31m.[mVisitors[31m,[m App[31m.[mUser_Path[31m.[m[01;34mall[m [31m&[m 
							   Dir_Separator [31m&[m [31m"users.txt"[m[31m);[m
						      
						   [01;34mwhen[m [01;34mothers[m [31m=>[m
						      [01;34mnull[m[31m;[m
						[01;34mend[m [01;34mcase[m[31m;[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mif[m Done [01;34mthen[m
					     
					     [01;34mexit[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mend[m [01;34mloop[m[31m;[m
				    
				 [01;34melse[m
				    Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
				    [01;30mDraw_Window[m[31m([mDenied_Access[31m);[m
				    [01;30mDraw[m[31m([mDenied_Access[31m,[m [35m2[m[31m,[m [35m3[m[31m,[m Red[31m,[m [31m"Access denied"[m[31m);[m
				    
				    [01;34mdelay[m [35m2.0[m[31m;[m
				    Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
				    [01;34mexit[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mexception[m
				 [01;34mwhen[m W_Io[31m.[mEnd_Error [31m=>[m
				    Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
				    [01;34mexit[m[31m;[m
			      [01;34mend[m[31m;[m
			   [01;34mend[m [01;34mloop[m[31m;[m

			[01;34mend[m [01;34mif[m[31m;[m
			
		     [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34mend[m[31m;[m
		  [01;30mPut[m[31m([mNormal_Mode[31m);[m
	       [01;34mend[m Auth[31m;[m

	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [31m--W_Io.Put_Line("Auth");[m
		  [31m--Text_Io.Put_Line("Greetings " & Getenv("USER").all & "!");[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Author halted");[m
   [01;34mend[m Auth_Process[31m;[m

   

   [01;34mtask[m [01;34mbody[m Console_Process [01;34mis[m
      Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
      End_Of_This_Task [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      The_Wchar [31m:[m Wide_Character [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
   [01;34mbegin[m

      [01;34mloop[m
	 [01;34mselect[m
	    [01;34maccept[m Initialize [01;34mdo[m
	       
	       App[31m.[mDesktop [31m:=[m [31m([m[35m1[m [31m=>[m [01;30mFunctions[m[31m([m[35m0[m[31m),[m [35m2[m [31m=>[m [01;30mFunctions[m[31m([m[35m12[m[31m));[m
	       [01;34mfor[m Mode [01;34min[m Functions'[01;34mRange[m [01;34mloop[m
		  [01;34mif[m [01;30mFunctions[m[31m([mMode[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		     
		     [01;34mcase[m [01;30mFunctions[m[31m([mMode[31m).[mName [01;34mis[m
			[01;34mwhen[m None [31m=>[m

			   [01;30mNone_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Log [31m=>[m

			   [01;30mLogs_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m MoneyBox [31m=>[m

			   [01;30mMoneybox_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Activity [31m=>[m

			   [01;30mActivity_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Stocks [31m=>[m

			   [01;30mStocks_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Bank [31m=>[m

			   [01;30mbank_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Planning [31m=>[m

			   [01;30mplanning_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Library [31m=>[m

			   [01;30mLibrary_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Manager [31m=>[m

			   [01;30mManager_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Contacts [31m=>[m

			   [01;30mContacts_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Menu [31m=>[m

			   [01;30mMenu_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Organizer [31m=>[m

			   [01;30mOrganizer_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Dialog[31m=>[m

			   [01;30mVbrain_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Navigation [31m=>[m

			   [01;30mMaster_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Engineer [31m=>[m

			   [01;30mEngine_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Devel [31m=>[m

			   [01;30mDevel_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Admin[31m=>[m

			   [01;30mWOPR_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Terminator [31m=>[m

			   [01;30mWorkstation_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Joshua [31m=>[m

			   [01;30mSpace_Fighter_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Entreprise [31m=>[m

			   [01;30mPerson_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Process [31m=>[m

			   [01;30mWorld_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Auth [31m=>[m

			   [01;30mAuth_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Gate [31m=>[m

   	     		   [01;30mGate_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

			[01;34mwhen[m Shell_interface [31m=>[m

   	     		   [01;30mShell_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Self_Development [31m=>[m

   	     		   [01;30mSelf_Development_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Audit [31m=>[m
			   
   	     		   [01;30mAudits_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m All_Manuals [31m=>[m
			   
   	     		   [01;30mAll_Manuals_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			   
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	       
	    [01;34mend[m Initialize[31m;[m
	 [01;34mor[m
	    [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
	       The_Wchar [31m:=[m Wchar[31m;[m
	    [01;34mend[m Receive[31m;[m
	    [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
	       [01;34mwhen[m None [31m=>[m
		  [01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Organizer [31m=>[m
		  [01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Dialog [31m=>[m
		  [01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Planning [31m=>[m
		  [01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Manager [31m=>[m
		  [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Moneybox [31m=>[m
		  [01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Activity [31m=>[m
		  [01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Stocks [31m=>[m
		  [01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Bank [31m=>[m
		  [01;30mBank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Log [31m=>[m
		  [01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Menu [31m=>[m
		  [01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Contacts [31m=>[m
		  [01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Library [31m=>[m
		  [01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Navigation [31m=>[m
		  [01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Engineer [31m=>[m
		  [01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Devel [31m=>[m
		  [01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Admin[31m=>[m

		  [01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Terminator [31m=>[m
		  [01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Joshua [31m=>[m
		  [01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Entreprise [31m=>[m
		  [01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Process [31m=>[m
		  [01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Auth [31m=>[m
		  [01;30mAuth_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
		  
	       [01;34mwhen[m Gate [31m=>[m
		  
		  [01;30mGate_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Self_Development [31m=>[m

		  [01;30mSelf_Development_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
		  
	       [01;34mwhen[m Shell_interface [31m=>[m

		  [01;30mShell_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m
	       [01;34mwhen[m Audit [31m=>[m
		  
		  [01;30mAudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m		     
	       [01;34mwhen[m All_manuals [31m=>[m
		  
		  [01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mReceive[m[31m([mThe_Wchar[31m);[m		     

	       [01;34mwhen[m [01;34mothers[m [31m=>[m
		  [01;34mnull[m[31m;[m
	    [01;34mend[m [01;34mcase[m[31m;[m
	    
	 [01;34mor[m
	    
	    [01;34maccept[m Halt [01;34mdo[m
	       [01;34mfor[m Log [01;34min[m Log_Enum'[01;34mRange[m [01;34mloop[m
		  [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mLog[31m));[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	       

	       [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m

	       
	       [01;34mfor[m Mode [01;34min[m Functions'[01;34mRange[m [01;34mloop[m
		  [01;34mif[m [01;30mFunctions[m[31m([mMode[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;34mcase[m [01;30mFunctions[m[31m([mMode[31m).[mName [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   [01;30mNone_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Log [31m=>[m
			   [01;30mLogs_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m MoneyBox [31m=>[m
			   [01;30mMoneybox_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Activity [31m=>[m
			   [01;30mActivity_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Stocks [31m=>[m
			   [01;30mStocks_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Bank [31m=>[m
			   [01;30mbank_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Planning [31m=>[m
			   [01;30mplanning_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Library [31m=>[m
			   [01;30mLibrary_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Manager [31m=>[m
			   [01;30mManager_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Contacts [31m=>[m
			   [01;30mContacts_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Menu [31m=>[m
			   [01;30mMenu_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Organizer [31m=>[m
			   [01;30morganizer_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Dialog[31m=>[m
			   [01;30mVbrain_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Navigation [31m=>[m
			   [01;30mMaster_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Engineer [31m=>[m
			   [01;30mEngine_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Devel [31m=>[m
			   [01;30mDevel_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Admin[31m=>[m
			   [01;30mWOPR_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Terminator [31m=>[m
			   [01;30mWorkstation_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Joshua [31m=>[m
			   [01;30mSpace_Fighter_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Entreprise [31m=>[m
			   [01;30mPerson_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Process [31m=>[m
			   [01;30mWorld_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Auth [31m=>[m
			   [01;30mAuth_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Gate [31m=>[m
			   [01;30mGate_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Shell_interface [31m=>[m

			   [01;30mShell_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Self_Development [31m=>[m
			   
			   [01;30mSelf_Development_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m

			[01;34mwhen[m Audit [31m=>[m
   
			   [01;30mAudits_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m All_manuals [31m=>[m
   
			   [01;30mAll_manuals_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mend[m Halt[31m;[m
	    
	    [31m--W_Io.Put_Line("Halting system.");[m
	    [01;34mexit[m[31m;[m
	 [01;34mor[m
	    [01;34maccept[m [01;30mMode[m [31m([mMode [31m:[m [01;34mout[m Mode_Enum[31m)[m [01;34mdo[m
	       [01;34mif[m App[31m.[mMode [31m/=[m Quit [01;34mthen[m
		  Mode [31m:=[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName[31m;[m
	       [01;34melse[m
		  Mode [31m:=[m Quit[31m;[m
		  
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m Mode[31m;[m
	    
	 [01;34mor[m
	    [01;34maccept[m Reset [01;34mdo[m
	       [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
	       
	       [01;34mfor[m Log [01;34min[m Log_Enum'[01;34mRange[m [01;34mloop[m
		  [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mLog[31m));[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	       

	       [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m

	       
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mplanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Menu [31m=>[m
			[01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Navigation [31m=>[m
			[01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Engineer [31m=>[m
			[01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Devel [31m=>[m
			[01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Admin[31m=>[m
			[01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Terminator [31m=>[m
			[01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Joshua [31m=>[m
			[01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Entreprise [31m=>[m
			[01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Process [31m=>[m
			[01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Auth [31m=>[m
			[01;30mAuth_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Gate [31m=>[m
			[01;30mGate_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Shell_interface [31m=>[m
			[01;30mShell_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Self_Development [31m=>[m
			[01;30mSelf_Development_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

		     [01;34mwhen[m Audit [31m=>[m
			[01;30mAudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m All_manuals [31m=>[m
			[01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m=[m None [01;34mthen[m
		  [01;34mnull[m[31m;[m
	       [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m=[m Entreprise [01;34mthen[m
		  [01;34mnull[m[31m;[m
	       [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m=[m planning [01;34mthen[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m5[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m4[m[31m);[m
	       [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m=[m Dialog [01;34mthen[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m4[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m3[m[31m);[m
	       [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m=[m Log [01;34mthen[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m12[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m10[m[31m);[m
	       [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m=[m Menu [01;34mthen[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m0[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m10[m[31m);[m
	       [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m=[m Moneybox [01;34mand[m
		 App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [31m=[m Activity [01;34mthen[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m4[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m1[m[31m);[m
	       [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m=[m  Manager [01;34mand[m
		 App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [31m=[m organizer [01;34mthen[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m1[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m4[m[31m);[m
	       [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mname [01;34min[m Organizer [31m..[m moneybox [01;34mthen[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m App[31m.[m[01;30mdesktop[m[31m([m[35m1[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([mMode_Enum'[01;30mPos[m[31m([mMode_Enum'[01;30mSucc[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName[31m)));[m
	       [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m=[m Activity [01;34mthen[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m5[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m6[m[31m);[m

	       [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m=[m Stocks [01;34mthen[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m6[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m7[m[31m);[m
	       [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m=[m Log [01;34mthen[m
		  
		  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m9[m[31m);[m
		  
	       [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		  [01;34mwhen[m None [31m=>[m
		     [01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m			
		  [01;34mwhen[m Log [31m=>[m
		     [01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m MoneyBox [31m=>[m
		     [01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Activity [31m=>[m
		     [01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Stocks [31m=>[m
		     [01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Bank [31m=>[m
		     [01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Planning [31m=>[m
		     [01;30mplanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Library [31m=>[m
		     [01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Manager [31m=>[m
		     [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Contacts [31m=>[m
		     [01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Menu [31m=>[m
		     [01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Organizer [31m=>[m
		     [01;30morganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Dialog[31m=>[m
		     [01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Navigation [31m=>[m
		     [01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Engineer [31m=>[m
		     [01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Devel [31m=>[m
		     [01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Admin[31m=>[m
		     [01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Terminator[31m=>[m
		     [01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Joshua [31m=>[m
		     [01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Entreprise [31m=>[m
		     [01;34mnull[m[31m;[m
		  [01;34mwhen[m Process [31m=>[m
		     [01;34mnull[m[31m;[m
		  [01;34mwhen[m Auth [31m=>[m
		     [01;30mAuth_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Gate [31m=>[m
		     [01;30mGate_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Shell_interface [31m=>[m
		     [01;30mShell_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m Self_Development [31m=>[m
		     [01;30mSelf_Development_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

		  [01;34mwhen[m Audit [31m=>[m
		     [01;30mAudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m All_manuals [31m=>[m
		     [01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;34mwhen[m [01;34mothers[m [31m=>[m
		     [01;34mnull[m[31m;[m
	       [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m			
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mplanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Menu [31m=>[m
			[01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30morganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Navigation [31m=>[m
			[01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Engineer [31m=>[m
			[01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Devel [31m=>[m
			[01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Admin[31m=>[m
			[01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Terminator[31m=>[m
			[01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Joshua [31m=>[m
			[01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Entreprise [31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m Process [31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m Gate [31m=>[m
			[01;30mGate_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Shell_interface [31m=>[m
			[01;30mShell_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m Self_Development [31m=>[m
			[01;30mSelf_Development_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

		     [01;34mwhen[m Audit [31m=>[m
			[01;30mAudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m All_manuals [31m=>[m
			[01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mplanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m Menu [31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30morganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m Entreprise [31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m Process [31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m Audit [31m=>[m
			[01;30mAudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m All_manuals [31m=>[m
			[01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mdelay[m [35m0.25[m[31m;[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mNone[31m));[m
			[01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mMoneybox[31m));[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mActivity[31m));[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mStocks[31m));[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mBank[31m));[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mPlanning[31m));[m
			[01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Menu [31m=>[m
			[31m--Errno := System("clear" & Character'Val(0));[m
			[01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mOrganizer[31m));[m
			[01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mComputer[31m));[m
			[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Navigation [31m=>[m
			[01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Engineer [31m=>[m
			[31m--Errno := System("clear" & Character'Val(0));[m
			[01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Devel [31m=>[m
			
			[01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Admin [31m=>[m
			
			[01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Terminator [31m=>[m
			[01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Joshua [31m=>[m
			[01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Entreprise [31m=>[m
			[01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Process [31m=>[m
			[01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Gate [31m=>[m
			[01;30mGate_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Shell_interface [31m=>[m
			[01;30mShell_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m Self_Development [31m=>[m
			[01;30mSelf_Development_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m audit [31m=>[m
			[01;30maudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m All_manuals [31m=>[m
			[01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m Reset[31m;[m

	    
	    
	    
	 [01;34mor[m
	    [01;34maccept[m [01;30mSwitch[m [31m([mMode [31m:[m [01;34min[m Mode_Enum[31m)[m [01;34mdo[m

	       [01;34mfor[m Log [01;34min[m Log_Enum'[01;34mRange[m [01;34mloop[m
		  [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mLog[31m));[m
	       [01;34mend[m [01;34mloop[m[31m;[m

	       
	       [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m

	       
	       [01;34mif[m Mode [31m/=[m App[31m.[mMode [01;34mthen[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m);[m
		  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
		  [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   [01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Log [31m=>[m
			   [01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m MoneyBox [31m=>[m
			   [01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Activity [31m=>[m
			   [01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Stocks [31m=>[m
			   [01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Bank [31m=>[m
			   [01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Planning [31m=>[m
			   [01;30mplanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Library [31m=>[m
			   [01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Manager [31m=>[m
			   [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Contacts [31m=>[m
			   [01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Menu [31m=>[m
			   [01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Organizer [31m=>[m
			   [01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Dialog[31m=>[m
			   [01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Navigation [31m=>[m
			   [01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Engineer [31m=>[m
			   [01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Devel [31m=>[m
			   [01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Admin[31m=>[m
			   [01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Terminator [31m=>[m
			   [01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Joshua [31m=>[m
			   [01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Entreprise [31m=>[m
			   [01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Process [31m=>[m
			   [01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Audit [31m=>[m
			   [01;30mAudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m			
			[01;34mwhen[m All_manuals [31m=>[m
			   [01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m			
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   [01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Log [31m=>[m
			   [01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m MoneyBox [31m=>[m
			   [01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Activity [31m=>[m
			   [01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Stocks [31m=>[m
			   [01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Bank [31m=>[m
			   [01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Planning [31m=>[m
			   [01;30mplanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Library [31m=>[m
			   [01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Manager [31m=>[m
			   [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Contacts [31m=>[m
			   [01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Menu [31m=>[m
			   [01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Organizer [31m=>[m
			   [01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Dialog[31m=>[m
			   [01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Navigation [31m=>[m
			   [01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Engineer [31m=>[m
			   [01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Devel [31m=>[m
			   [01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Admin [31m=>[m
			   [01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Terminator [31m=>[m
			   [01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Entreprise [31m=>[m
			   [01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Process [31m=>[m
			   [01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Audit [31m=>[m
			   [01;30mAudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m All_manuals [31m=>[m
			   [01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m Mode [31m/=[m Quit [01;34mthen[m
		     [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m/=[m Dialog [01;34mand[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [31m/=[m Entreprise [01;34mthen[m
			[01;34mnull[m[31m;[m
		     [01;34melse[m
			App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m9[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([mMode_Enum'[01;30mPos[m[31m([mMode[31m));[m
		     [01;34mcase[m App[31m.[m[01;30mdesktop[m[31m([m[35m2[m[31m).[mName [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Log [31m=>[m
			   [01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m MoneyBox [31m=>[m
			   [01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m Activity [31m=>[m
			   [01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m Stocks [31m=>[m
			   [01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m Bank [31m=>[m
			   [01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m Planning [31m=>[m
			   [01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m Library [31m=>[m
			   [01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m Manager [31m=>[m
			   [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m Contacts [31m=>[m
			   [01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m Devel [31m=>[m
			   [01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m Menu [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Organizer [31m=>[m
			   [01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m Dialog[31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Terminator [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Entreprise [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Process [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Audit [31m=>[m
			   [01;30mAudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m All_manuals [31m=>[m
			   [01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m			   
		     [01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mdelay[m [35m0.25[m[31m;[m
		     [01;34mcase[m App[31m.[m[01;30mdesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		     	[01;34mwhen[m None [31m=>[m
		     	   [01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m Log [31m=>[m
		     	   [01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m MoneyBox [31m=>[m
		     	   [01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m Activity [31m=>[m
		     	   [01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m Stocks [31m=>[m
		     	   [01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m Bank [31m=>[m
		     	   [01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m Planning [31m=>[m
		     	   [01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m Library [31m=>[m
		     	   [01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m Manager [31m=>[m
		     	   [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m Contacts [31m=>[m
		     	   [01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m Menu [31m=>[m
		     	   [31m--Errno := System("clear" & Character'Val(0));[m
		     	   [01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m Organizer [31m=>[m
		     	   [01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m Dialog[31m=>[m
		     	   [01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Navigation [31m=>[m
			   [01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Engineer [31m=>[m
			   [01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Devel [31m=>[m
			   [01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Admin[31m=>[m

			   [01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Terminator [31m=>[m
			   
			   [01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Joshua [31m=>[m
			   
			   [01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Entreprise [31m=>[m
			   [01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Process [31m=>[m
			   [01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Audit [31m=>[m
			   [01;30mAudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m All_manuals [31m=>[m
			   [01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
		     	[01;34mwhen[m [01;34mothers[m [31m=>[m
		     	   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  App[31m.[mMode [31m:=[m Mode[31m;[m
		  
		  
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m Switch[31m;[m 	
	    [01;34mcase[m App[31m.[mMode [01;34mis[m
	       [01;34mwhen[m Quit [31m=>[m
		  
		  [01;34mif[m End_Of_This_Task [01;34mthen[m
		     [01;34maccept[m Halt[31m;[m
		     
		     [01;34mfor[m Mode [01;34min[m Functions'[01;34mRange[m [01;34mloop[m
			
			[01;34mif[m [01;30mFunctions[m[31m([mMode[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m

			   [01;34mcase[m [01;30mFunctions[m[31m([mMode[31m).[mName [01;34mis[m
			      [01;34mwhen[m None [31m=>[m
				 [01;30mNone_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Log [31m=>[m
				 [01;30mLogs_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m MoneyBox [31m=>[m
				 [01;30mMoneybox_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Activity [31m=>[m
				 [01;30mActivity_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Stocks [31m=>[m
				 [01;30mStocks_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Bank [31m=>[m
				 [01;30mbank_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Planning [31m=>[m
				 [01;30mplanning_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Library [31m=>[m
				 [01;30mLibrary_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Manager [31m=>[m
				 [01;30mManager_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Contacts [31m=>[m
				 [01;30mContacts_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Menu [31m=>[m
				 [01;30mMenu_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Organizer [31m=>[m
				 [01;30morganizer_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Dialog[31m=>[m
				 [01;30mVbrain_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Navigation [31m=>[m
				 [01;30mMaster_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Engineer [31m=>[m
				 [01;30mEngine_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Devel [31m=>[m
				 [01;30mDevel_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Admin[31m=>[m
				 [01;30mWOPR_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Terminator [31m=>[m
				 [01;30mWorkstation_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Joshua [31m=>[m
				 [01;30mSpace_Fighter_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Entreprise [31m=>[m
				 [01;30mPerson_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Process [31m=>[m
				 [01;30mWorld_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Gate [31m=>[m
				 [01;30mGate_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Shell_interface [31m=>[m
				 [01;30mShell_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Self_Development [31m=>[m
				 [01;30mSelf_Development_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Audit [31m=>[m
				 [01;30mAudits_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m All_manuals [31m=>[m
				 [01;30mAll_manuals_Record[m[31m([m[01;30mFunctions[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
		     [01;34mend[m [01;34mloop[m[31m;[m		     
		     
		     
		     [01;34mexit[m[31m;[m		   		     
		     
		  [01;34melse[m
		     
		     [01;30mGate_Record[m[31m([m[01;30mFunctions[m[31m([m[35m36[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		     W_Io[31m.[m[01;30mPut[m[31m([m[31m"Realy quit ?"[m[31m);[m
		     App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m0[m[31m);[m
		     App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m		  
		  End_Of_This_Task [31m:=[m True[31m;[m
	       [01;34mwhen[m None [31m=>[m
		  [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mNone[31m));[m
		  End_Of_This_Task [31m:=[m False[31m;[m
	       [01;34mwhen[m Organizer[31m..[mAdmin [31m=>[m
		  [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   
			   [01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
			   
			[01;34mwhen[m Log [31m=>[m
			   [01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m MoneyBox [31m=>[m
			   [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mMoneybox[31m));[m
			   [01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			   
			[01;34mwhen[m Activity [31m=>[m
			   [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mActivity[31m));[m
			   [01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Stocks [31m=>[m
			   [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mstocks[31m));[m
			   [01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Bank [31m=>[m
			   [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mbank[31m));[m
			   [01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Planning [31m=>[m
			   [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mplanning[31m));[m
			   [01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Library [31m=>[m
			   [01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Manager [31m=>[m
			   [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Contacts [31m=>[m
			   [01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Menu [31m=>[m
			   [31m--Errno := System("clear" & Character'Val(0));[m
			   [01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Organizer [31m=>[m
			   [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mOrganizer[31m));[m
			   [01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Dialog[31m=>[m
			   [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mcomputer[31m));[m
			   [01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Navigation [31m=>[m
			   [01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Engineer [31m=>[m
			   [01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Devel [31m=>[m
			   [01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Admin[31m=>[m

			   [01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Terminator [31m=>[m

			   [01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Joshua [31m=>[m
			   
			   [01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Entreprise [31m=>[m
			   [01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Process [31m=>[m
			   [01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Audit [31m=>[m
			   [01;30mAudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m All_manuals [31m=>[m
			   [01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			
			
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mwhen[m Gate [31m=>[m

		  [01;30mGate_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
	       [01;34mwhen[m Auth [31m=>[m

		  [01;30mAuth_Record[m[31m([m[01;30mfunctions[m[31m([mMode_Enum'[01;30mPos[m[31m([mAuth[31m)).[m[01;34mall[m[31m).[mProc[31m.[mAuth[31m;[m
	       [01;34mwhen[m Self_Development [31m=>[m
		  [01;30mGate_Record[m[31m([m[01;30mFunctions[m[31m([m[35m36[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

		  [01;30mSelf_Development_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m

	       [01;34mwhen[m Shell_interface [31m=>[m
		  [01;30mGate_Record[m[31m([m[01;30mFunctions[m[31m([m[35m36[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m

		  [01;30mshell_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
	       [01;34mwhen[m Audit [31m=>[m
		  [01;30mGate_Record[m[31m([m[01;30mFunctions[m[31m([m[35m36[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;30mAudits_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
	       [01;34mwhen[m All_manuals [31m=>[m
		  [01;30mGate_Record[m[31m([m[01;30mFunctions[m[31m([m[35m36[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m


	       [01;34mwhen[m [01;34mothers[m [31m=>[m
		  [01;34mnull[m[31m;[m
	    [01;34mend[m [01;34mcase[m[31m;[m
	    
	    

	    
	 [01;34mor[m
	    [01;34maccept[m [01;30mSet_On_Esc[m[31m([mIs_Escape [31m:[m [01;34min[m [32mBoolean[m[31m)[m [01;34mdo[m            
	       App[31m.[mOn_Esc [31m:=[m Is_Escape[31m;[m
	    [01;34mend[m Set_On_Esc[31m;[m
	 [01;34mor[m
	    [01;34maccept[m Page_Down [01;34mdo[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Menu [31m=>[m
			[01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Navigation [31m=>[m
			[01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Engineer [31m=>[m
			[01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Devel [31m=>[m
			[01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Admin[31m=>[m
			[01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Terminator [31m=>[m
			[01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Joshua [31m=>[m
			[01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Entreprise [31m=>[m
			[01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Process [31m=>[m
			[01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m Shell_Interface [31m=>[m
			[01;30mShell_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m All_manuals [31m=>[m
			[01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Down[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m Page_Down[31m;[m
	 [01;34mor[m
	    [01;34maccept[m Page_Up [01;34mdo[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Menu [31m=>[m
			[01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Navigation [31m=>[m
			[01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Engineer [31m=>[m
			[01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Devel [31m=>[m
			[01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Admin[31m=>[m
			[01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Terminator [31m=>[m
			[01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Joshua [31m=>[m
			[01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Entreprise [31m=>[m
			[01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Process [31m=>[m
			[01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m Shell_Interface [31m=>[m
			[01;30mShell_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m All_manuals [31m=>[m
			[01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mPage_Up[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m Page_Up[31m;[m
	 [01;34mor[m
	    [01;34maccept[m Up_Arrow [01;34mdo[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Menu [31m=>[m
			[01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Navigation [31m=>[m
			[01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Engineer [31m=>[m
			[01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Devel [31m=>[m
			[01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Admin[31m=>[m

			[01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m

		     [01;34mwhen[m Terminator [31m=>[m
			
			[01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Joshua [31m=>[m
			
			[01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Entreprise [31m=>[m
			[01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Process [31m=>[m
			[01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Gate [31m=>[m
			[01;30mGate_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m Shell_interface [31m=>[m
			[01;30mShell_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m All_manuals [31m=>[m
			[01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mUp_Arrow[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m up_arrow[31m;[m
	 [01;34mor[m
	    [01;34maccept[m Down_Arrow [01;34mdo[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Menu [31m=>[m
			[01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Navigation [31m=>[m
			[01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Engineer [31m=>[m
			[01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Devel [31m=>[m
			[01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Admin[31m=>[m

			[01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
			
		     [01;34mwhen[m Terminator [31m=>[m

			[01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Joshua [31m=>[m

			[01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m

		     [01;34mwhen[m Entreprise [31m=>[m
			[01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Process [31m=>[m
			[01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Gate [31m=>[m
			[01;30mGate_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m Shell_Interface [31m=>[m
			[01;30mShell_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m
		     [01;34mwhen[m All_manuals [31m=>[m
			[01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDown_Arrow[31m;[m

		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m Down_Arrow[31m;[m
	 [01;34mor[m
	    [01;34maccept[m Left_Arrow [01;34mdo[m
	       	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Menu [31m=>[m
			[01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Navigation [31m=>[m
			[01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Engineer [31m=>[m
			[01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Devel [31m=>[m
			[01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Admin[31m=>[m

			[01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
			
		     [01;34mwhen[m Terminator [31m=>[m

			[01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Joshua [31m=>[m

			[01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m

		     [01;34mwhen[m Entreprise [31m=>[m
			[01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m Process [31m=>[m
			[01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mLeft_Arrow[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m

	    [01;34mend[m Left_Arrow[31m;[m
	 [01;34mor[m
	    [01;34maccept[m Right_Arrow [01;34mdo[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Menu [31m=>[m
			[01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Navigation [31m=>[m
			[01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Engineer [31m=>[m
			[01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Devel [31m=>[m
			[01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Admin[31m=>[m

			[01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
			
		     [01;34mwhen[m Terminator [31m=>[m

			[01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Joshua [31m=>[m

			[01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m

		     [01;34mwhen[m Entreprise [31m=>[m
			[01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m Process [31m=>[m
			[01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mRight_Arrow[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	       
	    [01;34mend[m Right_Arrow[31m;[m
	 [01;34mor[m
	    [01;34maccept[m Del [01;34mdo[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m [01;34min[m Devel_Record [01;34mthen[m
		     [01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mDel[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m Del[31m;[m
	 [01;34mor[m
	    [01;34maccept[m Begin_Of [01;34mdo[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Menu [31m=>[m
			[01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Navigation [31m=>[m
			[01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Engineer [31m=>[m
			[01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Devel [31m=>[m
			[01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Admin[31m=>[m
			[01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Terminator [31m=>[m
			[01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Joshua [31m=>[m
			[01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Entreprise [31m=>[m
			[01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m Process [31m=>[m
			[01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m All_manuals [31m=>[m
			[01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mBegin_Of[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m Begin_Of[31m;[m
	 [01;34mor[m
	    [01;34maccept[m End_Of [01;34mdo[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Log [31m=>[m
			[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m MoneyBox [31m=>[m
			[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Activity [31m=>[m
			[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Stocks [31m=>[m
			[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Bank [31m=>[m
			[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Library [31m=>[m
			[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Manager [31m=>[m
			[01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Contacts [31m=>[m
			[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Menu [31m=>[m
			[01;30mMenu_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Organizer [31m=>[m
			[01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Dialog[31m=>[m
			[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Navigation [31m=>[m
			[01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Engineer [31m=>[m
			[01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Devel [31m=>[m
			[01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Admin[31m=>[m
			[01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Terminator [31m=>[m
			[01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Joshua [31m=>[m
			[01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Entreprise [31m=>[m
			[01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m Process [31m=>[m
			[01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m All_manuals [31m=>[m
			[01;30mAll_manuals_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mEnd_Of[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m End_Of[31m;[m
	    
	    
	 [01;34mor[m
	    [01;34maccept[m Full_Screen [01;34mdo[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m [01;34min[m Devel_Record [01;34mthen[m
		     [01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mFull_screen[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m Full_Screen[31m;[m
		     
	    
	 [01;34mor[m
	    [01;34maccept[m Overwrite [01;34mdo[m
	       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m [01;34min[m Devel_Record [01;34mthen[m
		     [01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mOverwrite[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m Overwrite[31m;[m
	 [01;34mend[m [01;34mselect[m[31m;[m	 
      [01;34mend[m [01;34mloop[m[31m;[m
      [31m--W_Io.Put_Line("System halted.");[m
   [01;34mend[m Console_Process[31m;[m
   
   [01;34mprocedure[m [01;30mPrint_Logs[m [31m([mLogs [31m:[m [01;34min[m Log_Array[31m;[m Win [31m:[m [01;34min[m Window_Record[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Total [31m:[m Rate_Type [31m:=[m [35m0.0[m[31m;[m
   [01;34mbegin[m
      
      [01;30mEnlight_Window[m[31m([mWin[31m);[m
      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
      [01;34mfor[m Log [01;34min[m Log_Enum'[01;34mrange[m [01;34mloop[m
	 [01;30mDraw_Text[m[31m([mWin[31m,[m Log_Enum'[01;30mPos[m[31m([mLog[31m)[m [31m+[m [35m3[m[31m,[m [35m2[m[31m,[m Yellow[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLog_Enum'[01;30mImage[m[31m([mLog[31m)));[m
	 [01;30mDraw_Text[m[31m([mWin[31m,[m Log_Enum'[01;30mPos[m[31m([mLog[31m)[m [31m+[m [35m3[m[31m,[m [35m15[m[31m,[m white[31m,[m [31m" : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([m[01;30mLogs[m[31m([mLog[31m).[mRate[31m)));[m
	 Total [31m:=[m Total [31m+[m [01;30mLogs[m[31m([mLog[31m).[mRate[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m Log_Enum'[01;30mPos[m[31m([mLog_Enum'Last[31m)[m [31m+[m [35m4[m[31m,[m [35m2[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m(([m[35m22[m [31m*[m [31m'-'[m[31m)));[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m Log_Enum'[01;30mPos[m[31m([mLog_Enum'Last[31m)[m [31m+[m [35m5[m[31m,[m [35m2[m[31m,[m white[31m,[m [31m"Total "[m[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m Log_Enum'[01;30mPos[m[31m([mLog_Enum'Last[31m)[m [31m+[m [35m5[m[31m,[m [35m15[m[31m,[m green[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mTotal[31m)));[m
   [01;34mend[m Print_Logs[31m;[m
   
   
   
   The_Window [31m:[m Window_Type[31m;[m
   
   [01;34mtask[m [01;34mbody[m Logs_Process [01;34mis[m
      
      
      Log_Win [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      
      
      
   [01;34mbegin[m

  Main_Loop[31m:[m
      [01;34mLoop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [01;30mInitialize[m[31m([mLog_Win[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		  [01;30mPrint_Logs[m[31m([mApp[31m.[mLogs[31m,[m Log_Win[31m,[m Top[31m);[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Up_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m      
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [01;30mInitialize[m[31m([mLog_Win[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		  [01;30mPrint_Logs[m[31m([mApp[31m.[mLogs[31m,[m Log_Win[31m,[m Top[31m);[m

		  
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_loop[31m;[m
      [31m--W_Io.Put_Line("log process halted");[m
   [01;34mend[m Logs_Process[31m;[m
   
   [01;34mfunction[m [01;30mCol_Count[m [31m([mLine [31m:[m [01;34min[m [32mWide_String[m[31m;[mTo [31m:[m [01;34min[m Natural[31m;[mTxt [31m:[m [32mBoolean[m[31m)[m [01;34mreturn[m Natural [01;34mis[m
      Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      [01;34mif[m To [31m=[m [35m0[m [01;34mthen[m
	 [01;34mreturn[m To[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mfor[m Wchar [01;34min[m Line'First[31m..[mTo [01;34mloop[m
	 [01;34mcase[m [01;30mLine[m[31m([mWchar[31m)[m [01;34mis[m
	    [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m
	       [01;34mif[m Txt [01;34mthen[m
		  Count [31m:=[m Count [31m+[m [35m3[m[31m;[m
	       [01;34melse[m
		  Count [31m:=[m Count [31m+[m [35m1[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       Count [31m:=[m Count [31m+[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mcase[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mreturn[m Count[31m;[m
   [01;34mend[m Col_Count[31m;[m

   [01;34mfunction[m [01;30mLine_Count[m [31m([mFilename [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mreturn[m Natural [01;34mis[m
      File [31m:[m Text_Io[31m.[mFile_Type[31m;[m
      Line_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Dot [31m:[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mFilename[31m,[m [31m"."[m[31m,[m Backward[31m);[m
      Txt [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   [01;34mbegin[m
      [01;34mif[m Dot [31m/=[m [35m0[m [01;34mand[m [01;34mthen[m
	[01;30mFilename[m[31m([mDot[31m..[mFilename'Last[31m)[m [31m=[m [31m"txt"[m [01;34mthen[m
	 Txt [31m:=[m True[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Text_Io[31m.[mIn_File[31m,[m Filename[31m);[m
      [01;34mwhile[m [01;34mnot[m Text_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
	 [01;34mdeclare[m
	    Line [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Text_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m);[m
	 [01;34mbegin[m
	    
	    [31m--Line_Count := Line_Count + Col_Count(Handling.To_Wide_String(Line), Line'Last, Txt) / (columns-1) + 1;[m
	    Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
      
      [01;34mreturn[m Line_Count[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Exception"[m[31m);[m
	 [01;34mraise[m[31m;[m
   [01;34mend[m Line_Count[31m;[m

   
   [01;34mtask[m [01;34mbody[m CPU_Process [01;34mis[m
      
      Cpu_Cmd [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"sh -c """[m [31m&[m Home_Dir [31m&[m [31m"/bin/main_cpu > "[m [31m&[m Home_Dir [31m&[m [31m"/.cpu_usage.txt"""[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m);[m
      Cpu_File [31m:[m Text_Io[31m.[mFile_Type[31m;[m
      Cpu_Error [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
      Cpu [31m:[m Cpu_String [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
      Success  [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   [01;34mbegin[m
      [01;34mloop[m
	 [01;34mselect[m
	    [01;34maccept[m Initialize [01;34mdo[m
	       Cpu_Error [31m:=[m [01;30mSystem[m[31m([mCpu_Cmd[31m);[m
	       
	       [01;34mif[m [01;30mIs_Regular_File[m[31m([mHome_Dir [31m&[m [31m"/.cpu_usage.txt"[m[31m)[m [01;34mthen[m
		  Cpu [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
		  
		  Text_Io[31m.[m[01;30mOpen[m[31m([mCpu_File[31m,[m Text_Io[31m.[mIn_File[31m,[m Home_Dir [31m&[m [31m"/.cpu_usage.txt"[m[31m);[m
		  [01;34mdeclare[m
		     Line [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mGet_Line[m[31m([mCpu_File[31m);[m
		     Pos  [31m:[m Natural [31m:=[m Line'Length [31m+[m [31m(([mCpu_String'Length[31m-[m[35m1[m[31m)[m [31m-[m Line'Length[31m)[m [31m;[m
		  [01;34mbegin[m
		     
		     [01;34mfor[m I [01;34min[m [01;34mreverse[m Line'[01;34mRange[m [01;34mloop[m
			[01;30mCpu[m[31m([mPos[31m)[m [31m:=[m [01;30mLine[m[31m([mI[31m);[m
			Pos [31m:=[m Pos [31m-[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		     [01;30mCpu[m[31m([mCpu'Length[31m)[m [31m:=[m [31m'%'[m[31m;[m
		  [01;34mend[m[31m;[m
		  
		  Text_Io[31m.[m[01;30mClose[m[31m([mCpu_File[31m);[m
		  
		  [01;30mDelete_File[m[31m([mHome_Dir [31m&[m [31m"/.cpu_usage.txt"[m[31m,[m Success[31m);[m
		  
	       [01;34mend[m [01;34mif[m[31m;[m
	       
	       
	    [01;34mend[m Initialize[31m;[m
	 [01;34mor[m
	    [01;34maccept[m [01;30mCpu_Get[m[31m([mCPU_Usage [31m:[m [01;34mout[m CPU_String[31m)[m [01;34mdo[m
	       CPU_Usage [31m:=[m Cpu[31m;[m
	    [01;34mend[m Cpu_Get[31m;[m
	 [01;34mor[m
	    [01;34maccept[m Halt[31m;[m
	    [01;34mexit[m[31m;[m
	 [01;34mend[m [01;34mselect[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
   [01;34mend[m CPU_Process[31m;[m
   
   
   
   [01;34mtask[m [01;34mbody[m Self_Development_Process [01;34mis[m

   [01;34mbegin[m
      
  Main_Loop[31m:[m
      [01;34mloop[m
  	 [01;34mloop[m
  	    [01;34mselect[m
  	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
  	    [01;34mor[m
  	       [01;34maccept[m Halt[31m;[m
  	       [01;34mexit[m Main_loop[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
  		  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Self_Development"[m[31m);[m
  	       [01;34mend[m Wake_Up[31m;[m
  	    [01;34mor[m
	       
  	       [01;34maccept[m Suspend[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Refresh[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Page_Down[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Page_Up[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Up_Arrow [01;34mdo[m
  		  [01;34mnull[m[31m;[m
  	       [01;34mend[m up_arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Down_Arrow [01;34mdo[m
  		  [01;34mnull[m[31m;[m
  	       [01;34mend[m Down_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Left_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Right_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Del[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Begin_Of[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m End_Of[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Overwrite[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Full_Screen[31m;[m

  	    [01;34mend[m [01;34mselect[m[31m;[m
  	 [01;34mend[m [01;34mloop[m[31m;[m
  	 [01;34mloop[m
  	    [01;34mselect[m
	       
  	       [01;34maccept[m Halt[31m;[m
  	       [01;34mexit[m Main_Loop[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Suspend[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
  		  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Self_Development"[m[31m);[m
  		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Greetings "[m [31m&[m [01;30mGetenv[m[31m([m[31m"USER"[m[31m).[m[01;34mall[m [31m&[m [31m"!"[m[31m);[m
		  
  	       [01;34mend[m Wake_Up[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mend[m [01;34mselect[m[31m;[m
  	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Self_Development process halted");[m
   [01;34mend[m Self_Development_Process[31m;[m

   
   
   [01;34mfunction[m [01;30mParse_Man_Command[m [31m([mMan [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mreturn[m [32mString[m [01;34mis[m         
      
      Man_Line [31m:[m [01;34maccess[m [32mString[m[31m;[m
   [01;34mbegin[m
      [01;34mif[m Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mMan[m[31m([mFixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mMan[31m)..[mMan'Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mand[m [01;34mthen[m
        Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mMan[31m,[m Backward[31m)[m [31m/=[m 
        Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mMan[m[31m([mFixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mMan[31m)..[mMan'Last[31m),[m [31m" "[m[31m)[m [01;34mthen[m
         [01;34mbegin[m
            [01;34mdeclare[m
               Line [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mMan[m[31m([mFixed[31m.[mIndex
                                               [31m([m[01;30mMan[m[31m([mFixed[31m.[mIndex_Non_Blank
                                                      [31m([mMan[31m)..[mMan'Last[31m),[m
                                                [31m" "[m[31m)+[m[35m1[m[31m..[mFixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mMan[31m,[m Backward[31m));[m               
            [01;34mbegin[m
               [01;34mif[m Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mLine[m[31m([mFixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m)..[mLine'Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mand[m [01;34mthen[m
                 Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m,[m Backward[31m)[m [31m/=[m 
                 Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mLine[m[31m([mFixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m)..[mLine'Last[31m),[m [31m" "[m[31m)[m [01;34mthen[m
                  [01;34mbegin[m
                     [01;34mdeclare[m                        
                        Section [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mLine[m[31m([mLine'First[31m..[mLine'First[31m);[m
                        
                        Manual [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"/usr/share/man/man"[m [31m&[m 
			  Section [31m&[m [31m'/'[m [31m&[m [01;30mline[m[31m([mFixed[31m.[mIndex
						 [31m([mLine[31m,[m [31m" "[m[31m,[m Backward[31m)+[m[35m1[m[31m..[mFixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mline[31m,[m Backward[31m))[m [31m&[m [31m'.'[m [31m&[m Section [31m&[m [31m".gz"[m[31m;[m
                     [01;34mbegin[m
                        Man_Line [31m:=[m [01;34mNew[m [32mString[m ' [31m([m[31m"man -Pcat "[m [31m&[m Manual[31m);[m
                     [01;34mend[m[31m;[m
                  [01;34mend[m[31m;[m
               [01;34melse[m
                  [01;34mreturn[m [31m""[m[31m;[m
               [01;34mend[m [01;34mif[m[31m;[m
            [01;34mend[m[31m;[m
         [01;34mend[m[31m;[m              
      [01;34melse[m
         [01;34mreturn[m [31m""[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m Man_Line[31m.[m[01;34mall[m[31m;[m
   [01;34mend[m Parse_Man_Command[31m;[m

   
   [01;34mprocedure[m [01;30mMan_Info[m [31m([mWindow [31m:[m [01;34min[m Ansi_Windows[31m.[mWindow_Type[31m)[m [01;34mis[m
   [01;34mbegin[m
      Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m White[31m,[m [31m"1 General Commands ; 2 System Calls ;"[m[31m);[m
      Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m2[m[31m,[m [35m3[m[31m,[m White[31m,[m [31m"3 Library functions, covering in particular the C standard Library ;"[m[31m);[m
      Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m3[m[31m,[m [35m3[m[31m,[m White[31m,[m [31m"4 Special files (usually devices, those found in /dev) and Drivers ;"[m[31m);[m
      Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m4[m[31m,[m [35m3[m[31m,[m White[31m,[m [31m"5 File formats and Conventions ; 6 Games and Screensavers ;"[m[31m);[m
      Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m5[m[31m,[m [35m3[m[31m,[m White[31m,[m [31m"7 Miscellanea ; 8 System administration commands and Daemons."[m[31m);[m         
   [01;34mend[m Man_Info[31m;[m                                                                             
   
   
   [01;34mprocedure[m [01;30mSystem[m [31m([mWindow [31m:[m [01;34min[m Ansi_Windows[31m.[mWindow_Type[31m;[m Shell_Interface [31m:[m [01;34min[m Main_Interface_Access[31m;[m Pattern [31m:[m [01;34min[m [32mWide_String[m[31m;[m Errno [31m:[m [01;34mout[m [32mInteger[m[31m)[m [01;34mis[m
      
      
   [01;34mbegin[m
      
      [31m-- Messages pour que l'utilisateur(rice) ne se sente pas perdu(e).[m

      Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m);[m      

      Ansi_windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"waitting process..."[m[31m);[m

      Ansi_windows[31m.[m[01;30mMove_Cursor_To[m[31m([mWindow[31m,[m [35m1[m[31m,[m [35m3[m[31m);[m

      [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m,[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mand[m [01;34mthen[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m,[m [31m" "[m[31m)[m [31m<[m Pattern'last [01;34mthen[m
	 
	 [01;34mdeclare[m
	    
	    Expanded_Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mTo_Wide_String[m[31m([mTools[31m.[m[01;30mExpand_Filename[m[31m([mUTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mEncode[m[31m([m[01;30mPattern[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mPattern'Last[31m))));[m
	    
	 [01;34mbegin[m	       
	    W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Expanded line : "[m [31m&[m Expanded_Line[31m);[m
	    [01;34mdeclare[m
	       
	       Command_Line  [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mPattern[m[31m([mPattern'First[31m..[mWide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m,[m [31m" "[m[31m)-[m[35m1[m[31m)[m [31m&[m [31m' '[m [31m&[m Expanded_Line[31m;[m
	    [01;34mbegin[m
	       [31m--Put_Line("Ok !");[m
	       Shell_Interface[31m.[mSpawn_Result [31m:=[m Operating_System[31m.[m[01;30mSpawn[m[31m([mUTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mEncode[m[31m([mCommand_Line[31m));[m
	       [31m--Put_Line("Ok !");[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m[31m;[m
	 
      [01;34melse[m
	 
	 Shell_Interface[31m.[mSpawn_Result [31m:=[m Operating_System[31m.[m[01;30mSpawn[m[31m([mUTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mEncode[m[31m([mPattern[31m));[m   

      [01;34mend[m [01;34mif[m[31m;[m

      Errno [31m:=[m Shell_Interface[31m.[mSpawn_Result[31m.[mReturn_Code[31m;[m
   [01;34mend[m System[31m;[m
   
   
   [01;34mprocedure[m [01;30mDraw_Buffer[m [31m([mSpawn_Result [31m:[m [01;34min[m Adam[31m.[mResults[31m.[mSpawn_Result_Type[31m;[m Win [31m:[m [01;34min[m Ansi_Windows[31m.[mWindow_Type[31m;[m File_Index [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Line_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Result_Max_Lines [31m:[m Positive [31m:=[m Win[31m.[mH[31m-[m[35m2[m[31m;[m
      Line_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m              
      Term_Width [31m:[m [01;34mconstant[m Natural [31m:=[m Win[31m.[mW[31m-[m[35m2[m[31m;[m
   [01;34mbegin[m
      
      


  Print_Loop[31m:[m
      
	 [01;34mfor[m I [01;34min[m File_Index[31m+[m[35m1[m[31m..[mPositive'[01;30mmin[m[31m([mFile_Index[31m+(([mResult_Max_Lines[31m-[m[35m1[m[31m)),[m 
					     Spawn_Result[31m.[mFile_content'Length[31m)[m [01;34mloop[m


	    [01;34mdeclare[m
	       tmp [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m 
		 [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mSpawn_Result[31m.[m[01;30mFile_content[m[31m([mI[31m)));[m
	       Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mTmp[m[31m([mTmp'First[31m..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mTmp[31m),[m Backward[31m));[m
	       
	       Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Term_Width[31m;[m
	       Lines_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [31m([mResult_Max_Lines[31m-[m[35m5[m[31m);[m
	       Pro_Index [31m:[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"true"[m[31m);[m
	       Against [31m:[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"false"[m[31m);[m
	       Next [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	    [01;34mbegin[m	       
	       
	       [01;34mif[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m>[m [35m0[m [01;34mand[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m<[m [31m([mChars_Max [31m*[m Lines_Max[31m)[m [01;34mthen[m
		  [01;34mfor[m Line_Window [01;34min[m Line_Index[31m..[m[32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m([mLine[31m)/[mChars_Max[31m,[m Lines_Max[31m)[m [01;34mloop[m
		     
		     [01;34mdeclare[m
			B_Inf [31m:[m [01;34mconstant[m Positive [31m:=[m Line_Window[31m*[mChars_Max [31m+[m [35m1[m[31m;[m
			B_Sup [31m:[m [01;34mconstant[m Positive [31m:=[m [32mInteger[m'[01;30mmin[m[31m(([mLine_Window [31m+[m [35m1[m[31m)*[mChars_Max[31m,[m [01;30mReal_Length[m[31m([mLine[31m));[m
		     [01;34mbegin[m

			[01;34mif[m [01;30mReal_length[m[31m([mLine[31m)[m [31m<[m Chars_max [01;34mthen[m
			   
			   [01;34mif[m Pro_Index [31m/=[m [35m0[m [01;34mthen[m
			      [01;34mif[m Line'Length [31m>=[m Pro_Index [31m+[m [35m4[m [01;34mthen[m
				 
				 Next [31m:=[m Pro_Index [31m+[m [35m4[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34melsif[m Against [31m/=[m [35m0[m [01;34mthen[m
			      [01;34mif[m Line'Length [31m>=[m against [31m+[m [35m4[m [01;34mthen[m
				 
				 Next [31m:=[m Against [31m+[m [35m4[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   

			   [01;34mif[m Next [31m/=[m [35m0[m [01;34mthen[m
			      [01;34mif[m Pro_Index [31m/=[m [35m0[m [01;34mthen[m
				 
				 Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mLine'First[31m..[mPro_Index[31m-[m[35m1[m[31m));[m

				 Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Pro_Index[31m,[m Cyan[31m,[m [01;30mLine[m[31m([mPro_Index[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m

				 [01;34mif[m Line'Length [31m>[m Next [01;34mthen[m
				    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Pro_Index[31m+[m[35m5[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mLine'Last[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m

			      [01;34melse[m

				 Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mLine'First[31m..[mAgainst[31m-[m[35m1[m[31m));[m

				 Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Against[31m,[m Red[31m,[m [01;30mLine[m[31m([mAgainst[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m

				 [01;34mif[m Line'Length [31m>[m Next [01;34mthen[m
				    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Against[31m+[m[35m5[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mLine'Last[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34melse[m

			      Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Line[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34melse[m

			   [01;34mif[m Next [31m/=[m [35m0[m [01;34mthen[m
			      [01;34mif[m Pro_Index [31m/=[m [35m0[m [01;34mthen[m
				 
				 [01;34mif[m Pro_Index [31m<[m B_Sup [01;34mand[m Pro_Index [31m>[m B_Inf [01;34mand[m Next [31m<[m B_Sup [01;34mthen[m

				    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mPro_Index[31m-[m[35m1[m[31m));[m

				    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Pro_Index[31m,[m Cyan[31m,[m [01;30mLine[m[31m([mPro_Index[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m

				    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mB_Sup[31m));[m

				 [01;34melse[m
				    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m

			      [01;34melsif[m Against [31m/=[m [35m0[m [01;34mthen[m

				 [01;34mif[m Against [31m<[m B_Sup [01;34mand[m Against [31m>[m B_Inf [01;34mand[m Next [31m<[m B_Sup [01;34mthen[m

				    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mAgainst[31m-[m[35m1[m[31m));[m

				    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Against[31m,[m Cyan[31m,[m [01;30mLine[m[31m([mAgainst[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m

				    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Against[31m+[m[35m5[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mB_Sup[31m));[m

				 [01;34melse[m
				    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m

			   [01;34melse[m

			      Ansi_Windows[31m.[m[01;30mDraw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m

			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

		     [01;34mend[m[31m;[m
		     Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m

		     [01;34mexit[m Print_Loop [01;34mWhen[m Line_Count [31m>[m [31m([mResult_Max_Lines[31m-[m[35m1[m[31m);[m
		  [01;34mend[m [01;34mloop[m[31m;[m
	       [01;34melse[m

		  Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m                           

	    [01;34mend[m[31m;[m
	    [01;34mexit[m Print_Loop [01;34mwhen[m Line_Count [31m>[m [31m([mResult_Max_Lines[31m-[m[35m1[m[31m);[m
	 [01;34mend[m [01;34mloop[m Print_Loop[31m;[m




   [01;34mend[m Draw_Buffer[31m;[m

      
      
   
   W3 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Quit (exit program) window information.[m
					       L [31m=>[m Lines[31m-[m[35m5[m[31m,[m
					       C [31m=>[m  [35m1[m[31m,[m
					       H [31m=>[m  [35m3[m[31m,[m
					       W [31m=>[m Columns[31m,[m
					       Frame_Type      [31m=>[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m
					       Frame_Color     [31m=>[m M[31m.[mAnsi[31m.[mConsole[31m.[mYellow[31m,[m
					       Close_Box_Color [31m=>[m M[31m.[mAnsi[31m.[mConsole[31m.[mRed[31m);[m
   W4 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Status message Window.[m
					       L [31m=>[m  [35m4[m[31m,[m
					       C [31m=>[m  [35m1[m[31m,[m
					       H [31m=>[m  [35m7[m[31m,[m
					       W [31m=>[m Columns[31m,[m
					       Frame_Type      [31m=>[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m
					       Frame_Color     [31m=>[m Yellow[31m,[m
					       Close_Box_Color [31m=>[m Red[31m);[m
   W5 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Quit (exit program) window information.[m
					       L [31m=>[m [35m12[m[31m,[m
					       C [31m=>[m  [35m1[m[31m,[m
					       H [31m=>[m  Lines[31m-[m[35m16[m[31m,[m
					       W [31m=>[m Columns[31m,[m
					       Frame_Type      [31m=>[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m
					       Frame_Color     [31m=>[m M[31m.[mAnsi[31m.[mConsole[31m.[mYellow[31m,[m
					       Close_Box_Color [31m=>[m M[31m.[mAnsi[31m.[mConsole[31m.[mwhite[31m);[m
   
   Shell_Interface [31m:[m Main_Interface_Access [31m:=[m New_Interface[31m;[m
   
   [01;34mtask[m [01;34mbody[m All_Manuals_Process [01;34mis[m
      
      Buffer [31m:[m Wide_Access[31m;[m
      Line [31m:[m Wide_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
      File_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
   [01;34mbegin[m
      
  Main_Loop[31m:[m
      [01;34mloop[m
  	 [01;34mloop[m
  	    [01;34mselect[m
  	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		  [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
		     [01;34mcase[m Wchar [01;34mis[m
			[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			   [01;34mdeclare[m
			      Man_Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mTo_Wide_String[m[31m([m[01;30mParse_Man_Command[m[31m([m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m)));[m
			   [01;34mbegin[m                                                  
			      [31m--Ansi_Console.Clear_screen;[m
			      [01;34mif[m Man_Line'Length [31m>[m [35m0[m [01;34mthen[m
				 Adam[31m.[mResults[31m.[m[01;30mFree[m[31m([mShell_Interface[31m.[mSpawn_Result[31m.[mFile_Content[31m);[m
				 [01;30mSystem[m[31m([mW3[31m,[m Shell_Interface[31m,[m Man_Line[31m,[m errno[31m);[m
				 [31m--Ansi_windows.Clear_screen;[m
				 [01;34mif[m Errno [31m=[m [35m0[m [01;34mthen[m
				    [01;34mif[m Shell_Interface[31m.[mSpawn_Result[31m.[mArgs [31m/=[m [01;34mnull[m [01;34mthen[m
				       [01;34mfor[m Arg [01;34min[m Shell_Interface[31m.[mSpawn_Result[31m.[mArgs'[01;34mRange[m [01;34mloop[m
					  [01;30mFree[m[31m([mShell_Interface[31m.[mSpawn_Result[31m.[m[01;30mArgs[m[31m([mArg[31m));[m
				       [01;34mend[m [01;34mloop[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m                                                         
				 [01;34mend[m [01;34mif[m[31m;[m

				 Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW5[31m);[m

				 [01;30mDraw_Buffer[m[31m([mShell_Interface[31m.[mSpawn_Result[31m,[m W5[31m,[m File_Index[31m);[m

				 Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW3[31m);[m

				 Ansi_Windows[31m.[m[01;30mDraw[m[31m([mW3[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m

			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mend[m[31m;[m
			[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
			   [01;34mif[m Line'Length [31m>[m [35m0[m [01;34mthen[m
			      Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mLine[m[31m([mLine'First[31m..[mLine'Last[31m-[m[35m1[m[31m));[m
			      [01;30mWide_Free[m[31m([mLine[31m);[m
			      Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mbuffer[31m.[m[01;34mall[m[31m);[m
			      [01;30mWide_Free[m[31m([mBuffer[31m);[m
			      Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW3[31m);[m
			      Ansi_Windows[31m.[m[01;30mDraw[m[31m([mW3[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m Line[31m.[m[01;34mall[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34melse[m
		     Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLine[31m.[m[01;34mall[m [31m&[m Wchar[31m);[m
		     [01;30mWide_Free[m[31m([mLine[31m);[m
		     Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mBuffer[31m.[m[01;34mall[m[31m);[m
		     [01;30mWide_Free[m[31m([mBuffer[31m);[m		     
		     [01;34mif[m Line [31m/=[m [01;34mnull[m [01;34mthen[m		       
		       Ansi_Windows[31m.[m[01;30mDraw[m[31m([mW3[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m Line[31m.[m[01;34mall[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Receive[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Halt[31m;[m
  	       [01;34mexit[m Main_loop[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
  		  [31m--W_Io.Put_Line("All_Manuals");[m
		  [01;30mMan_Info[m[31m([mW4[31m);[m
		  [01;34mif[m Line [31m/=[m [01;34mnull[m [01;34mthen[m
		    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mW3[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m Line[31m.[m[01;34mall[m[31m);[m
		  [01;34melse[m
		     Ansi_Windows[31m.[m[01;30mDraw[m[31m([mW3[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m		     
  	       [01;34mend[m Wake_Up[31m;[m
  	    [01;34mor[m
	       
  	       [01;34maccept[m Suspend[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Refresh[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Page_Down [01;34mdo[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW5[31m);[m
		  File_Index [31m:=[m [32mInteger[m'[01;30mMin[m[31m([mShell_Interface[31m.[mSpawn_Result[31m.[mFile_Content'Length[31m,[m File_Index [31m+[m [31m([mW5[31m.[mH [31m-[m [35m3[m[31m));[m
		  [01;30mDraw_Buffer[m[31m([mShell_Interface[31m.[mSpawn_Result[31m,[m W5[31m,[m File_Index[31m);[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW3[31m);[m
	       [01;34mend[m Page_Down[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Page_Up [01;34mdo[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW5[31m);[m

		  File_Index [31m:=[m [32mInteger[m'[01;30mmax[m[31m([m[35m0[m[31m,[m File_Index [31m-[m [31m([mW5[31m.[mH [31m-[m [35m3[m[31m));[m

		  [01;30mDraw_Buffer[m[31m([mShell_Interface[31m.[mSpawn_Result[31m,[m W5[31m,[m File_Index[31m);[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW3[31m);[m
	       [01;34mend[m Page_Up[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW5[31m);[m
		  File_Index [31m:=[m [32mInteger[m'[01;30mmax[m[31m([m[35m0[m[31m,[m File_Index [31m-[m [35m1[m[31m);[m
		  [01;30mDraw_Buffer[m[31m([mShell_Interface[31m.[mSpawn_Result[31m,[m W5[31m,[m File_Index[31m);[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW3[31m);[m
  	       [01;34mend[m up_arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW5[31m);[m
  		  File_Index [31m:=[m [32mInteger[m'[01;30mMin[m[31m([mShell_Interface[31m.[mSpawn_Result[31m.[mFile_Content'Length[31m,[m File_Index [31m+[m [35m1[m[31m);[m
		  [01;30mDraw_Buffer[m[31m([mShell_Interface[31m.[mSpawn_Result[31m,[m W5[31m,[m File_Index[31m);[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW3[31m);[m
  	       [01;34mend[m Down_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Left_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Right_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Del[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Begin_Of [01;34mdo[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW5[31m);[m
		  File_Index [31m:=[m [35m0[m[31m;[m
		  [01;30mDraw_Buffer[m[31m([mShell_Interface[31m.[mSpawn_Result[31m,[m W5[31m,[m File_Index[31m);[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW3[31m);[m
	       [01;34mend[m Begin_Of[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m End_Of [01;34mdo[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW5[31m);[m
		  File_Index [31m:=[m [32mInteger[m'[01;30mmax[m[31m([m[35m0[m[31m,[m Shell_Interface[31m.[mSpawn_Result[31m.[mFile_Content'Length [31m-[m [31m([mW5[31m.[mH[31m-[m[35m2[m[31m));[m
		  [01;30mDraw_Buffer[m[31m([mShell_Interface[31m.[mSpawn_Result[31m,[m W5[31m,[m File_Index[31m);[m
		  Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mW3[31m);[m
	       [01;34mend[m End_Of[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Overwrite[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Full_Screen[31m;[m

  	    [01;34mend[m [01;34mselect[m[31m;[m
  	 [01;34mend[m [01;34mloop[m[31m;[m
  	 [01;34mloop[m
  	    [01;34mselect[m
	       
  	       [01;34maccept[m Halt[31m;[m
  	       [01;34mexit[m Main_Loop[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Suspend[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
  		  [31m--W_Io.Put_Line("All_Manuals");[m
  		  [31m--Text_Io.Put_Line("Greetings " & Getenv("USER").all & "!");[m
		  [01;30mMan_Info[m[31m([mW4[31m);[m
		  [01;34mif[m Line [31m/=[m [01;34mnull[m [01;34mthen[m
		    Ansi_Windows[31m.[m[01;30mDraw[m[31m([mW3[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m Line[31m.[m[01;34mall[m[31m);[m
		  [01;34melse[m
		     Ansi_Windows[31m.[m[01;30mDraw[m[31m([mW3[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
  	       [01;34mend[m Wake_Up[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mend[m [01;34mselect[m[31m;[m
  	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("All_Manuals process halted");[m
   [01;34mend[m All_Manuals_Process[31m;[m

   
  [31m--   task body Computer_Process is[m

  [31m--   begin[m
      
  [31m--  Main_Loop:[m
  [31m--      loop[m
  [31m--  	 loop[m
  [31m--  	    select[m
  [31m--  	       accept Receive (Wchar : in Wide_Character);[m
  [31m--  	    or[m
  [31m--  	       accept Halt;[m
  [31m--  	       exit Main_loop;[m
  [31m--  	    or[m
  [31m--  	       accept Wake_Up(Top : in Natural) do[m
  [31m--  		  W_Io.Put_Line("Computer");[m
  [31m--  	       end Wake_Up;[m
  [31m--  	    or[m
	       
  [31m--  	       accept Suspend;[m
  [31m--  	       exit;[m
  [31m--  	    or[m
  [31m--  	       accept Refresh;[m
  [31m--  	    or[m
  [31m--  	       accept Page_Down;[m
  [31m--  	    or[m
  [31m--  	       accept Page_Up;[m
  [31m--  	    or[m
  [31m--  	       accept Up_Arrow do[m
  [31m--  		  null;[m
  [31m--  	       end up_arrow;[m
  [31m--  	    or[m
  [31m--  	       accept Down_Arrow do[m
  [31m--  		  null;[m
  [31m--  	       end Down_Arrow;[m
  [31m--  	    or[m
  [31m--  	       accept Left_Arrow;[m
  [31m--  	    or[m
  [31m--  	       accept Right_Arrow;[m
  [31m--  	    or[m
  [31m--  	       accept Del;[m
  [31m--  	    or[m
  [31m--  	       accept Begin_Of;[m
  [31m--  	    or[m
  [31m--  	       accept End_Of;[m
  [31m--  	    or[m
  [31m--  	       accept Overwrite;[m
  [31m--  	    or[m
  [31m--  	       accept Full_Screen;[m

  [31m--  	    end select;[m
  [31m--  	 end loop;[m
  [31m--  	 loop[m
  [31m--  	    select[m
	       
  [31m--  	       accept Halt;[m
  [31m--  	       exit Main_Loop;[m
  [31m--  	    or[m
  [31m--  	       accept Suspend;[m
  [31m--  	    or[m
  [31m--  	       accept Wake_Up(Top : in Natural) do[m
  [31m--  		  W_Io.Put_Line("Computer");[m
  [31m--  		  Text_Io.Put_Line("Greetings " & Getenv("USER").all & "!");[m
		  
  [31m--  	       end Wake_Up;[m
  [31m--  	       exit;[m
  [31m--  	    end select;[m
  [31m--  	 end loop;[m
  [31m--      end loop Main_Loop;[m
  [31m--      --W_Io.Put_Line("Computer process halted");[m
  [31m--   end Computer_Process;[m
   
   
   [01;34mprocedure[m [01;30mRead[m[31m([mFile [31m:[m W_Io[31m.[mFile_Type[31m;[mE [31m:[m [01;34mout[m Types[31m.[mAudit_Type[31m)[m [01;34mis[m
      
   [01;34mbegin[m

      E[31m.[mLogname [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m

      E[31m.[mPgr_Name [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mTo_String[m[31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m)));[m

      E[31m.[minstallation [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mTo_String[m[31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m)));[m

      E[31m.[mutilisation [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mTo_String[m[31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m)));[m

      E[31m.[mergonomy [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mTo_String[m[31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m)));[m      

      E[31m.[mRank [31m:=[m [32mInteger[m'[01;30mValue[m[31m([m[01;30mTo_String[m[31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m)));[m
   [01;34mend[m Read[31m;[m
      
   
   [01;34mtype[m Stat_Array [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m [01;34maccess[m Types[31m.[mAudits_Stat_Type[31m;[m
   
   [01;34mtype[m Stats_Access [01;34mis[m [01;34maccess[m [01;34mall[m Stat_Array[31m;[m
   
   [01;34mfunction[m Stats_Load [01;34mreturn[m Stats_Access [01;34mis[m
      File [31m:[m W_Io[31m.[mFile_Type[31m;[m      
      Counters [31m:[m [01;34marray[m [31m([m[35m1[m[31m..[m[35m256[m[31m)[m [01;34mof[m [01;34maccess[m Types[31m.[mAudits_Counter_Type[31m;[m
      
      Stat_Table [31m:[m [01;30mStat_Array[m[31m([m[35m1[m[31m..[m[35m256[m[31m);[m
   [01;34mbegin[m
      [01;34mif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([mOs_Lib[31m.[m[01;30mGetenv[m[31m([m[31m"HOME"[m[31m).[m[01;34mall[m [31m&[m [31m"/audits.txt"[m[31m)[m [01;34mthen[m
	 W_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m W_Io[31m.[mIn_File[31m,[m Os_Lib[31m.[m[01;30mGetenv[m[31m([m[31m"HOME"[m[31m).[m[01;34mall[m [31m&[m [31m"/audits.txt"[m[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
	 [01;34mwhile[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
	    [01;34mdeclare[m
	       E [31m:[m Types[31m.[mAudit_Type[31m;[m
	       Done [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	    [01;34mbegin[m
	       [01;30mRead[m[31m([mFile[31m,[m E[31m);[m

	       [01;34mfor[m I [01;34min[m Counters'[01;34mRange[m [01;34mloop[m
		  [01;34mif[m [01;30mCounters[m[31m([mI[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;34mif[m [01;30mCounters[m[31m([mI[31m).[mPgr_Name[31m.[m[01;34mall[m [31m=[m E[31m.[mPgr_Name[31m.[m[01;34mall[m [01;34mthen[m
			[01;34mif[m E[31m.[mInstallation[31m.[m[01;34mall[m [31m=[m [31m"beginner"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mbeginner [31m:=[m [01;30mCounters[m[31m([mI[31m).[mSimple [31m+[m [35m1[m[31m;[m
			[01;34melsif[m E[31m.[mInstallation[31m.[m[01;34mall[m [31m=[m [31m"advanced"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[madvanced [31m:=[m [01;30mCounters[m[31m([mI[31m).[madvanced [31m+[m [35m1[m[31m;[m
			[01;34melsif[m E[31m.[mInstallation[31m.[m[01;34mall[m [31m=[m [31m"expert"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mexpert [31m:=[m [01;30mCounters[m[31m([mI[31m).[mexpert [31m+[m [35m1[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;34mif[m E[31m.[mUtilisation[31m.[m[01;34mall[m [31m=[m [31m"easy"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[measy [31m:=[m [01;30mCounters[m[31m([mI[31m).[measy [31m+[m [35m1[m[31m;[m
			[01;34melsif[m E[31m.[mutilisation[31m.[m[01;34mall[m [31m=[m [31m"difficult"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mdifficult [31m:=[m [01;30mCounters[m[31m([mI[31m).[mdifficult [31m+[m [35m1[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;34mif[m E[31m.[mergonomy[31m.[m[01;34mall[m [31m=[m [31m"simple"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mSimple [31m:=[m [01;30mCounters[m[31m([mI[31m).[mSimple [31m+[m [35m1[m[31m;[m
			[01;34melsif[m E[31m.[mergonomy[31m.[m[01;34mall[m [31m=[m [31m"detailed"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mdetailed [31m:=[m [01;30mCounters[m[31m([mI[31m).[mdetailed [31m+[m [35m1[m[31m;[m
			[01;34melsif[m E[31m.[mergonomy[31m.[m[01;34mall[m [31m=[m [31m"complex"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mcomplex [31m:=[m [01;30mCounters[m[31m([mI[31m).[mcomplex [31m+[m [35m1[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mCounters[m[31m([mI[31m).[mRank [31m:=[m [01;30mCounters[m[31m([mI[31m).[mRank [31m+[m E[31m.[mRank[31m;[m
			[01;30mCounters[m[31m([mI[31m).[mCount [31m:=[m [01;30mCounters[m[31m([mI[31m).[mCount [31m+[m [35m1[m[31m;[m
			Done [31m:=[m True[31m;[m
			[01;34mexit[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mloop[m[31m;[m

	       [01;34mif[m [01;34mnot[m Done [01;34mthen[m
		  [01;34mfor[m I [01;34min[m Counters'[01;34mRange[m [01;34mloop[m
		     [01;34mif[m [01;30mCounters[m[31m([mI[31m)[m [31m=[m [01;34mnull[m [01;34mthen[m
			[01;30mCounters[m[31m([mI[31m)[m [31m:=[m [01;34mnew[m Types[31m.[mAudits_Counter_Type[31m;[m
			[01;30mCounters[m[31m([mI[31m).[mPgr_Name [31m:=[m [01;34mnew[m [32mString[m ' [31m([mE[31m.[mPgr_Name[31m.[m[01;34mall[m[31m);[m
			[01;34mif[m E[31m.[mInstallation[31m.[m[01;34mall[m [31m=[m [31m"beginner"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mbeginner [31m:=[m [01;30mCounters[m[31m([mI[31m).[mSimple [31m+[m [35m1[m[31m;[m
			[01;34melsif[m E[31m.[mInstallation[31m.[m[01;34mall[m [31m=[m [31m"advanced"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[madvanced [31m:=[m [01;30mCounters[m[31m([mI[31m).[madvanced [31m+[m [35m1[m[31m;[m
			[01;34melsif[m E[31m.[mInstallation[31m.[m[01;34mall[m [31m=[m [31m"expert"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mexpert [31m:=[m [01;30mCounters[m[31m([mI[31m).[mexpert [31m+[m [35m1[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;34mif[m E[31m.[mUtilisation[31m.[m[01;34mall[m [31m=[m [31m"easy"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[measy [31m:=[m [01;30mCounters[m[31m([mI[31m).[measy [31m+[m [35m1[m[31m;[m
			[01;34melsif[m E[31m.[mutilisation[31m.[m[01;34mall[m [31m=[m [31m"difficult"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mdifficult [31m:=[m [01;30mCounters[m[31m([mI[31m).[mdifficult [31m+[m [35m1[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;34mif[m E[31m.[mergonomy[31m.[m[01;34mall[m [31m=[m [31m"simple"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mSimple [31m:=[m [01;30mCounters[m[31m([mI[31m).[mSimple [31m+[m [35m1[m[31m;[m
			[01;34melsif[m E[31m.[mergonomy[31m.[m[01;34mall[m [31m=[m [31m"detailed"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mdetailed [31m:=[m [01;30mCounters[m[31m([mI[31m).[mdetailed [31m+[m [35m1[m[31m;[m
			[01;34melsif[m E[31m.[mergonomy[31m.[m[01;34mall[m [31m=[m [31m"complex"[m [01;34mthen[m
			   [01;30mCounters[m[31m([mI[31m).[mcomplex [31m:=[m [01;30mCounters[m[31m([mI[31m).[mcomplex [31m+[m [35m1[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mCounters[m[31m([mI[31m).[mRank [31m:=[m [01;30mCounters[m[31m([mI[31m).[mRank [31m+[m E[31m.[mRank[31m;[m
			[01;30mCounters[m[31m([mI[31m).[mCount [31m:=[m [01;30mCounters[m[31m([mI[31m).[mCount [31m+[m [35m1[m[31m;[m
			[01;34mexit[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mloop[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	       Done [31m:=[m False[31m;[m
	    [01;34mend[m[31m;[m
	    
	 [01;34mend[m [01;34mloop[m[31m;[m

	 W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
	 [01;34mfor[m I [01;34min[m Counters'[01;34mRange[m [01;34mloop[m
	    [01;34mif[m [01;30mCounters[m[31m([mI[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
	       [01;30mStat_Table[m[31m([mI[31m)[m [31m:=[m [01;34mnew[m Types[31m.[mAudits_Stat_Type[31m;[m
	       [01;30mStat_Table[m[31m([mI[31m).[mPgr_Name [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mCounters[m[31m([mI[31m).[mPgr_Name[31m.[m[01;34mall[m[31m);[m
	       [01;30mStat_Table[m[31m([mI[31m).[mbeginner [31m:=[m Types[31m.[m[01;30mRate_Type[m[31m(([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mBeginner[31m)[m [31m*[m [35m100.0[m[31m)[m [31m/[m [31m([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mCount[31m)[m [31m*[m [35m100.0[m[31m))[m [31m*[m [35m100.0[m[31m;[m
	       [01;30mStat_Table[m[31m([mI[31m).[madvanced [31m:=[m Types[31m.[m[01;30mRate_Type[m[31m(([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mAdvanced[31m)[m [31m*[m [35m100.0[m[31m)[m [31m/[m [31m([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mCount[31m)[m [31m*[m [35m100.0[m[31m))[m [31m*[m [35m100.0[m[31m;[m
	       [01;30mStat_Table[m[31m([mI[31m).[mexpert [31m:=[m Types[31m.[m[01;30mRate_Type[m[31m(([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mExpert[31m)[m [31m*[m [35m100.0[m[31m)[m [31m/[m [31m([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mCount[31m)[m [31m*[m [35m100.0[m[31m))[m [31m*[m [35m100.0[m[31m;[m
	       [01;30mStat_Table[m[31m([mI[31m).[measy [31m:=[m Types[31m.[m[01;30mRate_Type[m[31m(([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mEasy[31m)[m [31m*[m [35m100.0[m[31m)[m [31m/[m [31m([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mCount[31m)[m [31m*[m [35m100.0[m[31m))[m [31m*[m [35m100.0[m[31m;[m
	       [01;30mStat_Table[m[31m([mI[31m).[mDifficult [31m:=[m Types[31m.[m[01;30mRate_Type[m[31m(([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mDifficult[31m)[m [31m*[m [35m100.0[m[31m)[m [31m/[m [31m([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mCount[31m)[m [31m*[m [35m100.0[m[31m))[m [31m*[m [35m100.0[m[31m;[m
	       [01;30mStat_Table[m[31m([mI[31m).[mSimple [31m:=[m Types[31m.[m[01;30mRate_Type[m[31m(([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mSimple[31m)[m [31m*[m [35m100.0[m[31m)[m [31m/[m [31m([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mCount[31m)[m [31m*[m [35m100.0[m[31m))[m [31m*[m [35m100.0[m[31m;[m
	       [01;30mStat_Table[m[31m([mI[31m).[mDetailed [31m:=[m Types[31m.[m[01;30mRate_Type[m[31m(([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mDetailed[31m)[m [31m*[m [35m100.0[m[31m)[m [31m/[m [31m([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mCount[31m)[m [31m*[m [35m100.0[m[31m))[m [31m*[m [35m100.0[m[31m;[m
	       [01;30mStat_Table[m[31m([mI[31m).[mComplex [31m:=[m Types[31m.[m[01;30mRate_Type[m[31m(([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mComplex[31m)[m [31m*[m [35m100.0[m[31m)[m [31m/[m [31m([m[32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mCount[31m)[m [31m*[m [35m100.0[m[31m))[m [31m*[m [35m100.0[m[31m;[m
	       [01;30mStat_Table[m[31m([mI[31m).[mRank [31m:=[m [32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mRank[31m)[m [31m/[m [32mFloat[m[31m([m[01;30mCounters[m[31m([mI[31m).[mCount[31m);[m
	    [01;34melse[m
	       [01;34mreturn[m [01;34mnew[m Stat_Array ' [31m([m[01;30mStat_Table[m[31m([m[35m1[m[31m..[mI[31m-[m[35m1[m[31m));[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m

      [01;34mend[m [01;34mif[m[31m;[m
	 
      [01;34mreturn[m [01;34mnull[m[31m;[m
   [01;34mend[m Stats_Load[31m;[m
   
   
   
   [01;34mtask[m [01;34mbody[m Audits_Process [01;34mis[m
      Main_Win    [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mlines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Stats [31m:[m Stats_Access[31m;[m
      
      T_Beginner[31m,[m T_Advanced[31m,[m T_Expert[31m,[m T_Easy[31m,[m T_Difficult[31m,[m T_Simple[31m,[m T_Detailed[31m,[m T_Complex [31m:[m [32mFloat[m [31m:=[m [35m0.0[m[31m;[m
      
      Beginner[31m,[m Advanced[31m,[m Expert[31m,[m Easy[31m,[m Difficult[31m,[m Simple[31m,[m Detailed[31m,[m Complex [31m:[m Rate_Type [31m:=[m [35m0.0[m[31m;[m
      
      
   [01;34mbegin[m
      
  Main_Loop[31m:[m
      [01;34mloop[m
  	 [01;34mloop[m
  	    [01;34mselect[m
  	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
  	    [01;34mor[m
  	       [01;34maccept[m Halt[31m;[m
  	       [01;34mexit[m Main_loop[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
  		  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Audits"[m[31m);[m
  		  Main_Win [31m:=[m [31m([m[35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mlines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
		  [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mlines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
  		  [01;30mDraw_Window[m[31m([mMain_Win[31m.[mWin[31m);[m
		  Spir_Lock[31m.[mSeize[31m;[m
  		  Stats [31m:=[m Stats_Load[31m;[m
		  Spir_Lock[31m.[mRelease[31m;[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m"Program"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m cyan[31m,[m [31m" Beginner"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m44[m[31m,[m cyan[31m,[m [31m" Advanced"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m52[m[31m,[m cyan[31m,[m [31m" Expert"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m60[m[31m,[m green[31m,[m [31m" Easy"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m68[m[31m,[m green[31m,[m [31m" Difficult"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m76[m[31m,[m white[31m,[m [31m" Simple"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m84[m[31m,[m white[31m,[m [31m" Detailed"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m92[m[31m,[m white[31m,[m [31m" Complex"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m100[m[31m,[m magenta[31m,[m [31m" Rank"[m[31m);[m
		  T_Beginner [31m:=[m [35m0.0[m[31m;[m
		  T_Advanced [31m:=[m [35m0.0[m[31m;[m
		  T_Expert [31m:=[m [35m0.0[m[31m;[m
		  T_Easy [31m:=[m [35m0.0[m[31m;[m
		  T_Difficult [31m:=[m [35m0.0[m[31m;[m
		  T_Simple [31m:=[m [35m0.0[m[31m;[m
		  T_Detailed [31m:=[m [35m0.0[m[31m;[m
		  T_Complex [31m:=[m [35m0.0[m[31m;[m

		  [01;34mif[m Stats [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		    Stats'Length [31m/=[m [35m0[m [01;34mthen[m
		     [01;34mfor[m I [01;34min[m Stats'[01;34mRange[m [01;34mloop[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [01;30mTo_Wide_String[m[31m([m[01;30mStats[m[31m([mI[31m).[mPgr_Name[31m.[m[01;34mall[m[31m));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m36[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mBeginner[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m44[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mAdvanced[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m52[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mExpert[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m60[m[31m,[m green[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mEasy[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m68[m[31m,[m green[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mDifficult[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m76[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mSimple[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m84[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mDetailed[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m92[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mComplex[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m100[m[31m,[m Magenta[31m,[m [01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mRank[31m)));[m
			T_Beginner [31m:=[m T_Beginner [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mBeginner[31m);[m
			T_Advanced [31m:=[m T_Advanced [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mAdvanced[31m);[m
			T_Expert [31m:=[m T_Expert [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mExpert[31m);[m
			T_Easy [31m:=[m T_Easy [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mEasy[31m);[m
			T_Difficult [31m:=[m T_Difficult [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mDifficult[31m);[m
			T_Simple [31m:=[m T_Simple [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mSimple[31m);[m
			T_Detailed [31m:=[m T_Detailed [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mDetailed[31m);[m
			T_Complex [31m:=[m T_Complex [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mComplex[31m);[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		     Beginner [31m:=[m [01;30mRate_Type[m[31m([mT_Beginner [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Advanced [31m:=[m [01;30mRate_Type[m[31m([mT_Advanced [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Expert [31m:=[m [01;30mRate_Type[m[31m([mT_Expert [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Easy [31m:=[m [01;30mRate_Type[m[31m([mT_Easy [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Difficult [31m:=[m [01;30mRate_Type[m[31m([mT_Difficult [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Simple [31m:=[m [01;30mRate_Type[m[31m([mT_Simple [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Detailed [31m:=[m [01;30mRate_Type[m[31m([mT_Detailed [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Complex [31m:=[m [01;30mRate_Type[m[31m([mT_Complex [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m2[m[31m,[m [35m1[m[31m,[m white[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m(([mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m),[m [31m'-'[m[31m));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m"Totals : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m36[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mBeginner[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m44[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mAdvanced[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m52[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mExpert[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m60[m[31m,[m green[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mEasy[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m68[m[31m,[m green[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mDifficult[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m76[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mSimple[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m84[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mDetailed[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m92[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mComplex[31m)));[m
		  [01;34mend[m [01;34mif[m[31m;[m
  	       [01;34mend[m Wake_Up[31m;[m
  	    [01;34mor[m
	       
  	       [01;34maccept[m Suspend[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Refresh[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Page_Down[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Page_Up[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Up_Arrow [01;34mdo[m
  		  [01;34mnull[m[31m;[m
  	       [01;34mend[m up_arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Down_Arrow [01;34mdo[m
  		  [01;34mnull[m[31m;[m
  	       [01;34mend[m Down_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Left_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Right_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Del[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Begin_Of[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m End_Of[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Overwrite[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Full_Screen[31m;[m

  	    [01;34mend[m [01;34mselect[m[31m;[m
  	 [01;34mend[m [01;34mloop[m[31m;[m
  	 [01;34mloop[m
  	    [01;34mselect[m
	       
  	       [01;34maccept[m Halt[31m;[m
  	       [01;34mexit[m Main_Loop[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Suspend[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
  		  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Audits"[m[31m);[m
  		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Greetings "[m [31m&[m [01;30mGetenv[m[31m([m[31m"USER"[m[31m).[m[01;34mall[m [31m&[m [31m"!"[m[31m);[m
  		  Main_Win [31m:=[m [31m([m[35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mlines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
		  [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mlines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
		  
  		  [01;30mDraw_Window[m[31m([mMain_Win[31m.[mWin[31m);[m
		  Spir_Lock[31m.[mSeize[31m;[m
  		  Stats [31m:=[m Stats_Load[31m;[m
		  Spir_Lock[31m.[mRelease[31m;[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m"Program"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m cyan[31m,[m [31m" Beginner"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m44[m[31m,[m cyan[31m,[m [31m" Advanced"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m52[m[31m,[m cyan[31m,[m [31m" Expert"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m60[m[31m,[m green[31m,[m [31m" Easy"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m68[m[31m,[m green[31m,[m [31m" Difficult"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m76[m[31m,[m white[31m,[m [31m" Simple"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m84[m[31m,[m white[31m,[m [31m" Detailed"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m92[m[31m,[m white[31m,[m [31m"Complex"[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m100[m[31m,[m magenta[31m,[m [31m" Rank"[m[31m);[m
		  T_Beginner [31m:=[m [35m0.0[m[31m;[m
		  T_Advanced [31m:=[m [35m0.0[m[31m;[m
		  T_Expert [31m:=[m [35m0.0[m[31m;[m
		  T_Easy [31m:=[m [35m0.0[m[31m;[m
		  T_Difficult [31m:=[m [35m0.0[m[31m;[m
		  T_Simple [31m:=[m [35m0.0[m[31m;[m
		  T_Detailed [31m:=[m [35m0.0[m[31m;[m
		  T_Complex [31m:=[m [35m0.0[m[31m;[m
		  [01;34mif[m Stats [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		    Stats'Length [31m/=[m [35m0[m [01;34mthen[m
		     [01;34mfor[m I [01;34min[m Stats'[01;34mRange[m [01;34mloop[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [01;30mTo_Wide_String[m[31m([m[01;30mStats[m[31m([mI[31m).[mPgr_Name[31m.[m[01;34mall[m[31m));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m36[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mBeginner[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m44[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mAdvanced[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m52[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mExpert[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m60[m[31m,[m green[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mEasy[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m68[m[31m,[m green[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mDifficult[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m76[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mSimple[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m84[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mDetailed[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m92[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mTypes[31m.[mRate_Type'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mComplex[31m)));[m
			[01;30mDraw_Text[m[31m([mMain_Win[31m,[m I[31m+[m[35m1[m[31m,[m [35m100[m[31m,[m Magenta[31m,[m [01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([m[01;30mStats[m[31m([mI[31m).[mRank[31m)));[m
			T_Beginner [31m:=[m T_Beginner [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mBeginner[31m);[m
			T_Advanced [31m:=[m T_Advanced [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mAdvanced[31m);[m
			T_Expert [31m:=[m T_Expert [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mExpert[31m);[m
			T_Easy [31m:=[m T_Easy [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mEasy[31m);[m
			T_Difficult [31m:=[m T_Difficult [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mDifficult[31m);[m
			T_Simple [31m:=[m T_Simple [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mSimple[31m);[m
			T_Detailed [31m:=[m T_Detailed [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mDetailed[31m);[m
			T_Complex [31m:=[m T_Complex [31m+[m [32mFloat[m[31m([m[01;30mStats[m[31m([mI[31m).[mComplex[31m);[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		     Beginner [31m:=[m [01;30mRate_Type[m[31m([mT_Beginner [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Advanced [31m:=[m [01;30mRate_Type[m[31m([mT_Advanced [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Expert [31m:=[m [01;30mRate_Type[m[31m([mT_Expert [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Easy [31m:=[m [01;30mRate_Type[m[31m([mT_Easy [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Difficult [31m:=[m [01;30mRate_Type[m[31m([mT_Difficult [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Simple [31m:=[m [01;30mRate_Type[m[31m([mT_Simple [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Detailed [31m:=[m [01;30mRate_Type[m[31m([mT_Detailed [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     Complex [31m:=[m [01;30mRate_Type[m[31m([mT_Complex [31m/[m [32mFloat[m[31m([mStats'Length[31m));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m2[m[31m,[m [35m1[m[31m,[m white[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m(([mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m),[m [31m'-'[m[31m));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m"Totals : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m36[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mBeginner[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m44[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mAdvanced[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m52[m[31m,[m cyan[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mExpert[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m60[m[31m,[m green[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mEasy[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m68[m[31m,[m green[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mDifficult[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m76[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mSimple[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m84[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mDetailed[31m)));[m
		     [01;30mDraw_Text[m[31m([mMain_Win[31m,[m Stats'length [31m+[m [35m3[m[31m,[m [35m92[m[31m,[m white[31m,[m [01;30mTo_Wide_String[m[31m([mRate_Type'[01;30mImage[m[31m([mComplex[31m)));[m
		  [01;34mend[m [01;34mif[m[31m;[m
  	       [01;34mend[m Wake_Up[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mend[m [01;34mselect[m[31m;[m
  	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Audits process halted"[m[31m);[m
   [01;34mend[m Audits_Process[31m;[m

   
   [01;34mfunction[m [01;30mCount[m [31m([mSet [31m:[m [01;34min[m Wide_Set[31m;[m
		   Doc_Index [31m:[m [01;34min[m Natural[31m;[m			  
		   Line_index [31m:[m [01;34min[m Natural[31m;[m 
		   Wchar_Index [31m:[m [01;34min[m Natural[31m;[m
		   Line_Cur [31m:[m [01;34min[m Line_Range[31m;[m
		   Col_Cur [31m:[m [01;34min[m Column_Range[31m;[m 
		   Height [31m:[m [01;34min[m Line_Range[31m;[m
		   Width [31m:[m [01;34min[m Column_Range[31m)[m [01;34mreturn[m Natural [01;34mis[m

      Total_Lines [31m:[m Natural [31m:=[m [35m0[m[31m;[m      
   [01;34mbegin[m
      
  Line_Count [31m:[m
      [01;34mfor[m I [01;34min[m Doc_Index[31m+[m[35m1[m[31m..[mLine_Index [01;34mloop[m

	 [01;34mdeclare[m
	    tmp [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m 
	      [31m([mSet[31m.[m[01;30mlines[m[31m([mI[31m).[m[01;34mall[m[31m);[m
	    Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mTmp[m[31m([mTmp'First[31m..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mTmp[31m),[m Backward[31m));[m
	    
	    Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Width[31m;[m
	    Lines_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Height[31m;[m
	 [01;34mbegin[m

	    [01;34mexit[m [01;34mwhen[m [31m([mTotal_Lines [31m>=[m Height[31m);[m

	    [01;34mif[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m>[m [35m0[m [01;34mand[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m<[m [31m([mChars_Max [31m*[m Lines_Max[31m)[m [01;34mthen[m

	       [01;34mfor[m Line_Window [01;34min[m [35m0[m[31m..[m[32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m([mLine[31m)/[mChars_Max[31m,[m Lines_Max[31m)[m [01;34mloop[m		  

		  Total_lines [31m:=[m Total_Lines [31m+[m [35m1[m[31m;[m

		  [01;34mexit[m [01;34mwhen[m [31m([mTotal_Lines [31m>=[m Height[31m);[m

	       [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34melse[m
	       Total_lines [31m:=[m Total_Lines [31m+[m [35m1[m[31m;[m

	    [01;34mend[m [01;34mif[m[31m;[m                           
	    
	 [01;34mend[m[31m;[m

	 [01;34mexit[m [01;34mwhen[m [31m([mTotal_Lines [31m>=[m Height[31m);[m
      [01;34mend[m [01;34mloop[m Line_Count[31m;[m

      [01;34mreturn[m Total_Lines[31m;[m
   [01;34mend[m Count[31m;[m
   
   
   
   
   [01;34mprocedure[m [01;30mUp_Arrow[m [31m([mSet [31m:[m [01;34min[m Wide_Set[31m;[m
		       Doc_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m			  
		       Line_index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m 
		       Wchar_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m
		       Line_Cur [31m:[m [01;34min[m [01;34mout[m Line_Range[31m;[m
		       Col_Cur [31m:[m [01;34min[m [01;34mout[m Column_Range[31m;[m 
		       Height [31m:[m [01;34min[m Line_Range[31m;[m
		       Width [31m:[m [01;34min[m Column_Range[31m)[m [01;34mis[m      
      
      
      Total_Lines [31m:[m Natural [31m:=[m [35m0[m[31m;[m       
   [01;34mbegin[m
      
      Total_Lines [31m:=[m [01;30mCount[m[31m([mSet[31m,[m Doc_Index[31m,[m Line_Index[31m,[m 
			  Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
      [01;34mif[m Line_Cur [31m<=[m [35m1[m [01;34mand[m 
	Doc_Index [31m>=[m [35m1[m [01;34mthen[m
	 Doc_Index [31m:=[m Doc_Index [31m-[m [35m1[m[31m;[m
	 Line_Index [31m:=[m Line_Index [31m-[m [35m1[m[31m;[m
	 Line_Cur [31m:=[m [35m1[m[31m;[m
	 Col_Cur [31m:=[m [35m1[m[31m;[m
	 Wchar_Index [31m:=[m [35m0[m[31m;[m
	 
	    
      [01;34melsif[m Line_Cur [31m>[m [35m1[m [01;34mthen[m
	 
	 [01;34mif[m Wchar_Index [31m-[m Width [31m>=[m [35m1[m [01;34mthen[m	    	    	    
	    Wchar_Index [31m:=[m [31m([mWchar_Index [31m-[m Width[31m);[m
	    Line_Cur [31m:=[m Line_Cur [31m-[m [35m1[m[31m;[m
	    [01;34mif[m Wchar_Index [31m>=[m Width [01;34mthen[m
	       Col_Cur [31m:=[m [31m([mWchar_Index [01;34mrem[m Width[31m);[m
	    [01;34melsif[m Wchar_Index [31m>=[m [35m0[m [01;34mthen[m
	       Col_Cur [31m:=[m Wchar_Index[31m;[m
	    [01;34melse[m
	       Col_Cur [31m:=[m [35m1[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34melse[m
	    Line_Index [31m:=[m Line_Index [31m-[m [35m1[m[31m;[m
	    Line_Cur [31m:=[m Line_Cur [31m-[m [35m1[m[31m;[m
	    Col_Cur [31m:=[m [35m1[m[31m;[m
	    Wchar_Index [31m:=[m [35m0[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34melse[m
	 W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
      [01;34mend[m [01;34mif[m[31m;[m
	 
   [01;34mend[m Up_Arrow[31m;[m
   
   [01;34mprocedure[m [01;30mDown_Arrow[m [31m([mSet [31m:[m [01;34min[m Wide_Set[31m;[m
			  Doc_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m			  
			  Line_index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m 
			  Wchar_Index [31m:[m [01;34min[m [01;34mout[m natural[31m;[m
			  Line_Cur [31m:[m [01;34min[m [01;34mout[m Line_Range[31m;[m
			  Col_Cur [31m:[m [01;34min[m [01;34mout[m Column_Range[31m;[m 
			  Height [31m:[m [01;34min[m Line_Range[31m;[m
			  Width [31m:[m [01;34min[m Column_Range[31m)[m [01;34mis[m      
      
      Total_Lines [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Cur [31m:[m Line_Range [31m:=[m Line_Cur[31m;[m
   [01;34mbegin[m
      

      [01;34mif[m [31m([mLine_Cur [31m>=[m [31m([mHeight[31m-[m[35m2[m[31m))[m [01;34mand[m [31m(([mLine_Index[31m)[m [31m<[m Set[31m.[mLine_Last[31m)[m [01;34mthen[m

	 Line_Index [31m:=[m Line_Index [31m+[m [35m1[m[31m;[m
	 Wchar_Index [31m:=[m [35m0[m[31m;[m
	 Doc_Index [31m:=[m Doc_Index [31m+[m [35m1[m[31m;[m
	 
	 Col_Cur [31m:=[m [35m1[m[31m;[m

	 Total_Lines [31m:=[m
	   [01;30mCount[m[31m([mSet[31m,[m Doc_Index[31m,[m Line_Index[31m,[m 
		 Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m

	 Line_Cur [31m:=[m Cur[31m;[m

      [01;34melsif[m Line_Index [31m+[m [35m1[m [31m<=[m Set[31m.[mLine_Last [01;34mthen[m

	 Line_Index [31m:=[m Line_Index [31m+[m [35m1[m[31m;[m
	 Line_Cur [31m:=[m Line_Cur [31m+[m [35m1[m[31m;[m
	 Wchar_Index [31m:=[m [35m0[m[31m;[m
	 
	 Col_Cur [31m:=[m [35m1[m[31m;[m
	 
      [01;34melsif[m [01;30mReal_Length[m[31m([mSet[31m.[m[01;30mLines[m[31m([mLine_Index[31m).[m[01;34mall[m[31m)[m [31m>=[m [31m([mWidth[31m)[m [01;34mthen[m

	 
	 [01;34mif[m [31m([mWchar_Index [31m+[m Width[31m)[m [31m<=[m [01;30mReal_Length[m[31m([mSet[31m.[m[01;30mLines[m[31m([mLine_Index[31m).[m[01;34mall[m[31m)[m [01;34mthen[m

	    Line_Cur [31m:=[m Line_Cur [31m+[m [35m1[m[31m;[m
	    Wchar_Index [31m:=[m Wchar_Index [31m+[m Width[31m;[m	    
	    Col_Cur [31m:=[m [31m([mWchar_Index [01;34mrem[m Width[31m);[m	    
	 [01;34melsif[m [01;30mReal_Length[m[31m([mSet[31m.[m[01;30mLines[m[31m([mLine_Index[31m).[m[01;34mall[m[31m)[m [31m>[m width [01;34mthen[m	    

	    Line_Cur [31m:=[m Line_Cur [31m+[m [35m1[m[31m;[m
	    Wchar_Index [31m:=[m [01;30mReal_Length[m[31m([mSet[31m.[m[01;30mLines[m[31m([mLine_Index[31m).[m[01;34mall[m[31m);[m
	    Col_Cur [31m:=[m [31m([mWchar_Index [01;34mrem[m Width[31m);[m	    
	 [01;34melse[m

	    Wchar_Index [31m:=[m [35m0[m[31m;[m
	    Col_Cur [31m:=[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34melse[m

	 Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
      [01;34mend[m [01;34mif[m[31m;[m


   [01;34mend[m Down_Arrow[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mAt_Begin[m [31m([mSet [31m:[m [01;34min[m Wide_Set[31m;[m
		       Doc_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m			  
		       Line_index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m 
		       Wchar_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m
		       Line_Cur [31m:[m [01;34min[m [01;34mout[m Line_Range[31m;[m
		       Col_Cur [31m:[m [01;34min[m [01;34mout[m Column_Range[31m;[m 
		       Height [31m:[m [01;34min[m Line_Range[31m;[m
		       Width [31m:[m [01;34min[m Column_Range[31m)[m [01;34mis[m
      Total_Lines [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      
      Wchar_Index [31m:=[m [35m0[m[31m;[m
      
      Col_Cur [31m:=[m [35m1[m[31m;[m
      Total_Lines [31m:=[m [01;30mCount[m[31m([mSet[31m,[m Doc_Index[31m,[m Line_Index[31m,[m 
			   Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
      
      Line_Cur [31m:=[m Total_Lines[31m;[m
      
   [01;34mend[m At_Begin[31m;[m
   
   [01;34mprocedure[m [01;30mAt_End[m [31m([mSet [31m:[m [01;34min[m Wide_Set[31m;[m
		     Doc_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m			  
		     Line_index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m 
		     Wchar_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m
		     Line_Cur [31m:[m [01;34min[m [01;34mout[m Line_Range[31m;[m
		     Col_Cur [31m:[m [01;34min[m [01;34mout[m Column_Range[31m;[m 
		     Height [31m:[m [01;34min[m Line_Range[31m;[m
		     Width [31m:[m [01;34min[m Column_Range[31m)[m [01;34mis[m
      Total_Lines [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      

      Wchar_Index [31m:=[m Set[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m'length[31m;[m

      Total_Lines [31m:=[m [01;30mCount[m[31m([mSet[31m,[m Doc_Index[31m,[m Line_Index[31m,[m 
			   Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m

      Col_Cur [31m:=[m Natural'[01;30mMax[m[31m([mWchar_Index [01;34mmod[m Width[31m,[m Wchar_Index[31m)[m [31m+[m [35m1[m[31m;[m

      
      Line_Cur [31m:=[m Total_Lines[31m;[m

   [01;34mend[m At_End[31m;[m
   
   

   [01;34mprocedure[m [01;30mRight_Arrow[m [31m([mSet [31m:[m [01;34min[m Wide_Set[31m;[m
			  Doc_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m			  
			  Line_index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m 
			  Wchar_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m
			  Line_Cur [31m:[m [01;34min[m [01;34mout[m Line_Range[31m;[m
			  Col_Cur [31m:[m [01;34min[m [01;34mout[m Column_Range[31m;[m 
			  Height [31m:[m [01;34min[m Line_Range[31m;[m
			  Width [31m:[m [01;34min[m Column_Range[31m)[m [01;34mis[m      
      
      
      
      Done [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      
      
      Total_Lines [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
   [01;34mbegin[m
      [01;34mif[m Wchar_index [31m+[m [35m1[m [31m>[m [01;30mReal_Length[m[31m([mSet[31m.[m[01;30mLines[m[31m([mLine_Index[31m).[m[01;34mall[m[31m)[m [01;34mthen[m
	 [01;34mif[m Line_Index [31m+[m [35m1[m [31m>[m Set[31m.[mLine_Last [01;34mthen[m
	    Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 [01;34melsif[m Line_Cur [31m=[m Height [01;34mthen[m
	    [01;34mloop[m
	       
	       Total_Lines [31m:=[m [01;30mCount[m[31m([mSet[31m,[m Doc_Index[31m,[m Line_Index [31m+[m [35m1[m[31m,[m
				    Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
	       [01;34mif[m Total_Lines [31m>[m height [01;34mthen[m
		  Doc_Index [31m:=[m Doc_Index [31m+[m [35m1[m[31m;[m		  
	       [01;34mend[m [01;34mif[m[31m;[m
	       
	       [01;34mexit[m [01;34mwhen[m Total_Lines [31m<=[m Height[31m;[m
	       
	    [01;34mend[m [01;34mloop[m[31m;[m
	    
	    Line_Index [31m:=[m Line_Index [31m+[m [35m1[m[31m;[m
	    Total_Lines [31m:=[m [01;30mCount[m[31m([mSet[31m,[m Doc_Index[31m,[m Line_Index [31m-[m [35m1[m[31m,[m
				 Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
	    Col_Cur [31m:=[m [35m1[m[31m;[m
	    Line_Cur [31m:=[m Total_Lines [31m+[m [35m1[m[31m;[m
	 [01;34melse[m
	    
	    
	    
	    [01;34mloop[m
	       
	       Total_Lines [31m:=[m [01;30mCount[m[31m([mSet[31m,[m Doc_Index[31m,[m Line_Index [31m+[m [35m1[m[31m,[m
				    Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
	       [01;34mif[m Total_Lines [31m>[m height [01;34mthen[m
		  Doc_Index [31m:=[m Doc_Index [31m+[m [35m1[m[31m;[m		  
	       [01;34mend[m [01;34mif[m[31m;[m
	       
	       [01;34mexit[m [01;34mwhen[m Total_Lines [31m<=[m Height[31m;[m
	       
	    [01;34mend[m [01;34mloop[m[31m;[m
	    Line_Index [31m:=[m Line_Index [31m+[m [35m1[m[31m;[m
	    
	    Total_Lines [31m:=[m [01;30mCount[m[31m([mSet[31m,[m Doc_Index[31m,[m Line_Index [31m-[m [35m1[m[31m,[m
				 Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
	    
	    Line_Cur [31m:=[m Total_Lines [31m+[m [35m1[m[31m;[m
	    Wchar_Index [31m:=[m [35m0[m[31m;[m
	    Col_Cur [31m:=[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34melsif[m Wchar_Index [31m<[m Set[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m'Length [01;34mand[m [31m([mWchar_Index [31m+[m [35m1[m [31m=[m Width[31m)[m [01;34mthen[m
	 Col_Cur [31m:=[m [35m1[m[31m;[m
	 Line_Cur [31m:=[m Line_Cur [31m+[m [35m1[m[31m;[m
	 Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m1[m[31m;[m
      [01;34melsif[m Wchar_Index [31m<[m Set[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m'Length [01;34mand[m [31m([mWchar_Index [31m+[m [35m1[m [31m>[m Width[31m)[m [01;34mthen[m
	 Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m1[m[31m;[m
	 [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m=[m [35m0[m [01;34mthen[m
	    Line_Cur [31m:=[m Line_Cur [31m+[m [35m1[m[31m;[m
	    Col_Cur [31m:=[m [35m1[m[31m;[m
	 [01;34melse[m
	    Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34melsif[m Wchar_Index [31m<[m Set[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m'Length [01;34mthen[m	 
	 Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m1[m[31m;[m
	 Col_Cur [31m:=[m Col_Cur [31m+[m [35m1[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Right_Arrow[31m;[m
   
   
   [01;34mprocedure[m [01;30mLeft_Arrow[m [31m([mSet [31m:[m [01;34min[m Wide_Set[31m;[m
			 Doc_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m			  
			 Line_index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m 
			 Wchar_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m
			 Line_Cur [31m:[m [01;34min[m [01;34mout[m Line_Range[31m;[m
			 Col_Cur [31m:[m [01;34min[m [01;34mout[m Column_Range[31m;[m 
			 Height [31m:[m [01;34min[m Line_Range[31m;[m
			 Width [31m:[m [01;34min[m Column_Range[31m)[m [01;34mis[m      
      
      Total_Lines [31m:[m Natural [31m:=[m [35m0[m[31m;[m      
   [01;34mbegin[m
      
      [01;34mif[m [31m([mCol_Cur [31m=[m [35m1[m[31m)[m [01;34mand[m Line_Cur [31m=[m [35m1[m [01;34mthen[m
	 [01;34mif[m Doc_Index [31m-[m [35m1[m [31m>=[m [35m0[m [01;34mthen[m	       
	    Line_Index [31m:=[m Line_Index [31m-[m [35m1[m[31m;[m
	    Doc_Index [31m:=[m Doc_Index [31m-[m [35m1[m[31m;[m	       
	    Wchar_Index [31m:=[m [01;30mReal_Length[m[31m([mSet[31m.[m[01;30mLines[m[31m([mLine_Index[31m).[m[01;34mall[m[31m);[m
	    
	    Total_Lines [31m:=[m [01;30mCount[m[31m([mSet[31m,[m Doc_Index[31m,[m Line_Index[31m,[m 
				 Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m	    
	    Line_Cur [31m:=[m Total_Lines[31m;[m
	    [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	       Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
	    [01;34melse[m
	       Col_Cur [31m:=[m [35m1[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	    
	    
	 [01;34melse[m
	    W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34melsif[m [31m([mCol_Cur [31m=[m [35m1[m[31m)[m [01;34mand[m [31m([mWchar_Index [31m>=[m Width[31m)[m  [01;34mthen[m	 
	 Wchar_index [31m:=[m Wchar_Index [31m-[m [35m1[m[31m;[m
	 Line_Cur [31m:=[m Line_Cur [31m-[m [35m1[m[31m;[m
	 [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	    Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
	 [01;34melse[m
	    Col_Cur [31m:=[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
      [01;34melsif[m Col_Cur [31m=[m [35m1[m [01;34mthen[m	 

	 [01;34mloop[m
	    
	    Total_Lines [31m:=[m [01;30mCount[m[31m([mSet[31m,[m Doc_Index[31m,[m Line_Index[31m-[m[35m1[m[31m,[m 
				 Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
	    [01;34mif[m Total_Lines [31m>[m height [01;34mthen[m
	       Doc_Index [31m:=[m Doc_Index [31m+[m [35m1[m[31m;[m		  
	    [01;34mend[m [01;34mif[m[31m;[m
	    
	    [01;34mexit[m [01;34mwhen[m Total_Lines [31m<=[m Height[31m;[m

	 [01;34mend[m [01;34mloop[m[31m;[m
	 
	 Line_Index [31m:=[m Line_Index [31m-[m [35m1[m[31m;[m	 
	 Total_Lines [31m:=[m [01;30mCount[m[31m([mSet[31m,[m Doc_Index[31m,[m Line_Index[31m,[m 
			      Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m	 
	 Line_Cur [31m:=[m Natural'[01;30mMax[m[31m([mLine_Cur [31m-[m [35m1[m[31m,[m Total_Lines[31m);[m
	 Wchar_Index [31m:=[m [01;30mReal_Length[m[31m([mSet[31m.[m[01;30mLines[m[31m([mLine_Index[31m).[m[01;34mall[m[31m);[m
	 [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	    Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
	 [01;34melse[m
	    Col_Cur [31m:=[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
      [01;34melsif[m Wchar_index [31m>=[m [35m1[m [01;34mthen[m	 
	 Wchar_Index [31m:=[m Wchar_Index [31m-[m [35m1[m[31m;[m      
	 [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	    Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
	 [01;34melse[m
	    Col_Cur [31m:=[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
      [01;34melse[m
	 W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      
      
   [01;34mend[m Left_Arrow[31m;[m
   
   [01;34mfunction[m [01;30mAdd_Line[m [31m([mPtr [31m:[m [01;34min[m M[31m.[mTools[31m.[mU_Array_Access[31m;[m Line [31m:[m [01;34min[m [32mWide_String[m[31m)[m [01;34mreturn[m M[31m.[mTools[31m.[mU_Array_Access [01;34mis[m
      Buffer [31m:[m M[31m.[mTools[31m.[mU_Array_Access[31m;[m
   [01;34mbegin[m
      [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m [31m([mPtr[31m,[m[01;34mnull[m[31m)[m [01;34mthen[m
	 
	 Buffer [31m:=[m [01;34mnew[m M[31m.[mTools[31m.[m[01;30mU_Array[m[31m([m[35m1[m[31m..([mPtr'Length[31m)+[m[35m1[m[31m);[m
	 [01;30mBuffer[m[31m([mBuffer'First[31m..[mBuffer'Last[31m-[m[35m1[m[31m)[m [31m:=[m Ptr[31m.[m[01;34mall[m[31m;[m
	 
	 [01;30mBuffer[m[31m([mBuffer'Last[31m)[m [31m:=[m [31m([mM[31m.[mTools[31m.[m[31m"+"[m[31m([mLine[31m));[m
      [01;34melse[m
	 
	 Buffer [31m:=[m [01;34mnew[m M[31m.[mTools[31m.[m[01;30mU_Array[m[31m([m[35m1[m[31m..[m[35m1[m[31m);[m
	 
	 [01;30mBuffer[m[31m([mBuffer'Last[31m)[m [31m:=[m [31m([mM[31m.[mTools[31m.[m[31m"+"[m[31m([mLine[31m));[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m Buffer[31m;[m
   [01;34mend[m Add_Line[31m;[m           

      
   [01;34mprocedure[m [01;30mOpen_Document[m [31m([mDoc_Name [31m:[m [01;34min[m [32mWide_String[m[31m;[m Table [31m:[m [01;34min[m [01;34mout[m Wide_Set[31m;[m Line_Last [31m:[m [01;34mout[m natural[31m)[m [01;34mis[m      
      File [31m:[m W_Io[31m.[mFile_Type[31m;[m
   [01;34mbegin[m
      [01;30mSet_Free[m[31m([mTable[31m);[m
      W_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m W_Io[31m.[mIn_File[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mDoc_Name[31m),[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
      [01;34mwhile[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
	 [01;34mdeclare[m
	    Wline [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m W_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m);[m
	 [01;34mbegin[m
	    Table[31m.[m[01;30mLines[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWline[31m);[m
	    Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
      Table[31m.[mLine_Last [31m:=[m Line_Last[31m;[m
   [01;34mend[m Open_Document[31m;[m
   

   
   [01;34mprocedure[m [01;30mDoc_Init[m [31m([mCenter [31m:[m [01;34min[m Agence_Record[31m;[m
		       Lines_Table [31m:[m [01;34min[m [01;34mout[m Wide_Set[31m);[m
   
   
   
   [01;34mprocedure[m [01;30mDocume_Free[m [31m([mDocume [31m:[m [01;34min[m [01;34mout[m Docume_Access[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Docume [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;30mFree[m[31m([mDocume[31m.[mTitle[31m);[m
	 [01;30mFree[m[31m([mDocume[31m.[mFilename[31m);[m
	 [01;30mFree[m[31m([mDocume[31m.[mFullpath[31m);[m
	 [01;30mFree[m[31m([mDocume[31m.[mUnit[31m);[m
	 [01;30mFree[m[31m([mDocume[31m.[mOwner[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Docume_Free[31m;[m

   
   [01;34mprocedure[m [01;30mNew_Doc[m [31m([mCenter [31m:[m [01;34min[m Agence_Record[31m;[m
		      Lines_Table [31m:[m [01;34min[m [01;34mout[m Wide_Set[31m;[m 
		      Docume [31m:[m [01;34mout[m Docume_Access[31m;[m 		      
		      Filename [31m:[m [01;34min[m [32mString[m[31m;[m		      
		      Version  [31m:[m [01;34min[m [32mWide_String[m[31m;[m
		      License [31m:[m [01;34min[m [32mBoolean[m[31m;[m
		      Description [31m:[m [01;34min[m [32mWide_string[m[31m);[m
   
   [01;34mprocedure[m [01;30mOpen_Doc[m [31m([mLines_Table [31m:[m [01;34min[m [01;34mout[m Wide_Set[31m;[m
		       Docume [31m:[m [01;34mout[m Docume_Access[31m;[m
		       Filename [31m:[m [01;34min[m [32mString[m[31m);[m
   
   [01;34mprocedure[m [01;30mEdit_Draw_Main_Win[m [31m([mCenter [31m:[m [01;34maccess[m Agence_Record[31m);[m
   [01;34mprocedure[m [01;30mDevel_Draw_Main_Win[m [31m([mCenter [31m:[m [01;34maccess[m Agence_Record[31m);[m
   [01;34mprocedure[m [01;30mDevel_Draw_Docume[m [31m([mDocume [31m:[m [01;34min[m Docume_Access[31m;[m Win [31m:[m [01;34min[m Window_Record[31m;[m Initialized [31m:[m [01;34min[m [32mBoolean[m[31m);[m
   [01;34mfunction[m [01;30mTroncate[m [31m([mLine [31m:[m [01;34min[m [32mWide_String[m[31m;[m Num_Char [31m:[m [01;34min[m positive[31m)[m [01;34mreturn[m [32mWide_String[m [01;34mis[m
      Head_Min [31m:[m [01;34mconstant[m Natural [31m:=[m Positive'[01;30mMin[m[31m([mLine'Length[31m,[m Num_Char[31m/[m[35m2[m[31m-[m[35m8[m[31m);[m
      Tail_Min [31m:[m [01;34mConstant[m Natural [31m:=[m [32mInteger[m'[01;30mmin[m[31m([mHead_Min[31m+[m[35m1[m[31m,[m Num_Char[31m/[m[35m2[m[31m-[m[35m8[m[31m);[m
      
   [01;34mbegin[m

      [01;34mif[m Line'length [31m<[m Num_Char[31m-[m[35m5[m [01;34mthen[m

         [01;34mreturn[m Line[31m;[m
      [01;34melse[m

         [01;34mreturn[m Wide_Fixed[31m.[m[01;30mHead[m[31m([mLine[31m,[m Head_Min[31m)[m [31m&[m [31m"..."[m [31m&[m Wide_Fixed[31m.[m[01;30mTrim[m[31m([mWide_Fixed[31m.[m[01;30mTail[m[31m([m[01;30mLine[m[31m([mTail_Min[31m+[m[35m5[m[31m..[mLine'Last[31m),[m Num_Char[31m-[m[35m5[m[31m),[m Left[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Troncate[31m;[m

   [01;34mprocedure[m [01;30mDevel_Draw_Docume[m [31m([mDocume [31m:[m [01;34min[m Docume_Access[31m;[m Win [31m:[m [01;34min[m Window_Record[31m;[m Initialized [31m:[m [01;34min[m [32mBoolean[m[31m)[m [01;34mis[m
   [01;34mbegin[m

      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m"Title : "[m[31m);[m

      [01;34mif[m Docume [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Docume[31m.[mTitle [31m/=[m [01;34mnull[m [01;34mthen[m

	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m9[m[31m,[m White[31m,[m [01;30mTroncate[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mDocume[31m.[mTitle[31m.[m[01;34mall[m[31m),[m Columns[31m/[m[35m2[m[31m-[m[35m20[m[31m));[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m5[m[31m+[mColumns[31m/[m[35m4[m[31m+[m[35m2[m[31m,[m Yellow[31m,[m [31m"Unit : "[m[31m);[m
      [01;34mif[m Docume [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Docume[31m.[mUnit [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m10[m[31m+[mColumns[31m/[m[35m4[m[31m+[m[35m9[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mDocume[31m.[mUnit[31m.[m[01;34mall[m[31m));[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m10[m[31m+[mColumns[31m/[m[35m4[m[31m+[m[35m15[m[31m,[m Yellow[31m,[m [31m"Created  : "[m[31m);[m
      [01;34mif[m Docume [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m10[m[31m+[mColumns[31m/[m[35m4[m[31m+[m[35m26[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mDocume[31m.[mCreation_Date[31m)));[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m"Name : "[m[31m);[m
      [01;34mif[m Docume [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Docume[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m9[m[31m,[m  White[31m,[m [01;30mTroncate[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mDocume[31m.[mfilename[31m.[m[01;34mall[m[31m),[m Columns[31m/[m[35m4[m[31m-[m[35m10[m[31m));[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m5[m[31m+[mColumns[31m/[m[35m4[m[31m+[m[35m2[m[31m,[m Yellow[31m,[m [31m"Openned : "[m [31m);[m
      [01;34mif[m Docume [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Docume[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m5[m[31m+[mColumns[31m/[m[35m4[m[31m+[m[35m10[m[31m,[mwhite[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mDocume[31m.[mOpenned[31m)));[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m10[m[31m+[mColumns[31m/[m[35m4[m[31m+[m[35m15[m[31m,[m Yellow[31m,[m [31m"Modified : "[m[31m);[m
      [01;34mif[m Docume [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m10[m[31m+[mColumns[31m/[m[35m4[m[31m+[m[35m26[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mDocume[31m.[mLast_Edition[31m)));[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m"Size : "[m[31m);[m
      [01;34mif[m Docume [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m9[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mDocume[31m.[mSize[31m))[m [31m&[m [31m" without end_of_line."[m[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m  [35m2[m[31m+[mColumns[31m/[m[35m4[m[31m+[m[35m5[m[31m,[m Yellow[31m,[m [31m"Owner : "[m[31m);[m
      [01;34mif[m Docume [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Docume[31m.[mOwner [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m  [35m2[m[31m+[mColumns[31m/[m[35m4[m[31m+[m[35m13[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mDocume[31m.[mOwner[31m.[m[01;34mall[m[31m));[m
      [01;34mend[m [01;34mif[m[31m;[m

   [01;34mend[m Devel_Draw_Docume[31m;[m

   [01;34mprocedure[m [01;30mDevel_Win_Init[m [31m([mCenter [31m:[m [01;34maccess[m Agence_Record[31m;[m Top [31m:[m [01;34min[m Natural[31m;[mFull [31m:[m [01;34min[m [32mboolean[m[31m);[m
   [01;34mprocedure[m [01;30mEdit_Win_Init[m [31m([mCenter [31m:[m [01;34maccess[m Agence_Record[31m;[mTop [31m:[m [01;34min[m Natural[31m;[mFull [31m:[m [01;34min[m [32mboolean[m[31m);[m
   
   
      [01;34mprocedure[m [01;30mEdit_Win_Init[m [31m([mCenter [31m:[m [01;34maccess[m Agence_Record[31m;[mTop [31m:[m [01;34min[m Natural[31m;[mFull [31m:[m [01;34min[m [32mboolean[m[31m)[m [01;34mis[m
      
      Doc_Height [31m:[m Positive [31m:=[m [31m(([mLines [31m-[m [35m13[m[31m));[m
      
   [01;34mbegin[m
      [01;34mif[m [01;34mnot[m full [01;34mthen[m

	 [01;30mInitialize[m[31m([mCenter[31m.[mLeft_view[31m.[mWin[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m Lines[31m,[m Columns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m

	 [01;30mInitialize[m[31m([mCenter[31m.[mDoc_States[31m.[mWin[31m,[m [35m3[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m5[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Blue[31m,[m cyan[31m);[m

	 [01;30mInitialize[m[31m([mCenter[31m.[mDocument[31m.[mWin[31m,[m [35m8[m[31m,[m Top[31m+[m[35m2[m[31m,[m Doc_Height[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m White[31m,[m Red[31m);[m

      [01;34melse[m

	 [01;30mInitialize[m[31m([mCenter[31m.[mLeft_view[31m.[mWin[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m Lines[31m,[m Columns[31m,[m Blue[31m,[m White[31m);[m

	 [01;30mInitialize[m[31m([mCenter[31m.[mDoc_States[31m.[mWin[31m,[m [35m3[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m5[m[31m,[m Columns[31m-[m[35m2[m[31m,[m Blue[31m,[m cyan[31m);[m

	 [01;30mInitialize[m[31m([mCenter[31m.[mDocument[31m.[mWin[31m,[m [35m8[m[31m,[m Top[31m+[m[35m2[m[31m,[m Doc_Height[31m,[m Columns[31m-[m[35m2[m[31m,[m White[31m,[m Red[31m);[m

      [01;34mend[m [01;34mif[m[31m;[m

   [01;34mend[m Edit_Win_Init[31m;[m
   
   [01;34mprocedure[m [01;30mDevel_Win_Init[m [31m([mCenter [31m:[m [01;34maccess[m Agence_Record[31m;[mTop [31m:[m [01;34min[m Natural[31m;[mFull [31m:[m [01;34min[m [32mboolean[m[31m)[m [01;34mis[m
      
      Doc_Height [31m:[m Positive [31m:=[m [31m(([mLines [31m-[m [35m19[m[31m)/[m [35m8[m[31m)[m [31m*[m [35m5[m[31m;[m
      Result_Height [31m:[m Positive [31m:=[m Lines [31m-[m [31m([mDoc_Height [31m+[m [35m19[m[31m);[m
      
   [01;34mbegin[m
      [01;34mif[m [01;34mnot[m full [01;34mthen[m
	 [01;30mInitialize[m[31m([mCenter[31m.[mLeft_view[31m.[mWin[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m Lines[31m,[m Columns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
	 
	 [01;30mInitialize[m[31m([mCenter[31m.[mDoc_States[31m.[mWin[31m,[m [35m3[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m5[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Blue[31m,[m cyan[31m);[m
	 
	 [01;30mInitialize[m[31m([mCenter[31m.[mDocument[31m.[mWin[31m,[m [35m8[m[31m,[m Top[31m+[m[35m2[m[31m,[m Doc_Height[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
	 
	 [01;30mInitialize[m[31m([mCenter[31m.[mCmd[31m.[mWin[31m,[m Doc_Height[31m+[m[35m8[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m3[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
	 
	 [01;30mInitialize[m[31m([mCenter[31m.[mErr[31m.[mWin[31m,[m  Doc_Height[31m+[m[35m11[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m3[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
	 
	 [01;30mInitialize[m[31m([mCenter[31m.[mCmd_Result[31m.[mWin[31m,[m Doc_Height[31m+[m[35m14[m[31m,[m Top[31m+[m[35m2[m[31m,[m Result_Height[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m White[31m,[m Red[31m);[m

      [01;34melse[m
	 [01;30mInitialize[m[31m([mCenter[31m.[mLeft_view[31m.[mWin[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m Lines[31m,[m Columns[31m,[m Blue[31m,[m White[31m);[m

	 [01;30mInitialize[m[31m([mCenter[31m.[mDoc_States[31m.[mWin[31m,[m [35m3[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m5[m[31m,[m Columns[31m-[m[35m2[m[31m,[m Blue[31m,[m cyan[31m);[m
	 
	 [01;30mInitialize[m[31m([mCenter[31m.[mDocument[31m.[mWin[31m,[m [35m8[m[31m,[m Top[31m+[m[35m2[m[31m,[m Doc_Height[31m,[m Columns[31m-[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
	 
	 [01;30mInitialize[m[31m([mCenter[31m.[mCmd[31m.[mWin[31m,[m Doc_Height[31m+[m[35m8[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m3[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
	 
	 [01;30mInitialize[m[31m([mCenter[31m.[mErr[31m.[mWin[31m,[m  Doc_Height[31m+[m[35m11[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m3[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
	 
	 [01;30mInitialize[m[31m([mCenter[31m.[mCmd_Result[31m.[mWin[31m,[m Doc_Height[31m+[m[35m14[m[31m,[m Top[31m+[m[35m2[m[31m,[m Result_Height[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m

   [01;34mend[m Devel_Win_Init[31m;[m
   

   
   [01;34mprocedure[m [01;30mSave_Buffer[m[31m([mDocume [31m:[m [01;34min[m Docume_Access[31m;[m Lines_Table [31m:[m [01;34min[m Wide_Set[31m)[m [01;34mis[m
   [01;34mbegin[m
      [31m-- save buffer.[m
      [01;34mdeclare[m
	 File [31m:[m W_Io[31m.[mFile_Type[31m;[m
      [01;34mbegin[m

	 W_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m W_Io[31m.[mOut_File[31m,[m Docume[31m.[mFilename[31m.[m[01;34mall[m[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
	 [01;34mfor[m Line_Iter [01;34min[m [35m1[m[31m..[mLines_Table[31m.[mLine_Last [01;34mloop[m
	    [01;34mif[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Iter[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
	       [01;34mbegin[m

		  [01;34mdeclare[m
		     
		     Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m 
		       Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Iter[31m).[m[01;34mall[m[31m;[m
		     
		  [01;34mbegin[m

		     W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m Line[31m);[m

		  [01;34mend[m[31m;[m
	       [01;34mend[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m

	 W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m

      [01;34mend[m[31m;[m
   [01;34mend[m Save_Buffer[31m;[m
   
   
   [01;34mprocedure[m [01;30mHighlight[m [31m([mDocume [31m:[m [01;34min[m Docume_Access[31m;[m Lines [31m:[m [01;34mout[m Wide_Set[31m)[m [01;34mis[m
      Result_Highlight [31m:[m M[31m.[mTools[31m.[mWide_Result_Access[31m;[m  		     
      Deleted          [31m:[m [32mBoolean[m [31m:=[m False[31m;[m      
      File             [31m:[m W_Io[31m.[mFile_Type[31m;[m
   [01;34mbegin[m
      [01;30mSet_Free[m[31m([mLines[31m);[m
      Result_Highlight [31m:=[m [01;34mnew[m M[31m.[mTools[31m.[mResult_Record ' 
	[31m([mM[31m.[mTools[31m.[m[01;30mSpawn[m[31m([m[31m"sh -c ""source-highlight -f esc256 -i "[m [31m&[m Docume[31m.[mFilename[31m.[m[01;34mall[m 
		 [31m&[m [31m" -o .highlighted"""[m[31m,[m [31m".Out_File.txt"[m[31m));[m
      
      [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult_Highlight[31m,[m [01;34mnull[m[31m)[m [01;34mand[m [01;34mthen[m
	[01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult_Highlight[31m.[mWlines[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
	 [01;34mif[m  Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult_Highlight[31m.[m[01;30mWlines[m[31m([m[35m1[m[31m)))[m [31m=[m [35m0[m [01;34mthen[m
	    [01;34mif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([m[31m".highlighted"[m[31m)[m [01;34mthen[m
	       W_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m W_Io[31m.[mIn_File[31m,[m [31m".highlighted"[m[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
	       [01;34mwhile[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m		  
		  Lines[31m.[m[01;30mLines[m[31m([mLines[31m.[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m	   
		  Lines[31m.[mLine_Last [31m:=[m Lines[31m.[mLine_Last [31m+[m [35m1[m[31m;[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	       W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      Os_Lib[31m.[m[01;30mDelete_file[m[31m([m[31m".highlighted"[m[31m,[m deleted[31m);[m      
      M[31m.[mTools[31m.[m[01;30mU_Array_Free[m[31m([mResult_Highlight[31m.[mWlines[31m);[m
   [01;34mend[m Highlight[31m;[m
   
   [01;34mfunction[m [01;30mSet_Size[m [31m([mLines_Table [31m:[m [01;34min[m Wide_Set[31m)[m [01;34mreturn[m Natural [01;34mis[m
      Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      [01;34mfor[m Wline [01;34min[m [35m1[m[31m..[mLines_Table[31m.[mLine_Last [01;34mloop[m
	 Count [31m:=[m Count [31m+[m Lines_Table[31m.[m[01;30mLines[m[31m([mWline[31m)[m'Length[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mreturn[m Count[31m;[m
   [01;34mend[m Set_Size[31m;[m
   
   
   
   
   
   [01;34mprocedure[m [01;30mNew_Doc[m [31m([mCenter [31m:[m [01;34min[m Agence_Record[31m;[m
		      Lines_Table [31m:[m [01;34min[m [01;34mout[m Wide_Set[31m;[m 
		      Docume [31m:[m [01;34mout[m Docume_Access[31m;[m 		      
		      Filename [31m:[m [01;34min[m [32mString[m[31m;[m		      
		      Version  [31m:[m [01;34min[m [32mWide_String[m[31m;[m
		      License [31m:[m [01;34min[m [32mBoolean[m[31m;[m
		      Description [31m:[m [01;34min[m [32mWide_string[m[31m)[m [01;34mis[m
      Dot_Index    [31m:[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mFilename[31m,[m [31m"."[m[31m,[m Backward[31m);[m
   [01;34mbegin[m      
      [01;34mfor[m Line [01;34min[m [35m1[m[31m..[mLines_Table[31m.[mLine_Last[31m+[m[35m1[m [01;34mloop[m
	 [01;30mWide_Free[m[31m([mLines_Table[31m.[m[01;30mLines[m[31m([mLine[31m));[m
      [01;34mend[m [01;34mloop[m[31m;[m
      Lines_Table[31m.[mLine_Last [31m:=[m [35m0[m[31m;[m
      Docume [31m:=[m [01;34mnew[m Docume_Record[31m;[m

      Docume[31m.[mTitle [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mBase_Name[m[31m([mFilename[31m,[m [01;30mFilename[m[31m([mDot_Index[31m..[mFilename'Last[31m)));[m      

      Docume[31m.[mFilename [31m:=[m [01;34mnew[m [32mString[m ' [31m([mFilename[31m);[m
      Docume[31m.[mCreation_Date [31m:=[m Clock[31m;[m
      Docume[31m.[mLast_Edition [31m:=[m Clock[31m;[m
      Dot_Index [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mFilename[31m,[m [31m"."[m[31m);[m

      Docume[31m.[mUnit [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mFilename[m[31m([mDot_Index[31m+[m[35m1[m[31m..[mFilename'Last[31m));[m
      
      Docume[31m.[mOpenned [31m:=[m True[31m;[m	 
      [01;34mif[m License [01;34mthen[m

	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"--"[m [31m&[m [31m([mWide_fixed[31m.[m[31m"*"[m[31m(([m[35m80[m [31m-[m [35m27[m[31m),[m[31m' '[m[31m))[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mClock[31m)));[m

	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m(([m[31m"-- "[m [31m&[m Description [31m&[m [31m' '[m [31m&[m [31m([mWide_fixed[31m.[m[31m"*"[m[31m(((([mColumns[31m/[m[35m3[m[31m-[m[35m2[m[31m)[m [31m-[m [35m8[m[31m)[m [31m-[m [31m([mDescription'length [31m+[m [35m2[m[31m)),[m[31m' '[m[31m))[m [31m&[m [31m"--"[m[31m));[m
	 
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m3[m[31m)[m [31m:=[m 
	   [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mDocume[31m.[mTitle[31m.[m[01;34mall[m[31m)[m [31m&[m [31m' '[m [31m&[m [31m"Copyright (C)"[m [31m&[m 
				Handling[31m.[m[01;30mTo_Wide_String[m[31m([mCalendar[31m.[mYear_Number'[01;30mImage[m[31m([m[01;30mYear[m[31m([mClock[31m)))[m [31m&[m [31m' '[m [31m&[m
				Handling[31m.[m[01;30mTo_Wide_String[m[31m([mCenter[31m.[mUser_Auth[31m.[mLogname[31m.[m[01;34mall[m[31m));[m

	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWide_fixed[31m.[m[31m"*"[m[31m(([m[35m80[m[31m-[m[35m3[m[31m),[m[31m'-'[m[31m));[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- This program is free software; you can redistribute it and/or modify"[m[31m);[m
	 
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- it under the terms of the GNU General Public License as published by"[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- the Free Software Foundation; either version 2 of the License, or"[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- (at your option) any later version."[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"--"[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- This program is distributed in the hope that it will be useful,"[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- but WITHOUT ANY WARRANTY; without even the implied warranty of"[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- GNU General Public License for more details."[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- You should have received a copy of the GNU General Public License"[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- along with this program; if not, write to the Free Software"[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m17[m[31m):=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA"[m[31m);[m
	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m18[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWide_fixed[31m.[m[31m"*"[m[31m(([m[35m80[m[31m-[m[35m3[m[31m),[m[31m'-'[m[31m));[m

	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m19[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- Date    := """[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mDocume[31m.[mCreation_Date[31m))[m [31m&[m [31m""""[m[31m);[m

	 Lines_Table[31m.[m[01;30mLines[m[31m([m[35m20[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- Version := """[m [31m&[m Version [31m&[m [31m""""[m[31m);[m
	 Lines_Table[31m.[mLine_Last [31m:=[m [35m20[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m            
      

   [01;34mend[m New_Doc[31m;[m
   
   
   [01;34mprocedure[m [01;30mDoc_Init[m [31m([mCenter [31m:[m [01;34min[m Agence_Record[31m;[m
		       Lines_Table [31m:[m [01;34min[m [01;34mout[m Wide_Set[31m)[m [01;34mis[m
      Color     [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[01;36m"[m[31m;[m
      Normal    [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[00m"[m[31m;[m
      
   [01;34mbegin[m

      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Hello "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mColor [31m&[m Center[31m.[mUser_Auth[31m.[mLogname[31m.[m[01;34mall[m [31m&[m Normal[31m)[m [31m&[m
						   [31m" and welcome to Devel mode of Main program."[m[31m);[m

      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"For to create an new document, you must try Crtl+N."[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"For to open an existing document, you must try Ctrl+O."[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"For to save an openned document, you must try Ctrl+A."[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"When you create a new document, you must to give :"[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"  - A name of file with 65 characters maximum."[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"  - If you want to initialize you document with an Gnu Public license,"[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"    you must to give the description for your document."[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"The Gnu Public license is in Ada programming language commented text: "[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWide_fixed[31m.[m[31m"*"[m[31m(([m[35m80[m[31m-[m[35m3[m[31m),[m [31m'-'[m[31m));[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- This program is free software; you can redistribute it and/or modify"[m[31m);[m
      
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- it under the terms of the GNU General Public License as published by"[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- the Free Software Foundation; either version 2 of the License, or"[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m17[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- (at your option) any later version."[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m18[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"--"[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m19[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- This program is distributed in the hope that it will be useful,"[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m20[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- but WITHOUT ANY WARRANTY; without even the implied warranty of"[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m21[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m22[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- GNU General Public License for more details."[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m23[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m24[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- You should have received a copy of the GNU General Public License"[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m25[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- along with this program; if not, write to the Free Software"[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m26[m[31m):=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"-- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA"[m[31m);[m
      Lines_Table[31m.[m[01;30mLines[m[31m([m[35m27[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWide_fixed[31m.[m[31m"*"[m[31m(([m[35m80[m[31m-[m[35m3[m[31m),[m [31m'-'[m[31m));[m
      
      Lines_Table[31m.[mLine_Last [31m:=[m [35m27[m[31m;[m
   [01;34mend[m Doc_Init[31m;[m
   

   
   [01;34mprocedure[m [01;30mEdit_Draw_Main_Win[m [31m([mCenter [31m:[m [01;34maccess[m Agence_Record[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;30mDraw_Window[m[31m([mCenter[31m.[mLeft_view[31m.[mWin[31m);[m

      [01;30mDraw_Window[m[31m([mCenter[31m.[mDoc_States[31m.[mWin[31m);[m

      [01;30mDraw_Window[m[31m([mCenter[31m.[mDocument[31m.[mWin[31m);[m

      [01;30mDraw_Window[m[31m([mCenter[31m.[mBuffer[31m.[mWin[31m);[m      

   [01;34mend[m Edit_Draw_Main_win[31m;[m
   
   [01;34mprocedure[m [01;30mDevel_Draw_Main_Win[m [31m([mCenter [31m:[m [01;34maccess[m Agence_Record[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;30mDraw_Window[m[31m([mCenter[31m.[mLeft_view[31m.[mWin[31m);[m

      [01;30mDraw_Window[m[31m([mCenter[31m.[mDoc_States[31m.[mWin[31m);[m

      [01;30mDraw_Window[m[31m([mCenter[31m.[mDocument[31m.[mWin[31m);[m
      
      [01;30mDraw_Window[m[31m([mCenter[31m.[mBuffer[31m.[mWin[31m);[m      
      
      [01;30mDraw_Window[m[31m([mCenter[31m.[mCmd[31m.[mWin[31m);[m      
      [01;30mDraw_Window[m[31m([mCenter[31m.[mErr[31m.[mWin[31m);[m      
      [01;30mDraw_Window[m[31m([mCenter[31m.[mCmd_Result[31m.[mWin[31m);[m      
   [01;34mend[m Devel_Draw_Main_Win[31m;[m
   [01;34mprocedure[m [01;30mPrint_Buffer[m [31m([mSpawn_Result [31m:[m [01;34min[m M[31m.[mTools[31m.[mWide_Result_Access[31m;[mFile_Index [31m:[m [01;34min[m Natural[31m);[m
   [01;34mprocedure[m [01;30mDraw_Buffer[m [31m([mSpawn_Result [31m:[m [01;34min[m M[31m.[mTools[31m.[mWide_Result_Access[31m;[m Win [31m:[m [01;34min[m Window_Record[31m;[m File_Index [31m:[m [01;34min[m Natural[31m);[m
   
      [01;34mfunction[m [01;30mTxt[m [31m([mExt [31m:[m [32mString[m[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Ext [31m=[m [31m"txt"[m [01;34mthen[m
	 [01;34mreturn[m True[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m False[31m;[m
   [01;34mend[m Txt[31m;[m

   
   Old_Length    [31m:[m Natural [31m:=[m [35m0[m[31m;[m [31m-- save text'length[m
      Old_Total_Length    [31m:[m Natural [31m:=[m [35m0[m[31m;[m [31m-- save total_type'image(total_sum)'length[m
      Old_Pwd   [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      Result [31m:[m M[31m.[mTools[31m.[mWide_Result_Access[31m;[m

      
   [01;34mtask[m [01;34mbody[m Devel_Process [01;34mis[m
      Text [31m:[m Wide_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Old_Length    [31m:[m Natural [31m:=[m [35m0[m[31m;[m [31m-- save text'length[m
      Old_Total_Length    [31m:[m Natural [31m:=[m [35m0[m[31m;[m [31m-- save total_type'image(total_sum)'length[m
      Old_Pwd   [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      Result [31m:[m M[31m.[mTools[31m.[mWide_Result_Access[31m;[m

      Last_Cmd [31m:[m Int_Cmd_Enum [31m:=[m None[31m;[m
      
      
      
      Width [31m:[m [01;34mconstant[m Column_Range [31m:=[m [31m([mColumns[31m/[m[35m2[m[31m)-[m[35m5[m[31m;[m
      Height [31m:[m [01;34mconstant[m Column_Range [31m:=[m [31m([mLines [31m-[m [35m13[m[31m);[m
      Screen_Lock [31m:[m [01;30mBinary_Semaphore[m[31m([mTrue[31m,[m Default_Ceiling[31m);[m
      
      Left_Buffer      [31m:[m Wide_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Wbuffer          [31m:[m Wide_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Wline            [31m:[m Wide_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Wline_Length     [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
      Line_Current_Pos [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Wchar_Index  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Line_Cur [31m:[m Positive [31m:=[m [35m1[m[31m;[m
      Col_Cur  [31m:[m Natural [31m:=[m [35m1[m[31m;[m
      Is_Overwrite [31m:[m [32mBoolean[m [31m:=[m True[31m;[m
      [31m--Word_Number : Natural := 0;[m
      Total_Line [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Dialog_Buffer_Last [31m:[m Line_Index_Range [31m:=[m [35m0[m[31m;[m
      Empty_Win [31m:[m Window_Record[31m;[m
      
      
      
      Cmd_Line         [31m:[m Wide_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Cmd_Line_Length  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Cmd_Current_Pos      [31m:[m Natural [31m:=[m [35m0[m[31m;[m      
      
      Title_Line    [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m64[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m));[m
      Title         [31m:[m Wide_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      
            Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m  
      

      
      
      [01;34mtask[m Clocking [01;34mis[m
	 [01;34mentry[m Halt[31m;[m
	 [01;34mentry[m Refresh[31m;[m
	 [01;34mentry[m suspend[31m;[m
	 [01;34mentry[m start[31m;[m
      [01;34mend[m Clocking[31m;[m
      [01;34mtask[m [01;34mbody[m Clocking [01;34mis[m
	 
	 End_Of_Task [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Blink      [31m:[m [32mBoolean[m [31m:=[m False[31m;[m	 
	 Suspended [31m:[m [32mBoolean[m [31m:=[m True[31m;[m
	 Title_Cur  [31m:[m Positive [31m:=[m [35m1[m[31m;[m 
	 Sens       [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 [01;34mtask[m Deamon [01;34mis[m
	    [01;34mentry[m Halt[31m;[m
	 [01;34mend[m Deamon[31m;[m
	 [01;34mtask[m [01;34mbody[m Deamon [01;34mis[m
	 [01;34mbegin[m
	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34mdelay[m [35m0.33[m[31m;[m
		  [01;34mselect[m
		     Clocking[31m.[mRefresh[31m;[m		  
		     
		  [01;34mor[m
		     [01;34mdelay[m [35m1.0[m[31m;[m
		  [01;34mend[m [01;34mselect[m[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m deamon[31m;[m
	 
      [01;34mbegin[m
	 [01;34maccept[m Start[31m;[m
	 [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
	    [01;34mloop[m
	       [01;34mselect[m		     		  
		  [01;34maccept[m Halt [01;34mdo[m
		     End_Of_Task [31m:=[m True[31m;[m
		     Deamon[31m.[mHalt[31m;[m
		  [01;34mend[m Halt[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Suspend [01;34mdo[m
		     Suspended [31m:=[m True[31m;[m
		  [01;34mend[m Suspend[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Refresh[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Start [01;34mdo[m
		     [01;34mif[m Title [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		       Title'Length [31m>[m [35m0[m [01;34mthen[m
			Title_Cur [31m:=[m App[31m.[mLeft_View[31m.[mW[31m/[m[35m2[m[31m-[mTitle'Length[31m/[m[35m2[m[31m;[m
			Title_Cur [31m:=[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     Suspended [31m:=[m False[31m;[m
		  [01;34mend[m Start[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    
	    
	    
	    
	    [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
	       [01;34mselect[m		     		  
		  [01;34maccept[m Halt [01;34mdo[m
		     End_Of_Task [31m:=[m True[31m;[m
		     Deamon[31m.[mHalt[31m;[m
		  [01;34mend[m Halt[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34mwhen[m [01;34mnot[m Suspended [31m=>[m
		     [01;34maccept[m Refresh [01;34mdo[m
			Screen_Lock[31m.[mSeize[31m;[m

			W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mSave_Cursor[31m));[m
			
			[01;30mDraw_Text[m[31m([mApp[31m.[mLeft_View[31m.[mWin[31m,[m [35m1[m[31m,[m App[31m.[mLeft_View[31m.[mWin[31m.[mWin[31m.[mW[31m-[m[35m21[m[31m,[m Cyan[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mClock[31m)));[m
			W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mRestore_Cursor[31m));[m

			[01;34mcase[m Mode[31m.[mState [01;34mis[m
			   [01;34mwhen[m True [31m=>[m
			      [01;34mdeclare[m
				 Wchar [31m:[m Wide_Character [31m:=[m Wide_Character ' [01;30mVal[m[31m([m[35m32[m[31m);[m
			      [01;34mbegin[m
				 [01;34mif[m Text [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				   Text'Length [31m>=[m [35m1[m [01;34mthen[m				 
				    [01;34mif[m Cmd_Current_Pos [31m=[m [35m0[m [01;34mthen[m
				       Wchar [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				       [31m--Wchar := Wline(Wline'First);[m

				    [01;34melsif[m Cmd_Current_Pos [31m=[m Text'Length [01;34mthen[m
				       Wchar [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m

				    [01;34melse[m
				       Wchar [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m

				       [31m--Wchar := Text(Line_Current_Pos + 1);[m
				    [01;34mend[m [01;34mif[m[31m;[m

				    [31m--  if Cmd_Current_Pos > 1 then[m
				    [31m--     Wchar := Text(Cmd_Current_Pos-1);[m
				 [01;34melse[m
				    [31m--     Wchar := Text(1);[m
				    [31m--  end if;[m
				    Wchar [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mif[m [01;34mnot[m Blink [01;34mthen[m
				    [01;34mif[m Is_Overwrite [01;34mthen[m
				       [01;34mif[m Cmd_Line'Length [31m/=[m [35m0[m [01;34mthen[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m Cmd_Current_Pos[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mReverse_Video [31m&[m Handling[31m.[m[01;30mTo_Character[m[31m([mWchar[31m)));[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m Cmd_Current_Pos[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_Mode[31m));[m
				       [01;34melse[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m Cmd_Current_Pos[31m+[m[35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mReverse_Video [31m&[m [31m' '[m[31m));[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m Cmd_Current_Pos[31m+[m[35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_Mode[31m));[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m Cmd_Current_Pos[31m+[m[35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34melsif[m Cmd_Line'Length [31m/=[m [35m0[m [01;34mthen[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m Cmd_Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
				    [01;34melse[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m Cmd_Current_Pos[31m+[m[35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34melse[m
				    [01;34mif[m Is_Overwrite [01;34mthen[m
				       
				       [01;34mif[m Cmd_Line'Length [31m/=[m [35m0[m [01;34mthen[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m Cmd_Current_Pos[31m,[m White[31m,[m Wchar [31m&[m [31m""[m[31m);[m
				       [01;34melse[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m Cmd_Current_Pos[31m+[m[35m1[m[31m,[m White[31m,[m [31m" "[m[31m);[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m Cmd_Current_Pos[31m+[m[35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34melse[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m Cmd_Current_Pos[31m+[m[35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 Blink [31m:=[m [01;34mnot[m Blink[31m;[m
			      [01;34mend[m[31m;[m
			   [01;34mwhen[m False [31m=>[m
			      [01;34mdeclare[m
				 Wchar [31m:[m Wide_Character [31m:=[m Wide_Character ' [01;30mVal[m[31m([m[35m32[m[31m);[m
			      [01;34mbegin[m
				 [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				   Wline'Length [31m>=[m [35m1[m [01;34mthen[m				 
				    
				    [01;34mif[m Line_Current_Pos [31m=[m [35m0[m [01;34mthen[m
				       Wchar [31m:=[m [01;30mWline[m[31m([mWline'First[31m);[m

				    [01;34melsif[m Line_Current_Pos [31m=[m Wline'Length [01;34mthen[m
				       Wchar [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				    [01;34melse[m
				       Wchar [31m:=[m [01;30mWline[m[31m([mLine_Current_Pos [31m+[m [35m1[m[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mif[m [01;34mnot[m Blink [01;34mthen[m
				    [01;34mif[m Is_Overwrite [01;34mthen[m
				       [01;34mif[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mReverse_Video [31m&[m Handling[31m.[m[01;30mTo_Character[m[31m([mWchar[31m)));[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_Mode[31m));[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m [31m""[m[31m);[m
				       [01;34melse[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mReverse_Video [31m&[m [31m' '[m[31m));[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_Mode[31m)[m [31m&[m [31m""[m[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34melsif[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m				       
				       [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m [31m""[m[31m);[m
				    [01;34melse[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m [31m""[m[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34melse[m
				    [01;34mif[m Is_Overwrite [01;34mthen[m
				       
				       [01;34mif[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m Wchar [31m&[m [31m""[m[31m);[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m [31m""[m[31m);[m
				       [01;34melse[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m [31m" "[m[31m);[m
					  [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m [31m""[m[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34melse[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mDocument[31m.[mWin[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m White[31m,[m [31m""[m[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [31m--  if not Blink then[m
				 [31m--     if Is_Overwrite then				    [m
				 [31m--        Draw_Text(App.Document.Win, Line_cur, Col_Cur, White, Handling.To_Wide_String(Reverse_Video & Handling.To_Character(Wchar)));[m
				 [31m--        Draw_Text(App.Document.Win, Line_cur, Col_Cur, White, Handling.To_Wide_String(Normal_Mode));				    [m
				 [31m--        Draw_Text(App.Document.Win, Line_Cur, Col_Cur, White, "");[m
				 [31m--     else[m
				       
				 [31m--        Draw_Text(App.Document.Win, Line_Cur, Col_Cur, White, "");[m
				 [31m--     end if;[m
				 [31m--  else[m
				    
				 [31m--     Draw_Text(App.Document.Win, Line_Cur, Col_Cur, White, "");[m
				 [31m--  end if;[m
					  
				 Blink [31m:=[m [01;34mnot[m Blink[31m;[m
			      [01;34mend[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
			Screen_Lock[31m.[mRelease[31m;[m
		     [01;34mend[m Refresh[31m;[m
		     
	       [01;34mor[m
		  [01;34maccept[m Suspend [01;34mdo[m
		     Suspended [31m:=[m True[31m;[m
		  [01;34mend[m Suspend[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Start [01;34mdo[m
		     [01;34mif[m Title [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		       Title'Length [31m>[m [35m0[m [01;34mthen[m
			Title_Cur [31m:=[m App[31m.[mLeft_View[31m.[mW[31m/[m[35m2[m[31m-[mTitle'Length[31m/[m[35m2[m[31m;[m
			Title_Cur [31m:=[m [35m1[m[31m;[m
			
		     [01;34mend[m [01;34mif[m[31m;[m
		     Suspended [31m:=[m False[31m;[m
		  [01;34mend[m Start[31m;[m
	       [01;34mor[m
		  
		  
		  [01;34mdelay[m [35m0.2[m[31m;[m
		  
		  Title_Line [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m));[m

		  [01;34mif[m Title [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		    Title'Length [31m>[m [35m0[m [01;34mthen[m

		     Wide_Fixed[31m.[m[01;30mReplace_Slice[m[31m([mTitle_line[31m,[m Title_Cur[31m,[m [35m0[m[31m,[m Title[31m.[m[01;34mall[m[31m);[m

		     Screen_Lock[31m.[mSeize[31m;[m

		     W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mSave_Cursor[31m));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mLeft_View[31m.[mWin[31m,[m [35m1[m[31m,[m [35m30[m[31m,[m Yellow[31m,[m Title_Line[31m);[m

		     W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mRestore_Cursor[31m));[m
		     Screen_Lock[31m.[mRelease[31m;[m

		     [01;34mif[m Sens [01;34mthen[m
			[01;34mif[m Title_Cur [31m+[m Title'Length[31m-[m[35m1[m [31m<[m  [35m60[m [01;34mthen[m
			   Title_Cur [31m:=[m Title_Cur [31m+[m [35m1[m[31m;[m

			[01;34melse[m
			   Sens [31m:=[m [01;34mnot[m Sens[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;34mif[m Title_Cur [31m>[m [35m1[m [01;34mthen[m
			   Title_Cur [31m:=[m Title_Cur [31m-[m [35m1[m[31m;[m
			[01;34melse[m
			   Sens [31m:=[m [01;34mnot[m Sens[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

		     [01;34mend[m [01;34mif[m[31m;[m		     		     
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m Clocking[31m;[m
      
      
      [01;34mtask[m File_Thread [01;34mis[m
	 [01;34mentry[m Page_Down[31m;[m
	 [01;34mentry[m Page_Up[31m;[m
	 [01;34mentry[m Up_Arrow[31m;[m
	 [01;34mentry[m Down_Arrow[31m;[m
	 [01;34mentry[m Start[31m;[m
	 [01;34mentry[m Reset[31m;[m
	 [01;34mentry[m Release[31m;[m
	 [01;34mentry[m Halt[31m;[m
      [01;34mend[m File_Thread[31m;[m
      [01;34mtask[m [01;34mbody[m File_Thread [01;34mis[m
	 Line_Count  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Old_Count [31m:[m [32minteger[m [31m:=[m [35m0[m[31m;[m
	 Line_Index  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 File [31m:[m File_Type[31m;[m
	 Free [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Only_One [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Done [31m:[m [32mboolean[m [31m:=[m True[31m;[m
      [01;34mbegin[m
     Main_Loop [31m:[m 
	 [01;34mloop[m
	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Page_Down [01;34mdo[m

		     Line_Index [31m:=[m [35m1[m[31m;[m
		     
		     Line_count [31m:=[m Line_count [31m+[m App[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m;[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m
		     Only_One [31m:=[m True[31m;[m
		  [01;34mend[m Page_Down[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Page_Up [01;34mdo[m
		     
		     Line_Index [31m:=[m [35m1[m[31m;[m
		     [01;34mif[m Line_count [31m-[m App[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m/[m[35m2[m [31m>=[m [35m0[m [01;34mthen[m
			Line_count [31m:=[m Line_count [31m-[m App[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m
		     Only_One [31m:=[m True[31m;[m
		  [01;34mend[m Page_Up[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m

		     Line_Index [31m:=[m [35m1[m[31m;[m
		     [01;34mif[m Line_Count [31m-[m [35m1[m [31m>=[m [35m0[m [01;34mthen[m
			Line_count [31m:=[m Line_count [31m-[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m
		     Only_One [31m:=[m True[31m;[m
		  [01;34mend[m Up_Arrow[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m

		     Line_Index [31m:=[m [35m1[m[31m;[m
		     
		     Line_count [31m:=[m Line_count [31m+[m [35m1[m[31m;[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m
		     Only_One [31m:=[m True[31m;[m
		  [01;34mend[m Down_Arrow[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Start [01;34mdo[m
		     Only_One [31m:=[m False[31m;[m
		     Free [31m:=[m False[31m;[m
		     Old_Count [31m:=[m [35m0[m[31m;[m
		     Line_Count [31m:=[m [35m0[m[31m;[m
		     Count [31m:=[m [35m0[m[31m;[m
		     line_index [31m:=[m [35m1[m[31m;[m
		  [01;34mend[m Start[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Reset [01;34mdo[m
		     Line_Index [31m:=[m [35m1[m[31m;[m
		     Line_Count [31m:=[m [35m0[m[31m;[m
		  [01;34mend[m Reset[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Release [01;34mdo[m
		     Free [31m:=[m True[31m;[m
		  [01;34mend[m Release[31m;[m
	       [01;34mend[m [01;34mSelect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mdelay[m [35m0.5[m[31m;[m
	    [01;34mloop[m
	       [01;34mdelay[m [35m0.05[m[31m;[m
	       [31m--W_Io.Open(File, W_Io.In_File, ".Out", Form => "WCEM=8");[m
	       [01;30mOpen[m[31m([mFile[31m,[m In_File[31m,[m [31m".Out"[m[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
	       [31m--while not W_Io.End_Of_File(File) loop[m
	   Print_Loop [31m:[m
	       [01;34mwhile[m [01;34mnot[m [01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
		  [01;34mdeclare[m
		     String_line [31m:[m [32mString[m [31m:=[m [01;30mGet_Line[m[31m([mFile[31m);[m
		     Line [31m:[m [32mWide_String[m [31m:=[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mString_Line[31m);[m
		     
		     Result_Max_Lines [31m:[m Positive [31m:=[m App[31m.[mCmd_Result[31m.[mWin[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m;[m
		     [31m--		     Line_Count : Natural := 0;              [m
		     Term_Width [31m:[m [01;34mconstant[m Natural [31m:=[m App[31m.[mCmd_Result[31m.[mWin[31m.[mWin[31m.[mW[31m-[m[35m2[m[31m;[m
		     Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Term_Width[31m;[m
		     Lines_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [31m([mResult_Max_Lines[31m);[m
		     
		     
		     Pro_Index [31m:[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"true"[m[31m);[m
		     Against [31m:[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"false"[m[31m);[m
		     Next [31m:[m Natural [31m:=[m [35m0[m[31m;[m
		     Line_Cur [31m:[m Natural [31m:=[m [35m0[m[31m;[m
		  [01;34mbegin[m
		     [01;34mif[m count [31m>[m old_count [01;34mthen[m
			[01;34mif[m Done [01;34mthen[m
			   [01;34mif[m [31m([mCount [31m-[m Old_Count[31m)[m [31m>=[m [31m([mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m)[m [31m-[m [35m1[m [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m
			      
			      [31m-- 	  elsif (Count - (Old_Count-1) ) + line_index >= (App.Cmd_Result.Win.H-2)*2 then[m
			      [31m-- Draw_Window(App.Cmd_Result.Win);[m
			      done [31m:=[m false[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;34mif[m Pro_Index [31m/=[m [35m0[m [01;34mthen[m
			   [01;34mif[m Line'Length [31m>=[m Pro_Index [31m+[m [35m4[m [01;34mthen[m
			      
			      Next [31m:=[m Pro_Index [31m+[m [35m4[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m Against [31m/=[m [35m0[m [01;34mthen[m
			   [01;34mif[m Line'Length [31m>=[m against [31m+[m [35m4[m [01;34mthen[m
			      
			      Next [31m:=[m Against [31m+[m [35m4[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;34mif[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m>[m [35m0[m [01;34mand[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m<[m [31m([mChars_Max [31m*[m Lines_Max[31m)[m [01;34mthen[m
			   
			   [01;34mfor[m Line_Window [01;34min[m Line_Cur[31m..[m[32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m([mLine[31m)/[mChars_Max[31m,[m Lines_Max[31m)[m [01;34mloop[m
			      
			      [01;34mdeclare[m
				 B_Inf [31m:[m [01;34mconstant[m Positive [31m:=[m Line_Window[31m*[mChars_Max [31m+[m [35m1[m[31m;[m
				 B_Sup [31m:[m [01;34mconstant[m Positive [31m:=[m [32mInteger[m'[01;30mmin[m[31m(([mLine_Window [31m+[m [35m1[m[31m)*[mChars_Max[31m,[m Line'length[31m);[m		     
			      [01;34mbegin[m

				 [01;34mif[m [01;30mReal_length[m[31m([mLine[31m)[m [31m<[m Chars_max [01;34mthen[m
				    
				    
				    
				    [01;34mif[m Next [31m/=[m [35m0[m [01;34mthen[m
				       [01;34mif[m Pro_Index [31m/=[m [35m0[m [01;34mthen[m

					  [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mLine'First[31m..[mPro_Index[31m-[m[35m1[m[31m));[m

					  [01;30mEnlight_Draw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m Pro_Index[31m,[m White[31m,[m [01;30mLine[m[31m([mPro_Index[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m

					  [01;34mif[m Line'Length [31m>[m Next [01;34mthen[m

					     [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m Pro_Index[31m+[m[35m5[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mLine'Last[31m));[m
					  [01;34mend[m [01;34mif[m[31m;[m

				       [01;34melse[m

					  [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mLine'First[31m..[mAgainst[31m-[m[35m1[m[31m));[m
					  [01;30mEnlight_Draw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m Against[31m,[m Red[31m,[m [01;30mLine[m[31m([mAgainst[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m
					  [01;34mif[m Line'Length [31m>[m Next [01;34mthen[m
					     [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m Against[31m+[m[35m5[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mLine'Last[31m));[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34melse[m

				       [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m [35m1[m[31m,[m White[31m,[m Line[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m

				 [01;34melse[m

				    [01;34mif[m Next [31m/=[m [35m0[m [01;34mthen[m
				       [01;34mif[m Pro_Index [31m/=[m [35m0[m [01;34mthen[m

					  [01;34mif[m Pro_Index [31m<[m B_Sup [01;34mand[m Pro_Index [31m>[m B_Inf [01;34mand[m Next [31m<[m B_Sup [01;34mthen[m

					     [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mPro_Index[31m-[m[35m1[m[31m));[m

					     [01;30mEnlight_Draw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m Pro_Index[31m,[m White[31m,[m [01;30mLine[m[31m([mPro_Index[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m

					     [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mB_Sup[31m));[m
					  [01;34melse[m

					     [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m

					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34melsif[m Against [31m/=[m [35m0[m [01;34mthen[m

					  [01;34mif[m Against [31m<[m B_Sup [01;34mand[m Against [31m>[m B_Inf [01;34mand[m Next [31m<[m B_Sup [01;34mthen[m

					     [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mAgainst[31m-[m[35m1[m[31m));[m

					     [01;30mEnlight_Draw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m Against[31m,[m White[31m,[m [01;30mLine[m[31m([mAgainst[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m

					     [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m Against[31m+[m[35m5[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mB_Sup[31m));[m
					  [01;34melse[m

					     [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m						    
				    [01;34melse[m

				       [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Index[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m[31m;[m

			      [01;34mexit[m [01;34mwhen[m Line_Index [31m>[m [31m([mResult_Max_Lines[31m-[m[35m1[m[31m);[m
			      Line_Index [31m:=[m Line_Index [31m+[m [35m1[m[31m;[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			[01;34melse[m
			   Line_Index [31m:=[m Line_Index [31m+[m [35m1[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

			
			[01;34mif[m Result_Max_Lines[31m-[m[35m1[m [31m<=[m [31m([mcount [31m-[m old_count[31m)[m  [01;34mthen[m
			   Old_Count [31m:=[m Old_Count [31m+[m [35m1[m[31m;[m
			   Done [31m:=[m True[31m;[m			
			[01;34mend[m [01;34mif[m[31m;[m

		     [01;34mend[m [01;34mif[m[31m;[m
    		     Count [31m:=[m Count [31m+[m [35m1[m[31m;[m			     		     
		  [01;34mend[m[31m;[m
		  [01;34mexit[m [01;34mwhen[m [31m([mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m)[m [31m<=[m Line_Index [31m;[m
		  
	       [01;34mend[m [01;34mloop[m Print_Loop[31m;[m

	       [01;30mClose[m[31m([mFile[31m);[m
	       
	       
	       
	       Line_Index [31m:=[m [35m1[m[31m;[m
	       [01;34mif[m [01;34mnot[m Only_One [01;34mthen[m
		  [01;34mselect[m
		     [01;34maccept[m Reset [01;34mdo[m
			Line_Index [31m:=[m [35m1[m[31m;[m
			Line_Count [31m:=[m [35m0[m[31m;[m
		     [01;34mend[m Reset[31m;[m
		     [01;34mexit[m[31m;[m
		  [01;34mor[m
		     
		     [01;34maccept[m Page_Down [01;34mdo[m

			Line_Index [31m:=[m [35m1[m[31m;[m
			
			Line_count [31m:=[m Line_count [31m+[m App[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m;[m

			[01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m

		     [01;34mend[m Page_Down[31m;[m

		  [01;34mor[m
		     
		     [01;34maccept[m Page_Up [01;34mdo[m

			Line_Index [31m:=[m [35m1[m[31m;[m
			[01;34mif[m Line_count [31m-[m App[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m/[m[35m2[m [31m>=[m [35m0[m [01;34mthen[m
			   Line_count [31m:=[m Line_count [31m-[m App[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m;[m

			   [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m

			[01;34mend[m [01;34mif[m[31m;[m

			
		     [01;34mend[m Page_Up[31m;[m

		  [01;34mor[m
		     
		     [01;34maccept[m Up_Arrow [01;34mdo[m

			Line_Index [31m:=[m [35m1[m[31m;[m
			[01;34mif[m Line_Count [31m-[m [35m1[m [31m>=[m [35m0[m [01;34mthen[m
			   Line_count [31m:=[m Line_count [31m-[m [35m1[m[31m;[m

			   [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m

			[01;34mend[m [01;34mif[m[31m;[m

			
		     [01;34mend[m Up_Arrow[31m;[m

		  [01;34mor[m
		     
		     [01;34maccept[m Down_Arrow [01;34mdo[m

			Line_Index [31m:=[m [35m1[m[31m;[m
			
			Line_count [31m:=[m Line_count [31m+[m [35m1[m[31m;[m

			[01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m

		     [01;34mend[m Down_Arrow[31m;[m
		  [01;34mor[m
		     
		     [01;34maccept[m Release [01;34mdo[m
			Free [31m:=[m True[31m;[m
		     [01;34mend[m Release[31m;[m

		  [01;34mor[m
		     [01;34maccept[m Halt[31m;[m
		     [01;34mexit[m Main_Loop[31m;[m

		  [01;34mor[m
		     [01;34mdelay[m [35m0.05[m[31m;[m
		  [01;34mend[m [01;34mselect[m[31m;[m
		  
		  
	       [01;34mend[m [01;34mif[m[31m;[m
	       Count [31m:=[m [35m1[m[31m;[m
	       [01;34mexit[m [01;34mwhen[m Only_One[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    Only_One [31m:=[m False[31m;[m
	 [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m File_Thread[31m;[m
      
      
      [01;34mtask[m [01;34mtype[m [01;30mExec_Thread[m [31m([mCmd_Line [31m:[m Os_Lib[31m.[mString_Access[31m)[m [01;34mis[m
	 [01;34mentry[m Spawn[31m;[m
	 [01;34mentry[m [01;30mWait[m[31m([mSuccess [31m:[m [01;34mout[m [32mBoolean[m[31m;[mErrno [31m:[m [01;34mout[m [32mInteger[m[31m);[m
	 [01;34mentry[m Read_Line[31m;[m
	 [01;34mentry[m Halt[31m;[m
      [01;34mend[m Exec_Thread[31m;[m
      
      [01;34mtask[m [01;34mbody[m Exec_Thread [01;34mis[m

	 Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 PID   [31m:[m Os_Lib[31m.[mProcess_ID[31m;[m
	 
      [01;34mbegin[m
	 
	 [01;34maccept[m Spawn [01;34mdo[m
	    [01;34mif[m [01;34mnot[m [31m([m[01;30mCommand_Name[m[31m([mCmd_line[31m.[m[01;34mall[m[31m)[m'Length [31m=[m Cmd_line'Length[31m)[m [01;34mthen[m
	       
	       [01;34mnull[m[31m;[m
	       
	    [01;34mend[m [01;34mif[m[31m;[m
	    
	 [01;34mend[m Spawn[31m;[m		  
	 Screen_Lock[31m.[mSeize[31m;[m
	 [01;34mif[m [01;30mCommand_Name[m[31m([mCmd_Line[31m.[m[01;34mall[m[31m)[m'Length [31m=[m Cmd_Line'Length [01;34mthen[m
	    
	    [01;34mif[m [01;34mnot[m Os_Lib[31m.[m[31m"="[m[31m([mOs_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([mCmd_Line[31m.[m[01;34mall[m[31m),[m [01;34mnull[m[31m)[m [01;34mthen[m
	       
	       [01;34mdeclare[m
		  Args [31m:[m [01;34mconstant[m Os_Lib[31m.[mArgument_List_Access [31m:=[m Os_Lib[31m.[mArgument_String_To_List
		    [31m([m[31m"-c """[m [31m&[m Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([mCmd_Line[31m.[m[01;34mall[m[31m).[m[01;34mall[m [31m&[m [31m""""[m[31m);[m
	       [01;34mbegin[m
		  Result [31m:=[m [01;34mnew[m M[31m.[mTools[31m.[mResult_Record ' [31m([mM[31m.[mTools[31m.[m[01;30mSpawn[m[31m([mCmd_Line[31m.[m[01;34mall[m[31m,[m [31m".Out"[m[31m));[m
		  Errno [31m:=[m Result[31m.[mReturn_Code[31m;[m

	       [01;34mend[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34melsif[m Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCommand_Name[m[31m([mCmd_Line[31m.[m[01;34mall[m[31m),[m [31m"/"[m[31m)[m [31m=[m [35m0[m [01;34mthen[m
	    Result [31m:=[m [01;34mnew[m M[31m.[mTools[31m.[mResult_Record' [31m([mM[31m.[mTools[31m.[m[01;30mSpawn[m[31m([m[31m"/usr/bin/sh -c """[m [31m&[m Tools[31m.[m[01;30mNormalize_Quoted_Argument[m[31m([mCmd_Line[31m.[m[01;34mall[m[31m)[m [31m&[m [31m""""[m[31m,[m [31m".Out"[m[31m));[m
	    Errno [31m:=[m Result[31m.[mReturn_Code[31m;[m
	 [01;34melse[m
	    
	    [01;34mdeclare[m
	       Args [31m:[m [01;34mconstant[m Os_Lib[31m.[mArgument_List_Access [31m:=[m Os_Lib[31m.[mArgument_String_To_List
		 [31m([m[31m"/usr/bin/sh -c """[m [31m&[m Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mCmd_Line[31m.[m[01;34mall[m[31m)).[m[01;34mall[m [31m&[m [31m" "[m [31m&[m
		    Tools[31m.[m[01;30mNormalize_Quoted_Argument[m[31m([m[01;30mCmd_Line[m[31m([m[01;30mCommand_Name[m[31m([mCmd_Line[31m.[m[01;34mall[m[31m)[m'Length[31m+[m[35m2[m[31m..[mCmd_Line'Last[31m)[m [31m&[m [31m""""[m[31m));[m
	       
	    [01;34mbegin[m
	       
	       Os_Lib[31m.[m[01;30mNormalize_Arguments[m[31m([mArgs[31m.[m[01;34mall[m[31m);[m
	       
	       PID [31m:=[m Os_Lib[31m.[m[01;30mNon_Blocking_Spawn[m[31m([mOs_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mArgs[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[m[01;34mall[m[31m,[m [01;30mArgs[m[31m([m[35m2[m[31m..[mArgs'Last[31m),[m [31m".Out"[m[31m,[m True[31m);[m
	       Os_Lib[31m.[m[01;30mWait_Process[m[31m([mPID[31m,[m Success[31m);[m
	       

	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 Screen_Lock[31m.[mRelease[31m;[m
	 File_Thread[31m.[mRelease[31m;[m
	 
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mWait[m[31m([mSuccess [31m:[m [01;34mout[m [32mBoolean[m[31m;[mErrno [31m:[m [01;34mout[m [32mInteger[m[31m)[m [01;34mdo[m
		  [01;34mif[m Errno [31m=[m [35m0[m [01;34mthen[m
		     Success [31m:=[m True[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  Errno [31m:=[m Exec_Thread[31m.[mErrno[31m;[m
	       [01;34mend[m Wait[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Read_Line[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt [01;34mdo[m
		  File_Thread[31m.[mReset[31m;[m
	       [01;34mend[m Halt[31m;[m
		  
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m Exec_Thread[31m;[m
      

      
      End_Of_This_Task [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Line_Index   [31m:[m Natural [31m:=[m [35m1[m[31m;[m
      Doc_Index    [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      
      Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Lines_Table [31m:[m [01;30mWide_Set[m[31m([m[35m32735[m[31m);[m
      Lines_Set [31m:[m [01;30mWide_Set[m[31m([m[35m32735[m[31m);[m
      Is_Full [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Done [31m:[m [32mBoolean[m [31m:=[m True[31m;[m
      
      Args_Index        [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Arguments         [31m:[m Wide_Access[31m;[m
      
      Var_Set           [31m:[m [01;30mAttributs[m[31m([m[35m2048[m[31m);[m
      Alias_Set         [31m:[m [01;30mAttributs[m[31m([m[35m2048[m[31m);[m
      Internal_Cmd [31m:[m Int_Cmd_Enum [31m:=[m None[31m;[m
      Is_Internal_Cmd [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Buffer [31m:[m Wide_Access[31m;[m
      
      Completion_Result [31m:[m M[31m.[mTools[31m.[mWide_Result_Access[31m;[m
      History_Set   [31m:[m [01;30mWide_Set[m[31m([m[35m2048[m[31m);[m
      History_Last  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      History_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Result_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      xls_index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Total  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Old_Text  [31m:[m Wide_Access[31m;[m
      

      
   [01;34mbegin[m

      Alias_Set[31m.[m[01;30mList[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mMake[m[31m([m[31m"ls"[m[31m,[m [31m"ls -C -p --color -w "[m [31m&[m [32mInteger[m'[01;30mImage[m[31m([mColumns[31m/[m[35m2[m[31m-[m[35m4[m[31m));[m
      Alias_Set[31m.[mIndex [31m:=[m [35m1[m[31m;[m
      
      [01;30mInitialize[m[31m([mEmpty_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Lines[31m,[m Columns[31m,[m  black[31m,[m black[31m);[m
      Clocking[31m.[mStart[31m;[m		

  Main_Loop[31m:[m
      [01;34mloop[m
  	 [01;34mloop[m
	    
  	    [01;34mselect[m
	       [01;34mwhen[m Mode[31m.[mState [31m=>[m

		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_control[m[31m([mWchar[31m)[m [01;34mthen[m	    
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m5[m[31m)[m [31m=>[m
			      Mode[31m.[mState [31m:=[m False[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m
			      
			      [31m--Lock.Seize;[m
   			      [01;34mdeclare[m
   				 Line [31m:[m [01;34mconstant[m Os_Lib[31m.[mString_Access [31m:=[m 
   				   [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m));[m
				 
   				 Path_On_Line [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
   				 buffer [31m:[m OS_Lib[31m.[mString_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
   			      [01;34mbegin[m
				 [01;34mif[m Line [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				   Line'Length [31m/=[m [35m0[m [01;34mthen[m
				    [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mCompletion_Result[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
				       M[31m.[mTools[31m.[m[01;30mU_Array_Free[m[31m([mCompletion_Result[31m.[mwlines[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    M[31m.[mTools[31m.[m[01;30mCompletion[m[31m([mLine[31m.[m[01;34mall[m[31m,[m Path_On_Line[31m,[m Completion_Result[31m);[m				    
				    [01;34mif[m Path_On_Line [31m/=[m [01;34mnull[m [01;34mthen[m
				       Buffer [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mPath_On_Line[31m.[m[01;34mall[m[31m));[m
				       [01;30mWide_Free[m[31m([mPath_On_Line[31m);[m					  
				       [01;30mWide_Free[m[31m([mText[31m);[m
				       Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mBuffer[31m.[m[01;34mall[m[31m));[m
				       [01;30mFree[m[31m([mBuffer[31m);[m
				       M[31m.[mTools[31m.[m[01;30mU_Array_Free[m[31m([mCompletion_Result[31m.[mWlines[31m);[m
   				    M[31m.[mTools[31m.[m[01;30mWide_Result_Free[m[31m([mCompletion_Result[31m);[m
				    [01;34melse[m
				       [01;34mfor[m I [01;34min[m Completion_Result[31m.[mwlines'[01;34mRange[m [01;34mloop[m
					  [01;30mPut_Line[m[31m([mM[31m.[mTools[31m.[m[01;30mDelete_Local_Prefix[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m(([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mCompletion_Result[31m.[m[01;30mwlines[m[31m([mI[31m))))));[m
				       [01;34mend[m [01;34mloop[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m[31m;[m
   			      [31m--Lock.Release;[m
   			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m|[m Wide_Character'[01;30mVal[m[31m([m[35m13[m[31m)[m [31m=>[m			
			      Clocking[31m.[mSuspend[31m;[m
			      Result_Index [31m:=[m [35m0[m[31m;[m
   			      [01;34mif[m Text [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
   				Text'Length [31m>[m [35m0[m [01;34mand[m [01;34mthen[m
				Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mText[31m.[m[01;34mall[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
				 
   				 [31m--Lock.Seize;[m
   				 Text_Io[31m.[mNew_Line[31m;[m
   				 
				 
   				 [01;34mif[m [01;30mText[m[31m([m[35m1[m[31m)[m [31m=[m [31m'-'[m [01;34mor[m [01;30mText[m[31m([m[35m1[m[31m)[m [31m=[m [31m'+'[m [01;34mthen[m
   				    [01;34mif[m Text'Length [31m>[m [35m1[m [01;34mthen[m
   				       [01;34mdeclare[m
   					  Val [31m:[m Total_Type [31m:=[m [35m0.0[m[31m;[m
   				       [01;34mbegin[m
   					  Val [31m:=[m Total_Type'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m));[m
   					  Total_Sum [31m:=[m Total_Sum [31m+[m Val[31m;[m
   					  [01;30mWide_Free[m[31m([mText[31m);[m
   					  Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
					  
   				       [01;34mexception[m
   					  [01;34mwhen[m Constraint_error [31m=>[m
   					     [01;30mPut_Line[m[31m([m[31m"-: error"[m[31m);[m
   				       [01;34mend[m[31m;[m
				       Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m [35m1[m[31m;[m
   				    [01;34mend[m [01;34mif[m[31m;[m
				    
   				 [01;34melse[m
				    [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mCompletion_Result[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
				       M[31m.[mTools[31m.[m[01;30mU_Array_Free[m[31m([mCompletion_Result[31m.[mWlines[31m);[m
				       
				       M[31m.[mTools[31m.[m[01;30mWide_Result_Free[m[31m([mCompletion_Result[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
				       M[31m.[mTools[31m.[m[01;30mU_Array_Free[m[31m([mResult[31m.[mWlines[31m);[m
		  
				       M[31m.[mTools[31m.[m[01;30mWide_Result_Free[m[31m([mResult[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m

				    [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m
				    File_thread[31m.[mReset[31m;[m
				    Internal_Cmd [31m:=[m [01;30mInternal_Cmd_Value[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m));[m
				    Is_Internal_Cmd [31m:=[m True[31m;[m
				    [31m--if Internal_Cmd /= None then[m
				    [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
				       M[31m.[mTools[31m.[m[01;30mU_Array_Free[m[31m([mResult[31m.[mWlines[31m);[m
				       M[31m.[mTools[31m.[m[01;30mWide_Result_Free[m[31m([mResult[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				    [01;34mcase[m Internal_Cmd [01;34mis[m
				       [01;34mwhen[m Help [31m=>[m

					  Result [31m:=[m [01;34mnew[m M[31m.[mTools[31m.[mSpawn_Result_Record[31m;[m
					  [01;30mInternal_Help[m[31m([mText[31m.[m[01;34mall[m[31m,[m M[31m.[mTools[31m.[m[01;30mSpawn_Result_Record[m[31m([mResult[31m.[m[01;34mall[m[31m));[m

					  [31m--New_Line;[m
					  [01;30mDraw_Buffer[m[31m([mResult[31m,[m App[31m.[mCmd_Result[31m.[mWin[31m,[m [35m0[m[31m);[m

					  M[31m.[mTools[31m.[m[01;30mWide_Result_Free[m[31m([mResult[31m);[m

					  [31m--Lib.Shared.Line_Cur := Lib.Shared.Line_Cur + Result.Count+1;[m
				       [01;34mwhen[m none [31m=>[m
					  Is_Internal_Cmd [31m:=[m False[31m;[m
				       [01;34mwhen[m Alias [31m=>[m
					  
					  [01;30mAlias[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Alias_Set[31m);[m
					  
				       [01;34mwhen[m Unalias [31m=>[m
					  
					  [01;30mUnalias[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Alias_Set[31m);[m
					  
				       [01;34mwhen[m Cd [31m=>[m

					  [01;34mbegin[m
					     M[31m.[mTools[31m.[m[01;30mChange_Directory[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Old_Pwd[31m);[m

					  [01;34mexception[m
					     [01;34mwhen[m Directory_Error [31m=>[m
						Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Directory not found"[m[31m);[m
						Text_Io[31m.[mNew_Line[31m;[m
					  [01;34mend[m[31m;[m
				       [01;34mwhen[m Set [31m=>[m

					  [01;30mSet[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
					  
				       [01;34mwhen[m Unset [31m=>[m

					  [01;30mUnset[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
					  
				       [01;34mwhen[m Put [31m=>[m
					  
					  Args_Index [31m:=[m [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m);[m
					  [01;34mif[m Args_Index [31m/=[m [35m0[m [01;34mthen[m
					     Arguments [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mText[m[31m([mArgs_Index[31m+[m[35m1[m[31m..[mText'Length[31m));[m
					     [01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mArguments[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  Text_Io[31m.[mNew_Line[31m;[m
				       [01;34mwhen[m Put_Line [31m=>[m

					  Args_Index [31m:=[m [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m);[m
					  [01;34mif[m Args_Index [31m/=[m [35m0[m [01;34mthen[m
					     Arguments [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mText[m[31m([mArgs_Index[31m+[m[35m1[m[31m..[mText'length[31m));[m
					     [01;30mPut_Line[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mArguments[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mwhen[m Clear [31m=>[m
					  [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m
					  
				       [01;34mwhen[m Xls [31m=>[m
					  Xls_Index [31m:=[m [35m0[m[31m;[m
					  Internal[31m.[m[01;30mxls[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Xls_Index[31m,[m Total[31m,[m true[31m);[m
					  Total [31m:=[m [35m0[m[31m;[m
					  [01;30mWide_Free[m[31m([mOld_Text[31m);[m

					  Old_Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mText[31m.[m[01;34mall[m[31m);[m

				    [01;34mend[m [01;34mcase[m[31m;[m

				    Last_Cmd [31m:=[m Internal_Cmd[31m;[m
				    
				    [31m--Line_Cur := Line_Cur + 1;[m
				    [01;34mif[m [01;34mnot[m Is_Internal_Cmd [01;34mthen[m
				       
   				       [31m--New_Line;[m
   				       [01;34mdeclare[m
   					  Alias_Ptr   [31m:[m Os_Lib[31m.[mString_Access[31m;[m
   					  Buffer      [31m:[m Os_Lib[31m.[mString_Access[31m;[m
   					  Normal      [31m:[m Os_Lib[31m.[mString_Access[31m;[m				 
   				       [01;34mbegin[m

   					  [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mAlias_Set[31m.[mIndex [01;34mloop[m
   					     [01;34mdeclare[m
   						Alias [31m:[m [01;34mconstant[m Attribut_Record [31m:=[m Alias_Set[31m.[m[01;30mList[m[31m([mIter[31m);[m
   						First_Space [31m:[m Natural [31m:=[m 
   						  [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m);[m
   						Non_Blank   [31m:[m [01;34mconstant[m Natural [31m:=[m
   						  [01;30mIndex_Non_Blank[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Backward[31m);[m
   					     [01;34mbegin[m	
   						[01;34mif[m Non_Blank [31m<[m First_Space [01;34mthen[m
   						   First_Space [31m:=[m [35m0[m[31m;[m
   						[01;34mend[m [01;34mif[m[31m;[m
   						[01;34mif[m First_Space [31m/=[m [35m0[m [01;34mthen[m
   						   [01;34mif[m [01;30mNames[m[31m([mAlias[31m)[m [31m=[m
   						     Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mText[m[31m([mText'First[31m..[mFirst_Space [31m-[m [35m1[m[31m))[m [01;34mthen[m
   						      Alias_Ptr [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mImages[m[31m([mAlias[31m));[m
   						      [01;34mexit[m[31m;[m
   						   [01;34mend[m [01;34mif[m[31m;[m
   						[01;34melse[m
   						   [01;34mif[m [01;30mNames[m[31m([mAlias[31m)[m [31m=[m Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mText[m[31m([mText'First[31m..[m[01;30mIndex_Non_Blank[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Backward[31m)))[m [01;34mthen[m
   						      Alias_Ptr [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mImages[m[31m([mAlias[31m));[m
   						      [01;34mexit[m[31m;[m
   						   [01;34mend[m [01;34mif[m[31m;[m
   						[01;34mend[m [01;34mif[m[31m;[m
   					     [01;34mend[m[31m;[m
   					  [01;34mend[m [01;34mloop[m[31m;[m

   					  [01;34mif[m Alias_Ptr [31m/=[m [01;34mnull[m [01;34mthen[m
   					     [01;34mdeclare[m
   						First_Space [31m:[m [01;34mconstant[m Natural [31m:=[m 
   						  [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m);[m
   					     [01;34mbegin[m

   						[01;34mif[m First_Space [31m/=[m [35m0[m [01;34mthen[m
   						   Buffer [31m:=[m [01;34mnew[m [32mString[m ' 
   						     [31m([mAlias_Ptr[31m.[m[01;34mall[m [31m&[m [31m' '[m [31m&[m Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mText[m[31m([mFirst_Space[31m+[m[35m1[m[31m..[mText ' Last[31m)));[m

   						[01;34melse[m
   						   Buffer [31m:=[m [01;34mnew[m [32mString[m ' [31m([mAlias_Ptr[31m.[m[01;34mall[m[31m);[m
   						[01;34mend[m [01;34mif[m[31m;[m
   					     [01;34mend[m[31m;[m
   					     [01;30mWide_Free[m[31m([mText[31m);[m

   					     Normal [31m:=[m [01;34mnew[m [32mString[m ' [31m([mM[31m.[mTools[31m.[m[01;30mNormalize_Quoted_Argument[m[31m([mBuffer[31m.[m[01;34mall[m[31m));[m
   					     Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal[31m.[m[01;34mall[m[31m));[m
					     
   					  [01;34mend[m [01;34mif[m[31m;[m
   				       [01;34mend[m[31m;[m
				       
				       
				       [01;34mdeclare[m
					  Thread [31m:[m [01;30mExec_Thread[m[31m([m[01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mto_String[m[31m([mText[31m.[m[01;34mall[m[31m)));[m
					  Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
					  Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
					  File [31m:[m File_Type[31m;[m					  					  
					  
				       [01;34mbegin[m
					  Clocking[31m.[mSuspend[31m;[m
					  Thread[31m.[mSpawn[31m;[m					  
					  File_thread[31m.[mStart[31m;[m
					  Thread[31m.[m[01;30mWait[m[31m([mSuccess[31m,[m Errno[31m);[m
					  Thread[31m.[mhalt[31m;[m

					  
				       [01;34mend[m[31m;[m
				       
				       
				       
				       
				       
				    [01;34mend[m [01;34mif[m[31m;[m
				    
   				    Old_Length [31m:=[m Text'Length[31m;[m

   				    [01;30mAdd_Line[m[31m([mHistory_Set[31m,[m History_Last[31m,[m Text[31m.[m[01;34mall[m[31m);[m

   				    History_Index [31m:=[m [35m0[m[31m;[m
   				    [01;30mWide_Free[m[31m([mText[31m);[m
   				    Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m			   
				    Cmd_Current_Pos [31m:=[m Text'Length[31m;[m

				    [01;30mDraw_Window[m[31m([mApp[31m.[mCmd[31m.[mWin[31m);[m

   				 [01;34mend[m [01;34mif[m[31m;[m

   				 
   				 [31m--Lock.Release;[m
   			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mPut[m[31m([mNormal_Mode[31m);[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m			
			      
			      Screen_Lock[31m.[mSeize[31m;[m
			      [01;30mPut[m[31m([mSave_Cursor[31m);[m
			      
			      
			      [01;30mDevel_Draw_Main_Win[m [31m([mApp[31m);[m
			      [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m
			      [01;30mDraw_Window[m[31m([mApp[31m.[mCmd[31m.[mWin[31m);[m
			      [01;30mDraw_Window[m[31m([mApp[31m.[mErr[31m.[mWin[31m);[m
			      
			      
			      
			      
			      [01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
				 [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			      
			      
			      [01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
				 [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			      [01;34melse[m
				 [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			      [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
				 [01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
				    
				    [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m
				 
				 [01;30mSet_Free[m[31m([mLines_Set[31m);[m

				 [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
				 
				 [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
				    [01;34mraise[m Spec_Error[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34melse[m
				 [01;30mSet_Free[m[31m([mLines_Table[31m);[m
				 [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
				 [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
				    [01;34mraise[m Program_Error[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			      
			      [01;30mPut[m[31m([mRestore_Cursor[31m);[m
			      Screen_Lock[31m.[mRelease[31m;[m
			      Clocking[31m.[mRefresh[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Text [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Text'Length [31m>[m [35m0[m [01;34mthen[m
				 Old_Length [31m:=[m Text'Length[31m;[m
				 Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mText[31m.[m[01;34mall[m[31m([mText'First[31m..[mText'Last[31m-[m[35m1[m[31m));[m
				 [01;30mWide_Free[m[31m([mText[31m);[m
				 Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mBuffer[31m.[m[01;34mall[m[31m);[m
				 [01;30mWide_Free[m[31m([mBuffer[31m);[m			
				 [01;34mif[m Cmd_Current_Pos [31m>[m [35m0[m [01;34mthen[m
				    Cmd_Current_Pos [31m:=[m Cmd_Current_Pos [31m-[m [35m1[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m

			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
			
   		     [01;34melse[m
			
   			Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mText[31m.[m[01;34mall[m [31m&[m Wchar[31m);[m
   			[01;30mWide_Free[m[31m([mText[31m);[m
   			Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mbuffer[31m.[m[01;34mall[m[31m);[m
   			[01;30mWide_Free[m[31m([mBuffer[31m);[m
   			Old_Length [31m:=[m Text'Length[31m;[m
   			Cmd_Current_Pos [31m:=[m Cmd_Current_Pos [31m+[m [35m1[m[31m;[m
			
			
		     [01;34mend[m [01;34mif[m[31m;[m

		     [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
			Screen_Lock[31m.[mSeize[31m;[m
			
			[01;30mDevel_Win_Init[m[31m([mApp[31m,[m [35m0[m[31m,[m false[31m);[m
			[01;30mEdit_Draw_Main_Win[m[31m([mApp[31m);[m
			[01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m
			
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m




			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line_Index"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_index[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line, Col"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_cur[31m)[m [31m&[m [31m", "[m [31m&[m positive'[01;30mImage[m[31m([mCol_cur[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

			[31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
			[31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
			[31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m85[m[31m,[m Cyan[31m,[m [31m" ; line_last"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m100[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m103[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLines_Table[31m.[mLine_last[31m)));[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
			
			Screen_Lock[31m.[mRelease[31m;[m
		     [01;34melse[m

			[01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mCompletion_Result[31m,[m [01;34mnull[m[31m)[m [01;34mand[m [01;34mthen[m
			  [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mCompletion_Result[31m.[mWlines[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
			   [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m
			   [01;30mDraw_Buffer[m[31m([mCompletion_Result[31m,[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Result_Index[31m);[m		     
			[01;34melsif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
			   

			   [01;30mDraw_Window[m[31m([mApp[31m.[mErr[31m.[mWin[31m);[m
			   [01;34mif[m Result[31m.[mSuccess [01;34mthen[m

			      [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Success"[m[31m);[m
			   [01;34melse[m

			      [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Failure"[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m

			   [01;34mif[m Last_Cmd [31m=[m None [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m			
			      
			      [01;30mDraw_Buffer[m[31m([mResult[31m,[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Result_Index[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m
			   
			   [01;34mif[m History_Last [31m>[m [35m0[m [01;34mthen[m
			      [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mand[m [01;34mthen[m Result[31m.[mSuccess [01;34mthen[m
				 [01;34mif[m Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m)))[m [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				   Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m)))[m'Length [31m/=[m [35m0[m [01;34mthen[m

				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Cmd   : "[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m White[31m,[m					   
					      Handling[31m.[m[01;30mTo_Wide_String[m[31m([mOs_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m))).[m[01;34mall[m[31m));[m

				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Args : "[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m10[m[31m,[m White[31m,[m 
					      [01;30mTroncate[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m)([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m))[m'Length[31m+[m[35m2[m[31m..[mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m)[m'Last[31m),[m Columns[31m/[m[35m2[m[31m-[m[35m10[m[31m));[m

				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Error : "[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m10[m[31m,[m White[31m,[m  Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([mErrno[31m)));[m

				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			

			[01;30mDraw_Window[m[31m([mApp[31m.[mCmd[31m.[mWin[31m);[m
			[01;34mif[m Text [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Text[31m.[m[01;34mall[m[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m

		     [01;34mend[m [01;34mif[m[31m;[m

		     Screen_Lock[31m.[mSeize[31m;[m

		     [01;30mPut[m[31m([mSave_Cursor[31m);[m
		     [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mthen[m
			[01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			[01;34melse[m
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
			   [01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m

			   [01;30mSet_Free[m[31m([mLines_Set[31m);[m
			   [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
			   [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Spec_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			[01;34melse[m

			   [01;30mSet_Free[m[31m([mLines_Table[31m);[m			   
			   [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Program_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melsif[m Lines_Table[31m.[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
			[01;30mSet_Free[m[31m([mLines_Table[31m);[m
			[01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
			
			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			   [01;34mraise[m Program_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			   [01;34mraise[m Program_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
		     [01;34mend[m [01;34mif[m[31m;[m


		     Screen_Lock[31m.[mRelease[31m;[m

		     Clocking[31m.[mstart[31m;[m

		  [01;34mend[m Receive[31m;[m

	    [01;34mor[m
	       [01;34mwhen[m [01;34mnot[m Mode[31m.[mState [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_control[m[31m([mWchar[31m)[m [01;34mthen[m	    
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m5[m[31m)[m [31m=>[m

			      Screen_Lock[31m.[mseize[31m;[m

			      [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				[01;34mnot[m App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
				 [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m

			      Mode[31m.[mState [31m:=[m True[31m;[m
			      Line_Cur [31m:=[m [35m1[m[31m;[m
			      Doc_Index [31m:=[m [35m0[m[31m;[m
			      Line_Index [31m:=[m [35m1[m[31m;[m

			      Wline [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_index[31m);[m

  			      Wchar_Index [31m:=[m [35m0[m[31m;[m
			      Wline_Length [31m:=[m Wline'Length[31m;[m
			      Line_Current_Pos [31m:=[m [35m0[m[31m;[m
			      Col_Cur [31m:=[m [35m1[m[31m;[m

			      [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m


				 [01;30mEdit_Draw_Main_Win[m[31m([mApp[31m);[m
				 [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m

				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m





				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m

				 [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
				 [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
				 [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
				 [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
				 [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
				 [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
				 
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

				 [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
				 [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
				 [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
			      [01;34mend[m [01;34mif[m[31m;[m

			      
			      [01;30mDraw_Window[m[31m([mApp[31m.[mDoc_states[31m.[mWin[31m);[m   

			      [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m		     
				 App[31m.[mCurrent_Doc[31m.[mOpenned [31m:=[m True[31m;[m

				 [01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m

				    [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
				 [01;34melse[m

				    [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m

				 [01;30mSet_Free[m[31m([mLines_Set[31m);[m

				 [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m

				 [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m

				    [01;34mraise[m Spec_Error[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m		
			      [01;34mend[m [01;34mif[m[31m;[m


			      [01;34mif[m [01;34mnot[m App[31m.[mDoc_Initialized [01;34mthen[m	
				 [01;30mSet_Free[m[31m([mLines_Table[31m);[m
				 [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

				 [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
				    [01;34mraise[m Program_Error[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34melse[m

				 [01;30mSet_Free[m[31m([mLines_Set[31m);[m
				 [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
				 [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
				 [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
				    [01;34mraise[m Spec_Error[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m


			      Screen_Lock[31m.[mRelease[31m;[m

			      Clocking[31m.[mSuspend[31m;[m
			      [01;34mif[m Mode[31m.[mState [01;34mthen[m

				 [01;30mDraw_Window[m[31m([mApp[31m.[mErr[31m.[mWin[31m);[m		  
				 [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m
				 [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m			
				 [01;30mDraw_Window[m[31m([mApp[31m.[mCmd[31m.[mWin[31m);[m
				 [01;30mDevel_Win_Init[m[31m([mApp[31m,[m [35m0[m[31m,[m Is_full[31m);[m
				 [01;30mDevel_Draw_Main_Win[m[31m([mApp[31m);[m

				 [01;34mif[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
				    [01;34mif[m Result[31m.[mSuccess [01;34mthen[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Success"[m[31m);[m
				    [01;34melse[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Failure"[m[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mif[m Last_Cmd [31m=[m None [01;34mthen[m			   
				       [01;30mDraw_Buffer[m[31m([mResult[31m,[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Result_Index[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m		

				    [01;34mif[m History_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m)[m [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				      Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m)))[m [31m/=[m [01;34mnull[m [01;34mthen[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Cmd   : "[m[31m);[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m White[31m,[m
					      Handling[31m.[m[01;30mTo_Wide_String[m[31m([mOs_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m))).[m[01;34mall[m[31m));[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Args  : "[m[31m);[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m10[m[31m,[m White[31m,[m 
						 [01;30mTroncate[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m)([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m))[m'Length[31m+[m[35m2[m[31m..[mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m)[m'Last[31m),[m Columns[31m/[m[35m2[m[31m-[m[35m10[m[31m));[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Error : "[m[31m);[m
				       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m10[m[31m,[m White[31m,[m  Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([mErrno[31m)));[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34melse[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Cmd   : "[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Args  : "[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Error : "[m[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m

			      Clocking[31m.[mStart[31m;[m
			      Clocking[31m.[mrefresh[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m6[m[31m)[m [31m=>[m

			      [01;34mif[m Is_Full [01;34mthen[m
				 [01;30mDraw_Window[m[31m([mEmpty_Win[31m);[m
				 
				 [01;30mDevel_Win_Init[m[31m([mApp[31m,[m [35m0[m[31m,[m [01;34mnot[m Is_full[31m);[m
				 [01;30mEdit_Win_Init[m[31m([mApp[31m,[m [35m0[m[31m,[m False[31m);[m
				 
				 [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				   [01;34mnot[m App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
				    [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [01;30mInitialize[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m Lines[31m-[m[35m5[m[31m,[m [35m2[m[31m,[m [35m5[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m  Cyan[31m,[m White[31m);[m
				 
				 
			      [01;34melse[m
				 [01;30mDraw_Window[m[31m([mEmpty_Win[31m);[m
				 
				 [01;30mDevel_Win_Init[m[31m([mApp[31m,[m [35m0[m[31m,[m [01;34mnot[m Is_full[31m);[m
				 [01;30mEdit_Win_Init[m[31m([mApp[31m,[m [35m0[m[31m,[m True[31m);[m
				 
				 [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				   [01;34mnot[m App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
				    [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [01;30mInitialize[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m Lines[31m-[m[35m5[m[31m,[m [35m2[m[31m,[m [35m5[m[31m,[m Columns[31m-[m[35m2[m[31m,[m  Cyan[31m,[m White[31m);[m
				 
			      [01;34mend[m [01;34mif[m[31m;[m
			      Is_Full [31m:=[m [01;34mnot[m Is_Full[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m
			      
			      [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mthen[m
				 [01;34mif[m App[31m.[mCurrent_Doc[31m.[mUnit[31m.[m[01;34mall[m [31m=[m [31m"adb"[m [01;34mor[m
				   App[31m.[mCurrent_Doc[31m.[mUnit[31m.[m[01;34mall[m [31m=[m [31m"ads"[m [01;34mor[m
				   App[31m.[mCurrent_Doc[31m.[mUnit[31m.[m[01;34mall[m [31m=[m [31m"ada"[m [01;34mor[m
				   App[31m.[mCurrent_Doc[31m.[mUnit[31m.[m[01;34mall[m [31m=[m [31m"c"[m [01;34mor[m
				   App[31m.[mCurrent_Doc[31m.[mUnit[31m.[m[01;34mall[m [31m=[m [31m"h"[m [01;34mor[m
				   App[31m.[mCurrent_Doc[31m.[mUnit[31m.[m[01;34mall[m [31m=[m [31m"pl"[m [01;34mthen[m
				    [01;34mif[m Wchar_Index [31m=[m Wline_Length [01;34mthen[m
				       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWline[31m.[m[01;34mall[m [31m&[m [31m"   "[m[31m);[m
				       [01;30mWide_Free[m[31m([mWLine[31m);[m
				       Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
				       [01;30mWide_Free[m[31m([mWbuffer[31m);[m
				       Wline_Length [31m:=[m Wline'Length[31m;[m
				       Line_Current_Pos [31m:=[m Wline'Length[31m-[m[35m1[m[31m;[m
				       Wchar_Index [31m:=[m Wline'Length[31m;[m
				    [01;34melsif[m Line_Current_Pos [31m=[m [35m0[m [01;34mthen[m
				       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"   "[m [31m&[m Wline[31m.[m[01;34mall[m[31m);[m
				       [01;30mWide_Free[m[31m([mWLine[31m);[m
				       Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
				       [01;30mWide_Free[m[31m([mWbuffer[31m);[m
				       Wline_Length [31m:=[m Wline'Length[31m;[m
				       Line_Current_Pos [31m:=[m Line_Current_Pos [31m+[m [35m3[m[31m;[m
				       Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m3[m[31m;[m
				    [01;34melse[m
				       Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mLine_Current_Pos[31m));[m
				       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m [31m"   "[m [31m&[m [01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline'Last[31m));[m
				       [01;30mWide_Free[m[31m([mWline[31m);[m
				       Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
				       [01;30mWide_Free[m[31m([mWbuffer[31m);[m
				       Wline_Length [31m:=[m Wline'Length[31m;[m
				       Line_Current_Pos [31m:=[m Line_Current_Pos [31m+[m [35m3[m[31m;[m
				       Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m3[m[31m;[m
				       
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34melse[m
				    [01;34mif[m Wchar_Index [31m=[m Wline_Length [01;34mthen[m
				       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWline[31m.[m[01;34mall[m [31m&[m [31m"       "[m[31m);[m
				       [01;30mWide_Free[m[31m([mWLine[31m);[m
				       Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
				       [01;30mWide_Free[m[31m([mWbuffer[31m);[m
				       Wline_Length [31m:=[m Wline'Length[31m;[m
				       Line_Current_Pos [31m:=[m Wline'Length[31m-[m[35m1[m[31m;[m
				       Wchar_Index [31m:=[m Wline'Length[31m;[m
				    [01;34melsif[m Line_Current_Pos [31m=[m [35m0[m [01;34mthen[m
				       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"       "[m [31m&[m Wline[31m.[m[01;34mall[m[31m);[m
				       [01;30mWide_Free[m[31m([mWLine[31m);[m
				       Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
				       [01;30mWide_Free[m[31m([mWbuffer[31m);[m
				       Wline_Length [31m:=[m Wline'Length[31m;[m
				       Line_Current_Pos [31m:=[m Line_Current_Pos [31m+[m [35m7[m[31m;[m
				       Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m7[m[31m;[m
				    [01;34melse[m
				       Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mLine_Current_Pos[31m));[m
				       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m [31m"       "[m [31m&[m [01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline'Last[31m));[m
				       [01;30mWide_Free[m[31m([mWline[31m);[m
				       Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
				       [01;30mWide_Free[m[31m([mWbuffer[31m);[m
				       Wline_Length [31m:=[m Wline'Length[31m;[m
				       Line_Current_Pos [31m:=[m Line_Current_Pos [31m+[m [35m7[m[31m;[m
				       Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m7[m[31m;[m
				       
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				    
				 [01;34mend[m [01;34mif[m[31m;[m
				 Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
				 Line_Cur [31m:=[m [01;30mCount[m [31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
				 [01;34mif[m [31m(([mWchar_Index[31m)[m [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
				    Col_Cur [31m:=[m [31m(([mWchar_Index[31m)[m [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
				 [01;34melse[m
				    Col_Cur [31m:=[m [35m1[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34melse[m
				 W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m

			      
			      [01;34mif[m Line_Index[31m+[m[35m1[m [31m<=[m Lines_Table[31m.[mLines'Last [01;34mthen[m						
				 

				 [01;34mif[m Lines_Table[31m.[mLine_Last [31m<[m Lines_Table[31m.[mLines'Length [01;34mthen[m

				    [01;34mif[m Wchar_Index [31m=[m Wline_Length [01;34mthen[m

				       [01;34mif[m Line_Index [31m=[m Lines_Table[31m.[mLine_Last [01;34mthen[m

					  Lines_Table[31m.[mLine_Last [31m:=[m Lines_Table[31m.[mLine_Last [31m+[m [35m1[m[31m;[m
					  Line_Index [31m:=[m Line_Index [31m+[m [35m1[m[31m;[m
					  Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m

				       [01;34melse[m

					  [01;34mfor[m Line [01;34min[m [01;34mreverse[m Line_Index [31m..[m Lines_Table[31m.[mLine_Last [01;34mloop[m
					     Lines_Table[31m.[m[01;30mLines[m[31m([mLine [31m+[m [35m1[m[31m)[m [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine[31m);[m
					  [01;34mend[m [01;34mloop[m[31m;[m

					  Line_Index [31m:=[m Line_Index [31m+[m [35m1[m[31m;[m
					  Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
					  Lines_Table[31m.[mLine_Last [31m:=[m Lines_Table[31m.[mLine_Last [31m+[m [35m1[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m

				    [01;34melsif[m Wchar_Index [31m>[m [35m1[m [01;34mthen[m
				       Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mWchar_index[31m));[m
				       Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWchar_Index[31m+[m[35m1[m[31m..[mWline'Length[31m));[m
				       [01;30mWide_Free[m[31m([mLines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m));[m
				       Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Left_Buffer[31m;[m				       
				       
				       [01;34mfor[m Line [01;34min[m [01;34mreverse[m Line_Index [31m..[m Lines_Table[31m.[mLine_Last [01;34mloop[m
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine [31m+[m [35m1[m[31m)[m [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine[31m);[m
				       [01;34mend[m [01;34mloop[m[31m;[m
				       Line_Index [31m:=[m Line_Index [31m+[m [35m1[m[31m;[m					  
				       Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
				       Lines_Table[31m.[mLine_Last [31m:=[m Lines_Table[31m.[mLine_Last [31m+[m [35m1[m[31m;[m					  
				    [01;34melse[m
				       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWline[31m.[m[01;34mall[m[31m);[m
				       Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
				       [01;34mfor[m Line [01;34min[m [01;34mreverse[m Line_Index [31m..[m Lines_Table[31m.[mLine_Last [01;34mloop[m
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine [31m+[m [35m1[m[31m)[m [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine[31m);[m
				       [01;34mend[m [01;34mloop[m[31m;[m
				       Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline [31m;[m
				       Line_Index [31m:=[m Line_Index [31m+[m [35m1[m[31m;[m					  
				       Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wbuffer[31m;[m
				       Lines_Table[31m.[mLine_Last [31m:=[m Lines_Table[31m.[mLine_Last [31m+[m [35m1[m[31m;[m					  
				    [01;34mend[m [01;34mif[m[31m;[m
				    Wline [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_index[31m);[m
				    Wchar_Index [31m:=[m [35m0[m[31m;[m
				    Wline_Length [31m:=[m Wline'Length[31m;[m
				    Line_Current_Pos [31m:=[m [35m0[m[31m;[m

				    [01;34mif[m Line_Cur [31m>=[m App[31m.[mDocument[31m.[mWin[31m.[mH[31m-[m[35m2[m [01;34mthen[m
				       Doc_Index [31m:=[m Doc_Index [31m+[m [35m1[m[31m;[m
				    [01;34melse[m
				       Line_Cur [31m:=[m Line_Cur [31m+[m [35m1[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    Col_Cur [31m:=[m [35m1[m[31m;[m

				 [01;34melse[m
				    W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34melse[m
				 Line_Index [31m:=[m Line_Index [31m+[m [35m1[m[31m;[m
				 Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
				 Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
				 Lines_Table[31m.[mLine_Last [31m:=[m Lines_Table[31m.[mLine_Last [31m+[m [35m1[m[31m;[m
				 [01;34mif[m Line_Cur [31m>=[m Height [01;34mthen[m
				    Doc_Index [31m:=[m Doc_Index [31m+[m [35m1[m[31m;[m
				 [01;34melse[m
				    Line_Cur [31m:=[m Line_Cur [31m+[m [35m1[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 Col_Cur [31m:=[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      

			      [31m--Clocking.refresh;[m
			      
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m			

			      Screen_Lock[31m.[mSeize[31m;[m
			      [01;30mPut[m[31m([mSave_Cursor[31m);[m
			      
			      
			      [01;30mEdit_Draw_Main_Win[m [31m([mApp[31m);[m
			      [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m
			      
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
			      			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m





			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
			      
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

			      [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
			      [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
			      [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
			      [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
			      [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
			      [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
			      [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
			      [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
			      [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
			      [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
			      
			      

			      
			      [01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
				 [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      

			      
			      [01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
				 [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			      [01;34melse[m
				 [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m

			      [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
				 [01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
				    
				    [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m

				 [01;30mSet_Free[m[31m([mLines_Set[31m);[m

				 [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  

				 [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
				    [01;34mraise[m Spec_Error[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m

			      [01;34melse[m

				 [01;30mSet_Free[m[31m([mLines_Table[31m);[m

				 [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

				 [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
				    [01;34mraise[m Program_Error[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m

			      [01;34mend[m [01;34mif[m[31m;[m
			      
			      
			      [01;30mPut[m[31m([mRestore_Cursor[31m);[m
			      Screen_Lock[31m.[mRelease[31m;[m

			      Clocking[31m.[mRefresh[31m;[m

			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m14[m[31m)[m [31m=>[m
			      Clocking[31m.[mSuspend[31m;[m			
			      [31m--Goal_Path_Deamon.Suspend;[m

			      [01;34mloop[m
				 [01;34mbegin[m
				    [01;30mDraw_Window[m[31m([mEmpty_Win[31m);[m
				    [01;34mdeclare[m
				       Filename [31m:[m [32mWide_String[m [31m:=[m 
					 [01;30mNew_Wide_String[m [31m([m[31m"New file"[m[31m,[m [31m"Filename : "[m[31m,[m  [35m64[m[31m,[m Lines[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Columns[31m/[m[35m4[m[31m-[m[35m40[m[31m,[m True[31m);[m
				       
				       
				    [01;34mbegin[m
				       [01;30mDraw_Window[m[31m([mEmpty_Win[31m);[m
				       [01;34mdeclare[m
					  Response [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m
					    [31m([mNew_Wide_String 
					       [31m([m[31m"License"[m[31m,[m [31m"Include the Gnu Public Licence ? (y/o or n) : "[m[31m,[m  [35m50[m[31m,[m Lines[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Columns[31m/[m[35m4[m[31m-[m[35m50[m[31m,[m True[31m));[m
					  License  [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
				       [01;34mbegin[m
					  [01;34mif[m [01;30mResponse[m[31m([m[35m1[m[31m)[m [31m=[m [31m'y'[m [01;34mor[m
					    [01;30mResponse[m[31m([m[35m1[m[31m)[m [31m=[m [31m'Y'[m  [01;34mor[m
					    [01;30mResponse[m[31m([m[35m1[m[31m)[m [31m=[m [31m'o'[m [01;34mor[m
					    [01;30mResponse[m[31m([m[35m1[m[31m)[m [31m=[m [31m'O'[m [01;34mthen[m
					     License [31m:=[m True[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m

					  
					  [01;34mif[m License [01;34mthen[m
					     [01;30mDraw_Window[m[31m([mEmpty_Win[31m);[m
					     [01;34mdeclare[m
						Description [31m:[m [32mWide_String[m [31m:=[m 
						  [01;30mNew_Wide_String[m  [31m([m[31m"Descrption"[m[31m,[m [31m"Descr : "[m[31m,[m [35m64[m[31m,[m Lines[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Columns[31m/[m[35m4[m[31m-[m[35m40[m[31m,[m True[31m);[m
						
					     [01;34mbegin[m
						[01;30mDraw_Window[m[31m([mEmpty_Win[31m);[m
						[01;34mdeclare[m
						   Version [31m:[m [32mWide_String[m [31m:=[m 
						     [01;30mNew_Wide_String[m  [31m([m[31m"Version"[m[31m,[m [31m"Version : "[m[31m,[m [35m20[m[31m,[m Lines[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Columns[31m/[m[35m4[m[31m-[m[35m20[m[31m,[m True[31m);[m
						[01;34mbegin[m

						   [01;30mSet_Free[m[31m([mLines_Table[31m);[m

						   [01;30mDocume_Free[m[31m([mApp[31m.[mCurrent_Doc[31m);[m

						   [01;30mNew_Doc[m [31m([mCenter [31m=>[m App[31m.[m[01;34mall[m[31m,[m
							    Lines_Table [31m=>[m Lines_Table[31m,[m
							    Docume [31m=>[m App[31m.[mCurrent_Doc[31m,[m
							    Filename [31m=>[m Handling[31m.[m[01;30mTo_String[m[31m([mFilename[31m),[m
							    Version  [31m=>[m Version[31m,[m
							    License [31m=>[m True[31m,[m
							    Description [31m=>[m Description[31m);[m

						   App[31m.[mCurrent_Doc[31m.[mOwner [31m:=[m [01;34mnew[m [32mString[m ' [31m([mApp[31m.[mUser[31m.[mLogname[31m.[m[01;34mall[m[31m);[m
						   
						   Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m

						   Lines_Table[31m.[m[01;30mlines[m[31m([mLines_Table[31m.[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wline[31m;[m
						   
						   Lines_Table[31m.[mLine_Last [31m:=[m Lines_Table[31m.[mLine_Last [31m+[m [35m1[m[31m;[m
						   
						   App[31m.[mDoc_Initialized [31m:=[m True[31m;[m

						   
						   Doc_Index [31m:=[m [35m0[m[31m;[m
						   
						   
						   Line_Cur [31m:=[m [35m1[m[31m;[m
						   Col_Cur [31m:=[m [35m1[m[31m;[m						
						   Wchar_Index [31m:=[m [35m0[m[31m;[m
						   Line_Current_Pos [31m:=[m [35m0[m[31m;[m

						[01;34mend[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34melse[m
					     [01;30mDraw_Window[m[31m([mEmpty_Win[31m);[m
					     [01;34mdeclare[m
						Version [31m:[m [32mWide_String[m [31m:=[m 
						  [01;30mNew_Wide_String[m  [31m([m[31m"Version"[m[31m,[m [31m"Version : "[m[31m,[m [35m20[m[31m,[m Lines[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Columns[31m/[m[35m4[m[31m-[m[35m20[m[31m,[m True[31m);[m
					     [01;34mbegin[m
						[01;30mSet_Free[m[31m([mLines_Table[31m);[m

						[01;30mDocume_Free[m[31m([mApp[31m.[mCurrent_Doc[31m);[m
						[01;30mNew_Doc[m [31m([mCenter [31m=>[m App[31m.[m[01;34mall[m[31m,[m
							 Lines_Table [31m=>[m Lines_Table[31m,[m
							 Docume [31m=>[m App[31m.[mCurrent_Doc[31m,[m
							 Filename [31m=>[m Handling[31m.[m[01;30mTo_String[m[31m([mFilename[31m),[m
							 Version [31m=>[m Version[31m,[m
							 License [31m=>[m False[31m,[m
							 Description [31m=>[m [31m""[m[31m);[m
						App[31m.[mCurrent_Doc[31m.[mOwner [31m:=[m [01;34mnew[m [32mString[m ' [31m([mApp[31m.[mUser[31m.[mLogname[31m.[m[01;34mall[m[31m);[m
						Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
						Lines_Table[31m.[m[01;30mlines[m[31m([mLines_Table[31m.[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wline[31m;[m
						Lines_Table[31m.[mLine_Last [31m:=[m Lines_Table[31m.[mLine_Last [31m+[m [35m1[m[31m;[m
						App[31m.[mDoc_Initialized [31m:=[m True[31m;[m
						Doc_Index [31m:=[m [35m0[m[31m;[m
						Line_Cur [31m:=[m [35m1[m[31m;[m
						Col_Cur [31m:=[m [35m1[m[31m;[m
						Wchar_Index [31m:=[m [35m0[m[31m;[m
						Line_Current_Pos [31m:=[m [35m0[m[31m;[m
					     [01;34mend[m[31m;[m
					     
					  [01;34mend[m [01;34mif[m[31m;[m
					  
					  [31m--Current_State := Document;[m
				       [01;34mexception[m
					  [01;34mwhen[m End_Error [31m=>[m
					     [01;34mexit[m[31m;[m
					     
				       [01;34mend[m[31m;[m
				    [01;34mexception[m
				       [01;34mwhen[m End_Error [31m=>[m
					  [01;34mexit[m[31m;[m
				    [01;34mend[m[31m;[m

				    Screen_Lock[31m.[mSeize[31m;[m
				    [01;30mEdit_Draw_Main_Win[m [31m([mApp[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m





				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m

				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

				    [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
				    [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
				    [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
				    [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
				    [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
				    [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
				    [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
				    [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
				    [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m71[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m83[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
				    [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m86[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
				    
				    Screen_Lock[31m.[mRelease[31m;[m
				    [01;34mexit[m[31m;[m
				 [01;34mexception[m
				    [01;34mwhen[m W_Io[31m.[mEnd_Error [31m=>[m
				       [01;34mnull[m[31m;[m			   
				 [01;34mend[m[31m;[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      Clocking[31m.[mStart[31m;[m		
			      [31m--Goal_Path_Deamon.Restart;[m
			      Done [31m:=[m False[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m15[m[31m)[m [31m=>[m			
			      Clocking[31m.[mSuspend[31m;[m			
			      [31m--Goal_Path_Deamon.Suspend;[m
			      [01;34mloop[m
				 [01;34mbegin[m
				    
				    [01;30mDraw_Window[m[31m([mEmpty_Win[31m);[m
				    [01;34mdeclare[m
				       Filename [31m:[m [32mWide_String[m [31m:=[m 
					 [01;30mNew_Wide_String[m [31m([m[31m"Open file"[m[31m,[m [31m"Filename : "[m[31m,[m  [35m64[m[31m,[m Lines[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Columns[31m/[m[35m4[m[31m-[m[35m40[m[31m,[m True[31m);[m
				    [01;34mbegin[m

				       [01;30mDocume_Free[m[31m([mApp[31m.[mCurrent_Doc[31m);[m

				       [01;30mSet_Free[m[31m([mLines_Table[31m);[m

				       [01;30mOpen_Doc[m [31m([mLines_Table [31m=>[m Lines_Table[31m,[m
						 Docume [31m=>[m App[31m.[mCurrent_Doc[31m,[m
						 Filename [31m=>[m Handling[31m.[m[01;30mTo_String[m[31m([mFilename[31m));[m

				       [01;30mWide_Free[m[31m([mTitle[31m);[m

				       Title [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mTroncate[m[31m([mFilename[31m,[m [35m50[m[31m));[m

				       
				       
				       App[31m.[mDoc_Initialized [31m:=[m True[31m;[m
				       
				       [01;34mif[m Lines_Table[31m.[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
					  Wline [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([m[35m1[m[31m);[m
					  Wline_Length [31m:=[m [01;30mReal_Length[m[31m([mWline[31m.[m[01;34mall[m[31m);[m
				       [01;34melse[m
					  Lines_Table[31m.[m[01;30mLines[m[31m([m[35m1[m[31m)[m [31m:=[m Wline[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m

				       Line_Index [31m:=[m [35m1[m[31m;[m
				       Doc_Index [31m:=[m [35m0[m[31m;[m			   
				       Line_Current_Pos [31m:=[m [35m0[m[31m;[m
				       Line_Cur [31m:=[m [35m1[m[31m;[m
				       Col_Cur [31m:=[m [35m1[m[31m;[m
				       Wchar_Index [31m:=[m [35m0[m[31m;[m
				       [01;34mexit[m [31m;[m
				    [01;34mexception[m
				       [01;34mwhen[m Spec_Error [31m=>[m
					  [01;34mnull[m[31m;[m
					  
				    [01;34mend[m[31m;[m			
				 [01;34mexception[m
				    [01;34mwhen[m End_Error [31m=>[m
				       [01;34mexit[m[31m;[m
				 [01;34mend[m[31m;[m

				 Screen_Lock[31m.[mSeize[31m;[m

				 [01;30mEdit_Draw_Main_Win[m [31m([mApp[31m);[m
				 [31m--Current_State := Document;[m
				 
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m cyan[31m,[m [31m"Is Document mode"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m






				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m

				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

				 [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
				 [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
				 [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
				 [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
				 [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
				 [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m

				 [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
				 [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
				 [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
				 Screen_Lock[31m.[mRelease[31m;[m
			      [01;34mend[m [01;34mloop[m[31m;[m

			      Clocking[31m.[mStart[31m;[m

			      [31m--Goal_Path_Deamon.Restart;[m
			      Done [31m:=[m False[31m;[m
			      
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m18[m[31m)[m [31m=>[m
			      Clocking[31m.[mSuspend[31m;[m
			      Is_Overwrite [31m:=[m True[31m;[m
			      Is_Full [31m:=[m False[31m;[m
			      
			      [01;30mDevel_Win_Init[m[31m([mApp[31m,[m [35m0[m[31m,[m false[31m);[m
			      Mode[31m.[mState [31m:=[m True[31m;[m
			      Done [31m:=[m True[31m;[m
			      [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m

				 [01;30mDraw_Window[m[31m([mApp[31m.[mErr[31m.[mWin[31m);[m
				 [01;34mif[m Result[31m.[mSuccess [01;34mthen[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Success"[m[31m);[m
				 [01;34melse[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Failure"[m[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m
				 [01;30mDraw_Buffer[m[31m([mResult[31m,[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Result_Index[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m
			      [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mand[m [01;34mthen[m Result[31m.[mSuccess [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Cmd   : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m White[31m,[m
					   Handling[31m.[m[01;30mTo_Wide_String[m[31m([mOs_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m))).[m[01;34mall[m[31m));[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Args : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m10[m[31m,[m White[31m,[m 
					   [01;30mTroncate[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m)([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m))[m'Length[31m+[m[35m2[m[31m..[mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m)[m'Last[31m),[m Columns[31m/[m[35m2[m[31m-[m[35m10[m[31m));[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Error : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m10[m[31m,[m White[31m,[m  Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([mResult[31m.[mReturn_Code[31m)));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      			     
			      [01;30mDraw_Window[m[31m([mApp[31m.[mCmd[31m.[mWin[31m);[m
			      [01;34mif[m Text [31m/=[m [01;34mnull[m [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Text[31m.[m[01;34mall[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      Clocking[31m.[mstart[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m

			      [01;34mif[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m

				 [01;34mif[m Line_Current_Pos [31m>[m [35m1[m [01;34mthen[m

				    
				    [01;34mif[m Line_Current_Pos [31m>[m [35m2[m [01;34mthen[m
				       [01;34mif[m Wline'Length [31m>=[m [35m2[m [01;34mthen[m
					  
					  Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mLine_Current_Pos[31m-[m[35m1[m[31m));[m
					  [01;34mif[m Line_Current_Pos [31m<[m Wline'Length [01;34mthen[m
					     
					     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m [01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline'Last[31m));[m
					  [01;34melsif[m Line_Current_Pos[31m+[m[35m1[m [31m=[m Wline'Length [01;34mthen[m
					     
					     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
						[01;34melse[m
						   
						   Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
				       [01;34melse[m
					  
					  Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mLine_Current_Pos[31m-[m[35m1[m[31m));[m
					  Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				    [01;34melsif[m Line_Current_Pos [31m=[m [35m2[m [01;34mthen[m
				       
				       Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mWline'first[31m));[m
				       
				       [01;34mif[m Wline'Length [31m>=[m [35m2[m [01;34mthen[m
					  
					  Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m [01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline_Length[31m));[m
					  
				       [01;34melse[m
					  
					  Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34melse[m
				       [01;34mif[m Wline'Length [31m>=[m [35m2[m [01;34mthen[m
					  
					  Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline'Length[31m));[m
					  
					  Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
				       [01;34melse[m
					  Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m		
				    
				    [01;30mWide_Free[m[31m([mWline[31m);[m
				    Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
				    [01;30mWide_Free[m[31m([mWbuffer[31m);[m
				    [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
				    Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
				    wchar_Index [31m:=[m Wchar_Index [31m-[m [35m1[m[31m;[m
				    Line_Current_Pos [31m:=[m Line_Current_Pos [31m-[m [35m1[m[31m;[m
				    Wline_Length [31m:=[m Wline'Length[31m;[m
				    
				    Line_Cur [31m:=[m [01;30mCount[m [31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
				    
				    [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
				       Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
				    [01;34melse[m
				       Col_Cur [31m:=[m [35m1[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				 [01;34melse[m
				    
				    
				    [01;34mif[m Wline'Length [31m=[m [35m0[m [01;34mthen[m
				       [01;34mif[m Line_Index [31m>[m [35m1[m [01;34mthen[m
					  
					  [01;34mif[m Wline'Length [31m>=[m [35m1[m [01;34mthen[m
					     
					     Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLines_Table[31m.[m[01;30mLines[m[31m([mLine_Index [31m-[m [35m1[m[31m).[m[01;34mall[m [31m&[m [01;30mWline[m[31m([mWline'first[31m..[mLine_Current_Pos[31m));[m
					     
					     [01;34mif[m Line_Current_Pos[31m+[m[35m1[m [31m<[m Wline'Length [01;34mthen[m
						
						Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m [01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline'Last[31m));[m

					     [01;34melse[m
						Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34melse[m
					     
					     Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLines_Table[31m.[m[01;30mLines[m[31m([mLine_Index [31m-[m [35m1[m[31m).[m[01;34mall[m[31m);[m						
					     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
					     
					  [01;34mend[m [01;34mif[m[31m;[m						
					  Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
					  [01;30mWide_Free[m[31m([mWbuffer[31m);[m					  
					  [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m					     
					  [01;30mWide_Free[m[31m([mLines_Table[31m.[m[01;30mLines[m[31m([mLine_Index [31m-[m [35m1[m[31m));[m
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index [31m-[m [35m1[m[31m)[m [31m:=[m Wline[31m;[m
					  
					  [01;34mif[m Line_Index [31m<[m Lines_Table[31m.[mLine_Last [01;34mthen[m
					     [01;34mfor[m Line [01;34min[m Line_Index [31m+[m [35m1[m[31m..[m Lines_Table[31m.[mLine_Last [01;34mloop[m
						Lines_Table[31m.[m[01;30mLines[m[31m([mLine[31m-[m[35m1[m[31m)[m [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine[31m);[m
					     [01;34mend[m [01;34mloop[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
					  Line_Index [31m:=[m Line_Index [31m-[m [35m1[m[31m;[m
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLines_Table[31m.[mLine_Last[31m)[m [31m:=[m [01;34mnull[m[31m;[m
					  Lines_Table[31m.[mLine_Last [31m:=[m Lines_Table[31m.[mLine_Last [31m-[m [35m1[m[31m;[m
					  Wline_Length [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m'Length[31m;[m
					  Wchar_Index [31m:=[m Wline_Length[31m;[m
					  Line_Current_Pos [31m:=[m Wchar_Index[31m;[m
					  
					  Line_Cur [31m:=[m [01;30mCount[m [31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
					  
					  [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
					  [01;34melse[m
					     Col_Cur [31m:=[m [35m1[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
				       [01;34melse[m
					  W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
				       [01;34mend[m [01;34mif[m[31m;[m				       				       
				    [01;34melsif[m Line_Index [31m>[m [35m1[m [01;34mthen[m
				       [01;34mif[m Line_Current_Pos [31m=[m [35m0[m [01;34mthen[m
					  

					  Wchar_Index [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index [31m-[m [35m1[m[31m)[m'Length[31m;[m

					  [01;34mif[m Wline'Length [31m>=[m [35m1[m [01;34mthen[m
					     Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"3"[m[31m);[m
					     Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLines_Table[31m.[m[01;30mLines[m[31m([mLine_Index [31m-[m [35m1[m[31m).[m[01;34mall[m [31m&[m Wline[31m.[m[01;34mall[m[31m);[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
					  Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m

					  [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m					     
					  [01;30mWide_Free[m[31m([mLines_Table[31m.[m[01;30mLines[m[31m([mLine_Index [31m-[m [35m1[m[31m));[m

					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index [31m-[m [35m1[m[31m)[m [31m:=[m Wline[31m;[m
					  
					  [01;34mif[m Line_Index [31m<=[m Lines_Table[31m.[mLine_Last [01;34mthen[m
					     [01;34mfor[m Line [01;34min[m Line_Index [31m..[m Lines_Table[31m.[mLine_Last[31m-[m[35m1[m [01;34mloop[m
						Lines_Table[31m.[m[01;30mLines[m[31m([mLine[31m)[m [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine[31m+[m[35m1[m[31m);[m
					     [01;34mend[m [01;34mloop[m[31m;[m
					     Lines_Table[31m.[m[01;30mLines[m[31m([mLines_Table[31m.[mLine_Last[31m)[m [31m:=[m [01;34mnull[m[31m;[m
					     Lines_Table[31m.[mLine_Last [31m:=[m Lines_Table[31m.[mLine_Last [31m-[m [35m1[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  Line_Index [31m:=[m Line_Index [31m-[m [35m1[m[31m;[m
					  

					  
					  Wline_Length [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m'Length[31m;[m

					  Line_Current_Pos [31m:=[m Wchar_Index[31m;[m

					  Line_Cur [31m:=[m [01;30mCount[m [31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m

					  [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
					  [01;34melse[m
					     Col_Cur [31m:=[m [35m1[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m

				       [01;34melsif[m Line_Current_Pos [31m<[m Wline'Length [01;34mthen[m
					  
					  Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline'Last[31m));[m
					  Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
					  [01;30mWide_Free[m[31m([mWbuffer[31m);[m					  
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
					  
				       [01;34melse[m
					  
					  Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
					  Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
					  [01;30mWide_Free[m[31m([mWbuffer[31m);[m					  
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				       [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m					     
				       
				       Wline_Length [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m'Length[31m;[m
				       Wchar_Index [31m:=[m [35m0[m[31m;[m
				       Line_Current_Pos [31m:=[m [35m0[m[31m;[m
				       Col_Cur [31m:=[m [35m1[m[31m;[m
				       
				    [01;34melsif[m Line_Index [31m=[m [35m1[m [01;34mthen[m
				       [01;34mif[m Line_Current_Pos [31m>[m [35m2[m [01;34mthen[m
					  
					  [01;34mif[m Wline'Length [31m>=[m [35m2[m [01;34mthen[m
					     
					     Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mLine_Current_Pos[31m-[m[35m1[m[31m));[m
					     [01;34mif[m Line_Current_Pos [31m<[m Wline'Length [01;34mthen[m
						Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m [01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline'Last[31m));[m
					     [01;34melse[m
						Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
					     [01;34mend[m [01;34mif[m[31m;[m

					  [01;34melse[m
					     
					     Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mLine_Current_Pos[31m-[m[35m1[m[31m));[m
					     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
					     
					  [01;34mend[m [01;34mif[m[31m;[m
					  
					  [01;30mWide_Free[m[31m([mWline[31m);[m
					  Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
					  [01;30mWide_Free[m[31m([mWbuffer[31m);[m
					  [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
					  Wchar_Index [31m:=[m Wchar_Index [31m-[m [35m1[m[31m;[m
					  Line_Current_Pos [31m:=[m Line_Current_Pos [31m-[m [35m1[m[31m;[m
					  Wline_Length [31m:=[m Wline'Length[31m;[m
					  
					  Line_Cur [31m:=[m [01;30mCount[m [31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
					  
					  [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
					  [01;34melse[m
					     Col_Cur [31m:=[m [35m1[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
				       [01;34melsif[m Line_Current_Pos [31m=[m [35m2[m [01;34mthen[m
					  Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mWline'first[31m));[m
					  
					  [01;34mif[m Wline'Length [31m>=[m [35m2[m [01;34mthen[m
					     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m [01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline_Length[31m));[m
					  [01;34melse[m
					     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
					  [01;34mend[m [01;34mif[m[31m;[m

					  [01;30mWide_Free[m[31m([mWline[31m);[m
					  Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
					  [01;30mWide_Free[m[31m([mWbuffer[31m);[m
					  [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
					  Wchar_Index [31m:=[m Wchar_Index [31m-[m [35m1[m[31m;[m
					  Line_Current_Pos [31m:=[m Line_Current_Pos [31m-[m [35m1[m[31m;[m
					  Wline_Length [31m:=[m Wline'Length[31m;[m
					  Line_Cur [31m:=[m [01;30mCount[m [31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
					  [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
					  [01;34melse[m
					     Col_Cur [31m:=[m [35m1[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m

				       [01;34melsif[m Line_Current_Pos [31m=[m [35m1[m [01;34mthen[m
					  [01;34mif[m Wline'Length [31m>=[m [35m2[m [01;34mthen[m

					     Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline'Length[31m));[m
					     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m

					  [01;34melse[m

					     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
					  [01;34mend[m [01;34mif[m[31m;[m

					  [01;30mWide_Free[m[31m([mWline[31m);[m
					  Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
					  [01;30mWide_Free[m[31m([mWbuffer[31m);[m
					  [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
					  Wchar_Index [31m:=[m Wchar_Index [31m-[m [35m1[m[31m;[m
					  Line_Current_Pos [31m:=[m Line_Current_Pos [31m-[m [35m1[m[31m;[m
					  Wline_Length [31m:=[m Wline'Length[31m;[m

					  Line_Cur [31m:=[m [01;30mCount[m [31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m

					  [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
					  [01;34melse[m
					     Col_Cur [31m:=[m [35m1[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m

				       [01;34melsif[m Line_Current_Pos [31m=[m [35m0[m [01;34mthen[m

					  [01;34mif[m Wline'Length [31m>[m [35m0[m [01;34mthen[m
					     Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline'Length[31m));[m
					     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
					  [01;34melse[m

					     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  [01;30mWide_Free[m[31m([mWline[31m);[m
					  Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
					  [01;30mWide_Free[m[31m([mWbuffer[31m);[m
					  [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
					  Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
					  Wline_Length [31m:=[m Wline'Length[31m;[m
					  Line_Cur [31m:=[m [01;30mCount[m [31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
					  [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
					  [01;34melse[m
					     Col_Cur [31m:=[m [35m1[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m

				       [01;34melse[m
					  W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
				       [01;34mend[m [01;34mif[m[31m;[m				       				       
				       
				       
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m			      
			      [01;34melse[m
				 W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
				 [31m-- beep...[m
			      [01;34mend[m [01;34mif[m[31m;[m	   

			      
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m

			Screen_Lock[31m.[mSeize[31m;[m
			[01;30mPut[m[31m([mSave_Cursor[31m);[m

			[01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m

			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			[01;34melse[m

			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m

			   [01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mSet_Free[m[31m([mLines_Set[31m);[m

			   [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
			   [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Spec_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34melse[m

			   [01;30mSet_Free[m[31m([mLines_Table[31m);[m
			   [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Program_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			


			[01;30mPut[m[31m([mRestore_Cursor[31m);[m

			Screen_Lock[31m.[mRelease[31m;[m

			[31m--Clocking.Refresh;[m

		     [01;34melse[m

			[01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  Wline'Length [31m=[m [35m256[m [01;34mthen[m
			   Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			[01;34melse[m
			   [01;34mif[m Wline'Length [31m=[m [35m0[m [01;34mthen[m
			      Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWline[31m.[m[01;34mall[m [31m&[m Wchar[31m);[m
			      [01;30mWide_Free[m[31m([mWline[31m);[m
			      Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
			      [01;30mWide_Free[m[31m([mWbuffer[31m);[m			
			      
			      Wchar_Index [31m:=[m Wline'Length[31m;[m
			      Line_Current_Pos [31m:=[m Wline'Length[31m;[m
			      Wline_Length [31m:=[m Wline'Length[31m;[m
			   [01;34melsif[m Line_Current_Pos [31m=[m Wline'Length [01;34mthen[m
			      Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWline[31m.[m[01;34mall[m [31m&[m Wchar[31m);[m
			      [01;30mWide_Free[m[31m([mWline[31m);[m
			      Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
			      [01;30mWide_Free[m[31m([mWbuffer[31m);[m			
			      Wline_Length [31m:=[m Wline'Length[31m;[m
			      Line_Current_Pos [31m:=[m Wline_length[31m;[m
			      Wchar_Index [31m:=[m Wline'Length[31m;[m
			      
			      
			   [01;34melse[m
			      [01;34mif[m Line_Current_Pos [31m>[m [35m1[m [01;34mthen[m
				 [01;34mif[m [01;34mnot[m Is_Overwrite [01;34mthen[m
				    Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mLine_Current_Pos[31m));[m
				    [01;34mif[m Wline'Length [31m>[m Line_Current_Pos [01;34mthen[m
				       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m Wchar [31m&[m [01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline'Last[31m));[m
				    [01;34melse[m
				       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m Wchar[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    [01;30mWide_Free[m[31m([mWline[31m);[m
				    Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
				    [01;30mWide_Free[m[31m([mWbuffer[31m);[m					  
				    [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
				    Wline_Length [31m:=[m Wline_Length [31m+[m [35m1[m[31m;[m				 
				    Line_Current_Pos [31m:=[m Line_Current_Pos [31m+[m [35m1[m[31m;[m
				    Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m1[m[31m;[m
				 [01;34melse[m
				    Wide_Fixed[31m.[m[01;30mReplace_Slice[m [31m([mWline[31m.[m[01;34mall[m[31m,[m Line_Current_Pos[31m+[m[35m1[m[31m,[m Line_Current_Pos[31m+[m[35m1[m[31m,[m Wchar [31m&[m [31m""[m[31m);[m
				    Line_Current_Pos [31m:=[m Line_Current_Pos [31m+[m [35m1[m[31m;[m
				    Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m1[m[31m;[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m
				 
				 
			      [01;34melsif[m [01;34mnot[m Is_Overwrite [01;34mthen[m
				 [01;34mif[m Line_Current_Pos [31m=[m [35m1[m [01;34mthen[m
				    Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mLine_Current_Pos[31m));[m
				    [01;34mif[m Wline'Length [31m>[m Line_Current_Pos [01;34mthen[m
				       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m Wchar [31m&[m [01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m1[m[31m..[mWline'Last[31m));[m
				    [01;34melse[m
				       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m Wchar[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    [01;30mWide_Free[m[31m([mWline[31m);[m
				    Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
				    [01;30mWide_Free[m[31m([mWbuffer[31m);[m					  
				    [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
				    Wline_Length [31m:=[m Wline_Length [31m+[m [35m1[m[31m;[m				 
				    Line_Current_Pos [31m:=[m Line_Current_Pos [31m+[m [35m1[m[31m;[m
				    Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m1[m[31m;[m
				 [01;34melse[m
				    Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWchar [31m&[m Wline[31m.[m[01;34mall[m[31m);[m
				    [01;30mWide_Free[m[31m([mWline[31m);[m
				    Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
				    [01;30mWide_Free[m[31m([mWbuffer[31m);[m
				    Wline_Length [31m:=[m Wline_Length [31m+[m [35m1[m[31m;[m			      
				    Line_Current_Pos [31m:=[m Line_Current_Pos [31m+[m [35m1[m[31m;[m
				    Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m1[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34melse[m
				 Wide_Fixed[31m.[m[01;30mReplace_Slice[m [31m([mWline[31m.[m[01;34mall[m[31m,[m Line_Current_Pos[31m+[m[35m1[m[31m,[m Line_Current_Pos[31m+[m[35m1[m[31m,[m Wchar [31m&[m [31m""[m[31m);[m				       
				 Line_Current_Pos [31m:=[m Line_Current_Pos [31m+[m [35m1[m[31m;[m
				 Wchar_Index [31m:=[m Wchar_Index [31m+[m [35m1[m[31m;[m
				 
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mif[m [31m(([mCol_Cur [31m+[m [35m1[m[31m)[m [01;34mmod[m Width[31m)[m [31m=[m [35m0[m [01;34mthen[m
			      Line_Cur [31m:=[m Line_Cur [31m+[m [35m1[m[31m;[m
			      Col_Cur [31m:=[m [35m1[m[31m;[m
			   [01;34melse[m				 
			      Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

			Lines_Table[31m.[m[01;30mLines[m[31m([mLine_index[31m)[m [31m:=[m Wline[31m;[m

			Screen_Lock[31m.[mSeize[31m;[m

			[01;30mPut[m[31m([mSave_Cursor[31m);[m
			[01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m

			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			[01;34melse[m

			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
			   [01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m

			   [01;30mSet_Free[m[31m([mLines_Set[31m);[m
			   [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
			   [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Spec_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34melse[m
			   [01;30mSet_Free[m[31m([mLines_Table[31m);[m			   

			   [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Program_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;30mPut[m[31m([mRestore_Cursor[31m);[m
			Screen_Lock[31m.[mRelease[31m;[m
			Clocking[31m.[mRefresh[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m

		     [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m

			Screen_Lock[31m.[mSeize[31m;[m

			[01;30mPut[m[31m([mSave_Cursor[31m);[m
			[01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m

			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m




			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line_Index"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_index[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line, Col"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_cur[31m)[m [31m&[m [31m", "[m [31m&[m positive'[01;30mImage[m[31m([mCol_cur[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

			[31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
			[31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
			[31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m85[m[31m,[m Cyan[31m,[m [31m" ; line_last"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m100[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m103[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLines_Table[31m.[mLine_last[31m)));[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
			[01;30mPut[m[31m([mRestore_Cursor[31m);[m

			Screen_Lock[31m.[mRelease[31m;[m

			[01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
			   [01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m

			   [01;30mSet_Free[m[31m([mLines_Set[31m);[m
			   [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
			   [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Spec_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34melse[m

			   [01;30mSet_Free[m[31m([mLines_Table[31m);[m			   
			   [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Program_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34mend[m [01;34mif[m[31m;[m

		     [01;34melse[m

			Screen_Lock[31m.[mSeize[31m;[m
			[01;30mPut[m[31m([mSave_Cursor[31m);[m

			[01;30mDevel_Draw_Main_Win[m[31m([mApp[31m);[m

			[01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			[01;34melse[m
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
			   [01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m

			   [01;30mSet_Free[m[31m([mLines_Set[31m);[m
			   [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
			   [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Spec_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34melse[m

			   [01;30mSet_Free[m[31m([mLines_Table[31m);[m			   
			   [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Program_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34mend[m [01;34mif[m[31m;[m
			Screen_Lock[31m.[mRelease[31m;[m

		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m

		  Clocking[31m.[mstart[31m;[m

		  Clocking[31m.[mRefresh[31m;[m

		  [01;34mif[m [01;34mnot[m Done [01;34mthen[m
		     [01;34mif[m [01;34mnot[m Is_Full [01;34mthen[m
			[01;34mif[m App[31m.[m[01;30mdesktop[m[31m([m[35m2[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mcase[m App[31m.[m[01;30mdesktop[m[31m([m[35m2[m[31m).[mName [01;34mis[m
			      [01;34mwhen[m None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m Organizer [31m=>[m
				 [01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			      [01;34mwhen[m Manager [31m=>[m
				 [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     Done [31m:=[mTrue[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m

  	    [01;34mor[m
  	       [01;34maccept[m Halt  [01;34mdo[m
		  Clocking[31m.[mHalt[31m;[m
		  File_thread[31m.[mhalt[31m;[m
	       [01;34mend[m Halt[31m;[m
  	       [01;34mexit[m Main_Loop[31m;[m
  	    [01;34mor[m
	       [01;34maccept[m Full_Screen [01;34mdo[m
		  [01;34mif[m Is_Full [01;34mthen[m
		     [01;30mDraw_Window[m[31m([mEmpty_Win[31m);[m
		     [01;30mDevel_Win_Init[m[31m([mApp[31m,[m [35m0[m[31m,[m [01;34mnot[m Is_full[31m);[m


		     [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		       [01;34mnot[m App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
			[01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m

		     [01;30mInitialize[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m Lines[31m-[m[35m5[m[31m,[m [35m2[m[31m,[m [35m5[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m  Cyan[31m,[m White[31m);[m

		  [01;34melse[m
		     [01;30mDraw_Window[m[31m([mEmpty_Win[31m);[m
		     [01;30mDevel_Win_Init[m[31m([mApp[31m,[m [35m0[m[31m,[m [01;34mnot[m Is_full[31m);[m


		     [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		       [01;34mnot[m App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
			[01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mInitialize[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m Lines[31m-[m[35m5[m[31m,[m [35m2[m[31m,[m [35m5[m[31m,[m Columns[31m-[m[35m2[m[31m,[m  Cyan[31m,[m White[31m);[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Full_Screen[31m;[m
	       Is_Full [31m:=[m [01;34mnot[m Is_Full[31m;[m
	       [01;34mif[m [01;34mnot[m Is_Full [01;34mthen[m
		  [01;34mif[m App[31m.[m[01;30mdesktop[m[31m([m[35m2[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;34mcase[m App[31m.[m[01;30mdesktop[m[31m([m[35m2[m[31m).[mName [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Organizer [31m=>[m
			   [01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m Manager [31m=>[m
			   [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	       Screen_Lock[31m.[mseize[31m;[m
	       [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m

	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m





	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line_Index"[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_index[31m)));[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line, Col"[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_cur[31m)[m [31m&[m [31m", "[m [31m&[m positive'[01;30mImage[m[31m([mCol_cur[31m)));[m

	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

	       [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
	       [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
	       [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
	       [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
	       [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
	       [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m85[m[31m,[m Cyan[31m,[m [31m" ; line_last"[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m100[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m103[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLines_Table[31m.[mLine_last[31m)));[m

	       [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
	       [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
	       [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m71[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m83[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
	       [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m86[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m

	       [01;30mDraw_Window[m[31m([mApp[31m.[mDoc_states[31m.[mWin[31m);[m   
	       [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		 App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m		     
		  App[31m.[mCurrent_Doc[31m.[mOpenned [31m:=[m True[31m;[m
		  
		  [01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
		     
		     [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
		  [01;34melse[m

		     [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m

		  [01;30mSet_Free[m[31m([mLines_Set[31m);[m

		  [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m

		  [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m

		     [01;34mraise[m Spec_Error[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m		
	       [01;34mend[m [01;34mif[m[31m;[m

	       [01;34mif[m [01;34mnot[m App[31m.[mDoc_Initialized [01;34mthen[m	
		  [01;30mSet_Free[m[31m([mLines_Table[31m);[m
		  [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
		  [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
		     [01;34mraise[m Program_Error[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34melse[m
		  [01;30mSet_Free[m[31m([mLines_Set[31m);[m
		  [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
		  [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
		  [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
		     [01;34mraise[m Spec_Error[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m

	       Screen_Lock[31m.[mRelease[31m;[m

	       Clocking[31m.[mStart[31m;[m



	       [01;34mdelay[m [35m0.25[m[31m;[m

	    [01;34mor[m
  	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  Is_Full [31m:=[m False[31m;[m
		  
		  
		  Screen_Lock[31m.[mseize[31m;[m
		  [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		    [01;34mnot[m App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
		     [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  [01;30mInitialize[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m Lines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m5[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m  Cyan[31m,[m White[31m);[m
		  
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		     [01;30mEdit_Win_Init[m[31m([mApp[31m,[m Top[31m,[m false[31m);[m

		     [01;30mEdit_Draw_Main_Win[m[31m([mApp[31m);[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m





		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
		     
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		  [01;34melse[m
		     [01;30mDevel_Win_Init[m[31m([mApp[31m,[m Top[31m,[m false[31m);[m
		     [01;30mDevel_Draw_Main_Win[m[31m([mApp[31m);[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  [01;30mDraw_Window[m[31m([mApp[31m.[mDoc_states[31m.[mWin[31m);[m   
		  [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		    App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m		     
		     App[31m.[mCurrent_Doc[31m.[mOpenned [31m:=[m True[31m;[m

		     [01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m

			[01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
		     [01;34melse[m

			[01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m

		     [01;30mSet_Free[m[31m([mLines_Set[31m);[m

		     [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m

		     [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m

			[01;34mraise[m Spec_Error[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m		
		  [01;34mend[m [01;34mif[m[31m;[m

		  [01;34mif[m [01;34mnot[m App[31m.[mDoc_Initialized [01;34mthen[m	
		     [01;30mSet_Free[m[31m([mLines_Table[31m);[m
		     [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
		     [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			[01;34mraise[m Program_Error[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34melse[m
		     [01;30mSet_Free[m[31m([mLines_Set[31m);[m
		     [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
		     [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
		     [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			[01;34mraise[m Spec_Error[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m Mode[31m.[mState [01;34mthen[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mErr[31m.[mWin[31m);[m		  
		     [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m			
		     [01;30mDraw_Window[m[31m([mApp[31m.[mCmd[31m.[mWin[31m);[m
		     [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
			[01;34mif[m Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m)))[m [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m)))[m'Length [31m/=[m [35m0[m [01;34mthen[m
			   [01;34mif[m Result[31m.[mSuccess [01;34mthen[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Success"[m[31m);[m
			   [01;34melse[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Failure"[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mif[m Last_Cmd [31m=[m None [01;34mthen[m			   
			      [01;30mDraw_Buffer[m[31m([mResult[31m,[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Result_Index[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m			
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Cmd   : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m White[31m,[m
				     Handling[31m.[m[01;30mTo_Wide_String[m[31m([mOs_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m))).[m[01;34mall[m[31m));[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Args  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m10[m[31m,[m White[31m,[m 
				     [01;30mTroncate[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m)([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m))[m'Length[31m+[m[35m2[m[31m..[mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m)[m'Last[31m),[m Columns[31m/[m[35m2[m[31m-[m[35m10[m[31m));[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Error : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m10[m[31m,[m White[31m,[m  Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([mErrno[31m)));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Cmd   : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Args  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Error : "[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  		  
		  Screen_Lock[31m.[mRelease[31m;[m
		  [01;34mif[m Top [31m=[m [35m0[m [01;34mthen[m
		     Clocking[31m.[mStart[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
  	       [01;34mend[m Wake_Up[31m;[m
  	    [01;34mor[m
	       
  	       [01;34maccept[m Suspend [01;34mdo[m

		  Clocking[31m.[mSuspend[31m;[m
		  File_Thread[31m.[mReset[31m;[m
	       [01;34mend[m Suspend[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Page_Down [01;34mdo[m
		  Screen_Lock[31m.[mSeize[31m;[m
		  [01;30mPut[m[31m([mSave_Cursor[31m);[m
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		     [01;34mif[m Doc_Index [31m+[m [31m([mHeight [31m/[m[35m3[m [31m*[m [35m2[m[31m)[m [31m<=[m Lines_Set[31m.[mLine_Last [01;34mthen[m
			Doc_Index [31m:=[m Doc_Index [31m+[m [31m([mHeight[31m/[m[35m3[m[31m*[m[35m2[m[31m);[m
			Line_Index [31m:=[m Line_Index [31m+[m [31m([mHeight[31m/[m[35m3[m[31m*[m[35m2[m[31m);[m
			Wline            [31m:=[m Lines_Set[31m.[m[01;30mLines[m[31m([mLine_Index[31m);[m
			Wline_Length     [31m:=[m Wline'Length[31m;[m
			Line_Current_Pos [31m:=[m [35m0[m[31m;[m
			Wchar_Index      [31m:=[m [35m1[m[31m;[m
			Line_Cur         [31m:=[m Line_Index [31m-[m [31m([mDoc_Index[31m);[m
			Col_Cur          [31m:=[m [35m1[m[31m;[m
			
			[01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			   
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			[01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			   [01;34mraise[m Spec_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m






		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line_Index"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_index[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line, Col"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_cur[31m)[m [31m&[m [31m", "[m [31m&[m positive'[01;30mImage[m[31m([mCol_cur[31m)));[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m85[m[31m,[m Cyan[31m,[m [31m" ; line_last"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m100[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m103[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLines_Table[31m.[mLine_last[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		  [01;34melse[m
		     Clocking[31m.[mSuspend[31m;[m			
		     
		     [01;34mcase[m Last_Cmd [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   
			   [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mand[m [01;34mthen[m			     
			     Result_Index[31m+([mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m-[mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m)[m [31m<[m Result[31m.[mWlines'Length  [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m
			      Result_Index [31m:=[m Positive'[01;30mMin[m[31m([mResult_Index[31m+([mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m-[mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m),[m 
			   				   Result[31m.[mWlines'Length[31m);[m
			      [31m--else[m
			      [31m--Text_Io.Put(Character'Val(7));[m
			      [01;30mDraw_Buffer[m[31m([mResult[31m,[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Result_Index[31m);[m
			   [01;34melse[m
			   File_Thread[31m.[mPage_Down[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			   
			   
			   
			[01;34mwhen[m Xls [31m=>[m
			   Xls_Index [31m:=[m Xls_Index [31m+[m [31m([mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m);[m
			   [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m
			   Internal[31m.[m[01;30mxls[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mOld_Text[31m.[m[01;34mall[m[31m),[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Xls_Index[31m,[m Total[31m,[m true[31m);[m

			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		     
		     Clocking[31m.[mStart[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;30mPut[m[31m([mRestore_Cursor[31m);[m
		  
		  Screen_Lock[31m.[mRelease[31m;[m
	       [01;34mend[m Page_Down[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Page_Up [01;34mdo[m		  
		  Screen_Lock[31m.[mSeize[31m;[m
		  [01;30mPut[m[31m([mSave_Cursor[31m);[m
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		     [01;34mif[m Doc_Index [31m-[m [31m([mHeight [31m/[m[35m3[m [31m*[m [35m2[m[31m)[m [31m>=[m [35m0[m [01;34mthen[m
			Doc_Index [31m:=[m Doc_Index [31m-[m [31m([mHeight[31m/[m[35m3[m[31m*[m[35m2[m[31m);[m
			Line_Index [31m:=[m Line_Index [31m-[m [31m([mHeight[31m/[m[35m3[m[31m*[m[35m2[m[31m);[m
			[01;30mPut[m[31m([mSave_Cursor[31m);[m
			[01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			   Wline            [31m:=[m Lines_Set[31m.[m[01;30mLines[m[31m([mLine_Index[31m);[m
			   Wline_Length     [31m:=[m Wline'Length[31m;[m
			   Line_Current_Pos [31m:=[m [35m0[m[31m;[m
			   Wchar_Index      [31m:=[m [35m0[m[31m;[m
			   Line_Cur         [31m:=[m Line_Index [31m-[m [31m([mDoc_Index[31m);[m
			   [31m--Line_Cur         := 1;[m
			   Col_Cur          [31m:=[m [35m1[m[31m;[m			   
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			[01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			   [01;34mraise[m Spec_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melsif[m Doc_Index [31m/=[m [35m0[m  [01;34mthen[m
			Doc_Index [31m:=[m [35m0[m[31m;[m
			[01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			   
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			[01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			   [01;34mraise[m Spec_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m






		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line_Index"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_index[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line, Col"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_cur[31m)[m [31m&[m [31m", "[m [31m&[m positive'[01;30mImage[m[31m([mCol_cur[31m)));[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m85[m[31m,[m Cyan[31m,[m [31m" ; line_last"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m100[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m103[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLines_Table[31m.[mLine_last[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		  [01;34melse[m
		     Clocking[31m.[mSuspend[31m;[m			
		     [01;34mcase[m Last_Cmd [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   
			   
			   [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mand[m [01;34mthen[m
			     Result_Index[31m-([mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m-[mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m)[m [31m>=[m [35m0[m  [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m      
			      Result_Index [31m:=[m Result_Index [31m-[m [31m([mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m-[mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m);[m
			      [01;30mDraw_Buffer[m[31m([mResult[31m,[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Result_Index[31m);[m
			   [01;34melsif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
			      Result_Index [31m:=[m [35m0[m[31m;[m
			      [31m--Text_Io.Put(Character'Val(7));[m
			      [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m      			      
			      [01;30mDraw_Buffer[m[31m([mResult[31m,[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Result_Index[31m);[m
			   [01;34melse[m
			   File_Thread[31m.[mPage_Up[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m	       
			   
			   
			[01;34mwhen[m Xls [31m=>[m
			   [01;34mif[m Xls_Index [31m>=[m [31m([mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m)[m [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m      
			      
			      Xls_Index [31m:=[m Xls_Index [31m-[m [31m([mApp[31m.[mCmd_Result[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m);[m
			      Internal[31m.[m[01;30mxls[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mOld_Text[31m.[m[01;34mall[m[31m),[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Xls_Index[31m,[m Total[31m,[m true[31m);[m

			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		     Clocking[31m.[mStart[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  [01;30mPut[m[31m([mRestore_Cursor[31m);[m
		  Screen_Lock[31m.[mRelease[31m;[m

	       [01;34mend[m Page_Up[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		     [01;34mif[m [01;34mnot[m [31m([mLine_Cur [31m=[m [35m1[m [01;34mand[m Doc_Index [31m=[m [35m0[m[31m)[m [01;34mthen[m

			[01;30mUp_Arrow[m[31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m App[31m.[mDocument[31m.[mWin[31m.[mH[31m,[m App[31m.[mDocument[31m.[mWin[31m.[mW[31m);[m
			
			Wline [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_index[31m);[m
			Wline_Length [31m:=[m [01;30mReal_Length[m[31m([mWline[31m.[m[01;34mall[m[31m);[m
			
			Line_Current_Pos [31m:=[m Wchar_Index[31m;[m
			Screen_Lock[31m.[mSeize[31m;[m
			[01;30mPut[m[31m([mSave_Cursor[31m);[m
			[01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			   
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			[01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			   [01;34mraise[m Spec_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m

			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m


			



			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line_Index"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_index[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line, Col"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_cur[31m)[m [31m&[m [31m", "[m [31m&[m positive'[01;30mImage[m[31m([mCol_cur[31m)));[m

			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

			[31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
			[31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
			[31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m85[m[31m,[m Cyan[31m,[m [31m" ; line_last"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m100[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m103[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLines_Table[31m.[mLine_last[31m)));[m

			[31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
			[31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
			[01;30mPut[m[31m([mRestore_Cursor[31m);[m
			Screen_Lock[31m.[mRelease[31m;[m
			Screen_Lock[31m.[mSeize[31m;[m
			[01;30mPut[m[31m([mSave_Cursor[31m);[m

			[01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			[01;34melse[m
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m

			   [01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mSet_Free[m[31m([mLines_Set[31m);[m

			   [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
			   [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Spec_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34melse[m

			   [01;30mSet_Free[m[31m([mLines_Table[31m);[m
			   [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Program_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;30mPut[m[31m([mRestore_Cursor[31m);[m
			Screen_Lock[31m.[mRelease[31m;[m
			
			Clocking[31m.[mRefresh[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34melse[m
		     
		     Screen_Lock[31m.[mSeize[31m;[m
		     [01;30mPut[m[31m([mSave_Cursor[31m);[m
		     

		     [01;34mif[m [31m([mHistory_Last [31m>[m [35m0[m[31m)[m [01;34mand[m [01;34mthen[m
   		       [31m([mHistory_Last [31m-[m History_Index[31m)[m [31m>[m [35m0[m [01;34mthen[m		  
   			Old_Length [31m:=[m Text'Length[31m;[m



   			[01;30mWide_Free[m[31m([mText[31m);[m
   			Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last [31m-[m [31m([mHistory_Index[31m)).[m[01;34mall[m[31m);[m
   			History_Index [31m:=[m History_Index [31m+[m [35m1[m[31m;[m		  			
			Cmd_Current_Pos [31m:=[m Text'Length[31m;[m

			
   		     [01;34melse[m
   			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
   		     [01;34mend[m [01;34mif[m[31m;[m

		     [01;30mDraw_Window[m[31m([mApp[31m.[mCmd[31m.[mWin[31m);[m
		     [01;34mif[m Text [31m/=[m [01;34mnull[m [01;34mthen[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Text[31m.[m[01;34mall[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m


		     [31m--  case Last_Cmd is[m
		     [31m--  	when None =>[m
			   
			   
		     [31m--  	   if Result /= null and then Result_Index - 1 >= 0 then[m
			      
		     [31m--  	      Draw_Window(App.Cmd_Result.Win);      [m
			      
		     [31m--  		 Result_Index := Result_Index - 1;[m
				 
		     [31m--  	      Draw_Buffer(Result, App.Cmd_Result.Win, Result_Index);[m
		     [31m--  	   elsif Result /= null then[m
		     [31m--  	      Text_Io.Put(Character'Val(7));[m
		     [31m--  	   else[m
		     [31m--  	      File_Thread.Up_Arrow;[m
		     [31m--  	   end if;[m
			   
		     [31m--  	when Xls =>[m
		     [31m--  	   Clocking.Suspend;	       [m
		     [31m--  	   if Xls_Index > 0 then[m
		     [31m--  	      Draw_Window(App.Cmd_Result.Win);      [m
		     [31m--  	      Xls_Index := Xls_Index -1;[m
		     [31m--  	      Internal.xls(Handling.To_String(Old_Text.all), App.Cmd_Result.Win, Xls_Index, Total);[m
		     [31m--  	   end if;[m
		     [31m--  	   Clocking.Start;[m
		     [31m--  	when others =>[m
		     [31m--  	   null;[m
		     [31m--  end case;[m
		     [01;30mPut[m[31m([mRestore_Cursor[31m);[m
		     Screen_Lock[31m.[mRelease[31m;[m
		     Clocking[31m.[mRefresh[31m;[m

		  [01;34mend[m [01;34mif[m[31m;[m

  	       [01;34mend[m Up_Arrow[31m;[m
	       
  	    [01;34mor[m
  	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		     [01;30mDown_Arrow[m[31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m App[31m.[mDocument[31m.[mWin[31m.[mH[31m,[m App[31m.[mDocument[31m.[mWin[31m.[mW[31m);[m
		     
		     
		     Wline [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_index[31m);[m
		     
		     Wline_Length [31m:=[m [01;30mReal_Length[m[31m([mWline[31m.[m[01;34mall[m[31m);[m

		     Line_Current_Pos [31m:=[m [35m0[m[31m;[m
		     Screen_Lock[31m.[mSeize[31m;[m
		     [01;30mPut[m[31m([mSave_Cursor[31m);[m
		     [01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			
			[01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
		     [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			[01;34mraise[m Spec_Error[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		     [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m






		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line_Index"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_index[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line, Col"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_cur[31m)[m [31m&[m [31m", "[m [31m&[m positive'[01;30mImage[m[31m([mCol_cur[31m)));[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m85[m[31m,[m Cyan[31m,[m [31m" ; line_last"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m100[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m103[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLines_Table[31m.[mLine_last[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		     [01;30mPut[m[31m([mRestore_Cursor[31m);[m
		     Screen_Lock[31m.[mRelease[31m;[m
		     
		     Screen_Lock[31m.[mSeize[31m;[m
		     [01;30mPut[m[31m([mSave_Cursor[31m);[m

		     [01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			[01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
		     [01;34melse[m
			[01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m

		     [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		       App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m

			[01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mSet_Free[m[31m([mLines_Set[31m);[m

			[01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
			[01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m

			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			   [01;34mraise[m Spec_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

		     [01;34melse[m

			[01;30mSet_Free[m[31m([mLines_Table[31m);[m
			[01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			   [01;34mraise[m Program_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m

		     [01;30mPut[m[31m([mRestore_Cursor[31m);[m
		     Screen_Lock[31m.[mRelease[31m;[m
		     
		     
		     Clocking[31m.[mrefresh[31m;[m
		     
		  [01;34melse[m
		     Screen_Lock[31m.[mSeize[31m;[m
		     [01;30mPut[m[31m([mSave_Cursor[31m);[m
		     [01;34mif[m [31m([mHistory_Index [31m>[m [35m1[m[31m)[m [01;34mthen[m		  
   			Old_Length [31m:=[m Text'Length[31m;[m
   			[01;30mWide_Free[m[31m([mText[31m);[m
			
   			Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last [31m-[m [31m([mHistory_Index [31m-[m [35m2[m[31m)).[m[01;34mall[m[31m);[m
			
   			History_Index [31m:=[m History_Index [31m-[m [35m1[m[31m;[m
			Cmd_Current_Pos [31m:=[m Text'Length[31m;[m
   		     [01;34melsif[m History_Index [31m=[m [35m1[m [01;34mthen[m
   			Old_Length [31m:=[m Text'Length[31m;[m
   			[01;30mWide_Free[m[31m([mText[31m);[m		  
   			Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
			
   			History_Index [31m:=[m History_Index [31m-[m [35m1[m[31m;[m
			Cmd_Current_Pos [31m:=[m Text'Length[31m;[m
   		     [01;34melse[m
   			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
   		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mCmd[31m.[mWin[31m);[m
		     [01;34mif[m Text [31m/=[m [01;34mnull[m [01;34mthen[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mCmd[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Text[31m.[m[01;34mall[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     

		     [31m--  case Last_Cmd is[m
		     [31m--  	when None =>[m
		     
		     [31m--  	   if Result /= null then[m
		     [31m--  	      Draw_Window(App.Cmd_Result.Win);      [m
		     [31m--  	      Result_Index := Result_Index + 1;[m
		     [31m--  	      Draw_Buffer(Result, App.Cmd_Result.Win, Result_Index);[m
		     [31m--  	   else[m
		     [31m--  	      File_Thread.Down_Arrow;[m
		     [31m--  	   end if;[m
		     [31m--  	when Xls =>[m
		     [31m--  	   Clocking.Suspend;[m
		     [31m--  	   Draw_Window(App.Cmd_Result.Win);      [m
		     
		     
		     [31m--  	   Xls_Index := Xls_Index + 1;[m
		     
		     [31m--  	   Internal.xls(Handling.To_String(Old_Text.all), App.Cmd_Result.Win, Xls_Index, total);[m
		     [31m--  	   Clocking.Start;[m
		     [31m--  	when others =>[m
		     [31m--  	   null;[m
		     [31m--  end case;[m
		     [01;30mPut[m[31m([mRestore_Cursor[31m);[m
		     Screen_Lock[31m.[mRelease[31m;[m
		     Clocking[31m.[mRefresh[31m;[m
		     
		     
		     
		  [01;34mend[m [01;34mif[m[31m;[m


  	       [01;34mend[m Down_Arrow[31m;[m
	       
  	    [01;34mor[m
  	       [01;34maccept[m Left_Arrow [01;34mdo[m
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		  [01;30mLeft_Arrow[m[31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
		  
		  
		  
		  
		  Wline [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_index[31m);[m	       
		  Wline_Length [31m:=[m [01;30mReal_Length[m[31m([mWline[31m.[m[01;34mall[m[31m);[m
		  [01;34mdeclare[m
		     Count [31m:[m Natural [31m:=[m [01;30mCol_Count[m[31m([mWline[31m.[m[01;34mall[m[31m,[m Col_Cur[31m-[m[35m1[m[31m,[m [01;30mTxt[m[31m([mApp[31m.[mCurrent_Doc[31m.[mUnit[31m.[m[01;34mall[m[31m));[m
		  [01;34mbegin[m
		     [01;34mif[m Count [31m/=[m Wline_Length [01;34mthen[m
			Col_Cur [31m:=[m Col_cur [31m+[m [31m([mCount [31m-[m [01;30mReal_Length[m[31m([m[01;30mWline[m[31m([mWline'First[31m..[mCol_Cur[31m-[m[35m1[m[31m)));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m[31m;[m
		  
		  Line_Current_Pos [31m:=[m Wchar_Index[31m;[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m


		  



		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line_Index"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_index[31m)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line, Col"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_cur[31m)[m [31m&[m [31m", "[m [31m&[m positive'[01;30mImage[m[31m([mCol_cur[31m)));[m

		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

		  [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
		  [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
		  [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
		  [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
		  [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
		  [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m85[m[31m,[m Cyan[31m,[m [31m" ; line_last"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m100[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m103[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLines_Table[31m.[mLine_last[31m)));[m

		  [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
		  [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
		  [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		  
		  
		  Screen_Lock[31m.[mSeize[31m;[m
			[01;30mPut[m[31m([mSave_Cursor[31m);[m

			[01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			[01;34melse[m
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m

			   [01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mSet_Free[m[31m([mLines_Set[31m);[m

			   [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
			   [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Spec_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34melse[m

			   [01;30mSet_Free[m[31m([mLines_Table[31m);[m
			   [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Program_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;30mPut[m[31m([mRestore_Cursor[31m);[m
			Screen_Lock[31m.[mRelease[31m;[m
			
		  
		  Clocking[31m.[mrefresh[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Left_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Right_Arrow [01;34mdo[m
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		     [01;30mRight_Arrow[m[31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
		     
		     
		     
		     
		     Wline [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_index[31m);[m
		     Wline_Length [31m:=[m [01;30mReal_Length[m[31m([mWline[31m.[m[01;34mall[m[31m);[m
		     [01;34mdeclare[m
			Count [31m:[m Natural [31m:=[m [01;30mCol_Count[m[31m([mWline[31m.[m[01;34mall[m[31m,[m Col_Cur[31m-[m[35m1[m[31m,[m [01;30mTxt[m[31m([mApp[31m.[mCurrent_Doc[31m.[mUnit[31m.[m[01;34mall[m[31m));[m
		     [01;34mbegin[m
			[01;34mif[m Count [31m/=[m Wline_Length [01;34mthen[m
			   Col_Cur [31m:=[m Col_cur [31m+[m [31m([mCount [31m-[m [01;30mReal_Length[m[31m([m[01;30mWline[m[31m([mWline'First[31m..[mCol_Cur[31m-[m[35m1[m[31m)));[m

			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m[31m;[m

		     Line_Current_Pos [31m:=[m Wchar_Index[31m;[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m






		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line_Index"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_index[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line, Col"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_cur[31m)[m [31m&[m [31m", "[m [31m&[m positive'[01;30mImage[m[31m([mCol_cur[31m)));[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m85[m[31m,[m Cyan[31m,[m [31m" ; line_last"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m100[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m103[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLines_Table[31m.[mLine_last[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		     
		     
		     Screen_Lock[31m.[mSeize[31m;[m
			[01;30mPut[m[31m([mSave_Cursor[31m);[m

			[01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
			[01;34melse[m
			   [01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m

			   [01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mSet_Free[m[31m([mLines_Set[31m);[m

			   [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
			   [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Spec_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34melse[m

			   [01;30mSet_Free[m[31m([mLines_Table[31m);[m
			   [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			      [01;34mraise[m Program_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;30mPut[m[31m([mRestore_Cursor[31m);[m
			Screen_Lock[31m.[mRelease[31m;[m
			
		     
		     
		     Clocking[31m.[mrefresh[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Right_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Begin_Of [01;34mdo[m
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		  [01;30mAt_Begin[m[31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m
		  
		  Col_Cur [31m:=[m [35m1[m[31m;[m
		  Wchar_Index [31m:=[m [35m0[m[31m;[m
		  
		  
		  Line_Current_Pos [31m:=[m [35m0[m[31m;[m
		  
		  Screen_Lock[31m.[mSeize[31m;[m
		  [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
		  [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
		     [01;34mraise[m Spec_Error[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m	
		  [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m

		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m






		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line_Index"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_index[31m)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line, Col"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_cur[31m)[m [31m&[m [31m", "[m [31m&[m positive'[01;30mImage[m[31m([mCol_cur[31m)));[m

		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

		  [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
		  [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
		  [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
		  [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
		  [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
		  [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m85[m[31m,[m Cyan[31m,[m [31m" ; line_last"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m100[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m103[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLines_Table[31m.[mLine_last[31m)));[m

		  [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
		  [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
		  [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
		  [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m

		  Screen_Lock[31m.[mRelease[31m;[m
		  Clocking[31m.[mRefresh[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Begin_Of[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m End_Of [01;34mdo[m
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		     Screen_Lock[31m.[mSeize[31m;[m

		     [01;30mAt_End[m[31m([mLines_Table[31m,[m Doc_Index[31m,[m Line_Index[31m,[m Wchar_Index[31m,[m Line_Cur[31m,[m Col_Cur[31m,[m Height[31m,[m Width[31m);[m

		     [01;34mif[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m/=[m [35m0[m [01;34mthen[m
			Col_Cur [31m:=[m [31m([mWchar_Index [01;34mmod[m Width[31m)[m [31m+[m [35m1[m[31m;[m
		     [01;34melse[m
			Col_Cur [31m:=[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m


		     Line_Current_Pos [31m:=[m Wline'Last[31m;[m
		     

		     Wchar_Index [31m:=[m Wline'Last[31m;[m

		     Wline_Length [31m:=[m [01;30mReal_Length[m[31m([mWline[31m.[m[01;34mall[m[31m);[m

		     [01;34mdeclare[m
			Count [31m:[m Natural [31m:=[m [01;30mCol_Count[m[31m([mWline[31m.[m[01;34mall[m[31m,[m Col_Cur[31m-[m[35m1[m[31m,[m [01;30mTxt[m[31m([mApp[31m.[mCurrent_Doc[31m.[mUnit[31m.[m[01;34mall[m[31m));[m
		     [01;34mbegin[m
			[01;34mif[m Count [31m/=[m Wline_Length [01;34mthen[m

			   Col_cur [31m:=[m Col_cur [31m+[m [31m(([mCount [31m-[m [01;30mReal_Length[m[31m([m[01;30mWline[m[31m([mWline'First[31m..[mCol_Cur[31m-[m[35m1[m[31m)))-[m[35m1[m[31m);[m


			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m[31m;[m
		     
		     
		     [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m

		     [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
		     	[01;34mraise[m Spec_Error[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m	
     		     Screen_Lock[31m.[mRelease[31m;[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m






		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line_Index"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_index[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Line, Col"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mpositive'[01;30mImage[m[31m([mLine_cur[31m)[m [31m&[m [31m", "[m [31m&[m positive'[01;30mImage[m[31m([mCol_cur[31m)));[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m85[m[31m,[m Cyan[31m,[m [31m" ; line_last"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m100[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m103[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLines_Table[31m.[mLine_last[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m

		     

		     Clocking[31m.[mRefresh[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m End_Of[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Del [01;34mdo[m
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		     [01;34mif[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
			[01;34mif[m Wline'Length [31m=[m [35m0[m [01;34mthen[m
			   [01;34mif[m Lines_Table[31m.[mLine_Last [31m>[m Line_Index [01;34mthen[m
			      [01;34mif[m Lines_Table[31m.[mLine_Last [31m>[m Line_Index [01;34mthen[m
				 [01;34mFor[m I [01;34min[m Line_Index[31m+[m[35m1[m[31m..[mLines_Table[31m.[mLine_Last [01;34mloop[m
				    Lines_Table[31m.[m[01;30mLines[m[31m([mI[31m-[m[35m1[m[31m)[m [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mI[31m);[m
				 [01;34mend[m [01;34mloop[m[31m;[m				 
				 Wline [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m);[m
				 Lines_Table[31m.[m[01;30mLines[m[31m([mLines_Table[31m.[mLine_Last[31m)[m [31m:=[m [01;34mnull[m[31m;[m
				 Lines_Table[31m.[mLine_Last [31m:=[m Lines_Table[31m.[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34melse[m
			      Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m Wline'Length [31m>[m [35m1[m [01;34mand[m Wline'Length [31m>[m Line_Current_Pos[31m+[m[35m1[m [01;34mthen[m

			   [01;34mif[m Line_Current_Pos [31m>=[m [35m2[m [01;34mthen[m
			      
			      Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'first[31m..[mLine_Current_Pos[31m));[m

			      Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mLine_Current_Pos[31m+[m[35m2[m[31m..[mWline'Last[31m));[m

			      [01;30mWide_Free[m[31m([mWline[31m);[m
			      Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m Wbuffer[31m.[m[01;34mall[m[31m);[m
			      [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
			      [01;30mWide_Free[m[31m([mWbuffer[31m);[m
			   [01;34melse[m 
			      
			      Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'First[31m+[m[35m1[m[31m..[mWline'Last[31m));[m
			      [01;30mWide_Free[m[31m([mWline[31m);[m
			      Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
			      [01;30mWide_Free[m[31m([mWbuffer[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m Line_Current_Pos [31m=[m [35m1[m [01;34mand[m Wline'Length [31m=[m [35m1[m [01;34mthen[m
			   Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
			   [01;30mWide_Free[m[31m([mWline[31m);[m
			   Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
			   [01;30mWide_Free[m[31m([mWbuffer[31m);[m
			[01;34melsif[m Line_Current_Pos [31m+[m [35m1[m [31m=[m Wline'Length [01;34mthen[m
			   Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWline[31m.[m[01;34mall[m[31m);[m
			   [01;30mWide_Free[m[31m([mWline[31m);[m
			   Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mLeft_Buffer[m[31m([mLeft_Buffer'First[31m..[mLeft_Buffer'Last[31m-[m[35m1[m[31m));[m
			   [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
			[01;34melsif[m Line_Current_Pos [31m+[m [35m1[m [31m=[m Wline'Length [31m+[m [35m1[m [01;34mand[m Line_Index [31m<[m Lines_Table[31m.[mLine_Last [01;34mthen[m
			   Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWline[31m.[m[01;34mall[m[31m);[m
			   [01;30mWide_Free[m[31m([mWline[31m);[m
			   Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index [31m+[m [35m1[m[31m).[m[01;34mall[m[31m);[m
			   [01;34mfor[m I [01;34min[m Line_Index[31m+[m[35m1[m[31m..[mLines_Table[31m.[mLine_Last [01;34mloop[m
			      Lines_Table[31m.[m[01;30mLines[m[31m([mI[31m)[m [31m:=[m Lines_Table[31m.[m[01;30mLines[m[31m([mI[31m+[m[35m1[m[31m);[m
			   [01;34mend[m [01;34mloop[m[31m;[m				 
			   Lines_Table[31m.[m[01;30mLines[m[31m([mLines_Table[31m.[mLine_Last[31m)[m [31m:=[m [01;34mnull[m[31m;[m
			   Lines_Table[31m.[mLine_Last [31m:=[m Lines_Table[31m.[mLine_Last [31m-[m [35m1[m[31m;[m
			[01;34melse[m
			   W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
			   [31m-- beep...[m
			[01;34mend[m [01;34mif[m[31m;[m	   
		     [01;34mend[m [01;34mif[m[31m;[m
		     Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Index[31m)[m [31m:=[m Wline[31m;[m
		     Wline_Length [31m:=[m Wline'Length[31m;[m
		     
		     Screen_Lock[31m.[mSeize[31m;[m
		     [01;30mPut[m[31m([mSave_Cursor[31m);[m

		     [01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m
			[01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
		     [01;34melse[m
			[01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m

		     [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		       App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m

			[01;34mif[m App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m

			   [01;30mSave_Buffer[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Table[31m);[m

			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mSet_Free[m[31m([mLines_Set[31m);[m

			[01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  

			[01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m

			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			   [01;34mraise[m Spec_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

		     [01;34melse[m
			[01;30mSet_Free[m[31m([mLines_Table[31m);[m
			[01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			   [01;34mraise[m Program_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m

		     [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m



		     

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m

		     [01;30mPut[m[31m([mRestore_Cursor[31m);[m
		     Screen_Lock[31m.[mRelease[31m;[m
		     Clocking[31m.[mRefresh[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Del[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Overwrite [01;34mdo[m
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		     Is_Overwrite [31m:=[m [01;34mnot[m Is_Overwrite[31m;[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m
		     Screen_Lock[31m.[mSeize[31m;[m
		     [01;30mPut[m[31m([mSave_Cursor[31m);[m
		     
		     
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m





		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m

		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m
		     
		     [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		     [01;30mPut[m[31m([mRestore_Cursor[31m);[m
		     Screen_Lock[31m.[mRelease[31m;[m
		     Clocking[31m.[mRefresh[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Overwrite[31m;[m
  	    [01;34mend[m [01;34mselect[m[31m;[m
  	 [01;34mend[m [01;34mloop[m[31m;[m
	 
  	 [01;34mloop[m
  	    [01;34mselect[m
	       
  	       [01;34maccept[m Halt [01;34mdo[m
		  Clocking[31m.[mHalt[31m;[m
		  File_thread[31m.[mhalt[31m;[m

	       [01;34mend[m Halt[31m;[m
  	       [01;34mexit[m Main_Loop[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Suspend [01;34mdo[m
		  Clocking[31m.[mSuspend[31m;[m
		  File_Thread[31m.[mReset[31m;[m
	       [01;34mend[m Suspend[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  Is_Full [31m:=[m False[31m;[m
		  
		  
		  Screen_Lock[31m.[mseize[31m;[m
		  [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		    [01;34mnot[m App[31m.[mCurrent_Doc[31m.[mOpenned [01;34mthen[m
		     [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  [01;30mInitialize[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m Lines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m5[m[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m  Cyan[31m,[m White[31m);[m
		  [01;34mif[m [01;34mnot[m Mode[31m.[mState [01;34mthen[m
		     
		     [01;30mEdit_Win_Init[m[31m([mApp[31m,[m Top[31m,[m false[31m);[m

		     [01;30mEdit_Draw_Main_Win[m[31m([mApp[31m);[m

		     [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m
		     
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m white[31m,[m [31m" ; Alphabet"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m red[31m,[m [31m" : "[m[31m);[m 
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m





		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mColumns[31m-[m[35m5[m[31m)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([m[35m255[m [31m-[m Wline_Length[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 2, 25, Cyan, " ; word max");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 2, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Sh_Max_Words)));[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 25, Cyan, " ; Word number");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 39, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 43, magenta, Handling.To_Wide_String(Word_Range'Image(Word_Number)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
		     
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Line_Length "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m65[m[31m,[m white[31m,[m [31m" : "[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m69[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mWline_length[31m)));[m

		     [31m--  Draw_Text(App.Buffer.Win, 3, 50, Cyan, " ; Lines count");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 64, white, " : ");[m
		     [31m--  Draw_Text(App.Buffer.Win, 3, 66, magenta, Handling.To_Wide_String(Line_Index_Range'Image(Dialog_Buffer_Last)));[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m76[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m88[m[31m,[m white[31m,[m [31m" : "[m[31m);[m	    
		     [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m91[m[31m,[m magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m

		  [01;34melse[m
		     [01;30mDevel_Win_Init[m[31m([mApp[31m,[m Top[31m,[m false[31m);[m
		     [01;30mDevel_Draw_Main_Win[m[31m([mApp[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  

		  [01;30mDraw_Window[m[31m([mApp[31m.[mDoc_states[31m.[mWin[31m);[m   

		  [01;34mif[m App[31m.[mCurrent_Doc [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		    App[31m.[mCurrent_Doc[31m.[mFilename [31m/=[m [01;34mnull[m [01;34mthen[m		     
		     App[31m.[mCurrent_Doc[31m.[mOpenned [31m:=[m True[31m;[m
		     
		     [01;34mif[m App[31m.[mDoc_Initialized [01;34mthen[m

			[01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m True[31m);[m
		     [01;34melse[m
			
			[01;30mDevel_Draw_Docume[m[31m([mApp[31m.[mCurrent_Doc[31m,[m App[31m.[mDoc_States[31m.[mWin[31m,[m False[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m

		     [01;30mSet_Free[m[31m([mLines_Set[31m);[m

		     [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m

		     [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m

			[01;34mraise[m Spec_Error[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m		
		  [01;34mend[m [01;34mif[m[31m;[m


		  [01;34mif[m [01;34mnot[m App[31m.[mDoc_Initialized [01;34mthen[m	
		     [01;30mSet_Free[m[31m([mLines_Table[31m);[m

		     [01;30mDoc_Init[m[31m([mApp[31m.[m[01;34mall[m[31m,[m Lines_Table[31m);[m

		     [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Table[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m

			[01;34mraise[m Program_Error[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m

		  [01;34melse[m
		     [01;30mSet_Free[m[31m([mLines_Set[31m);[m
		     [01;30mHighlight[m[31m([mApp[31m.[mCurrent_Doc[31m,[m Lines_Set[31m);[m		  
		     [01;30mDraw_Window[m[31m([mApp[31m.[mDocument[31m.[mWin[31m);[m
		     [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mLines_Set[31m,[m App[31m.[mDocument[31m.[mWin[31m,[m Doc_Index[31m,[m Total_Line[31m)[m [01;34mthen[m
			[01;34mraise[m Spec_Error[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  

		  Screen_Lock[31m.[mRelease[31m;[m

		  Clocking[31m.[mSuspend[31m;[m

		  [01;34mif[m Mode[31m.[mState [01;34mthen[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mErr[31m.[mWin[31m);[m		  
		     [01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m
		     [01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m			
		     [01;30mDraw_Window[m[31m([mApp[31m.[mCmd[31m.[mWin[31m);[m
		     [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
			[01;34mif[m Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m)))[m [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m)))[m'Length [31m/=[m [35m0[m [01;34mthen[m
			   [01;34mif[m Result[31m.[mSuccess [01;34mthen[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Success"[m[31m);[m
			   [01;34melse[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Failure"[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mif[m Last_Cmd [31m=[m None [01;34mthen[m			   
			      [01;30mDraw_Buffer[m[31m([mResult[31m,[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Result_Index[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m			
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Cmd   : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m White[31m,[m
				     Handling[31m.[m[01;30mTo_Wide_String[m[31m([mOs_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m))).[m[01;34mall[m[31m));[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Args  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m10[m[31m,[m White[31m,[m 
				     [01;30mTroncate[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m)([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m).[m[01;34mall[m[31m))[m'Length[31m+[m[35m2[m[31m..[mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last[31m)[m'Last[31m),[m Columns[31m/[m[35m2[m[31m-[m[35m10[m[31m));[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Error : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m10[m[31m,[m White[31m,[m  Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([mErrno[31m)));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Cmd   : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Args  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Error : "[m[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  		  
		  

		  [01;34mif[m [01;34mnot[m Mode[31m.[mLogged [01;34mthen[m
		     [01;34mdeclare[m
			Thread [31m:[m [01;30mExec_Thread[m[31m([m[01;34mnew[m [32mString[m ' [31m([m[31m"bin/logname"[m[31m));[m
			Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
			Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
			File [31m:[m File_Type[31m;[m					  					  
			
		     [01;34mbegin[m

			[01;30mAdd_Line[m[31m([mHistory_Set[31m,[m History_Last[31m,[m [31m"bin/logname"[m[31m);[m			
			[01;30mWide_Free[m[31m([mText[31m);[m

			Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"bin/logname"[m[31m);[m
			Cmd_Current_Pos [31m:=[m [35m0[m[31m;[m
			[01;30mWide_Free[m[31m([mText[31m);[m

			Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
			[01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m White[31m,[m [31m"logname"[m[31m);[m

			Thread[31m.[mSpawn[31m;[m					  
			
			File_thread[31m.[mStart[31m;[m

			Thread[31m.[m[01;30mWait[m[31m([mSuccess[31m,[m Errno[31m);[m

			Thread[31m.[mhalt[31m;[m

			

			Mode[31m.[mLogged [31m:=[m True[31m;[m
			Errno [31m:=[m [01;30mSystem[m[31m([m[31m"/usr/bin/espeak -s 150 ""Greetting professor "[m [31m&[m App[31m.[mUser[31m.[mLogname[31m.[m[01;34mall[m [31m&[m [31m""""[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
			Errno [31m:=[m [01;30mSystem[m[31m([m[31m"/usr/bin/espeak -s 150 -p 100 'Computer ready!'"[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
		     [01;34mend[m[31m;[m

		     [01;34mif[m Mode[31m.[mState [01;34mthen[m
			[01;30mDraw_Window[m[31m([mApp[31m.[mErr[31m.[mWin[31m);[m		  
			[01;30mDraw_Window[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m);[m
			[01;30mDraw_Window[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m);[m			
			[01;30mDraw_Window[m[31m([mApp[31m.[mCmd[31m.[mWin[31m);[m
			[01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mResult[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
			   [01;34mif[m Result[31m.[mSuccess [01;34mthen[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Success"[m[31m);[m
			   [01;34melse[m
			      [01;30mDraw_Text[m[31m([mApp[31m.[mErr[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mResult[31m.[mProgram_Name[31m))[m [31m&[m [31m" Failure"[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mif[m Last_Cmd [31m=[m None [01;34mthen[m			   
			      [01;30mDraw_Buffer[m[31m([mResult[31m,[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Result_Index[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m			
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Cmd   : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m White[31m,[m [31m"logname"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Args  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m" Error : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mApp[31m.[mBuffer[31m.[mWin[31m,[m [35m3[m[31m,[m [35m10[m[31m,[m  white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([mErrno[31m)));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m

		  
		  



		  
		  


		  [01;34mif[m Top [31m=[m [35m0[m [01;34mthen[m
		     Clocking[31m.[mStart[31m;[m
		     Clocking[31m.[mrefresh[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
 	       [01;34mend[m Wake_Up[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mend[m [01;34mselect[m[31m;[m
  	 [01;34mend[m [01;34mloop[m[31m;[m
	 
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Planning process halted");[m
   [01;34mend[m Devel_Process[31m;[m

   
   
   
   
   
   [01;34mprocedure[m [01;30mDraw_Buffer[m [31m([mSpawn_Result [31m:[m [01;34min[m M[31m.[mTools[31m.[mWide_Result_Access[31m;[m Win [31m:[m [01;34min[m Window_Record[31m;[m File_Index [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Line_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Result_Max_Lines [31m:[m Positive [31m:=[m Win[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m;[m
      Line_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m              
      Term_Width [31m:[m [01;34mconstant[m Natural [31m:=[m Win[31m.[mWin[31m.[mW[31m-[m[35m2[m[31m;[m
   [01;34mbegin[m
      
      
      [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mSpawn_Result[31m,[m [01;34mnull[m[31m)[m [01;34mand[m [01;34mthen[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mSpawn_result[31m.[mWlines[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m                        

     Print_Loop[31m:[m
	 
	 [01;34mfor[m I [01;34min[m File_Index[31m+[m[35m1[m[31m..[mPositive'[01;30mmin[m[31m([mFile_Index[31m+(([mResult_Max_Lines[31m-[m[35m1[m[31m)),[m 
					     Spawn_Result[31m.[mWlines'Length[31m)[m [01;34mloop[m

	    
	    [01;34mdeclare[m
	       tmp [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m 
		 [31m([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mSpawn_Result[31m.[m[01;30mWlines[m[31m([mI[31m)));[m
	       Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mTmp[m[31m([mTmp'First[31m..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mTmp[31m),[m Backward[31m));[m
	       
	       Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Term_Width[31m;[m
	       Lines_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [31m([mResult_Max_Lines[31m-[m[35m5[m[31m);[m
	       Pro_Index [31m:[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"true"[m[31m);[m
	       Against [31m:[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"false"[m[31m);[m
	       Next [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	    [01;34mbegin[m	       
	       [01;34mif[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m>[m [35m0[m [01;34mand[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m<[m [31m([mChars_Max [31m*[m Lines_Max[31m)[m [01;34mthen[m
		  [01;34mfor[m Line_Window [01;34min[m Line_Index[31m..[m[32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m([mLine[31m)/[mChars_Max[31m,[m Lines_Max[31m)[m [01;34mloop[m
		     
		     [01;34mdeclare[m
			B_Inf [31m:[m [01;34mconstant[m Positive [31m:=[m Line_Window[31m*[mChars_Max [31m+[m [35m1[m[31m;[m
			B_Sup [31m:[m [01;34mconstant[m Positive [31m:=[m [32mInteger[m'[01;30mmin[m[31m(([mLine_Window [31m+[m [35m1[m[31m)*[mChars_Max[31m,[m [01;30mReal_Length[m[31m([mLine[31m));[m
		     [01;34mbegin[m
			[01;34mif[m [01;30mReal_length[m[31m([mLine[31m)[m [31m<[m Chars_max [01;34mthen[m
			   
			   [01;34mif[m Pro_Index [31m/=[m [35m0[m [01;34mthen[m
			      [01;34mif[m Line'Length [31m>=[m Pro_Index [31m+[m [35m4[m [01;34mthen[m
				 
				 Next [31m:=[m Pro_Index [31m+[m [35m4[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34melsif[m Against [31m/=[m [35m0[m [01;34mthen[m
			      [01;34mif[m Line'Length [31m>=[m against [31m+[m [35m4[m [01;34mthen[m
				 
				 Next [31m:=[m Against [31m+[m [35m4[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   

			   [01;34mif[m Next [31m/=[m [35m0[m [01;34mthen[m
			      [01;34mif[m Pro_Index [31m/=[m [35m0[m [01;34mthen[m

				 [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mLine'First[31m..[mPro_Index[31m-[m[35m1[m[31m));[m

				 [01;30mEnlight_Draw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Pro_Index[31m,[m White[31m,[m [01;30mLine[m[31m([mPro_Index[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m

				 [01;34mif[m Line'Length [31m>[m Next [01;34mthen[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Pro_Index[31m+[m[35m5[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mLine'Last[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m

			      [01;34melse[m

				 [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mLine'First[31m..[mAgainst[31m-[m[35m1[m[31m));[m

				 [01;30mEnlight_Draw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Against[31m,[m Red[31m,[m [01;30mLine[m[31m([mAgainst[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m

				 [01;34mif[m Line'Length [31m>[m Next [01;34mthen[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Against[31m+[m[35m5[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mLine'Last[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34melse[m

			      [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Line[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34melse[m

			   [01;34mif[m Next [31m/=[m [35m0[m [01;34mthen[m
			      [01;34mif[m Pro_Index [31m/=[m [35m0[m [01;34mthen[m

				 [01;34mif[m Pro_Index [31m<[m B_Sup [01;34mand[m Pro_Index [31m>[m B_Inf [01;34mand[m Next [31m<[m B_Sup [01;34mthen[m

				    [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mPro_Index[31m-[m[35m1[m[31m));[m

				    [01;30mEnlight_Draw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Pro_Index[31m,[m White[31m,[m [01;30mLine[m[31m([mPro_Index[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m

				    [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mB_Sup[31m));[m

				 [01;34melse[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m

			      [01;34melsif[m Against [31m/=[m [35m0[m [01;34mthen[m

				 [01;34mif[m Against [31m<[m B_Sup [01;34mand[m Against [31m>[m B_Inf [01;34mand[m Next [31m<[m B_Sup [01;34mthen[m

				    [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mAgainst[31m-[m[35m1[m[31m));[m

				    [01;30mEnlight_Draw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Against[31m,[m White[31m,[m [01;30mLine[m[31m([mAgainst[31m..[mNext[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal_mode[31m));[m

				    [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Against[31m+[m[35m5[m[31m,[m White[31m,[m [01;30mLine[m[31m([mNext[31m+[m[35m1[m[31m..[mB_Sup[31m));[m

				 [01;34melse[m
				    [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m

			   [01;34melse[m

			      [01;30mDraw_Text[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m

			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
		     [01;34mend[m[31m;[m
		     Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m

		     [01;34mexit[m Print_Loop [01;34mWhen[m Line_Count [31m>[m [31m([mResult_Max_Lines[31m-[m[35m1[m[31m);[m
		  [01;34mend[m [01;34mloop[m[31m;[m
	       [01;34melse[m

		  Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m                           
	       
	    [01;34mend[m[31m;[m
	    [01;34mexit[m Print_Loop [01;34mwhen[m Line_Count [31m>[m [31m([mResult_Max_Lines[31m-[m[35m1[m[31m);[m
	 [01;34mend[m [01;34mloop[m Print_Loop[31m;[m

      [01;34mend[m [01;34mif[m[31m;[m


   [01;34mend[m Draw_Buffer[31m;[m



   [01;34muse[m M[31m.[mTools[31m;[m
   [01;34mprocedure[m [01;30mPrint_Buffer[m [31m([mSpawn_Result [31m:[m [01;34min[m M[31m.[mTools[31m.[mWide_Result_Access[31m;[mFile_Index [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Line_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      [31m--Result_Max_Lines : Positive := Win.Win.H;[m
      Line_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m              
      [31m--Term_Width : constant Natural := Win.Win.W-2;[m
      Term_Width [31m:[m [01;34mconstant[m Natural [31m:=[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m;[m
   [01;34mbegin[m
      
      
      [01;34mif[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mSpawn_Result[31m,[m [01;34mnull[m[31m)[m [01;34mand[m [01;34mthen[m [01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mSpawn_result[31m.[mWlines[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m                        

     Print_Loop[31m:[m
	 
	 [31m--  for I in File_Index+1..Positive'min(File_Index+((Result_Max_Lines-5)), [m
	 [31m--  				     Spawn_Result.Wlines'Length) loop[m
	 [01;34mfor[m I [01;34min[m File_Index[31m+[m[35m1[m[31m..[mSpawn_Result[31m.[mWlines'Length [01;34mloop[m
	    [01;34mdeclare[m
	       tmp [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m 
		 [31m(-[mSpawn_Result[31m.[m[01;30mWlines[m[31m([mI[31m));[m
	       Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mTmp[m[31m([mTmp'First[31m..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mTmp[31m),[m Backward[31m));[m
	       
	       Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Term_Width[31m;[m
	       [31m--Lines_Max : constant Positive := (Result_Max_Lines-5);[m
	    [01;34mbegin[m	       
	       [01;34mif[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m>[m [35m0[m [01;34mthen[m[31m-- and Real_Length(Line) < (Chars_Max * Lines_Max) then[m
					    [31m--for Line_Window in Line_Index..Integer'min(Real_Length(Line)/Chars_Max, Lines_Max) loop[m
		  [01;34mfor[m Line_Window [01;34min[m Line_Index[31m..[m[01;30mReal_Length[m[31m([mLine[31m)/[mChars_Max [01;34mloop[m
		     [01;34mdeclare[m
			B_Inf [31m:[m [01;34mconstant[m Positive [31m:=[m Line_Window[31m*[mChars_Max [31m+[m [35m1[m[31m;[m
			B_Sup [31m:[m [01;34mconstant[m Positive [31m:=[m [32mInteger[m'[01;30mmin[m[31m(([mLine_Window [31m+[m [35m1[m[31m)*[mChars_Max[31m,[m [01;30mReal_Length[m[31m([mLine[31m));[m
		     [01;34mbegin[m
			[01;34mif[m [01;30mReal_length[m[31m([mLine[31m)[m [31m<[m Chars_max [01;34mthen[m
			   [31m--Draw_Text(Win, Line_Count+1, 1, White, Line);[m
			   W_Io[31m.[m[01;30mPut_Line[m[31m([mLine[31m);[m
			[01;34melse[m
			   [31m--Draw_Text(Win, Line_Count+1, 1, White, Line(B_Inf..B_Sup));[m
			   W_Io[31m.[m[01;30mPut_Line[m[31m([m[01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m                 
		     [01;34mend[m[31m;[m
		     Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
		     [31m--exit Print_Loop When Line_Count > (Result_Max_Lines-1);[m
		  [01;34mend[m [01;34mloop[m[31m;[m
	       [01;34melse[m
		  Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m                           
	    [01;34mend[m[31m;[m
	    [31m--exit Print_Loop when Line_Count > (Result_Max_Lines-1);[m
	 [01;34mend[m [01;34mloop[m Print_Loop[31m;[m

      [01;34mend[m [01;34mif[m[31m;[m
      

   [01;34mend[m Print_Buffer[31m;[m


   [01;34mprocedure[m [01;30mInternal_Help[m [31m([mLine [31m:[m [01;34min[m [32mWide_string[m[31m;[m Result [31m:[m [01;34min[m [01;34mout[m M[31m.[mtools[31m.[mSpawn_Result_Record[31m)[m [01;34mis[m
      Command [31m:[m Gnat[31m.[mCommand_Line[31m.[mCommand_Line[31m;[m
      Cmd [31m:[m Int_Cmd_Enum [31m:=[m None[31m;[m
      Args_List [31m:[m Os_Lib[31m.[mArgument_List_Access[31m;[m                  
      Buffer [31m:[m M[31m.[mTools[31m.[mU_Array_Access[31m;[m
      Last   [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m      
      [01;30mU_Array_Free[m[31m([mResult[31m.[mWlines[31m);[m
      Buffer [31m:=[m [01;34mnew[m [01;30mU_Array[m[31m([m[35m1[m[31m..[m[35m5[m[31m);[m
      

      Gnat[31m.[mCommand_Line[31m.[m[01;30mSet_Command_Line[m[31m([mCommand[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mLine[31m));[m      

      Gnat[31m.[mCommand_Line[31m.[m[01;30mBuild[m[31m([mCommand[31m,[m Args_List[31m,[m False[31m);[m

      [01;34mif[m Args_List'Last [31m>[m [35m1[m [01;34mthen[m

      	 [01;34mif[m [01;34mnot[m OS_Lib[31m.[m[31m"="[m[31m([m[01;30mArgs_List[m[31m([m[35m2[m[31m),[m [01;34mnull[m[31m)[m [01;34mand[m [01;34mthen[m [01;30mArgs_List[m[31m([m[35m2[m[31m).[m[01;34mall[m [31m/=[m [31m""[m [01;34mthen[m
	    [01;34mbegin[m
	       Cmd [31m:=[m Int_Cmd_Enum'[01;30mValue[m[31m([m[01;30mArgs_list[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m);[m
	    [01;34mexception[m
	       [01;34mwhen[m Constraint_Error [31m=>[m
		  [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mArgs_List[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m)[m [31m&[m [31m" is not an internal command."[m[31m));[m
		  [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m[31m"Command help : help COMMAND"[m[31m));[m
		  [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m[31m"                -- help ? print command help for ? --"[m[31m));[m
		  Result[31m.[mWlines [31m:=[m Buffer[31m;[m
		  Result[31m.[mCount [31m:=[m [35m3[m[31m;[m
		  [01;34mreturn[m[31m;[m
	    [01;34mend[m[31m;[m

      	 [01;34melse[m

      	    Cmd [31m:=[m None[31m;[m
      	 [01;34mend[m [01;34mif[m[31m;[m   
      [01;34melse[m

      	 Cmd [31m:=[m None[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      Result[31m.[mCount [31m:=[m [35m0[m[31m;[m
      [01;34mcase[m Cmd [01;34mis[m
      	 [01;34mwhen[m None [31m=>[m	 
	    
      	    [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m(+([m[31m"Command help : help COMMAND"[m[31m));[m

      	    [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m(+([m[31m"                -- help ? print command help for ? --"[m[31m));[m

      	    Result[31m.[mCount [31m:=[m Result[31m.[mCount [31m+[m [35m2[m[31m;[m

      	 [01;34mwhen[m Xls [31m=>[m
      	    [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m(+([m [31m"Command help : xls"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m(+([m [31m"                -- list files in directory --"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m(+([m [31m"                -- Ex : xls  --"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m4[m[31m)[m [31m:=[m [31m(+([m [31m"                -- Ex : xls -l ] (list files in long format) --"[m[31m));[m
      	    Result[31m.[mCount [31m:=[m Result[31m.[mCount [31m+[m [35m4[m[31m;[m
      	 [01;34mwhen[m Clear [31m=>[m
      	    [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m(+([m [31m"Command help : clear"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m(+([m [31m"                -- Erase the shell file named "".shell_file.txt"" --"[m[31m));[m
      	    Result[31m.[mCount [31m:=[m Result[31m.[mCount [31m+[m [35m2[m[31m;[m
      	 [01;34mwhen[m Alias [31m=>[m
      	    [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m(+([m [31m"Command help : alias"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m(+([m [31m"                -- Create an alias to any command --"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m(+([m [31m"                -- Ex : alias name=value          --"[m[31m));[m
      	    Result[31m.[mCount [31m:=[m Result[31m.[mCount [31m+[m [35m3[m[31m;[m
	    
      	 [01;34mwhen[m Unalias [31m=>[m
      	    [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m(+([m [31m"Command help : unalias"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m(+([m [31m"                -- Delete an alias  --"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m(+([m [31m"                -- Ex : unalias name              --"[m[31m));[m
      	    Result[31m.[mCount [31m:=[m Result[31m.[mCount [31m+[m [35m3[m[31m;[m
      	 [01;34mwhen[m Cd [31m=>[m
      	    [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m(+([m [31m"Command help : cd"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m(+([m [31m"                --  Change current working directory --"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m(+([m [31m"                --  Ex : cd Documents [ Enter ]      --"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m4[m[31m)[m [31m:=[m [31m(+([m [31m"                --  Ex : cd - [ Enter ] (Change current dir to OLD_PWD --"[m[31m));[m
      	    [01;30mBuffer[m[31m([m[35m5[m[31m)[m [31m:=[m [31m(+([m [31m"                --  Ex : cd [ Enter ] (Change current dir to $HOME directory  --"[m[31m));[m
      	    Result[31m.[mCount [31m:=[m Result[31m.[mCount [31m+[m [35m5[m[31m;[m
      	    [31m--  when Logout =>[m
      	    [31m--     Buffer.all := Buffer.all & (+( "Command help : logout"));[m
      	    [31m--     Buffer.all := Buffer.all & (+( "                --  Quit the program --"));[m
      	    [31m--  when Pwd =>[m
      	    [31m--     Buffer.all := Buffer.all & (+( "Command help : pwd"));[m
      	    [31m--     Buffer.all := Buffer.all & (+( "                --  Return the current working directory --"));[m
      	 [01;34mwhen[m Help [31m=>[m
      	    [01;34mnull[m[31m;[m
      	 [01;34mwhen[m [01;34mothers[m [31m=>[m
      	    [01;34mnull[m[31m;[m
      [01;34mend[m [01;34mcase[m[31m;[m

      Result[31m.[mwlines [31m:=[m Buffer[31m;[m
   [01;34mend[m Internal_Help[31m;[m

   
   
   [01;34mtask[m [01;34mbody[m None_Process [01;34mis[m
      Lock [31m:[m [01;30mBinary_Semaphore[m[31m([mTrue[31m,[m Default_Ceiling[31m);[m
      Text [31m:[m M[31m.[mStrings[31m.[mWide_String_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Old_Length    [31m:[m Natural [31m:=[m [35m0[m[31m;[m [31m-- save text'length[m
      Old_Total_Length    [31m:[m Natural [31m:=[m [35m0[m[31m;[m [31m-- save total_type'image(total_sum)'length[m
      Old_Pwd   [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      
      Cpu_Lock [31m:[m [01;30mBinary_Semaphore[m[31m([mTrue[31m,[m Default_Ceiling[31m);[m
      [31m--Application : App_Access;[m
      
      xls_index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      [01;34mtask[m Screen [01;34mis[m
	 [01;34mentry[m Refresh[31m;[m
	 [01;34mentry[m Halt[31m;[m
      [01;34mend[m Screen[31m;[m
      
      [01;34mtask[m [01;34mbody[m Screen [01;34mis[m
	 Prompt [31m:[m Os_Lib[31m.[mString_Access[31m;[m
	 
	 
	 Cpu    [31m:[m Cpu_String [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
	 
      [01;34mbegin[m
	 
	 [01;34mloop[m
	    
	    [01;34mselect[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Refresh [01;34mdo[m
		  Lock[31m.[mSeize[31m;[m

		  
		  Cpu_Lock[31m.[mSeize[31m;[m
		  Cpu_Process[31m.[mInitialize[31m;[m
		  Cpu_Process[31m.[m[01;30mCpu_Get[m[31m([mCpu[31m);[m
		  Cpu_Lock[31m.[mRelease[31m;[m
		  [01;30mFree[m[31m([mPrompt[31m);[m
		  Prompt [31m:=[m [01;34mnew[m [32mString[m ' [31m([mTerm_Enum'[01;30mImage[m[31m([mMode[31m.[mApp[31m.[mTerm[31m)[m [31m&[m [31m':'[m [31m&[m cpu [31m&[m [31m": "[m [31m&[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m)([m[35m12[m[31m..[mFormatting[31m.[m[01;30mImage[m[31m([mClock[31m)[m'Length[31m)[m [31m&[m [31m":"[m [31m&[m Total_Type'[01;30mImage[m[31m([mTotal_Sum[31m)[m  [31m&[m [31m"$ "[m[31m);[m

		  [01;34mif[m Text [31m/=[m [01;34mnull[m [01;34mthen[m		     
		     
		     [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m [31m([m[35m13[m[31m)[m [31m&[m Prompt[31m.[m[01;34mall[m[31m);[m
		     [01;30mPut[m[31m(([mOld_Length[31m+[mOld_Total_Length[31m+[mCpu'length[31m)[m [31m*[m [31m' '[m[31m);[m
		     [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m [31m([m[35m13[m[31m)[m [31m&[m Prompt[31m.[m[01;34mall[m[31m);[m
		     W_Io[31m.[m[01;30mPut[m[31m([mText[31m.[m[01;34mall[m[31m);[m
		     
		  [01;34melse[m
		     [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m [31m([m[35m13[m[31m)[m [31m&[m Prompt[31m.[m[01;34mall[m[31m);[m
		     [01;30mPut[m[31m(([mOld_Length[31m+[mOld_Total_Length[31m+[mCpu'length[31m)[m [31m*[m [31m' '[m[31m);[m
		     [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m [31m([m[35m13[m[31m)[m [31m&[m Prompt[31m.[m[01;34mall[m[31m);[m

		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  
		  
		  
		  
		  Old_Total_Length [31m:=[m Total_Type'[01;30mImage[m[31m([mTotal_Sum[31m)[m'Length[31m;[m
		  Old_Length [31m:=[m [35m0[m[31m;[m
		  
		  Lock[31m.[mRelease[31m;[m

	       [01;34mend[m Refresh[31m;[m	      
	       
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m Screen[31m;[m
      
      
      [01;34mtask[m Deamon [01;34mis[m
	 [01;34mentry[m Halt[31m;[m
	 [01;34mentry[m Lock[31m;[m
	 [01;34mentry[m Unlock[31m;[m
      [01;34mend[m Deamon[31m;[m
      [01;34mtask[m [01;34mbody[m Deamon [01;34mis[m
	 End_Of_Task [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      [01;34mbegin[m
     Main_Loop [31m:[m
	 [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Halt[31m;[m
		  End_Of_Task [31m:=[m True[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Lock[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Unlock[31m;[m		  
		  screen[31m.[mRefresh[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Halt[31m;[m
		  End_Of_Task [31m:=[m True[31m;[m	    
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Lock[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Unlock[31m;[m
	       [01;34mor[m
		  [01;34mdelay[m [35m1.0[m[31m;[m
		  screen[31m.[mRefresh[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m	    
	    [01;34mend[m [01;34mloop[m[31m;[m	    
	 [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m Deamon[31m;[m
      
      Args_Index        [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Arguments         [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
      
      Var_Set           [31m:[m [01;30mAttributs[m[31m([m[35m2048[m[31m);[m
      Alias_Set         [31m:[m [01;30mAttributs[m[31m([m[35m2048[m[31m);[m
      Internal_Cmd [31m:[m Int_Cmd_Enum [31m:=[m None[31m;[m
      Is_Internal_Cmd [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Buffer [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
      
      Completion_Result [31m:[m Wide_Result_Access[31m;[m      
      History_Set   [31m:[m [01;30mWide_String_Set[m[31m([m[35m2048[m[31m);[m
      History_Last  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      History_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m  
      Result [31m:[m Wide_Result_Access[31m;[m
      Old_Text   [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
      Total  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Success  [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
   [01;34mbegin[m

      [01;30mInitialize[m[31m([mApp[31m.[mCmd_Result[31m.[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m lines[31m,[m Columns[31m,[m White[31m,[m Red[31m);[m
      Alias_Set[31m.[m[01;30mList[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mMake[m[31m([m[31m"ls"[m[31m,[m [31m"ls -C -p --color -w "[m [31m&[m [32mInteger[m'[01;30mImage[m[31m([mColumns[31m-[m[35m2[m[31m));[m
      Alias_Set[31m.[mIndex [31m:=[m [35m1[m[31m;[m

      [01;34mbegin[m
     Main_Loop[31m:[m
	 [01;34mloop[m
	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Halt [01;34mdo[m

		     Deamon[31m.[mHalt[31m;[m

		     Screen[31m.[mHalt[31m;[m

		  [01;34mend[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Suspend [01;34mdo[m
		     Deamon[31m.[mLock[31m;[m
		  [01;34mend[m Suspend[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m
			      [01;34mif[m Text'Length [31m>[m [35m0[m [01;34mthen[m
				 Lock[31m.[mSeize[31m;[m
				 [01;34mdeclare[m
				    Line [31m:[m [01;34mconstant[m Os_Lib[31m.[mString_Access [31m:=[m 
				      [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m));[m
				    
				    Path_On_Line [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
				    buffer [31m:[m Os_Lib[31m.[mString_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
				 [01;34mbegin[m
				    [01;34mif[m Completion_Result [31m/=[m [01;34mnull[m [01;34mthen[m
				       M[31m.[mTools[31m.[m[01;30mU_Array_Free[m[31m([mCompletion_Result[31m.[mWlines[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    [01;30mCompletion[m[31m([mLine[31m.[m[01;34mall[m[31m,[m Path_On_Line[31m,[m Completion_Result[31m);[m				    
				    [01;34mif[m Path_On_Line [31m/=[m [01;34mnull[m [01;34mthen[m
				       Buffer [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mPath_On_Line[31m.[m[01;34mall[m[31m));[m
				       [01;30mWide_Free[m[31m([mPath_On_Line[31m);[m					  
				       [01;30mWide_Free[m[31m([mText[31m);[m
				       Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mBuffer[31m.[m[01;34mall[m[31m));[m
				       [01;30mFree[m[31m([mBuffer[31m);[m
				       M[31m.[mTools[31m.[m[01;30mU_Array_Free[m[31m([mCompletion_Result[31m.[mWlines[31m);[m
				       [01;30mWide_Result_Free[m[31m([mCompletion_Result[31m);[m
				    [01;34melse[m
				       [01;34mfor[m I [01;34min[m Completion_Result[31m.[mWlines'[01;34mRange[m [01;34mloop[m
					  [01;30mPut_Line[m[31m([mM[31m.[mTools[31m.[m[01;30mDelete_Local_Prefix[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m(([mM[31m.[mTools[31m.[m[31m"-"[m[31m([mcompletion_Result[31m.[m[01;30mWlines[m[31m([mI[31m))))));[m
				       [01;34mend[m [01;34mloop[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				 [01;34mend[m[31m;[m
				 Lock[31m.[mRelease[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m|[m Wide_Character'[01;30mVal[m[31m([m[35m13[m[31m)[m [31m=>[m			
			      [01;34mif[m Text [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
				Text'Length [31m>[m [35m0[m [01;34mthen[m
				 
				 Lock[31m.[mSeize[31m;[m
				 Text_Io[31m.[mNew_Line[31m;[m
				 Deamon[31m.[mLock[31m;[m
				 
				 [01;34mif[m [01;30mText[m[31m([m[35m1[m[31m)[m [31m=[m [31m'-'[m [01;34mor[m [01;30mText[m[31m([m[35m1[m[31m)[m [31m=[m [31m'+'[m [01;34mthen[m
				    [01;34mif[m Text'Length [31m>[m [35m1[m [01;34mthen[m
				       [01;34mdeclare[m
					  Val [31m:[m Total_Type [31m:=[m [35m0.0[m[31m;[m
				       [01;34mbegin[m
					  Val [31m:=[m Total_Type'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m));[m
					  Total_Sum [31m:=[m Total_Sum [31m+[m Val[31m;[m
					  [01;30mWide_Free[m[31m([mText[31m);[m
					  Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
					  
				       [01;34mexception[m
					  [01;34mwhen[m Constraint_error [31m=>[m
					     [01;30mPut_Line[m[31m([m[31m"-: error"[m[31m);[m
				       [01;34mend[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				 [01;34melse[m
				    
				    
				    
				    Internal_Cmd [31m:=[m [01;30mInternal_Cmd_Value[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m));[m
				    Is_Internal_Cmd [31m:=[m True[31m;[m
				    [01;34mcase[m Internal_Cmd [01;34mis[m
				       [01;34mwhen[m none [31m=>[m
					  Is_Internal_Cmd [31m:=[m False[31m;[m
				       [01;34mwhen[m Alias [31m=>[m
					  
					  [01;30mAlias[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Alias_Set[31m);[m
					  
				       [01;34mwhen[m Unalias [31m=>[m
					  
					  [01;30mUnalias[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Alias_Set[31m);[m
					  
				       [01;34mwhen[m Cd [31m=>[m
					  [01;34mbegin[m
					     Cpu_Lock[31m.[mSeize[31m;[m
					     [01;30mChange_Directory[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Old_Pwd[31m);[m
					     Cpu_Lock[31m.[mRelease[31m;[m
					  [01;34mexception[m
					     [01;34mwhen[m Directory_Error [31m=>[m
						Cpu_Lock[31m.[mRelease[31m;[m
						Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Directory not found"[m[31m);[m
						Text_Io[31m.[mNew_Line[31m;[m
					  [01;34mend[m[31m;[m
				       [01;34mwhen[m Set [31m=>[m

					  [01;30mSet[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
					  
				       [01;34mwhen[m Unset [31m=>[m

					  [01;30mUnset[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
					  
				       [01;34mwhen[m Put [31m=>[m

					  Args_Index [31m:=[m [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m)+[m[35m1[m[31m;[m
					  [01;34mif[m Args_Index [31m/=[m [35m0[m [01;34mthen[m
					     Arguments [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mText[m[31m([mArgs_Index[31m..[mText'Length[31m));[m
					     [01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mArguments[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  Text_Io[31m.[mNew_Line[31m;[m
				       [01;34mwhen[m Put_Line [31m=>[m

					  Args_Index [31m:=[m [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m)+[m[35m1[m[31m;[m
					  [01;34mif[m Args_Index [31m/=[m [35m0[m [01;34mthen[m
					     Arguments [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mText[m[31m([mArgs_Index[31m..[mText'length[31m));[m
					     [01;30mPut_Line[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mArguments[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mwhen[m Xls [31m=>[m
					  Xls_Index [31m:=[m [35m0[m[31m;[m
					  Internal[31m.[m[01;30mxls[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m App[31m.[mCmd_Result[31m.[mWin[31m,[m Xls_Index[31m,[m Total[31m);[m
					  Total [31m:=[m [35m0[m[31m;[m
					  [01;30mWide_Free[m[31m([mOld_Text[31m);[m

					  Old_Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mText[31m.[m[01;34mall[m[31m);[m
				       [01;34mwhen[m Clear [31m=>[m
					  [31m--Draw_Window(App.Cmd_Result.Win);[m
					  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
					  Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m [35m1[m[31m;[m
				       [01;34mwhen[m Help [31m=>[m
					  
					  Result [31m:=[m [01;34mnew[m Spawn_Result_Record[31m;[m
					  [01;30mInternal_Help[m[31m([mText[31m.[m[01;34mall[m[31m,[m [01;30mSpawn_Result_record[m[31m([mResult[31m.[m[01;34mall[m[31m));[m
					  [31m--New_Line;[m
					  [01;30mPrint_buffer[m[31m([mResult[31m,[m [35m0[m[31m);[m
					  [01;30mWide_Result_Free[m[31m([mResult[31m);[m
					  Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m Result[31m.[mCount[31m+[m[35m1[m[31m;[m
					  Total [31m:=[m [35m0[m[31m;[m

				    [01;34mend[m [01;34mcase[m[31m;[m
				    
				    
				    [01;34mif[m [01;34mnot[m Is_Internal_Cmd [01;34mthen[m
				       
				       [31m--New_Line;[m
				       [01;34mdeclare[m
					  Alias_Ptr   [31m:[m Os_Lib[31m.[mString_Access[31m;[m
					  Buffer      [31m:[m Os_Lib[31m.[mString_Access[31m;[m
					  Normal      [31m:[m Os_Lib[31m.[mString_Access[31m;[m				 
				       [01;34mbegin[m

					  [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mAlias_Set[31m.[mIndex [01;34mloop[m
					     [01;34mdeclare[m
						Alias [31m:[m [01;34mconstant[m Attribut_Record [31m:=[m Alias_Set[31m.[m[01;30mList[m[31m([mIter[31m);[m
						First_Space [31m:[m Natural [31m:=[m 
						  [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m);[m
						Non_Blank   [31m:[m [01;34mconstant[m Natural [31m:=[m
						  [01;30mIndex_Non_Blank[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Backward[31m);[m
					     [01;34mbegin[m	
						[01;34mif[m Non_Blank [31m<[m First_Space [01;34mthen[m
						   First_Space [31m:=[m [35m0[m[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
						[01;34mif[m First_Space [31m/=[m [35m0[m [01;34mthen[m
						   [01;34mif[m [01;30mNames[m[31m([mAlias[31m)[m [31m=[m
						     Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mText[m[31m([mText'First[31m..[mFirst_Space [31m-[m [35m1[m[31m))[m [01;34mthen[m
						      Alias_Ptr [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mImages[m[31m([mAlias[31m));[m
						      [01;34mexit[m[31m;[m
						   [01;34mend[m [01;34mif[m[31m;[m
						[01;34melse[m
						   [01;34mif[m [01;30mNames[m[31m([mAlias[31m)[m [31m=[m Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mText[m[31m([mText'First[31m..[m[01;30mIndex_Non_Blank[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m Backward[31m)))[m [01;34mthen[m
						      Alias_Ptr [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mImages[m[31m([mAlias[31m));[m
						      [01;34mexit[m[31m;[m
						   [01;34mend[m [01;34mif[m[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34mend[m [01;34mloop[m[31m;[m

					  [01;34mif[m Alias_Ptr [31m/=[m [01;34mnull[m [01;34mthen[m
					     [01;34mdeclare[m
						First_Space [31m:[m [01;34mconstant[m Natural [31m:=[m 
						  [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m);[m
					     [01;34mbegin[m

						[01;34mif[m First_Space [31m/=[m [35m0[m [01;34mthen[m
						   Buffer [31m:=[m [01;34mnew[m [32mString[m ' 
						     [31m([mAlias_Ptr[31m.[m[01;34mall[m [31m&[m [31m' '[m [31m&[m Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mText[m[31m([mFirst_Space[31m+[m[35m1[m[31m..[mText ' Last[31m)));[m

						[01;34melse[m
						   Buffer [31m:=[m [01;34mnew[m [32mString[m ' [31m([mAlias_Ptr[31m.[m[01;34mall[m[31m);[m
						[01;34mend[m [01;34mif[m[31m;[m
					     [01;34mend[m[31m;[m
					     [01;30mWide_Free[m[31m([mText[31m);[m

					     Normal [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mNormalize_Quoted_Argument[m[31m([mBuffer[31m.[m[01;34mall[m[31m));[m
					     Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal[31m.[m[01;34mall[m[31m));[m
					     
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m[31m;[m
				       
				       
				       
				       [01;34mif[m [01;30mLocate_Exec_On_path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m)))[m [31m/=[m [01;34mnull[m [01;34mthen[m
					  
					  [01;34mif[m [01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m))[m'Length [31m=[m Text'Length [01;34mthen[m

   					     [01;34mdeclare[m
						
   						[31m--  Args : constant Os_Lib.Argument_List_Access := Os_Lib.Argument_String_To_List[m
   						[31m--    ([m
   						[31m--     "-c " &[m
   						[31m--       Os_Lib.Locate_Exec_On_Path(Command_Name(Handling.To_String(Text.all))).all);[m
   					     [01;34mbegin[m
   						[01;34mif[m Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m))).[m[01;34mall[m'Length [31m/=[m [35m0[m [01;34mthen[m
   						   [31m--Errno := Spawn("/usr/bin/sh", Args.all);[m
						   Errno [31m:=[m [01;30mSystem[m[31m([m[31m"/usr/bin/sh -c """[m [31m&[m Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m))).[m[01;34mall[m [31m&[m [31m" | /usr/bin/tee ./flush.txt"""[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m

						   Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m [01;30mLine_Count[m[31m([m[31m"./flush.txt"[m[31m)[m [31m+[m [35m1[m[31m;[m
						   Os_Lib[31m.[m[01;30mDelete_File[m[31m([m[31m"flush.txt"[m[31m,[m Success[31m);[m
   						[01;34mend[m [01;34mif[m[31m;[m
   					     [01;34mend[m[31m;[m
					     
   					  [01;34melse[m
					     
   					     [01;34mdeclare[m
						
   						[31m--  Args : constant Os_Lib.Argument_List_Access := new Os_Lib.Argument_List ' (new String ' ("-c"), [m
						[31m--  									   new String ' (Os_Lib.Locate_Exec_On_Path(Command_Name(Handling.To_String(Text.all))).all & " " & [m
						[31m--  											   Handling.To_String(Text.all)(Command_Name(Handling.To_String(Text.all))'Length+2..Text'Last)[m
						[31m--  											)[m
						[31m--  									  );[m
						
   					     [01;34mbegin[m
   						[31m--Normalize_Arguments(Args.all);[m
   						[31m--Errno := Spawn("/usr/bin/sh", Args.all);[m
						Errno [31m:=[m [01;30mSystem[m[31m([m[31m"/usr/bin/sh -c """[m [31m&[m Os_Lib[31m.[m[01;30mLocate_Exec_On_Path[m[31m([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m))).[m[01;34mall[m [31m&[m [31m" "[m [31m&[m 
								  [01;30mNormalize_Quoted_Argument[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m)([m[01;30mCommand_Name[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m))[m'Length[31m+[m[35m2[m[31m..[mText'Last[31m))[m [31m&[m [31m" | /usr/bin/tee ./flush.txt"""[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
						
						Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m [01;30mLine_Count[m[31m([m[31m"./flush.txt"[m[31m)[m [31m+[m [35m1[m[31m;[m
						Os_Lib[31m.[m[01;30mDelete_File[m[31m([m[31m"flush.txt"[m[31m,[m Success[31m);[m
   					     [01;34mend[m[31m;[m
					     
					     
   					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34melse[m
					  Errno [31m:=[m [01;30mSystem[m[31m([m[31m"/usr/bin/sh -c """[m [31m&[m [01;30mNormalize_Quoted_Argument[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mText[31m.[m[01;34mall[m[31m))[m [31m&[m [31m" | /usr/bin/tee ./flush.txt"""[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
					  
					  Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m Lib[31m.[mShared[31m.[mLine_Cur [31m+[m [01;30mLine_Count[m[31m([m[31m"./flush.txt"[m[31m)[m [31m+[m [35m1[m[31m;[m
					  Os_Lib[31m.[m[01;30mDelete_File[m[31m([m[31m"flush.txt"[m[31m,[m Success[31m);[m
					  [01;34mif[m Errno [31m/=[m [35m0[m [01;34mthen[m
					     New_Line[31m;[m
					     [01;30mPut_Line[m[31m([m[31m"Command not found"[m[31m);[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mif[m Errno [31m/=[m [35m0[m [01;34mthen[m	    
				       [01;30mPut_Line[m[31m([m[31m"Error: errno = "[m [31m&[m [32mInteger[m'[01;30mImage[m[31m([mErrno[31m));[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    Old_Length [31m:=[m Text'Length[31m;[m
				    [01;30mAdd_Line[m[31m([mHistory_Set[31m,[m History_Last[31m,[m Text[31m.[m[01;34mall[m[31m);[m
				    History_Index [31m:=[m [35m0[m[31m;[m
				    [01;30mWide_Free[m[31m([mText[31m);[m
				    Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m			   
				 [01;34mend[m [01;34mif[m[31m;[m
				 Deamon[31m.[mUnlock[31m;[m
				 Lock[31m.[mRelease[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m
			      [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
			      [31m--Errno := System("clear" & Character'Val(0));[m

			      Lib[31m.[mShared[31m.[mLine_Cur [31m:=[m [35m1[m[31m;[m
			      Screen[31m.[mRefresh[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
			      Old_Length [31m:=[m Text'Length[31m;[m
			      Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mText[31m.[m[01;34mall[m[31m([mText'First[31m..[mText'Last[31m-[m[35m1[m[31m));[m
			      [01;30mWide_Free[m[31m([mText[31m);[m
			      Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mBuffer[31m.[m[01;34mall[m[31m);[m
			      [01;30mWide_Free[m[31m([mBuffer[31m);[m			
			      Screen[31m.[mRefresh[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melse[m
			Lock[31m.[mSeize[31m;[m
			Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mText[31m.[m[01;34mall[m [31m&[m Wchar[31m);[m
			[01;30mWide_Free[m[31m([mText[31m);[m
			Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mbuffer[31m.[m[01;34mall[m[31m);[m
			[01;30mWide_Free[m[31m([mBuffer[31m);[m
			Old_Length [31m:=[m Text'Length[31m;[m
			Lock[31m.[mRelease[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  Screen[31m.[mRefresh[31m;[m
       [01;34mor[m
		  [01;34maccept[m Refresh[31m;[m
		  Screen[31m.[mRefresh[31m;[m
		  
	       [01;34mor[m
		  [01;34maccept[m Page_Down[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Page_Up[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     
		     [01;34mif[m [31m([mHistory_Last [31m>[m [35m0[m[31m)[m [01;34mand[m [01;34mthen[m
		       [31m([mHistory_Last [31m-[m History_Index[31m)[m [31m>[m [35m0[m [01;34mthen[m		  
			Old_Length [31m:=[m Text'Length[31m;[m

			Screen[31m.[mRefresh[31m;[m

			[01;30mWide_Free[m[31m([mText[31m);[m
			Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last [31m-[m [31m([mHistory_Index[31m)).[m[01;34mall[m[31m);[m
			History_Index [31m:=[m History_Index [31m+[m [35m1[m[31m;[m		  			

			Screen[31m.[mRefresh[31m;[m

		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m up_arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     
		     [01;34mif[m [31m([mHistory_Index [31m>[m [35m1[m[31m)[m [01;34mthen[m		  
			Old_Length [31m:=[m Text'Length[31m;[m
			[01;30mWide_Free[m[31m([mText[31m);[m
			
			Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mHistory_Set[31m.[m[01;30mLines[m[31m([mHistory_Last [31m-[m [31m([mHistory_Index [31m-[m [35m2[m[31m)).[m[01;34mall[m[31m);[m
			
			History_Index [31m:=[m History_Index [31m-[m [35m1[m[31m;[m
			Screen[31m.[mRefresh[31m;[m
		     [01;34melsif[m History_Index [31m=[m [35m1[m [01;34mthen[m
			Old_Length [31m:=[m Text'Length[31m;[m
			[01;30mWide_Free[m[31m([mText[31m);[m		  
			Text [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
			
			History_Index [31m:=[m History_Index [31m-[m [35m1[m[31m;[m
			Screen[31m.[mRefresh[31m;[m
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Down_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Left_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Right_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Full_Screen[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Del[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Begin_Of[31m;[m
	       [01;34mor[m
		  [01;34maccept[m End_Of[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Overwrite[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Full_Screen[31m;[m		  
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mloop[m
	       [01;34mselect[m
		  
		  [01;34maccept[m Halt [01;34mdo[m
		     Deamon[31m.[mHalt[31m;[m
		     Screen[31m.[mHalt[31m;[m
		  [01;34mend[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Suspend[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		     
		     [31m--Text_Io.Put_Line("Greetings " & Getenv("USER").all & "!");[m
		     Deamon[31m.[mUnlock[31m;[m
		  [01;34mend[m Wake_Up[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m[31m;[m
      [31m--W_Io.Put_Line("None process halted");[m
   [01;34mend[m None_Process[31m;[m
   
   
   
   [01;34msubtype[m Function_Enum [01;34mis[m Mode_Enum [01;34mrange[m None[31m..[mLibrary[31m;[m
   [01;34msubtype[m Managment_Enum [01;34mis[m Mode_Enum [01;34mrange[m Navigation[31m..[mAgent[31m;[m
   [01;34msubtype[m Supervision_Enum [01;34mis[m Mode_Enum [01;34mrange[m Ai_Managment[31m..[mQuit[31m;[m
   
   [01;34mtype[m Mode_Menu_Array [01;34mis[m [01;34marray[m [31m([mMode_Enum [01;34mrange[m [31m<>)[m [01;34mof[m OS_Lib[31m.[mString_Access[31m;[m
   
   [01;34mtype[m Page_Enum [01;34mis[m [31m([moperations[31m,[m Managments[31m,[m Supervisions[31m);[m
   
   [01;34mtype[m Page_Array [01;34mis[m [01;34marray[m [31m([mPage_Enum[31m)[m [01;34mof[m [01;34maccess[m Mode_Menu_Array[31m;[m
   
   [31m--Function_Page : constant access Mode_Menu_Array := new Mode_Menu_Array(Function_Enum'Range);[m
   [31m--Managment_Page : constant access Mode_Menu_Array := new Mode_Menu_Array(Managment_Enum'Range);[m
   [31m--Supervision_Page : constant access Mode_Menu_Array := new Mode_Menu_Array(Supervision_Enum'Range);[m
   
   [31m--Pages : constant Page_Array := (Function_Page, Managment_Page, Supervision_Page);[m
   Pages [31m:[m [01;34mconstant[m Page_Array [31m:=[m [31m([m[01;34mnew[m [01;30mMode_Menu_Array[m[31m([mFunction_Enum'[01;34mRange[m[31m),[m [01;34mnew[m [01;30mMode_Menu_Array[m[31m([mManagment_Enum'[01;34mRange[m[31m),[m [01;34mnew[m [01;30mMode_Menu_Array[m[31m([mSupervision_Enum'[01;34mRange[m[31m));[m
   
   
   [01;34mpackage[m Page_Wrap [01;34mis[m [01;34mnew[m PragmARC[31m.[m[01;30mWrapping[m[31m([mPage_Enum[31m);[m
   [01;34muse[m Page_Wrap[31m;[m
   
   [01;34mprocedure[m [01;30mGate_Print[m[31m([mPage [31m:[m [01;34min[m Page_Enum[31m;[m Mode [31m:[m [01;34min[m Mode_Enum[31m)[m [01;34mis[m
      
      
      Page_Cur [31m:[m Page_Enum [31m:=[m Page[31m;[m
      Line [31m:[m Line_Range [31m:=[m [35m6[m[31m;[m
      Col  [31m:[m Column_Range [31m:=[m Columns[31m/[m[35m6[m[31m;[m
   [01;34mbegin[m
      
      Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m      
      [01;30mPut[m[31m([m[01;30mPosition[m[31m([m[35m2[m[31m,[m Col[31m)[m [31m&[m Page_Enum'[01;30mImage[m[31m([mPage_cur[31m));[m
      Page_Cur [31m:=[m [01;30mWrap_Succ[m[31m([mPage_Cur[31m);[m
      
      [01;30mPut[m[31m([m[01;30mPosition[m[31m([m[35m2[m[31m,[m Col[31m+([mColumns[31m/[m[35m6[m[31m)*[m[35m2[m[31m)[m [31m&[m Page_Enum'[01;30mImage[m[31m([mPage_Cur[31m));[m
      Col [31m:=[m Col[31m+([mColumns[31m/[m[35m6[m[31m)*[m[35m2[m[31m;[m
      Page_Cur [31m:=[m [01;30mWrap_Succ[m[31m([mPage_Cur[31m);[m
      [01;30mPut[m[31m([m[01;30mPosition[m[31m([m[35m2[m[31m,[m Col[31m+([mColumns[31m/[m[35m6[m[31m)*[m[35m2[m[31m)[m [31m&[m Page_Enum'[01;30mImage[m[31m([mPage_Cur[31m));[m
      Col [31m:=[m Columns[31m/[m[35m6[m[31m-[m[35m10[m[31m;[m
      Page_Cur [31m:=[m Page[31m;[m
      [01;34mfor[m Page [01;34min[m [35m1[m[31m..[m[35m3[m [01;34mloop[m
	 [01;34mfor[m Mode_Cur [01;34min[m [01;30mPages[m[31m([mPage_Cur[31m)[m'[01;34mRange[m [01;34mloop[m
	    [01;34mif[m [01;30mFunctions[m[31m([mMode_Enum'[01;30mPos[m[31m([mMode_Enum'[01;30mValue[m[31m([m[01;30mPages[m[31m([mPage_Cur[31m)([mMode_cur[31m).[m[01;34mall[m[31m)))[m [31m=[m [01;34mnull[m [01;34mthen[m
	       Text_Io[31m.[m[01;30mPut[m[31m([m[01;30mPosition[m[31m([mLine[31m,[m Col[31m)[m [31m&[m Internal[31m.[mRed [31m&[m [01;30mPages[m[31m([mPage_Cur[31m)([mMode_cur[31m).[m[01;34mall[m [31m&[m Normal_Mode[31m);[m
	    [01;34melsif[m Mode_Enum'[01;30mValue[m[31m([m[01;30mPages[m[31m([mPage_Cur[31m)([mMode_cur[31m).[m[01;34mall[m[31m)[m [31m=[m Mode [01;34mthen[m
	       Text_Io[31m.[m[01;30mPut[m[31m([m[01;30mPosition[m[31m([mLine[31m,[m Col[31m)[m [31m&[m Reverse_video [31m&[m [01;30mPages[m[31m([mPage_Cur[31m)([mMode_cur[31m).[m[01;34mall[m [31m&[m Normal_Mode[31m);[m
	    [01;34melse[m
	       Text_Io[31m.[m[01;30mPut[m[31m([m[01;30mPosition[m[31m([mLine[31m,[m Col[31m)[m [31m&[m [01;30mPages[m[31m([mPage_Cur[31m)([mMode_cur[31m).[m[01;34mall[m[31m);[m
	    [01;34mend[m [01;34mif[m[31m;[m
	    Line [31m:=[m Line [31m+[m [35m2[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mexit[m [01;34mwhen[m Page [31m=[m [35m3[m[31m;[m
	 Line [31m:=[m [35m6[m[31m;[m
	 Col [31m:=[m Col[31m+([mColumns[31m/[m[35m6[m[31m)*[m[35m2[m[31m-[m[35m10[m[31m;[m
	 Page_Cur [31m:=[m [01;30mWrap_Succ[m[31m([mPage_Cur[31m);[m
      [01;34mend[m [01;34mloop[m[31m;[m
   [01;34mend[m Gate_Print[31m;[m
   
   
   
   
   
   
   
   
   
   
   
   [01;34mprocedure[m Page_Initialize [01;34mis[m
   [01;34mbegin[m
      [01;34mfor[m Page [01;34min[m Page_Enum'[01;34mRange[m [01;34mloop[m
	 [01;34mfor[m Mode [01;34min[m [01;30mPages[m[31m([mPage[31m)[m'[01;34mRange[m [01;34mloop[m
	    [01;30mPages[m[31m([mPage[31m)([mMode[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode[31m));[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m      
   [01;34mend[m Page_Initialize[31m;[m
   
   
   
   
   [01;34mtask[m [01;34mbody[m Gate_Process [01;34mis[m
      Page [31m:[m Page_Enum [31m:=[m operations[31m;[m
      Mode_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Offset [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      The_Mode [31m:[m Mode_Enum [31m:=[m Gate[31m;[m
   [01;34mbegin[m

      Page_Initialize[31m;[m

  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m

		  [01;34mif[m [01;30mIs_Control[m [31m([mWchar[31m)[m [01;34mthen[m

		     [01;34mcase[m Wchar [01;34mis[m
			[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m

			   [01;34mcase[m Page [01;34mis[m
			      [01;34mwhen[m Supervisions [31m=>[m
				 Page [31m:=[m Operations[31m;[m
				 Offset [31m:=[m [35m0[m[31m;[m
			      [01;34mwhen[m operations [31m=>[m

				 Page [31m:=[m Managments[31m;[m

				 Offset [31m:=[m [35m13[m[31m;[m
			      [01;34mwhen[m Managments [31m=>[m
				 Page [31m:=[m Supervisions[31m;[m
				 Offset [31m:=[m Offset[31m+[m[35m12[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			   Mode_Index [31m:=[m [35m0[m[31m;[m

			   [01;30mGate_Print[m[31m([mPage[31m,[m Mode_Enum'[01;30mValue[m[31m([m[01;30mPages[m[31m([mPage[31m)([mMode_Enum'[01;30mVal[m[31m([mMode_Index[31m+[mOffset[31m)).[m[01;34mall[m[31m));[m
			[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m|[m Wide_Character'[01;30mVal[m[31m([m[35m13[m[31m)[m [31m=>[m
			   [01;30mPut_Line[m[31m([m[31m"mode index : "[m [31m&[m [32mInteger[m'[01;30mImage[m[31m([mMode_Index[31m)[m [31m&[m [31m" offset : "[m [31m&[m [32mInteger[m'[01;30mImage[m[31m([mOffset[31m));[m
			   The_Mode [31m:=[m Mode_Enum'[01;30mValue[m[31m([m[01;30mPages[m[31m([mPage[31m)([mMode_Enum'[01;30mVal[m[31m([mMode_Index[31m+[mOffset[31m)).[m[01;34mall[m[31m);[m
			   [01;30mPut_Line[m[31m([mMode_Enum'[01;30mImage[m[31m([mThe_Mode[31m));[m
			[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m
			   [01;30mGate_Print[m[31m([mPage[31m,[m Mode_Enum'[01;30mValue[m[31m([m[01;30mPages[m[31m([mPage[31m)([mMode_Enum'[01;30mVal[m[31m([mMode_Index[31m+[mOffset[31m)).[m[01;34mall[m[31m));[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34melse[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Receive[31m;[m
	       [31m--Ansi.Console.Clear_Screen;	       [m
	       [01;34mif[m The_Mode [31m/=[m Gate [01;34mthen[m
		  App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mThe_Mode[31m);[m
		  
		  [01;34mexit[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m

	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Gate"[m[31m);[m
		  Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
		  Mode_Index [31m:=[m [35m0[m[31m;[m
		  Offset [31m:=[m [35m0[m[31m;[m      
		  The_Mode [31m:=[m Gate[31m;[m
		  Page [31m:=[m Operations[31m;[m
		  [01;30mGate_Print[m[31m([mPage[31m,[m Mode_Enum'[01;30mValue[m[31m([m[01;30mPages[m[31m([mPage[31m)([mMode_Enum'[01;30mVal[m[31m([mMode_Index[31m+[mOffset[31m)).[m[01;34mall[m[31m));[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Refresh[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  
		  [01;34mif[m Mode_Index [31m>[m [35m0[m [01;34mthen[m
		     Mode_Index [31m:=[m Mode_Index [31m-[m [35m1[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;30mGate_Print[m[31m([mPage[31m,[m Mode_Enum'[01;30mValue[m[31m([m[01;30mPages[m[31m([mPage[31m)([mMode_Enum'[01;30mVal[m[31m([mMode_Index[31m+[mOffset[31m)).[m[01;34mall[m[31m));[m
	       [01;34mend[m up_arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mif[m Mode_Index [31m<[m [01;30mPages[m[31m([mPage[31m)[m'Length[31m-[m[35m1[m [01;34mthen[m
		     Mode_Index [31m:=[m Mode_Index [31m+[m [35m1[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;30mGate_Print[m[31m([mPage[31m,[m Mode_Enum'[01;30mValue[m[31m([m[01;30mPages[m[31m([mPage[31m)([mMode_Enum'[01;30mVal[m[31m([mMode_Index[31m+[mOffset[31m)).[m[01;34mall[m[31m));[m
	       [01;34mend[m Down_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Screen_Print[31m;[m

	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Gate"[m[31m);[m
		  [31m--Text_Io.Put_Line("Greetings " & Getenv("USER").all & "!");[m
		  Ansi[31m.[mConsole[31m.[mClear_Screen[31m;[m
		  Mode_Index [31m:=[m [35m0[m[31m;[m
		  Offset [31m:=[m [35m0[m[31m;[m      
		  The_Mode [31m:=[m Gate[31m;[m
		  Page [31m:=[m Operations[31m;[m
		  [01;30mGate_Print[m[31m([mPage[31m,[m Mode_Enum'[01;30mValue[m[31m([m[01;30mPages[m[31m([mPage[31m)([mMode_Enum'[01;30mVal[m[31m([mMode_Index[31m+[mOffset[31m)).[m[01;34mall[m[31m));[m
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Gate process halted");[m
   [01;34mend[m Gate_Process[31m;[m

   
   [31m---------------------------------------------------------------------------[m
   [31m--                                                                       --[m
   [31m--                             Organizer                                 --[m
   [31m--                                                                       --[m
   [31m---------------------------------------------------------------------------[m
   
   [01;34muse[m Abstract_Vectors[31m;[m
   
   [01;34mfunction[m [01;30mId[m [31m([mName [31m:[m [01;34min[m Class_Enum[31m)[m [01;34mreturn[m Abstract_Access [01;34mis[m
   [01;34mbegin[m
      
      [01;34mif[m Name [31m=[m Planning [01;34mthen[m
   	 [01;34mreturn[m [01;34mnew[m Planning_Class[31m;[m
      [01;34melsif[m Name [31m=[m Content [01;34mthen[m
   	 [01;34mreturn[m [01;34mnew[m Content_Class[31m;[m
      [01;34melsif[m Name [31m=[m Universe [01;34mthen[m
   	 [01;34mreturn[m [01;34mnew[m Universe_Class[31m;[m
      [01;34melsif[m Name [31m=[m Program [01;34mthen[m
   	 [01;34mreturn[m [01;34mnew[m Classes[31m.[mProgram_Class[31m;[m
      [01;34melsif[m Name [31m=[m Event [01;34mthen[m
   	 [01;34mreturn[m [01;34mnew[m Event_Class[31m;[m
      [01;34melsif[m Name [31m=[m Meeting [01;34mthen[m
   	 [01;34mreturn[m [01;34mnew[m Meeting_Class[31m;[m
      [01;34melsif[m Name [31m=[m Rendezvous [01;34mthen[m
   	 [01;34mreturn[m [01;34mnew[m Rendezvous_Class[31m;[m
      [01;34melsif[m Name [31m=[m Job [01;34mthen[m
   	 [01;34mreturn[m [01;34mnew[m Job_Class[31m;[m
      [01;34melsif[m Name [31m=[m Profile [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Profile_Class[31m;[m
      [01;34melsif[m Name [31m=[m Book [01;34mthen[m
      	 [01;34mreturn[m [01;34mnew[m Book_Class[31m;[m
      [01;34melsif[m Name [31m=[m CDROM [01;34mthen[m
      	 [01;34mreturn[m [01;34mnew[m CDROM_Class[31m;[m
      [01;34melsif[m Name [31m=[m DVD [01;34mthen[m
      	 [01;34mreturn[m [01;34mnew[m DVD_Class[31m;[m
      [01;34melsif[m Name [31m=[m Car [01;34mthen[m
      	 [01;34mreturn[m [01;34mnew[m Car_Class[31m;[m
      [01;34melsif[m Name [31m=[m House [01;34mthen[m
      	 [01;34mreturn[m [01;34mnew[m House_Class[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mreturn[m [01;34mnull[m[31m;[m
   [01;34mend[m Id[31m;[m            
   
   [01;34mtype[m Object_Counter [01;34mis[m [01;34marray[m [31m([mClass_Enum'[01;34mRange[m[31m)[m [01;34mof[m Natural[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mGlobal_Content_Print[m [31m([mObject [31m:[m Abstract_Access[31m;[m
				   Win       [31m:[m [01;34min[m Window_Type[31m)[m [01;34mis[m

      
      Objects [31m:[m Abstract_Vectors[31m.[mVector[31m;[m
      
      Counter [31m:[m Object_Counter [31m:=[m [31m([m[01;34mothers[m [31m=>[m [35m0[m[31m);[m
      Win_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m

      [01;34mif[m Object [31m/=[m [01;34mnull[m [01;34mthen[m
	 
	 Objects [31m:=[m Object[31m.[mChilds[31m;[m
	 
	 [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLast_Index[m[31m([mObjects[31m)[m [01;34mloop[m
	    
	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mObjects[31m,[m I[31m);[m
	    [01;34mbegin[m
	       
	       [01;34mfor[m J [01;34min[m Class_Enum'[01;30mSucc[m[31m([mNone[31m)..[mClass_Enum'Last [01;34mloop[m
		  
		  [01;34mif[m E[31m.[mTag [31m=[m J [01;34mthen[m
		     
		     [01;30mCounter[m[31m([mJ[31m)[m [31m:=[m [01;30mCounter[m[31m([mJ[31m)[m [31m+[m [35m1[m[31m;[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
	 [01;34mfor[m I [01;34min[m Class_Enum'[01;30mSucc[m[31m([mNone[31m)..[mClass_Enum'Last [01;34mloop[m
	    
	    [01;30mDraw[m[31m([mWin[31m,[m Win_Index[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mClass_Enum'[01;30mImage[m[31m([mI[31m))[m [31m&[m
		   Wide_Fixed[31m.[m[31m"*"[m[31m(([m[35m16[m [31m-[m Class_Enum'[01;30mImage[m[31m([mI[31m)[m'Length[31m),[m[31m' '[m[31m)[m [31m&[m
		   [31m" : Total  = "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([m[01;30mCounter[m[31m([mI[31m)))[m [31m&[m
		   [31m" "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mClass_Enum'[01;30mImage[m[31m(([mi[31m))));[m
	    
	    Win_Index [31m:=[m Win_Index [31m+[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34melse[m
	 
	 [01;30mDraw[m[31m([mWin[31m,[m Win_Index[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m White[31m,[m [31m"Obj = null"[m[31m);[m
	 
      [01;34mend[m [01;34mif[m[31m;[m

      
      
   [01;34mend[m Global_Content_Print[31m;[m

   [01;34mprocedure[m [01;30mGlobal_Read[m[31m([mFile [31m:[m W_Io[31m.[mFile_Type[31m;[m
   			 End_Of_File [31m:[m [01;34mout[m [32mBoolean[m[31m;[m
   			 Object [31m:[m [01;34mout[m Abstract_Access[31m)[m [01;34mis[m
      Tag [31m:[m Class_Enum [31m:=[m None[31m;[m
      Name [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m8[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m));[m
      Name_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m

      End_Of_File [31m:=[m False[31m;[m
      [01;34mwhile[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m

	 [01;34mdeclare[m
	    Name [31m:[m [32mWide_String[m [31m:=[m W_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m);[m
   	 [01;34mbegin[m
   	    

   	    Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mName[31m,[m backward[31m);[m
   	    [01;34mif[m index [31m=[m [35m0[m [01;34mthen[m
   	       [01;34mraise[m Constraint_Error[31m;[m
   	    [01;34melse[m
   	       [01;34mif[m Wide_Characters[31m.[mHandling[31m.[m[01;30mIs_Control[m[31m([m[01;30mName[m[31m([mIndex[31m))[m [01;34mthen[m
   		  [01;34mraise[m Constraint_Error[31m;[m
   	       [01;34mend[m [01;34mif[m[31m;[m
   	    [01;34mend[m [01;34mif[m[31m;[m

   	    Tag [31m:=[m Class_Enum'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mName[31m));[m

   	    [01;34mexit[m[31m;[m
   	 [01;34mexception[m
   	    [01;34mwhen[m Constraint_Error [31m=>[m

   	       W_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m,[m Name[31m,[m Name_Last[31m);[m

   	       [01;34mbegin[m

   		  Tag [31m:=[m Class_Enum'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mName[m[31m([mName'First[31m..[mName_Last[31m)));[m

   		  [01;34mexit[m[31m;[m
		  
   	       [01;34mend[m[31m;[m
   	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      


      Object [31m:=[m [01;30mId[m[31m([mTag[31m);[m

      End_Of_File [31m:=[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m);[m
      [01;34mif[m [01;34mnot[m End_Of_File [01;34mthen[m
	 
	 Object[31m.[m[01;30mRead[m[31m([mFile[31m);[m
	 
      [01;34mend[m [01;34mif[m[31m;[m

      
   [01;34mexception[m
      [01;34mwhen[m Constraint_Error [31m=>[m
   	 [01;34mraise[m[31m;[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
   	 [01;34mnull[m[31m;[m
   [01;34mend[m Global_Read[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mGlobal_Print[m[31m([mObject [31m:[m Abstract_Access[31m;[m
   			  Header       [31m:[m [01;34min[m Window_Type[31m;[m
			  Win [31m:[m [01;34min[m Window_Type[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Object [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Universe_Class'Tag [01;34mthen[m
   	 [01;30mUniverse_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Planning_Class'Tag [01;34mthen[m
   	 [01;30mPlanning_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Content_Class'Tag [01;34mthen[m
   	 [01;30mContent_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Event_Class'Tag [01;34mthen[m
   	 [01;30mEvent_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m      	 
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Job_Class'Tag [01;34mthen[m
   	 [01;30mJob_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Meeting_Class'Tag [01;34mthen[m
   	 [01;30mMeeting_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Rendezvous_Class'Tag [01;34mthen[m
   	 [01;30mRendezvous_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Profile_Class'Tag [01;34mthen[m
   	 [01;30mProfile_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m      	 
	 
      [01;34mend[m [01;34mif[m[31m;[m      
   [01;34mend[m Global_Print[31m;[m
   
   [01;34mprocedure[m [01;30mParent[m[31m([mT [31m:[m [01;34min[m [01;34mout[m Terminal_Type[31m)[m [01;34mis[m
      
      V [31m:[m Abstract_Vectors[31m.[mVector [31m:=[m T[31m.[mPath[31m;[m
   [01;34mbegin[m
      [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mV[31m)[m [01;34mthen[m
   	 [01;34mif[m [01;30mLast_Index[m[31m([mV[31m)[m [31m>=[m [35m1[m [01;34mthen[m
	    T[31m.[mCur [31m:=[m [01;30mLast_Element[m[31m([mV[31m);[m
	    [01;34mif[m [01;30mLast_Index[m[31m([mV[31m)[m [31m>[m [35m1[m [01;34mthen[m
	       [01;30mDelete[m[31m([mV[31m,[m [01;30mLast_Index[m[31m([mV[31m));[m
	    [01;34mend[m [01;34mif[m[31m;[m
   	    
   	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      T[31m.[mPath [31m:=[m V[31m;[m
   [01;34mend[m Parent[31m;[m
   
   [01;34mprocedure[m [01;30mSwitch[m[31m([mT [31m:[m [01;34min[m [01;34mout[m Terminal_Type[31m;[m
   		    Num [31m:[m [01;34min[m Abstract_Index[31m;[m
   		    Success [31m:[m [01;34mout[m [32mboolean[m[31m)[m [01;34mis[m
      Vector [31m:[m Abstract_Vectors[31m.[mVector[31m;[m	 
   [01;34mbegin[m
      Success [31m:=[m False[31m;[m
      
      [01;34mif[m T[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
   	 Vector [31m:=[m T[31m.[mCur[31m.[mChilds[31m;[m
   	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mVector[31m)[m [01;34mthen[m
   	    [01;34mif[m Num [31m<=[m [01;30mLast_Index[m[31m([mVector[31m)[m [01;34mthen[m
   	       T[31m.[mPath [31m:=[m T[31m.[mPath [31m&[m T[31m.[mCur[31m;[m
   	       T[31m.[mCur [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mVector[31m,[m Num[31m);[m
	       
   	       [01;34mif[m T[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
   		  
   		  Success [31m:=[m True[31m;[m
   	       [01;34melse[m
   		  [01;34mraise[m Program_Error[31m;[m		     
   	       [01;34mend[m [01;34mif[m[31m;[m
   	    [01;34mend[m [01;34mif[m[31m;[m
   	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m	 
   [01;34mend[m Switch[31m;[m

   
      [01;34mprocedure[m [01;30mAdd_To[m [31m([mTerminal [31m:[m [01;34min[m [01;34mout[m Terminal_Type[31m;[m Obj [31m:[m Abstract_Access[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Terminal[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
	 Obj[31m.[mInfo[31m.[mIndex [31m:=[m [35m1[m[31m;[m	 
	 Terminal[31m.[mRoot [31m:=[m Obj[31m;[m
	 Terminal[31m.[mCur [31m:=[m Obj[31m;[m
	 Terminal[31m.[mPath [31m:=[m Terminal[31m.[mPath [31m&[m Obj[31m;[m
      [01;34melse[m
	 Obj[31m.[mInfo[31m.[mIndex [31m:=[m [01;30mAbstract_Index[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mTerminal[31m.[mCur[31m.[mChilds[31m)[m [31m+[m [35m1[m[31m);[m
	 Terminal[31m.[mCur[31m.[mChilds [31m:=[m Terminal[31m.[mCur[31m.[mChilds [31m&[m Obj[31m;[m
	 Terminal[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [31m:=[m Terminal[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [31m+[m [35m1[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Add_To[31m;[m


   [01;34mprocedure[m [01;30mRestore_Vector[m[31m([mT [31m:[m [01;34min[m [01;34mout[m Terminal_Type[31m;[m
   			    File [31m:[m W_Io[31m.[mFile_Type[31m)[m [01;34mis[m
      
      Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      N[31m,[m O [31m:[m Abstract_Access[31m;[m	 
      Child_Childs[31m,[m Child_Numb [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      End_Of_File [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   [01;34mbegin[m
      
      [01;34mif[m T[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;30mGlobal_Read[m[31m([mFile[31m,[m End_Of_File[31m,[m T[31m.[mRoot[31m);[m
	 [01;34mif[m T[31m.[mRoot[31m.[m[01;34mall[m [01;34min[m Profile_Class [01;34mthen[m
	    T[31m.[mU_Count [31m:=[m T[31m.[mU_Count [31m+[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 T[31m.[mCur [31m:=[m T[31m.[mRoot[31m;[m
	 [01;34mif[m T[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [31m/=[m [35m0[m [01;34mthen[m
	    [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mT[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [01;34mloop[m
	       [01;34mif[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mthen[m
		  [01;30mRestore_Vector[m[31m([mT[31m,[m File[31m);[m
	       [01;34mend[m [01;34mif[m[31m;[m
	       [01;30mParent[m[31m([mT[31m);[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34melse[m
	 [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mT[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [01;34mloop[m
	    [01;30mGlobal_Read[m[31m([mFile[31m,[m End_Of_File[31m,[m N[31m);[m	    
	    [01;34mif[m N[31m.[m[01;34mall[m [01;34min[m Profile_Class [01;34mthen[m
	    T[31m.[mU_count [31m:=[m T[31m.[mU_Count [31m+[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	    T[31m.[mCur[31m.[mChilds [31m:=[m T[31m.[mCur[31m.[mChilds [31m&[m N[31m;[m
	    [01;34mif[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mthen[m
	       [01;34mif[m N[31m.[mInfo[31m.[mChilds_num [31m/=[m [35m0[m [01;34mthen[m
		  [01;30mSwitch[m[31m([mT[31m,[m [01;30mLast_Index[m[31m([mT[31m.[mCur[31m.[mChilds[31m),[m Success[31m);[m
		  [01;30mRestore_Vector[m[31m([mT[31m,[m File[31m);[m
		  [01;30mParent[m[31m([mT[31m);[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

   [01;34mend[m Restore_Vector[31m;[m

   
   
   
   [01;34mprocedure[m [01;30mRestore[m[31m([mT [31m:[m [01;34min[m [01;34mout[m Terminal_Type[31m;[m
   		     Filename [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mis[m
      
      End_Of_File [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      File [31m:[m W_Io[31m.[mFile_Type[31m;[m
   [01;34mbegin[m
      
      W_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m W_Io[31m.[min_File[31m,[m Filename[31m);[m
      [01;34mif[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mthen[m
   	 [01;30mRestore_Vector[m[31m([mT[31m,[m File[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
   [01;34mend[m Restore[31m;[m
   
   
      
      [01;34mprocedure[m [01;30mSearch[m[31m([mT [31m:[m [01;34min[m [01;34mout[m Terminal_Type[31m;[m
   		    name [31m:[m [01;34min[m [32mWide_String[m[31m;[m
   		    Path_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m
   		    Success [31m:[m [01;34mout[m [32mboolean[m[31m)[m [01;34mis[m
      
      
      
      Vector [31m:[m Abstract_Vectors[31m.[mVector [31m:=[m T[31m.[mCur[31m.[mChilds[31m;[m
      
   [01;34mbegin[m
      Success [31m:=[m False[31m;[m
      
      [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mVector[31m)[m [01;34mthen[m
	 [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLast_Index[m[31m([mVector[31m)[m [01;34mloop[m
	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mVector[31m,[m I[31m);[m
	       Term [31m:[m Terminal_Type [31m:=[m T[31m;[m
	    [01;34mbegin[m
	       [01;34mif[m E [31m/=[m [01;34mnull[m [01;34mthen[m						
		  [01;34mif[m E[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m=[m Name [01;34mthen[m
		     [01;30mSwitch[m[31m([mTerm[31m,[m I[31m,[m  success[31m);[m
		     [01;34mif[m Success [01;34mthen[m
			T [31m:=[m Term[31m;[m
			[01;34mexit[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34melse[m
		     [01;30mSwitch[m[31m([mTerm[31m,[m I[31m,[m  success[31m);[m
		     Path_Index [31m:=[m Path_Index [31m+[m [35m1[m[31m;[m
		     [01;34mif[m Success [01;34mthen[m
			[01;30mSearch[m[31m([mTerm[31m,[m Name[31m,[m Path_Index[31m,[m Success[31m);[m
			[01;34mif[m Success [01;34mthen[m
			   T [31m:=[m Term[31m;[m
			   [01;34mexit[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m	
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34melse[m
		  [01;34mraise[m Program_Error[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Search[31m;[m

   
   
   
   [01;34mprocedure[m [01;30mSave_Object[m [31m([mObject [31m:[m Abstract_Access[31m;[m			  
   			  File [31m:[m W_Io[31m.[mFile_Type[31m;[m
   			  Index  [31m:[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
      O [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Object[31m;[m
      New_Index [31m:[m Natural [31m:=[m Index[31m;[m
   [01;34mbegin[m      
      [01;34mif[m O [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      O[31m.[m[01;34mall[m[31m.[m[01;30mWrite[m[31m([mFile[31m);[m

      
      
      [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mO[31m.[mChilds[31m)[m [01;34mthen[m

	 
   	 [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLast_Index[m[31m([mO[31m.[mChilds[31m)[m [01;34mloop[m

   	    [01;34mdeclare[m
   	       E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m
   		 Abstract_Vectors[31m.[m[01;30mElement[m[31m([mO[31m.[mChilds[31m,[m I[31m);[m
   	    [01;34mbegin[m

   	       [01;30mSave_Object[m[31m([mE[31m,[m File[31m,[m New_Index[31m+[m[35m1[m[31m);[m	       
	       
   	    [01;34mend[m[31m;[m
   	 [01;34mend[m [01;34mloop[m[31m;[m	 	 

      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Save_Object[31m;[m
   
   
   
   
   
   [01;34mprocedure[m [01;30mSave[m [31m([mObject [31m:[m [01;34min[m Abstract_Access[31m;[m
   		   Filename [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mis[m
      File [31m:[m W_Io[31m.[mFile_Type[31m;[m
      
   [01;34mbegin[m

      W_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m W_Io[31m.[mOut_File[31m,[m Filename[31m);[m

      [01;30mSave_Object[m[31m([mObject[31m,[m File[31m);[m

      W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m

   [01;34mend[m Save[31m;[m


   
   [01;34mtype[m Organizer_Type[31m;[m
   
   [01;34mtask[m [01;34mtype[m [01;30mDate_Process[m [31m([mOrganizer [31m:[m [01;34maccess[m Organizer_Type[31m)[m [01;34mis[m
      [01;34mentry[m Start[31m;[m
      [01;34mentry[m Stop[31m;[m
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Date_Process[31m;[m
   
   
   [01;34mtype[m Organizer_Type [01;34mis[m [01;34mlimited[m
      [01;34mrecord[m
	 Main_Win    [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mlines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
	 Header_Win  [31m:[m Window_Record [31m:=[m [31m([m[35m2[m[31m,[m [35m2[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m white[31m,[m The_Window[31m);[m
	 content_Win [31m:[m Window_Record [31m:=[m [31m([m[35m5[m[31m,[m [35m2[m[31m,[m [35m22[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m white[31m,[m The_Window[31m);[m
	 Cmd_Win     [31m:[m Window_Record [31m:=[m [31m([m[35m27[m[31m,[m [35m2[m[31m,[m [35m3[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
	 Proc        [31m:[m [01;30mDate_Process[m[31m([mOrganizer_Type'[01;34mAccess[m[31m);[m
	 Obj_Header  [31m:[m Window_Record [31m:=[m [31m([m[35m5[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
	 Obj_Main    [31m:[m Window_Record [31m:=[m [31m([m[35m11[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m+[m[35m2[m[31m,[m [35m7[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m white[31m,[m The_Window[31m);[m
	 Obj_Attr    [31m:[m Window_Record [31m:=[m [31m([m[35m18[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m+[m[35m2[m[31m,[m [35m12[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
	 List_Win    [31m:[m Window_Record [31m:=[m [31m([m[35m30[m[31m,[m [35m2[m[31m,[m App[31m.[mLines[31m-[m[35m29[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m),[m white[31m,[m The_Window[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtask[m [01;34mbody[m Date_Process [01;34mis[m
   [01;34mbegin[m
  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m Start[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Stop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m		      
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m Start[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Stop[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m		      
	    [01;34mor[m
	       [01;34mdelay[m [35m1.0[m[31m;[m
	       Text_Io[31m.[m[01;30mPut[m[31m([mSave_Cursor[31m);[m
	       [01;30mDraw_Text[m[31m([mOrganizer[31m.[mHeader_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mClock[31m)));[m
	       Text_Io[31m.[m[01;30mPut[m[31m([mRestore_Cursor[31m);[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
   [01;34mend[m Date_Process[31m;[m
   
   [01;34mprocedure[m [01;30mInitialize[m [31m([mOrganizer [31m:[m [01;34mout[m Organizer_Type[31m;[m Top [31m:[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;30mInitialize[m[31m([mOrganizer[31m.[mMain_Win[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mlines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
      [01;30mInitialize[m[31m([mOrganizer[31m.[mHeader_Win[31m,[m [35m2[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m white[31m,[m Cyan[31m);[m
      
      [01;30mInitialize[m[31m([mOrganizer[31m.[mContent_Win[31m,[m [35m5[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m22[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m white[31m,[m Cyan[31m);[m
      [01;30mInitialize[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m27[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m3[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mOrganizer[31m.[mObj_Header[31m,[m [35m5[m[31m,[m Top[31m+([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m11[m[31m,[m Top[31m+([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m+[m[35m2[m[31m,[m [35m7[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m white[31m,[m Cyan[31m);[m
      [01;30mInitialize[m[31m([mOrganizer[31m.[mObj_Attr[31m,[m [35m18[m[31m,[m Top[31m+([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m+[m[35m2[m[31m,[m [35m12[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mOrganizer[31m.[mList_Win[31m,[m [35m30[m[31m,[m Top[31m+[m[35m2[m[31m,[m App[31m.[mLines[31m-[m[35m29[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m),[m white[31m,[m Red[31m);[m
   [01;34mend[m Initialize[31m;[m
   
   [01;34mprocedure[m [01;30mDraw[m [31m([mOrganizer [31m:[m [01;34min[m Organizer_Type[31m;[m Terminal [31m:[m [01;34min[m Terminal_Type[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mMain_Win[31m);[m
      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mHeader_win[31m);[m
      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mContent_Win[31m);[m
      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Attr[31m);[m
      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mList_Win[31m);[m
      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
   [01;34mend[m Draw[31m;[m
   
   [01;34mtype[m Class_Cmd_Enum [01;34mis[m [31m([mNull_Cmd[31m,[m Make[31m,[m List[31m,[m Switch[31m,[m Root[31m,[m Parent[31m,[m Print[31m,[m Search[31m,[m Tree[31m,[m Attribute[31m,[m Remove[31m,[m help[31m);[m
   
   [01;34mfunction[m [01;30mClass_Cmd_Value[m [31m([mLine [31m:[m [01;34min[m [32mWide_String[m[31m)[m [01;34mreturn[m Class_Cmd_Enum [01;34mis[m
      Cmd [31m:[m Class_Cmd_Enum  [31m:=[m Null_Cmd[31m;[m
      First_Space [31m:[m [01;34mconstant[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m" "[m[31m);[m
   [01;34mbegin[m

      [01;34mif[m First_Space [31m/=[m [35m0[m [01;34mthen[m
	 [01;34mbegin[m

	    Cmd [31m:=[m Class_Cmd_Enum'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mLine'First[31m..[mFirst_Space[31m-[m[35m1[m[31m)));[m
	    
	 [01;34mexception[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       Cmd [31m:=[m Null_Cmd[31m;[m
	 [01;34mend[m[31m;[m

      [01;34melsif[m Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	 [01;34mbegin[m

	    Cmd [31m:=[m Class_Cmd_Enum'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m)..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m,[m Backward[31m))));[m
	 [01;34mexception[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       Cmd [31m:=[m Null_Cmd[31m;[m
	 [01;34mend[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mreturn[m Cmd[31m;[m
   [01;34mend[m Class_Cmd_Value[31m;[m
   
   
   
   [31m---------------------------------------------------------------------[m
   [31m--                        Planning curs[m
   
   [01;34mtype[m Planning_enum [01;34mis[m [31m([mPlanning_None[31m,[m Planning_Name[31m,[m Planning_From[31m,[m Planning_To[31m);[m
   
   [01;34mtype[m Planning_Type [01;34mis[m
      [01;34mrecord[m
   	 Name [31m:[m Planning_Enum [31m:=[m Planning_None[31m;[m
   	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
   	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
   	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Planning_Curs_Set [01;34mis[m [01;34marray[m [31m([mPlanning_Enum[31m)[m [01;34mof[m Planning_Type[31m;[m
   
   [01;34mtype[m Planning_Cursor_Type [01;34mis[m
      [01;34mrecord[m
   	 Values  [31m:[m Planning_Curs_Set[31m;[m
   	 Val_Cur [31m:[m Planning_Enum [31m:=[m Planning_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Planning_Cursor_Type [01;34mis[m
      Curs [31m:[m Planning_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mPlanning_Name[31m)[m [31m:=[m
   	[31m([mPlanning_name[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m1[m[31m,[m
   	 [35m8[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mPlanning_From[31m)[m [31m:=[m
   	[31m([mPlanning_From[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m2[m[31m,[m
   	 [35m8[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mPlanning_To[31m)[m [31m:=[m
   	[31m([mPlanning_To[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m3[m[31m,[m
   	 [35m8[m
   	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m Planning_name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_Planning[m [31m([mCurs [31m:[m [01;34min[m Planning_Cursor_Type[31m;[m Index [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m Planning_Class [01;34mis[m
      Planning [31m:[m Planning_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      Planning[31m.[minfo[31m.[mIndex [31m:=[m Index[31m;[m
      Planning[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m '
   	[31m([mCurs[31m.[m[01;30mValues[m[31m([mPlanning_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mPlanning_Name[31m).[mLine_Last[31m));[m
      Planning[31m.[mFrom [31m:=[m 
   	Formatting[31m.[m[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mPlanning_From[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mPlanning_From[31m).[mLine_Last[31m)));[m
      Planning[31m.[mTo [31m:=[m 
   	Formatting[31m.[m[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mPlanning_To[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mPlanning_To[31m).[mLine_Last[31m)));[m
      
      [01;34mreturn[m Planning[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
   	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Planning[31m;[m
   
   
   [31m---------------------------------------------------------------------------------[m
   [31m--                            Attribute curs[m
   
   [01;34mtype[m Attribute_Enum [01;34mis[m [31m([mAttribute_None[31m,[m Attribute_Name[31m,[m Attribute_Image[31m);[m
   
   [01;34mtype[m Attribute_Type [01;34mis[m
      [01;34mrecord[m
   	 Name [31m:[m Attribute_Enum [31m:=[m Attribute_None[31m;[m
   	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
   	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
   	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Attribute_Curs_Set [01;34mis[m [01;34marray[m [31m([mAttribute_Enum[31m)[m [01;34mof[m Attribute_Type[31m;[m
   
   [01;34mtype[m Attribute_Cursor_Type [01;34mis[m
      [01;34mrecord[m
   	 Values  [31m:[m Attribute_Curs_Set[31m;[m
   	 Val_Cur [31m:[m Attribute_Enum [31m:=[m Attribute_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Attribute_Cursor_Type [01;34mis[m
      Curs [31m:[m Attribute_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mAttribute_Name[31m)[m [31m:=[m
   	[31m([mAttribute_name[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m1[m[31m,[m
   	 [35m8[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mAttribute_Image[31m)[m [31m:=[m
   	[31m([mAttribute_Image[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m2[m[31m,[m
   	 [35m9[m
   	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m Attribute_name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   
   [31m---------------------------------------------------------------------------------[m
   [31m--                            Event curs[m
   
   [01;34mtype[m Event_Enum [01;34mis[m [31m([mEvent_None[31m,[m Event_Name[31m,[m Event_Date[31m,[m Event_Period[31m,[m Event_Locality[31m,[m Event_Define[31m);[m
   
   [01;34mtype[m Event_Type [01;34mis[m
      [01;34mrecord[m
   	 Name [31m:[m Event_Enum [31m:=[m Event_None[31m;[m
   	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
   	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
   	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Event_Curs_Set [01;34mis[m [01;34marray[m [31m([mEvent_Enum[31m)[m [01;34mof[m Event_Type[31m;[m
   
   [01;34mtype[m Event_Cursor_Type [01;34mis[m
      [01;34mrecord[m
   	 Values  [31m:[m Event_Curs_Set[31m;[m
   	 Val_Cur [31m:[m Event_Enum [31m:=[m Event_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Event_Cursor_Type [01;34mis[m
      Curs [31m:[m Event_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mEvent_Name[31m)[m [31m:=[m
   	[31m([mEvent_name[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m1[m[31m,[m
   	 [35m8[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mEvent_Date[31m)[m [31m:=[m
   	[31m([mEvent_Date[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m2[m[31m,[m
   	 [35m8[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mEvent_Period[31m)[m [31m:=[m
   	[31m([mEvent_Period[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m3[m[31m,[m
	 [35m9[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mEvent_Locality[31m)[m [31m:=[m
   	[31m([mEvent_Locality[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m4[m[31m,[m
   	 [35m12[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mEvent_Define[31m)[m [31m:=[m
   	[31m([mEvent_Define[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m5[m[31m,[m
   	 [35m10[m
   	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m Event_name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_Event[m [31m([mCurs [31m:[m [01;34min[m Event_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m Event_Class [01;34mis[m
      Event [31m:[m Event_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      Event[31m.[minfo[31m.[mIndex [31m:=[m Index[31m;[m
      Event[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mEvent_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mEvent_Name[31m).[mLine_Last[31m));[m
      Event[31m.[mDate [31m:=[m Formatting[31m.[m[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mEvent_Date[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mEvent_Date[31m).[mLine_Last[31m)));[m
      Event[31m.[mPeriod [31m:=[m [32mDuration[m[31m([m[32mFloat[m'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mEvent_Period[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mEvent_Period[31m).[mLine_Last[31m)))[m [31m*[m [35m60.0[m[31m);[m
      Event[31m.[mLocality [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mEvent_Locality[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mEvent_Locality[31m).[mLine_Last[31m));[m
      Event[31m.[mDefine [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mEvent_Define[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mEvent_Define[31m).[mLine_Last[31m));[m
      
      [01;34mreturn[m Event[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
   	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Event[31m;[m
   
   [31m---------------------------------------------------------------------------------[m
   [31m--                            Job curs[m
   
   [01;34mtype[m Job_Enum [01;34mis[m [31m([mJob_None[31m,[m Job_Name[31m,[m Job_Date[31m,[m Job_Period[31m,[m Job_Locality[31m,[m Job_Define[31m);[m
   
   [01;34mtype[m Job_Type [01;34mis[m
      [01;34mrecord[m
   	 Name [31m:[m Job_Enum [31m:=[m Job_None[31m;[m
   	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
   	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
   	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Job_Curs_Set [01;34mis[m [01;34marray[m [31m([mJob_Enum[31m)[m [01;34mof[m Job_Type[31m;[m
   
   [01;34mtype[m Job_Cursor_Type [01;34mis[m
      [01;34mrecord[m
   	 Values  [31m:[m Job_Curs_Set[31m;[m
   	 Val_Cur [31m:[m Job_Enum [31m:=[m Job_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Job_Cursor_Type [01;34mis[m
      Curs [31m:[m Job_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mJob_Name[31m)[m [31m:=[m
   	[31m([mJob_name[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m1[m[31m,[m
   	 [35m9[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mJob_Date[31m)[m [31m:=[m
   	[31m([mJob_Date[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m2[m[31m,[m
   	 [35m9[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mJob_Period[31m)[m [31m:=[m
   	[31m([mJob_Period[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m3[m[31m,[m
   	 [35m9[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mJob_Locality[31m)[m [31m:=[m
   	[31m([mJob_Locality[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m4[m[31m,[m
   	 [35m12[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mJob_Define[31m)[m [31m:=[m
   	[31m([mJob_Define[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m5[m[31m,[m
   	 [35m10[m
   	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m Job_name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_Job[m [31m([mCurs [31m:[m [01;34min[m Job_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m Job_Class [01;34mis[m
      Job [31m:[m Job_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      Job[31m.[minfo[31m.[mIndex [31m:=[m Index[31m;[m
      Job[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mJob_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mJob_Name[31m).[mLine_Last[31m));[m
      Job[31m.[mDate [31m:=[m Formatting[31m.[m[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mJob_Date[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mJob_Date[31m).[mLine_Last[31m)));[m
      Job[31m.[mPeriod [31m:=[m [32mDuration[m[31m([m[32mFloat[m'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mJob_Period[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mJob_Period[31m).[mLine_Last[31m)))[m [31m*[m [35m60.0[m[31m);[m
      Job[31m.[mLocality [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mJob_Locality[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mJob_Locality[31m).[mLine_Last[31m));[m
      Job[31m.[mDefine [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mJob_Define[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mJob_Define[31m).[mLine_Last[31m));[m
      
      [01;34mreturn[m Job[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
   	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Job[31m;[m

   [31m---------------------------------------------------------------------------------[m
   [31m--                            Meeting curs[m
   
   [01;34mtype[m Meeting_Enum [01;34mis[m [31m([mMeeting_None[31m,[m Meeting_Name[31m,[m Meeting_Date[31m,[m Meeting_Period[31m,[m Meeting_Locality[31m,[m Meeting_Define[31m);[m
   
   [01;34mtype[m Meeting_Type [01;34mis[m
      [01;34mrecord[m
   	 Name [31m:[m Meeting_Enum [31m:=[m Meeting_None[31m;[m
   	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
   	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
   	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Meeting_Curs_Set [01;34mis[m [01;34marray[m [31m([mMeeting_Enum[31m)[m [01;34mof[m Meeting_Type[31m;[m
   
   [01;34mtype[m Meeting_Cursor_Type [01;34mis[m
      [01;34mrecord[m
   	 Values  [31m:[m Meeting_Curs_Set[31m;[m
   	 Val_Cur [31m:[m Meeting_Enum [31m:=[m Meeting_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Meeting_Cursor_Type [01;34mis[m
      Curs [31m:[m Meeting_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mMeeting_Name[31m)[m [31m:=[m
   	[31m([mMeeting_name[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m1[m[31m,[m
   	 [35m9[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mMeeting_Date[31m)[m [31m:=[m
   	[31m([mMeeting_Date[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m2[m[31m,[m
   	 [35m9[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mMeeting_Period[31m)[m [31m:=[m
   	[31m([mMeeting_Period[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m3[m[31m,[m
   	 [35m9[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mMeeting_Locality[31m)[m [31m:=[m
   	[31m([mMeeting_Locality[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m4[m[31m,[m
   	 [35m12[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mMeeting_Define[31m)[m [31m:=[m
   	[31m([mMeeting_Define[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m5[m[31m,[m
   	 [35m10[m
   	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m Meeting_name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_Meeting[m [31m([mCurs [31m:[m [01;34min[m Meeting_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m Meeting_Class [01;34mis[m
      Meeting [31m:[m Meeting_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      Meeting[31m.[minfo[31m.[mIndex [31m:=[m Index[31m;[m
      Meeting[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mMeeting_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMeeting_Name[31m).[mLine_Last[31m));[m
      Meeting[31m.[mDate [31m:=[m Formatting[31m.[m[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mMeeting_Date[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMeeting_Date[31m).[mLine_Last[31m)));[m
      Meeting[31m.[mPeriod [31m:=[m [32mDuration[m[31m([m[32mFloat[m'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mMeeting_Period[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMeeting_Period[31m).[mLine_Last[31m)))[m [31m*[m [35m60.0[m[31m);[m
      Meeting[31m.[mLocality [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mMeeting_Locality[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMeeting_Locality[31m).[mLine_Last[31m));[m
      Meeting[31m.[mDefine [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mMeeting_Define[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMeeting_Define[31m).[mLine_Last[31m));[m
      
      [01;34mreturn[m Meeting[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
   	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Meeting[31m;[m
   
   [31m---------------------------------------------------------------------------------[m
   [31m--                            Rendezvous curs[m
   
   [01;34mtype[m Rendezvous_Enum [01;34mis[m [31m([mRendezvous_None[31m,[m Rendezvous_Name[31m,[m Rendezvous_Date[31m,[m Rendezvous_Period[31m,[m Rendezvous_Locality[31m,[m Rendezvous_Define[31m);[m
   
   [01;34mtype[m Rendezvous_Type [01;34mis[m
      [01;34mrecord[m
   	 Name [31m:[m Rendezvous_Enum [31m:=[m Rendezvous_None[31m;[m
   	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
   	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
   	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Rendezvous_Curs_Set [01;34mis[m [01;34marray[m [31m([mRendezvous_Enum[31m)[m [01;34mof[m Rendezvous_Type[31m;[m
   
   [01;34mtype[m Rendezvous_Cursor_Type [01;34mis[m
      [01;34mrecord[m
   	 Values  [31m:[m Rendezvous_Curs_Set[31m;[m
   	 Val_Cur [31m:[m Rendezvous_Enum [31m:=[m Rendezvous_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Rendezvous_Cursor_Type [01;34mis[m
      Curs [31m:[m Rendezvous_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Name[31m)[m [31m:=[m
   	[31m([mRendezvous_name[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m1[m[31m,[m
   	 [35m9[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Date[31m)[m [31m:=[m
   	[31m([mRendezvous_Date[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m2[m[31m,[m
   	 [35m9[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Period[31m)[m [31m:=[m
   	[31m([mRendezvous_Period[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m3[m[31m,[m
   	 [35m9[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Locality[31m)[m [31m:=[m
   	[31m([mRendezvous_Locality[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m4[m[31m,[m
   	 [35m12[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Define[31m)[m [31m:=[m
   	[31m([mRendezvous_Define[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m5[m[31m,[m
   	 [35m10[m
   	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m Rendezvous_name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_Rendezvous[m [31m([mCurs [31m:[m [01;34min[m Rendezvous_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m Rendezvous_Class [01;34mis[m
      Rendezvous [31m:[m Rendezvous_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      Rendezvous[31m.[minfo[31m.[mIndex [31m:=[m Index[31m;[m
      Rendezvous[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mRendezvous_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mRendezvous_Name[31m).[mLine_Last[31m));[m
      Rendezvous[31m.[mDate [31m:=[m Formatting[31m.[m[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mRendezvous_Date[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mRendezvous_Date[31m).[mLine_Last[31m)));[m
      Rendezvous[31m.[mPeriod [31m:=[m [32mDuration[m[31m([m[32mFloat[m'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mRendezvous_Period[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mRendezvous_Period[31m).[mLine_Last[31m)))[m [31m*[m [35m60.0[m[31m);[m
      Rendezvous[31m.[mLocality [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mRendezvous_Locality[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mRendezvous_Locality[31m).[mLine_Last[31m));[m
      Rendezvous[31m.[mDefine [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mCurs[31m.[m[01;30mValues[m[31m([mRendezvous_Define[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mRendezvous_Define[31m).[mLine_Last[31m));[m
      
      [01;34mreturn[m Rendezvous[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
   	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Rendezvous[31m;[m

   [31m---------------------------------------------------------------------------[m
   [31m--                         Content curs[m
   [01;34mtype[m Content_enum [01;34mis[m [31m([mContent_None[31m,[m Content_Name[31m,[m Content_Description[31m,[m Content_Price[31m);[m
   
   [01;34mtype[m Content_Type [01;34mis[m
      [01;34mrecord[m
   	 Name [31m:[m Content_Enum [31m:=[m Content_None[31m;[m
   	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
   	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
   	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Content_Curs_Set [01;34mis[m [01;34marray[m [31m([mContent_Enum[31m)[m [01;34mof[m Content_Type[31m;[m
   
   [01;34mtype[m Content_Cursor_Type [01;34mis[m
      [01;34mrecord[m
   	 Values  [31m:[m Content_Curs_Set[31m;[m
   	 Val_Cur [31m:[m Content_Enum [31m:=[m Content_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Content_Cursor_Type [01;34mis[m
      Curs [31m:[m Content_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mContent_Name[31m)[m [31m:=[m
   	[31m([mContent_name[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m1[m[31m,[m
   	 [35m8[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mContent_Description[31m)[m [31m:=[m
   	[31m([mContent_Description[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m2[m[31m,[m
   	 [35m9[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mContent_Price[31m)[m [31m:=[m
   	[31m([mContent_Price[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m3[m[31m,[m
   	 [35m9[m
   	[31m);[m
      
      Curs[31m.[mVal_Cur [31m:=[m Content_name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_Content[m [31m([mCurs [31m:[m [01;34min[m Content_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m Content_Class [01;34mis[m
      Content [31m:[m Content_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      Content[31m.[minfo[31m.[mIndex [31m:=[m Index[31m;[m
      Content[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m '
   	[31m([mCurs[31m.[m[01;30mValues[m[31m([mContent_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mContent_Name[31m).[mLine_Last[31m));[m
      Content[31m.[mDescription [31m:=[m [01;34mnew[m [32mWide_String[m '
   	[31m([mCurs[31m.[m[01;30mValues[m[31m([mContent_Description[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mContent_Description[31m).[mLine_Last[31m));[m
      Content[31m.[mPrice [31m:=[m 
   	Fixed_Unit_Ttc'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mContent_Price[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mContent_Price[31m).[mLine_Last[31m)));[m
      
      [01;34mreturn[m Content[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
   	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Content[31m;[m
   
   
   
   
   
   
   
   
   [31m---------------------------------------------------------------------------[m
   [31m--                           Profile curs[m
   
   
   [01;34mtype[m Profile_enum [01;34mis[m [31m([mProfile_None[31m,[m Profile_Full_Name[31m,[m Profile_Born[31m,[m Profile_Addr[31m,[m Profile_Phone[31m,[m Profile_Email[31m);[m
   
   [01;34mtype[m Profile_Type [01;34mis[m
      [01;34mrecord[m
	 Name [31m:[m Profile_Enum [31m:=[m Profile_None[31m;[m
	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Profile_Curs_Set [01;34mis[m [01;34marray[m [31m([mProfile_Enum[31m)[m [01;34mof[m Profile_Type[31m;[m
   
   [01;34mtype[m Profile_Cursor_Type [01;34mis[m
      [01;34mrecord[m
	 Values  [31m:[m Profile_Curs_Set[31m;[m
	 Val_Cur [31m:[m Profile_Enum [31m:=[m Profile_Full_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Profile_Cursor_Type [01;34mis[m
      Curs [31m:[m Profile_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mProfile_Full_Name[31m)[m [31m:=[m
	[31m([mProfile_Full_Name[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m1[m[31m,[m
	 [35m8[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mProfile_Born[31m)[m [31m:=[m
	[31m([mProfile_Born[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m2[m[31m,[m
	 [35m8[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mProfile_Addr[31m)[m [31m:=[m
	[31m([mProfile_Addr[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m3[m[31m,[m
	 [35m8[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mProfile_Phone[31m)[m [31m:=[m
	[31m([mProfile_Phone[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m4[m[31m,[m
	 [35m9[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mProfile_Email[31m)[m [31m:=[m
	[31m([mProfile_Email[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m5[m[31m,[m
	 [35m9[m
	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m Profile_Full_Name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_Profile[m [31m([mCurs [31m:[m [01;34min[m Profile_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m Profile_Class [01;34mis[m
      Profile [31m:[m Profile_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      Profile[31m.[mInfo[31m.[mIndex [31m:=[m Index[31m;[m
      Profile[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mProfile_Full_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mProfile_Full_Name[31m).[mLine_Last[31m));[m
      
      Profile[31m.[mFull_Name [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mProfile_Full_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mProfile_Full_Name[31m).[mLine_Last[31m));[m
      
      Profile[31m.[mBorn [31m:=[m Formatting[31m.[m[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mProfile_Born[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mProfile_Born[31m).[mLine_Last[31m)));[m
      
      Profile[31m.[mAddr [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mProfile_Addr[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mProfile_Addr[31m).[mLine_Last[31m));[m
      
      Profile[31m.[mPhone [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mProfile_Phone[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mProfile_Phone[31m).[mLine_Last[31m));[m
      
      Profile[31m.[mEmail [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mProfile_Email[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mProfile_Email[31m).[mLine_Last[31m));[m
      
      
      [01;34mreturn[m Profile[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Profile[31m;[m
   
   
   

   [31m---------------------------------------------------------------------------[m
   [31m--                           Universe curs[m
   
   
   [01;34mtype[m Universe_enum [01;34mis[m [31m([mUniverse_None[31m,[m Universe_Name[31m);[m
   
   [01;34mtype[m Universe_Type [01;34mis[m
      [01;34mrecord[m
	 Name [31m:[m Universe_Enum [31m:=[m Universe_None[31m;[m
	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Universe_Curs_Set [01;34mis[m [01;34marray[m [31m([mUniverse_Enum[31m)[m [01;34mof[m Universe_Type[31m;[m
   
   [01;34mtype[m Universe_Cursor_Type [01;34mis[m
      [01;34mrecord[m
	 Values  [31m:[m Universe_Curs_Set[31m;[m
	 Val_Cur [31m:[m Universe_Enum [31m:=[m Universe_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Universe_Cursor_Type [01;34mis[m
      Curs [31m:[m Universe_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mUniverse_Name[31m)[m [31m:=[m
	[31m([mUniverse_Name[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m1[m[31m,[m
	 [35m8[m
	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m Universe_Name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   
   [01;34mfunction[m [01;30mTo_Universe[m [31m([mCurs [31m:[m [01;34min[m Universe_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m Universe_Class [01;34mis[m
      Universe [31m:[m Universe_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      Universe[31m.[mInfo[31m.[mIndex [31m:=[m Index[31m;[m
      Universe[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mUniverse_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mUniverse_Name[31m).[mLine_Last[31m));[m
      [01;34mreturn[m Universe[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Universe[31m;[m

   

   
   
   [31m---------------------------------------------------------------------------[m
   [31m--                           Car curs[m
   
   
   [01;34mtype[m Car_enum [01;34mis[m [31m([mCar_None[31m,[m Car_Name[31m,[m Car_Mark[31m,[m Car_Model[31m,[m Car_mat[31m);[m
   
   [01;34mtype[m Car_Type [01;34mis[m
      [01;34mrecord[m
	 Name [31m:[m Car_Enum [31m:=[m Car_None[31m;[m
	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Car_Curs_Set [01;34mis[m [01;34marray[m [31m([mCar_Enum[31m)[m [01;34mof[m Car_Type[31m;[m
   
   [01;34mtype[m Car_Cursor_Type [01;34mis[m
      [01;34mrecord[m
	 Values  [31m:[m Car_Curs_Set[31m;[m
	 Val_Cur [31m:[m Car_Enum [31m:=[m Car_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Car_Cursor_Type [01;34mis[m
      Curs [31m:[m Car_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mCar_Name[31m)[m [31m:=[m
	[31m([mCar_Name[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m1[m[31m,[m
	 [35m8[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mCar_Mark[31m)[m [31m:=[m
	[31m([mCar_Mark[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m2[m[31m,[m
	 [35m8[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mCar_Model[31m)[m [31m:=[m
	[31m([mCar_Model[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m3[m[31m,[m
	 [35m9[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mCar_Mat[31m)[m [31m:=[m
	[31m([mCar_Mat[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m4[m[31m,[m
	 [35m7[m
	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m Car_Name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   [01;34mfunction[m [01;30mTo_Car[m [31m([mCurs [31m:[m [01;34min[m Car_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m Car_Class [01;34mis[m
      Car [31m:[m Car_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      Car[31m.[mInfo[31m.[mIndex [31m:=[m Index[31m;[m
      Car[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mCar_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mCar_Name[31m).[mLine_Last[31m));[m
      Car[31m.[mMark [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mCar_Mark[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mCar_Mark[31m).[mLine_Last[31m));[m
      Car[31m.[mModel [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mCar_Model[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mCar_Model[31m).[mLine_Last[31m));[m
      Car[31m.[mMat [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mCar_Mat[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mCar_Mat[31m).[mLine_Last[31m));[m
      [01;34mreturn[m Car[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Car[31m;[m

   
   [31m---------------------------------------------------------------------------[m
   [31m--                           House curs[m
   
   
   [01;34mtype[m House_enum [01;34mis[m [31m([mHouse_None[31m,[m House_Name[31m,[m House_Addr[31m,[m House_Surface[31m);[m
   
   [01;34mtype[m House_Type [01;34mis[m
      [01;34mrecord[m
	 Name [31m:[m House_Enum [31m:=[m House_None[31m;[m
	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m House_Curs_Set [01;34mis[m [01;34marray[m [31m([mHouse_Enum[31m)[m [01;34mof[m House_Type[31m;[m
   
   [01;34mtype[m House_Cursor_Type [01;34mis[m
      [01;34mrecord[m
	 Values  [31m:[m House_Curs_Set[31m;[m
	 Val_Cur [31m:[m House_Enum [31m:=[m House_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m House_Cursor_Type [01;34mis[m
      Curs [31m:[m House_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mHouse_Name[31m)[m [31m:=[m
	[31m([mHouse_Name[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m1[m[31m,[m
	 [35m8[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mHouse_addr[31m)[m [31m:=[m
	[31m([mHouse_addr[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m1[m[31m,[m
	 [35m8[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mHouse_Surface[31m)[m [31m:=[m
	[31m([mHouse_Surface[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m1[m[31m,[m
	 [35m8[m
	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m House_Name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   [01;34mfunction[m [01;30mTo_House[m [31m([mCurs [31m:[m [01;34min[m House_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m House_Class [01;34mis[m
      House [31m:[m House_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      House[31m.[mInfo[31m.[mIndex [31m:=[m Index[31m;[m
      House[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mHouse_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mHouse_Name[31m).[mLine_Last[31m));[m
      House[31m.[mAddr [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mHouse_Addr[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mHouse_Addr[31m).[mLine_Last[31m));[m
      House[31m.[mSurf [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mHouse_Surface[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mHouse_surface[31m).[mLine_Last[31m));[m
      [01;34mreturn[m House[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_house[31m;[m

   [31m---------------------------------------------------------------------------[m
   [31m--                           Media curs[m
   
   
   [01;34mtype[m Media_enum [01;34mis[m [31m([mMedia_None[31m,[m Media_title[31m,[m Media_Author[31m,[m Media_Editor[31m);[m
   
   [01;34mtype[m Media_Type [01;34mis[m
      [01;34mrecord[m
	 Name [31m:[m Media_Enum [31m:=[m Media_None[31m;[m
	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Media_Curs_Set [01;34mis[m [01;34marray[m [31m([mMedia_Enum[31m)[m [01;34mof[m Media_Type[31m;[m
   
   [01;34mtype[m Media_Cursor_Type [01;34mis[m
      [01;34mrecord[m
	 Values  [31m:[m Media_Curs_Set[31m;[m
	 Val_Cur [31m:[m Media_Enum [31m:=[m Media_Title[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Media_Cursor_Type [01;34mis[m
      Curs [31m:[m Media_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mMedia_title[31m)[m [31m:=[m
	[31m([mMedia_Title[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m1[m[31m,[m
	 [35m9[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mMedia_Author[31m)[m [31m:=[m
	[31m([mMedia_Author[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m2[m[31m,[m
	 [35m10[m
	[31m);[mCurs[31m.[m[01;30mValues[m[31m([mMedia_Editor[31m)[m [31m:=[m
	[31m([mMedia_Editor[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m3[m[31m,[m
	 [35m10[m
	[31m);[m
	Curs[31m.[mVal_Cur [31m:=[m Media_Title[31m;[m
	[01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_CDROM[m [31m([mCurs [31m:[m [01;34min[m Media_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m CDROM_Class [01;34mis[m
      CDROM [31m:[m CDROM_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      CDROM[31m.[mInfo[31m.[mIndex [31m:=[m Index[31m;[m

      CDROM[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mMedia_title[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMedia_title[31m).[mLine_Last[31m));[m

      CDROM[31m.[mAuthor [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mMedia_Author[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMedia_Author[31m).[mLine_Last[31m));[m

      CDROM[31m.[mEditor [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mMedia_Editor[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMedia_Editor[31m).[mLine_Last[31m));[m

      [01;34mreturn[m CDROM[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_CDROM[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_DVD[m [31m([mCurs [31m:[m [01;34min[m Media_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m DVD_Class [01;34mis[m
      DVD [31m:[m DVD_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      DVD[31m.[mInfo[31m.[mIndex [31m:=[m Index[31m;[m
      DVD[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mMedia_title[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMedia_title[31m).[mLine_Last[31m));[m
      DVD[31m.[mAuthor [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mMedia_Author[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMedia_Author[31m).[mLine_Last[31m));[m
      DVD[31m.[mEditor [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mMedia_Editor[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMedia_Editor[31m).[mLine_Last[31m));[m
      [01;34mreturn[m DVD[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_DVD[31m;[m
   
   [01;34mfunction[m [01;30mTo_Book[m [31m([mCurs [31m:[m [01;34min[m Media_Cursor_Type[31m;[mIndex [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mreturn[m Book_Class [01;34mis[m
      Book [31m:[m Book_Class [31m:=[m Create[31m;[m
   [01;34mbegin[m
      Book[31m.[mInfo[31m.[mIndex [31m:=[m Index[31m;[m
      Book[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mMedia_title[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMedia_title[31m).[mLine_Last[31m));[m
      Book[31m.[mAuthor [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mMedia_Author[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMedia_Author[31m).[mLine_Last[31m));[m
      Book[31m.[mEditor [31m:=[m [01;34mnew[m [32mWide_String[m '
	[31m([mCurs[31m.[m[01;30mValues[m[31m([mMedia_Editor[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mMedia_Editor[31m).[mLine_Last[31m));[m
      [01;34mreturn[m Book[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Book[31m;[m
   
   
   [01;34mfunction[m [01;30mChild[m [31m([mCur [31m:[m [01;34min[m Abstract_Access[31m;[mIndex [31m:[m [01;34min[m Natural[31m)[m [01;34mreturn[m Abstract_Access [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Index [31m=[m [35m0[m [01;34mthen[m
	 [01;34mreturn[m Cur[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Cur [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m [01;34mnull[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mCur[31m.[mChilds[31m,[m [01;30mAbstract_Index[m[31m([mIndex[31m));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mreturn[m [01;34mnull[m[31m;[m
   [01;34mend[m Child[31m;[m
   
   [01;34mfunction[m [01;30mChild[m [31m([mCur [31m:[m [01;34min[m Abstract_Access[31m;[mName [31m:[m [01;34min[m [32mWide_String[m[31m)[m [01;34mreturn[m Abstract_Access [01;34mis[m
      Obj [31m:[m Abstract_Access[31m;[m
   [01;34mbegin[m
      [01;34mif[m Cur [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m [01;34mnull[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Cur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m=[m Name [01;34mthen[m
	 [01;34mreturn[m Cur[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m [01;34mnot[m Abstract_Vectors[31m.[m[01;30mIs_Empty[m[31m([mCur[31m.[mChilds[31m)[m [01;34mthen[m
	 [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mCur[31m.[mChilds[31m)[m [01;34mloop[m
	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mCur[31m.[mChilds[31m,[m [01;30mAbstract_Index[m[31m([mChild[31m));[m
	    [01;34mbegin[m
	       [01;34mif[m E[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		 E[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m=[m Name [01;34mthen[m
		  [01;34mreturn[m E[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m [01;34mnull[m[31m;[m
      
   [01;34mend[m Child[31m;[m
   
   
   
   [01;34mfunction[m [01;30mTo_String[m[31m([mInfo [31m:[m [01;34min[m Abstract_Info[31m)[m [01;34mreturn[m [32mWide_String[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Info[31m.[mName [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mraise[m Program_Error[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mAbstract_Index'[01;30mImage[m[31m([mInfo[31m.[mIndex[31m))[m [31m&[m [31m" "[m 
	[31m&[m	Handling[31m.[m[01;30mTo_Wide_String[m[31m([mClass_Enum'[01;30mImage[m[31m([mInfo[31m.[mTag[31m))[m [31m&[m 
	[31m" "[m [31m&[m Info[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m" "[m 
	[31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mInfo[31m.[mCreated[31m));[m
   [01;34mend[m To_String[31m;[m
   
   [01;34mfunction[m [01;30mTo_Tree[m[31m([mInfo [31m:[m [01;34min[m Abstract_Info[31m;[m Level [31m:[m [01;34min[m Natural[31m)[m [01;34mreturn[m [32mWide_String[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Info[31m.[mName [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mraise[m Program_Error[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mreturn[m Wide_Fixed[31m.[m[31m"*"[m[31m([mLevel[31m,[m [31m' '[m[31m)[m [31m&[m [31m'+'[m [31m&[m [31m' '[m [31m&[m 
	Handling[31m.[m[01;30mTo_Wide_String[m[31m([mAbstract_Index'[01;30mImage[m[31m([mInfo[31m.[mIndex[31m))[m [31m&[m [31m" "[m 
	[31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mClass_Enum'[01;30mImage[m[31m([mInfo[31m.[mTag[31m))[m [31m&[m [31m" "[m 
	[31m&[m Info[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m" "[m 
	[31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mInfo[31m.[mCreated[31m));[m
   [01;34mend[m To_Tree[31m;[m
   
   
   
   
   [01;34mprocedure[m [01;30mTree[m [31m([mObj [31m:[m [01;34min[m Abstract_Access[31m;[m Level [31m:[m [01;34min[m Natural[31m;[m Set [31m:[m [01;34min[m [01;34mout[m Wide_String_Set[31m;[m Last [31m:[m [01;34min[m [01;34mout[m Natural[31m)[m [01;34mis[m
   [01;34mbegin[m

      [01;34mif[m Obj [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;34mif[m Level [31m=[m [35m0[m [01;34mthen[m

	    [01;30mAdd_Line[m[31m([mSet[31m,[m Last[31m,[m [01;30mTo_tree[m[31m([mObj[31m.[mInfo[31m,[m Level[31m+[m[35m1[m[31m));[m
	 [01;34mend[m [01;34mif[m[31m;[m

	 [01;34mif[m [01;34mnot[m Abstract_Vectors[31m.[m[01;30mIs_Empty[m[31m([mObj[31m.[mChilds[31m)[m [01;34mthen[m

	    [01;30mAdd_Line[m[31m([mSet[31m,[m Last[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m([mLevel[31m+[m[35m1[m[31m,[m [31m' '[m[31m)[m [31m&[m [31m"| "[m[31m);[m

	    [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mObj[31m.[mChilds[31m)[m [01;34mloop[m

	       [01;34mdeclare[m
		  E [31m:[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mObj[31m.[mChilds[31m,[m [01;30mAbstract_Index[m[31m([mChild[31m));[m
	       [01;34mbegin[m
		  [01;30mAdd_Line[m[31m([mSet[31m,[m Last[31m,[m [01;30mTo_tree[m[31m([mE[31m.[mInfo[31m,[m Level[31m+[m[35m2[m[31m));[m
		  [01;30mTree[m[31m([mE[31m,[m Level[31m+[m[35m3[m[31m,[m Set[31m,[m Last[31m);[m

	       [01;34mend[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

   [01;34mend[m Tree[31m;[m
   
   
   [01;34mprocedure[m [01;30mTree_Free[m [31m([mO [31m:[m [01;34min[m [01;34mout[m Abstract_Access[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m O [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mO[31m.[mChilds[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	 [01;34mfor[m Child [01;34min[m [35m1[m [31m..[m [01;30mAbstract_Index[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mO[31m.[mChilds[31m))[m [01;34mloop[m
	    
	    [01;34mdeclare[m
	       E [31m:[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mO[31m.[mChilds[31m,[m Child[31m);[m
	    [01;34mbegin[m
	       
	       [01;30mTree_Free[m[31m([mE[31m);[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;30mObj_free[m[31m([mO[31m);[m
   [01;34mend[m Tree_Free[31m;[m
   
   [01;34mprocedure[m [01;30mRemove[m [31m([mT [31m:[m [01;34min[m [01;34mout[m Terminal_Type[31m;[m Index [31m:[m [01;34min[m Abstract_Index[31m)[m [01;34mis[m
   [01;34mbegin[m

      [01;34mif[m Index [31m>[m [01;30mAbstract_Index[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mT[31m.[mCur[31m.[mChilds[31m))[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      
      [01;34mdeclare[m
	 E [31m:[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mT[31m.[mCur[31m.[mChilds[31m,[m Index[31m);[m
      [01;34mbegin[m
	 [01;30mTree_Free[m[31m([mE[31m);[m
	 
      [01;34mend[m[31m;[m
      
      
      Abstract_Vectors[31m.[m[01;30mDelete[m[31m([mT[31m.[mCur[31m.[mChilds[31m,[m Index[31m);[m
      
      T[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [31m:=[m T[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [31m-[m [35m1[m[31m;[m
      
      
      [01;34mif[m [01;34mnot[m Abstract_Vectors[31m.[m[01;30mIs_empty[m[31m([mT[31m.[mCur[31m.[mChilds[31m)[m[01;34mand[m [01;34mthen[m
	Index [31m<=[m [01;30mAbstract_Index[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mT[31m.[mCur[31m.[mChilds[31m))[m [01;34mthen[m
	 
	 
	 

	 [01;34mfor[m Child [01;34min[m Index [31m..[m [01;30mAbstract_Index[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mT[31m.[mCur[31m.[mChilds[31m))[m [01;34mloop[m
	    
	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mT[31m.[mCur[31m.[mChilds[31m,[m Index[31m);[m
	    [01;34mbegin[m
	       E[31m.[mInfo[31m.[mIndex [31m:=[m E[31m.[mInfo[31m.[mIndex [31m-[m [35m1[m[31m;[m
	       
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Remove[31m;[m
   
   [01;34mprocedure[m [01;30mObject_Help[m[31m([mWin       [31m:[m [01;34min[m Window_Record[31m;[m
			 Win_Index [31m:[m [01;34min[m [01;34mout[m Positive[31m)[m [01;34mis[m
      Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m

      [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m,[m [35m3[m[31m,[m Red[31m,[m [31m"help : "[m[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m Cyan[31m,[m [31m"Classes : ("[m[31m);[m
      [01;34mfor[m I [01;34min[m [35m1[m[31m..[mClass_Enum'[01;30mPos[m[31m([mClass_Enum'Last[31m)[m [01;34mloop[m
   	 [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m2[m[31m+[mindex[31m,[m [35m3[m[31m,[m Cyan[31m,[m 
		   Handling[31m.[m[01;30mTo_Wide_String[m[31m([mClass_Enum'[01;30mImage[m[31m([mClass_Enum'[01;30mVal[m[31m([mi[31m))));[m
   	 Index [31m:=[m Index [31m+[m [35m1[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m      
      [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m2[m[31m+[mIndex[31m,[m [35m3[m[31m,[m Cyan[31m,[m [31m")"[m[31m);[m
      Index [31m:=[m [35m0[m[31m;[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m2[m[31m,[m [35m15[m[31m,[m Cyan[31m,[m [31m"Commands : ("[m[31m);[m
      [01;34mfor[m I [01;34min[m [35m1[m[31m..[mClass_Cmd_Enum'[01;30mPos[m[31m([mClass_Cmd_Enum'Last[31m)[m [01;34mloop[m
   	 [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m3[m[31m+[mindex[31m,[m [35m15[m[31m,[m Cyan[31m,[m 
		   Handling[31m.[m[01;30mTo_Wide_String[m[31m([mClass_Cmd_Enum'[01;30mimage[m[31m([mClass_Cmd_Enum'[01;30mVal[m[31m([mI[31m))));[m
   	 Index [31m:=[m Index [31m+[m [35m1[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m      
      [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m3[m[31m+[mIndex[31m,[m [35m15[m[31m,[m Cyan[31m,[m [31m")"[m[31m);[m      
      
      
      Index [31m:=[m [35m0[m[31m;[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m2[m[31m,[m [35m29[m[31m,[m Cyan[31m,[m [31m"Attributs : ("[m[31m);[m
      [01;34mfor[m I [01;34min[m [35m1[m[31m..[mAttribut_Enum'[01;30mPos[m[31m([mAttribut_Enum'Last[31m)[m [01;34mloop[m
   	 [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m3[m[31m+[mindex[31m,[m [35m29[m[31m,[m Cyan[31m,[m 
		   Handling[31m.[m[01;30mTo_Wide_String[m[31m([mAttribut_Enum'[01;30mimage[m[31m([mAttribut_Enum'[01;30mVal[m[31m([mI[31m))));[m
   	 Index [31m:=[m Index [31m+[m [35m1[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m      
      [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m3[m[31m+[mIndex[31m,[m [35m29[m[31m,[m Cyan[31m,[m [31m")"[m[31m);[m      
      
      
      Index [31m:=[m [35m0[m[31m;[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m2[m[31m,[m [35m43[m[31m,[m Cyan[31m,[m [31m"BINARIES : ("[m[31m);[m
      [01;34mfor[m I [01;34min[m [35m0[m[31m..[m[32mboolean[m'[01;30mPos[m[31m([m[32mBoolean[m'Last[31m)[m [01;34mloop[m
   	 [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m3[m[31m+[mindex[31m,[m [35m43[m[31m,[m Cyan[31m,[m 
		   Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mboolean[m'[01;30mimage[m[31m([m[32mboolean[m'[01;30mVal[m[31m([mI[31m))));[m
   	 Index [31m:=[m Index [31m+[m [35m1[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m      
      [01;30mDraw_Text[m[31m([mWin[31m,[m Win_Index[31m+[m[35m3[m[31m+[mIndex[31m,[m [35m43[m[31m,[m Cyan[31m,[m [31m")"[m[31m);[m            
      Index [31m:=[m Index [31m+[m [35m1[m[31m;[m
      
      
      
      
   [01;34mend[m Object_Help[31m;[m

   
   
   
   [31m-----------------------------------[m
   [31m-- Organizer process             --[m
   [31m-----------------------------------[m
   
   [01;34mtask[m [01;34mbody[m Organizer_Process [01;34mis[m
      
      Win_Index [31m:[m Natural [31m:=[m [35m1[m[31m;[m
      
      Attribute_Curs [31m:[m Attribute_Cursor_Type[31m;[m
      
      Universe_Curs [31m:[m Universe_Cursor_Type[31m;[m
      Profile_Curs [31m:[m Profile_Cursor_Type[31m;[m
      Event_Curs [31m:[m Event_Cursor_Type[31m;[m
      Job_Curs [31m:[m Job_Cursor_Type[31m;[m
      Meeting_Curs [31m:[m Meeting_Cursor_Type[31m;[m
      Rendezvous_Curs [31m:[m Rendezvous_Cursor_Type[31m;[m
      Content_Curs [31m:[m Content_Cursor_Type[31m;[m
      Planning_Curs [31m:[m Planning_Cursor_Type[31m;[m
      Media_Curs [31m:[m Media_Cursor_Type[31m;[m
      Car_Curs [31m:[m Car_Cursor_Type[31m;[m
      House_Curs [31m:[m House_Cursor_Type[31m;[m
      
      Obj_Tag [31m:[m Class_Enum [31m:=[m None[31m;[m
      
      Cmd_Line [31m:[m [32mWide_String[m [31m([m[35m1[m[31m..[mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m6[m[31m);[m
      Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Cmd [31m:[m Class_Cmd_Enum [31m:=[m Null_cmd[31m;[m
      
      Organizer [31m:[m Organizer_Type[31m;[m
      
      Verax [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Top [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      In_Print [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Print_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Printed [31m:[m Abstract_Access[31m;[m
      
      Path_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Childs_Set [31m:[m [01;30mWide_String_Set[m[31m([m[35m4096[m[31m);[m
      Line_Index  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Total_Line [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Level [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Is_Initialized [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Child_Index [31m:[m Abstract_Index [31m:=[m [35m1[m[31m;[m
      
      On_List [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      On_Tree [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Name [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      
   [01;34mbegin[m

      [01;30mInitialize[m[31m([mOrganizer[31m,[m [35m0[m[31m);[m

      
      
  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34mwhen[m Obj_Tag [31m=[m None [01;34mand[m Cmd [31m/=[m Attribute [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      [01;34mnull[m[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			      [01;34mif[m Line_Last [31m/=[m [35m0[m [01;34mthen[m
				 In_Print [31m:=[m False[31m;[m
				 Cmd [31m:=[m [01;30mClass_Cmd_Value[m[31m([m[01;30mCmd_Line[m[31m([m[35m1[m[31m..[mLine_Last[31m));[m
				 [01;34mcase[m Cmd [01;34mis[m
				    [01;34mwhen[m Null_Cmd [31m=>[m
				       [01;34mnull[m[31m;[m
				    [01;34mwhen[m Help [31m=>[m
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mList_Win[31m);[m
				       [01;30mObject_Help[m[31m([mOrganizer[31m.[mList_Win[31m,[m Win_Index[31m);[m
				       Win_Index [31m:=[m [35m1[m[31m;[m

				    [01;34mwhen[m Make [31m=>[m
				       [01;34mdeclare[m
					  Tag_Name [31m:[m Os_Lib[31m.[mString_Access[31m;[m
				       [01;34mbegin[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     Tag_Name [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m)));[m
					     Obj_Tag [31m:=[m Class_Enum'[01;30mValue[m[31m([mTag_Name[31m.[m[01;34mall[m[31m);[m
					     [01;34mcase[m Obj_Tag [01;34mis[m
						[01;34mwhen[m None [31m=>[m
						   [01;34mnull[m[31m;[m
						[01;34mwhen[m universe [31m=>[m
						   Universe_Curs [31m:=[m Initialize[31m;[m
						[01;34mwhen[m Profile [31m=>[m
						   Profile_Curs [31m:=[m Initialize[31m;[m
						[01;34mwhen[m Event [31m=>[m
						   Event_Curs [31m:=[m Initialize[31m;[m
						[01;34mwhen[m Meeting [31m=>[m
						   Meeting_Curs [31m:=[m Initialize[31m;[m
						[01;34mwhen[m Job [31m=>[m
						   Job_Curs [31m:=[m Initialize[31m;[m
						[01;34mwhen[m Rendezvous [31m=>[m
						   Rendezvous_Curs [31m:=[m Initialize[31m;[m
						[01;34mwhen[m Content [31m=>[m
						   Content_Curs [31m:=[m Initialize[31m;[m
						[01;34mwhen[m Planning [31m=>[m
						   Planning_Curs [31m:=[m Initialize[31m;[m
						[01;34mwhen[m Book[31m..[mDVD [31m=>[m
						   Media_Curs [31m:=[m Initialize[31m;[m
						[01;34mwhen[m Car [31m=>[m
						   Car_Curs [31m:=[m Initialize[31m;[m
						[01;34mwhen[m House [31m=>[m
						   House_Curs [31m:=[m Initialize[31m;[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m
						   [01;34mnull[m[31m;[m
					     [01;34mend[m [01;34mcase[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mexception[m
					  [01;34mwhen[m [01;34mothers[m [31m=>[m
					     [01;34mnull[m[31m;[m
				       [01;34mend[m[31m;[m
				    [01;34mwhen[m Attribute [31m=>[m
				       Attribute_Curs [31m:=[m Initialize[31m;[m
				    [01;34mwhen[m Parent [31m=>[m
				       [01;30mParent[m[31m([mApp[31m.[mTerminal[31m);[m
				    [01;34mwhen[m Switch [31m=>[m
				       [01;34mif[m App[31m.[mTerminal[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     [01;34mdeclare[m
						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						Index [31m:[m Abstract_Index [31m:=[m [35m1[m[31m;[m
					     [01;34mbegin[m
						Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
						Index [31m:=[m Abstract_Index'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mIndex_Name[31m.[m[01;34mall[m[31m));[m
						[01;30mSwitch[m[31m([mApp[31m.[mTerminal[31m,[m Index[31m,[m Verax[31m);[m
					     [01;34mexception[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m
						   [01;34mnull[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mwhen[m Root [31m=>[m
				       App[31m.[mTerminal[31m.[mCur [31m:=[m App[31m.[mTerminal[31m.[mRoot[31m;[m
				       App[31m.[mTerminal[31m.[mPath [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m
				       App[31m.[mTerminal[31m.[mPath [31m:=[m App[31m.[mTerminal[31m.[mPath [31m&[m App[31m.[mTerminal[31m.[mRoot[31m;[m
				    [01;34mwhen[m Print [31m=>[m				       
				       [01;34mif[m App[31m.[mTerminal[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     [01;34mdeclare[m
						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
					     [01;34mbegin[m
						
						Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
						Print_Index [31m:=[m Natural'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mIndex_Name[31m.[m[01;34mall[m[31m));[m
						Printed [31m:=[m [01;30mChild[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Print_Index[31m);[m
						In_Print  [31m:=[m True[31m;[m
						[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
						Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
						Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						Printed[31m.[m[01;30mPrint[m[31m([mOrganizer[31m.[mObj_Header[31m.[mWin[31m,[m Organizer[31m.[mObj_Main[31m.[mWin[31m);[m
						
						[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Attr[31m);[m
						Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						Classes[31m.[m[01;30mPrint[m[31m([mPrinted[31m.[mdefinition[31m,[m Organizer[31m.[mObj_Attr[31m.[mWin[31m);[m
					     [01;34mexception[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m
						   [01;34mdeclare[m
						      Name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						      Index [31m:[m Abstract_Index [31m:=[m [35m1[m[31m;[m
						   [01;34mbegin[m
						      Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
						      Printed [31m:=[m [01;30mChild[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Index_Name[31m.[m[01;34mall[m[31m);[m
						      In_Print  [31m:=[m True[31m;[m
						      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						      Printed[31m.[m[01;30mPrint[m[31m([mOrganizer[31m.[mObj_Header[31m.[mWin[31m,[m Organizer[31m.[mObj_Main[31m.[mWin[31m);[m
						      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Attr[31m);[m
						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						      Classes[31m.[m[01;30mPrint[m[31m([mPrinted[31m.[mdefinition[31m,[m Organizer[31m.[mObj_Attr[31m.[mWin[31m);[m
						   [01;34mexception[m
						      [01;34mwhen[m [01;34mothers[m [31m=>[m
							 [01;34mnull[m[31m;[m
						   [01;34mend[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34melse[m
					     In_Print [31m:=[m True[31m;[m
					     [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
					     [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
					     App[31m.[mTerminal[31m.[mCur[31m.[m[01;30mPrint[m[31m([mOrganizer[31m.[mObj_Header[31m.[mWin[31m,[m Organizer[31m.[mObj_Main[31m.[mWin[31m);[m
					     [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Attr[31m);[m
					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

					     Classes[31m.[m[01;30mPrint[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m,[m Organizer[31m.[mObj_Attr[31m.[mWin[31m);[m

					     Print_Index [31m:=[m [35m0[m[31m;[m
					     Printed [31m:=[m [01;34mnull[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mwhen[m Search [31m=>[m
				       [01;34mif[m App[31m.[mTerminal[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     [01;34mdeclare[m
						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						Index [31m:[m Abstract_Index [31m:=[m [35m1[m[31m;[m
					     [01;34mbegin[m
						Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
						[01;30mSearch[m[31m([mApp[31m.[mTerminal[31m,[m Index_Name[31m.[m[01;34mall[m[31m,[m Path_Index[31m,[m Success[31m);[m
						[01;34mif[m Success [01;34mthen[m
						   [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   App[31m.[mTerminal[31m.[mCur[31m.[m[01;30mPrint[m[31m([mOrganizer[31m.[mObj_Header[31m.[mWin[31m,[m Organizer[31m.[mObj_Main[31m.[mWin[31m);[m
						   [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Attr[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   Classes[31m.[m[01;30mPrint[m[31m([mPrinted[31m.[mdefinition[31m,[m Organizer[31m.[mObj_Attr[31m.[mWin[31m);[m
						   In_Print [31m:=[m True[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
						Success [31m:=[m False[31m;[m
						Path_Index [31m:=[m [35m0[m[31m;[m
					     [01;34mexception[m
						[01;34mwhen[m Constraint_Error [31m=>[m
						   [01;34mnull[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mwhen[m List [31m=>[m
				       [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mList_Win[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Last [31m:=[m [35m0[m[31m;[m
				       Total_Line [31m:=[m [35m0[m[31m;[m
				       Line_Index [31m:=[m [35m0[m[31m;[m
				       On_List [31m:=[m True[31m;[m
				       On_Tree [31m:=[m False[31m;[m
				       [01;34mif[m App[31m.[mTerminal[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m [01;34mnot[m Abstract_Vectors[31m.[m[01;30mIs_Empty[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mChilds[31m)[m [01;34mthen[m
					     [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mChilds[31m)[m [01;34mloop[m
						[01;34mdeclare[m
						   E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mChilds[31m,[m [01;30mAbstract_Index[m[31m([mChild[31m));[m
						[01;34mbegin[m
						   [01;30mAdd_Line[m[31m([mChilds_Set[31m,[m Last[31m,[m [01;30mTo_String[m[31m([mE[31m.[mInfo[31m));[m
						[01;34mend[m[31m;[m
					     [01;34mend[m [01;34mloop[m[31m;[m
					     
					     
					  [01;34mend[m [01;34mif[m[31m;[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Organizer[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
				    [01;34mwhen[m Tree [31m=>[m
				       On_Tree [31m:=[m True[31m;[m
				       On_List [31m:=[m False[31m;[m
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mList_Win[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Total_Line [31m:=[m [35m0[m[31m;[m
				       Line_Index [31m:=[m [35m0[m[31m;[m
				       [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
				       [01;34mif[m App[31m.[mTerminal[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;30mTree[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Level[31m,[m Childs_Set[31m,[m Last[31m);[m
					  Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Organizer[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m				       
				    [01;34mwhen[m Remove [31m=>[m
				       [01;34mdeclare[m
					  Name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
					  Index [31m:[m Abstract_Index [31m:=[m [35m1[m[31m;[m
				       [01;34mbegin[m

					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m

					     name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m

					     [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mName[31m.[m[01;34mall[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m

						Index [31m:=[m Abstract_Index'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mName[31m.[m[01;34mall[m[31m));[m
						
						[01;30mRemove[m[31m([mApp[31m.[mterminal[31m,[m Index[31m);[m
						[01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mif[m On_List [01;34mthen[m
					     [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
					     [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mList_Win[31m);[m
					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
					     Last [31m:=[m [35m0[m[31m;[m
					     Total_Line [31m:=[m [35m0[m[31m;[m
					     Line_Index [31m:=[m [35m0[m[31m;[m
					     [01;34mif[m App[31m.[mTerminal[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
						[01;34mif[m [01;34mnot[m Abstract_Vectors[31m.[m[01;30mIs_Empty[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mChilds[31m)[m [01;34mthen[m
						   [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mChilds[31m)[m [01;34mloop[m
						      [01;34mdeclare[m
							 E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mChilds[31m,[m [01;30mAbstract_Index[m[31m([mChild[31m));[m
						      [01;34mbegin[m
							 [01;30mAdd_Line[m[31m([mChilds_Set[31m,[m Last[31m,[m [01;30mTo_String[m[31m([mE[31m.[mInfo[31m));[m
						      [01;34mend[m[31m;[m
						   [01;34mend[m [01;34mloop[m[31m;[m
						   
						   
						[01;34mend[m [01;34mif[m[31m;[m
						
					     [01;34mend[m [01;34mif[m[31m;[m
					     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Organizer[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
					  [01;34melsif[m On_Tree [01;34mthen[m
					     Total_Line [31m:=[m [35m0[m[31m;[m
					     Line_Index [31m:=[m [35m0[m[31m;[m
					     [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mList_Win[31m);[m
					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
					     [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
					     [01;34mif[m App[31m.[mTerminal[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
						[01;30mTree[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Level[31m,[m Childs_Set[31m,[m Last[31m);[m
						Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Organizer[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
					  
					  
					  Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Organizer[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
				       [01;34mexception[m
					  [01;34mwhen[m [01;34mothers[m [31m=>[m
					     [01;34mnull[m[31m;[m
				       [01;34mend[m[31m;[m
				 [01;34mend[m [01;34mcase[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      Line_Last [31m:=[m [35m0[m[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m
			      Last [31m:=[m [35m0[m[31m;[m
			      Printed [31m:=[m [01;34mnull[m[31m;[m
			      Print_Index [31m:=[m [35m0[m[31m;[m
			      [01;30mInitialize[m[31m([mOrganizer[31m,[m Top[31m);[m
			      [01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mContent_Win[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			      [01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
				 [01;30mCmd_Line[m[31m([mLine_Last[31m)[m [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				 Line_Last [31m:=[m Line_Last [31m-[m [35m1[m[31m;[m
			      [01;34melse[m
				 Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melse[m
			[01;34mif[m App[31m.[mTerminal[31m.[mRoot [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  App[31m.[mTerminal[31m.[mcur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mif[m Line_Last [31m+[m [35m1[m [31m<=[m [31m([mCmd_Line'Length[31m-[mApp[31m.[mTerminal[31m.[mcur[31m.[mInfo[31m.[mName'Length[31m)[m [01;34mthen[m
			      [01;30mCmd_Line[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			      Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
			   [01;34melse[m
			      Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m Line_Last [31m+[m [35m1[m [31m<=[m Cmd_Line'Length [01;34mthen[m
			   [01;30mCmd_Line[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			   Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
			[01;34melse[m
			   Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			   
			[01;34mend[m [01;34mif[m[31m;[m
			
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mContent_Win[31m);[m
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
	          
		  [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
		  [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  [01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
		  [01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
		  [01;34melse[m
		     [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mcase[m Obj_Tag [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;34mcase[m Cmd [01;34mis[m
			   [01;34mwhen[m Attribute [31m=>[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Image : "[m[31m);[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_Image [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mwhen[m Profile [31m=>[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Born : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Addr : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Phone : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Email : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		     [01;34mwhen[m Content [31m=>[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		     [01;34mwhen[m Planning [31m=>[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"From : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"To   : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		     [01;34mwhen[m Universe [31m=>[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		     [01;34mwhen[m Event [31m..[m Rendezvous [31m=>[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Period : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		     [01;34mwhen[m Book[31m..[mCDROM [31m=>[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Editor : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Title : "[m[31m);[m
		     [01;34mwhen[m Car [31m=>[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Mark : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Model : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Mat : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		     [01;34mwhen[m House [31m=>[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Addr : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Surf : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mif[m App[31m.[mTerminal[31m.[mRoot [31m/=[m [01;34mnull[m [01;34mthen[m
		     Child_Index [31m:=[m [01;30mAbstract_Index[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mchilds[31m)+[m[35m1[m[31m);[m
		  [01;34melse[m
		     Child_Index [31m:=[m [35m1[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  
	    [01;34mor[m
	       [01;34mwhen[m cmd [31m=[m attribute [31m=>[m
		  
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Attribute_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Attr[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Attribute_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Attribute_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Attribute_Name [31m=>[m
				       Name [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)));[m
				       Attribute_Curs[31m.[mVal_Cur [31m:=[m Attribute_Enum'[01;30mSucc[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m);[m
				    [01;34mwhen[m Attribute_Image [31m=>[m
				       [01;34mif[m App[31m.[mTerminal[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m App[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m<[m App[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[mList'Last [01;34mthen[m
					     App[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m+[m [35m1[m[31m)[m [31m:=[m
					       [01;30mMake[m[31m([mName[31m.[m[01;34mall[m[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)));[m
					     
					     App[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m:=[m App[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m+[m [35m1[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				       attribute_Curs [31m:=[m Initialize[31m;[m
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       [01;30mFree[m[31m([mName[31m);[m
				       Attribute_Curs[31m.[mVal_Cur [31m:=[m Attribute_None[31m;[m
				       Cmd [31m:=[m Null_cmd[31m;[m
				       [01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m
				 
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_image [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;34mcase[m Attribute_Curs[31m.[mVal_Cur [01;34mis[m
		     [01;34mwhen[m Attribute_none [31m=>[m
			
			[01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Attr[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[mApp[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[mIndex [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Attr[31m,[m I[31m,[m [35m1[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName[31m.[m[01;34mall[m[31m));[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m1[m[31m,[m Red[31m,[m [31m"="[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m2[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mValue[31m.[m[01;34mall[m[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Attr[31m);[m
			
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[mApp[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[mIndex [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Attr[31m,[m I[31m,[m [35m1[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName[31m.[m[01;34mall[m[31m));[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m1[m[31m,[m Red[31m,[m [31m"="[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m2[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mValue[31m.[m[01;34mall[m[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Image : "[m[31m);[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			[01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_Image [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  
	    [01;34mor[m
	       
	       [01;34mwhen[m Obj_Tag [31m=[m Profile [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Profile_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Profile_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Profile_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Profile_Email [31m=>[m
				       
				       [01;34mdeclare[m
					  Profile [31m:[m Profile_Class [31m:=[m [01;30mTo_Profile[m[31m([mProfile_Curs[31m,[m Child_Index[31m);[m
				       [01;34mbegin[m
					  Profile[31m.[mId [31m:=[m App[31m.[mTerminal[31m.[mU_Count [31m+[m [35m1[m[31m;[m
					  [01;30mAdd_To[m[31m([mApp[31m.[mTerminal[31m,[m [01;34mnew[m Profile_Class '[31m([mProfile[31m));[m
					  [01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
					  App[31m.[mTerminal[31m.[mU_Count [31m:=[m App[31m.[mTerminal[31m.[mU_Count [31m+[m [35m1[m[31m;[m
				       [01;34mend[m[31m;[m
				       
				       Profile_Curs [31m:=[m Initialize[31m;[m
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Obj_Tag [31m:=[m None[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       Profile_Curs[31m.[mVal_Cur [31m:=[m Profile_Enum'[01;30mSucc[m[31m([mProfile_Curs[31m.[mVal_Cur[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					   Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProfile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mProfile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Born : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Addr : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Phone : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Email : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Profile_Full_Name[31m..[mProfile_Email [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProfile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProfile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mProfile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Born : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Addr : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Phone : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Email : "[m[31m);[m
		  [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		  [01;34mfor[m Val [01;34min[m Profile_Full_Name[31m..[mProfile_Email [01;34mloop[m
		     [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
			       Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
			       White[31m,[m
			       Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProfile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
		  [01;34mend[m [01;34mloop[m[31m;[m
		  
		  [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
			    Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
			    White[31m,[m
			    Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProfile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		  [01;34mcase[m Obj_Tag [01;34mis[m		     
		     [01;34mwhen[m None [31m=>[m
			[01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  
		  
	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m=[m Content [31m=>[m
		  
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Content_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Content_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Content_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Content_Price [31m=>[m
				       
				       
				       [01;34mdeclare[m
					  Content [31m:[m [01;34mconstant[m Content_Class [31m:=[m [01;30mTo_Content[m[31m([mContent_Curs[31m,[m Child_Index[31m);[m
				       [01;34mbegin[m
					  [01;30mAdd_To[m[31m([mApp[31m.[mTerminal[31m,[m [01;34mnew[m Content_Class '[31m([mContent[31m));[m
					  [01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
				       [01;34mend[m[31m;[m
				       
				       Content_Curs [31m:=[m Initialize[31m;[m
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Obj_Tag [31m:=[m None[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       Content_Curs[31m.[mVal_Cur [31m:=[m Content_Enum'[01;30mSucc[m[31m([mContent_Curs[31m.[mVal_Cur[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					   Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mContent_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mContent_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Content_Name[31m..[mContent_Price [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mContent_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mContent_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mContent_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Content_Name[31m..[mContent_Price [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mContent_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mContent_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;34mcase[m Obj_Tag [01;34mis[m		     
		     [01;34mwhen[m None [31m=>[m
			[01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m=[m Planning [31m=>[m
		  
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Planning_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Planning_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Planning_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Planning_To [31m=>[m
				       
				       [01;34mdeclare[m
					  Planning [31m:[m [01;34mconstant[m Planning_Class [31m:=[m [01;30mTo_Planning[m[31m([mPlanning_Curs[31m,[m Child_Index[31m);[m
				       [01;34mbegin[m
					  [01;30mAdd_To[m[31m([mApp[31m.[mTerminal[31m,[m [01;34mnew[m Planning_Class '[31m([mPlanning[31m));[m
					  [01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
				       [01;34mend[m[31m;[m
				       
				       Planning_Curs [31m:=[m Initialize[31m;[m
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Obj_Tag [31m:=[m None[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       Planning_Curs[31m.[mVal_Cur [31m:=[m Planning_Enum'[01;30mSucc[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					   Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mPlanning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mPlanning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"From : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"To   : "[m[31m);[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Planning_Name[31m..[mPlanning_To [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mPlanning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mPlanning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mPlanning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Planning_Name[31m..[mPlanning_To [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mPlanning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mPlanning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;34mcase[m Obj_Tag [01;34mis[m		     
		     [01;34mwhen[m None [31m=>[m
			[01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  
		  
	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m=[m Event [31m=>[m
		  
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Event_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Event_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Event_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Event_Define [31m=>[m
				       
				       
				       [01;34mdeclare[m
					  Event [31m:[m [01;34mconstant[m Event_Class [31m:=[m [01;30mTo_Event[m[31m([mEvent_Curs[31m,[m Child_Index[31m);[m
				       [01;34mbegin[m
					  [01;30mAdd_To[m[31m([mApp[31m.[mTerminal[31m,[m [01;34mnew[m Event_Class '[31m([mEvent[31m));[m
					  [01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
				       [01;34mend[m[31m;[m

				       Event_Curs [31m:=[m Initialize[31m;[m
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Obj_Tag [31m:=[m None[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       Event_Curs[31m.[mVal_Cur [31m:=[m Event_Enum'[01;30mSucc[m[31m([mEvent_Curs[31m.[mVal_Cur[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					   Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mEvent_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mEvent_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Period : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Event_Name[31m..[mEvent_Define [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mEvent_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mEvent_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mEvent_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Event_Name[31m..[mEvent_Define [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mEvent_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mEvent_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;34mcase[m Obj_Tag [01;34mis[m		     
		     [01;34mwhen[m None [31m=>[m
			[01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m=[m Job [31m=>[m
		  
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Job_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Job_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Job_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Job_Define [31m=>[m
				       
				       [01;34mdeclare[m
					  Job [31m:[m [01;34mconstant[m Job_Class [31m:=[m [01;30mTo_Job[m[31m([mJob_Curs[31m,[m Child_Index[31m);[m
				       [01;34mbegin[m
					  [01;30mAdd_To[m[31m([mApp[31m.[mTerminal[31m,[m [01;34mnew[m Job_Class '[31m([mJob[31m));[m
					  [01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
				       [01;34mend[m[31m;[m
				       
				       Job_Curs [31m:=[m Initialize[31m;[m
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Obj_Tag [31m:=[m None[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       Job_Curs[31m.[mVal_Cur [31m:=[m Job_Enum'[01;30mSucc[m[31m([mJob_Curs[31m.[mVal_Cur[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					   Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mJob_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mJob_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Period : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Job_Name[31m..[mJob_Define [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mJob_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mJob_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mJob_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Job_Name[31m..[mJob_Define [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mJob_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mJob_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;34mcase[m Obj_Tag [01;34mis[m		     
		     [01;34mwhen[m None [31m=>[m
			[01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m=[m Meeting [31m=>[m
		  
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Meeting_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Meeting_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Meeting_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Meeting_Define [31m=>[m
				       
				       
				       [01;34mdeclare[m
					  Meeting [31m:[m [01;34mconstant[m Meeting_Class [31m:=[m [01;30mTo_Meeting[m[31m([mMeeting_Curs[31m,[m Child_index[31m);[m
				       [01;34mbegin[m
					  [01;30mAdd_To[m[31m([mApp[31m.[mTerminal[31m,[m [01;34mnew[m Meeting_Class '[31m([mMeeting[31m));[m
					  [01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
				       [01;34mend[m[31m;[m
				       
				       Meeting_Curs [31m:=[m Initialize[31m;[m
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Obj_Tag [31m:=[m None[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       Meeting_Curs[31m.[mVal_Cur [31m:=[m Meeting_Enum'[01;30mSucc[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					   Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMeeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mMeeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Period : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Meeting_Name[31m..[mMeeting_Define [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMeeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMeeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mMeeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Meeting_Name[31m..[mMeeting_Define [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMeeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMeeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;34mcase[m Obj_Tag [01;34mis[m		     
		     [01;34mwhen[m None [31m=>[m
			[01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m=[m Rendezvous [31m=>[m
		  
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Rendezvous_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Rendezvous_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Rendezvous_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Rendezvous_Define [31m=>[m
				       
				       [01;34mdeclare[m
					  Rendezvous [31m:[m [01;34mconstant[m Rendezvous_Class [31m:=[m [01;30mTo_Rendezvous[m[31m([mRendezvous_Curs[31m,[m Child_Index[31m);[m
				       [01;34mbegin[m
					  [01;30mAdd_To[m[31m([mApp[31m.[mTerminal[31m,[m [01;34mnew[m Rendezvous_Class '[31m([mRendezvous[31m));[m
					  [01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
				       [01;34mend[m[31m;[m
				       
				       Rendezvous_Curs [31m:=[m Initialize[31m;[m
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Obj_Tag [31m:=[m None[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       Rendezvous_Curs[31m.[mVal_Cur [31m:=[m Rendezvous_Enum'[01;30mSucc[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					   Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mRendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mRendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Period : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Rendezvous_Name[31m..[mRendezvous_Define [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mRendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mRendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mRendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Rendezvous_Name[31m..[mRendezvous_Define [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mRendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mRendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;34mcase[m Obj_Tag [01;34mis[m		     
		     [01;34mwhen[m None [31m=>[m
			[01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m=[m Universe [31m=>[m
		  
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Content_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Attr[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Universe_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Universe_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Universe_Name [31m=>[m
				       
				       [01;34mdeclare[m
					  Universe [31m:[m [01;34mconstant[m Universe_Class [31m:=[m [01;30mTo_Universe[m[31m([mUniverse_Curs[31m,[m Child_index[31m);[m
				       [01;34mbegin[m
					  [01;30mAdd_To[m[31m([mApp[31m.[mTerminal[31m,[m [01;34mnew[m Universe_Class '[31m([mUniverse[31m));[m
					  [01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
				       [01;34mend[m[31m;[m
				       
				       
				       [31m--------------------------------[m
				       Universe_Curs [31m:=[m Initialize[31m;[m
				       [31m--------------------------------[m
				       
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Obj_Tag [31m:=[m None[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       
				       Universe_Curs[31m.[mVal_Cur [31m:=[m Universe_Enum'[01;30mSucc[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m
				 
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mUniverse_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Universe_Name[31m..[mUniverse_Name [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mUniverse_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Universe_Name[31m..[mUniverse_name [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		  [01;34mfor[m Val [01;34min[m Universe_Name[31m..[mUniverse_Name [01;34mloop[m
		     [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
			       Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
			       White[31m,[m
			       Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
		  [01;34mend[m [01;34mloop[m[31m;[m
		  
		  [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
			    Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
			    White[31m,[m
			    Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		  [01;34mcase[m Obj_Tag [01;34mis[m		     
		     [01;34mwhen[m None [31m=>[m
			[01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  
	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m=[m Book [01;34mor[m Obj_Tag [31m=[m CDROM [01;34mor[m Obj_Tag [31m=[m DVD [31m=>[m
		  
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Content_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Attr[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Media_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Media_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Media_Editor [31m=>[m
				       [01;34mcase[m Obj_Tag [01;34mis[m
					  [01;34mwhen[m Book [31m=>[m
					     
					     [01;34mdeclare[m
						Book [31m:[m [01;34mconstant[m Book_Class [31m:=[m [01;30mTo_Book[m[31m([mMedia_Curs[31m,[m Child_index[31m);[m
					     [01;34mbegin[m
						[01;30mAdd_To[m[31m([mApp[31m.[mTerminal[31m,[m [01;34mnew[m Book_Class '[31m([mBook[31m));[m
						[01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
					     [01;34mend[m[31m;[m
					  [01;34mwhen[m CDROM [31m=>[m
					     [01;34mdeclare[m
						CDROM [31m:[m [01;34mconstant[m CDROM_Class [31m:=[m [01;30mTo_CDROM[m[31m([mMedia_Curs[31m,[m Child_index[31m);[m
					     [01;34mbegin[m

						[01;30mAdd_To[m[31m([mApp[31m.[mTerminal[31m,[m [01;34mnew[m CDROM_Class '[31m([mCDROM[31m));[m

						[01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m

					     [01;34mend[m[31m;[m
					     
					  [01;34mwhen[m DVD [31m=>[m
					     [01;34mdeclare[m
						DVD [31m:[m [01;34mconstant[m DVD_Class [31m:=[m [01;30mTo_DVD[m[31m([mMedia_Curs[31m,[m Child_index[31m);[m
					     [01;34mbegin[m
						[01;30mAdd_To[m[31m([mApp[31m.[mTerminal[31m,[m [01;34mnew[m DVD_Class '[31m([mDVD[31m));[m
						[01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
					     [01;34mend[m[31m;[m
					  [01;34mwhen[m [01;34mothers[m [31m=>[m
					     [01;34mnull[m[31m;[m
				       [01;34mend[m [01;34mcase[m[31m;[m
				       
				       [31m--------------------------------[m
				       Media_Curs [31m:=[m Initialize[31m;[m
				       [31m--------------------------------[m
				       
				       [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Obj_Tag [31m:=[m None[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       
				       Media_Curs[31m.[mVal_Cur [31m:=[m Media_Enum'[01;30mSucc[m[31m([mMedia_Curs[31m.[mVal_Cur[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m
				 
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mMedia_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Editor : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Title : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Media_title[31m..[mMedia_Editor [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mMedia_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Media_Title[31m..[mMedia_Editor [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;30mEnlight_Window[m[31m([mOrganizer[31m.[mObj_Main[31m);[m
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  
		  [01;34mcase[m Obj_Tag [01;34mis[m		     
		     [01;34mwhen[m None [31m=>[m
			[01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mOrganizer[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mTerminal[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m Book [31m..[m DVD [31m=>[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Editor : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Title : "[m[31m);[m
			[01;34mfor[m Val [01;34min[m Media_Title[31m..[mMedia_Editor [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mOrganizer[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  
		  
		  
	    [01;34mor[m
	       [01;34maccept[m Halt [01;34mdo[m
		  Organizer[31m.[mProc[31m.[mHalt[31m;[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  Organizer_Process[31m.[mTop [31m:=[m Top[31m;[m
		  [01;30mInitialize[m[31m([mOrganizer[31m,[m Top[31m);[m
		  [01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
		  Obj_Tag [31m:=[m None[31m;[m
		  [01;34mif[m Top [31m=[m [35m0[m [01;34mthen[m
		     Organizer[31m.[mProc[31m.[mStart[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
		  [01;34mif[m In_Print [01;34mthen[m
		     [01;34mif[m Print_Index [31m/=[m [35m0[m [01;34mthen[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   Printed[31m.[m[01;30mPrint[m[31m([mOrganizer[31m.[mObj_Header[31m.[mWin[31m,[m Organizer[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   Printed[31m.[m[01;30mPrint[m[31m([mOrganizer[31m.[mObj_Header[31m.[mWin[31m,[m Organizer[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34melse[m
			   App[31m.[mTerminal[31m.[mCur[31m.[m[01;30mPrint[m[31m([mOrganizer[31m.[mObj_Header[31m.[mWin[31m,[m Organizer[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m Last [31m/=[m [35m0[m [01;34mthen[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Organizer[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m App[31m.[mTerminal[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
		  [01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m[31m);[m
		  [01;34melse[m
		     [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend [01;34mdo[m
		  Organizer[31m.[mProc[31m.[mStop[31m;[m
	       [01;34mend[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down [01;34mdo[m
		  [01;34mif[m Line_Index [31m+[m [31m([mOrganizer[31m.[mList_Win[31m.[mH[31m-[m[35m2[m[31m)[m [31m<=[m Last [01;34mthen[m
		     Line_Index [31m:=[m Line_Index [31m+[m [31m([mOrganizer[31m.[mList_Win[31m.[mH[31m-[m[35m2[m[31m);[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Organizer[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
		  [01;34melse[m
		     Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up [01;34mdo[m
		  [01;34mif[m Line_Index [31m>[m [35m0[m [01;34mthen[m
		     Line_Index [31m:=[m Line_Index [31m-[m [31m([mOrganizer[31m.[mList_Win[31m.[mH[31m-[m[35m2[m[31m);[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Organizer[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
		  [01;34melse[m
		     Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Up_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m      
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt [01;34mdo[m
		  Organizer[31m.[mProc[31m.[mHalt[31m;[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend [01;34mdo[m
		  Organizer[31m.[mProc[31m.[mStop[31m;[m
	       [01;34mend[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [01;30mInitialize[m[31m([mOrganizer[31m,[m Top[31m);[m
		  Organizer_Process[31m.[mTop [31m:=[m Top[31m;[m
		  [01;30mDraw[m[31m([mOrganizer[31m,[m App[31m.[mTerminal[31m);[m
		  [01;34mif[m Top [31m=[m [35m0[m [01;34mthen[m
		     Organizer[31m.[mProc[31m.[mStart[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  Obj_Tag [31m:=[m None[31m;[m
		  [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mTerminal[31m.[mCur[31m,[m Organizer[31m.[mContent_Win[31m.[mwin[31m);[m
		  [01;34mif[m In_Print [01;34mthen[m
		     [01;34mif[m Print_Index [31m/=[m [35m0[m [01;34mthen[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   Printed[31m.[m[01;30mPrint[m[31m([mOrganizer[31m.[mObj_Header[31m.[mWin[31m,[m Organizer[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   Printed[31m.[m[01;30mPrint[m[31m([mOrganizer[31m.[mObj_Header[31m.[mWin[31m,[m Organizer[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34melse[m
			   App[31m.[mTerminal[31m.[mCur[31m.[m[01;30mPrint[m[31m([mOrganizer[31m.[mObj_Header[31m.[mWin[31m,[m Organizer[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m Last [31m/=[m [35m0[m [01;34mthen[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Organizer[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m App[31m.[mTerminal[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
		  [01;34melsif[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mTerminal[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m[31m);[m
		  [01;34melse[m
		     [01;30mDraw_Text[m[31m([mOrganizer[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Organizer process halted");[m
   [01;34mend[m Organizer_Process[31m;[m
   
   
   
   

   
   
   [01;34mprocedure[m [01;30mMake_Html[m[31m([mSet [31m:[m [01;34min[m Wide_String_Set[31m)[m [01;34mis[m
      File [31m:[m W_Io[31m.[mFile_Type[31m;[m
   [01;34mbegin[m

      W_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m W_Io[31m.[mOut_File[31m,[m [31m"/var/www/html/dialog.html"[m[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m

      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"<html>"[m[31m);[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"<head>"[m[31m);[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"<meta http-equiv=""refresh"" content=""60;URL=/dialog.html""> "[m[31m);[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"<meta charset=""UTF-8"">"[m[31m);[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"<style>"[m[31m);[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"a {text-decoration:none;color:black;}"[m[31m);[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"a.nom {color:grey;}"[m[31m);[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"</style>"[m[31m);[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"</head>"[m[31m);[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"<body>"[m[31m);[m

      [01;34mfor[m Line [01;34min[m [35m1[m[31m..[mSet[31m.[mLine_Last [01;34mloop[m
	 [01;34mif[m Set[31m.[m[01;30mlines[m[31m([mLine[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m

	    W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m Set[31m.[m[01;30mlines[m[31m([mLine[31m).[m[01;34mall[m[31m);[m

	 [01;34melse[m
	    [01;34mexit[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"</body>"[m[31m);[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [31m"</html>"[m[31m);[m

      W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m

   [01;34mend[m Make_Html[31m;[m
   
   
   
   
   
   
   [01;34mtask[m [01;34mbody[m Vbrain_Process [01;34mis[m
      
      
      Suspended [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      [01;34mtask[m Clock_Tasking [01;34mis[m
	 [01;34mentry[m Halt[31m;[m
	 [01;34mentry[m Suspend[31m;[m
	 [01;34mentry[m Start[31m;[m
      [01;34mend[m Clock_Tasking[31m;[m
      
      Dialog_Lock [31m:[m [01;30mBinary_Semaphore[m[31m([mTrue[31m,[m Default_Ceiling[31m);[m
      
      
      
      [01;34mtask[m [01;34mbody[m Clock_Tasking [01;34mis[m
	 Lock [31m:[m [32mBoolean[m [31m:=[m True[31m;[m
      [01;34mbegin[m
     Clock_Loop [31m:[m
	 [01;34mloop[m
	    [01;34mwhile[m Lock [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Suspend[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Start [01;34mdo[m
		     Lock [31m:=[m False[31m;[m
		  [01;34mend[m Start[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Clock_Loop[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Start[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Suspend [01;34mdo[m
		     Lock [31m:=[m True[31m;[m
		  [01;34mend[m Suspend[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Clock_Loop[31m;[m
	       [01;34mor[m
		  [01;34mdelay[m [35m1.0[m[31m;[m
		  [01;34mcase[m App[31m.[mMode [01;34mis[m
		     [01;34mwhen[m Dialog [31m=>[m
			Dialog_Lock[31m.[mSeize[31m;[m
			Text_Io[31m.[m[01;30mPut[m[31m([mSave_Cursor[31m);[m
			Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mHeader[31m).[mWin[31m,[m [35m1[m[31m,[m App[31m.[m[01;30mFrames[m[31m([mHeader[31m).[mWin[31m.[mWin[31m.[mW[31m/[m[35m2[m[31m-[m[35m10[m[31m,[m Yellow[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mClock[31m)));[m
			Text_Io[31m.[m[01;30mPut[m[31m([mRestore_Cursor[31m);[m
			Dialog_Lock[31m.[mRelease[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mloop[m Clock_Loop[31m;[m
	 
	 W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Clocking halted"[m[31m);[m
	 
      [01;34mend[m Clock_Tasking[31m;[m
      
      
      
      Height [31m:[m Positive [31m:=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mH[31m-[m[35m2[m[31m;[m
      Width  [31m:[m Positive [31m:=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mW[31m-[m[35m2[m[31m;[m

      [01;34mtask[m Deamon_Network [01;34mis[m
      	 [01;34mentry[m [01;30mReceive[m [31m([mFeedback [31m:[m [01;34min[m Neural_Retrain[31m.[mInput_type[31m;[m
      			Input    [31m:[m [01;34min[m Neural_Retrain[31m.[mInput_Type[31m;[m
      			Output   [31m:[m [01;34min[m Neural_Retrain[31m.[mOutput_Type[31m);[m
	 [01;34mentry[m Suspend[31m;[m
	 [01;34mentry[m Start[31m;[m
	 
      	 [01;34mentry[m Halt[31m;[m
      [01;34mend[m Deamon_Network[31m;[m

      Dialog_Initialized  [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      [01;34mtask[m [01;34mbody[m Deamon_Network [01;34mis[m
	 
      [01;34mbegin[m
	 Main_Loop [31m:[m
	     [01;34mloop[m
		[01;34mloop[m
		   [01;34mselect[m
		      [01;34maccept[m Suspend[31m;[m
		      [01;34mexit[m[31m;[m
		   [01;34mor[m
		      [01;34maccept[m Start[31m;[m
		   [01;34mor[m
		      [01;34maccept[m [01;30mReceive[m [31m([mFeedback [31m:[m [01;34min[m Neural_Retrain[31m.[mInput_type[31m;[m
				      Input    [31m:[m [01;34min[m Neural_Retrain[31m.[mInput_Type[31m;[m
				      Output   [31m:[m [01;34min[m Neural_Retrain[31m.[mOutput_Type[31m)[m [01;34mdo[m
			 App[31m.[m[01;30mSamples[m[31m([m[35m1[m[31m).[mInput [31m:=[m Feedback[31m;[m
			 
			 App[31m.[m[01;30mSamples[m[31m([m[35m1[m[31m).[moutput [31m:=[m Neural_Retrain[31m.[m[01;30mOutput_Type[m[31m([mInput[31m);[m
			 
			 App[31m.[m[01;30mSamples[m[31m([m[35m2[m[31m).[mInput [31m:=[m Input[31m;[m
			 
			 App[31m.[m[01;30mSamples[m[31m([m[35m2[m[31m).[moutput [31m:=[m Output[31m;[m
		      [01;34mend[m Receive[31m;[m
		      
		   [01;34mor[m
		      [01;34maccept[m Halt[31m;[m
		      [01;34mexit[m Main_loop[31m;[m
		   [01;34mor[m
		      [01;34mdelay[m [35m10.0[m[31m;[m
		      [01;34mif[m [01;34mnot[m Suspended [01;34mand[m Dialog_initialized [01;34mthen[m
			 Vbrain_Process[31m.[mDialog[31m;[m
		      [01;34mend[m [01;34mif[m[31m;[m	       
		   [01;34mend[m [01;34mselect[m[31m;[m
		   
		[01;34mend[m [01;34mloop[m[31m;[m
		[01;34mloop[m
		   [01;34mselect[m
		      [01;34maccept[m Suspend[31m;[m
		   [01;34mor[m
		      [01;34maccept[m Start[31m;[m
		      [01;34mexit[m[31m;[m
		   [01;34mor[m
		      [01;34maccept[m Halt[31m;[m
		      [01;34mexit[m Main_loop[31m;[m
		   [01;34mend[m [01;34mselect[m[31m;[m
		[01;34mend[m [01;34mloop[m[31m;[m
	     [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m Deamon_Network[31m;[m

      
      
      
      
      
      
      Conv       [31m:[m PragmARC[31m.[mRem_NN_Wrapper[31m.[mReal [31m:=[m [35m0.006[m[31m;[m
      Epoch_Max [31m:[m Natural [31m:=[m [35m250[m[31m;[m
      Reuse      [31m:[m [01;34mconstant[m [32mBoolean[m [31m:=[m True[31m;[m
      Rms_Error  [31m:[m PragmARC[31m.[mRem_NN_Wrapper[31m.[mReal [31m:=[m [35m0.0[m[31m;[m
      
      End_Of_This_Task      [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      End_Of_Program [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      
      Is_Overwrite        [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Wchar_Max        [31m:[m Positive [31m:=[m App[31m.[mColumns[31m-[m[35m4[m[31m;[m      
      Wline            [31m:[m M[31m.[mStrings[31m.[mWide_String_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Wbuffer          [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
      Wline_Length     [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Current_Pos      [31m:[m Natural [31m:=[m [35m1[m[31m;[m
      Left_Buffer      [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
      Word_Number      [31m:[m Word_Range [31m:=[m [35m0[m[31m;[m
      
      Response_Buffer  [31m:[m [01;30mWide_String_Set[m[31m([m[35m1[m[31m);[m 
      internal_Buffer  [31m:[m [01;30mWide_String_Set[m[31m([m[35m1[m[31m);[m 
      
      
      Dialog_Buffer_Last  [31m:[m Line_Index_Range [31m:=[m [35m0[m[31m;[m
      Dialog_Buffer_Index [31m:[m Line_Index_Range [31m:=[m [35m0[m[31m;[m
      Dialog_Buffer       [31m:[m [01;30mWide_String_Set[m[31m([m[35m2880[m[31m);[m [31m-- 24 h self : 1440 * 2.[m
      Samples_Last        [31m:[m Line_Index_Range [31m:=[m [35m0[m[31m;[m
      Samples_Index       [31m:[m Line_Index_Range [31m:=[m [35m0[m[31m;[m
      Samples_Set         [31m:[m [01;30mWide_String_Set[m[31m([m[35m1024[m[31m);[m 
      Samples_Loaded      [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Glossary_Last       [31m:[m Line_Index_Range [31m:=[m [35m0[m[31m;[m
      Glossary_Index      [31m:[m Line_Index_Range [31m:=[m [35m0[m[31m;[m
      Glossary_Set        [31m:[m [01;30mWide_String_Set[m[31m([m[35m4096[m[31m);[m 
      Glossary_Loaded     [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Total_Lines         [31m:[m Line_Index_Range [31m:=[m [35m0[m[31m;[m
      Total               [31m:[m Line_Index_Range [31m:=[m [35m0[m[31m;[m
      View                [31m:[m [32mBoolean[m [31m:=[m False[31m;[m [31m-- Samples if false, Glossary else. Tab to change.[m
      
      html_Buffer       [31m:[m [01;30mWide_String_Set[m[31m([m[35m12[m[31m);[m
      
      
      Main1 [31m:[m W_Io[31m.[mFile_Type[31m;[m
      Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
      
   [01;34mbegin[m
      Glossary[31m.[m[01;30mInitialize[m[31m([mApp[31m.[mWords[31m,[m [31m"./data"[m [31m&[m Dir_Separator [31m&[m [31m"glossary.txt"[m[31m);[m
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"initializing sample_set"[m[31m);[m
      [01;30mInit_Samples[m[31m([mApp[31m.[mSamples_Set[31m,[m App[31m.[mWords[31m,[m [31m"data/"[m [31m&[m App[31m.[mSet_Filename[31m.[m[01;34mall[m[31m);[m
      
      [31m--  Text_Io.Put_Line("Going to train");[m
      [31m--  Neural_Train.Train     (Samples   => App.Samples_Set ' access,[m
      [31m--  			      Max_Epochs => 4_000,[m
      [31m--  			      Converged => 0.006,[m
      [31m--  			      Reuse     => True,[m
      [31m--  			      RMS_Error => RMS_Error);[m
      [31m--  -- do 1000 epochs by samples for max words 2048 and line width of 80 words.[m
      [31m--  -- copying elhoim.wgt1 into elhoim.wgt2 after learn.[m
      [31m--  -- the delay for only one request on dialogic agent is 20s ; 250 epochs for 2 samples.[m
      

      Window[31m.[m[01;30mInitialize[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mHeader[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m,[m  White[31m,[m Red[31m);[m
      Window[31m.[m[01;30mInitialize[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m Columns[31m,[m  green[31m,[m Yellow[31m);[m
      Window[31m.[m[01;30mInitialize[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m6[m[31m,[m [35m2[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m-[m[35m2[m[31m,[m  Blue[31m,[m White[31m);[m
      Window[31m.[m[01;30mInitialize[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m,[m [35m10[m[31m,[m [35m2[m[31m,[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m  Blue[31m,[m White[31m);[m
      Window[31m.[m[01;30mInitialize[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m,[m [35m16[m[31m,[m [35m2[m[31m,[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m  Blue[31m,[m White[31m);[m
      Window[31m.[m[01;30mInitialize[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m,[m [35m22[m[31m,[m [35m2[m[31m,[m App[31m.[mLines[31m/[m[35m8[m[31m*[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m  Blue[31m,[m White[31m);[m
      Window[31m.[m[01;30mInitialize[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m App[31m.[mLines[31m-[m[35m5[m[31m,[m [35m2[m[31m,[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m  Blue[31m,[m White[31m);[m
      Window[31m.[m[01;30mInitialize[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m App[31m.[mLines[31m-[m[35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m  yellow[31m,[m green[31m);[m

  Main_Loop[31m:[m
      [01;34mwhile[m [01;34mnot[m End_Of_This_Task [01;34mloop[m
	 [01;34mnull[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m Halt [01;34mdo[m
	 	  End_Of_This_Task [31m:=[m True[31m;[m
	 	  Clock_Tasking[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Deamon halting..."[m[31m);[m
	 	  Deamon_Network[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Deamon halted!"[m[31m);[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	       [31m--or[m
	    [01;34mor[m
	       [01;34maccept[m Suspend [01;34mdo[m
	 	  [01;34mnull[m[31m;[m
	       [01;34mend[m Suspend[31m;[m
	       [31m--accept Lock;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m

	 	  Suspended [31m:=[m False[31m;[m	  

	 	  Dialog_Lock[31m.[mSeize[31m;[m

	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mHeader[31m).[mWin[31m);[m

	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m);[m
	 	  [31m-------------------------------------------------------------------[m
	 	  [31m--                  Drawing the windows titles                   --[m
	 	  [31m-------------------------------------------------------------------	    [m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Green[31m,[m [31m"Input"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m Magenta[31m,[m [31m"Response"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m"Internal"[m[31m);[m	    
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m17[m[31m,[m [35m1[m[31m,[m Cyan[31m,[m [31m"Dialog"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m5[m[31m,[m Columns[31m/[m[35m4[m[31m*[m[35m3[m[31m-[m[35m8[m[31m,[m Blue[31m,[m [31m"Samples/Glossary"[m[31m);[m
	 	  [31m-------------------------------------------------------------------[m
	 	  [31m--                  Drawing the buffer states                    --[m
	 	  [31m-------------------------------------------------------------------[m
	 	  [01;34mif[m App[31m.[mOn_Esc [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m cyan[31m,[m [31m"one esc to quit"[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"two esc to quit"[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m White[31m,[m [31m" ; Alphabet"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m Red[31m,[m [31m" : "[m[31m);[m 
		  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m


	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mApp[31m.[mColumns[31m-[m[35m5[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m((([mApp[31m.[mColumns[31m-[m [35m5[m[31m)[m [31m-[m Wline_Length[31m))));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; word max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mWord_Range'[01;30mImage[m[31m([m[35m80[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Word number"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mWord_Range'[01;30mImage[m[31m([mWord_Number[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Lines count"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m64[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m66[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([mDialog_Buffer_Last[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m71[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m83[m[31m,[m White[31m,[m [31m" : "[m[31m);[m	    
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m86[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		  
		  
	 	  [01;34mcase[m View [01;34mis[m
	 	     [01;34mwhen[m False [31m=>[m		  
	 		[01;34mif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([mApp[31m.[mSet_Filename[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
	 		   Samples_Set[31m.[mLine_Last [31m:=[m [35m0[m[31m;[m
	 		   [01;30mLoad_File[m[31m([mSamples_Set[31m,[m App[31m.[mSet_Filename[31m.[m[01;34mall[m[31m,[m Samples_Last[31m);[m
	 		[01;34melsif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([m[31m"data"[m [31m&[m Dir_Separator [31m&[m App[31m.[mSet_Filename[31m.[m[01;34mall[m[31m)[m [01;34mthen[m	       
	 		   [01;30mLoad_File[m[31m([mSamples_Set[31m,[m [31m"data"[m [31m&[m Dir_Separator [31m&[m App[31m.[mSet_Filename[31m.[m[01;34mall[m[31m,[m Samples_Last[31m);[m
	 		[01;34mend[m [01;34mif[m[31m;[m      	    
	 		[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mSamples_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m Samples_Index[31m,[m Total[31m)[m [01;34mthen[m
	 		   [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during samples printing !"[m[31m);[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 		Samples_Loaded [31m:=[m True[31m;[m
	 	     [01;34mwhen[m True [31m=>[m
	 		[01;34mif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([m[31m"data"[m [31m&[m Dir_Separator [31m&[m [31m"glossary.txt"[m[31m)[m [01;34mthen[m
	 		   Glossary_Set[31m.[mLine_Last [31m:=[m [35m0[m[31m;[m
	 		   [01;30mLoad_File[m[31m([mGlossary_Set[31m,[m [31m"data"[m [31m&[m Dir_Separator [31m&[m [31m"glossary.txt"[m[31m,[m Glossary_Last[31m);[m
	 		   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mGlossary_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m glossary_Index[31m,[m Total[31m)[m [01;34mthen[m
	 		      [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during glossary printing !"[m[31m);[m
	 		   [01;34mend[m [01;34mif[m[31m;[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 		Glossary_Loaded [31m:=[m True[31m;[m
	 	  [01;34mend[m [01;34mcase[m[31m;[m
		  
	 	  [01;34mif[m [01;30mPrint_Set[m[31m([mApp[31m.[mResponse_Buffer[31m,[m App[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m,[m [35m0[m[31m,[m Total[31m)[m [01;34mthen[m
	 	     [01;34mnull[m[31m;[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  Total [31m:=[m [35m0[m[31m;[m
	 	  [01;34mif[m [01;30mPrint_Set[m[31m([mApp[31m.[mInternal_Buffer[31m,[m App[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m,[m [35m0[m[31m,[m Total[31m)[m [01;34mthen[m
	 	     [01;34mnull[m[31m;[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
		  
	 	  Total_Lines [31m:=[m [35m0[m[31m;[m
	 	  [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mDialog_Buffer[31m,[m 
	 			   App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m,[m
	 			   Dialog_Buffer_Index[31m,[m Total_lines[31m)[m [01;34mthen[m
	 	     [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during dialog printing !"[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m

	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  Dialog_Lock[31m.[mRelease[31m;[m
	 	  Clock_Tasking[31m.[mStart[31m;[m
		  Deamon_Network[31m.[mStart[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mwhile[m [01;34mnot[m End_Of_This_Task [01;34mLoop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  
	 	  Suspended [31m:=[m False[31m;[m	       
	 	  Dialog_Lock[31m.[mSeize[31m;[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mHeader[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m);[m
	 	  [31m-------------------------------------------------------------------[m
	 	  [31m--                  Drawing the windows titles                   --[m
	 	  [31m-------------------------------------------------------------------	    [m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Green[31m,[m [31m"Input"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m Magenta[31m,[m [31m"Response"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m"Internal"[m[31m);[m	    
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m17[m[31m,[m [35m1[m[31m,[m Cyan[31m,[m [31m"Dialog"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m5[m[31m,[m Columns[31m/[m[35m4[m[31m*[m[35m3[m[31m-[m[35m8[m[31m,[m Blue[31m,[m [31m"Samples/Glossary"[m[31m);[m
	 	  [31m-------------------------------------------------------------------[m
	 	  [31m--                  Drawing the buffer states                    --[m
	 	  [31m-------------------------------------------------------------------[m
	 	  [01;34mif[m App[31m.[mOn_Esc [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"one esc to quit"[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"two esc to quit"[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m White[31m,[m [31m" ; Alphabet"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m Red[31m,[m [31m" : "[m[31m);[m 
		  [01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m




		  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mApp[31m.[mColumns[31m-[m[35m5[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m((([mApp[31m.[mColumns[31m-[m [35m5[m[31m)[m [31m-[m Wline_Length[31m))));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; word max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mWord_Range'[01;30mImage[m[31m([m[35m80[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Word number"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mWord_Range'[01;30mImage[m[31m([mWord_Number[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Lines count"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m64[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m66[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([mDialog_Buffer_Last[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m71[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m83[m[31m,[m White[31m,[m [31m" : "[m[31m);[m	    
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m86[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		  
		  
	 	  [01;34mcase[m View [01;34mis[m
	 	     [01;34mwhen[m False [31m=>[m		  
	 		[01;34mif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([mApp[31m.[mSet_Filename[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
	 		   Samples_Set[31m.[mLine_Last [31m:=[m [35m0[m[31m;[m
	 		   [01;30mLoad_File[m[31m([mSamples_Set[31m,[m App[31m.[mSet_Filename[31m.[m[01;34mall[m[31m,[m Samples_Last[31m);[m
	 		[01;34melsif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([m[31m"data"[m [31m&[m Dir_Separator [31m&[m App[31m.[mSet_Filename[31m.[m[01;34mall[m[31m)[m [01;34mthen[m	       
	 		   [01;30mLoad_File[m[31m([mSamples_Set[31m,[m [31m"data"[m [31m&[m Dir_Separator [31m&[m App[31m.[mSet_Filename[31m.[m[01;34mall[m[31m,[m Samples_Last[31m);[m
	 		[01;34mend[m [01;34mif[m[31m;[m      	    
	 		[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mSamples_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m Samples_Index[31m,[m Total[31m)[m [01;34mthen[m
	 		   [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during samples printing !"[m[31m);[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 		Samples_Loaded [31m:=[m True[31m;[m
	 	     [01;34mwhen[m True [31m=>[m
	 		[01;34mif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([m[31m"data"[m [31m&[m Dir_Separator [31m&[m [31m"glossary.txt"[m[31m)[m [01;34mthen[m
	 		   Glossary_Set[31m.[mLine_Last [31m:=[m [35m0[m[31m;[m
	 		   [01;30mLoad_File[m[31m([mGlossary_Set[31m,[m [31m"data"[m [31m&[m Dir_Separator [31m&[m [31m"glossary.txt"[m[31m,[m Glossary_Last[31m);[m
	 		   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mGlossary_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m glossary_Index[31m,[m Total[31m)[m [01;34mthen[m
	 		      [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during glossary printing !"[m[31m);[m
	 		   [01;34mend[m [01;34mif[m[31m;[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 		Glossary_Loaded [31m:=[m True[31m;[m
	 	  [01;34mend[m [01;34mcase[m[31m;[m
	 	  Total [31m:=[m [35m0[m[31m;[m
		  
	 	  [01;34mif[m [01;30mPrint_Set[m[31m([mApp[31m.[mResponse_Buffer[31m,[m App[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m,[m [35m0[m[31m,[m Total[31m)[m [01;34mthen[m
	 	     [01;34mnull[m[31m;[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  Total [31m:=[m [35m0[m[31m;[m
	 	  [01;34mif[m [01;30mPrint_Set[m[31m([mApp[31m.[mInternal_Buffer[31m,[m App[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m,[m [35m0[m[31m,[m Total[31m)[m [01;34mthen[m
	 	     [01;34mnull[m[31m;[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
		  
	 	  Total_Lines [31m:=[m [35m0[m[31m;[m
	 	  [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mDialog_Buffer[31m,[m 
	 			   App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m,[m
	 			   Dialog_Buffer_Index[31m,[m Total_lines[31m)[m [01;34mthen[m
	 	     [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during dialog printing !"[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m

		  
	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
		  
	 	  Dialog_Lock[31m.[mRelease[31m;[m
	 	  Clock_Tasking[31m.[mStart[31m;[m
		  Deamon_Network[31m.[mStart[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt [01;34mdo[m
	 	  End_Of_This_Task [31m:=[m True[31m;[m
		  
	 	  Clock_Tasking[31m.[mHalt[31m;[m
	 	  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Deamon halting..."[m[31m);[m
	 	  Deamon_Network[31m.[mHalt[31m;[m
	 	  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Deamon halted!"[m[31m);[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       
	       
	       [01;34maccept[m Suspend [01;34mdo[m
		  Deamon_Network[31m.[mSuspend[31m;[m
	 	  Clock_Tasking[31m.[mSuspend[31m;[m
		  
	       [01;34mend[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       
	       [31m-------------------------------------------------------------------------------[m
	       [31m--                    Dialog recheive an Wide_Character                      --[m
	       [31m-------------------------------------------------------------------------------[m
	       
	       
	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		  
	 	  End_Of_This_Task [31m:=[m False[31m;[m
	 	  [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
	 	     [01;34mcase[m Wchar [01;34mis[m
	 		[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			   
	 		   [01;34mnull[m[31m;[m [31m-- save (as);[m
	 		[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m4[m[31m)[m [31m=>[m
	 		   End_Of_Program [31m:=[m True[31m;[m
			[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m5[m[31m)[m [31m=>[m
			   [01;30mSet_Free[m[31m([mDialog_Buffer[31m);[m
			   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m);[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m);[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m);[m
	 		[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m
	 		   [31m-- switch between sample and glossary[m
	 		   View [31m:=[m [01;34mnot[m View[31m;[m
	 		   Dialog_Lock[31m.[mSeize[31m;[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m);[m			   
	 		   [01;34mcase[m View [01;34mis[m
	 		      [01;34mwhen[m False [31m=>[m
	 			 [01;34mif[m [01;34mnot[m Samples_Loaded [01;34mthen[m
	 			    [01;34mif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([mApp[31m.[mSet_Filename[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
				       
	 			       Samples_Set[31m.[mLine_Last [31m:=[m [35m0[m[31m;[m
	 			       [01;30mLoad_File[m[31m([mSamples_Set[31m,[m App[31m.[mSet_filename[31m.[m[01;34mall[m[31m,[m Samples_Last[31m);[m
				       
	 			    [01;34melsif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([m[31m"data"[m [31m&[m Dir_Separator [31m&[m App[31m.[mSet_filename[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
	 			       [01;30mLoad_File[m[31m([mSamples_Set[31m,[m [31m"data"[m [31m&[m Dir_Separator [31m&[m App[31m.[mSet_Filename[31m.[m[01;34mall[m[31m,[m Samples_Last[31m);[m
	 			    [01;34mend[m [01;34mif[m[31m;[m
	 			    Samples_Loaded [31m:=[m True[31m;[m
	 			 [01;34mend[m [01;34mif[m[31m;[m
				 
	 			 [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mSamples_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m [35m0[m[31m,[m Total[31m)[m [01;34mthen[m
	 			    [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during samples printing !"[m[31m);[m
	 			 [01;34mend[m [01;34mif[m[31m;[m
				 
	 		      [01;34mwhen[m True [31m=>[m
				 

	 			 [01;34mif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([m[31m"data"[m [31m&[m Dir_Separator [31m&[m [31m"glossary.txt"[m[31m)[m [01;34mthen[m
				    
	 			    Glossary_Set[31m.[mLine_Last [31m:=[m [35m0[m[31m;[m
	 			    [01;30mLoad_File[m[31m([mGlossary_Set[31m,[m [31m"data"[m [31m&[m Dir_Separator [31m&[m [31m"glossary.txt"[m[31m,[m Glossary_Last[31m);[m
				    
	 			 [01;34mend[m [01;34mif[m[31m;[m
	 			 Glossary_Loaded [31m:=[m True[31m;[m
				 

	 			 [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mGlossary_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m [35m0[m[31m,[m Total[31m)[m [01;34mthen[m
	 			    [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during glossary printing !"[m[31m);[m
	 			 [01;34mend[m [01;34mif[m[31m;[m
				 
	 		   [01;34mend[m [01;34mcase[m[31m;[m

	 		   Dialog_Lock[31m.[mRelease[31m;[m

	 		[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m|[m Wide_Character'[01;30mVal[m[31m([m[35m13[m[31m)[m [31m=>[m			

	 		   [31m--------------------------------------------------[m
	 		   [31m--              Network intercation             --[m
	 		   [31m--------------------------------------------------[m

	 		   [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m 

	 		      [31m-----------------------------------------------------------[m
	 		      [31m--                 Initilizeing neural input             --[m
	 		      App[31m.[mInput [31m:=[m [01;30mString2input[m [31m([mWline[31m.[m[01;34mall[m[31m,[m App[31m.[mWords[31m);[m  [31m--[m
	 									 [31m--						       --[m
	 									 [31m-----------------------------------------------------------[m

			      [31m--W_Io.Open(Main1, W_Io.Append_File, "/var/www/html/dialog.html", Form => "WCEM=8");[m
			      
			      [31m--W_Io.Put_Line(Main1, "Le Tout puissant : " & WLine.all & "<br>");[m
			      
			      [31m--W_Io.Close(Main1);[m
			      
			      
			      [01;30mAdd_Line[m[31m([mHtml_buffer[31m,[m html_Buffer[31m.[mLine_Last[31m,[m [31m"Manuel : "[m [31m&[m Wline[31m.[m[01;34mall[m [31m&[m [31m"<br>"[m[31m);[m
			      
	 		      [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer[31m.[mLine_Last[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
			      

	 		      [01;34mif[m Total_Lines[31m+[m[35m2[m [31m>=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mH[31m-[m[35m2[m [01;34mthen[m
	 			 Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m+[m Wline'Length[31m/([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mW[31m-[m[35m2[m[31m);[m
	 		      [01;34mend[m [01;34mif[m[31m;[m

	 		   [01;34melse[m

	 		      App[31m.[mInput [31m:=[m [01;30mstring2Input[m [31m([m[31m""[m[31m,[m App[31m.[mwords[31m);[m
			      
	 		      [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m""[m[31m);[m			      

	 		      [01;34mif[m Total_Lines[31m+[m[35m2[m [31m>=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mH[31m-[m[35m2[m [01;34mthen[m
	 			 Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m+[m [35m1[m[31m;[m
	 		      [01;34mend[m [01;34mif[m[31m;[m
	 		   [01;34mend[m [01;34mif[m[31m;[m

	 		   [01;30mWide_Free[m[31m([mWline[31m);[m
	 		   Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
	 		   Current_Pos [31m:=[m [35m1[m[31m;[m
			   

	 		   [01;34mdeclare[m
	 		      [31m--Request : Neural_Retrain.Request_NN;[m
	 		   [01;34mbegin[m

	 		      [31m--Request.Respond (App.Input, App.Output);[m
			       App[31m.[mOutput [31m:=[m Neural_Retrain[31m.[m[01;30mRespond[m[31m([mApp[31m.[mInput[31m);[m
	 		   [01;34mexception[m
	 		      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 			 [01;34mnull[m[31m;[m
	 		   [01;34mend[m[31m;[m

	 		   App[31m.[mDialog_Response [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mOutput2string[m [31m([mApp[31m.[mOutput[31m,[m App[31m.[mWords[31m));[m
			   
			   [31m--W_Io.Open(Main1, W_Io.Append_File, "/var/www/html/dialog.html", Form => "WCEM=8");[m
			   

			   [31m--W_Io.Put_Line(Main1, "Chaos : " & App.Dialog_Response.all & "<br>");[m
			   [01;30mAdd_Line[m[31m([mHtml_buffer[31m,[m html_Buffer[31m.[mLine_Last[31m,[m [31m"Chaos : "[m [31m&[m [01;30mwebOutput2string[m [31m([mApp[31m.[mOutput[31m,[m App[31m.[mWords[31m)[m [31m&[m [31m"<br>"[m[31m);[m
			   [31m--W_Io.Put_Line(Main1, "Chaos : " & webOutput2string (App.Output, App.Words) & "<br>");[m
			   [31m--Errno := System("espeak """ & Handling.To_String(App.Dialog_Response.all) & """" & Character'Val(0));[m
			   [31m--W_Io.Close(Main1);[m

	 		   [01;34mdeclare[m
	 		      [31m--Request : Neural_Retrain.Request_NN;[m
	 		   [01;34mbegin[m

			      [31m--Request.Respond (Neural_Retrain.Input_Type(App.Output), App.Feedback);[m
			      App[31m.[mFeedback [31m:=[m Neural_Retrain[31m.[m[01;30mRespond[m[31m([mNeural_Retrain[31m.[m[01;30mInput_Type[m[31m([mApp[31m.[mOutput[31m));[m
	 		   [01;34mexception[m
	 		      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 			 [01;34mnull[m[31m;[m
	 		   [01;34mend[m[31m;[m

	 		   App[31m.[mInternal [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mOutput2string[m[31m([mApp[31m.[mFeedback[31m,[m App[31m.[mWords[31m));[m
			   [31m--W_Io.Open(Main1, W_Io.Append_File, "/var/www/html/dialog.html", Form => "WCEM=8");[m

			   [31m--W_Io.Put_Line(Main1, "Chaos : " & App.Internal.all & "<br>");[m

			   [01;30mAdd_Line[m[31m([mHtml_buffer[31m,[m html_Buffer[31m.[mLine_Last[31m,[m [31m"Chaos : "[m [31m&[m [01;30mwebOutput2string[m [31m([mApp[31m.[mFeedback[31m,[m App[31m.[mWords[31m)[m [31m&[m [31m"<br>"[m[31m);[m
			   [31m--W_Io.Put_Line(Main1, "Chaos : " & webOutput2string(App.Feedback, App.Words) & "<br>");[m
			   
			   [31m--W_Io.Close(Main1);[m

			   [01;30mMake_Html[m[31m([mHtml_Buffer[31m);[m

			   
			   
	 		   Dialog_Initialized [31m:=[m True[31m;[m

	 		   [01;34mselect[m
			      
	 		      Deamon_Network[31m.[m[01;30mReceive[m[31m([mNeural_Retrain[31m.[m[01;30mInput_Type[m[31m([mApp[31m.[mFeedback[31m),[m
	 					     App[31m.[mInput[31m,[m App[31m.[mOutput[31m);[m

	 		      Neural_Retrain[31m.[m[01;30mTrain[m[31m([mApp[31m.[mSamples ' [01;34maccess[m[31m,[m Epoch_Max[31m,[m Conv[31m,[m Reuse[31m,[m Rms_Error[31m);[m

	 		   [01;34mor[m
	 		      [01;34mdelay[m [35m1.0[m[31m;[m
	 		   [01;34mend[m [01;34mselect[m[31m;[m
			   

	 		   App[31m.[mInput [31m:=[m Neural_Retrain[31m.[m[01;30mInput_Type[m[31m([mApp[31m.[mFeedback[31m);[m


			   
			   
	 		   [31m--------------------------------------------------[m
	 		   [31m--          Drawing the results                 --[m
	 		   [31m--------------------------------------------------[m
			   
	 		   Dialog_Lock[31m.[mSeize[31m;[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m);[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m);[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m);[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m);[m

	 		   [01;34mif[m App[31m.[mDialog_Response [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m App[31m.[mDialog_Response'Length [31m/=[m [35m0[m [01;34mthen[m
	 		      [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer[31m.[mLine_Last[31m,[m App[31m.[mDialog_Response[31m.[m[01;34mall[m[31m);[m			   			   
	 		      [01;34mif[m Total_Lines[31m+[m[35m2[m [31m>=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mH[31m-[m[35m2[m [01;34mthen[m
	 			 Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m+[m App[31m.[mDialog_Response'Length[31m/([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mW[31m-[m[35m2[m[31m)[m [31m+[m [35m1[m[31m;[m
	 		      [01;34mend[m [01;34mif[m[31m;[m
	 		      Total [31m:=[m [35m0[m[31m;[m
	 		      [01;30mAdd_Line[m[31m([mApp[31m.[mResponse_Buffer[31m,[m App[31m.[mResponse_Buffer[31m.[mLine_Last[31m,[m App[31m.[mDialog_Response[31m.[m[01;34mall[m[31m);[m
	 		      [01;34mif[m [01;30mPrint_Set[m[31m([mApp[31m.[mResponse_Buffer[31m,[m App[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m,[m [35m0[m[31m,[m Total[31m)[m [01;34mthen[m
	 			 [01;34mnull[m[31m;[m
	 		      [01;34mend[m [01;34mif[m[31m;[m
	 		   [01;34melse[m
	 		      [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer[31m.[mLine_Last[31m,[m [31m""[m[31m);[m	      			      
			      
	 		      [01;34mif[m Total_Lines[31m+[m[35m2[m [31m>=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mH[31m-[m[35m2[m [01;34mthen[m
	 			 Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m+[m [35m1[m[31m;[m
	 		      [01;34mend[m [01;34mif[m[31m;[m
	 		      Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 		   [01;34mend[m [01;34mif[m[31m;[m

			   
			   
	 		   [01;34mif[m App[31m.[mInternal [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m App[31m.[mInternal'Length [31m/=[m [35m0[m [01;34mthen[m
	 		      [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer[31m.[mLine_Last[31m,[m App[31m.[mInternal[31m.[m[01;34mall[m[31m);[m
			      
	 		      [01;34mif[m Total_Lines[31m+[m[35m2[m [31m>=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mH[31m-[m[35m2[m [01;34mthen[m
	 			 Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m+[m App[31m.[minternal'Length[31m/([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mW[31m-[m[35m2[m[31m)[m [31m+[m [35m1[m[31m;[m
	 		      [01;34mend[m [01;34mif[m[31m;[m
	 		      Total [31m:=[m [35m0[m[31m;[m
	 		      [01;30mAdd_Line[m[31m([mApp[31m.[mInternal_Buffer[31m,[m Total[31m,[m App[31m.[mInternal[31m.[m[01;34mall[m[31m);[m
	 		      [01;34mif[m [01;30mPrint_Set[m[31m([mApp[31m.[mInternal_Buffer[31m,[m App[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m,[m [35m0[m[31m,[m Total[31m)[m [01;34mthen[m
	 			 [01;34mnull[m[31m;[m
	 		      [01;34mend[m [01;34mif[m[31m;[m
			      
	 		   [01;34melse[m
	 		      [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m""[m[31m);[m			      
	 		      [01;34mif[m Total_Lines[31m+[m[35m2[m [31m>=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mH[31m-[m[35m2[m [01;34mthen[m
	 			 Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m+[m [35m1[m[31m;[m
	 		      [01;34mend[m [01;34mif[m[31m;[m
	 		      Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 		   [01;34mend[m [01;34mif[m[31m;[m

	 		   Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 		   Dialog_Lock[31m.[mRelease[31m;[m
	 		[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m  [31m=>[m
			   
	 		   [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
	 		   Dialog_Lock[31m.[mSeize[31m;[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mHeader[31m).[mWin[31m);[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m);[m
	 		   [31m-------------------------------------------------------------------[m
	 		   [31m--                  Drawing the windows titles                   --[m
	 		   [31m-------------------------------------------------------------------	    [m
	 		   Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m Green[31m,[m [31m"Input"[m[31m);[m
	 		   Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m Magenta[31m,[m [31m"Response"[m[31m);[m
	 		   Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m Yellow[31m,[m [31m"Internal"[m[31m);[m	    
	 		   Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m17[m[31m,[m [35m1[m[31m,[m Cyan[31m,[m [31m"Dialog"[m[31m);[m
	 		   Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mGlobal_View[31m).[mWin[31m,[m [35m5[m[31m,[m Columns[31m/[m[35m4[m[31m*[m[35m3[m[31m-[m[35m8[m[31m,[m Blue[31m,[m [31m"Samples/Glossary"[m[31m);[m
			   
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m);[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m);[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m);[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m);[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m);[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m);[m
	 		   [01;34mcase[m View [01;34mis[m
	 		      [01;34mwhen[m False [31m=>[m			
	 			 [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mSamples_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m Samples_Index[31m,[m Total[31m)[m [01;34mthen[m
	 			    [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during samples printing !"[m[31m);[m
	 			 [01;34mend[m [01;34mif[m[31m;[m
	 		      [01;34mwhen[m True [31m=>[m
				 
	 			 [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mGlossary_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m glossary_Index[31m,[m Total[31m)[m [01;34mthen[m
	 			    [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during glossary printing !"[m[31m);[m
	 			 [01;34mend[m [01;34mif[m[31m;[m
	 		   [01;34mend[m [01;34mcase[m[31m;[m
	 		   Dialog_Lock[31m.[mRelease[31m;[m
	 		[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
	 		   [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
	 		     Wline'Length [31m>[m [35m0[m [01;34mthen[m
	 		      [01;34mif[m Current_Pos [31m>[m [35m1[m [01;34mthen[m
	 			 [01;34mcase[m Is_Overwrite [01;34mis[m
	 			    [01;34mwhen[m False [31m=>[m
	 			       [01;34mif[m Current_Pos [31m>[m [35m2[m [01;34mthen[m
	 				  [01;34mif[m Wline'Length [31m>=[m [35m2[m [01;34mthen[m
	 				     Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([m[35m1[m[31m..[mCurrent_Pos[31m-[m[35m2[m[31m));[m
	 				     [01;34mif[m Current_Pos [31m<=[m Wline'Length [01;34mthen[m
	 					Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m [01;30mWline[m[31m([mCurrent_Pos[31m..[mWline'Last[31m));[m
	 				     [01;34melse[m
	 					Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
	 				     [01;34mend[m [01;34mif[m[31m;[m
	 				  [01;34melse[m
	 				     Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([m[35m1[m[31m..[mCurrent_Pos[31m-[m[35m2[m[31m));[m
	 				     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
	 				  [01;34mend[m [01;34mif[m[31m;[m
	 			       [01;34melsif[m Current_Pos [31m=[m [35m2[m [01;34mthen[m
	 				  [01;34mif[m Wline'Length [31m>=[m [35m2[m [01;34mthen[m
	 				     Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mCurrent_pos[31m..[mWline'Length[31m));[m
	 				     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
	 				  [01;34melse[m
	 				     Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
	 				  [01;34mend[m [01;34mif[m[31m;[m
	 			       [01;34mend[m [01;34mif[m[31m;[m				       				       
	 			       [01;30mWide_Free[m[31m([mWline[31m);[m
	 			       Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
	 			       [01;30mWide_Free[m[31m([mWbuffer[31m);[m					  
	 			       [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
	 			       Current_Pos [31m:=[m Current_Pos [31m-[m [35m1[m[31m;[m				       
	 			       Wline_Length [31m:=[m Wline_Length [31m-[m [35m1[m[31m;[m
	 			    [01;34mwhen[m True [31m=>[m
	 			       Wide_Fixed[31m.[m[01;30mReplace_Slice[m [31m([mWline[31m.[m[01;34mall[m[31m,[m Current_Pos[31m-[m[35m1[m[31m,[m Current_Pos[31m-[m[35m1[m[31m,[m [31m" "[m[31m);[m
	 			       Current_Pos [31m:=[m Current_Pos [31m-[m [35m1[m[31m;[m
	 			 [01;34mend[m [01;34mcase[m[31m;[m
	 		      [01;34melse[m

	 			 W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 		      [01;34mend[m [01;34mif[m[31m;[m			      
	 		   [01;34melse[m
	 		      W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 		      [31m-- beep...[m
	 		   [01;34mend[m [01;34mif[m[31m;[m
			   
	 		[01;34mwhen[m [01;34mothers[m [31m=>[m
	 		   [01;34mnull[m[31m;[m
	 	     [01;34mend[m [01;34mcase[m[31m;[m
	 	  [01;34melsif[m [01;30mIs_Special[m[31m([mWchar[31m)[m [01;34mthen[m
	 	     [01;34mcase[m Wchar [01;34mis[m
	 		[01;34mwhen[m [31m'!'[m [31m|[m [31m';'[m [31m|[m [31m'.'[m [31m|[m [31m'''[m [31m|[m [31m'?'[m [31m|[m [31m' '[m [31m|[m [31m'_'[m [31m|[m [31m'-'[m [31m=>[m
	 		   [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
	 		     Wline'Length [31m<[m Wchar_Max [01;34mthen[m
	 		      [01;34mif[m Current_Pos [31m=[m Wline'Length[31m+[m[35m1[m [01;34mthen[m
	 			 Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWline[31m.[m[01;34mall[m [31m&[m Wchar[31m);[m
	 			 [01;30mWide_Free[m[31m([mWline[31m);[m
	 			 Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
	 			 [01;30mWide_Free[m[31m([mWbuffer[31m);[m
	 			 Wline_Length [31m:=[m Wline_Length [31m+[m [35m1[m[31m;[m
	 			 Current_Pos [31m:=[m Current_Pos [31m+[m [35m1[m[31m;[m
	 		      [01;34melse[m
	 			 [01;34mif[m Current_Pos [31m>[m [35m2[m [01;34mthen[m
	 			    [01;34mif[m [01;34mnot[m Is_Overwrite [01;34mthen[m
	 			       Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([m[35m1[m[31m..[mCurrent_Pos[31m-[m[35m1[m[31m));[m
	 			       Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m Wchar [31m&[m [01;30mWline[m[31m([mCurrent_Pos[31m..[mWline'Last[31m));[m
	 			       [01;30mWide_Free[m[31m([mWline[31m);[m
	 			       Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
	 			       [01;30mWide_Free[m[31m([mWbuffer[31m);[m					  
	 			       [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
	 			       Wline_Length [31m:=[m Wline_Length [31m+[m [35m1[m[31m;[m
	 			       Current_Pos [31m:=[m Current_Pos [31m+[m [35m1[m[31m;[m
	 			    [01;34melse[m
	 			       Wide_Fixed[31m.[m[01;30mReplace_Slice[m [31m([mWline[31m.[m[01;34mall[m[31m,[m Current_Pos[31m,[m Current_Pos[31m,[m Wchar [31m&[m [31m""[m[31m);[m
	 			       Current_Pos [31m:=[m Current_Pos [31m+[m [35m1[m[31m;[m
	 			    [01;34mend[m [01;34mif[m[31m;[m
				    
				    
	 			 [01;34melsif[m [01;34mnot[m Is_Overwrite [01;34mthen[m
				    
	 			    Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWchar [31m&[m Wline[31m.[m[01;34mall[m[31m);[m
	 			    [01;30mWide_Free[m[31m([mWline[31m);[m
	 			    Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
	 			    [01;30mWide_Free[m[31m([mWbuffer[31m);[m
	 			    Wline_Length [31m:=[m Wline_Length [31m+[m [35m1[m[31m;[m
	 			    Current_Pos [31m:=[m Current_Pos [31m+[m [35m1[m[31m;[m
	 			 [01;34melse[m
	 			    Wide_Fixed[31m.[m[01;30mReplace_Slice[m [31m([mWline[31m.[m[01;34mall[m[31m,[m Current_Pos[31m,[m Current_Pos[31m,[m Wchar [31m&[m [31m""[m[31m);[m				       
	 			    Current_Pos [31m:=[m Current_Pos [31m+[m [35m1[m[31m;[m
	 			 [01;34mend[m [01;34mif[m[31m;[m
	 		      [01;34mend[m [01;34mif[m[31m;[m
			      
	 		   [01;34melse[m
	 		      W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 		      [31m-- beep...[m
	 		   [01;34mend[m [01;34mif[m[31m;[m
			   
			   
	 		[01;34mwhen[m [01;34mOthers[m [31m=>[m
	 		   W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 		   [31m-- beep...[m
	 	     [01;34mend[m [01;34mcase[m[31m;[m
		     
	 	  [01;34melsif[m [01;30mIs_Digit[m[31m([mWchar[31m)[m [01;34mthen[m
	 	     W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 	     [31m-- beep...[m
		     
	 	  [01;34melse[m
	 	     [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
	 	       Wline'Length [31m<[m Wchar_Max [01;34mthen[m
	 		[01;34mif[m Current_Pos [31m=[m Wline'Length [31m+[m [35m1[m [01;34mthen[m

	 		   Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWline[31m.[m[01;34mall[m [31m&[m Wchar[31m);[m
	 		   [01;30mWide_Free[m[31m([mWline[31m);[m
	 		   Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
	 		   [01;30mWide_Free[m[31m([mWbuffer[31m);[m			
	 		   Current_Pos [31m:=[m Current_Pos [31m+[m [35m1[m[31m;[m
	 		   Wline_Length [31m:=[m Wline_Length [31m+[m [35m1[m[31m;[m
	 		[01;34melse[m
	 		   [01;34mif[m Current_Pos [31m>[m [35m1[m [01;34mthen[m
	 		      [01;34mif[m [01;34mnot[m Is_Overwrite [01;34mthen[m

	 			 Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([m[35m1[m[31m..[mCurrent_Pos[31m-[m[35m1[m[31m));[m
	 			 Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m Wchar [31m&[m [01;30mWline[m[31m([mCurrent_Pos[31m..[mWline'Last[31m));[m
	 			 [01;30mWide_Free[m[31m([mWline[31m);[m
	 			 Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
	 			 [01;30mWide_Free[m[31m([mWbuffer[31m);[m					  
	 			 [01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m
	 			 Wline_Length [31m:=[m Wline_Length [31m+[m [35m1[m[31m;[m				 
	 			 Current_Pos [31m:=[m Current_Pos [31m+[m [35m1[m[31m;[m
	 		      [01;34melse[m

	 			 Wide_Fixed[31m.[m[01;30mReplace_Slice[m [31m([mWline[31m.[m[01;34mall[m[31m,[m Current_Pos[31m,[m Current_Pos[31m,[m Wchar [31m&[m [31m""[m[31m);[m
	 			 Current_Pos [31m:=[m Current_Pos [31m+[m [35m1[m[31m;[m
	 		      [01;34mend[m [01;34mif[m[31m;[m
			      
			      
	 		   [01;34melsif[m [01;34mnot[m Is_Overwrite [01;34mthen[m

	 		      Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWchar [31m&[m Wline[31m.[m[01;34mall[m[31m);[m
	 		      [01;30mWide_Free[m[31m([mWline[31m);[m
	 		      Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
	 		      [01;30mWide_Free[m[31m([mWbuffer[31m);[m
	 		      Wline_Length [31m:=[m Wline_Length [31m+[m [35m1[m[31m;[m			      
	 		      Current_Pos [31m:=[m Current_Pos [31m+[m [35m1[m[31m;[m
	 		   [01;34melse[m
	 		      Wide_Fixed[31m.[m[01;30mReplace_Slice[m [31m([mWline[31m.[m[01;34mall[m[31m,[m Current_Pos[31m,[m Current_Pos[31m,[m Wchar [31m&[m [31m""[m[31m);[m 
	 		      Current_Pos [31m:=[m Current_Pos [31m+[m [35m1[m[31m;[m
	 		   [01;34mend[m [01;34mif[m[31m;[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 	     [01;34melse[m
	 		W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 		[31m-- beep...[m
	 	     [01;34mend[m [01;34mif[m[31m;[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
		  

	 	  [31m-------------------------------------------------------------------[m
	 	  [31m--                  Drawing the diallog buffer                   --[m
	 	  [31m-------------------------------------------------------------------			   [m
	 	  Dialog_Lock[31m.[mSeize[31m;[m
		  

	 	  [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mDialog_Buffer[31m,[m 
	 			   App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m,[m
	 			   Dialog_Buffer_Index[31m,[m Total_lines[31m)[m [01;34mthen[m
	 	     [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during dialog printing !"[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m

	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m);[m
	 	  [31m-------------------------------------------------------------------[m
	 	  [31m--                       Drawing the states                      --[m
	 	  [31m-------------------------------------------------------------------[m

	 	  [01;34mif[m App[31m.[mOn_Esc [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"one esc to quit"[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"two esc to quit"[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  Word_Number [31m:=[m [01;30mWord_Count[m[31m([mWline[31m.[m[01;34mall[m[31m,[m [32mInteger[m[31m([m[35m80[m[31m));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m White[31m,[m [31m" ; Alphabet"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m Red[31m,[m [31m" : "[m[31m);[m
		  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m




	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mApp[31m.[mColumns[31m-[m[35m5[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m((([mApp[31m.[mColumns[31m-[m [35m5[m[31m)[m [31m-[m Wline_Length[31m))));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; word max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mWord_Range'[01;30mImage[m[31m([m[35m80[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Word number"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mWord_Range'[01;30mImage[m[31m([mWord_Number[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Lines count"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m64[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m66[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([mDialog_Buffer_Last[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m71[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m83[m[31m,[m White[31m,[m [31m" : "[m[31m);[m	    
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m86[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		  
		  
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m);[m

	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m

	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  Dialog_Lock[31m.[mRelease[31m;[m

	       [01;34mend[m Receive[31m;[m
	       [01;34mif[m End_Of_Program [01;34mthen[m
	 	  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m);[m
	 	  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m3[m[31m);[m
	 	  App[31m.[mMode [31m:=[m Planning[31m;[m
	 	  End_Of_Program [31m:=[m False[31m;[m
	 	  [01;34mexit[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Page_Down [01;34mdo[m
	 	  [01;34mcase[m View [01;34mis[m
	 	     [01;34mwhen[m False [31m=>[m [31m-- samples view[m
	 		[01;34mif[m Samples_Index [31m<[m Samples_Last [01;34mthen[m
	 		   Samples_Index [31m:=[m Positive'[01;30mMin[m[31m([mSamples_Index [31m+[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m+[m[35m1[m[31m,[m Samples_Last[31m);[m
	 		[01;34melse[m
	 		   Samples_Index [31m:=[m Samples_Last[31m;[m
	 		   Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 	     [01;34mwhen[m True [31m=>[m [31m-- glossary view[m
	 		[01;34mif[m Glossary_Index [31m<[m Glossary_Last [01;34mthen[m
	 		   Glossary_Index [31m:=[m Positive'[01;30mMin[m[31m([mGlossary_Index [31m+[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m+[m[35m1[m[31m,[m Glossary_Last[31m);[m
	 		[01;34melse[m
	 		   Glossary_Index [31m:=[m Glossary_Last[31m;[m
	 		   Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 	  [01;34mend[m [01;34mcase[m[31m;[m
	 	  Dialog_Lock[31m.[mSeize[31m;[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m);[m
	 	  [01;34mcase[m View [01;34mis[m
	 	     [01;34mwhen[m False [31m=>[m			
	 		[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mSamples_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m Samples_Index[31m,[m Total[31m)[m [01;34mthen[m
	 		   [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during samples printing !"[m[31m);[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 	     [01;34mwhen[m True [31m=>[m			
	 		[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mGlossary_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m glossary_Index[31m,[m Total[31m)[m [01;34mthen[m
	 		   [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during glossary printing !"[m[31m);[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 	  [01;34mend[m [01;34mcase[m[31m;[m
		  
	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m

	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  Dialog_Lock[31m.[mRelease[31m;[m
	       [01;34mend[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up [01;34mdo[m
	 	  [01;34mcase[m View [01;34mis[m
	 	     [01;34mwhen[m False [31m=>[m [31m-- samples view[m
	 		[01;34mif[m Samples_Index [31m>[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m.[mWin[31m.[mH[31m/[m[35m2[m [01;34mthen[m
	 		   Samples_Index [31m:=[m Positive'[01;30mMin[m[31m([mSamples_Index [31m-[m [31m([mApp[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m-[m[35m1[m[31m),[m Samples_Last[31m);[m
	 		[01;34melse[m
	 		   Samples_Index [31m:=[m [35m0[m[31m;[m
	 		   Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 		[01;34mend[m [01;34mif[m[31m;[m
			
	 	     [01;34mwhen[m True [31m=>[m [31m-- glossary view[m
	 		[01;34mif[m Glossary_Index [31m>[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m.[mH [01;34mthen[m
	 		   Glossary_Index [31m:=[m Positive'[01;30mMin[m[31m([mGlossary_Index [31m-[m [31m([mApp[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m.[mWin[31m.[mH[31m/[m[35m2[m[31m-[m[35m1[m[31m),[m Glossary_Last[31m);[m
	 		[01;34melse[m
	 		   Glossary_Index [31m:=[m [35m0[m[31m;[m
	 		   Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 	  [01;34mend[m [01;34mcase[m[31m;[m
	 	  Dialog_Lock[31m.[mSeize[31m;[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m);[m
	 	  [01;34mcase[m View [01;34mis[m
	 	     [01;34mwhen[m False [31m=>[m			
	 		[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mSamples_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m Samples_Index[31m,[m Total[31m)[m [01;34mthen[m
	 		   [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during samples printing !"[m[31m);[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 	     [01;34mwhen[m True [31m=>[m
			
	 		[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mGlossary_Set[31m,[m App[31m.[m[01;30mFrames[m[31m([mRight_View[31m).[mWin[31m,[m glossary_Index[31m,[m Total[31m)[m [01;34mthen[m
	 		   [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during glossary printing !"[m[31m);[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 	  [01;34mend[m [01;34mcase[m[31m;[m
		  
	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m

	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
		  
	 	  Dialog_Lock[31m.[mRelease[31m;[m
	       [01;34mend[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
	 	  [01;34mif[m Dialog_Buffer_index [31m>[m [35m0[m [01;34mthen[m
	 	     Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m-[m [35m1[m[31m;[m
	 	  [01;34melse[m
	 	     Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  Dialog_Lock[31m.[mSeize[31m;[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m);[m
	 	  [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mDialog_Buffer[31m,[m 
	 			   App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m,[m
	 			   Dialog_Buffer_Index[31m,[m
	 			   Total_lines[31m)[m [01;34mthen[m
	 	     [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during dialog printing !"[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
		  
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  Dialog_Lock[31m.[mRelease[31m;[m
	       [01;34mend[m Up_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
	 	  [01;34mif[m Dialog_Buffer_Index [31m<[m Dialog_Buffer_Last [01;34mthen[m
	 	     Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m+[m [35m1[m[31m;[m
	 	  [01;34melse[m
	 	     Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  Dialog_Lock[31m.[mSeize[31m;[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m);[m
	 	  [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mDialog_Buffer[31m,[m 
	 			   App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m,[m
	 			   Dialog_Buffer_Index[31m,[m
	 			   Total_lines[31m)[m [01;34mthen[m
	 	     [01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during dialog printing !"[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
		  
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  Dialog_Lock[31m.[mRelease[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow [01;34mdo[m
	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m>[m [35m0[m [01;34mthen[m
	 	     [01;34mif[m Current_Pos [31m>[m [35m1[m [01;34mthen[m
			
	 		Current_Pos [31m:=[m Current_Pos [31m-[m [35m1[m[31m;[m
			
	 		Dialog_Lock[31m.[mSeize[31m;[m
	 		Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m);[m
	 		[01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 		   Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 		[01;34melse[m
	 		   Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 		Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 		Dialog_Lock[31m.[mRelease[31m;[m
			
	 	     [01;34melse[m
	 		Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 	     [01;34mend[m [01;34mif[m[31m;[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow [01;34mdo[m
	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m>[m [35m0[m [01;34mthen[m
	 	     [01;34mif[m Current_Pos [31m<[m Wline'Length[31m+[m[35m1[m [01;34mthen[m
	 		[01;34mif[m Wline'Length [31m>=[m [35m1[m [01;34mthen[m
			   
	 		   Current_Pos [31m:=[m Current_Pos[31m+[m[35m1[m[31m;[m
			   
	 		   Dialog_Lock[31m.[mSeize[31m;[m
	 		   Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m);[m
	 		   [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 		      Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 		   [01;34melse[m
	 		      Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 		   [01;34mend[m [01;34mif[m[31m;[m
	 		   Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 		   Dialog_Lock[31m.[mRelease[31m;[m
	 		[01;34melse[m
	 		   Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 	     [01;34melse[m
	 		Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 	     [01;34mend[m [01;34mif[m[31m;[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Right_Arrow[31m;[m
	       [31m--or[m
	       [31m--accept Full_Screen;[m
	    [01;34mor[m
	       [01;34maccept[m Del [01;34mdo[m
	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
	 	    Wline'Length [31m>[m [35m0[m [01;34mthen[m
	 	     [01;34mif[m Current_Pos [31m<[m Wline'length [01;34mthen[m
	 		[01;34mif[m Current_Pos [31m>[m [35m1[m [01;34mthen[m
	 		   Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([m[35m1[m[31m..[mCurrent_Pos[31m-[m[35m1[m[31m));[m
	 		   Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m [31m&[m [01;30mWline[m[31m([mCurrent_Pos[31m+[m[35m1[m[31m..[mWline'Length[31m));[m
	 		[01;34melse[m 
	 		   Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mCurrent_Pos[31m+[m[35m1[m[31m..[mWline'length[31m));[m
	 		   Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 		[01;30mWide_Free[m[31m([mWline[31m);[m
	 		Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
	 		[01;30mWide_Free[m[31m([mWbuffer[31m);[m					  
	 		[01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m		     
	 		Wline_Length [31m:=[m Wline_Length [31m-[m [35m1[m[31m;[m			
	 	     [01;34melsif[m Current_Pos [31m=[m Wline'length [01;34mthen[m
			
	 		Left_Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'First[31m..[mCurrent_Pos[31m-[m[35m1[m[31m));[m
	 		Wbuffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLeft_Buffer[31m.[m[01;34mall[m[31m);[m
	 		[01;30mWide_Free[m[31m([mWline[31m);[m
	 		Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWbuffer[31m.[m[01;34mall[m[31m);[m
	 		[01;30mWide_Free[m[31m([mWbuffer[31m);[m					  
	 		[01;30mWide_Free[m[31m([mLeft_Buffer[31m);[m		     
	 		Wline_Length [31m:=[m Wline_Length [31m-[m [35m1[m[31m;[m			
	 	     [01;34melse[m
	 		Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 	     [01;34mend[m [01;34mif[m[31m;[m
		     
	 	  [01;34melse[m
	 	     Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  Dialog_Lock[31m.[mSeize[31m;[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m);[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m);[m
	 	  [01;34mif[m App[31m.[mOn_Esc [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"one esc to quit"[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"two esc to quit"[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  Word_Number [31m:=[m [01;30mWord_Count[m[31m([mWline[31m.[m[01;34mall[m[31m,[m [32mInteger[m[31m([m[35m80[m[31m));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m White[31m,[m [31m" ; Alphabet"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m Red[31m,[m [31m" : "[m[31m);[m
		  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m




	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mApp[31m.[mColumns[31m-[m[35m5[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m((([mApp[31m.[mColumns[31m-[m [35m5[m[31m)[m [31m-[m Wline_Length[31m))));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; word max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mWord_Range'[01;30mImage[m[31m([m[35m80[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Word number"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mWord_Range'[01;30mImage[m[31m([mWord_Number[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Lines count"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m64[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m66[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([mDialog_Buffer_Last[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m71[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m83[m[31m,[m White[31m,[m [31m" : "[m[31m);[m	    
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m86[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		  
		  
	 	  [31m------------------------------------------------------------------[m
	 	  [31m--                   Drawing then dialog info                  --[m
	 	  [31m------------------------------------------------------------------[m
	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m

	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  Dialog_Lock[31m.[mRelease[31m;[m
	       [01;34mend[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of [01;34mdo[m
	 	  Current_Pos [31m:=[m [35m1[m[31m;[m
	 	  Dialog_Lock[31m.[mSeize[31m;[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m);[m
	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
		  
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  Dialog_Lock[31m.[mRelease[31m;[m		 
	       [01;34mend[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of [01;34mdo[m
	 	  Current_Pos [31m:=[m Wline'Length [31m+[m [35m1[m[31m;[m
	 	  Dialog_Lock[31m.[mSeize[31m;[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m);[m
	 	  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Wline'Length [31m/=[m [35m0[m [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
		  
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  Dialog_Lock[31m.[mRelease[31m;[m		 
	       [01;34mend[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite [01;34mdo[m
	 	  Is_Overwrite [31m:=[m [01;34mnot[m Is_Overwrite[31m;[m
	 	  Dialog_Lock[31m.[mSeize[31m;[m
	 	  Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m);[m
	 	  [01;34mif[m App[31m.[mOn_Esc [01;34mthen[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"one esc to quit"[m[31m);[m
	 	  [01;34melse[m
	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"two esc to quit"[m[31m);[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	 	  Word_Number [31m:=[m [01;30mWord_Count[m[31m([mWline[31m.[m[01;34mall[m[31m,[m [32mInteger[m[31m([m[35m80[m[31m));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m22[m[31m,[m White[31m,[m [31m" ; Alphabet"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m33[m[31m,[m Red[31m,[m [31m" : "[m[31m);[m
		  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m1[m[31m,[m [35m36[m[31m,[m yellow[31m,[m Alphabet[31m);[m




	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Chars max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m20[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mApp[31m.[mColumns[31m-[m[35m5[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Cyan[31m,[m [31m"Char(s) left"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m17[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m20[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m((([mApp[31m.[mColumns[31m-[m [35m5[m[31m)[m [31m-[m Wline_Length[31m))));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; word max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m39[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m43[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mWord_Range'[01;30mImage[m[31m([m[35m80[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m25[m[31m,[m Cyan[31m,[m [31m" ; Word number"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m39[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m43[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mWord_Range'[01;30mImage[m[31m([mWord_Number[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; lines max"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m64[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m2[m[31m,[m [35m66[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([m[35m2880[m[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m50[m[31m,[m Cyan[31m,[m [31m" ; Lines count"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m64[m[31m,[m White[31m,[m [31m" : "[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m66[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLine_Index_Range'[01;30mImage[m[31m([mDialog_Buffer_Last[31m)));[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m71[m[31m,[m Cyan[31m,[m [31m" ; Overwrite"[m[31m);[m
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m83[m[31m,[m White[31m,[m [31m" : "[m[31m);[m	    
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mBuffer[31m).[mWin[31m,[m [35m3[m[31m,[m [35m86[m[31m,[m Magenta[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mIs_Overwrite[31m)));[m
		  
		  
		  
	 	  Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 	  Dialog_Lock[31m.[mRelease[31m;[m
	       [01;34mend[m Overwrite[31m;[m
	       [31m--or[m
	       [31m--accept Full_Screen;[m
	       [31m--or[m
	       [31m--accept New_Evidence;[m
	       [31m--or[m
	       [31m-- accept Shutdown do[m
	       [01;34mnull[m[31m;[m
	       [31m--  end shutdown;[m
	    [01;34mor[m
	       [01;34maccept[m Dialog [01;34mdo[m
		  
		  
	 	  [01;34mif[m Dialog_Initialized [01;34mthen[m
		     
	 	     [01;34mdeclare[m
	 		[31m--Request : Neural_Retrain.Request_NN;		  [m
	 	     [01;34mbegin[m
	 		[31m--Request.Respond (App.Input, App.Output);[m
	 		App[31m.[mOutput [31m:=[m Neural_Retrain[31m.[m[01;30mRespond[m[31m([mApp[31m.[mInput[31m);[m
	 	     [01;34mexception[m
	 		[01;34mwhen[m [01;34mothers[m [31m=>[m
	 		   [01;34mnull[m[31m;[m
	 	     [01;34mend[m[31m;[m
		     
	 	     App[31m.[mDialog_Response [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mOutput2string[m[31m([mApp[31m.[mOutput[31m,[m App[31m.[mWords[31m));[m
		     [31m--W_Io.Open(Main1, W_Io.Append_File, "/var/www/html/dialog.html", Form => "WCEM=8");[m
		     [31m--W_Io.Put_Line(Main1, "Chaos : " & App.Dialog_Response.all & "<br>");[m

		     [01;30mAdd_Line[m[31m([mHtml_buffer[31m,[m html_Buffer[31m.[mLine_Last[31m,[m [31m"Chaos : "[m [31m&[m [01;30mwebOutput2string[m [31m([mApp[31m.[mOutput[31m,[m App[31m.[mWords[31m)[m [31m&[m [31m"<br>"[m[31m);[m
		     [31m--W_Io.Put_Line(Main1, "Chaos : " & webOutput2string(App.Output, App.Words) & "<br>");[m
	 	     [01;34mdeclare[m
	 		[31m--Request : Neural_Retrain.Request_NN;[m
	 	     [01;34mbegin[m		  
	 		[31m--Request.Respond (Neural_Retrain.Input_Type(App.Output), App.Feedback);[m
	 		App[31m.[mFeedback [31m:=[m Neural_Retrain[31m.[m[01;30mRespond[m[31m([mNeural_Retrain[31m.[m[01;30mInput_Type[m[31m([mApp[31m.[mOutput[31m));[m
	 	     [01;34mexception[m
	 		[01;34mwhen[m [01;34mothers[m [31m=>[m
	 		   [01;34mnull[m[31m;[m
	 	     [01;34mend[m[31m;[m
		     
	 	     App[31m.[mInternal [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mOutput2String[m[31m([mApp[31m.[mFeedback[31m,[m App[31m.[mWords[31m));[m
		     [31m--W_Io.Put_Line(Main1, "Chaos : " & App.internal.all & "<br>");[m

		     [01;30mAdd_Line[m[31m([mHtml_buffer[31m,[m html_Buffer[31m.[mLine_Last[31m,[m [31m"Chaos : "[m [31m&[m [01;30mwebOutput2string[m [31m([mApp[31m.[mFeedback[31m,[m App[31m.[mWords[31m)[m [31m&[m [31m"<br>"[m[31m);[m
		     [31m--W_Io.Put_Line(Main1, "Chaos : " & webOutput2String(App.Feedback, App.Words) & "<br>");[m
		     
	 	     App[31m.[mInput [31m:=[m Neural_Retrain[31m.[m[01;30mInput_Type[m[31m([mApp[31m.[mFeedback[31m);[m
		     
		     [31m--W_Io.Close(Main1);[m

		     [01;30mMake_Html[m[31m([mHtml_Buffer[31m);[m

	 	     [31m--------------------------------------------------[m
	 	     [31m--          Drawing the results                 --[m
	 	     [31m--------------------------------------------------[m
	 	     Dialog_Lock[31m.[mSeize[31m;[m
	 	     Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m);[m
	 	     Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m);[m
	 	     Window[31m.[m[01;30mDraw_Window[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m);[m
		     
	 	     [01;34mif[m App[31m.[mDialog_Response [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m App[31m.[mDialog_Response'Length [31m/=[m [35m0[m [01;34mthen[m
	 		[01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer[31m.[mLine_Last[31m,[m App[31m.[mDialog_Response[31m.[m[01;34mall[m[31m);[m			   			   
	 		[01;34mif[m Total_Lines[31m+[m[35m2[m [31m>=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mH[31m-[m[35m2[m [01;34mthen[m
	 		   Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m+[m App[31m.[mDialog_Response'Length[31m/([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mW[31m-[m[35m2[m[31m)[m [31m+[m [35m1[m[31m;[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 		Total [31m:=[m [35m0[m[31m;[m
	 		[01;30mAdd_Line[m[31m([mApp[31m.[mResponse_Buffer[31m,[m App[31m.[mResponse_Buffer[31m.[mLine_Last[31m,[m App[31m.[mDialog_Response[31m.[m[01;34mall[m[31m);[m
	 		[01;34mif[m [01;30mPrint_Set[m[31m([mApp[31m.[mResponse_Buffer[31m,[m App[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m,[m [35m0[m[31m,[m Total[31m)[m [01;34mthen[m
	 		   [31m--Errno := System("espeak """ & Handling.To_String(App.Dialog_Response.all) & """" & Character'Val(0));[m
			   [01;34mnull[m[31m;[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 	     [01;34melse[m
	 		[01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer[31m.[mLine_Last[31m,[m [31m""[m[31m);[m	      			      
			
	 		[01;34mif[m Total_Lines[31m+[m[35m2[m [31m>=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mH[31m-[m[35m2[m [01;34mthen[m
	 		   Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m+[m [35m1[m[31m;[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 		Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mResp[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	     [01;34mend[m [01;34mif[m[31m;[m
	 	     [01;34mif[m App[31m.[mInternal [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m App[31m.[mInternal'Length [31m/=[m [35m0[m [01;34mthen[m
	 		[01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer[31m.[mLine_Last[31m,[m App[31m.[mInternal[31m.[m[01;34mall[m[31m);[m
			
	 		[01;34mif[m Total_Lines[31m+[m[35m2[m [31m>=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mH[31m-[m[35m2[m [01;34mthen[m
	 		   Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m+[m App[31m.[minternal'Length[31m/([mApp[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mW[31m-[m[35m2[m[31m)[m [31m+[m [35m1[m[31m;[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 		Total [31m:=[m [35m0[m[31m;[m
	 		[01;30mAdd_Line[m[31m([mApp[31m.[mInternal_Buffer[31m,[m Total[31m,[m App[31m.[mInternal[31m.[m[01;34mall[m[31m);[m
	 		[01;34mif[m [01;30mPrint_Set[m[31m([mApp[31m.[mInternal_Buffer[31m,[m App[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m,[m [35m0[m[31m,[m Total[31m)[m [01;34mthen[m
	 		   [31m--Errno := System("espeak """ & Handling.To_String(App.Internal.all) & """" & Character'Val(0));[m
			   [01;34mnull[m[31m;[m
	 		[01;34mend[m [01;34mif[m[31m;[m
			
	 	     [01;34melse[m
	 		[01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m""[m[31m);[m			      
	 		[01;34mif[m Total_Lines[31m+[m[35m2[m [31m>=[m App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m.[mWin[31m.[mH[31m-[m[35m2[m [01;34mthen[m
	 		   Dialog_Buffer_Index [31m:=[m Dialog_Buffer_Index [31m+[m [35m1[m[31m;[m
	 		[01;34mend[m [01;34mif[m[31m;[m
	 		Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mOutput[31m).[mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m""[m[31m);[m
	 	     [01;34mend[m [01;34mif[m[31m;[m			   
		     
	 	     [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mDialog_Buffer[31m,[m 
	 			      App[31m.[m[01;30mFrames[m[31m([mDialog_View[31m).[mWin[31m,[m
	 			      Dialog_Buffer_Index[31m,[m Total_lines[31m)[m [01;34mthen[m
	 		[01;30mAdd_Line[m[31m([mDialog_Buffer[31m,[m Dialog_Buffer_Last[31m,[m [31m"Error during dialog printing !"[m[31m);[m
	 	     [01;34mend[m [01;34mif[m[31m;[m

	 	     Window[31m.[m[01;30mDraw_Text[m[31m([mApp[31m.[m[01;30mFrames[m[31m([mInput[31m).[mWin[31m,[m [35m1[m[31m,[m Current_Pos[31m,[m White[31m,[m [31m""[m[31m);[m
	 	     Dialog_Lock[31m.[mRelease[31m;[m
	 	  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Dialog[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m	 
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
	 
      [01;34mend[m [01;34mloop[m Main_loop[31m;[m      

      [31m--W_Io.Put_Line("Library process halted");[m
   [01;34mend[m Vbrain_Process[31m;[m
   
   
   
   
   
   
   
   
   
   [01;34muse[m Projects_Dll[31m;[m
   
   [01;34mfunction[m [01;30mGet_Info[m[31m([mProjects [31m:[m [01;34min[m Projects_Record[31m;[m Project_Num [31m:[m [01;34min[m Project_Num_Range[31m)[m [01;34mreturn[m Project_Info_Record [01;34mis[m
      Curs [31m:[m Projects_Dll[31m.[mCursor[31m;[m
      First [31m:[m Projects_Dll[31m.[mCursor[31m;[m
   [01;34mbegin[m
      [01;34mif[m Projects_Dll[31m.[m[01;30mLength[m[31m([mProjects[31m.[mList[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	 Curs [31m:=[m Projects_Dll[31m.[m[01;30mFirst[m[31m([mProjects[31m.[mList[31m);[m
	 First [31m:=[m Curs[31m;[m
	 [01;34mloop[m
	    [01;34mdeclare[m
	       Current [31m:[m [01;34mconstant[m Project[31m.[mProject_Access [31m:=[m Projects_Dll[31m.[m[01;30mElement[m[31m([mCurs[31m);[m	       
	    [01;34mbegin[m
	       [01;34mif[m Current[31m.[mProject_Num [31m=[m Project_Num [01;34mthen[m
		  [01;34mreturn[m [01;30mProject_Info_Record[m[31m([mCurrent[31m.[m[01;34mall[m[31m);[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m[31m;[m
	    Curs [31m:=[m Projects_Dll[31m.[m[01;30mNext[m[31m([mCurs[31m);[m
	    [01;34mexit[m [01;34mwhen[m Curs [31m=[m First[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m [01;30mProject_Info_Record[m[31m([mNull_Project[31m);[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mreturn[m [01;30mProject_Info_Record[m[31m([mNull_Project[31m);[m
   [01;34mend[m Get_Info[31m;[m
   
   [01;34mfunction[m [01;30mGet_Project[m[31m([mProjects [31m:[m [01;34min[m Projects_Record[31m;[m Project_Num [31m:[m [01;34min[m Project_Num_Range[31m)[m [01;34mreturn[m Project[31m.[mProject_Access [01;34mis[m
      Curs [31m:[m Projects_Dll[31m.[mCursor[31m;[m
      
   [01;34mbegin[m

      [01;34mif[m Projects_Dll[31m.[m[01;30mLength[m[31m([mProjects[31m.[mList[31m)[m [31m/=[m [35m0[m [01;34mthen[m

	 Curs [31m:=[m Projects_Dll[31m.[m[01;30mFirst[m[31m([mProjects[31m.[mList[31m);[m

	 [01;34mfor[m Ier [01;34min[m [35m1[m[31m..[mProjects_Dll[31m.[m[01;30mLength[m[31m([mProjects[31m.[mList[31m)[m [01;34mloop[m
	    [01;34mdeclare[m
	       Current [31m:[m [01;34mconstant[m Project[31m.[mProject_Access [31m:=[m Projects_Dll[31m.[m[01;30mElement[m[31m([mCurs[31m);[m	       
	    [01;34mbegin[m

	       [01;34mif[m Current[31m.[mProject_Num [31m=[m Project_Num [01;34mthen[m

		  [01;34mreturn[m Current[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m[31m;[m

	    Curs [31m:=[m Projects_Dll[31m.[m[01;30mNext[m[31m([mCurs[31m);[m

	 [01;34mend[m [01;34mloop[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mreturn[m [01;34mnull[m[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mreturn[m [01;34mnull[m[31m;[m
   [01;34mend[m Get_Project[31m;[m
   
   
   [01;34mprocedure[m [01;30mComponent_Info_Draw[m [31m([mName   [31m:[m [01;34min[m [32mString[m[31m;[m
				  Line_Pos [31m:[m [01;34min[m Line_Range[31m;[m
				  Width    [31m:[m [01;34min[m Column_Range[31m;[m
				  Top      [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine_Pos[31m,[m Top[31m+[m[35m2[m[31m,[m [35m3[m[31m,[m Width[31m,[m Cyan[31m,[m The_Window[31m);[m
   [01;34mbegin[m

      [01;30mInitialize[m[31m([mWin[31m,[m Line_Pos[31m,[m Top[31m+[m[35m2[m[31m,[m [35m3[m[31m,[m Width[31m,[m Cyan[31m,[m Yellow[31m);[m

      [01;30mDraw_Window[m[31m([mWin[31m);[m

      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Library name : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mName[31m));[m

   [01;34mend[m Component_Info_Draw[31m;[m
   [01;34mprocedure[m [01;30mEnlight_Component_Info_Draw[m [31m([mName [31m:[m [01;34min[m [32mString[m[31m;[m
					  Line_Pos [31m:[m [01;34min[m Line_Range[31m;[m
					  Width    [31m:[m [01;34min[m Column_Range[31m;[m
					  Top      [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine_Pos[31m,[m Top[31m+[m[35m2[m[31m,[m [35m3[m[31m,[m Width[31m,[m Cyan[31m,[m The_Window[31m);[m
   [01;34mbegin[m

      [01;30mInitialize[m[31m([mWin[31m,[m Line_Pos[31m,[m Top[31m+[m[35m2[m[31m,[m [35m3[m[31m,[m Width[31m,[m Yellow[31m,[m Yellow[31m);[m

      [01;30menlight_Window[m[31m([mWin[31m);[m

      [01;30mPut[m[31m([mNormal_Mode[31m);[m

      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Library name : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mName[31m));[m

   [01;34mend[m Enlight_Component_Info_Draw[31m;[m
   
   [01;34mprocedure[m [01;30mComponents_Print[m[31m([mProject [31m:[m [01;34min[m Project_Record[31m;[m
			      Component_Index [31m:[m [01;34min[m Natural[31m;[m 			       
			      Highlighted [31m:[m [01;34min[m Natural[31m;[m
			      lines       [31m:[m [01;34min[m Line_Range[31m;[m
			      columns       [31m:[m [01;34min[m Column_Range[31m;[m
			      Top           [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
      Line_Pos [31m:[m Line_Range [31m:=[m [35m7[m[31m;[m
   [01;34mbegin[m

      [01;34mif[m Project[31m.[mLib_Last [31m>[m [35m0[m [01;34mthen[m

	 [01;34mfor[m Iter [01;34min[m Component_Index[31m+[m[35m1[m [31m..[m Project[31m.[mLib_Last [01;34mloop[m

	    [01;34mdeclare[m
	       Libname [31m:[m [01;34mconstant[m Os_Lib[31m.[mString_Access [31m:=[m Project[31m.[m[01;30mLibs[m[31m([mIter[31m).[mUnit_Name[31m;[m
	    [01;34mbegin[m

	       [01;34mif[m Libname [31m/=[m [01;34mnull[m [01;34mthen[m

		  [01;34mif[m Highlighted [31m/=[m [35m0[m [01;34mand[m Iter [31m=[m Highlighted [01;34mthen[m		     

		     [01;30mEnlight_Component_Info_Draw[m[31m([mLibname[31m.[m[01;34mall[m[31m,[m Line_Pos[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m top[31m);[m

		  [01;34melse[m

		     [01;30mComponent_Info_Draw[m[31m([mLibname[31m.[m[01;34mall[m[31m,[m Line_Pos[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m top[31m);[m

		  [01;34mend[m [01;34mif[m[31m;[m
		  Line_Pos [31m:=[m Line_Pos [31m+[m [35m3[m[31m;[m
		  [01;34mexit[m [01;34mwhen[m Line_Pos [31m>=[m Lines [31m+[m [35m7[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m

	    [01;34mend[m[31m;[m
	    
	 [01;34mend[m [01;34mloop[m[31m;[m

      [01;34mend[m [01;34mif[m[31m;[m

   [01;34mend[m Components_Print[31m;[m

   
   [01;34mprocedure[m [01;30mArchive_Info_Draw[m [31m([mInfo [31m:[m [01;34min[m Project_Info_Record[31m;[m
				Line_Pos [31m:[m [01;34min[m Line_Range[31m;[m
				Width    [31m:[m [01;34min[m Column_Range[31m;[m
				Top      [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine_Pos[31m,[m Top [31m+[m [35m2[m[31m,[m [35m5[m[31m,[m Width[31m,[m Blue[31m,[m The_Window[31m);[m
      
      
   [01;34mbegin[m
      [01;30mInitialize[m[31m([mWin[31m,[m Line_Pos[31m,[m Top[31m+[m[35m2[m[31m,[m [35m5[m[31m,[m Width[31m,[m Blue[31m,[m Red[31m);[m

      [01;30mDraw_Window[m[31m([mWin[31m);[m

      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Project Name : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version      : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mVersion_io[31m.[m[01;30mTo_String[m[31m([mInfo[31m.[mVersion[31m)));[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Elapsed      : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLong_Integer'[01;30mImage[m[31m([m[01;30mLong_Integer[m[31m([m[01;30mLong_Integer[m[31m([mInfo[31m.[mDays[31m)[m [31m*[m [35m86400[m [31m+[m [01;30mLong_Integer[m[31m([mInfo[31m.[mElapsed[31m/[m[35m3600.0[m[31m))/[m[35m3600[m[31m))[m [31m&[m [31m" hours"[m[31m);[m

   [01;34mend[m Archive_Info_Draw[31m;[m
   [01;34mprocedure[m [01;30mEnlight_Archive_Info_Draw[m [31m([mInfo [31m:[m [01;34min[m Project_Info_Record[31m;[m
					Line_Pos [31m:[m [01;34min[m Line_Range[31m;[m
					Width    [31m:[m [01;34min[m Column_Range[31m;[m
					Top      [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine_Pos[31m,[m Top [31m+[m [35m2[m[31m,[m [35m5[m[31m,[m Width[31m,[m Cyan[31m,[m The_Window[31m);[m
      
      
   [01;34mbegin[m
      
      [01;30mInitialize[m[31m([mWin[31m,[m Line_Pos[31m,[m Top [31m+[m [35m2[m[31m,[m [35m5[m[31m,[m Width[31m,[m Magenta[31m,[m Red[31m);[m
      
      [01;30menlight_Window[m[31m([mWin[31m);[m
      [01;30mPut[m[31m([mNormal_Mode[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Project Name : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version      : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mVersion_Io[31m.[m[01;30mTo_String[m[31m([mInfo[31m.[mVersion[31m)));[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Elapsed      : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLong_Integer'[01;30mImage[m[31m([m[01;30mLong_Integer[m[31m([m[01;30mLong_Integer[m[31m([mInfo[31m.[mDays[31m)[m [31m*[m [35m86400[m [31m+[m [01;30mLong_Integer[m[31m([mInfo[31m.[mElapsed[31m/[m[35m3600.0[m[31m))/[m[35m3600[m[31m))[m [31m&[m [31m" hours"[m[31m);[m
      
   [01;34mend[m Enlight_Archive_Info_Draw[31m;[m
   
   
   [01;34mprocedure[m [01;30mArchives_Print[m[31m([mArchives [31m:[m [01;34min[m Projects_Record[31m;[m
			    Project_Index [31m:[m [01;34min[m Natural[31m;[m 			       
			    Highlighted [31m:[m [01;34min[m Project_Num_Range[31m;[m
			    lines       [31m:[m [01;34min[m Line_Range[31m;[m
			    columns       [31m:[m [01;34min[m Column_Range[31m;[m
			    Top           [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
      Curs [31m:[m Projects_Dll[31m.[mCursor[31m;[m
      First [31m:[m Projects_Dll[31m.[mCursor[31m;[m
      Line_Pos [31m:[m Line_Range [31m:=[m [35m7[m[31m;[m
   [01;34mbegin[m

      [01;34mif[m Projects_Dll[31m.[m[01;30mLength[m[31m([mArchives[31m.[mList[31m)[m [31m/=[m [35m0[m [01;34mthen[m

	 Curs [31m:=[m Projects_Dll[31m.[m[01;30mFirst[m[31m([mArchives[31m.[mList[31m);[m
	 First [31m:=[m Curs[31m;[m

	 [01;34mfor[m I [01;34min[m [35m1[m[31m..[mProject_Index [01;34mloop[m
	    Curs [31m:=[m Projects_Dll[31m.[m[01;30mNext[m[31m([mCurs[31m);[m
	 [01;34mend[m [01;34mloop[m[31m;[m

	 [01;34mloop[m
	    [01;34mdeclare[m
	       The_Project [31m:[m [01;34mconstant[m Project[31m.[mProject_Access [31m:=[m Projects_Dll[31m.[m[01;30mElement[m[31m([mCurs[31m);[m	       
	    [01;34mbegin[m

	       [01;34mif[m The_Project [31m/=[m [01;34mnull[m [01;34mthen[m
		  
		  [01;34mif[m The_Project[31m.[mProject_Num [31m=[m Highlighted [01;34mthen[m		     
		     
		     [01;30mEnlight_Archive_Info_Draw[m[31m([m[01;30mProject_Info_Record[m[31m([mThe_Project[31m.[m[01;34mall[m[31m),[m Line_Pos[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m top[31m);[m
		     
		     
		     
		  [01;34melse[m
		     
		     [01;30mArchive_Info_Draw[m[31m([m[01;30mProject_Info_Record[m[31m([mThe_Project[31m.[m[01;34mall[m[31m),[m Line_Pos[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m top[31m);[m
		     

		  [01;34mend[m [01;34mif[m[31m;[m
		  Line_Pos [31m:=[m Line_Pos [31m+[m [35m5[m[31m;[m
		  [01;34mexit[m [01;34mwhen[m Line_Pos [31m>=[m Lines[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m

	    [01;34mend[m[31m;[m
	    [01;34mif[m Curs [31m/=[m [01;30mLast[m[31m([mArchives[31m.[mList[31m)[m [01;34mthen[m

	       Curs [31m:=[m Projects_Dll[31m.[m[01;30mNext[m[31m([mCurs[31m);[m

	    [01;34melse[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m

	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Archives_Print[31m;[m



   
   [01;34mprocedure[m [01;30mProject_Info_Draw[m [31m([mInfo [31m:[m [01;34min[m Project_Info_Record[31m;[m
				Line_Pos [31m:[m [01;34min[m Line_Range[31m;[m
				Width    [31m:[m [01;34min[m Column_Range[31m;[m
				Top        [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine_Pos[31m,[m Top [31m+[m [35m2[m[31m,[m [35m5[m[31m,[m Width[31m,[m Cyan[31m,[m The_Window[31m);[m
   [01;34mbegin[m
      [01;30mInitialize[m[31m([mWin[31m,[m Line_Pos[31m,[m Top [31m+[m [35m2[m[31m,[m [35m5[m[31m,[m Width[31m,[m Cyan[31m,[m White[31m);[m
      [01;30mDraw_Window[m[31m([mWin[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Project Name : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version      : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mVersion_io[31m.[m[01;30mTo_String[m[31m([mInfo[31m.[mVersion[31m)));[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Project path : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mInfo[31m.[mSource_Path[31m.[m[01;34mall[m[31m));[m
   [01;34mend[m Project_Info_Draw[31m;[m
   [01;34mprocedure[m [01;30mEnlight_Project_Info_Draw[m [31m([mInfo [31m:[m [01;34min[m Project_Info_Record[31m;[m
					Line_Pos [31m:[m [01;34min[m Line_Range[31m;[m
					Width    [31m:[m [01;34min[m Column_Range[31m;[m
					Top        [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine_Pos[31m,[m Top [31m+[m [35m2[m[31m,[m [35m5[m[31m,[m Width[31m,[m Cyan[31m,[m The_Window[31m);[m
   [01;34mbegin[m
      [01;30mInitialize[m[31m([mWin[31m,[m Line_Pos[31m,[m Top [31m+[m [35m2[m[31m,[m [35m5[m[31m,[m Width[31m,[m Green[31m,[m White[31m);[m
      [01;30menlight_Window[m[31m([mWin[31m);[m
      [01;30mPut[m[31m([mNormal_Mode[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Project Name : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version      : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mVersion_Io[31m.[m[01;30mTo_String[m[31m([mInfo[31m.[mVersion[31m)));[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Project path : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mInfo[31m.[mSource_Path[31m.[m[01;34mall[m[31m));[m
   [01;34mend[m Enlight_Project_Info_Draw[31m;[m
   
   
   
   
   [01;34mprocedure[m [01;30mProjects_Print[m[31m([mProjects [31m:[m [01;34min[m Projects_Record[31m;[m
			    Project_Index [31m:[m [01;34min[m Natural[31m;[m 			       
			    Highlighted [31m:[m [01;34min[m Project_Num_Range[31m;[m
			    lines       [31m:[m [01;34min[m Line_Range[31m;[m
			    columns       [31m:[m [01;34min[m Column_Range[31m;[m
			    Top            [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
      Curs [31m:[m Projects_Dll[31m.[mCursor[31m;[m
      First [31m:[m Projects_Dll[31m.[mCursor[31m;[m
      Line_Pos [31m:[m Line_Range [31m:=[m [35m7[m[31m;[m
   [01;34mbegin[m
      [01;34mif[m Projects_Dll[31m.[m[01;30mLength[m[31m([mProjects[31m.[mList[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	 Curs [31m:=[m Projects_Dll[31m.[m[01;30mFirst[m[31m([mProjects[31m.[mList[31m);[m
	 First [31m:=[m Curs[31m;[m
	 [01;34mfor[m I [01;34min[m [35m1[m[31m..[mProject_Index [01;34mloop[m
	    Curs [31m:=[m Projects_Dll[31m.[m[01;30mNext[m[31m([mCurs[31m);[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mdeclare[m
	       The_Project [31m:[m [01;34mconstant[m Project[31m.[mProject_Access [31m:=[m Projects_Dll[31m.[m[01;30mElement[m[31m([mCurs[31m);[m	       
	    [01;34mbegin[m
	       [01;34mif[m The_Project [31m/=[m [01;34mnull[m [01;34mthen[m

		  [01;34mif[m The_Project[31m.[mProject_Num [31m=[m Highlighted [01;34mthen[m		     
		     
		     [01;30mEnlight_Project_Info_Draw[m[31m([m[01;30mProject_Info_Record[m[31m([mThe_Project[31m.[m[01;34mall[m[31m),[m Line_Pos[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m top[31m);[m
		     [01;30mPut[m[31m([mNormal_Mode[31m);[m
		  [01;34melse[m

		     [01;30mProject_Info_Draw[m[31m([m[01;30mProject_Info_Record[m[31m([mThe_Project[31m.[m[01;34mall[m[31m),[m Line_Pos[31m,[m Columns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m top[31m);[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
		  Line_Pos [31m:=[m Line_Pos [31m+[m [35m5[m[31m;[m
		  [01;34mexit[m [01;34mwhen[m Line_Pos [31m>=[m Lines[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	       
	    [01;34mend[m[31m;[m
	    [01;34mif[m Curs [31m/=[m [01;30mLast[m[31m([mProjects[31m.[mList[31m)[m [01;34mthen[m
	       Curs [31m:=[m Projects_Dll[31m.[m[01;30mNext[m[31m([mCurs[31m);[m
	    [01;34melse[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	    
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Projects_Print[31m;[m

   
   [01;34mtype[m Part_Enum [01;34mis[m [31m([mCreator_None[31m,[m Creator_Abstract[31m,[m Creator_Name[31m,[m Creator_Version[31m,[m Creator_Author[31m,[m Creator_Library[31m);[m
   
   [01;34mtype[m Part_Record [01;34mis[m
      [01;34mrecord[m	 
	 Tag  [31m:[m [32mString[m[31m([m[35m1[m[31m..[m[35m12[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
	 Part [31m:[m Part_Enum [31m:=[m Creator_None[31m;[m
	 Line [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m78[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character ' [01;30mVal[m [31m([m[35m32[m[31m))[m [31m;[m 
	 Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Win [31m:[m Window_Record[31m;[m
	 Line_Pos [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
	 Column_Pos [31m:[m Column_Range [31m:=[m [35m13[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Part_Array [01;34mis[m [01;34marray[m [31m([mPart_Enum[31m)[m [01;34mof[m Part_Record[31m;[m
   
   [01;34mtype[m Page_Curs_Type [01;34mis[m
      [01;34mrecord[m
	 Parts [31m:[m Part_Array[31m;[m
	 Part_Cur [31m:[m Part_Enum [31m:=[m Creator_None[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Win_Set [01;34mis[m [01;34marray[m [31m([mPart_Enum [01;34mrange[m Creator_Abstract [31m..[m Creator_Library[31m)[m [01;34mof[m Window_Record[31m;[m
   
   
   [01;34mprocedure[m [01;30mCursor_Set[m[31m([mCurs [31m:[m [01;34min[m [01;34mout[m Page_Curs_Type[31m;[m From [31m:[m [01;34min[m Project_Record[31m)[m [01;34mis[m
   [01;34mbegin[m
      
      Wide_Fixed[31m.[m[01;30mMove[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mFrom[31m.[mProject_Name[31m.[m[01;34mall[m[31m),[m Curs[31m.[m[01;30mParts[m[31m([mCreator_Name[31m).[mLine[31m,[m Error[31m,[m Left[31m);[m
      Curs[31m.[m[01;30mParts[m[31m([mCreator_Name[31m).[mLast [31m:=[m From[31m.[mProject_Name'Length[31m;[m
      
      Wide_Fixed[31m.[m[01;30mMove[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mVersion_Io[31m.[m[01;30mTo_String[m[31m([mFrom[31m.[mVersion[31m)),[m Curs[31m.[m[01;30mParts[m[31m([mCreator_Version[31m).[mLine[31m,[m Error[31m,[m Left[31m);[m
      Curs[31m.[m[01;30mParts[m[31m([mCreator_Version[31m).[mLast [31m:=[m Version_Io[31m.[m[01;30mTo_String[m[31m([mFrom[31m.[mVersion[31m)[m'Length[31m;[m
      
      Wide_Fixed[31m.[m[01;30mMove[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mFrom[31m.[mCopyright[31m.[m[01;34mall[m[31m),[m Curs[31m.[m[01;30mParts[m[31m([mCreator_Author[31m).[mLine[31m,[m Error[31m,[m Left[31m);[m
      Curs[31m.[m[01;30mParts[m[31m([mCreator_Author[31m).[mLast [31m:=[m From[31m.[mCopyright'Length[31m;[m
      
      Curs[31m.[mPart_Cur [31m:=[m Creator_Library[31m;[m
      
      
   [01;34mend[m Cursor_Set[31m;[m
   
   
   
   [01;34mfunction[m [01;30mInitialize[m [31m([mWins [31m:[m Win_Set[31m)[m [01;34mreturn[m Page_Curs_Type [01;34mis[m
      Page_Curs [31m:[m Page_Curs_Type[31m;[m
   [01;34mbegin[m
      Page_Curs[31m.[mPart_Cur [31m:=[m Creator_Abstract[31m;[m
      Page_Curs[31m.[m[01;30mParts[m[31m([mCreator_Abstract[31m)[m [31m:=[m
	[31m([m
	 [31m"Abstract  : "[m[31m,[m
	 Creator_Abstract[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m Wide_Character ' [01;30mVal[m [31m([m[35m32[m[31m)),[m
	 [35m0[m[31m,[m
	 [01;30mWins[m[31m([mCreator_Abstract[31m),[m
	 [35m1[m[31m,[m
	 [35m13[m
	[31m);[m
      Page_Curs[31m.[m[01;30mParts[m[31m([mCreator_Name[31m)[m [31m:=[m
	[31m([m
	 [31m"Name      : "[m[31m,[m
	 Creator_Name[31m,[m	 
	 [31m([m[01;34mothers[m [31m=>[m Wide_Character ' [01;30mVal[m [31m([m[35m32[m[31m)),[m
	 [35m0[m[31m,[m
	 [01;30mWins[m[31m([mCreator_Name[31m),[m
	 [35m1[m[31m,[m
	 [35m13[m
	[31m);[m
      Page_Curs[31m.[m[01;30mParts[m[31m([mCreator_Version[31m)[m [31m:=[m
	[31m([m
	 [31m"Version   : "[m[31m,[m
	 Creator_Version[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m Wide_Character ' [01;30mVal[m [31m([m[35m32[m[31m)),[m
	 [35m0[m[31m,[m
	 [01;30mWins[m[31m([mCreator_Version[31m),[m
	 [35m1[m[31m,[m
	 [35m13[m
	[31m);[m
      Page_Curs[31m.[m[01;30mParts[m[31m([mCreator_Author[31m)[m [31m:=[m
	[31m([m
	 [31m"Author    : "[m[31m,[m
	 Creator_Author[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m Wide_Character ' [01;30mVal[m [31m([m[35m32[m[31m)),[m
	 [35m0[m[31m,[m
	 [01;30mWins[m[31m([mCreator_Author[31m),[m
	 [35m1[m[31m,[m
	 [35m13[m
	[31m);[m
      
      Page_Curs[31m.[m[01;30mParts[m[31m([mCreator_Library[31m)[m [31m:=[m
	[31m([m
	 [31m"Library   : "[m[31m,[m
	 Creator_Library[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m Wide_Character ' [01;30mVal[m [31m([m[35m32[m[31m)),[m
	 [35m0[m[31m,[m
	 [01;30mWins[m[31m([mCreator_Library[31m),[m
	 [35m1[m[31m,[m
	 [35m13[m
	[31m);[m
      
      [01;34mreturn[m Page_Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   [01;34mprocedure[m [01;30mPage_Print[m[31m([mPage [31m:[m [01;34min[m Page_Curs_Type[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mfor[m Part [01;34min[m Creator_Abstract [31m..[m Page[31m.[mPart_Cur [01;34mloop[m
	 [01;30mDraw_Window[m[31m([mPage[31m.[m[01;30mParts[m[31m([mPart[31m).[mWin[31m);[m
	 [01;30mDraw_Text[m[31m([mPage[31m.[m[01;30mParts[m[31m([mPart[31m).[mWin[31m,[m
		   Page[31m.[m[01;30mParts[m[31m([mPart[31m).[mLine_Pos[31m,[m
		   [35m1[m[31m,[m
		   White[31m,[m
		   Handling[31m.[m[01;30mTo_Wide_String[m[31m([mPage[31m.[m[01;30mParts[m[31m([mPart[31m).[mTag[31m));[m
	 [01;30mDraw_Text[m[31m([mPage[31m.[m[01;30mParts[m[31m([mPart[31m).[mWin[31m,[m
		   Page[31m.[m[01;30mParts[m[31m([mPart[31m).[mLine_Pos[31m,[m
		   Page[31m.[m[01;30mParts[m[31m([mPart[31m).[mColumn_Pos[31m,[m
		   White[31m,[m
		   Page[31m.[m[01;30mParts[m[31m([mPart[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mPage[31m.[m[01;30mParts[m[31m([mPart[31m).[mLast[31m));[m
      [01;34mend[m [01;34mloop[m[31m;[m
   [01;34mend[m Page_Print[31m;[m
   
   
   [01;34mprocedure[m [01;30mList_Print[m [31m([mProject [31m:[m [01;34min[m Project_Record[31m;[m Win [31m:[m [01;34min[m Window_Record [31m;[m Lib_Index [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Line_Pos [31m:[m Natural [31m:=[m [35m1[m[31m;[m
   [01;34mbegin[m
      [01;30mDraw_Window[m[31m([mWin[31m);[m

      [01;34mfor[m Lib [01;34min[m Lib_Index [31m+[m [35m1[m [31m..[m Project[31m.[mLib_Last [01;34mloop[m
	 
	 [01;30mDraw_Text[m[31m([mWin[31m,[m Line_Pos[31m,[m [35m1[m[31m,[m White[31m,[m 
		   Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mLib[31m)[m [31m&[m [31m" - "[m [31m&[m
					     Project[31m.[m[01;30mLibs[m[31m([mLib[31m).[mUnit_Name[31m.[m[01;34mall[m[31m));[m
	 Line_Pos [31m:=[m Line_Pos [31m+[m [35m1[m[31m;[m
	 [01;34mexit[m [01;34mwhen[m Line_Pos [31m>[m Win[31m.[mwin[31m.[mH[31m-[m[35m2[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m

   [01;34mend[m List_Print[31m;[m
   
   
   [01;34mtype[m Creator_Record [01;34mis[m
      [01;34mrecord[m
	 Curs    [31m:[m Page_Curs_Type[31m;[m
	 New_Project [31m:[m Project[31m.[mProject_Access[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   
   [01;34mfunction[m [01;30mTo_Project[m [31m([mCreator [31m:[m [01;34min[m Creator_Record[31m;[m Num [31m:[m [01;34min[m Project_Num_Range[31m)[m [01;34mreturn[m Project[31m.[mProject_Access [01;34mis[m
      
      
   [01;34mbegin[m
      Creator[31m.[mNew_Project[31m.[mProject_Num [31m:=[m Num[31m;[m
      Creator[31m.[mNew_Project[31m.[mProject_Name [31m:=[m
	[01;34mnew[m [32mString[m '
	[31m([m
	 Handling[31m.[m[01;30mTo_String[m[31m([mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Name[31m).[mLast[31m))[m
	[31m);[m
      Creator[31m.[mNew_Project[31m.[mCopyright [31m:=[m
	[01;34mnew[m [32mString[m '
	[31m([m
	 Handling[31m.[m[01;30mTo_String[m[31m([mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Author[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Author[31m).[mLast[31m))[m
	[31m);[m
      Creator[31m.[mNew_Project[31m.[mVersion [31m:=[m Version_Io[31m.[m[01;30mTo_Version[m[31m([mFrom [31m=>[m Handling[31m.[m[01;30mTo_String[m[31m([mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Version[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Version[31m).[mLast[31m)));[m
      
      [01;34mreturn[m Creator[31m.[mNew_Project[31m;[m
   [01;34mend[m To_Project[31m;[m
   
   [01;34mprocedure[m [01;30mWrite_To_Append[m [31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Line [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mis[m
      File [31m:[m File_Type[31m;[m
   [01;34mbegin[m
      [01;30mOpen[m[31m([mFile[31m,[m Append_File[31m,[m Filename[31m);[m      
      [01;30mPut_Line[m[31m([mFile[31m,[m Line[31m);[m
      [01;30mClose[m[31m([mFile[31m);[m
   [01;34mend[m Write_To_Append[31m;[m
   
   [01;34mprocedure[m [01;30mList_Save[m [31m([mProject [31m:[m [01;34min[m Project_Record[31m)[m [01;34mis[m
      Filename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Project[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m"-"[m [31m&[m Version_Io[31m.[m[01;30mTo_String[m[31m([mProject[31m.[mVersion[31m)[m [31m&[m [31m'/'[m [31m&[m [31m"Project.lst"[m[31m;[m
      File [31m:[m File_Type[31m;[m
   [01;34mbegin[m
      [01;34mif[m Project[31m.[mLib_Last [31m/=[m [35m0[m [01;34mthen[m
	 [01;30mCreate[m[31m([mFile[31m,[m Out_File[31m,[m filename[31m);[m
	 [01;30mPut_Line[m[31m([mFile[31m,[m Project[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m
	 [01;30mPut_Line[m[31m([mFile[31m,[m Project[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m
	 [01;34mfor[m lib [01;34min[m [35m1[m[31m..[mProject[31m.[mLib_Last [01;34mloop[m
	    [01;30mPut_Line[m[31m([mFile[31m,[m Project[31m.[m[01;30mLibs[m[31m([mLib[31m).[mUnit_Name[31m.[m[01;34mall[m[31m);[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;30mClose[m[31m([mFile[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m List_Save[31m;[m
   
   
   [01;34mprocedure[m [01;30mMake_Project[m [31m([mCreator [31m:[m [01;34min[m Creator_Record[31m)[m [01;34mis[m
      
      Info [31m:[m [01;34mconstant[m Project_Info_Record [31m:=[m [01;30mProject_Info_record[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m);[m
      
   [01;34mbegin[m
      [31m--  mkdir $project-$2[m
      [01;30mMake_Dir[m[31m([mCreator[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m"-"[m [31m&[m Version_Io[31m.[m[01;30mTo_String[m[31m([mCreator[31m.[mNew_Project[31m.[mVersion[31m));[m
      
      [31m--  cd $project-$2[m
      [01;30mChange_Dir[m[31m([mCreator[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m"-"[m [31m&[m Version_Io[31m.[m[01;30mTo_String[m[31m([mCreator[31m.[mNew_Project[31m.[mVersion[31m));[m            
      
      [31m--  gunzip ./.Ada/Ada_Empty-6.4.0.tar.gz[m
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([m[31m"../.Ada/Ada_Empty-6.4.0.tar.gz"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"gunzip"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      
      
      [31m--  tar -x -v -f ./.Ada/Ada_Empty-6.4.0.tar[m
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([m[31m"-x -v -f ../.Ada/Ada_Empty-6.4.0.tar"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"tar"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      
      
      [31m--  gzip ./.Ada/Ada_Empty-6.4.0.tar[m
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([m[31m"../.Ada/Ada_Empty-6.4.0.tar"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"gzip"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      

      
      [31m--  make pre[m
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([m[31m"pre tail head"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"make"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      

      [01;30mWrite_To_Append[m[31m([m[31m"Abstract.txt"[m[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Abstract[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Abstract[31m).[mLast[31m)));[m
      [01;30mWrite_To_Append[m[31m([m[31m"Project.lst"[m[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Name[31m).[mLast[31m)));[m
      [01;30mWrite_To_Append[m[31m([m[31m"Project.lst"[m[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Name[31m).[mLast[31m)));[m

      [01;34mfor[m Lib [01;34min[m [35m1[m[31m..[mCreator[31m.[mNew_Project[31m.[mLib_Last [01;34mloop[m
	 [01;30mWrite_To_Append[m[31m([m[31m"Project.lst"[m[31m,[m Creator[31m.[mNew_Project[31m.[m[01;30mLibs[m[31m([mLib[31m).[mUnit_Name[31m.[m[01;34mall[m[31m);[m
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;30mWrite_To_Append[m[31m([m[31m"Versions.lst"[m[31m,[m Version_Io[31m.[m[01;30mTo_String[m[31m([mCreator[31m.[mNew_Project[31m.[mVersion[31m));[m

      [01;30mWrite_To_Append[m[31m([m[31m"Copyright"[m[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Author[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator_Author[31m).[mLast[31m)));[m
      
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([m[31m"prepare project all"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"make"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      


      [01;30mChange_Dir[m[31m([m[31m".."[m[31m);[m
      

   [01;34mend[m Make_Project[31m;[m
   
   [31m-- upgrade of 1 the Revision of Version[m
   [01;34mfunction[m [01;30mUpdate[m [31m([mInfo [31m:[m Project_Info_Record[31m;[m Version [31m:[m [01;34min[m M[31m.[mVersions[31m.[mVersion_Type[31m;[m Sessions [31m:[m [01;34min[m [01;34mout[m Session_Array[31m;[m Logs [31m:[m [01;34min[m [01;34mout[m Log_Array[31m)[m [01;34mreturn[m [32mInteger[m [01;34mis[m
      Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      
      
      
      [01;30mPut_Line[m[31m([m[31m"version "[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m' '[m [31m&[m
		 [32mInteger[m'[01;30mImage[m[31m([mInfo[31m.[mVersion[31m.[mMajor_Version[31m)([m[35m2[m[31m..[m[32mInteger[m'[01;30mImage[m[31m([mInfo[31m.[mVersion[31m.[mMajor_Version[31m)[m'Last[31m)[m [31m&[m [31m' '[m [31m&[m
		 [32mInteger[m'[01;30mImage[m[31m([mInfo[31m.[mVersion[31m.[mMinor_Version[31m)([m[35m2[m[31m..[m[32mInteger[m'[01;30mImage[m[31m([mInfo[31m.[mVersion[31m.[mMinor_Version[31m)[m'Last[31m)[m [31m&[m [31m' '[m [31m&[m
		 [32mInteger[m'[01;30mImage[m[31m([mInfo[31m.[mVersion[31m.[mRevision_Version[31m)([m[35m2[m[31m..[m[32mInteger[m'[01;30mImage[m[31m([mInfo[31m.[mVersion[31m.[mRevision_Version[31m)[m'Last[31m)[m [31m&[m [31m' '[m [31m&[m
		 Info[31m.[mVersion[31m.[mRelease_Version[31m);[m
      
      [01;30mPut_Line[m[31m([m[31m"Upgrade "[m [31m&[m [32mInteger[m'[01;30mImage[m[31m([mVersion[31m.[mMajor_Version[31m)([m[35m2[m[31m..[m[32mInteger[m'[01;30mImage[m[31m([mVersion[31m.[mMajor_Version[31m)[m'Last[31m)[m [31m&[m [31m' '[m [31m&[m
		 [32mInteger[m'[01;30mImage[m[31m([mVersion[31m.[mMinor_Version[31m)([m[35m2[m[31m..[m[32mInteger[m'[01;30mImage[m[31m([mVersion[31m.[mMinor_Version[31m)[m'Last[31m)[m [31m&[m [31m' '[m [31m&[m
		 [32mInteger[m'[01;30mImage[m[31m([mVersion[31m.[mRevision_Version[31m)([m[35m2[m[31m..[m[32mInteger[m'[01;30mImage[m[31m([mVersion[31m.[mRevision_Version[31m)[m'Last[31m)[m [31m&[m [31m' '[m [31m&[m
		 Version[31m.[mRelease_Version[31m);[m

      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"cp -r "[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mInfo[31m.[mVersion[31m)[m [31m&[m [31m' '[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m      
      
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([m[31m"-r "[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mInfo[31m.[mVersion[31m)[m [31m&[m [31m' '[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m));[m
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"cp"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
	 [31m--Errno := System("cp -r " & Info.Project_Name.all & '-' & To_String(Info.Version) & ' ' & Info.Project_Name.all & '-' & To_String(Version) & Character'Val(0));[m
      [01;34mEnd[m[31m;[m

      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"cp "[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mInfo[31m.[mVersion[31m)[m [31m&[m [31m"/log/Todo.lst"[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mInfo[31m.[mVersion[31m)[m [31m&[m [31m' '[m [31m&[m  Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m"/log/Todo.lst"[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m

      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mInfo[31m.[mVersion[31m)[m [31m&[m [31m"/log/Todo.lst"[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mInfo[31m.[mVersion[31m)[m [31m&[m [31m' '[m [31m&[m  Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m"/log/Todo.lst"[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m));[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"cp"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"emacs "[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m"/log/Todo.lst"[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
      
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m"/log/Todo.lst"[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m));[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"emacs"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      
      [01;34mdeclare[m
	 File [31m:[m Text_Io[31m.[mFile_Type[31m;[m
      [01;34mbegin[m
	 [01;30mCreate[m[31m([mFile[31m,[m Out_File[31m,[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m"/Versions.lst"[m[31m);[m
	 [01;30mPut_Line[m[31m([mFile[31m,[m [01;30mTo_String[m[31m([mVersion[31m));[m
	 [01;30mClose[m[31m([mFile[31m);[m
      [01;34mend[m[31m;[m
      
      [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m'/'[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'/'[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m"/src/"[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m".adb"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"emacs"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      [01;30mClose[m[31m([m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
      
      

      [01;30mStatistic[m[31m([mSessions[31m,[m Logs[31m);[m

      

      

      [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mHowto[31m));[m

      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m'/'[m [31m&[m [31m"HOWTO"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"emacs"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      

      [01;30mClose[m[31m([m[01;30mSessions[m[31m([mHowto[31m));[m
      
      

      [01;30mStatistic[m[31m([mSessions[31m,[m Logs[31m);[m

      
      [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mHISTORY[31m));[m
      
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m'/'[m [31m&[m [31m"HISTORY"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"emacs"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      
      [01;30mClose[m[31m([m[01;30mSessions[m[31m([mHISTORY[31m));[m
      [01;30mStatistic[m[31m([mSessions[31m,[m Logs[31m);[m
      
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m"/doc/man/man1/"[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m".1.gz"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"gunzip"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      
      

      
      [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mManpage[31m));[m
      
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m"/doc/man/man1/"[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m".1"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"emacs"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m"/doc/man/man1/"[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m".1"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"gzip"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      
      
      [01;30mClose[m[31m([m[01;30mSessions[m[31m([mManpage[31m));[m
      

      
      [01;30mStatistic[m[31m([mSessions[31m,[m Logs[31m);[m
      
      
      
      [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mMakefile[31m));[m
      
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([mInfo[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m"/Makefile"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"emacs"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      
      
      
      [01;30mClose[m[31m([m[01;30mSessions[m[31m([mMakefile[31m));[m
      
      
      [01;30mStatistic[m[31m([mSessions[31m,[m Logs[31m);[m
      
      
      [01;34mDeclare[m
	 Success [31m:[m [32mBoolean[m[31m;[m
	 Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([m[31m"-C "[m [31m&[m Info[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m)[m [31m&[m [31m" head tail msg all enlight-sources clean"[m[31m);[m	 
      [01;34mBegin[m
	 [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"make"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
      [01;34mEnd[m[31m;[m
      
      
      
      
      
      
      Errno [31m:=[m [35m0[m[31m;[m
      
      
      
      [01;34mreturn[m errno[31m;[m
      
      
      
      
   [01;34mend[m Update[31m;[m
   
   
   [01;34mprocedure[m [01;30mRemove_Name[m[31m([mProject [31m:[m [01;34min[m [01;34mout[m Project_Record[31m;[m Lib_Num [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Lib_Num [31m=[m [35m0[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Lib_Num [31m<[m Project[31m.[mLib_Last [01;34mthen[m
	 [01;34mfor[m Iter [01;34min[m Lib_Num[31m..[mProject[31m.[mLib_Last [31m-[m [35m1[m [01;34mloop[m
	    Project[31m.[m[01;30mLibs[m[31m([mIter[31m)[m [31m:=[m Project[31m.[m[01;30mLibs[m[31m([mIter [31m+[m [35m1[m[31m);[m
	    Project[31m.[m[01;30mLibs[m[31m([mProject[31m.[mLib_last[31m)[m [31m:=[m Null_Component[31m;[m
	    Project[31m.[mLib_Last [31m:=[m Project[31m.[mLib_Last [31m-[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34melse[m
	 Project[31m.[m[01;30mLibs[m[31m([mProject[31m.[mLib_last[31m)[m [31m:=[m Null_Component[31m;[m
	 Project[31m.[mLib_Last [31m:=[m Project[31m.[mLib_Last [31m-[m [35m1[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Remove_Name[31m;[m
   
   [01;34mtype[m Project_Manager_Record [01;34mis[m [01;34mnew[m Creator_Record[31m;[m

   

   
   
   
   
   
   
   
   
   
   
   
   
   
   
   [01;34muse[m Abstract_Vectors[31m;[m
   
   
   [01;34mprocedure[m [01;30mHighlight_Program_Draw[m [31m([mObj [31m:[m Abstract_Access[31m;[m Line [31m:[m [01;34min[m Positive[31m;[mWidth [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine[31m,[m Top[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m Width[31m,[m Cyan[31m,[m The_Window[31m);[m      
   [01;34mbegin[m
      
      [01;30mInitialize[m[31m([mWin[31m,[m Line[31m,[m Top[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m Width[31m,[m Magenta[31m,[m White[31m);[m
      [01;30mEnlight_Window[m[31m([mWin[31m);[m
      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m [31m&[m Obj[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mObj[31m.[mDate[31m)));[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m [31m&[m Obj[31m.[mLocality[31m.[m[01;34mall[m[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"define : "[m [31m&[m Obj[31m.[mDefine[31m.[m[01;34mall[m[31m);[m
      
   [01;34mend[m Highlight_Program_Draw[31m;[m
   
   [01;34mprocedure[m [01;30mProgram_Draw[m [31m([mObj [31m:[m Abstract_Access[31m;[m Line [31m:[m [01;34min[m Positive[31m;[mWidth [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine[31m,[m Top[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m Width[31m,[m Cyan[31m,[m The_Window[31m);[m      
   [01;34mbegin[m
      
      [01;30mInitialize[m[31m([mWin[31m,[m Line[31m,[m Top[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m Width[31m,[m Green[31m,[m White[31m);[m
      [01;30mDraw_Window[m[31m([mWin[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m [31m&[m Obj[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mObj[31m.[mDate[31m)));[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m [31m&[m Obj[31m.[mLocality[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"define : "[m [31m&[m Obj[31m.[mDefine[31m.[m[01;34mall[m[31m);[m
      
   [01;34mend[m Program_Draw[31m;[m
   
   
   
   
   [01;34mprocedure[m [01;30mHighlight_Plan_Draw[m [31m([mObj [31m:[m Abstract_Access[31m;[m Line [31m:[m [01;34min[m Positive[31m;[mWidth [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine[31m,[m Top[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m Width[31m,[m Blue[31m,[m The_Window[31m);[m      
   [01;34mbegin[m
      
      [01;30mInitialize[m[31m([mWin[31m,[m Line[31m,[m Top[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m Width[31m,[m Yellow[31m,[m White[31m);[m
      [01;30mEnlight_Window[m[31m([mWin[31m);[m
      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m [31m&[m Obj[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mObj[31m.[mDate[31m)));[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m [31m&[m Obj[31m.[mLocality[31m.[m[01;34mall[m[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"define : "[m [31m&[m Obj[31m.[mDefine[31m.[m[01;34mall[m[31m);[m
      
   [01;34mend[m Highlight_Plan_Draw[31m;[m
   
   [01;34mprocedure[m [01;30mPlan_Draw[m [31m([mObj [31m:[m Abstract_Access[31m;[m Line [31m:[m [01;34min[m Positive[31m;[mWidth [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine[31m,[m Top[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m Width[31m,[m Blue[31m,[m The_Window[31m);[m      
   [01;34mbegin[m
      
      [01;30mInitialize[m[31m([mWin[31m,[m Line[31m,[m Top[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m Width[31m,[m Blue[31m,[m White[31m);[m
      [01;30mDraw_Window[m[31m([mWin[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m [31m&[m Obj[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mObj[31m.[mDate[31m)));[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m [31m&[m Obj[31m.[mLocality[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"define : "[m [31m&[m Obj[31m.[mDefine[31m.[m[01;34mall[m[31m);[m
      
   [01;34mend[m Plan_Draw[31m;[m
   



   [01;34mprocedure[m [01;30mPlanning_Draw[m [31m([mPlanning [31m:[m [01;34min[m Abstract_Vectors[31m.[mVector[31m;[mIndex [31m:[m [01;34min[m Natural[31m;[m Width [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      
      Count [31m:[m Natural [31m:=[m [35m1[m[31m;[m
   [01;34mbegin[m

      [01;34mif[m Abstract_Vectors[31m.[m[01;30mIs_empty[m[31m([mPlanning[31m)[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      [01;34mfor[m Plan [01;34min[m Index[31m+[m[35m1[m[31m..[mnatural'[01;30mMin[m[31m([mIndex [31m+[m [31m([mApp[31m.[mLines[31m-[m[35m5[m[31m)[m [31m/[m [35m6[m[31m,[m [32mInteger[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mPlanning[31m)))[m [01;34mloop[m
	 
	 [01;34mdeclare[m
	    E [31m:[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mPlanning[31m,[m [01;30mAbstract_Index[m[31m([mPlan[31m));[m
	    
	 [01;34mbegin[m
	    
	    [01;34mif[m E[31m.[mTag [31m=[m M[31m.[mProgram [01;34mthen[m
	    
	       [01;34mif[m Clock [31m-[m [31m([m[35m86400.0[m [31m*[m [35m90.0[m[31m)[m [31m<[m E[31m.[mDate [01;34mand[m [01;34mthen[m
		 E[31m.[mDate [31m+[m E[31m.[mPeriod [31m<[m Clock [31m+[m [31m([m[35m86400.0[m [31m*[m [35m90.0[m[31m)[m [01;34mthen[m
		  [01;30mHighlight_Program_Draw[m[31m([mE[31m,[m Count[31m+[m[35m1[m[31m,[m width[31m,[m Top[31m);[m
		  
		  [01;34melse[m
		  
		     [01;30mProgram_Draw[m[31m([mE[31m,[m Count[31m+[m[35m1[m[31m,[m width[31m,[m Top[31m);[m
		  
		  [01;34mend[m [01;34mif[m[31m;[m
		  Count [31m:=[m Count [31m+[m [35m6[m[31m;[m

	    [01;34melse[m
	       [01;34mif[m Clock [31m-[m [31m([m[35m86400.0[m [31m*[m [35m90.0[m[31m)[m [31m<[m E[31m.[mDate [01;34mand[m [01;34mthen[m
		 E[31m.[mDate [31m+[m E[31m.[mPeriod [31m<[m Clock [31m+[m [31m([m[35m86400.0[m [31m*[m [35m90.0[m[31m)[m [01;34mthen[m

		  [01;30mHighlight_Plan_Draw[m[31m([mE[31m,[m Count[31m+[m[35m1[m[31m,[m width[31m,[m Top[31m);[m
		  
	       [01;34melse[m
		  
		  [01;30mPlan_Draw[m[31m([mE[31m,[m Count[31m+[m[35m1[m[31m,[m width[31m,[m Top[31m);[m
	       
	       [01;34mend[m [01;34mif[m[31m;[m
	       Count [31m:=[m Count [31m+[m [35m6[m[31m;[m

	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m

   [01;34mend[m Planning_Draw[31m;[m
   
   
   
   
   
   
   [01;34mprocedure[m [01;30mTo_Planning[m [31m([mObj [31m:[m [01;34min[m Abstract_Access[31m;[mVector [31m:[m [01;34min[m [01;34mout[m Abstract_Vectors[31m.[mVector[31m)[m [01;34mis[m
   [01;34mbegin[m

      [01;34mif[m Obj [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mif[m Obj[31m.[m[01;34mall[m [01;34min[m Classes[31m.[mProgram_Class [31m|[m Event_Class [31m|[m Rendezvous_Class [31m|[m Meeting_Class [31m|[m Job_Class [01;34mthen[m

	 Vector [31m:=[m Vector [31m&[m Obj[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
      [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mObj[31m.[mChilds[31m)[m [31m/=[m [35m0[m [01;34mthen[m

	 [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mObj[31m.[mChilds[31m)[m [01;34mloop[m
	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mObj[31m.[mChilds[31m,[m [01;30mAbstract_Index[m[31m([mChild[31m));[m
	    [01;34mbegin[m

	       [01;30mTo_Planning[m[31m([mE[31m,[m Vector[31m);[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m To_Planning[31m;[m
   
   
   Project_Index [31m:[m Project_Num_Range [31m:=[m [35m0[m[31m;[m
   
   Project_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m    
   
   
   Curs [31m:[m Projects_Dll[31m.[mCursor[31m;[m
   
   Creator [31m:[m Creator_Record[31m;[m
   Project_Manager [31m:[m Project_Manager_Record[31m;[m
   Project_Num [31m:[m Project_Num_Range [31m:=[m [35m0[m[31m;[m
   
   [01;34mtask[m [01;34mbody[m Planning_Process [01;34mis[m
      
      Main_Win [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m The_Window[31m);[m
      
      Planning [31m:[m Abstract_Vectors[31m.[mVector[31m;[m
      Plan_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
            
   [01;34mbegin[m

  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    
	    [01;34mselect[m
	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		  [01;34mcase[m Wchar [01;34mis[m
		     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m);[m
			App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([m[35m4[m[31m);[m
			App[31m.[mMode [31m:=[m Manager[31m;[m
			
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m Receive[31m;[m
	       [01;34mif[m App[31m.[mMode [31m=[m Manager [01;34mthen[m		  
		  
		  [01;34mif[m [01;30mIs_Regular_File[m[31m([m[31m"Projects.lst"[m[31m)[m [01;34mthen[m
		     App[31m.[mProjects[31m.[mList [31m:=[m Projects_Manager[31m.[mProjects_Dll[31m.[mEmpty_List[31m;[m
		     Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Loading Projects.lst.."[m[31m);[m
		     Projects_Manager[31m.[m[01;30mManager_Load[m[31m([mApp[31m.[mProjects[31m,[m [31m"Projects.lst"[m[31m);[m

		     App[31m.[mProjects[31m.[mProjects_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m

		     Projects_Manager[31m.[mProjects_Dll[31m.[m[01;30mAppend[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m 
							  [01;34mnew[m Project_Record ' [31m([mNull_Project[31m));[m
		     [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			Project[31m.[m[01;30mClose[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Clock[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m

		     Project_Count [31m:=[m [35m0[m[31m;[m
		     Project_Index [31m:=[m [35m0[m[31m;[m

		     Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m			   

		     Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m

		     [31m--Project_Manager.New_Project := Get_Project(App.Projects, Project_Num);[m
		     
		     Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Done."[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
		  [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m		  		  		  
	       [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  
		  [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
		  
		  [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
		  
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  
		  Planning [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m
		  
		  [01;30mTo_Planning[m[31m([mApp[31m.[mTerminal[31m.[mRoot[31m,[m Planning[31m);[m
		  
		  Plan_Index [31m:=[m [35m0[m[31m;[m
		  [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mPlanning[31m)[m [31m/=[m [35m0[m [01;34mthen[m
		     
		     Date_Sorting[31m.[m[01;30mSort[m[31m([mPlanning[31m);[m
		     
		     [01;34mfor[m I [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mPlanning[31m)[m [01;34mloop[m
		  	
		  	[01;34mdeclare[m
		  	   E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m [01;30mElement[m[31m([mPlanning[31m,[m [01;30mAbstract_Index[m[31m([mI[31m));[m
		  	[01;34mbegin[m
			   [01;34mif[m E[31m.[mdate[31m+[mE[31m.[mPeriod [31m+[m [31m([m[35m86400.0[m [31m*[m [35m3.0[m[31m)[m [31m<[m clock [01;34mthen[m
		  	      
		  	      Plan_Index [31m:=[m Plan_Index [31m+[m [35m1[m[31m;[m
		  	   [01;34mend[m [01;34mif[m[31m;[m
		  	[01;34mend[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		     
		     [01;30mPlanning_Draw[m[31m([mPlanning[31m,[m Plan_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  [01;34mIf[m Plan_Index [31m>[m [35m0[m [01;34mthen[m
		     Plan_Index [31m:=[m Plan_Index [31m-[m [35m1[m[31m;[m
		     [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
		     
		     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		     
		     [01;30mPlanning_Draw[m[31m([mPlanning[31m,[m Plan_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m0[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  

	       [01;34mend[m Up_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mPlanning[31m)[m [31m/=[m [35m0[m [01;34mthen[m
		     [01;34mif[m Plan_Index [31m+[m [35m1[m [31m<[m [32mInteger[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mPlanning[31m))[m [01;34mthen[m
			Plan_Index [31m:=[m Plan_Index [31m+[m [35m1[m[31m;[m
			[01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
			
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			
			[01;30mPlanning_Draw[m[31m([mPlanning[31m,[m Plan_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m0[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m      
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  
		  [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
		  
		  [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
		  
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  
		  Planning [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m
		  
		  [01;30mTo_Planning[m[31m([mApp[31m.[mTerminal[31m.[mRoot[31m,[m Planning[31m);[m
		  
		  Plan_Index [31m:=[m [35m0[m[31m;[m
		  [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mPlanning[31m)[m [31m/=[m [35m0[m [01;34mthen[m
		     
		     Date_Sorting[31m.[m[01;30mSort[m[31m([mPlanning[31m);[m
		     
		     [01;34mfor[m I [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mPlanning[31m)[m [01;34mloop[m
		  	
		  	[01;34mdeclare[m
		  	   E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m [01;30mElement[m[31m([mPlanning[31m,[m [01;30mAbstract_Index[m[31m([mI[31m));[m
		  	[01;34mbegin[m
		  	   [01;34mif[m E[31m.[mdate[31m+[mE[31m.[mPeriod [31m+[m [31m([m[35m86400.0[m [31m*[m [35m3.0[m[31m)[m [31m<[m clock [01;34mthen[m
		  	      Plan_Index [31m:=[m Plan_Index [31m+[m [35m1[m[31m;[m
		  	   [01;34mend[m [01;34mif[m[31m;[m
		  	[01;34mend[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		     
		     [01;30mPlanning_Draw[m[31m([mPlanning[31m,[m Plan_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
		  
	       [01;34mend[m Wake_Up[31m;[m
	       
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Planning process halted");[m
   [01;34mend[m Planning_Process[31m;[m
   

   
   [31m---------------------------------------------------------------------------------------------------------------[m
   [31m--                                                                                                           --[m
   [31m--                                        Ada projects manager                                               --[m
   [31m--                                                                                                           --[m
   [31m---------------------------------------------------------------------------------------------------------------[m
   
   
   
   
   
      
   [01;34mtask[m [01;34mbody[m Manager_Process [01;34mis[m
      
      Creator_Abs [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Creator_N     [31m:[m Window_Record [31m:=[m [31m([m[35m4[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Creator_Ver   [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Creator_Auth   [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m5[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Creator_List     [31m:[m Window_Record [31m:=[m [31m([m[35m7[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m15[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Creator_Lib  [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m2[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      
      Manager_Abs [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Manager_N     [31m:[m Window_Record [31m:=[m [31m([m[35m4[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Manager_Ver   [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Manager_Auth   [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m5[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Manager_List     [31m:[m Window_Record [31m:=[m [31m([m[35m7[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m15[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Manager_Cmd  [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m2[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      
      
      Project_Info [31m:[m Project_Info_Record[31m;[m
      
      
      
      Project_Header   [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      
      Project_Selector [31m:[m Window_Record [31m:=[m [31m([m[35m6[m[31m,[m [35m1[m[31m,[m App[31m.[mLines [31m-[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      
      
      Components_Win   [31m:[m Window_Record [31m:=[m [31m([m[35m6[m[31m,[m  [35m1[m[31m,[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      
      Make_Win         [31m:[m Window_Record [31m:=[m [31m([m[35m6[m [31m+[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m The_Window[31m);[m
      
      
      
      
      
      [01;34mtype[m Step_Enum [01;34mis[m [31m([mPrj_None[31m,[m Prj_Selector[31m,[m Prj_Archives[31m,[m Prj_Components[31m,[m Prj_Creator[31m,[m Prj_Manager[31m,[m Prj_Editor[31m,[m Prj_Lib_Remove[31m,[m Prj_Upgrade[31m,[m Prj_help[31m);[m
      
      [01;34mtype[m Upgrade_Cmd_Enum [01;34mis[m [31m([mNone[31m,[m Remove[31m,[m Add[31m,[m Make[31m,[m Upgrade[31m,[m quit[31m,[m help[31m);[m
      
      
      [01;34mfunction[m [01;30mValue[m [31m([mLine [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mreturn[m Upgrade_Cmd_Enum [01;34mis[m
	 
      [01;34mbegin[m
	 [01;34mif[m [01;30mIndex[m[31m([mLine[31m,[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	    [01;34mreturn[m Upgrade_Cmd_Enum'[01;30mValue[m[31m([m[01;30mLine[m[31m([mLine'First[31m..[m[01;30mIndex[m[31m([mLine[31m,[m [31m" "[m[31m)-[m[35m1[m[31m));[m
	 [01;34melse[m
	    [01;34mreturn[m Upgrade_Cmd_Enum'[01;30mValue[m[31m([mLine[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
      [01;34mexception[m
	 [01;34mwhen[m Constraint_Error [31m=>[m
	    [01;34mreturn[m None[31m;[m
      [01;34mend[m Value[31m;[m
      
      
      [01;34mtype[m Lang_Enum [01;34mis[m [31m([mEn[31m,[m Fr[31m,[m C[31m);[m
      Lang      [31m:[m Lang_Enum [31m:=[m En[31m;[m
      
      Color     [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[01;36m"[m[31m;[m
      Normal    [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [32mCharacter[m'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m&[m [31m"[00m"[m[31m;[m
      
      
      En_Msg [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"Hello"[m[31m;[m
      Fr_Msg [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"Salut"[m[31m;[m
      C_Msg  [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"Error"[m[31m;[m
      
      User_Val  [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"USER"[m[31m;[m
      Lang_Val  [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"LANG"[m[31m;[m
      
      The_World [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"world"[m[31m;[m
      The_Msg   [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"Hello"[m[31m;[m   
      
      
      The_User  [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      The_Lang  [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      
      
      [01;34mprocedure[m [01;30mDraw_Header[m[31m([mProject [31m:[m [01;34min[m Project_Record[31m;[m Project_Header [31m:[m [01;34min[m Window_Record[31m)[m [01;34mis[m
      [01;34mbegin[m
	 [01;34mif[m Project [31m/=[m Null_Project [01;34mthen[m
	    [01;34mif[m The_User [31m/=[m [01;34mnull[m [01;34mthen[m            
	       [01;34mcase[m Lang [01;34mis[m
		  [01;34mwhen[m Fr [31m=>[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m(([mThe_User'Length[31m+[mFr_Msg'Length[31m+[m[35m10[m[31m),[m [31m'-'[m[31m));[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[31m"-- "[m [31m&[m Fr_Msg [31m&[m [31m' '[m [31m&[m Color [31m&[m The_User[31m.[m[01;34mall[m [31m&[m Normal [31m&[m [31m" ! "[m [31m&[m [31m" --"[m[31m));[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m(([mThe_User'Length[31m+[mfr_Msg'Length[31m+[m[35m10[m[31m),[m [31m'-'[m[31m));[m
		     
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m1[m[31m,[m [31m([mThe_User'Length[31m+[mfr_Msg'Length[31m+[m[35m10[m[31m)+[m[35m2[m[31m,[m White[31m,[m [31m"Project name  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m2[m[31m,[m [31m([mThe_User'Length[31m+[mfr_Msg'Length[31m+[m[35m10[m[31m)+[m[35m2[m[31m,[m White[31m,[m [31m"Elapsed       : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLong_Integer'[01;30mImage[m[31m([m[01;30mLong_Integer[m[31m([mProject[31m.[mDays[31m)[m [31m*[m [35m86400[m [31m+[m [01;30mLong_Integer[m[31m([mProject[31m.[mElapsed[31m)[m [31m/[m [35m3600[m[31m))[m [31m&[m [31m" hours"[m[31m);[m
		     
		  [01;34mwhen[m En [31m=>[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m(([mThe_User'Length[31m+[mEn_Msg'Length[31m+[m[35m10[m[31m),[m [31m'-'[m[31m));[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[31m"-- "[m [31m&[m En_Msg [31m&[m [31m' '[m [31m&[m Color [31m&[m The_User[31m.[m[01;34mall[m [31m&[m Normal [31m&[m [31m" ! "[m [31m&[m [31m" --"[m[31m));[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m(([mThe_User'Length[31m+[mEn_Msg'Length[31m+[m[35m10[m[31m),[m [31m'-'[m[31m));[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m1[m[31m,[m [31m([mThe_User'Length[31m+[mEn_Msg'Length[31m+[m[35m10[m[31m)+[m[35m2[m[31m,[m White[31m,[m [31m"Project name  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m2[m[31m,[m [31m([mThe_User'Length[31m+[mEn_Msg'Length[31m+[m[35m10[m[31m)+[m[35m2[m[31m,[m White[31m,[m [31m"Elapsed       : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLong_Integer'[01;30mImage[m[31m(([m[01;30mLong_Integer[m[31m([mProject[31m.[mDays[31m)[m [31m*[m [35m86400[m [31m+[m [01;30mLong_Integer[m[31m([mProject[31m.[mElapsed[31m))[m [31m/[m [35m3600[m[31m))[m [31m&[m [31m" hours"[m[31m);[m
		     
		  [01;34mwhen[m C [31m=>[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m(([mThe_User'Length[31m+[mC_Msg'Length[31m+[m[35m10[m[31m),[m [31m'-'[m[31m));[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[31m"-- "[m [31m&[m C_Msg [31m&[m [31m' '[m [31m&[m Color [31m&[m The_User[31m.[m[01;34mall[m [31m&[m Normal [31m&[m [31m" ! "[m [31m&[m [31m" --"[m[31m));[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m(([mThe_User'Length[31m+[mC_Msg'Length[31m+[m[35m10[m[31m),[m [31m'-'[m[31m));[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m1[m[31m,[m [31m([mThe_User'Length[31m+[mC_Msg'Length[31m+[m[35m10[m[31m)+[m[35m2[m[31m,[m White[31m,[m [31m"Project name  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
		     [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m2[m[31m,[m [31m([mThe_User'Length[31m+[mC_Msg'Length[31m+[m[35m10[m[31m)+[m[35m2[m[31m,[m White[31m,[m [31m"Elapsed       : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLong_Integer'[01;30mImage[m[31m(([m[01;30mLong_Integer[m[31m([mProject[31m.[mDays[31m)[m [31m*[m [35m86400[m [31m+[m [01;30mLong_Integer[m[31m([mProject[31m.[mElapsed[31m))[m [31m/[m [35m3600[m[31m))[m [31m&[m [31m" hours"[m[31m);[m
		     
	       [01;34mend[m [01;34mcase[m[31m;[m
	    [01;34melse[m
	       [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m(([mThe_World'Length[31m+[mThe_Msg'Length[31m+[m[35m10[m[31m),[m [31m'-'[m[31m));[m
	       [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[31m"-- "[m [31m&[m The_Msg [31m&[m [31m' '[m [31m&[m Color [31m&[m The_world [31m&[m Normal [31m&[m [31m" ! "[m [31m&[m [31m" --"[m[31m));[m
	       [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m(([mThe_World'Length[31m+[mThe_Msg'Length[31m+[m[35m10[m[31m),[m [31m'-'[m[31m));[m
	       [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m1[m[31m,[m [31m([mThe_World'Length[31m+[mThe_Msg'Length[31m+[m[35m10[m[31m)+[m[35m2[m[31m,[m White[31m,[m [31m"Project name  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
	       [01;30mDraw_Text[m[31m([mProject_Header[31m,[m [35m2[m[31m,[m [31m([mThe_World'Length[31m+[mThe_Msg'Length[31m+[m[35m10[m[31m)+[m[35m2[m[31m,[m White[31m,[m [31m"Elapsed       : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mLong_Integer'[01;30mImage[m[31m(([m[01;30mLong_Integer[m[31m([mProject[31m.[mDays[31m)[m [31m*[m [35m86400[m [31m+[m [01;30mLong_Integer[m[31m([mProject[31m.[mElapsed[31m))[m [31m/[m [35m3600[m[31m))[m [31m&[m [31m" hours"[m[31m);[m

	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m Draw_Header[31m;[m
      
      
      
      
      Arch_Num [31m:[m Project_Num_Range [31m:=[m [35m1[m[31m;[m
      Arch_Index [31m:[m Project_Num_Range [31m:=[m [35m0[m[31m;[m
      Arch_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Arch_Curs [31m:[m Projects_Dll[31m.[mCursor[31m;[m
      
      Component_Cur [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Component_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m

      
      
      Step_Cur [31m:[m Step_Enum [31m:=[m Prj_Selector[31m;[m
      
      
      Upgraded [31m:[m Project[31m.[mProject_Access[31m;[m
      
      
      Lib_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Lib_Name  [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m3[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m));[m
      Lib_Name_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Line_Remove [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Line_Num [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      
      
      Cmd_line [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m256[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m0[m[31m));[m
      Cmd_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Cmd [31m:[m Upgrade_Cmd_Enum [31m:=[m None[31m;[m
      
      
      Make_On_Bin      [31m:[m [01;34mconstant[m Os_Lib[31m.[mString_Access [31m:=[m [01;30mLocate_Exec_On_Path[m[31m([m[31m"make"[m[31m);[m
      Args             [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([m[31m"all"[m[31m);[m
      Outfilename      [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"sky-spawn.stdout"[m[31m;[m
      File_Set         [31m:[m [01;30mWide_String_Set[m[31m([m[35m65536[m[31m);[m
      File_Index       [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Line_Last        [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Total_Lines      [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      
      Gnose_Context [31m:[m [01;34mconstant[m [01;34maccess[m Gnos_Projects[31m.[mProjects_Context_Record [31m:=[m 
	[01;34mnew[m gnos_Projects[31m.[mProjects_Context_Record[31m;[m
      
      Project_Context [31m:[m [01;34mconstant[m [01;34maccess[m Agnose_Projects[31m.[mProjects_Context_Record [31m:=[m 
	[01;34mnew[m Agnose_Projects[31m.[mProjects_Context_Record[31m;[m

      Top [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Pid [31m:[m Process_Id[31m;[m
      
      Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m

      [01;30mInitialize[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mCreator_N[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mCreator_Ver[31m,[m App[31m.[mLines[31m-[m[35m8[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mCreator_Auth[31m,[m App[31m.[mLines[31m-[m[35m5[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mCreator_List[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m15[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mCreator_Lib[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
      
      [01;30mInitialize[m[31m([mManager_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mManager_N[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mManager_Ver[31m,[m App[31m.[mLines[31m-[m[35m8[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mManager_Auth[31m,[m App[31m.[mLines[31m-[m[35m5[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mManager_List[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m15[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mManager_cmd[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
      
      
      [01;30mInitialize[m[31m([mProject_Header[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mProject_Selector[31m,[m [35m6[m[31m,[m [35m1[m[31m,[m App[31m.[mLines [31m-[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      
      [01;30mInitialize[m[31m([mComponents_Win[31m,[m [35m6[m[31m,[m  [35m1[m[31m,[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m+[m[35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m Red[31m);[m
      
      [01;30mInitialize[m[31m([mMake_Win[31m,[m [35m6[m [31m+[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m+[m[35m1[m[31m,[m [35m1[m[31m,[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Magenta[31m);[m

      
      [01;34mdeclare[m
	 
	 
      [01;34mbegin[m
	 
	 The_User [31m:=[m [01;30mGetenv[m[31m([mUser_Val[31m);[m
	 The_Lang [31m:=[m [01;30mGetenv[m[31m([mLang_Val[31m);[m
	 [01;34mif[m The_Lang [31m/=[m [01;34mnull[m [01;34mthen[m
	    [01;34mbegin[m
	       Lang [31m:=[m Lang_Enum'[01;30mValue[m[31m([mThe_Lang[31m.[m[01;34mall[m[31m([m[35m1[m[31m..[m[35m2[m[31m));[m
	    [01;34mexception[m
	       [01;34mwhen[m Constraint_Error [31m=>[m
		  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Uncknow language ; "[m[31m);[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m	       
	 
	 
	 
     Main_Loop[31m:[m
	 [01;34mloop[m
	    [01;34mloop[m
	       [01;34mselect[m
		  
		  [01;34maccept[m Halt [01;34mdo[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Suspend[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		     Manager_Process[31m.[mTop [31m:=[m Top[31m;[m
		     [01;30mInitialize[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCreator_N[31m,[m [35m4[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCreator_Ver[31m,[m App[31m.[mLines[31m-[m[35m8[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCreator_Auth[31m,[m App[31m.[mLines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCreator_List[31m,[m [35m7[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m15[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCreator_Lib[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
		     
		     [01;30mInitialize[m[31m([mManager_Abs[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mManager_N[31m,[m [35m4[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mManager_Ver[31m,[m App[31m.[mLines[31m-[m[35m8[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mManager_Auth[31m,[m App[31m.[mLines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mManager_List[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m15[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mManager_cmd[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
		     
		     
		     [01;30mInitialize[m[31m([mProject_Header[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mProject_Selector[31m,[m [35m6[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines [31m-[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     
		     [01;30mInitialize[m[31m([mComponents_Win[31m,[m [35m6[m[31m,[m  Top[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m+[m[35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m Red[31m);[m
		     
		     [01;30mInitialize[m[31m([mMake_Win[31m,[m [35m6[m [31m+[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m+[m[35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Magenta[31m);[m
		     
		     [31m-----------------------------------------------[m
		     [31m--Errno := System("clear" & Character'Val(0));[m
		     [31m-----------------------------------------------[m
		     [01;34mif[m Curs [31m=[m Projects_Dll[31m.[mNo_Element [01;34mthen[m
			Project_Num [31m:=[m [35m0[m[31m;[m
			[01;34mif[m Projects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [31m=[m [35m1[m [01;34mthen[m
			   Curs [31m:=[m [01;30mfirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m			   
			   Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
			   Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
			[01;34melsif[m Projects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [31m>[m [35m1[m [01;34mthen[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m			   
			   Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
			   Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;34mif[m Arch_Curs [31m=[m Projects_Dll[31m.[mNo_Element [01;34mthen[m
			[01;34mif[m [01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [31m>[m [35m0[m [01;34mthen[m
			   Arch_Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mArchives[31m.[mList[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Wake_Up[31m;[m
		  [01;34mcase[m Step_Cur [01;34mis[m
		     [01;34mwhen[m Prj_Archives [31m=>[m
			[01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			[01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			[01;34mif[m [01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [31m/=[m [35m0[m [01;34mthen[m
			   [01;30mArchives_Print[m[31m([mApp[31m.[mArchives[31m,[m Arch_Index[31m,[m Arch_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m Prj_Components [31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m Prj_Selector [31m=>[m
			[01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			[01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			[01;34melse[m
			   [01;30mDraw_Header[m[31m([mNull_Project[31m,[m Project_Header[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			[01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			[01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
		     [01;34mwhen[m Prj_Creator [31m=>[m
			[01;30mDraw_Window[m[31m([mCreator_Abs[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_N[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_Ver[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_Auth[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_List[31m);[m
			[01;34mif[m Creator[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mList_Print[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Creator_List[31m,[m Lib_Index[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mDraw_Window[m[31m([mCreator_Lib[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Library   : "[m[31m);[m
			[01;30mPage_Print[m[31m([mCreator[31m.[mCurs[31m);[m
			[01;30mDraw_Text[m[31m([m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Creator[31m.[mCurs[31m.[mParts
				    [31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				 [31m);[m
		     [01;34mwhen[m Prj_Lib_Remove [31m=>[m
			[01;30mDraw_Window[m[31m([mCreator_Abs[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_N[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_Ver[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_Auth[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_List[31m);[m
			
			[01;30mList_Print[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Creator_List[31m,[m Lib_Index[31m);[m
			
			[01;30mDraw_Window[m[31m([mCreator_Lib[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Library   : "[m[31m);[m
			[01;30mPage_Print[m[31m([mCreator[31m.[mCurs[31m);[m
			[01;30mDraw_Text[m[31m([m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Creator[31m.[mCurs[31m.[mParts
				    [31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				 [31m);[m
			[01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m Prj_Manager [31m=>[m
			[01;30mDraw_Window[m[31m([mManager_Abs[31m);[m
			[01;30mDraw_Text[m[31m([mManager_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mManager_N[31m);[m
			[01;30mDraw_Text[m[31m([mManager_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
			[01;30mDraw_Window[m[31m([mManager_Ver[31m);[m
			[01;30mDraw_Text[m[31m([mManager_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m)));[m
			[01;30mDraw_Window[m[31m([mManager_Auth[31m);[m
			[01;30mDraw_Text[m[31m([mManager_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mCopyright[31m.[m[01;34mall[m[31m));[m
			[01;30mDraw_Window[m[31m([mManager_List[31m);[m
			
			[01;30mList_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Manager_List[31m,[m Lib_Index[31m);[m
			
			[01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			[01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			
			[01;30mPage_Print[m[31m([mProject_Manager[31m.[mCurs[31m);[m
			[01;30mDraw_Text[m[31m([m
				  Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				  Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				  Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Project_Manager[31m.[mCurs[31m.[mParts
				    [31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProject_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				 [31m);[m
			[01;34mif[m Line_Remove [01;34mthen[m
			   [01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_last[31m));[m
			   [01;34melse[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m
			   [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m Prj_Upgrade [31m=>[m
			[01;30mDraw_Window[m[31m([mComponents_Win[31m);[m
			Component_Cur [31m:=[m [35m0[m[31m;[m
			[01;30mComponents_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Component_Index [31m,[m Component_cur[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m2[m[31m,[m App[31m.[mColumns[31m,[m Top[31m);[m
			
			[01;30mDraw_Window[m[31m([mMake_Win[31m);[m
			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mFile_Set[31m,[m Make_Win[31m,[m File_Index[31m,[m Total_Lines[31m)[m [01;34mthen[m
			   [01;34mraise[m Program_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;34mif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m

			   [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			   
			   [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m

			[01;34melse[m

			   [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m

			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Refresh [01;34mdo[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m Refresh[31m;[m

	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m

	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Suspend[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		     Manager_Process[31m.[mTop [31m:=[m Top[31m;[m
		     [01;30mInitialize[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCreator_N[31m,[m [35m4[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCreator_Ver[31m,[m App[31m.[mLines[31m-[m[35m8[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCreator_Auth[31m,[m App[31m.[mLines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCreator_List[31m,[m [35m7[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m15[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCreator_Lib[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
		     
		     [01;30mInitialize[m[31m([mManager_Abs[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mManager_N[31m,[m [35m4[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mManager_Ver[31m,[m App[31m.[mLines[31m-[m[35m8[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mManager_Auth[31m,[m App[31m.[mLines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mManager_List[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m15[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mManager_cmd[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
		     
		     
		     [01;30mInitialize[m[31m([mProject_Header[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mProject_Selector[31m,[m [35m6[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines [31m-[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     
		     [01;30mInitialize[m[31m([mComponents_Win[31m,[m [35m6[m[31m,[m  Top[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m+[m[35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m Red[31m);[m
		     
		     [01;30mInitialize[m[31m([mMake_Win[31m,[m [35m6[m [31m+[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m+[m[35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines [31m-[m [35m8[m[31m)/[m[35m2[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Magenta[31m);[m
		     [31m-----------------------------------------------[m
		     [31m--Errno := System("clear" & Character'Val(0));[m
		     [31m-----------------------------------------------[m
		     [01;34mif[m Curs [31m=[m Projects_Dll[31m.[mNo_Element [01;34mthen[m
			Project_Num [31m:=[m [35m0[m[31m;[m
			[01;34mif[m Projects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [31m=[m [35m1[m [01;34mthen[m
			   Curs [31m:=[m [01;30mfirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m			   
			   Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
			   Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
			[01;34melsif[m Projects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [31m>[m [35m1[m [01;34mthen[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m			   
			   Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
			   Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;34mif[m Arch_Curs [31m=[m Projects_Dll[31m.[mNo_Element [01;34mthen[m
			[01;34mif[m [01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [31m>[m [35m0[m [01;34mthen[m
			   Arch_Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mArchives[31m.[mList[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m

		  [01;34mend[m Wake_Up[31m;[m
		  [01;34mcase[m Step_Cur [01;34mis[m
		     [01;34mwhen[m Prj_Archives [31m=>[m
			[01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			[01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			[01;34mif[m [01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [31m/=[m [35m0[m [01;34mthen[m
			   [01;30mArchives_Print[m[31m([mApp[31m.[mArchives[31m,[m Arch_Index[31m,[m Arch_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m Prj_Components [31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m Prj_Selector [31m=>[m
			[01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			[01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			[01;34melse[m
			   [01;30mDraw_Header[m[31m([mNull_Project[31m,[m Project_Header[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			[01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			[01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
		     [01;34mwhen[m Prj_Creator [31m=>[m
			[01;30mDraw_Window[m[31m([mCreator_Abs[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_N[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_Ver[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_Auth[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_List[31m);[m
			[01;34mif[m Creator[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mList_Print[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Creator_List[31m,[m Lib_Index[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mDraw_Window[m[31m([mCreator_Lib[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Library   : "[m[31m);[m
			[01;30mPage_Print[m[31m([mCreator[31m.[mCurs[31m);[m
			[01;30mDraw_Text[m[31m([m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Creator[31m.[mCurs[31m.[mParts
				    [31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				 [31m);[m
		     [01;34mwhen[m Prj_Lib_Remove [31m=>[m
			[01;30mDraw_Window[m[31m([mCreator_Abs[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_N[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_Ver[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_Auth[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mCreator_List[31m);[m
			
			[01;30mList_Print[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Creator_List[31m,[m Lib_Index[31m);[m
			
			[01;30mDraw_Window[m[31m([mCreator_Lib[31m);[m
			[01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Library   : "[m[31m);[m
			[01;30mPage_Print[m[31m([mCreator[31m.[mCurs[31m);[m
			[01;30mDraw_Text[m[31m([m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Creator[31m.[mCurs[31m.[mParts
				    [31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				 [31m);[m
			[01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m Prj_Manager [31m=>[m
			[01;30mDraw_Window[m[31m([mManager_Abs[31m);[m
			[01;30mDraw_Text[m[31m([mManager_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mManager_N[31m);[m
			[01;30mDraw_Text[m[31m([mManager_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
			[01;30mDraw_Window[m[31m([mManager_Ver[31m);[m
			[01;30mDraw_Text[m[31m([mManager_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m)));[m
			[01;30mDraw_Window[m[31m([mManager_Auth[31m);[m
			[01;30mDraw_Text[m[31m([mManager_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mCopyright[31m.[m[01;34mall[m[31m));[m
			[01;30mDraw_Window[m[31m([mManager_List[31m);[m
			
			[01;30mList_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Manager_List[31m,[m Lib_Index[31m);[m
			
			[01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			[01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			
			[01;30mPage_Print[m[31m([mProject_Manager[31m.[mCurs[31m);[m
			[01;30mDraw_Text[m[31m([m
				  Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				  Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				  Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Project_Manager[31m.[mCurs[31m.[mParts
				    [31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProject_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				 [31m);[m
			[01;34mif[m Line_Remove [01;34mthen[m
			   [01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_last[31m));[m
			   [01;34melse[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m
			   [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m Prj_Upgrade [31m=>[m
			[01;30mDraw_Window[m[31m([mComponents_Win[31m);[m
			Component_Cur [31m:=[m [35m0[m[31m;[m
			[01;30mComponents_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Component_Index [31m,[m Component_cur[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m2[m[31m,[m App[31m.[mColumns[31m,[m Top[31m);[m
			
			[01;30mDraw_Window[m[31m([mMake_Win[31m);[m
			[01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mFile_Set[31m,[m Make_Win[31m,[m File_Index[31m,[m Total_Lines[31m)[m [01;34mthen[m
			   [01;34mraise[m Program_Error[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;34mif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m

			   [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			   
			   [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m

			[01;34melse[m

			   [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m

			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  
	       [01;34mor[m
		  [01;34mwhen[m Step_Cur [31m=[m Prj_Selector [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m

				 Project_Num [31m:=[m Projects_Dll[31m.[m[01;30mElement[m[31m([mCurs[31m).[mProject_Num[31m;[m
				 
				 [01;34mif[m Project_Num [31m=[m [35m0[m [01;34mthen[m
				    [01;34mnull[m[31m;[m [31m-- open archives;[m
				    Arch_Count [31m:=[m [35m0[m[31m;[m
				    Arch_Index [31m:=[m [35m0[m[31m;[m
				    [01;34mif[m [01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [31m>[m [35m0[m [01;34mthen[m
				       Arch_Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mArchives[31m.[mList[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    Step_Cur [31m:=[m Prj_Archives[31m;[m				    
				 [01;34melse[m		
				    
				    Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
				    
				    
				    
				    
				    [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
				       
				       
				       Gnos_Projects[31m.[m[01;30mInitialize[m[31m([mGnose_Context[31m.[m[01;34mall[m[31m,[m Projects_Params[31m);[m   
				       
				       Project_Context[31m.[mProject [31m:=[m [01;34mnew[m Agnose_Projects[31m.[m[01;30mProject_Record_Type[m[31m([mWith_Ada[31m);[m
				       
				       
				       
				       
				       Agnose_Projects[31m.[m[01;30mLoad_project[m[31m([mProject_Context[31m.[mProject[31m.[m[01;34mall[m[31m,[m Project_Manager[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m 
								      [31m'-'[m [31m&[m Version_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m));[m   
				       
				       
				       
				       
				       
				       Set_Start_Time[31m;[m
				       Calendar[31m.[m[01;30mSplit[m[31m([mClock[31m,[m Gnos[31m.[mVersions[31m.[mStart_Date[31m.[mYear[31m,[m Gnos[31m.[mVersions[31m.[mStart_Date[31m.[mMonth[31m,[m Gnos[31m.[mVersions[31m.[mStart_Date[31m.[mDay[31m,[m Gnos[31m.[mVersions[31m.[mStart_Date[31m.[mHours[31m);[m
				       
				       [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				       
				       Project_Manager[31m.[mCurs [31m:=[m [01;30mInitialize[m[31m(([mManager_Abs[31m,[m
									   Manager_N[31m,[m
									   Manager_Ver[31m,[m
									   Manager_Auth[31m,[m
									   Manager_Cmd[31m));[m
				       
				       Step_Cur [31m:=[m Prj_Upgrade[31m;[m
				       Component_Cur [31m:=[m [35m0[m[31m;[m
				       Project[31m.[m[01;30mOpen[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m clock[31m);[m
				       [31m-----------------------------------------------[m
				       [31m--Errno := System("clear" & Character'Val(0));[m
				       [31m-----------------------------------------------[m
				       
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m 
				 Project_Num [31m:=[m [01;30mElement[m[31m([mCurs[31m).[mProject_Num[31m;[m
				 [01;34mif[m Project_Num [31m=[m [35m0[m [01;34mthen[m
				    [31m----------------------------------------------[m
				    [31m--Errno := System("clear" & Character'Val(0));[m
				    [31m----------------------------------------------[m
				    Creator[31m.[mCurs [31m:=[m [01;30mInitialize[m[31m(([mCreator_Abs[31m,[m
								Creator_N[31m,[m
								Creator_Ver[31m,[m
								Creator_Auth[31m,[m
								Creator_Lib[31m));[m
				    [01;30mProject_Free[m[31m([mCreator[31m.[mNew_Project[31m);[m
				    Creator[31m.[mNew_Project [31m:=[m [01;34mnew[m [01;30mProject_Record[m[31m([m[35m256[m[31m);[m
				    
				    Step_Cur [31m:=[m Prj_Creator[31m;[m
				    
				 [01;34melse[m
				    Project_Manager[31m.[mCurs [31m:=[m [01;30mInitialize[m[31m(([mManager_Abs[31m,[m
									Manager_N[31m,[m
									Manager_Ver[31m,[m
									Manager_Auth[31m,[m
									Manager_Cmd[31m));[m
				    
				    
				    Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
				    
				    
				    Gnos_Projects[31m.[m[01;30mInitialize[m[31m([mGnose_Context[31m.[m[01;34mall[m[31m,[m Projects_Params[31m);[m   
				    
				    Project_Context[31m.[mProject [31m:=[m [01;34mnew[m Agnose_Projects[31m.[m[01;30mProject_Record_Type[m[31m([mWith_Ada[31m);[m
				    
				    Agnose_Projects[31m.[m[01;30mLoad_project[m[31m([mProject_Context[31m.[mProject[31m.[m[01;34mall[m[31m,[m Project_Manager[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m 
								   [31m'-'[m [31m&[m Version_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m));[m
				    
				    
				    
				    Set_Start_Time[31m;[m
				    Calendar[31m.[m[01;30mSplit[m[31m([mClock[31m,[m Gnos[31m.[mVersions[31m.[mStart_Date[31m.[mYear[31m,[m Gnos[31m.[mVersions[31m.[mStart_Date[31m.[mMonth[31m,[m Gnos[31m.[mVersions[31m.[mStart_Date[31m.[mDay[31m,[m Gnos[31m.[mVersions[31m.[mStart_Date[31m.[mHours[31m);[m
				    
				    [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				    
				    Project[31m.[m[01;30mOpen[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Clock[31m);[m
				    [01;30mCursor_Set[m[31m([mProject_Manager[31m.[mCurs[31m,[m From [31m=>[m Project_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m);[m
				    [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
				       Step_Cur [31m:=[m Prj_Manager[31m;[m
				       
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
				 
				 [01;34mif[m App[31m.[mArchives[31m.[mProjects_Num [31m+[m [35m1[m [31m<=[m Project_Num_Range'Last [01;34mthen[m
				    [01;34mif[m Project_Num [31m/=[m [35m0[m [01;34mthen[m
				       [01;34mnull[m[31m;[m[31m-- move archive to projects.List;[m
				       Arch_Curs [31m:=[m Projects_Dll[31m.[m[01;30mlast[m[31m([mApp[31m.[mArchives[31m.[mList[31m);[m
				       
				       [01;34mdeclare[m
					  El [31m:[m [01;34mconstant[m Project[31m.[mProject_Access [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
				       [01;34mbegin[m
					  [01;34mif[m El[31m.[mProject_Name [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
					    El[31m.[mProject_Name'Length [31m/=[m [35m0[m [01;34mthen[m
					     
					     Errno [31m:=[m [01;30mSystem[m[31m([m[31m"mv "[m [31m&[m El[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m 
							       [31m'-'[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mEl[31m.[mVersion[31m)[m [31m&[m
							       [31m" Archives/"[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
					     [01;34mif[m Errno [31m=[m [35m0[m [01;34mthen[m
						App[31m.[mArchives[31m.[mProjects_Num [31m:=[m App[31m.[mArchives[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m
						El[31m.[mProject_Num [31m:=[m App[31m.[mArchives[31m.[mProjects_Num[31m;[m
						Projects_Dll[31m.[m[01;30mAppend[m[31m([mApp[31m.[mArchives[31m.[mList[31m,[m El[31m);[m
						[01;30mDelete[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m Curs[31m);[m
						[01;34mif[m [01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [31m>[m [35m0[m [01;34mthen[m
						   Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
						   Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
						   Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
						   Project_Count [31m:=[m [35m0[m[31m;[m
						   Project_Index [31m:=[m [35m0[m[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
						Projects_Manager[31m.[m[01;30mArchives_Save[m[31m([mApp[31m.[mArchives[31m,[m [31m"Archives/Projects.lst"[m[31m);[m
						Projects_Manager[31m.[m[01;30mManager_Save[m[31m([mApp[31m.[mProjects[31m,[m [31m"Projects.lst"[m[31m);[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m				    
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melse[m
			   [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m Receive[31m;[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_None [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Archives [31m=>[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;34mif[m [01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [31m/=[m [35m0[m [01;34mthen[m
			      [01;30mArchives_Print[m[31m([mApp[31m.[mArchives[31m,[m Arch_Index[31m,[m Arch_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m prj_Components [31m=>[m
			   
			   [01;34mnull[m[31m;[m
			   
			[01;34mwhen[m Prj_Selector [31m=>[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mwhen[m Prj_Creator [31m=>[m
			   [01;30mDraw_Window[m[31m([mCreator_Abs[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_N[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_Ver[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_Auth[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_List[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_Lib[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Library   : "[m[31m);[m
			   [01;30mPage_Print[m[31m([mCreator[31m.[mCurs[31m);[m
			   [01;30mDraw_Text[m[31m([m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Creator[31m.[mCurs[31m.[mParts
				       [31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				    [31m);[m
			   
			[01;34mwhen[m Prj_Manager [31m=>[m
			   [01;30mDraw_Window[m[31m([mManager_Abs[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mManager_N[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
			   [01;30mDraw_Window[m[31m([mManager_Ver[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m)));[m
			   [01;30mDraw_Window[m[31m([mManager_Auth[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mCopyright[31m.[m[01;34mall[m[31m));[m
			   [01;30mDraw_Window[m[31m([mManager_List[31m);[m
			   
			   [01;30mList_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Manager_List[31m,[m Lib_Index[31m);[m
			   
			   [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			   
			   [01;30mPage_Print[m[31m([mProject_Manager[31m.[mCurs[31m);[m
			   [01;30mDraw_Text[m[31m([m
				     Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				     Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				     Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Project_Manager[31m.[mCurs[31m.[mParts
				       [31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProject_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				    [31m);[m
			   [01;34mif[m Line_Remove [01;34mthen[m
			      [01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_last[31m));[m
			      [01;34melse[m
				 [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34melsif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m
			   [01;34melse[m
			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m Prj_Upgrade [31m=>[m
			   [01;30mDraw_Window[m[31m([mComponents_Win[31m);[m

			   [01;30mComponents_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Component_Index [31m,[m Component_cur[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m2[m[31m,[m App[31m.[mColumns[31m,[m top[31m);[m

			   [01;30mDraw_Window[m[31m([mMake_Win[31m);[m
			   [01;34mif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m

			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m

			   [01;34melse[m

			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m

			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mor[m
		  [01;34mwhen[m Step_Cur [31m=[m Prj_creator [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
				 Creator[31m.[mCurs [31m:=[m [01;30mInitialize[m[31m(([mCreator_Abs[31m,[m
							     Creator_N[31m,[m
							     Creator_Ver[31m,[m
							     Creator_Auth[31m,[m
							     Creator_Lib[31m));[m
				 [01;30mProject_Free[m[31m([mCreator[31m.[mNew_Project[31m);[m
				 Creator[31m.[mNew_Project [31m:=[m [01;34mnew[m [01;30mProject_Record[m[31m([m[35m256[m[31m);[m
				 
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m5[m[31m)[m [31m=>[m 
				 Step_Cur [31m:=[m Prj_Lib_Remove[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m 
				 [01;34mif[m Creator[31m.[mCurs[31m.[mPart_Cur [31m=[m Creator_Library [01;34mthen[m
				    
				    [01;34mif[m Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast [31m/=[m [35m0[m [01;34mthen[m

				       Lib_Add
					 [31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m 
					  Handling[31m.[mTo_String
					    [31m([mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)));[m

				       Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
				       Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast [31m:=[m [35m0[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34melse[m
				    Creator[31m.[mCurs[31m.[mPart_Cur [31m:=[m Part_Enum'[01;30mSucc[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m
				 [31m----------------------------------------------[m
				 [31m--Errno := System("clear" & Character'Val(0));[m
				 [01;34mnull[m[31m;[m
				 [31m----------------------------------------------[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m18[m[31m)[m [31m=>[m 
				 [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				 
				 [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m
				 Step_Cur [31m:=[m Prj_Selector[31m;[m
				 
				 
				 
				 [31m----------------------------------------------[m
				 [31m--Errno := System("clear" & Character'Val(0));[m
				 [31m----------------------------------------------[m
				 [01;34mif[m Curs [31m=[m Projects_Dll[31m.[mNo_Element [01;34mthen[m
				    Project_Num [31m:=[m [35m0[m[31m;[m
				    [01;34mif[m Projects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [31m=[m [35m1[m [01;34mthen[m
				       Curs [31m:=[m [01;30mfirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m			   
				       Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
				       Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
				    [01;34melsif[m Projects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [31m>[m [35m1[m [01;34mthen[m
				       Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m			   
				       Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
				       Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m
				 
				 
				 
				 
				 [01;34mif[m Arch_Curs [31m=[m Projects_Dll[31m.[mNo_Element [01;34mthen[m
				    [01;34mif[m [01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [31m>[m [35m0[m [01;34mthen[m
				       Arch_Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mArchives[31m.[mList[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m20[m[31m)[m [31m=>[m
				 
				 
				 Creator[31m.[mNew_Project [31m:=[m [01;30mTo_Project[m[31m([mCreator[31m,[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m);[m
				 
				 
				 [01;30mMake_Project[m[31m([mCreator[31m);[m
				 
				 Curs [31m:=[m [01;30mLast[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
				 
				 [01;30mInsert[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m Curs[31m,[m Creator[31m.[mNew_Project[31m);[m

				 App[31m.[mProjects[31m.[mProjects_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m

				 Project_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num[31m;[m

				 

				 
				 Creator[31m.[mCurs [31m:=[m [01;30mInitialize[m[31m(([mCreator_Abs[31m,[m
							     Creator_N[31m,[m
							     Creator_Ver[31m,[m
							     Creator_Auth[31m,[m
							     Creator_Lib[31m));[m
				 
				 Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
				 Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
				 Curs [31m:=[m [01;30mPrevious[m[31m([mCurs[31m);[m
				 
				 [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				 
				 [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m
				 Step_Cur [31m:=[m Prj_Selector[31m;[m
				 
				 
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
				 
				 [01;34mif[m Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast [31m>[m [35m0[m [01;34mthen[m
				    Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				    Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast [31m:=[m 
				      Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast [31m-[m [35m1[m[31m;[m
				 [01;34melse[m
				    Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			   [01;34mcase[m Step_Cur [01;34mis[m
			      [01;34mwhen[m Prj_None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m Prj_Selector [31m=>[m
				 [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
				 
				 [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
				    [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 
				 [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
				 [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			      [01;34mwhen[m Prj_Creator [31m=>[m
				 [01;30mDraw_Window[m[31m([mCreator_Abs[31m);[m
				 [01;30mDraw_Text[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
				 [01;30mDraw_Window[m[31m([mCreator_N[31m);[m
				 [01;30mDraw_Text[m[31m([mCreator_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
				 [01;30mDraw_Window[m[31m([mCreator_Ver[31m);[m
				 [01;30mDraw_Text[m[31m([mCreator_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m[31m);[m
				 [01;30mDraw_Window[m[31m([mCreator_Auth[31m);[m
				 [01;30mDraw_Text[m[31m([mCreator_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m[31m);[m
				 [01;30mDraw_Window[m[31m([mCreator_List[31m);[m
				 
				 [01;30mList_Print[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Creator_List[31m,[m Lib_Index[31m);[m
				 
				 [01;30mDraw_Window[m[31m([mCreator_Lib[31m);[m
				 [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Library   : "[m[31m);[m
				 [01;30mPage_Print[m[31m([mCreator[31m.[mCurs[31m);[m
				 [01;30mDraw_Text[m[31m([m
					   Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
					   Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
					   Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Creator[31m.[mCurs[31m.[mParts
					     [31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
					  [31m);[m				 
			      [01;34mwhen[m Prj_Lib_Remove [31m=>[m
				 [01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
				    [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num  : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_last[31m));[m
				 [01;34melse[m
				    [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num  : "[m[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melsif[m Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast [31m+[m [35m1[m [31m<=[m 
			  Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine'Length [01;34mthen[m
			   
			   Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			   Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast [31m:=[m
			     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast [31m+[m [35m1[m[31m;[m
			   [01;30mDraw_Window[m[31m([mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m);[m
			   [01;30mPage_Print[m[31m([mCreator[31m.[mCurs[31m);[m
			   [01;30mDraw_Text[m[31m([m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Creator[31m.[mCurs[31m.[mParts
				       [31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				    [31m);[m
			   
			[01;34melse[m
			   Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m ' [01;30mVal[m [31m([m[35m7[m[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m Receive[31m;[m
		     
	       [01;34mor[m
		  [01;34mwhen[m Step_Cur [31m=[m Prj_Manager [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m			   
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m 
				 [01;34mbegin[m
				    Cmd [31m:=[m [01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m)));[m
				    [01;34mcase[m Cmd [01;34mis[m
				       [01;34mwhen[m None [31m=>[m
					  [01;34mnull[m[31m;[m
				       [01;34mwhen[m Help [31m=>[m
					  [01;34mnull[m[31m;[m
				       [01;34mwhen[m Make [31m=>[m
					  [01;34mif[m Cmd_Last [31m=[m [35m4[m [01;34mthen[m
					     Errno [31m:=[m [01;30mSystem[m[31m([m[31m"make"[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
					  [01;34melse[m
					     [01;30mChange_Dir[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m"-"[m [31m&[m Version_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m));[m            
					     
					     [01;30mFree[m[31m([mArgs[31m);[m
					     Args [31m:=[m [01;30mArgument_String_To_List[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([m[35m6[m[31m..[mCmd_Last[31m))[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
					     
					     [31m-------------------------------------------------------------------[m
					     
					     [31m-- Spawn(Make_On_Bin.all, Args.all, Outfilename, Success, errno);[m
					     
					     
					     [31m-- replaced by[m
					     
					     Pid [31m:=[m [01;30mNon_Blocking_Spawn[m[31m([mMake_On_Bin[31m.[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Outfilename[31m);[m
					     
					     [01;30mWait_Process[m[31m([mPid[31m,[m Success[31m);[m
					     
					     [31m-------------------------------------------------------------------[m
					     
					     
					     
					     [31m--Errno := System("make " &  Handling.To_String(Cmd_Line(6..Cmd_Last)) & Character'Val(0));[m
					     [01;30mLoad_File[m[31m([mFile_Set[31m,[m Outfilename[31m,[m Line_Last[31m);[m
					     [01;30mChange_Dir[m[31m([m[31m".."[m[31m);[m
					     
					     
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mwhen[m Add [31m=>[m
					  [01;34mif[m Cmd_Last [31m>[m [35m4[m [01;34mthen[m
					     [01;30mLib_Add[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([m[35m5[m[31m..[mCmd_Last[31m)));[m
					     [01;30mList_Save[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m);[m
					  [01;34melse[m
					     [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mwhen[m Remove [31m=>[m
					  [01;34mbegin[m
					     Line_Num [31m:=[m Natural'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m+[m[35m7[m[31m..[mCmd_Last[31m)));[m
					     
					     [01;30mRemove_Name[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Line_Num[31m);[m
					     [01;30mList_Save[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m);[m
					  [01;34mexception[m
					     [01;34mwhen[m [01;34mothers[m [31m=>[m
						[01;34mnull[m[31m;[m
					  [01;34mend[m[31m;[m
				       [01;34mwhen[m Upgrade [31m=>[m
					  
					  
					  
					  [31m----------------------------------------------------------------------------------------------------------[m
					  [31m--[m
					  [31m--[m
					  [31m--[m
					  [31m--[m
					  [31m--[m
					  [31m--[m
					  
					  Upgraded [31m:=[m [01;34mnew[m Project_Record ' [31m([mProject_Manager[31m.[mNew_project[31m.[m[01;34mall[m[31m);[m
					  
					  

					  
					  
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Update version..."[m[31m);[m
					  
					  
					  
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- check for New Specifications..."[m[31m);[m
					  
					  Versions[31m.[mNew_Description [31m:=[m Environment[31m.[m[01;30mCheck_Modification_To_New_Description[m[31m([mProject_Context[31m.[m[01;34mall[m[31m);[m
					  

					  [01;30mPut_Line[m[31m([m[31m"New Description : "[m [31m&[m [32mBoolean[m'[01;30mImage[m[31m([mVersions[31m.[mNew_Description[31m));[m					  
					  
					  
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- check for New Implementation..."[m[31m);[m
					  
					  Versions[31m.[mNew_Action [31m:=[m Environment[31m.[m[01;30mCheck_Modification_To_New_Action[m[31m([mProject_Context[31m.[m[01;34mall[m[31m);[m

					  [01;30mPut_Line[m[31m([m[31m"New Implementation : "[m [31m&[m [32mBoolean[m'[01;30mImage[m[31m([mVersions[31m.[mNew_Action[31m));[m					  
					  
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Version Update..."[m[31m);[m
					  [31m-- update Version ![m
					  [01;34mif[m Project_Context[31m.[mProject[31m.[mProject_Prefix [31m/=[m [01;34mnull[m [01;34mthen[m
					     
					     Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project prefix : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
					     
					     Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project name : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m 
					     [01;34mdeclare[m
						
						Node_Name [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProject_Context[31m.[mProject[31m.[m[01;30mProject_Name[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Prefix'Length[31m+[m[35m1[m[31m..[mProject_Context[31m.[mProject[31m.[mProject_Name'Last[31m));[m

					     [01;34mbegin[m
						
						
						[01;34mif[m Versions[31m.[mNew_Description [01;34mthen[m
						   [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   Upgraded[31m.[mVersion [31m:=[m 
						     [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						   [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   
						   Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting minor version..."[m[31m);[m
						   
						   [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						   [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						   
						   [01;34mfor[m File_Id [01;34min[m Specifications_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
						      [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
						      [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   [01;34mend[m [01;34mloop[m[31m;[m
						   
						   
						[01;34mend[m [01;34mif[m[31m;[m
						
						[01;34mif[m Versions[31m.[mNew_Action [01;34mthen[m
						   [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   Upgraded[31m.[mVersion [31m:=[m 
						     [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						   [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   
						   Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting revision version..."[m[31m);[m
						   
						   [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						   [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						   [01;34mfor[m File_Id [01;34min[m Implementations_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
						      [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
						      [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   [01;34mend[m [01;34mloop[m[31m;[m
						   
						   
						[01;34mend[m [01;34mif[m[31m;[m
						
						[01;34mif[m Versions[31m.[mNew_Action [01;34mor[m Versions[31m.[mNew_Description [01;34mthen[m
						   [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   Upgraded[31m.[mVersion [31m:=[m 
						     [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						   [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   
						   Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting major version..."[m[31m);[m
						   [01;30mTo_Major[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
						   [01;30mTo_Minor[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
						   [01;30mTo_Revision[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
						   
						[01;34melse[m
						   Upgraded[31m.[mVersion [31m:=[m 
						     [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						   Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting release version..."[m[31m);[m
						   [01;30mTo_Release[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m
							      Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
						[01;34mend[m [01;34mif[m[31m;[m
						Versions[31m.[mNew_Action [31m:=[m False[31m;[m	       
						Versions[31m.[mNew_Description [31m:=[m False[31m;[m
						
					     [01;34mend[m[31m;[m
					  [01;34melse[m

					     Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project name : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m 
					     [01;34mdeclare[m
						
						Node_Name [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m

					     [01;34mbegin[m
						
						
						[01;34mif[m Versions[31m.[mNew_Description [01;34mthen[m
						   [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   Upgraded[31m.[mVersion [31m:=[m 
						     [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						   [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   
						   
						   [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						   [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						   
						   [01;34mfor[m File_Id [01;34min[m Specifications_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
						      [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
						      [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   [01;34mend[m [01;34mloop[m[31m;[m
						   
						   
						[01;34mend[m [01;34mif[m[31m;[m
						
						[01;34mif[m Versions[31m.[mNew_Action [01;34mthen[m
						   [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   Upgraded[31m.[mVersion [31m:=[m 
						     [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						   [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   
						   [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						   [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						   [01;34mfor[m File_Id [01;34min[m Implementations_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
						      [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
						      [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						   [01;34mend[m [01;34mloop[m[31m;[m
						   
						   
						[01;34mend[m [01;34mif[m[31m;[m
						
						[01;34mif[m Versions[31m.[mNew_Action [01;34mor[m Versions[31m.[mNew_Description [01;34mthen[m
						   Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting revision version..."[m[31m);[m
						   [01;30mTo_Revision[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
						   Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting minor version..."[m[31m);[m
						   [01;30mTo_Minor[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
						   Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting major version..."[m[31m);[m
						   [01;30mTo_Major[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
						[01;34melse[m
						   [01;34mif[m Environment[31m.[mVersion_Update [31m/=[m [35m0[m [01;34mthen[m
						      [01;34mraise[m Program_Error[31m;[m
						   [01;34mend[m [01;34mif[m[31m;[m		  
						   Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting release version..."[m[31m);[m
						   [01;30mTo_Release[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m
							      [31m""[m[31m);[m
						[01;34mend[m [01;34mif[m[31m;[m
						Versions[31m.[mNew_Action [31m:=[m False[31m;[m	       
						Versions[31m.[mNew_Description [31m:=[m False[31m;[m
						
					     [01;34mend[m[31m;[m
					     
					  [01;34mend[m [01;34mif[m[31m;[m
					  
					  [31m--[m
					  [31m--[m
					  [31m--[m
					  [31m--[m
					  [31m--[m
					  [31m--[m
					  [31m--[m
					  [31m-----------------------------------------------------------------------------------------------------------[m
					  

					  [31m--  --[m
					  [31m--  --[m
					  [31m--  --[m
					  [31m--  --[m
					  [31m--  --[m
					  [31m--  --[m
					  [31m--  --[m
					  [31m--  -----------------------------------------------------------------------------------------------------------[m
					  
					  
					  
					  
					  
					  
					  [01;34mif[m Upgraded [31m/=[m [01;34mnull[m [01;34mthen[m
					     
					     App[31m.[mProjects[31m.[mProjects_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m
					     Upgraded[31m.[mProject_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num[31m;[m
					     Curs [31m:=[m [01;30mLast[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
					     Projects_DLL[31m.[m[01;30mDelete[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m Curs[31m);[m
					     [01;34mif[m Upgraded[31m.[mVersion[31m.[mRevision_Version [31m+[m [35m1[m [31m<[m M[31m.[mVersions[31m.[mRevision_Version_Type'Last [01;34mthen[m
						Upgraded[31m.[mVersion[31m.[mRevision_Version [31m:=[m 
						  Upgraded[31m.[mVersion[31m.[mRevision_Version [31m+[m [35m1[m[31m;[m
					     [01;34mend[m [01;34mif[m[31m;[m
					     
					     [01;30mAppend[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m Upgraded[31m);[m
					     Projects_Manager[31m.[m[01;30mManager_Save[m[31m([mApp[31m.[mProjects[31m,[m [31m"./Projects.lst"[m[31m);[m
					     [01;34mif[m [01;30mUpdate[m[31m([m[01;30mGet_Info[m[31m([mApp[31m.[mProjects[31m,[m Project_Manager[31m.[mNew_Project[31m.[mProject_Num[31m),[m Upgraded[31m.[mVersion[31m,[m App[31m.[mSessions[31m,[m App[31m.[mLogs[31m)[m [31m=[m [35m0[m [01;34mthen[m
						
						Projects_Dll[31m.[m[01;30mClear[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
						Projects_Manager[31m.[m[01;30mManager_Load[m[31m([mApp[31m.[mProjects[31m,[m [31m"./Projects.lst"[m[31m);[m
					     [01;34mend[m [01;34mif[m[31m;[m
					     
					     App[31m.[mProjects[31m.[mProjects_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m
					     [01;30mAppend[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m 
						    [01;34mnew[m Project_Record ' [31m([mNull_Project[31m));[m
					     
					  [01;34mend[m [01;34mif[m[31m;[m
					  Project[31m.[m[01;30mClose[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Clock[31m);[m
					  Project_Count [31m:=[m [35m0[m[31m;[m
					  Project_Index [31m:=[m [35m0[m[31m;[m
					  Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m			   
					  Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
					  Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
					  
					  
					  
					  
					  [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				       
					  [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m
					  Step_Cur [31m:=[m Prj_Selector[31m;[m

				       [01;34mwhen[m Quit [31m=>[m
					  [01;34mnull[m[31m;[m
				    [01;34mend[m [01;34mcase[m[31m;[m
				    
				    Cmd_Last [31m:=[m [35m0[m[31m;[m
				    Cmd_Line [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m));[m
				 [01;34mexception[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       [01;34mnull[m[31m;[m
				 [01;34mend[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m18[m[31m)[m [31m=>[m 
				 Project[31m.[m[01;30mClose[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Clock[31m);[m
				 
				 [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				       
				 [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m
				 Step_Cur [31m:=[m Prj_Selector[31m;[m

				 [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
				 
				 
				 [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
				 [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m

			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m21[m[31m)[m [31m=>[m
				 
				 [31m----------------------------------------------------------------------------------------------------------[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 
				 
				 

				 
				 Upgraded [31m:=[m [01;34mnew[m Project_Record ' [31m([mProject_Manager[31m.[mNew_project[31m.[m[01;34mall[m[31m);[m

				 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Update version..."[m[31m);[m
				 
				 
				 
				 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- check for New Specifications..."[m[31m);[m
				 
				 Versions[31m.[mNew_Description [31m:=[m Environment[31m.[m[01;30mCheck_Modification_To_New_Description[m[31m([mProject_Context[31m.[m[01;34mall[m[31m);[m
				 


				 
				 
				 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- check for New Implementation..."[m[31m);[m
				 
				 Versions[31m.[mNew_Action [31m:=[m Environment[31m.[m[01;30mCheck_Modification_To_New_Action[m[31m([mProject_Context[31m.[m[01;34mall[m[31m);[m

				 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Version Update..."[m[31m);[m
				 [31m-- update Version ![m
				 [01;34mif[m Project_Context[31m.[mProject[31m.[mProject_Prefix [31m/=[m [01;34mnull[m [01;34mthen[m

				    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project prefix : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
				    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project name : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m 
				    [01;34mdeclare[m

				       Node_Name [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProject_Context[31m.[mProject[31m.[m[01;30mProject_Name[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Prefix'Length[31m+[m[35m1[m[31m..[mProject_Context[31m.[mProject[31m.[mProject_Name'Last[31m));[m

				    [01;34mbegin[m
				       
				       
				       [01;34mif[m Versions[31m.[mNew_Description [01;34mthen[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting minor version..."[m[31m);[m
					  
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  
					  [01;34mfor[m File_Id [01;34min[m Specifications_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m));[m
					  [01;34mend[m [01;34mloop[m[31m;[m
					  
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				       [01;34mif[m Versions[31m.[mNew_Action [01;34mthen[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting revision version..."[m[31m);[m
					  
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;34mfor[m File_Id [01;34min[m Implementations_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m));[m
					  [01;34mend[m [01;34mloop[m[31m;[m
					  
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				       [01;34mif[m Versions[31m.[mNew_Action [01;34mor[m Versions[31m.[mNew_Description [01;34mthen[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting major version..."[m[31m);[m
					  [01;30mTo_Major[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
					  [01;30mTo_Minor[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
					  [01;30mTo_Revision[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
					  
				       [01;34melse[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting release version..."[m[31m);[m
					  [01;30mTo_Release[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m
						     Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m
				       Versions[31m.[mNew_Action [31m:=[m False[31m;[m	       
				       Versions[31m.[mNew_Description [31m:=[m False[31m;[m
				       
				    [01;34mend[m[31m;[m
				 [01;34melse[m

				    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project name : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m 

				    [01;34mdeclare[m
				       
				       Node_Name [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m

				    [01;34mbegin[m
				       
				       
				       [01;34mif[m Versions[31m.[mNew_Description [01;34mthen[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  
					  [31m--  if Environment.Version_Update /= 0 then[m
					  [31m--     raise Program_Error;[m
					  [31m--  end if;		  [m
					  
					  
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  
					  [01;34mfor[m File_Id [01;34min[m Specifications_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m));[m
					  [01;34mend[m [01;34mloop[m[31m;[m
					  
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				       [01;34mif[m Versions[31m.[mNew_Action [01;34mthen[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  
					  [31m--  if Environment.Version_Update /= 0 then[m
					  [31m--     raise Program_Error;[m
					  [31m--  end if;		  		  [m
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;34mfor[m File_Id [01;34min[m Implementations_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m));[m
					  [01;34mend[m [01;34mloop[m[31m;[m
					  
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				       [01;34mif[m Versions[31m.[mNew_Action [01;34mor[m Versions[31m.[mNew_Description [01;34mthen[m
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting revision version..."[m[31m);[m
					  [01;30mTo_Revision[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting minor version..."[m[31m);[m
					  [01;30mTo_Minor[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting major version..."[m[31m);[m
					  [01;30mTo_Major[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
				       [01;34melse[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  
					  [31m--  if Environment.Version_Update /= 0 then[m
					  [31m--     raise Program_Error;[m
					  [31m--  end if;		  [m
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting release version..."[m[31m);[m
					  [01;30mTo_Release[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m
						     [31m""[m[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m
				       Versions[31m.[mNew_Action [31m:=[m False[31m;[m	       
				       Versions[31m.[mNew_Description [31m:=[m False[31m;[m
				       
				    [01;34mend[m[31m;[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m

				 
				 
				 

				 
				 
				 
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m-----------------------------------------------------------------------------------------------------------[m
				 
				 
				 [01;34mif[m Upgraded [31m/=[m [01;34mnull[m [01;34mthen[m
				    
				    App[31m.[mProjects[31m.[mProjects_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m
				    Upgraded[31m.[mProject_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num[31m;[m
				    Curs [31m:=[m [01;30mLast[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
				    Projects_DLL[31m.[m[01;30mDelete[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m Curs[31m);[m
				    [01;34mif[m Upgraded[31m.[mVersion[31m.[mRevision_Version [31m+[m [35m1[m [31m<[m M[31m.[mVersions[31m.[mRevision_Version_Type'Last [01;34mthen[m
				       Upgraded[31m.[mVersion[31m.[mRevision_Version [31m:=[m 
					 Upgraded[31m.[mVersion[31m.[mRevision_Version [31m+[m [35m1[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				    [01;30mAppend[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m Upgraded[31m);[m
				    Projects_Manager[31m.[m[01;30mManager_Save[m[31m([mApp[31m.[mProjects[31m,[m [31m"./Projects.lst"[m[31m);[m
				    [01;34mif[m [01;30mUpdate[m[31m([m[01;30mGet_Info[m[31m([mApp[31m.[mProjects[31m,[m Project_Manager[31m.[mNew_Project[31m.[mProject_Num[31m),[m Upgraded[31m.[mVersion[31m,[m App[31m.[mSessions[31m,[m App[31m.[mLogs[31m)[m [31m=[m [35m0[m [01;34mthen[m
				       
				       Projects_Dll[31m.[m[01;30mClear[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
				       Projects_Manager[31m.[m[01;30mManager_Load[m[31m([mApp[31m.[mProjects[31m,[m [31m"./Projects.lst"[m[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				    App[31m.[mProjects[31m.[mProjects_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m
				    [01;30mAppend[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m 
					   [01;34mnew[m Project_Record ' [31m([mNull_Project[31m));[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m
				 Project[31m.[m[01;30mClose[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Clock[31m);[m
				 Project_Count [31m:=[m [35m0[m[31m;[m
				 Project_Index [31m:=[m [35m0[m[31m;[m
				 Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m			   
				 Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
				 Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
				 

				 [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				       
				 [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m
				 Step_Cur [31m:=[m Prj_Selector[31m;[m

				 
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
				 [01;34mif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m
				    [01;30mCmd_Line[m[31m([mCmd_Last[31m)[m [31m:=[m  Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				    Cmd_Last [31m:=[m Cmd_Last [31m-[m [35m1[m[31m;[m
				 [01;34melse[m
				    [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melsif[m Cmd_Last [31m<[m Cmd_Line'Length [01;34mthen[m
			   [01;30mCmd_Line[m[31m([mCmd_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			   Cmd_Last [31m:=[m Cmd_Last [31m+[m [35m1[m[31m;[m
			[01;34melse[m
			   [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m Receive[31m;[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_Selector [31m=>[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mwhen[m Prj_Creator [31m=>[m
			   [01;30mDraw_Window[m[31m([mCreator_Abs[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_N[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_Ver[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_Auth[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_List[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_Lib[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Library   : "[m[31m);[m
			   [01;30mPage_Print[m[31m([mCreator[31m.[mCurs[31m);[m
			   [01;30mDraw_Text[m[31m([m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Creator[31m.[mCurs[31m.[mParts
				       [31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				    [31m);[m
			[01;34mwhen[m Prj_Lib_Remove [31m=>[m
			   [01;30mDraw_Window[m[31m([mCreator_Abs[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_N[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_Ver[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_Auth[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mCreator_List[31m);[m
			   
			   [01;30mList_Print[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Creator_List[31m,[m Lib_Index[31m);[m
			   
			   [01;30mDraw_Window[m[31m([mCreator_Lib[31m);[m
			   [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Library   : "[m[31m);[m
			   [01;30mPage_Print[m[31m([mCreator[31m.[mCurs[31m);[m
			   [01;30mDraw_Text[m[31m([m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				     Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Creator[31m.[mCurs[31m.[mParts
				       [31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				    [31m);[m
			   [01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
			      [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_last[31m));[m
			   [01;34melse[m
			      [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m Prj_Manager [31m=>[m
			   [01;30mDraw_Window[m[31m([mManager_Abs[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mManager_N[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
			   [01;30mDraw_Window[m[31m([mManager_Ver[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m)));[m
			   [01;30mDraw_Window[m[31m([mManager_Auth[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mCopyright[31m.[m[01;34mall[m[31m));[m
			   
			   [01;30mDraw_Window[m[31m([mManager_List[31m);[m
			   
			   [01;30mList_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Manager_List[31m,[m Lib_Index[31m);[m
			   
			   [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			   [01;30mPage_Print[m[31m([mProject_Manager[31m.[mCurs[31m);[m
			   [01;30mDraw_Text[m[31m([m
				     Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				     Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				     Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Project_Manager[31m.[mCurs[31m.[mParts
				       [31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProject_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				    [31m);[m
			   [01;34mif[m Line_Remove [01;34mthen[m
			      [01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_last[31m));[m
			      [01;34melse[m
				 [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34melsif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m
			   [01;34melse[m
			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m Prj_Upgrade [31m=>[m
			   [01;30mDraw_Window[m[31m([mComponents_Win[31m);[m
			   [01;30mComponents_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Component_Index [31m,[m Component_cur[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m2[m[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			   
			   [01;30mDraw_Window[m[31m([mMake_Win[31m);[m
			   [01;34mif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m
			   [01;34melse[m
			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		     
	       [01;34mor[m
		  [01;34mwhen[m Step_Cur [31m=[m Prj_archives [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m			
				 [01;34mif[m [01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [31m>[m [35m0[m [01;34mthen[m
				    Arch_Num [31m:=[m [01;30mElement[m[31m([mArch_Curs[31m).[mProject_Num[31m;[m
				    [01;30mPut_Line[m[31m([m[31m"Arch_Num : "[m [31m&[m [32mInteger[m'[01;30mImage[m[31m([m[32mInteger[m[31m([mArch_Num[31m)));[m
				    
				    [01;34mif[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m [31m<=[m Project_Num_Range'Last [01;34mthen[m
				       
				       [01;34mif[m Arch_Num [31m/=[m [35m0[m [01;34mthen[m
					  [01;34mnull[m[31m;[m[31m-- move archive to projects.List;[m
					  Curs [31m:=[m Projects_Dll[31m.[m[01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
					  Project_Count [31m:=[m [35m0[m[31m;[m
					  Project_Index [31m:=[m [35m0[m[31m;[m
					  [01;34mdeclare[m
					     El [31m:[m [01;34mconstant[m Project[31m.[mProject_Access [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mArchives[31m,[m Arch_Num[31m);[m
					  [01;34mbegin[m
					     [01;34mif[m El[31m.[mProject_Name [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
					       El[31m.[mProject_Name'Length [31m/=[m [35m0[m [01;34mthen[m
						
						Errno [31m:=[m [01;30mSystem[m[31m([m[31m"mv Archives/"[m [31m&[m El[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m 
								  Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mEl[31m.[mVersion[31m)[m [31m&[m 
								  [31m" ."[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
						
						
						
						
						
						
						[01;34mif[m Errno [31m=[m [35m0[m [01;34mthen[m
						   El[31m.[mProject_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m
						   App[31m.[mProjects[31m.[mProjects_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m
						   
						   [01;30mInsert[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m Curs[31m,[m El[31m,[m Curs[31m);[m
						   [01;30mDelete[m[31m([mApp[31m.[mArchives[31m.[mList[31m,[m Arch_Curs[31m);[m
						   Projects_Manager[31m.[m[01;30mArchives_Save[m[31m([mApp[31m.[mArchives[31m,[m [31m"Archives/Projects.lst"[m[31m);[m
						   Projects_Manager[31m.[m[01;30mManager_Save[m[31m([mApp[31m.[mArchives[31m,[m [31m"Projects.lst"[m[31m);[m
						[01;34mend[m [01;34mif[m[31m;[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m				    
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mif[m [01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [31m>[m [35m0[m [01;34mthen[m
				    Arch_Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mArchives[31m.[mList[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				 
				 [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m
				 Step_Cur [31m:=[m Prj_Selector[31m;[m

			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m 
				 [01;34mnull[m[31m;[m [31m-- nothing to be done.[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
				 Project[31m.[m[01;30mClose[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Clock[31m);[m
				 [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				 
				 [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m
				 

				 Step_Cur [31m:=[m Prj_Selector[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melse[m
			   [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m Receive[31m;[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_Archives [31m=>[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mArchives_Print[m[31m([mApp[31m.[mArchives[31m,[m Arch_Index[31m,[m Arch_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mwhen[m Prj_None [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Manager [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Selector [31m=>[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		     
	       [01;34mor[m
		  [01;34mwhen[m Step_Cur [31m=[m Prj_Components [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m 
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m18[m[31m)[m [31m=>[m 
				 Step_Cur [31m:=[m Prj_Manager[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melse[m
			   [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m Receive[31m;[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_None [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Manager [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Selector [31m=>[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		     
		     
	       [01;34mor[m
		  [01;34mwhen[m Step_Cur [31m=[m Prj_Editor [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m 
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m18[m[31m)[m [31m=>[m 
				 Step_Cur [31m:=[m Prj_Manager[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melse[m
			   [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m Receive[31m;[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_None [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Manager [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Selector [31m=>[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mor[m
		  [01;34mwhen[m Step_Cur [31m=[m Prj_Lib_Remove [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m 
				 [01;34mdeclare[m
				    Line_Num [31m:[m Natural [31m:=[m [35m0[m[31m;[m
				 [01;34mbegin[m
				    Line_Num [31m:=[m Natural'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_Last[31m)));[m
				    [01;30mRemove_Name[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Line_Num[31m);[m
				    
				 [01;34mexception[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       [01;34mnull[m[31m;[m
				 [01;34mend[m[31m;[m
				 Step_Cur [31m:=[m Prj_Creator[31m;[m
				 Lib_Name [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m));[m
				 Lib_Name_Last [31m:=[m [35m0[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m
				 [31m-----------------------------------------------[m
				 [31m--Errno := System("clear" & Character'Val(0));[m
				 [31m-----------------------------------------------[m
				 [01;34mnull[m[31m;[m
				 
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m 
				 [01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
				    [01;30mLib_Name[m[31m([mLib_Name_Last[31m)[m [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				    Lib_Name_Last [31m:=[m Lib_Name_Last [31m-[m [35m1[m[31m;[m
				 [01;34melse[m
				    [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			   [01;34mcase[m Step_Cur [01;34mis[m
			      [01;34mwhen[m Prj_None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m Prj_Selector [31m=>[m
				 [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
				 [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
				    [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
				 [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			      [01;34mwhen[m Prj_Creator [31m=>[m
				 [01;30mDraw_Window[m[31m([mCreator_Abs[31m);[m
				 [01;30mDraw_Text[m[31m([mCreator_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
				 [01;30mDraw_Window[m[31m([mCreator_N[31m);[m
				 [01;30mDraw_Text[m[31m([mCreator_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
				 [01;30mDraw_Window[m[31m([mCreator_Ver[31m);[m
				 [01;30mDraw_Text[m[31m([mCreator_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m[31m);[m
				 [01;30mDraw_Window[m[31m([mCreator_Auth[31m);[m
				 [01;30mDraw_Text[m[31m([mCreator_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m[31m);[m
				 [01;30mDraw_Window[m[31m([mCreator_List[31m);[m
				 
				 [01;30mList_Print[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Creator_List[31m,[m Lib_Index[31m);[m
				 
				 [01;30mDraw_Window[m[31m([mCreator_Lib[31m);[m
				 [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Library   : "[m[31m);[m
				 [01;30mPage_Print[m[31m([mCreator[31m.[mCurs[31m);[m
				 [01;30mDraw_Text[m[31m([m
					   Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
					   Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
					   Creator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Creator[31m.[mCurs[31m.[mParts
					     [31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCreator[31m.[mCurs[31m.[m[01;30mParts[m[31m([mCreator[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
					  [31m);[m				 
			      [01;34mwhen[m Prj_Lib_Remove [31m=>[m
				 [01;30mDraw_Window[m[31m([mCreator_Lib[31m);[m
				 [01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
				    [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num  : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_last[31m));[m
				 [01;34melse[m
				    [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num  : "[m[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m

			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melsif[m Lib_Name_Last [31m<[m Lib_Name'Length [01;34mthen[m
			   [01;30mDraw_Window[m[31m([mCreator_Lib[31m);[m
			   [01;30mLib_Name[m[31m([mLib_Name_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			   Lib_Name_Last [31m:=[m Lib_Name_Last [31m+[m [35m1[m[31m;[m
			   

			   [01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
			      [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num  : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_last[31m));[m
			   [01;34melse[m
			      [01;30mDraw_Text[m[31m([mCreator_Lib[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num  : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_Last[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			[01;34melse[m
			   [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			   
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m Receive[31m;[m
	       [01;34mor[m
		  [01;34mwhen[m Step_Cur [31m=[m Prj_help [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m 
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m18[m[31m)[m [31m=>[m 
				 Step_Cur [31m:=[m Prj_Manager[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melse[m
			   [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m Receive[31m;[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_None [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Manager [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Selector [31m=>[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mor[m
		  [01;34mwhen[m Step_Cur [31m=[m Prj_Upgrade [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m			      
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m 
				 [01;34mif[m Cmd_Last [31m=[m [35m0[m [01;34mthen[m
				    [01;34mif[m Component_Cur [31m>[m [35m0[m [01;34mthen[m
				       
				       [31m--  Text_Io.Put_Line("Open : " & Project_Manager.New_Project.Project_Name.all & '-' & [m
				       [31m--  		  Versions.Version_Io.To_String(Project_Manager.New_Project.Version) & Directory_Separator & [m
				       [31m--  		  Project_Manager.New_Project.Project_Name.all & [m
				       [31m--  		  Directory_Separator & Project_Manager.New_Project.Libs(Component_Cur).Unit_Name.all & Directory_Separator);[m
				       
				       [31m--  Text_Io.Skip_Line;[m
				       
				       Args [31m:=[m [01;30mArgument_String_To_List[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m'-'[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m)[m
									 [31m&[m Directory_Separator [31m&[m 
									 Project_Manager[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m Directory_Separator [31m&[m 
									 Project_Manager[31m.[mNew_Project[31m.[m[01;30mLibs[m[31m([mComponent_Cur[31m).[mUnit_Name[31m.[m[01;34mall[m [31m&[m Directory_Separator[31m);[m
				       
				       
				       [31m--  Text_Io.Put_Line("Args ok !");[m
				       [31m--  Text_Io.Skip_Line;[m
				       [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				       [31m--  Text_Io.Put_Line("Session openned !");[m
				       [31m--  Text_Io.Skip_Line;[m
				       [31m--  Text_Io.Put_Line("Exec on path : " & Locate_Exec_On_Path("emacs").all);[m
				       [31m--  Text_Io.Skip_Line;[m
				       [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"emacs"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Outfilename[31m,[m Success[31m,[m errno[31m);[m
				       [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				       [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m
				       [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
				       [31m--Errno := System("clear" & Character'Val(0));[m
				       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [01;34mis[m
					     [01;34mwhen[m None [31m=>[m
						[01;34mnull[m[31m;[m
					     [01;34mwhen[m Log [31m=>[m
						[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m MoneyBox [31m=>[m
						[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Activity [31m=>[m
						[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Stocks [31m=>[m
						[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Bank [31m=>[m
						[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Planning [31m=>[m
						[01;30mplanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Library [31m=>[m
						[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Manager [31m=>[m
						[01;34mnull[m[31m;[m
					     [01;34mwhen[m Contacts [31m=>[m
						[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Menu [31m=>[m
						[01;34mnull[m[31m;[m
					     [01;34mwhen[m Organizer [31m=>[m
						[01;30morganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Dialog [31m=>[m
						[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
					     [01;34mwhen[m [01;34mothers[m [31m=>[m
						[01;34mnull[m[31m;[m
					  [01;34mend[m [01;34mcase[m[31m;[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       [01;30mLoad_File[m[31m([mFile_Set[31m,[m Outfilename[31m,[m Line_Last[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34melse[m
				    
				    [01;34mbegin[m
				       Cmd [31m:=[m [01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m)));[m
				       [01;34mcase[m Cmd [01;34mis[m
					  [01;34mwhen[m None [31m=>[m
					     [01;34mnull[m[31m;[m
					  [01;34mwhen[m Help [31m=>[m
					     [01;34mnull[m[31m;[m
					  [01;34mwhen[m Make [31m=>[m
					     [01;34mif[m Cmd_Last [31m=[m [35m4[m [01;34mthen[m
						[01;30mFree[m[31m([mArgs[31m);[m
						Args [31m:=[m [01;34mnew[m [01;30mArgument_List[m[31m([m[35m1[m[31m..[m[35m0[m[31m);[m
						
						[31m-------------------------------------------------------------------[m
						
						[31m-- Spawn(Make_On_Bin.all, Args.all, Outfilename, Success, errno);[m
						
						[31m-- replaced by[m
						
						Pid [31m:=[m [01;30mNon_Blocking_Spawn[m[31m([mMake_On_Bin[31m.[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Outfilename[31m);[m
						
						[01;30mWait_Process[m[31m([mPid[31m,[m Success[31m);[m
						
						[31m--------------------------------------------------------------------[m
						[01;30mLoad_File[m[31m([mFile_Set[31m,[m Outfilename[31m,[m Line_Last[31m);[m
						
						
					     [01;34melsif[m Cmd_Last [31m>[m [35m5[m [01;34mthen[m
						
						
						[01;34mbegin[m
						   [01;30mChange_Dir[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m"-"[m [31m&[m Version_Io[31m.[m[01;30mTo_String[m[31m([mProject_manager[31m.[mNew_Project[31m.[mVersion[31m));[m            
						   
						   [01;30mFree[m[31m([mArgs[31m);[m
						   Args [31m:=[m [01;30mArgument_String_To_List[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([m[35m6[m[31m..[mCmd_Last[31m))[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
						   
						   [31m-----------------------------------------------------------------[m
						   
						   [31m-- Spawn(Make_On_Bin.all, Args.all, Outfilename, Success, errno);						   						   [m
						   [31m-- replaced by[m
						   
						   Pid [31m:=[m [01;30mNon_Blocking_Spawn[m[31m([mMake_On_Bin[31m.[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Outfilename[31m);[m
						   
						   [01;30mWait_Process[m[31m([mPid[31m,[m Success[31m);[m
						   
						   [31m--------------------------------------------------------------------[m
						   [01;30mLoad_File[m[31m([mFile_Set[31m,[m Outfilename[31m,[m Line_Last[31m);[m
						   [01;30mChange_Dir[m[31m([m[31m".."[m[31m);[m
						   
						   
						   
						[01;34mexception[m
						   [01;34mwhen[m Name_Error [31m=>[m
						      [01;30mPut_Line[m[31m([m[31m"name error"[m[31m);[m
						   [01;34mwhen[m Constraint_Error [31m=>[m
						      [01;30mPut_Line[m[31m([m[31m"constraint error"[m[31m);[m
						   [01;34mwhen[m [01;34mothers[m [31m=>[m
						      [01;30mPut_Line[m[31m([m[31m"others error"[m[31m);[m
						[01;34mend[m [31m;[m
						
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mwhen[m Add [31m=>[m
					     [01;34mif[m Cmd_Last [31m>[m [35m4[m [01;34mthen[m
						[01;30mLib_Add[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([m[35m5[m[31m..[mCmd_Last[31m)));[m
						[01;30mList_Save[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m);[m
					     [01;34melse[m
						[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mwhen[m Remove [31m=>[m
					     [01;34mbegin[m
						Line_Num [31m:=[m Natural'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m+[m[35m7[m[31m..[mCmd_Last[31m)));[m
						
						[01;30mRemove_Name[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Line_Num[31m);[m
						[01;30mList_Save[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m);[m
					     [01;34mexception[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m
						   [01;34mnull[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34mwhen[m Upgrade [31m=>[m
					     

					     
					     
					     [31m----------------------------------------------------------------------------------------------------------[m
					     [31m--[m
					     [31m--[m
					     [31m--[m
					     [31m--[m
					     [31m--[m
					     [31m--[m
					     
					     Upgraded [31m:=[m [01;34mnew[m Project_Record ' [31m([mProject_Manager[31m.[mNew_project[31m.[m[01;34mall[m[31m);[m
					     
					     
					     
					     
					     
					     Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Update version..."[m[31m);[m
					     
					     
					     
					     Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- check for New Specifications..."[m[31m);[m
					     
					     Versions[31m.[mNew_Description [31m:=[m Environment[31m.[m[01;30mCheck_Modification_To_New_Description[m[31m([mProject_Context[31m.[m[01;34mall[m[31m);[m
					     

					     
					     
					     Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- check for New Implementation..."[m[31m);[m
					     
					     Versions[31m.[mNew_Action [31m:=[m Environment[31m.[m[01;30mCheck_Modification_To_New_Action[m[31m([mProject_Context[31m.[m[01;34mall[m[31m);[m
					     
					     Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Version Update..."[m[31m);[m
					     [31m-- update Version ![m
					     [01;34mif[m Project_Context[31m.[mProject[31m.[mProject_Prefix [31m/=[m [01;34mnull[m [01;34mthen[m
						Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project prefix : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
						Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project name : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m 
						[01;34mdeclare[m

						   Node_Name [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProject_Context[31m.[mProject[31m.[m[01;30mProject_Name[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Prefix'Length[31m+[m[35m1[m[31m..[mProject_Context[31m.[mProject[31m.[mProject_Name'Last[31m));[m

						[01;34mbegin[m
						   
						   
						   [01;34mif[m Versions[31m.[mNew_Description [01;34mthen[m
						      Upgraded[31m.[mVersion [31m:=[m 
							[01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting minor version..."[m[31m);[m
						      
						      [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						      [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						      
						      [01;34mfor[m File_Id [01;34min[m Specifications_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
							 [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
							 [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						      [01;34mend[m [01;34mloop[m[31m;[m
						      
						      
						   [01;34mend[m [01;34mif[m[31m;[m
						   
						   [01;34mif[m Versions[31m.[mNew_Action [01;34mthen[m
						      Upgraded[31m.[mVersion [31m:=[m 
							[01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting revision version..."[m[31m);[m
						      
						      [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						      [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						      [01;34mfor[m File_Id [01;34min[m Implementations_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
							 [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
							 [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						      [01;34mend[m [01;34mloop[m[31m;[m
						      
						      
						   [01;34mend[m [01;34mif[m[31m;[m
						   
						   [01;34mif[m Versions[31m.[mNew_Action [01;34mor[m Versions[31m.[mNew_Description [01;34mthen[m
						      Upgraded[31m.[mVersion [31m:=[m 
							[01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting major version..."[m[31m);[m
						      [01;30mTo_Major[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
						      [01;30mTo_Minor[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
						      [01;30mTo_Revision[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
						      
						   [01;34melse[m
						      Upgraded[31m.[mVersion [31m:=[m 
							[01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting release version..."[m[31m);[m
						      [01;30mTo_Release[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m
								 Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
						   [01;34mend[m [01;34mif[m[31m;[m
						   Versions[31m.[mNew_Action [31m:=[m False[31m;[m	       
						   Versions[31m.[mNew_Description [31m:=[m False[31m;[m
						   
						[01;34mend[m[31m;[m
					     [01;34melse[m
						Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project name : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m 
						[01;34mdeclare[m
						   
						   Node_Name [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m

						[01;34mbegin[m
						   
						   
						   [01;34mif[m Versions[31m.[mNew_Description [01;34mthen[m
						      Upgraded[31m.[mVersion [31m:=[m 
							[01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						      
						      
						      [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						      [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						      
						      [01;34mfor[m File_Id [01;34min[m Specifications_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
							 [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
							 [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						      [01;34mend[m [01;34mloop[m[31m;[m
						      
						      
						   [01;34mend[m [01;34mif[m[31m;[m
						   
						   [01;34mif[m Versions[31m.[mNew_Action [01;34mthen[m
						      Upgraded[31m.[mVersion [31m:=[m 
							[01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						      [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						      [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
						      [01;34mfor[m File_Id [01;34min[m Implementations_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
							 [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
							 [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
						      [01;34mend[m [01;34mloop[m[31m;[m
						      
						      
						   [01;34mend[m [01;34mif[m[31m;[m
						   
						   [01;34mif[m Versions[31m.[mNew_Action [01;34mor[m Versions[31m.[mNew_Description [01;34mthen[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting revision version..."[m[31m);[m
						      [01;30mTo_Revision[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting minor version..."[m[31m);[m
						      [01;30mTo_Minor[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting major version..."[m[31m);[m
						      [01;30mTo_Major[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
						   [01;34melse[m
						      Upgraded[31m.[mVersion [31m:=[m 
							[01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting release version..."[m[31m);[m
						      [01;30mTo_Release[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m
								 [31m""[m[31m);[m
						   [01;34mend[m [01;34mif[m[31m;[m
						   Versions[31m.[mNew_Action [31m:=[m False[31m;[m	       
						   Versions[31m.[mNew_Description [31m:=[m False[31m;[m
						   
						[01;34mend[m[31m;[m
						
					     [01;34mend[m [01;34mif[m[31m;[m

					     
					     
					     

					     
					     
					     
					     [31m--[m
					     [31m--[m
					     [31m--[m
					     [31m--[m
					     [31m--[m
					     [31m--[m
					     [31m--[m
					     [31m-----------------------------------------------------------------------------------------------------------[m
					     
					     
					     
					     [01;34mif[m Upgraded [31m/=[m [01;34mnull[m [01;34mthen[m
						
						App[31m.[mProjects[31m.[mProjects_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m
						Upgraded[31m.[mProject_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num[31m;[m
						Curs [31m:=[m [01;30mLast[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
						Projects_DLL[31m.[m[01;30mDelete[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m Curs[31m);[m
						
						[01;30mAppend[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m Upgraded[31m);[m
						Projects_Manager[31m.[m[01;30mManager_Save[m[31m([mApp[31m.[mProjects[31m,[m [31m"./Projects.lst"[m[31m);[m
						[01;34mif[m [01;30mUpdate[m[31m([m[01;30mGet_Info[m[31m([mApp[31m.[mProjects[31m,[m Project_Manager[31m.[mNew_Project[31m.[mProject_Num[31m),[m Upgraded[31m.[mVersion[31m,[m App[31m.[mSessions[31m,[m App[31m.[mLogs[31m)[m [31m=[m [35m0[m [01;34mthen[m
						   
						   Projects_Dll[31m.[m[01;30mClear[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
						   Projects_Manager[31m.[m[01;30mManager_Load[m[31m([mApp[31m.[mProjects[31m,[m [31m"./Projects.lst"[m[31m);[m
						[01;34mend[m [01;34mif[m[31m;[m
						
						App[31m.[mProjects[31m.[mProjects_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m
						[01;30mAppend[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m 
						       [01;34mnew[m Project_Record ' [31m([mNull_Project[31m));[m
						
					     [01;34mend[m [01;34mif[m[31m;[m
					     Project[31m.[m[01;30mClose[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Clock[31m);[m
					     Project_Count [31m:=[m [35m0[m[31m;[m
					     Project_Index [31m:=[m [35m0[m[31m;[m
					     Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m			   
					     Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
					     Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
					     
					     Step_Cur [31m:=[m Prj_Selector[31m;[m
					     [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
					     
					     [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m
					     
					     [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
				       [31m--Errno := System("clear" & Character'Val(0));[m
				       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [01;34mis[m
					     [01;34mwhen[m None [31m=>[m
						[01;34mnull[m[31m;[m
					     [01;34mwhen[m Log [31m=>[m
						[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m MoneyBox [31m=>[m
						[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Activity [31m=>[m
						[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Stocks [31m=>[m
						[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Bank [31m=>[m
						[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Planning [31m=>[m
						[01;30mplanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Library [31m=>[m
						[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Manager [31m=>[m
						[01;34mnull[m[31m;[m
					     [01;34mwhen[m Contacts [31m=>[m
						[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Menu [31m=>[m
						[01;34mnull[m[31m;[m
					     [01;34mwhen[m Organizer [31m=>[m
						[01;30morganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Dialog [31m=>[m
						[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
					     [01;34mwhen[m [01;34mothers[m [31m=>[m
						[01;34mnull[m[31m;[m
					  [01;34mend[m [01;34mcase[m[31m;[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m

					  [01;34mwhen[m Quit [31m=>[m
					     [01;34mnull[m[31m;[m
				       [01;34mend[m [01;34mcase[m[31m;[m
				       
				       
				       
				       
				       Cmd_Last [31m:=[m [35m0[m[31m;[m
				       Cmd_Line [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m));[m
				    [01;34mexception[m
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  [01;34mnull[m[31m;[m
				    [01;34mend[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mif[m Cmd_Last [31m=[m [35m0[m [01;34mthen[m
				    
				    [01;34mnull[m[31m;[m
				    
				 [01;34melse[m
				    
				    [01;34mnull[m[31m;[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m 
				 [31m----------------------------------------------[m
				 [31m--Errno := System("clear" & Character'Val(0));[m
				 [31m---------------------------------------------[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m18[m[31m)[m [31m=>[m 
				 Step_Cur [31m:=[m Prj_manager[31m;[m
				 [01;30mCursor_Set[m[31m([mProject_Manager[31m.[mCurs[31m,[m From [31m=>[m Project_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m);[m
				 Project[31m.[m[01;30mClose[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Clock[31m);[m
				 
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m21[m[31m)[m [31m=>[m
				 
				 
				 
				 [31m----------------------------------------------------------------------------------------------------------[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 Upgraded [31m:=[m [01;34mnew[m Project_Record ' [31m([mProject_Manager[31m.[mNew_project[31m.[m[01;34mall[m[31m);[m
				 
				 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Update version..."[m[31m);[m
				 
				 
				 
				 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- check for New Specifications..."[m[31m);[m
				 
				 Versions[31m.[mNew_Description [31m:=[m Environment[31m.[m[01;30mCheck_Modification_To_New_Description[m[31m([mProject_Context[31m.[m[01;34mall[m[31m);[m
				 
				 
				 
				 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- check for New Implementation..."[m[31m);[m
				 
				 Versions[31m.[mNew_Action [31m:=[m Environment[31m.[m[01;30mCheck_Modification_To_New_Action[m[31m([mProject_Context[31m.[m[01;34mall[m[31m);[m
				 
				 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Version Update..."[m[31m);[m
				 [31m-- update Version ![m
				 [01;34mif[m Project_Context[31m.[mProject[31m.[mProject_Prefix [31m/=[m [01;34mnull[m [01;34mthen[m
				    
				    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project prefix : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
				    
				    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project name : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m 
				    [01;34mdeclare[m
				       
				       Node_Name [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProject_Context[31m.[mProject[31m.[m[01;30mProject_Name[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Prefix'Length[31m+[m[35m1[m[31m..[mProject_Context[31m.[mProject[31m.[mProject_Name'Last[31m));[m

				    [01;34mbegin[m
				       
				       
				       [01;34mif[m Versions[31m.[mNew_Description [01;34mthen[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting minor version..."[m[31m);[m
					  
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  
					  [01;34mfor[m File_Id [01;34min[m Specifications_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  [01;34mend[m [01;34mloop[m[31m;[m
					  
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				       [01;34mif[m Versions[31m.[mNew_Action [01;34mthen[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting revision version..."[m[31m);[m
					  
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;34mfor[m File_Id [01;34min[m Implementations_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  [01;34mend[m [01;34mloop[m[31m;[m
					  
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				       [01;34mif[m Versions[31m.[mNew_Action [01;34mor[m Versions[31m.[mNew_Description [01;34mthen[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting major version..."[m[31m);[m
					  [01;30mTo_Major[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
					  [01;30mTo_Minor[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
					  [01;30mTo_Revision[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
					  
				       [01;34melse[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting release version..."[m[31m);[m
					  [01;30mTo_Release[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m
						     Project_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m
				       Versions[31m.[mNew_Action [31m:=[m False[31m;[m	       
				       Versions[31m.[mNew_Description [31m:=[m False[31m;[m
				       
				    [01;34mend[m[31m;[m
				 [01;34melse[m

				    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project name : "[m [31m&[m Project_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m 
				    [01;34mdeclare[m
				       
				       Node_Name [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m

				    [01;34mbegin[m
				       
				       
				       [01;34mif[m Versions[31m.[mNew_Description [01;34mthen[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  
					  
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  
					  [01;34mfor[m File_Id [01;34min[m Specifications_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  [01;34mend[m [01;34mloop[m[31m;[m
					  
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				       [01;34mif[m Versions[31m.[mNew_Action [01;34mthen[m
					  [01;30mPut_Line[m[31m([m[31m"Current version is : "[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  Upgraded[31m.[mVersion [31m:=[m 
					    [01;30mVersion_Update[m[31m([mUpgraded[31m.[mVersion[31m);[m
					  [01;30mPut_Line[m[31m([m[31m"version is updated :"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;30mMain_Description[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
					  [01;34mfor[m File_Id [01;34min[m Implementations_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
					     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mUpgraded[31m.[mVersion[31m));[m
					  [01;34mend[m [01;34mloop[m[31m;[m
					  
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				       [01;34mif[m Versions[31m.[mNew_Action [01;34mor[m Versions[31m.[mNew_Description [01;34mthen[m
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting revision version..."[m[31m);[m
					  [01;30mTo_Revision[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting minor version..."[m[31m);[m
					  [01;30mTo_Minor[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting major version..."[m[31m);[m
					  [01;30mTo_Major[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
				       [01;34melse[m
					  [01;34mif[m Environment[31m.[mVersion_Update [31m/=[m [35m0[m [01;34mthen[m
					     [01;34mraise[m Program_Error[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m		  
					  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting release version..."[m[31m);[m
					  [01;30mTo_Release[m[31m([mProject_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m
						     [31m""[m[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m
				       Versions[31m.[mNew_Action [31m:=[m False[31m;[m	       
				       Versions[31m.[mNew_Description [31m:=[m False[31m;[m
				       
				    [01;34mend[m[31m;[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m
				 
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m--[m
				 [31m-----------------------------------------------------------------------------------------------------------[m
				 
				 
				 
				 
				 [01;34mif[m Upgraded [31m/=[m [01;34mnull[m [01;34mthen[m
				    
				    App[31m.[mProjects[31m.[mProjects_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m
				    Upgraded[31m.[mProject_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num[31m;[m
				    Curs [31m:=[m [01;30mLast[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
				    Projects_DLL[31m.[m[01;30mDelete[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m Curs[31m);[m
				    
				    [01;30mAppend[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m Upgraded[31m);[m
				    Projects_Manager[31m.[m[01;30mManager_Save[m[31m([mApp[31m.[mProjects[31m,[m [31m"./Projects.lst"[m[31m);[m
				    
				    [01;34mif[m [01;30mUpdate[m[31m([m[01;30mGet_Info[m[31m([mApp[31m.[mProjects[31m,[m Project_Manager[31m.[mNew_Project[31m.[mProject_Num[31m),[m Upgraded[31m.[mVersion[31m,[m App[31m.[mSessions[31m,[m App[31m.[mLogs[31m)[m [31m=[m [35m0[m [01;34mthen[m
				       
				       Projects_Dll[31m.[m[01;30mClear[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
				       Projects_Manager[31m.[m[01;30mManager_Load[m[31m([mApp[31m.[mProjects[31m,[m [31m"./Projects.lst"[m[31m);[m
				       
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				    App[31m.[mProjects[31m.[mProjects_Num [31m:=[m App[31m.[mProjects[31m.[mProjects_Num [31m+[m [35m1[m[31m;[m
				    [01;30mAppend[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m 
					   [01;34mnew[m Project_Record ' [31m([mNull_Project[31m));[m
				    
				    Projects_Manager[31m.[m[01;30mManager_Save[m[31m([mApp[31m.[mProjects[31m,[m [31m"./Projects.lst"[m[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 Project[31m.[m[01;30mClose[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Clock[31m);[m
				 Project_Count [31m:=[m [35m0[m[31m;[m
				 Project_Index [31m:=[m [35m0[m[31m;[m
				 Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m			   
				 Project_Num [31m:=[m [01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m).[mProject_Num[31m;[m
				 Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
				 [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				 
				 [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m
				 Step_Cur [31m:=[m Prj_Selector[31m;[m
				 [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
				       [31m--Errno := System("clear" & Character'Val(0));[m
				       [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [01;34mis[m
					     [01;34mwhen[m None [31m=>[m
						[01;34mnull[m[31m;[m
					     [01;34mwhen[m Log [31m=>[m
						[01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m MoneyBox [31m=>[m
						[01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Activity [31m=>[m
						[01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Stocks [31m=>[m
						[01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Bank [31m=>[m
						[01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Planning [31m=>[m
						[01;30mplanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Library [31m=>[m
						[01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Manager [31m=>[m
						[01;34mnull[m[31m;[m
					     [01;34mwhen[m Contacts [31m=>[m
						[01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Menu [31m=>[m
						[01;34mnull[m[31m;[m
					     [01;34mwhen[m Organizer [31m=>[m
						[01;30morganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
					     [01;34mwhen[m Dialog [31m=>[m
						[01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
					     [01;34mwhen[m [01;34mothers[m [31m=>[m
						[01;34mnull[m[31m;[m
					  [01;34mend[m [01;34mcase[m[31m;[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m

			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
				 [01;34mif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m
				    [01;30mCmd_Line[m[31m([mCmd_Last[31m)[m [31m:=[m  Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				    Cmd_Last [31m:=[m Cmd_Last [31m-[m [35m1[m[31m;[m
				 [01;34melse[m
				    Project[31m.[m[01;30mClose[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Clock[31m);[m
				    [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mM[31m.[mLogs[31m.[mProject[31m));[m
				    
				    [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[31m);[m
				    Step_Cur [31m:=[m Prj_Selector[31m;[m
				    

				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melsif[m Cmd_Last [31m<[m Cmd_Line'Length [01;34mthen[m
			   [01;30mCmd_Line[m[31m([mCmd_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			   Cmd_Last [31m:=[m Cmd_Last [31m+[m [35m1[m[31m;[m
			[01;34melse[m
			   [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
			
		     [01;34mend[m Receive[31m;[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_None [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Selector [31m=>[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			   
			[01;34mwhen[m Prj_Manager [31m=>[m

			   [01;30mDraw_Window[m[31m([mManager_Abs[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_Abs[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Abstract  : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mManager_N[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_N[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mProject_Name[31m.[m[01;34mall[m[31m));[m
			   [01;30mDraw_Window[m[31m([mManager_Ver[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_Ver[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Version   : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mVersion_Io[31m.[m[01;30mTo_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mVersion[31m)));[m
			   [01;30mDraw_Window[m[31m([mManager_Auth[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_Auth[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author    : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mProject_Manager[31m.[mNew_Project[31m.[mCopyright[31m.[m[01;34mall[m[31m));[m

			   [01;30mDraw_Window[m[31m([mManager_List[31m);[m

			   [01;30mList_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Manager_List[31m,[m Lib_Index[31m);[m

			   [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			   [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m

			   
			   
			   [01;30mDraw_Text[m[31m([m
				     Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mWin[31m,[m
				     Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mLine_Pos[31m,[m
				     Project_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Project_Manager[31m.[mCurs[31m.[mParts
				       [31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProject_Manager[31m.[mCurs[31m.[m[01;30mParts[m[31m([mProject_Manager[31m.[mCurs[31m.[mPart_Cur[31m).[mLast[31m)[m
				    [31m);[m

			   [01;34mif[m Line_Remove [01;34mthen[m
			      [01;34mif[m Lib_Name_Last [31m>[m [35m0[m [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m [31m&[m [01;30mLib_Name[m[31m([m[35m1[m[31m..[mLib_Name_last[31m));[m
			      [01;34melse[m
				 [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34melsif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m
			   [01;34melse[m
			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m

			[01;34mwhen[m Prj_Upgrade [31m=>[m
			   [01;30mDraw_Window[m[31m([mComponents_Win[31m);[m
			   [01;30mComponents_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Component_Index [31m,[m Component_cur[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m2[m[31m,[m App[31m.[mColumns[31m,[m top[31m);[m

			   [01;30mDraw_Window[m[31m([mMake_Win[31m);[m
			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mFile_Set[31m,[m Make_Win[31m,[m File_Index[31m,[m Total_lines[31m)[m [01;34mthen[m
			      [01;34mraise[m Program_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m
			   [01;34melse[m
			      [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
			      [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mor[m

		  [01;34maccept[m Refresh [01;34mdo[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m Refresh[31m;[m
		  
	       [01;34mor[m
		  [01;34maccept[m Page_Down [01;34mdo[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_Selector [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Creator [31m=>[m
			   [01;34mif[m Lib_Index [31m+[m [31m([mCreator_List[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m)[m [31m<[m Creator[31m.[mNew_Project[31m.[mLib_Last [01;34mthen[m
			      Lib_Index [31m:=[m Lib_Index [31m+[m [31m([mCreator_List[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m);[m
			      [01;30mDraw_Window[m[31m([mCreator_List[31m);[m
			      
			      [01;30mList_Print[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Creator_List[31m,[m Lib_Index[31m);[m
			   [01;34melse[m
			      [01;30mPut[m[31m([m[32mcharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m Prj_Manager [31m=>[m
			   [01;34mif[m Lib_Index [31m+[m [31m([mManager_List[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m)[m [31m<[m Project_Manager[31m.[mNew_Project[31m.[mLib_Last [01;34mthen[m
			      Lib_Index [31m:=[m Lib_Index [31m+[m [31m([mManager_List[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m);[m
			      [01;30mDraw_Window[m[31m([mManager_List[31m);[m
			      
			      [01;30mList_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Manager_List[31m,[m Lib_Index[31m);[m
			   [01;34melse[m
			      [01;30mPut[m[31m([m[32mcharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m Prj_Upgrade [31m=>[m
			   [01;34mif[m File_Index [31m<[m [32mInteger[m'[01;30mMin[m[31m([mFile_Index [31m+[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m3[m[31m,[m Line_Last[31m)[m [01;34mthen[m
			      File_Index [31m:=[m [32mInteger[m'[01;30mMin[m[31m([mFile_Index [31m+[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m3[m[31m,[m Line_Last[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mMake_Win[31m);[m
			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mFile_Set[31m,[m Make_Win[31m,[m File_Index[31m,[m Total_lines[31m)[m [01;34mthen[m
			      [01;34mraise[m Program_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m Page_Down[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Page_Up [01;34mdo[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_Selector [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Creator [31m=>[m
			   [01;34mif[m Lib_Index [31m-[m [31m([mCreator_List[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m)[m [31m>=[m [35m0[m [01;34mthen[m
			      
			      Lib_Index [31m:=[m Lib_Index [31m-[m [31m([mCreator_List[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m);[m
			      [01;30mDraw_Window[m[31m([mCreator_List[31m);[m
			      
			      [01;30mList_Print[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Creator_List[31m,[m Lib_Index[31m);[m
			   [01;34melsif[m Lib_Index [31m/=[m [35m0[m [01;34mthen[m
			      Lib_Index [31m:=[m [35m0[m[31m;[m
			      [01;30mDraw_Window[m[31m([mCreator_List[31m);[m
			      
			      [01;30mList_Print[m[31m([mCreator[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Creator_List[31m,[m Lib_Index[31m);[m
			   [01;34melse[m
			      [01;30mPut[m[31m([m[32mcharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m Prj_Manager [31m=>[m
			   [01;34mif[m Lib_Index [31m-[m [31m([mCreator_List[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m)[m [31m>=[m [35m0[m [01;34mthen[m
			      
			      Lib_Index [31m:=[m Lib_Index [31m-[m [31m([mManager_List[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m);[m
			      [01;30mDraw_Window[m[31m([mCreator_List[31m);[m
			      
			      [01;30mList_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Manager_List[31m,[m Lib_Index[31m);[m
			   [01;34melsif[m Lib_Index [31m/=[m [35m0[m [01;34mthen[m
			      Lib_Index [31m:=[m [35m0[m[31m;[m
			      [01;30mDraw_Window[m[31m([mManager_List[31m);[m
			      
			      [01;30mList_Print[m[31m([mProject_manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Manager_List[31m,[m Lib_Index[31m);[m
			   [01;34melse[m
			      [01;30mPut[m[31m([m[32mcharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m Prj_Upgrade [31m=>[m
			   [01;34mif[m File_Index [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m2[m [31m>=[m [35m0[m [01;34mthen[m 
			      File_Index [31m:=[m File_Index [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m2[m[31m;[m
			   [01;34melse[m
			      File_Index [31m:=[m [35m0[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mMake_Win[31m);[m
			   [01;34mif[m [01;34mnot[m [01;30mPrint_Set[m[31m([mFile_Set[31m,[m Make_Win[31m,[m File_Index[31m,[m Total_lines[31m)[m [01;34mthen[m
			      [01;34mraise[m Program_Error[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m Page_Up[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_Archives [31m=>[m
			   [01;34mif[m Arch_Curs [31m/=[m [01;30mFirst[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [01;34mthen[m
			      [01;30mPrevious[m[31m([mArch_Curs[31m);[m
			      [01;34mif[m Arch_Count [31m>[m [35m0[m [01;34mthen[m
				 Arch_Count [31m:=[m Arch_Count [31m-[m [35m1[m[31m;[m
			      [01;34melsif[m Arch_Index [31m>[m [35m0[m [01;34mthen[m
				 Arch_Index [31m:=[m Arch_Index [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			   Arch_Num [31m:=[m Projects_dll[31m.[m[01;30mElement[m[31m([mArch_Curs[31m).[mProject_Num[31m;[m
			   
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mArchives_Print[m[31m([mApp[31m.[mArchives[31m,[m Arch_Index[31m,[m Arch_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			   
			[01;34mwhen[m Prj_Selector [31m=>[m
			   [01;34mif[m Curs [31m/=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [01;34mthen[m
			      
			      [01;30mPrevious[m[31m([mCurs[31m);[m
			      [01;34mif[m Project_Count [31m>[m [35m0[m [01;34mthen[m
				 Project_Count [31m:=[m Project_Count [31m-[m [35m1[m[31m;[m
			      [01;34melsif[m Project_Index [31m>[m [35m0[m [01;34mthen[m
				 Project_Index [31m:=[m Project_Index [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			      [01;34mdeclare[m
				 Current [31m:[m [01;34mconstant[m Project[31m.[mProject_Access [31m:=[m [01;30mElement[m[31m([mCurs[31m);[m
			      [01;34mbegin[m	
				 [01;34mif[m Current [31m/=[m [01;34mnull[m [01;34mthen[m
				    
				    Project_Num [31m:=[m Current[31m.[mProject_Num[31m;[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mend[m[31m;[m
			      
			      
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			   Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			   [01;34melse[m
			      [01;30mDraw_Header[m[31m([mNull_Project[31m,[m Project_Header[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mwhen[m Prj_Creator [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Manager [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Upgrade [31m=>[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			     Component_Cur [31m-[m [35m1[m [31m>=[m [35m0[m [01;34mthen[m
			      Component_Cur [31m:=[m Component_Cur [31m-[m [35m1[m[31m;[m
			      
			      Component_Index [31m:=[m [32mInteger[m'[01;30mMax[m[31m([m[35m0[m[31m,[m Component_Cur [31m-[m [31m(([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m3[m[31m);[m
			      
			      [01;30mDraw_Window[m[31m([mComponents_Win[31m);[m
			      [01;30mComponents_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Component_Index [31m,[m Component_cur[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m2[m[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			      
			      
			      [01;34mif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m
				 [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
				 [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m
			      [01;34melse[m
				 [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
				 [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34melse[m
			      [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		     
		  [01;34mend[m up_arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_Archives [31m=>[m
			   [01;34mif[m Arch_Curs [31m/=[m [01;30mLast[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [01;34mthen[m
			      
			      Arch_Curs [31m:=[m [01;30mNext[m[31m([mArch_Curs[31m);[m
			      
			      [01;34mif[m Arch_Count [31m<[m [31m([mApp[31m.[mLines[31m-[m[35m7[m[31m)/[m[35m5[m[31m-[m[35m1[m [01;34mthen[m
				 
				 Arch_Count [31m:=[m Arch_Count [31m+[m [35m1[m[31m;[m
			      [01;34melsif[m Arch_Index [31m<[m [01;30mNatural[m[31m([mProjects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m))[m [01;34mthen[m
				 
				 Arch_Index [31m:=[m Arch_Index [31m+[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m

			      Arch_Num [31m:=[m Projects_dll[31m.[m[01;30mElement[m[31m([mArch_Curs[31m).[mProject_Num[31m;[m

			      
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			   
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   
			   [01;30mArchives_Print[m[31m([mApp[31m.[mArchives[31m,[m Arch_Index[31m,[m Arch_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mwhen[m Prj_Selector [31m=>[m			   
			   
			   [01;34mif[m Curs [31m/=[m [01;30mLast[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [01;34mthen[m
			      
			      Curs [31m:=[m [01;30mNext[m[31m([mCurs[31m);[m
			      
			      [01;34mif[m Project_Count [31m<[m [31m([mApp[31m.[mLines[31m-[m[35m7[m[31m)/[m[35m5[m[31m-[m[35m1[m [01;34mthen[m
				 Project_Count [31m:=[m Project_Count [31m+[m [35m1[m[31m;[m
			      [01;34melsif[m Project_Index [31m<[m [01;30mNatural[m[31m([mProjects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m))[m [01;34mthen[m
				 Project_Index [31m:=[m Project_Index [31m+[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			      
			      
			      [01;34mdeclare[m
				 Current [31m:[m [01;34mconstant[m Project[31m.[mProject_Access [31m:=[m [01;30mElement[m[31m([mCurs[31m);[m
			      [01;34mbegin[m	
				 
				 Project_Num [31m:=[m Current[31m.[mProject_Num[31m;[m
				 
			      [01;34mend[m[31m;[m
			      
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			   Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			   [01;34melse[m
			      [01;30mDraw_Header[m[31m([mNull_Project[31m,[m Project_Header[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			   
			[01;34mwhen[m Prj_Creator [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Manager [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Prj_Upgrade [31m=>[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			     Component_Cur [31m+[m [35m1[m [31m<=[m Project_Manager[31m.[mNew_Project[31m.[mLib_Last [01;34mthen[m
			      Component_Cur [31m:=[m Component_Cur [31m+[m [35m1[m[31m;[m
			      
			      Component_Index [31m:=[m [32mInteger[m'[01;30mMax[m[31m([m[35m0[m[31m,[m Component_Cur [31m-[m [31m(([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m2[m[31m)/[m[35m3[m[31m);[m
			      
			      [01;30mDraw_Window[m[31m([mComponents_Win[31m);[m
			      [01;30mComponents_Print[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Component_Index [31m,[m Component_cur[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m8[m[31m)/[m[35m2[m[31m-[m[35m2[m[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			      
			      
			      [01;34mif[m Cmd_Last [31m>[m [35m0[m [01;34mthen[m
				 [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
				 [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mCmd_Last[31m));[m
			      [01;34melse[m
				 [01;30mDraw_Window[m[31m([mManager_cmd[31m);[m
				 [01;30mDraw_Text[m[31m([mManager_cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Command   : "[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m Down_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Left_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Right_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Full_Screen[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Del[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Begin_Of [01;34mdo[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_Selector [31m=>[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
			   Project_Num [31m:=[m [01;30mElement[m[31m([mCurs[31m).[mProject_Num[31m;[m
			   Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			   [01;34melse[m
			      [01;30mDraw_Header[m[31m([mNull_Project[31m,[m Project_Header[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   Project_Count [31m:=[m [35m0[m[31m;[m
			   Project_Index [31m:=[m [35m0[m[31m;[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mwhen[m Prj_Archives [31m=>[m
			   Arch_Curs [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mArchives[31m.[mList[31m);[m
			   Arch_Num [31m:=[m [01;30mElement[m[31m([mArch_Curs[31m).[mProject_Num[31m;[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mArchives_Print[m[31m([mApp[31m.[mArchives[31m,[m Arch_Index[31m,[m Arch_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			   Arch_Count [31m:=[m [35m0[m[31m;[m
			   Arch_Index [31m:=[m [35m0[m[31m;[m
			[01;34mwhen[m Prj_Components [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m Begin_Of[31m;[m
	       [01;34mor[m
		  [01;34maccept[m End_Of [01;34mdo[m
		     [01;34mcase[m Step_Cur [01;34mis[m
			[01;34mwhen[m Prj_Selector [31m=>[m
			   Curs [31m:=[m [01;30mLast[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
			   Project_Num [31m:=[m [01;30mElement[m[31m([mCurs[31m).[mProject_Num[31m;[m
			   Project_Manager[31m.[mNew_Project [31m:=[m [01;30mGet_Project[m[31m([mApp[31m.[mProjects[31m,[m Project_Num[31m);[m
			   [01;30mDraw_Window[m[31m([mProject_Header[31m);[m
			   [01;34mif[m Project_Manager[31m.[mNew_Project [31m/=[m [01;34mnull[m [01;34mthen[m
			      [01;30mDraw_Header[m[31m([mProject_Manager[31m.[mNew_Project[31m.[m[01;34mall[m[31m,[m Project_Header[31m);[m
			   [01;34melse[m
			      [01;30mDraw_Header[m[31m([mNull_Project[31m,[m Project_Header[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   Project_Count [31m:=[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [31m-[m [35m1[m[31m);[m
			   Project_Index [31m:=[m [32mInteger[m'[01;30mmax[m[31m([m[35m0[m[31m,[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m))[m [31m-[m [31m(([mApp[31m.[mLines[31m-[m[35m7[m[31m)/[m[35m5[m[31m)-[m[35m1[m[31m);[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mProjects_Print[m[31m([mApp[31m.[mProjects[31m,[m Project_Index[31m,[m Project_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			[01;34mwhen[m Prj_Archives [31m=>[m
			   Arch_Curs [31m:=[m [01;30mLast[m[31m([mApp[31m.[mArchives[31m.[mList[31m);[m
			   Arch_Num [31m:=[m [01;30mElement[m[31m([mArch_Curs[31m).[mProject_Num[31m;[m
			   [01;30mDraw_Window[m[31m([mProject_Selector[31m);[m
			   [01;30mArchives_Print[m[31m([mApp[31m.[mArchives[31m,[m Arch_Index[31m,[m Arch_Num[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m,[m top[31m);[m
			   Arch_Count [31m:=[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m)[m [31m-[m [35m1[m[31m);[m
			   Arch_Index [31m:=[m [32mInteger[m'[01;30mmax[m[31m([m[35m0[m[31m,[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mArchives[31m.[mList[31m))[m [31m-[m [31m(([mApp[31m.[mLines[31m-[m[35m7[m[31m)/[m[35m5[m[31m)-[m[35m1[m[31m);[m
			[01;34mwhen[m Prj_Components [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m End_Of[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Overwrite[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Full_Screen[31m;[m

	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    
	 [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m[31m;[m
      [31m--W_Io.Put_Line("Manager process halted");[m
   [01;34mend[m Manager_Process[31m;[m

   
   
   
   [31m-------------------------------------------------------------------------------------------------------------[m
   [31m--                                                                                                         --[m
   [31m--                                       Money Box                                                         --[m
   [31m--                                                                                                         --[m
   [31m-------------------------------------------------------------------------------------------------------------[m
   
   [01;34mtype[m Value_Enum [01;34mis[m [31m([mNone_Value[31m,[m Name_Value[31m,[m Price_Ht_Value[31m,[m Quantity_Value[31m,[m Tva_Rate_Value[31m,[m
		       Total_Ht_Value[31m,[m Total_Tva_Value[31m,[m Total_Ttc_Value[31m,[m Delete_value[31m);[m
   
   [01;34mtype[m Value_Type [01;34mis[m
      [01;34mrecord[m
	 Name [31m:[m Value_Enum [31m:=[m None_Value[31m;[m
	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Value_Array [01;34mis[m [01;34marray[m [31m([mValue_Enum[31m)[m [01;34mof[m Value_Type[31m;[m
   
   [01;34mtype[m Line_Cursor_Type [01;34mis[m
      [01;34mrecord[m
	 Values  [31m:[m Value_Array[31m;[m
	 Val_Cur [31m:[m Value_Enum [31m:=[m name_Value[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Line_Cursor_Type [01;34mis[m
      Curs [31m:[m Line_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mName_value[31m)[m [31m:=[m
	[31m([mName_Value[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m3[m[31m,[m
	 [35m13[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mPrice_Ht_value[31m)[m [31m:=[m
	[31m([mPrice_Ht_Value[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m5[m[31m,[m
	 [35m13[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mQuantity_value[31m)[m [31m:=[m
	[31m([mQuantity_Value[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m7[m[31m,[m
	 [35m13[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mTVA_Rate_value[31m)[m [31m:=[m
	[31m([mTVA_Rate_Value[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m9[m[31m,[m
	 [35m13[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mTotal_Ht_value[31m)[m [31m:=[m
	[31m([mTotal_Ht_Value[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m11[m[31m,[m
	 [35m13[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mTotal_Tva_value[31m)[m [31m:=[m
	[31m([mTotal_Tva_Value[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m13[m[31m,[m
	 [35m13[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mTotal_ttc_value[31m)[m [31m:=[m
	[31m([mTotal_Ttc_Value[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m15[m[31m,[m
	 [35m13[m
	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m Name_Value[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_Account_Line[m [31m([mCurs [31m:[m [01;34min[m Line_Cursor_Type[31m;[mAccount_Num [31m:[m [01;34min[m Account_Num_Range[31m;[mLine_Num [31m:[m [01;34min[m Account_Line_Range[31m)[m [01;34mreturn[m Account_Line_Type [01;34mis[m
      Line [31m:[m Account_Line_Type [31m:=[m Null_Line[31m;[m
   [01;34mbegin[m
      Line[31m.[mLine_Num [31m:=[m Line_Num[31m;[m
      Line[31m.[m[01;30mDescription[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mName_Value[31m).[mLine_Last[31m)[m [31m:=[m 
	Curs[31m.[m[01;30mValues[m[31m([mName_Value[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mName_Value[31m).[mLine_Last[31m);[m

      Line[31m.[mAccount_num [31m:=[m Account_Num[31m;[m
      
      Line[31m.[mUnit_Ht_Price [31m:=[m 
	Fixed_Unit_Ht'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mPrice_Ht_Value[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mPrice_Ht_Value[31m).[mLine_Last[31m)));[m
      
      Line[31m.[mTva_Rate [31m:=[m 
	Fixed_Factor'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mTva_Rate_Value[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mTva_Rate_Value[31m).[mLine_Last[31m)));[m
      
      Line[31m.[mQuantity [31m:=[m 
	Quantity_Range'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mQuantity_Value[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mQuantity_Value[31m).[mLine_Last[31m)));[m
      
      
      Line[31m.[mTotal_Ht [31m:=[m [01;30mFixed_Total[m[31m([mLine[31m.[mUnit_Ht_Price [31m*[m [01;30mFixed_Unit_Ht[m[31m([mLine[31m.[mQuantity[31m));[m
      
      Line[31m.[mTotal_Tva [31m:=[m [01;30mFixed_total[m[31m([mLine[31m.[mTotal_Ht [31m/[m [01;30mFixed_Total[m[31m([m[35m100.0[m[31m))[m [31m*[m [01;30mFixed_Total[m[31m([mLine[31m.[mTva_Rate[31m);[m
      
      Line[31m.[mTotal_Ttc [31m:=[m Line[31m.[mTotal_Ht [31m+[m Line[31m.[mTotal_Tva[31m;[m

      [01;34mreturn[m Line[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Account_Line[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_String[m [31m([mLine [31m:[m [01;34min[m Account_Line_Type[31m)[m [01;34mreturn[m [32mWide_String[m [01;34mis[m
   [01;34mbegin[m
      [01;34mreturn[m 
	Handling[31m.[mTo_Wide_String
	[31m([m
	 Natural'[01;30mImage[m[31m([mLine[31m.[mLine_Num[31m)[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m
	   [31m" "[m [31m&[m Handling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;30mDescription[m[31m([m[35m1[m[31m..[m[35m16[m[31m))[m 
	   [31m&[m [31m"  "[m [31m&[m Quantity_Range'[01;30mImage[m[31m([mLine[31m.[mQuantity[31m)[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m
	   Fixed_Factor'[01;30mImage[m[31m([mLine[31m.[mTva_Rate[31m)[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m
	   Fixed_total'[01;30mImage[m[31m([mLine[31m.[mtotal_ht[31m)[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m
	   Fixed_total'[01;30mImage[m[31m([mLine[31m.[mtotal_TVA[31m)[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m
	   Fixed_total'[01;30mImage[m[31m([mLine[31m.[mtotal_TTC[31m)[m
	[31m);[m
   [01;34mend[m To_String[31m;[m
   
   
   
   
   
   
   [01;34mprocedure[m [01;30mInitialize[m[31m([mWins [31m:[m [01;34mout[m Ticket_Windows_Type[31m;[m
			Space_Left [31m:[m [01;34min[m Line_Range[31m;[m
			Width      [31m:[m [01;34min[m Column_Range[31m;[m
			L       [31m:[m [01;34min[m Line_Range[31m;[m
			C        [31m:[m [01;34min[m Column_Range[31m;[m
			Top       [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
   [01;34mbegin[m
      
      
      Wins[31m.[mLine_Num_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m8[m[31m,[m  
			    Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mDescription_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m8[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m18[m[31m,[m
      			       Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[munit_Ht_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m26[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m12[m[31m,[m  
			   Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mQuantity_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m38[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m14[m[31m,[m  
			    Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mTotal_Ht_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m52[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m  
      			    Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mTVA_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m68[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m10[m[31m,[m  
		       Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mTotal_TVA_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m78[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m  
      			     Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mTotal_TTC_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m94[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m  
      			     Cyan[31m,[m The_Window[31m);[m
      
      [01;30mInitialize[m[31m([mWins[31m.[mLine_Num_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m8[m[31m,[m  Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mDescription_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m8[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m18[m[31m,[m  Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[munit_Ht_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m26[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m12[m[31m,[m Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mquantity_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m38[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m14[m[31m,[m  Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mTotal_Ht_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m52[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mTVA_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m68[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m10[m[31m,[m Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mTotal_TVA_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m78[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mTotal_TTC_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m94[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m Cyan[31m,[m Red[31m);[m
      
      [01;34mnull[m[31m;[m
   [01;34mend[m Initialize[31m;[m

   
   [01;34mprocedure[m [01;30mTicket_Wins_Draw[m[31m([mWins [31m:[m Ticket_Windows_Type[31m)[m [01;34mis[m
      
   [01;34mbegin[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mLine_Num_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mDescription_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mUnit_Ht_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mQuantity_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mTotal_Ht_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mTVA_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mTotal_TVA_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mTotal_Ttc_Win[31m);[m
   [01;34mend[m Ticket_Wins_Draw[31m;[m      
   
   
   [01;34mprocedure[m [01;30mTicket_Line_Draw[m[31m([mWins [31m:[m Ticket_Windows_Type[31m;[m Line [31m:[m [01;34min[m Line_Range[31m;[m Account_Line [31m:[m [01;34min[m Account_Line_Type[31m)[m [01;34mis[m
      
   [01;34mbegin[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mLine_Num_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mVoice_Num_Range'[01;30mImage[m[31m([mAccount_Line[31m.[mLine_Num[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mDescription_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Account_Line[31m.[m[01;30mDescription[m[31m([m[35m1[m[31m..[m[35m16[m[31m));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[munit_Ht_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Unit_ht'[01;30mImage[m[31m([mAccount_Line[31m.[mUnit_Ht_price[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mQuantity_win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mQuantity_Range'[01;30mImage[m[31m([mAccount_Line[31m.[mQuantity[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mTotal_Ht_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mAccount_Line[31m.[mTotal_Ht[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mTVA_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Factor'[01;30mImage[m[31m([mAccount_Line[31m.[mTVA_Rate[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mTotal_TVA_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mAccount_Line[31m.[mTotal_TVA[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mTotal_Ttc_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mAccount_Line[31m.[mTotal_TTC[31m)));[m
   [01;34mend[m ticket_Line_Draw[31m;[m      
   
   
   [01;34mprocedure[m [01;30mVoice_Print[m [31m([mVoice [31m:[m [01;34min[m Abstracted_Voice'Class[31m;[m
			  Win [31m:[m [01;34min[m Ticket_Windows_Type[31m;[m
			  Line_Index [31m:[m [01;34min[m Account_Line_Range[31m;[m
			  Line_Max [31m:[m [01;34min[m Positive[31m)[m [01;34mis[m
      Line_Count [31m:[m natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      [01;34mif[m Voice[31m.[mLine_Last [31m=[m [35m0[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mfor[m Line [01;34min[m Line_Index[31m+[m[35m1[m[31m..[mNatural'[01;30mMin[m[31m([mLine_Index[31m+[mLine_Max[31m,[m Voice[31m.[mLine_Last[31m)[m [01;34mloop[m
	 [01;30mTicket_Line_Draw[m[31m([mWin[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Voice[31m.[m[01;30mAccounting[m[31m([mLine[31m));[m
	 Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
	 [01;34mexit[m [01;34mwhen[m Line_Count [31m=[m Line_Max[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
   [01;34mend[m Voice_Print[31m;[m


   
   [01;34mtask[m [01;34mbody[m MoneyBox_Process [01;34mis[m
      Removed_Line_Num [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m4[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character ' [01;30mVal[m [31m([m[35m32[m[31m));[m
      Line_Num  [31m:[m Account_Line_Range[31m;[m
      Line_Num_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Remove_Case [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Account_Line_Index [31m:[m Account_Line_Range [31m:=[m [35m0[m[31m;[m
      
      Text [31m:[m [01;34mconstant[m M[31m.[mStrings[31m.[mWide_String_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      
      Line_Curs [31m:[m Line_Cursor_Type [31m:=[m Initialize[31m;[m
      
      Deal_Name [31m:[m Deal_Enum [31m:=[m Deal_In[31m;[m
      
      Outvoice [31m:[m Outvoice_Record [31m:=[m Null_Outvoice[31m;[m
      invoice [31m:[m Invoice_Record [31m:=[m Null_Invoice[31m;[m
      Payed   [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      
      Validated [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Top [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Box_Dealin  [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m [35m17[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Red[31m,[m The_Window[31m);[m
      Box_Dealout [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m [35m17[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Green[31m,[m The_Window[31m);[m
      Voice       [31m:[m Window_Record [31m:=[m [31m([m[35m18[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m28[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Ticket      [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m10[m[31m,[m [35m1[m[31m,[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m white[31m,[m The_Window[31m);[m
      Balance     [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m5[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Yellow[31m,[m The_Window[31m);[m
      Cmd_Win     [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m2[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m The_Window[31m);[m
      
   [01;34mbegin[m

      [01;30mInitialize[m[31m([mBox_Dealin[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m17[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Red[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mBox_Dealout[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m17[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Green[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mVoice[31m,[m [35m18[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m28[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mTicket[31m,[m App[31m.[mLines[31m-[m[35m10[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m white[31m,[m Blue[31m);[m
      [01;30mInitialize[m[31m([mBalance[31m,[m App[31m.[mLines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Yellow[31m,[m Blue[31m);[m
      [01;30mInitialize[m[31m([mCmd_Win[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
      
      [01;30mInitialize[m[31m([mApp[31m.[mTicket_Wins[31m,[m App[31m.[mLines[31m-[m[35m30[m[31m,[m Top[31m+[mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m19[m[31m,[m [35m2[m[31m,[m [35m0[m[31m);[m

      [01;34mbegin[m
     Main_Loop[31m:[m
	 [01;34mloop[m
	    [01;34mloop[m
	       [01;34mselect[m
		  
		  [01;34maccept[m Halt [01;34mdo[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Suspend[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mWake_Up[m [31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		     Moneybox_Process[31m.[mTop [31m:=[m Top[31m;[m
		     [01;30mInitialize[m[31m([mBox_Dealin[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m17[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Red[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mBox_Dealout[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m17[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Green[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mVoice[31m,[m [35m18[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m28[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mTicket[31m,[m App[31m.[mLines[31m-[m[35m10[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m white[31m,[m Blue[31m);[m
		     [01;30mInitialize[m[31m([mBalance[31m,[m App[31m.[mLines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Yellow[31m,[m Blue[31m);[m
		     [01;30mInitialize[m[31m([mCmd_Win[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
		     
		     [01;30mInitialize[m[31m([mApp[31m.[mTicket_Wins[31m,[m App[31m.[mLines[31m-[m[35m30[m[31m,[m Top[31m+[mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m19[m[31m,[m [35m2[m[31m,[m Top[31m);[m
		     [31m-----------------------------------------------[m
		     [31m--Errno := System("clear" & Character'Val(0));[m
		     [31m-----------------------------------------------[m
		     [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			[01;30mDraw_Window[m[31m([mBox_Dealout[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealOut"[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mTicket[31m);[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mimage[m[31m([mOutvoice[31m.[mTotal_ht[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_Tva[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_TTC[31m)));[m
			
		     [01;34melse[m
			[01;30mDraw_Window[m[31m([mBox_Dealin[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealIn"[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			
			[01;30mDraw_Window[m[31m([mTicket[31m);[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_ht[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_Tva[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_TTC[31m)));[m
			
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mDraw_Window[m[31m([mVoice[31m);[m
		     [01;30mDraw_Window[m[31m([mBalance[31m);[m
		     [01;30mDraw_Text[m[31m([mBalance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
			       
			       [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mCapital[31m))[m [31m&[m
				 [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mMaterial[31m))[m [31m&[m
				 [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_In[31m))[m [31m&[m
				 [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
			      [31m);[m
		     
		     [01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
		     [01;30mDraw_Text[m[31m([mVoice[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"N     , Name            , Unit HT    , Quantity    , Total HT     , TVA %  , Total TVA       , Total Price TTC"[m[31m);[m
		     [01;30mDraw_Text[m[31m([mVoice[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Blue[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)[m [31m*[m [31m'-'[m[31m)));[m
		     
		     [01;30mTicket_Wins_Draw[m[31m([mApp[31m.[mTicket_Wins[31m);[m
		     

		     
		     
		     [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			[01;30mVoice_Print[m[31m([mOutvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34melse[m

			[01;30mVoice_Print[m[31m([mInvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Wake_Up[31m;[m
		  
		  
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  
		  [01;34maccept[m Refresh [01;34mdo[m
		     [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			[01;30mDraw_Window[m[31m([mBox_Dealout[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealOut"[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mTicket[31m);[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_ht[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_Tva[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_TTC[31m)));[m
		     [01;34melse[m
			[01;30mDraw_Window[m[31m([mBox_Dealin[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealIn"[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mTicket[31m);[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_ht[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_Tva[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_TTC[31m)));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mDraw_Window[m[31m([mVoice[31m);[m
		     
		     
		     
		     [01;30mDraw_Window[m[31m([mBalance[31m);[m
		     
		     
		     
		     [01;30mDraw_Text[m[31m([mBalance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
			       
			       [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mCapital[31m))[m [31m&[m
				 [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mMaterial[31m))[m [31m&[m
				 [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_In[31m))[m [31m&[m
				 [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
			      [31m);[m
		     [01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
		     [01;30mDraw_Text[m[31m([mVoice[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"N     , Name            , Unit HT    , Quantity    , Total HT     , TVA %  , Total TVA       , Total Price TTC"[m[31m);[m

		     [01;30mDraw_Text[m[31m([mVoice[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Blue[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)[m [31m*[m [31m'-'[m[31m)));[m
		     
		     
		     [01;30mTicket_Wins_Draw[m[31m([mApp[31m.[mTicket_Wins[31m);[m
		     
		     [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			[01;30mVoice_Print[m[31m([mOutvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m

			[01;30mDraw_Text[m[31m([mBox_Dealout [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34melse[m
			[01;30mVoice_Print[m[31m([mInvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m
			
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Refresh[31m;[m

	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m

	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Suspend [01;34mdo[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m Suspend[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		     Moneybox_Process[31m.[mTop [31m:=[m Top[31m;[m
		     [01;30mInitialize[m[31m([mBox_Dealin[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m17[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Red[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mBox_Dealout[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m17[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Green[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mVoice[31m,[m [35m18[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m28[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mTicket[31m,[m App[31m.[mLines[31m-[m[35m10[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m white[31m,[m Blue[31m);[m
		     [01;30mInitialize[m[31m([mBalance[31m,[m App[31m.[mLines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Yellow[31m,[m Blue[31m);[m
		     [01;30mInitialize[m[31m([mCmd_Win[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
		     
		     [01;30mInitialize[m[31m([mApp[31m.[mTicket_Wins[31m,[m App[31m.[mLines[31m-[m[35m30[m[31m,[m Top[31m+[mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m19[m[31m,[m [35m2[m[31m,[m Top[31m);[m
		     
		     [31m-----------------------------------------------[m
		     [31m--Errno := System("clear" & Character'Val(0));[m
		     [31m-----------------------------------------------[m
		     [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			[01;30mDraw_Window[m[31m([mBox_Dealout[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealOut"[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mTicket[31m);[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_ht[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_Tva[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_TTC[31m)));[m

		     [01;34melse[m
			[01;30mDraw_Window[m[31m([mBox_Dealin[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealIn"[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			[01;30mDraw_Window[m[31m([mTicket[31m);[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_ht[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_Tva[31m)));[m
			[01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_TTC[31m)));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mDraw_Window[m[31m([mVoice[31m);[m
		     [01;30mDraw_Window[m[31m([mBalance[31m);[m
		     [01;30mDraw_Text[m[31m([mBalance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
			       
			       [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mCapital[31m))[m [31m&[m
				 [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mMaterial[31m))[m [31m&[m
				 [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_In[31m))[m [31m&[m
				 [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
			      [31m);[m
		     [01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
		     [01;30mDraw_Text[m[31m([mVoice[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"N     , Name            , Unit HT    , Quantity    , Total HT     , TVA %  , Total TVA       , Total Price TTC"[m[31m);[m

		     [01;30mDraw_Text[m[31m([mVoice[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Blue[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)[m [31m*[m [31m'-'[m[31m)));[m
		     
		     [01;30mTicket_Wins_Draw[m[31m([mApp[31m.[mTicket_Wins[31m);[m
		     
		     [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			[01;30mVoice_Print[m[31m([mOutvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m

			[01;30mDraw_Text[m[31m([mBox_Dealout [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34melse[m
			[01;30mVoice_Print[m[31m([mInvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m

			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Line_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m

		  [01;34mend[m Wake_Up[31m;[m
		  
	       [01;34mor[m [01;34mwhen[m Remove_Case [31m=>[m
		  [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Line_Curs [31m:=[m Initialize[31m;[m
			      Invoice [31m:=[m Null_Invoice[31m;[m
			      Outvoice [31m:=[m Null_Outvoice[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m
			      [01;34mif[m [31m([mText [31m=[m [01;34mnull[m[31m)[m [01;34mor[m [01;34melse[m
				Text'Length [31m=[m [35m0[m [01;34mthen[m
				 [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
				    Deal_Name [31m:=[m Deal_In[31m;[m
				 [01;34melse[m
				    Deal_Name [31m:=[m Deal_out[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			      [01;34mif[m Line_Num_Last [31m>[m [35m0[m [01;34mthen[m
				 [01;34mbegin[m
				    Line_Num [31m:=[m 
				      Account_Line_Range'Value
				      [31m([m
				       Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mRemoved_Line_Num[m[31m([m[35m1[m[31m..[mLine_Num_Last[31m))[m
				      [31m);[m
				 [01;34mexception[m
				    [01;34mwhen[m Constraint_Error [31m=>[m
				       [01;34mnull[m[31m;[m
				 [01;34mend[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mif[m Line_Num [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
				    [01;30mLine_Remove[m[31m([m[01;30mAbstracted_Voice[m[31m([mOutvoice[31m),[m Line_Num[31m);[m
				 [01;34melse[m
				    [01;30mLine_Remove[m[31m([m[01;30mAbstracted_Voice[m[31m([mInvoice[31m),[m Line_Num[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 
			      [01;34mend[m [01;34mif[m[31m;[m				 
			      Line_Num [31m:=[m [35m0[m[31m;[m
			      Removed_Line_Num [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m));[m
			      Line_Num_Last [31m:=[m [35m0[m[31m;[m
			      Remove_Case [31m:=[m False[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Line_Num_Last [31m>[m [35m0[m [01;34mthen[m
				 [01;30mRemoved_Line_Num[m[31m([mLine_Num_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Line_Num_Last [31m:=[m Line_Num_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
			[01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			   [01;30mDraw_Window[m[31m([mBox_Dealout[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealOut"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mTicket[31m);[m
			   [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_ht[31m)));[m
			   [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_Tva[31m)));[m
			   [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_TTC[31m)));[m
			[01;34melse[m
			   [01;30mDraw_Window[m[31m([mBox_Dealin[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealIn"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			   [01;30mDraw_Window[m[31m([mTicket[31m);[m
			   [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_ht[31m)));[m
			   [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_Tva[31m)));[m
			   [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_TTC[31m)));[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;30mDraw_Window[m[31m([mVoice[31m);[m
			[01;30mDraw_Window[m[31m([mBalance[31m);[m
			[01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
			[01;30mDraw_Text[m[31m([mBalance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
				  
				  [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mCapital[31m))[m [31m&[m
				    [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mMaterial[31m))[m [31m&[m
				    [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_In[31m))[m [31m&[m
				    [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
				 [31m);[m
			[31m--Draw_Window(Cmd_Win);[m
			[01;30mDraw_Text[m[31m([mVoice[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"N     , Name            , Unit HT    , Quantity    , Total HT     , TVA %  , Total TVA       , Total Price TTC"[m[31m);[m

			[01;30mDraw_Text[m[31m([mVoice[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Blue[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)[m [31m*[m [31m'-'[m[31m)));[m
			[01;30mTicket_Wins_Draw[m[31m([mApp[31m.[mTicket_Wins[31m);[m
			[01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			   [01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   [01;30mVoice_Print[m[31m([mOutvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m
			   
			   [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			[01;34melse[m
			   
			   [01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mBox_Dealin [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   [01;30mVoice_Print[m[31m([mInvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m

			   [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m

			
			
			
		     [01;34melsif[m [01;30mIs_digit[m[31m([mWchar[31m)[m [01;34mand[m [01;34mthen[m
		       Line_Num_Last [31m<[m Removed_Line_Num'Length [01;34mthen[m
			[01;30mRemoved_Line_Num[m[31m([mLine_Num_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Line_Num_Last [31m:=[m Line_Num_Last [31m+[m [35m1[m[31m;[m
			[01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
			[01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m [31m&[m [01;30mRemoved_Line_Num[m[31m([m[35m1[m[31m..[mLine_Num_Last[31m));[m
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		     
		     
		  [01;34mend[m Receive[31m;[m
	       [01;34mor[m
		  [01;34mwhen[m [01;34mnot[m Remove_Case [01;34mand[m App[31m.[mInitialized [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
				 Line_Curs [31m:=[m Initialize[31m;[m
				 Invoice [31m:=[m Null_Invoice[31m;[m
				 Outvoice [31m:=[m Null_Outvoice[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m
				 [01;34mif[m [31m([mText [31m=[m [01;34mnull[m[31m)[m [01;34mor[m [01;34melse[m
				   Text'Length [31m=[m [35m0[m [01;34mthen[m
				    [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
				       Deal_Name [31m:=[m Deal_In[31m;[m
				    [01;34melse[m
				       Deal_Name [31m:=[m Deal_out[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
				 [01;34mif[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				    [01;34mcase[m Line_Curs[31m.[mVal_Cur [01;34mis[m
				       [01;34mwhen[m None_Value [31m=>[m
					  [01;34mnull[m[31m;[m
				       [01;34mwhen[m TVA_Rate_Value [31m=>[m
					  
					  [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
					     [01;34mbegin[m
						[01;30mLine_Add[m[31m([m[01;30mAbstracted_Voice[m[31m([mOutvoice[31m),[m [01;30mTo_Account_Line[m[31m([mLine_Curs[31m,[m [35m707[m[31m,[m Outvoice[31m.[mLine_count [31m+[m [35m1[m[31m));[m
						Outvoice[31m.[mLine_Count [31m:=[m Outvoice[31m.[mLine_Count [31m+[m [35m1[m[31m;[m
						[01;34mif[m Outvoice[31m.[mLine_Last [31m>=[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [01;34mthen[m
						   Account_Line_Index [31m:=[m Account_Line_Index [31m+[m [35m1[m[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
					     [01;34mexception[m
						[01;34mwhen[m Spec_Error [31m=>[m
						   [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
						   [31m--Errno := System("clear" & Character'Val(0));[m
						   [01;30mPut_Line[m[31m([m[31m"Outvoice error"[m[31m);[m
						   [01;34mdeclare[m
						      Char [31m:[m [32mCharacter[m[31m;[m
						   [01;34mbegin[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Press any key to continue"[m[31m);[m
						      [01;30mGet_Immediate[m[31m([mChar[31m);[m
						   [01;34mend[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34melse[m
					     [01;34mbegin[m
						[01;30mLine_Add[m[31m([m[01;30mAbstracted_Voice[m[31m([mInvoice[31m),[m [01;30mTo_Account_Line[m[31m([mLine_Curs[31m,[m [35m607[m[31m,[m Invoice[31m.[mLine_Count [31m+[m [35m1[m[31m));[m
						Invoice[31m.[mLine_Count [31m:=[m Invoice[31m.[mLine_Count [31m+[m [35m1[m[31m;[m
						[01;34mif[m Invoice[31m.[mLine_Last [31m>=[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [01;34mthen[m
						   Account_Line_Index [31m:=[m Account_Line_Index [31m+[m [35m1[m[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
					     [01;34mexception[m
						[01;34mwhen[m Spec_Error [31m=>[m
						   [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
						   [31m--Errno := System("clear" & Character'Val(0));[m
						   [01;30mPut_Line[m[31m([m[31m"Invoice error"[m[31m);[m
						   [01;34mdeclare[m
						      Char [31m:[m [32mCharacter[m[31m;[m
						   [01;34mbegin[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Press any key to continue"[m[31m);[m
						      [01;30mGet_Immediate[m[31m([mChar[31m);[m
						   [01;34mend[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  Line_Curs [31m:=[m Initialize[31m;[m				    
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  Line_Curs[31m.[mVal_Cur [31m:=[m Value_Enum'[01;30mSucc[m[31m([mLine_Curs[31m.[mVal_Cur[31m);[m
				    [01;34mend[m [01;34mcase[m[31m;[m
				    Validated [31m:=[m True[31m;[m
				    
				 [01;34melse[m
				    [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
				 [01;34mif[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m 
				    Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				    Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				      Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m18[m[31m)[m [31m=>[m
				 Remove_Case [31m:=[m True[31m;[m
				 
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m20[m[31m)[m [31m=>[m [31m-- Ctrl+T : charge and billed.[m
				 [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
				    
				    [01;30mCharge[m[31m([mM[31m.[mBalance[31m.[mBalance[31m,[m Outvoice[31m,[m Payed[31m);[m

				    [01;34mif[m Payed [01;34mthen[m

				       Outvoice[31m.[mDate [31m:=[m Clock[31m;[m

				       Outvoice[31m.[mAccount_Num [31m:=[m Outvoice[31m.[m[01;30mAccounting[m[31m([m[35m1[m[31m).[mAccount_Num[31m;[m

				       Outvoice[31m.[mvoice_Num [31m:=[m M[31m.[mBalance[31m.[mOutvoice_Num [31m+[m [35m1[m[31m;[m

				       M[31m.[mBalance[31m.[mOutvoice_Num [31m:=[m M[31m.[mBalance[31m.[mOutvoice_Num [31m+[m [35m1[m[31m;[m

				       [01;34mif[m [01;30mSave[m[31m([mOutvoice[31m,[m [31m"charged.txt"[m[31m)[m [01;34mthen[m
					  
					  [01;30mAdd[m[31m([mAccounts[31m,[m Outvoice[31m);[m

					  [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mOutvoice[31m.[mLine_Last [01;34mloop[m
					     
					     [01;34mdeclare[m
						Line [31m:[m [01;34mconstant[m Account_Line_Type [31m:=[m Outvoice[31m.[m[01;30mAccounting[m[31m([mIter[31m);[m
					     [01;34mbegin[m
						[01;34mif[m [01;34mnot[m Sky[31m.[mStocks_Manager[31m.[m[01;30mIn_Stocks[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m Line[31m.[mDescription[31m)[m [01;34mthen[m
						   
						   [01;34mraise[m Spec_Error[31m;[m
						[01;34melse[m
						   [01;34mdeclare[m
						      Stock [31m:[m [01;34mconstant[m Stock_Record [31m:=[m [31m([m[35m0[m[31m,[m Line[31m.[mDescription[31m,[m Line[31m.[mQuantity[31m,[m Line[31m.[mUnit_Ht_Price[31m,[m Line[31m.[mTVA_Rate[31m);[m
						   [01;34mbegin[m
						      
						      Sky[31m.[mStocks_Manager[31m.[m[01;30mRemove_From_stock[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m Stock[31m.[mName[31m,[m Stock[31m.[mQuantity[31m);[m
						      
						   [01;34mend[m[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
						
					     [01;34mend[m[31m;[m
					  [01;34mend[m [01;34mloop[m[31m;[m
					  Outvoice [31m:=[m Null_Outvoice[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34melse[m
				    
				    [01;30mbilled[m[31m([mM[31m.[mBalance[31m.[mBalance[31m,[m invoice[31m,[m Payed[31m);[m

				    [01;34mif[m Payed [01;34mthen[m

				       Invoice[31m.[mDate [31m:=[m Clock[31m;[m

				       Invoice[31m.[mAccount_Num [31m:=[m Invoice[31m.[m[01;30mAccounting[m[31m([m[35m1[m[31m).[mAccount_Num[31m;[m

				       Invoice[31m.[mvoice_Num [31m:=[m M[31m.[mBalance[31m.[mInvoice_Num [31m+[m [35m1[m[31m;[m

				       M[31m.[mBalance[31m.[mInvoice_Num [31m:=[m M[31m.[mBalance[31m.[mInvoice_Num [31m+[m [35m1[m[31m;[m

				       [01;34mif[m [01;30mSave[m[31m([mInvoice[31m,[m [31m"billed.txt"[m[31m)[m [01;34mthen[m

					  [01;30mAdd[m[31m([mAccounts[31m,[m Invoice[31m);[m

					  [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mInvoice[31m.[mLine_Last [01;34mloop[m

					     [01;34mdeclare[m
						Line [31m:[m [01;34mconstant[m Account_Line_Type [31m:=[m Invoice[31m.[m[01;30mAccounting[m[31m([mIter[31m);[m
					     [01;34mbegin[m

						[01;34mif[m [01;34mnot[m Sky[31m.[mStocks_Manager[31m.[m[01;30mIn_Stocks[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m Line[31m.[mDescription[31m)[m [01;34mthen[m

						   [01;34mdeclare[m
						      Stock [31m:[m [01;34mconstant[m Stock_Record [31m:=[m [31m([mSky[31m.[mStocks_Manager[31m.[mHard_Num [31m+[m [35m1[m[31m,[m Line[31m.[mDescription[31m,[m Line[31m.[mQuantity[31m,[m Line[31m.[mUnit_Ht_Price[31m,[m Line[31m.[mTVA_Rate[31m);[m
						   [01;34mbegin[m

						      Sky[31m.[mStocks_Manager[31m.[mHard_Num [31m:=[m 
							Sky[31m.[mStocks_Manager[31m.[mHard_Num [31m+[m [35m1[m[31m;[m
						      
						      Sky[31m.[mStocks_Manager[31m.[m[01;30mStock_Add[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m Stock[31m);[m

						   [01;34mend[m[31m;[m
						[01;34melse[m

						   [01;34mdeclare[m
						      Stock [31m:[m [01;34mconstant[m Stock_Record [31m:=[m [31m([m[35m0[m[31m,[m Line[31m.[mDescription[31m,[m [31m([mLine[31m.[mQuantity[31m),[m Line[31m.[mUnit_Ht_Price[31m,[m Line[31m.[mTVA_Rate[31m);[m
						   [01;34mbegin[m

						      Sky[31m.[mStocks_Manager[31m.[m[01;30mUpdate_Stock[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m Stock[31m);[m

						   [01;34mend[m[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
						
					     [01;34mend[m[31m;[m
					  [01;34mend[m [01;34mloop[m[31m;[m
					  
					  Invoice [31m:=[m Null_Invoice[31m;[m

				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [31m=[m Activity [01;34mthen[m
				       [01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
				    [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [31m=[m Stocks [01;34mthen[m
				       [01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m

			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			   [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mBox_Dealout[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealOut"[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			      [01;30mDraw_Window[m[31m([mTicket[31m);[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_ht[31m)));[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_Tva[31m)));[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_TTC[31m)));[m
			   [01;34melse[m
			      [01;30mDraw_Window[m[31m([mBox_Dealin[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealIn"[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			      [01;30mDraw_Window[m[31m([mTicket[31m);[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_ht[31m)));[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_Tva[31m)));[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_TTC[31m)));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mVoice[31m);[m
			   [01;30mDraw_Window[m[31m([mBalance[31m);[m
			   [01;30mDraw_Text[m[31m([mBalance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
				     
				     [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mCapital[31m))[m [31m&[m
				       [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mMaterial[31m))[m [31m&[m
				       [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_In[31m))[m [31m&[m
				       [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
				    [31m);[m
			   [31m--Draw_Window(Cmd_Win);[m
			   [01;30mDraw_Text[m[31m([mVoice[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"N     , Name            , Unit HT    , Quantity    , Total HT     , TVA %  , Total TVA       , Total Price TTC"[m[31m);[m
			   
			   [01;30mDraw_Text[m[31m([mVoice[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Blue[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)[m [31m*[m [31m'-'[m[31m)));[m
			   [01;30mTicket_Wins_Draw[m[31m([mApp[31m.[mTicket_Wins[31m);[m
			   [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			      [01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mBox_Dealout [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      [01;30mVoice_Print[m[31m([mOutvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m

			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34melse[m
			      
			      [01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mBox_Dealin [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      [01;30mVoice_Print[m[31m([mInvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m
			      
			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mif[m Remove_Case [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
			      [01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m

			   
			[01;34melsif[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m32[m [01;34mthen[m
			   
			   Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			   Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			     Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			   [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			      [01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mBox_Dealout [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m

			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34melse[m
			      
			      [01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mBox_Dealin [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m

			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			[01;34melse[m
			   [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m Receive[31m;[m
	       [01;34mor[m
		  [01;34mwhen[m [31m([m[01;34mnot[m Remove_Case[31m)[m [01;34mand[m [31m([m[01;34mnot[m App[31m.[mInitialized[31m)[m [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
				 Line_Curs [31m:=[m Initialize[31m;[m
				 Invoice [31m:=[m Null_Invoice[31m;[m
				 Outvoice [31m:=[m Null_Outvoice[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m
				 [01;34mif[m [31m([mText [31m=[m [01;34mnull[m[31m)[m [01;34mor[m [01;34melse[m
				   Text'Length [31m=[m [35m0[m [01;34mthen[m
				    [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
				       Deal_Name [31m:=[m Deal_In[31m;[m
				    [01;34melse[m
				       Deal_Name [31m:=[m Deal_out[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
				 [01;34mif[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				    [01;34mcase[m Line_Curs[31m.[mVal_Cur [01;34mis[m
				       [01;34mwhen[m None_Value [31m=>[m
					  [01;34mnull[m[31m;[m
				       [01;34mwhen[m TVA_Rate_Value [31m=>[m

					  [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
					     [01;34mbegin[m
						
						[01;30mLine_Add[m[31m([m[01;30mAbstracted_Voice[m[31m([mOutvoice[31m),[m [01;30mTo_Account_Line[m[31m([mLine_Curs[31m,[m [35m10[m[31m,[m Outvoice[31m.[mLine_Count [31m+[m [35m1[m[31m));[m
						Outvoice[31m.[mLine_Count [31m:=[m Outvoice[31m.[mLine_Count [31m+[m [35m1[m[31m;[m
						[01;34mif[m Outvoice[31m.[mLine_Last [31m>=[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [01;34mthen[m
						   Account_Line_Index [31m:=[m Account_Line_Index [31m+[m [35m1[m[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
					     [01;34mexception[m
						[01;34mwhen[m Spec_Error [31m=>[m
						   [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
						   [31m--Errno := System("clear" & Character'Val(0));[m
						   [01;30mPut_Line[m[31m([m[31m"Outvoice error"[m[31m);[m
						   [01;34mdeclare[m
						      Char [31m:[m [32mCharacter[m[31m;[m
						   [01;34mbegin[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Press any key to continue"[m[31m);[m
						      [01;30mGet_Immediate[m[31m([mChar[31m);[m
						   [01;34mend[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34melse[m
					     [01;34mbegin[m
						[01;30mLine_Add[m[31m([m[01;30mAbstracted_Voice[m[31m([mInvoice[31m),[m [01;30mTo_Account_Line[m[31m([mLine_Curs[31m,[m [35m607[m[31m,[m Invoice[31m.[mLine_Count [31m+[m [35m1[m[31m));[m
						Invoice[31m.[mLine_Count [31m:=[m Invoice[31m.[mLine_Count [31m+[m [35m1[m[31m;[m
						[01;34mif[m Invoice[31m.[mLine_Last [31m>=[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [01;34mthen[m
						   Account_Line_Index [31m:=[m Account_Line_Index [31m+[m [35m1[m[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
					     [01;34mexception[m
						[01;34mwhen[m Spec_Error [31m=>[m
						   [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
						   [31m--Errno := System("clear" & Character'Val(0));[m
						   [01;30mPut_Line[m[31m([m[31m"Invoice error"[m[31m);[m
						   [01;34mdeclare[m
						      Char [31m:[m [32mCharacter[m[31m;[m
						   [01;34mbegin[m
						      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Press any key to continue"[m[31m);[m
						      [01;30mGet_Immediate[m[31m([mChar[31m);[m
						   [01;34mend[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  Line_Curs [31m:=[m Initialize[31m;[m				    
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  Line_Curs[31m.[mVal_Cur [31m:=[m Value_Enum'[01;30mSucc[m[31m([mLine_Curs[31m.[mVal_Cur[31m);[m
				    [01;34mend[m [01;34mcase[m[31m;[m
				    Validated [31m:=[m True[31m;[m
				 [01;34melse[m
				    [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
				 [01;34mif[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				    Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				    Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				      Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m18[m[31m)[m [31m=>[m
				 Remove_Case [31m:=[m True[31m;[m
				 
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m20[m[31m)[m [31m=>[m [31m-- Ctrl+T : charge and billed.[m
				 [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
				    [01;34mif[m Outvoice[31m.[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				       [01;30mOpen[m[31m([mM[31m.[mBalance[31m.[mBalance[31m,[m Accountant[31m.[mAccounts[31m);[m			    
				       [01;30mCharge[m[31m([mM[31m.[mBalance[31m.[mBalance[31m,[m Outvoice[31m,[m Payed[31m);[m
				       [01;34mif[m Payed [01;34mthen[m
					  Outvoice[31m.[mDate [31m:=[m Clock[31m;[m
					  Outvoice[31m.[mAccount_Num [31m:=[m Outvoice[31m.[m[01;30mAccounting[m[31m([m[35m1[m[31m).[mAccount_Num[31m;[m
					  Outvoice[31m.[mvoice_Num [31m:=[m M[31m.[mBalance[31m.[mOutvoice_Num [31m+[m [35m1[m[31m;[m
					  M[31m.[mBalance[31m.[mOutvoice_Num [31m:=[m M[31m.[mBalance[31m.[mOutvoice_Num [31m+[m [35m1[m[31m;[m
					  [01;34mif[m [01;30mSave[m[31m([mOutvoice[31m,[m [31m"charged.txt"[m[31m)[m [01;34mthen[m
					     [01;30mAdd[m[31m([mAccounts[31m,[m Outvoice[31m);[m
					     
					     [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mOutvoice[31m.[mLine_Last [01;34mloop[m
						
						[01;34mdeclare[m
						   Line [31m:[m [01;34mconstant[m Account_Line_Type [31m:=[m Outvoice[31m.[m[01;30mAccounting[m[31m([mIter[31m);[m
						[01;34mbegin[m
						   [01;34mif[m [01;34mnot[m Sky[31m.[mStocks_Manager[31m.[m[01;30mIn_Stocks[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m Line[31m.[mDescription[31m)[m [01;34mthen[m
						      [01;34mdeclare[m
							 Stock [31m:[m [01;34mconstant[m Stock_Record [31m:=[m [31m([mSky[31m.[mStocks_Manager[31m.[msoft_Num [31m+[m [35m1[m[31m,[m Line[31m.[mDescription[31m,[m Line[31m.[mQuantity[31m,[m Line[31m.[mUnit_Ht_Price[31m,[m Line[31m.[mTVA_Rate[31m);[m
						      [01;34mbegin[m
							 Sky[31m.[mStocks_Manager[31m.[mSoft_Num [31m:=[m 
							   Sky[31m.[mStocks_Manager[31m.[mSoft_Num [31m+[m [35m1[m[31m;[m
							 Sky[31m.[mStocks_Manager[31m.[m[01;30mStock_Add[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m Stock[31m);[m
						      [01;34mend[m[31m;[m
						   [01;34melse[m
						      [01;34mdeclare[m
							 Stock [31m:[m [01;34mconstant[m Stock_Record [31m:=[m [31m([m[35m0[m[31m,[m Line[31m.[mDescription[31m,[m Line[31m.[mQuantity[31m,[m Line[31m.[mUnit_Ht_Price[31m,[m Line[31m.[mTVA_Rate[31m);[m
						      [01;34mbegin[m
							 
							 Sky[31m.[mStocks_Manager[31m.[m[01;30mAdd_To_stock[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m Stock[31m.[mName[31m,[m Stock[31m.[mQuantity[31m);[m
						      [01;34mend[m[31m;[m
						   [01;34mend[m [01;34mif[m[31m;[m
						   
						[01;34mend[m[31m;[m
					     [01;34mend[m [01;34mloop[m[31m;[m
					     
					     Outvoice [31m:=[m Null_Outvoice[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  [01;30mclose[m[31m([mM[31m.[mBalance[31m.[mBalance[31m,[m Accountant[31m.[mAccounts[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m
				       [01;30mOpen[m[31m([mM[31m.[mBalance[31m.[mBalance[31m,[m Accountant[31m.[mAccounts[31m);[m
				       Outvoice [31m:=[m Null_Outvoice[31m;[m
				       App[31m.[mInitialized [31m:=[m True[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34melse[m
				    [01;30mbilled[m[31m([mM[31m.[mBalance[31m.[mBalance[31m,[m invoice[31m,[m Payed[31m);[m
				    [01;34mif[m Payed [01;34mthen[m
				       Invoice[31m.[mDate [31m:=[m Clock[31m;[m
				       Invoice[31m.[mAccount_Num [31m:=[m Invoice[31m.[m[01;30mAccounting[m[31m([m[35m1[m[31m).[mAccount_Num[31m;[m
				       Invoice[31m.[mvoice_Num [31m:=[m M[31m.[mBalance[31m.[mInvoice_Num [31m+[m [35m1[m[31m;[m
				       M[31m.[mBalance[31m.[mInvoice_Num [31m:=[m M[31m.[mBalance[31m.[mInvoice_Num [31m+[m [35m1[m[31m;[m
				       [01;34mif[m [01;30mSave[m[31m([mInvoice[31m,[m [31m"billed.txt"[m[31m)[m [01;34mthen[m
					  [01;30mAdd[m[31m([mAccounts[31m,[m Invoice[31m);[m
					  invoice [31m:=[m Null_invoice[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m

				    [01;34mend[m [01;34mif[m[31m;[m
				    invoice [31m:=[m Null_invoice[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [31m=[m Activity [01;34mthen[m
				       [01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
				    [01;34melsif[m App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[mName [31m=[m Stocks [01;34mthen[m
				       [01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			   [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mBox_Dealout[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealOut"[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			      [01;30mDraw_Window[m[31m([mTicket[31m);[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_ht[31m)));[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_Tva[31m)));[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mOutvoice[31m.[mTotal_TTC[31m)));[m
			   [01;34melse[m
			      [01;30mDraw_Window[m[31m([mBox_Dealin[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Moneybox DealIn"[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price HT  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA rate  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m [35m15[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m[31m);[m
			      [01;30mDraw_Window[m[31m([mTicket[31m);[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_ht[31m)));[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TVA : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_Tva[31m)));[m
			      [01;30mDraw_Text[m[31m([mTicket[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Total TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mInvoice[31m.[mTotal_TTC[31m)));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mVoice[31m);[m
			   [01;30mDraw_Window[m[31m([mBalance[31m);[m
			   [01;30mDraw_Text[m[31m([mBalance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
				     
				     [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mCapital[31m))[m [31m&[m
				       [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mMaterial[31m))[m [31m&[m
				       [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_In[31m))[m [31m&[m
				       [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
				    [31m);[m
			   [31m--Draw_Window(Cmd_Win);[m
			   [01;30mDraw_Text[m[31m([mVoice[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"N     , Name            , Unit HT    , Quantity    , Total HT     , TVA %  , Total TVA       , Total Price TTC"[m[31m);[m

			   [01;30mDraw_Text[m[31m([mVoice[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Blue[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)[m [31m*[m [31m'-'[m[31m)));[m
			   [01;30mTicket_Wins_Draw[m[31m([mApp[31m.[mTicket_Wins[31m);[m
			   [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			      [01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mBox_Dealout [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      [01;30mVoice_Print[m[31m([mOutvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m
			      
			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34melse[m
			      
			      [01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mBox_Dealin [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      [01;30mVoice_Print[m[31m([mInvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m

			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mif[m Remove_Case [01;34mthen[m
			      [01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
			      [01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m

			   
			[01;34melsif[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m32[m [01;34mthen[m
			   
			   Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			   Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			     Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			   [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			      [01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mBox_Dealout [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m

			      [01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34melse[m
			      
			      [01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mBox_Dealin [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m

			      [01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			[01;34melse[m
			   [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m Receive[31m;[m
		     
		     [31m--if Validated then[m
		     [31m--   exit;		  [m
		     [31m--end if;[m
	       [01;34mor[m

		  [01;34maccept[m Refresh [01;34mdo[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m Refresh[31m;[m
		  
	       [01;34mor[m
		  [01;34maccept[m Page_Down [01;34mdo[m
		     [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			[01;34mif[m Outvoice[31m.[mLine_Last [31m>=[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [01;34mthen[m
			   [01;34mif[m Account_Line_Index [31m+[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [31m<[m Outvoice[31m.[mLine_Last [01;34mthen[m
			      Account_Line_Index [31m:=[m Account_Line_Index [31m+[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m);[m
			   [01;34melse[m
			      Account_Line_Index [31m:=[m Outvoice[31m.[mLine_Last [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;34mif[m Invoice[31m.[mLine_Last [31m>=[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [01;34mthen[m
			   [01;34mif[m Account_Line_Index [31m+[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [31m<[m Invoice[31m.[mLine_Last [01;34mthen[m
			      Account_Line_Index [31m:=[m Account_Line_Index [31m+[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m);[m
			   [01;34melse[m
			      Account_Line_Index [31m:=[m Invoice[31m.[mLine_Last [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mTicket_Wins_Draw[m[31m([mApp[31m.[mTicket_Wins[31m);[m
		     [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			[01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;30mVoice_Print[m[31m([mOutvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m

			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34melse[m
			
			[01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mBox_Dealin [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;30mVoice_Print[m[31m([mInvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m
			
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;34mif[m Remove_Case [01;34mthen[m
			[01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
			[01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Page_Down[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Page_Up [01;34mdo[m
		     [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			[01;34mif[m Outvoice[31m.[mLine_Last [31m>=[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [01;34mthen[m
			   [01;34mif[m Account_Line_Index [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [31m>=[m [35m0[m [01;34mthen[m
			      Account_Line_Index [31m:=[m Account_Line_Range'[01;30mMax[m[31m([mAccount_Line_Index [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m),[m [35m0[m[31m);[m
			   [01;34melse[m
			      Account_Line_Index [31m:=[m [35m0[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;34mif[m Invoice[31m.[mLine_Last [31m>=[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [01;34mthen[m
			   [01;34mif[m Account_Line_Index [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m)[m [31m>=[m [35m0[m [01;34mthen[m
			      Account_Line_Index [31m:=[m Account_Line_Range'[01;30mMax[m[31m([mAccount_Line_Index [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m34[m[31m),[m [35m0[m[31m);[m
			   [01;34melse[m
			      Account_Line_Index [31m:=[m [35m0[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mTicket_Wins_Draw[m[31m([mApp[31m.[mTicket_Wins[31m);[m
		     [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			[01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;30mVoice_Print[m[31m([mOutvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m

			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34melse[m
			
			[01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mBox_Dealin [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;30mVoice_Print[m[31m([mInvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m
			
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;34mif[m Remove_Case [01;34mthen[m
			[01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
			[01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Page_Up[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m up_arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m Down_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Left_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Right_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Full_Screen[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Del[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Begin_Of [01;34mdo[m
		     Account_Line_Index [31m:=[m [35m0[m[31m;[m
		     [01;30mTicket_Wins_Draw[m[31m([mApp[31m.[mTicket_Wins[31m);[m
		     [01;34mif[m Deal_Name [31m=[m Deal_Out [01;34mthen[m
			[01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mBox_Dealout [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;30mVoice_Print[m[31m([mOutvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m

			[01;30mDraw_Text[m[31m([mBox_Dealout[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34melse[m
			
			[01;34mfor[m Val [01;34min[m Name_Value[31m..[mTotal_Ttc_Value [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mBox_Dealin [31m,[m Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Line_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;30mVoice_Print[m[31m([mInvoice[31m,[m App[31m.[mTicket_Wins[31m,[m Account_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m34[m[31m);[m
			
			[01;30mDraw_Text[m[31m([mBox_Dealin[31m,[m Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Line_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Curs[31m.[m[01;30mValues[m[31m([mLine_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;34mif[m Remove_Case [01;34mthen[m
			[01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
			[01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Begin_Of[31m;[m
	       [01;34mor[m
		  [01;34maccept[m end_Of[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Overwrite[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Full_Screen[31m;[m

	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mif[m Validated [01;34mthen[m
	       
	       Validated [31m:=[m False[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m[31m;[m
      
      [31m--W_Io.Put_Line("Moneybox process halted");[m
   [01;34mend[m MoneyBox_Process[31m;[m
   
   
   
   
   
   
   
   
   
   
   
   [31m-------------------------------------------------------------------------------------------------------------[m
   [31m--                                                                                                         --[m
   [31m--                                          Activity                                                       --[m
   [31m--                                                                                                         --[m
   [31m-------------------------------------------------------------------------------------------------------------[m
   
   
   

   
   
   
   
   [01;34mprocedure[m [01;30mInitialize[m[31m([mWins [31m:[m [01;34mout[m Accounting_Windows_Type[31m;[m
			Space_Left [31m:[m [01;34min[m Line_Range[31m;[m
			Width      [31m:[m [01;34min[m Column_Range[31m;[m
			L          [31m:[m [01;34min[m Line_Range[31m;[m
			C          [31m:[m [01;34min[m Column_Range[31m;[m
			Top         [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m);[m
   
   
   
   
   [01;34mprocedure[m [01;30mAccounting_Wins_Draw[m[31m([mWins [31m:[m Accounting_Windows_Type[31m)[m [01;34mis[m
      
   [01;34mbegin[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mVoice_Num_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mAcc_Num_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mTotal_Ht_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mTotal_TVA_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mTotal_Ttc_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mDate_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mPeer_Win[31m);[m
   [01;34mend[m Accounting_Wins_Draw[31m;[m      
   
   
   [01;34mprocedure[m [01;30mAccounting_Line_Draw[m[31m([mWins [31m:[m Accounting_Windows_Type[31m;[m Line [31m:[m [01;34min[m Line_Range[31m;[m Voice [31m:[m [01;34min[m Abstracted_Voice[31m)[m [01;34mis[m
      
   [01;34mbegin[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mVoice_Num_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mVoice_Num_Range'[01;30mImage[m[31m([mVoice[31m.[mVoice_Num[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mAcc_Num_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mAccount_Num_Range'[01;30mImage[m[31m([mVoice[31m.[mAccount_Num[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mTotal_Ht_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mVoice[31m.[mTotal_Ht[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mTotal_TVA_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mVoice[31m.[mTotal_TVA[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mTotal_Ttc_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mVoice[31m.[mTotal_TTC[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mDate_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mVoice[31m.[mDate[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mPeer_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Voice[31m.[m[01;30mPeer_Name[m[31m([m[35m1[m[31m..[m[35m16[m[31m));[m
   [01;34mend[m Accounting_Line_Draw[31m;[m      
   
   
   [01;34msubtype[m Voice_Index_Range [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[mPositive'Last[31m;[m
   [01;34mtype[m Voice_Access [01;34mis[m [01;34maccess[m [01;34mall[m Abstracted_Voice[31m;[m
   [01;34mfunction[m [01;30mSame[m[31m([mLeft[31m,[m Right [31m:[m [01;34min[m Voice_Access[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
   [01;34mbegin[m
      [01;34mreturn[m Left[31m.[m[01;34mall[m [31m=[m Right[31m.[m[01;34mall[m[31m;[m
   [01;34mend[m Same[31m;[m
   
   [01;34mpackage[m Voice_Vectors [01;34mis[m [01;34mnew[m Ada[31m.[mContainers[31m.[m[01;30mVectors[m [31m([mVoice_Index_Range[31m,[m Voice_Access[31m,[m Same[31m);[m
   
   [01;34mfunction[m [31m"<"[m[31m([mLeft[31m,[m Right [31m:[m [01;34min[m Voice_Access[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
   [01;34mbegin[m
      [01;34mreturn[m Left[31m.[mDate [31m<[m Right[31m.[mDate[31m;[m
   [01;34mend[m [31m"<"[m[31m;[m
   
   [01;34mpackage[m Sorting [01;34mis[m [01;34mnew[m Voice_Vectors[31m.[m[01;30mGeneric_Sorting[m[31m([m[31m"<"[m[31m);[m
   
   [01;34muse[m Voice_Vectors[31m;[m
   
   [01;34mtype[m State_Type [01;34mis[m
      [01;34mrecord[m
	 Date         [31m:[m Time [31m:=[m [01;30mTime_Of[m[31m([m[35m1970[m[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m);[m
	 Deal_In_HT   [31m:[m Fixed_Total [31m:=[m [35m0.0[m[31m;[m
	 Deal_In_Ttc  [31m:[m Fixed_Total [31m:=[m [35m0.0[m[31m;[m
	 Tva_Out      [31m:[m Fixed_Total [31m:=[m [35m0.0[m[31m;[m
	 Deal_Out_HT  [31m:[m Fixed_Total [31m:=[m [35m0.0[m[31m;[m
	 Deal_Out_Ttc [31m:[m Fixed_Total [31m:=[m [35m0.0[m[31m;[m
	 Tva_in       [31m:[m Fixed_Total [31m:=[m [35m0.0[m[31m;[m
	 Result       [31m:[m Fixed_Total [31m:=[m [35m0.0[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mprocedure[m [01;30mMake_State[m [31m([mVoices [31m:[m [01;34min[m Voice_Vectors[31m.[mVector[31m;[m From [31m:[m [01;34min[m Time[31m;[m To [31m:[m [01;34min[m Time[31m;[m State [31m:[m [01;34mout[m State_Type[31m)[m [01;34mis[m
      
   [01;34mbegin[m
      
      
      
      
      
      [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mVoices[31m)[m [01;34mthen[m
	 [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mVoices[31m)[m [01;34mloop[m
	    [01;34mdeclare[m
	       Voice [31m:[m [01;34mconstant[m Voice_Access [31m:=[m Voice_Vectors[31m.[m[01;30mElement[m[31m([mVoices[31m,[m [32mInteger[m[31m([mIter[31m));[m
	    [01;34mbegin[m	       
	       [01;34mcase[m Voice[31m.[mAccount_Num [01;34mis[m
		  [01;34mwhen[m [35m607[m [31m=>[m
		     State[31m.[mDeal_In_Ht [31m:=[m State[31m.[mDeal_In_Ht [31m+[m Voice[31m.[mTotal_Ht[31m;[m
		     State[31m.[mDeal_In_TTC [31m:=[m State[31m.[mDeal_In_TTC [31m+[m Voice[31m.[mTotal_TTC[31m;[m
		     State[31m.[mTva_Out [31m:=[m State[31m.[mTva_Out [31m+[m Voice[31m.[mTotal_Tva[31m;[m
		  [01;34mwhen[m [35m707[m [31m=>[m
		     State[31m.[mDeal_Out_Ht [31m:=[m State[31m.[mDeal_Out_Ht [31m+[m Voice[31m.[mTotal_Ht[31m;[m
		     State[31m.[mDeal_Out_TTC [31m:=[m State[31m.[mDeal_Out_TTC [31m+[m Voice[31m.[mTotal_TTC[31m;[m
		     State[31m.[mTva_In [31m:=[m State[31m.[mTva_In [31m+[m Voice[31m.[mTotal_Tva[31m;[m
		  [01;34mwhen[m [35m10[m [31m=>[m
		     State[31m.[mResult [31m:=[m State[31m.[mResult [31m+[m Voice[31m.[mTotal_Ht[31m;[m
		  [01;34mwhen[m [01;34mothers[m [31m=>[m
		     [01;34mnull[m[31m;[m
	       [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mexit[m [01;34mwhen[m Voice[31m.[mDate [31m>[m To[31m;[m
	    [01;34mend[m[31m;[m	    
	 [01;34mend[m [01;34mloop[m[31m;[m
	 State[31m.[mResult [31m:=[m State[31m.[mResult [31m-[m State[31m.[mDeal_In_Ttc[31m;[m
	 State[31m.[mResult [31m:=[m State[31m.[mResult [31m+[m State[31m.[mDeal_Out_Ttc[31m;[m
	 State[31m.[mResult [31m:=[m State[31m.[mResult [31m-[m State[31m.[mTva_In[31m;[m
	 State[31m.[mResult [31m:=[m State[31m.[mResult [31m+[m State[31m.[mTva_Out[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Make_State[31m;[m
   
   
   
   
   
   [01;34mprocedure[m [01;30mInitialize[m[31m([mWins [31m:[m [01;34mout[m Accounting_Windows_Type[31m;[m
			Space_Left [31m:[m [01;34min[m Line_Range[31m;[m
			Width      [31m:[m [01;34min[m Column_Range[31m;[m
			L       [31m:[m [01;34min[m Line_Range[31m;[m
			C        [31m:[m [01;34min[m Column_Range[31m;[m
			Top       [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
   [01;34mbegin[m
      
      
      Wins[31m.[mVoice_Num_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m10[m[31m,[m  
			     Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mAcc_Num_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m10[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m8[m[31m,[m  
			   Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mTotal_Ht_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m18[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m  
			    Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mTotal_TVA_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m34[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m  
			     Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mTotal_TTC_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m50[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m  
			     Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mDate_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m66[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m22[m[31m,[m  
			Cyan[31m,[m The_Window[31m);[m
      
      Wins[31m.[mPeer_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m88[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m Width[31m-([mC[31m+[m[35m88[m[31m+[m[35m2[m[31m),[m  
			Cyan[31m,[m The_Window[31m);[m
      
      [01;30mInitialize[m[31m([mWins[31m.[mVoice_Num_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m10[m[31m,[m  Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mAcc_Num_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m10[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m8[m[31m,[m  Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mTotal_Ht_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m18[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mTotal_TVA_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m34[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mTotal_TTC_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m50[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mDate_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m66[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m22[m[31m,[m Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mPeer_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m88[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m Width[31m-([mC[31m+[m[35m88[m[31m+[m[35m2[m[31m),[m Cyan[31m,[m Red[31m);[m
      
   [01;34mend[m Initialize[31m;[m
   

   
   
   
   [01;34mtask[m [01;34mbody[m Activity_Process [01;34mis[m
      
      Activity_From    [31m:[m Window_Record [31m:=[m [31m([m[35m3[m[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m  The_Window[31m);[m
      Activity_To      [31m:[m Window_Record [31m:=[m [31m([m[35m3[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m4[m[31m)+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Activity_Compta  [31m:[m Window_Record [31m:=[m [31m([m[35m13[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m20[m[31m),[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m The_Window[31m);[m
      Activity_Balance [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m  Yellow[31m,[m The_Window[31m);[m
      Activity_Cmd     [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m2[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m The_Window[31m);[m
      
      
      
      
      [01;34mprocedure[m [01;30mState_Print[m[31m([mDate [31m:[m [01;34min[m Time[31m;[m Line_Max [31m:[m [01;34min[m Line_Range[31m)[m [01;34mis[m
	 
	 
	 
	 
	 
	 
	 State [31m:[m Voice_Vectors[31m.[mVector[31m;[m
	 
	 Page [31m:[m Voice_Vectors[31m.[mVector[31m;[m
	 
	 From [31m:[m State_Type[31m;[m
	 To   [31m:[m State_Type[31m;[m
	 
	 From_Line [31m:[m [01;30mAbstracted_Voice[m[31m([m[35m256[m[31m);[m
	 To_Line   [31m:[m [01;30mAbstracted_Voice[m[31m([m[35m256[m[31m);[m
	 
	 
      [01;34mbegin[m
	 
	 [01;34mfor[m Invoice [01;34min[m [35m1[m[31m..[mAccounts[31m.[mInvoice_Last [01;34mloop[m
	    [01;30mAppend[m[31m([mState[31m,[m [01;34mnew[m Abstracted_Voice ' [31m([m[01;30mabstracted_voice[m[31m([mAccounts[31m.[m[01;30mBilled[m[31m([mInvoice[31m))));[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mfor[m outvoice [01;34min[m [35m1[m[31m..[mAccounts[31m.[mOutvoice_Last [01;34mloop[m
	    [01;30mAppend[m[31m([mState[31m,[m [01;34mnew[m Abstracted_Voice ' [31m([m[01;30mabstracted_voice[m[31m([mAccounts[31m.[m[01;30mCharges[m[31m([moutvoice[31m))));[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 Sorting[31m.[m[01;30mSort[m[31m([mState[31m);[m
	 
	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mState[31m)[m [01;34mthen[m
	    [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mState[31m)[m [01;34mloop[m
	       [01;34mdeclare[m
		  Voice [31m:[m [01;34mconstant[m Abstracted_Voice [31m:=[m [01;30mElement[m[31m([mState[31m,[m [01;30mVoice_Index_Range[m[31m([mIter[31m)).[m[01;34mall[m[31m;[m
	       [01;34mbegin[m
		  [01;34mif[m Voice[31m.[mDate [31m>=[m Date [01;34mthen[m
		     [01;30mAppend[m[31m([mPage[31m,[m [01;34mnew[m Abstracted_Voice ' [31m([mVoice[31m));[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mexit[m [01;34mwhen[m [01;30mLength[m[31m([mPage[31m)[m [31m=[m [01;30mCount_Type[m[31m([mLine_Max[31m);[m
	       [01;34mend[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
	 
	 
	 [01;30mMake_State[m[31m([mState[31m,[m [01;30mTime_Of[m[31m([m[35m1970[m[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m Date[31m,[m From[31m);[m
	 
	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mPage[31m)[m [01;34mthen[m
	    
	    From_Line [31m:=[m [01;30mFirst_Element[m[31m([mPage[31m).[m[01;34mall[m[31m;[m
	    From[31m.[mDate [31m:=[m From_Line[31m.[mdate[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
	 [01;30mDraw_Window[m[31m([mActivity_From[31m);[m
	 
	 
	 
	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"From         : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mFrom[31m.[mDate[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal  in HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mDeal_In_Ht[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal  in TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mDeal_In_TTC[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA  out     : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mTVA_Out[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal out HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mDeal_Out_Ht[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m6[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal out TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mDeal_Out_Ht[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA   in     : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mTVA_In[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m8[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Result       : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mResult[31m)));[m
	 
	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mPage[31m)[m [01;34mthen[m
	    [01;30mMake_State[m[31m([mState[31m,[m [01;30mTime_Of[m[31m([m[35m1970[m[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m [01;30mLast_Element[m[31m([mPage[31m).[mDate[31m,[m To[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mPage[31m)[m [01;34mthen[m
	    To_Line [31m:=[m [01;30mLast_Element[m[31m([mPage[31m).[m[01;34mall[m[31m;[m
	    To[31m.[mDate [31m:=[m To_Line[31m.[mdate[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
	 [01;30mDraw_Window[m[31m([mActivity_To[31m);[m
	 
	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"To           : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mTo[31m.[mDate[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal  in HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mDeal_In_Ht[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal  in TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mDeal_In_TTC[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA  out     : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mTVA_Out[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal out HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mDeal_Out_Ht[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m6[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal out TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mDeal_Out_Ht[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA   in     : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mTVA_In[31m)));[m
	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m8[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Result       : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mResult[31m)));[m
	 
	 [01;30mDraw_Window[m[31m([mActivity_Compta[31m);[m
	 
	 [01;30mDraw_Text[m[31m([mActivity_Compta[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Voice Num, Acc N , Total HT      , Total TVA    , Total TTC     , date              , Peer Name"[m[31m);[m

	 [01;30mAccounting_Wins_Draw[m[31m([mApp[31m.[mActivity_Wins[31m);[m
	 
	 
	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mPage[31m)[m [01;34mthen[m
	    [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mPage[31m)[m [01;34mloop[m
	       [01;34mdeclare[m
		  Voice [31m:[m [01;34mconstant[m Abstracted_Voice [31m:=[m [01;30mElement[m[31m([mPage[31m,[m [01;30mVoice_Index_Range[m[31m([mIter[31m)).[m[01;34mall[m[31m;[m
	       [01;34mbegin[m
		  [01;30mAccounting_Line_Draw[m[31m([mApp[31m.[mActivity_Wins[31m,[m [01;30mLine_Range[m[31m([mIter[31m),[m Voice[31m);[m
	       [01;34mend[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
      [01;34mend[m State_Print[31m;[m
   [01;34mbegin[m

      [01;30mInitialize[m[31m([mActivity_From  [31m,[m [35m3[m[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m [31m([mApp[31m.[mColumns[31m)/[m[35m4[m[31m,[m Blue[31m,[m  White[31m);[m
      [01;30mInitialize[m[31m([mActivity_To    [31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mActivity_Compta[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m20[m[31m),[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mActivity_Balance [31m,[mApp[31m.[mLines[31m-[m[35m5[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m  Yellow[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mActivity_Cmd[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m White[31m);[m
      
      
      
      [01;30mInitialize[m[31m([mApp[31m.[mActivity_Wins[31m,[m App[31m.[mLines[31m-[m[35m23[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m [35m13[m[31m,[m [35m2[m[31m,[m [35m0[m[31m);[m

      
      [01;34mdeclare[m
	 
	 
	 Date [31m:[m Time [31m:=[m Clock[31m;[m
	 
	 Line [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m);[m
	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 
	 
      [01;34mbegin[m
     Main_Loop[31m:[m
	 [01;34mloop[m
	    [01;34mloop[m
	       [01;34mselect[m
		  
		  [01;34maccept[m Halt [01;34mdo[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Suspend[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m

		     [01;30mInitialize[m[31m([mActivity_From  [31m,[m [35m3[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m [31m([mApp[31m.[mColumns[31m)/[m[35m4[m[31m,[m Blue[31m,[m  White[31m);[m
		     [01;30mInitialize[m[31m([mActivity_To    [31m,[m [35m3[m[31m,[m Top[31m+[mApp[31m.[mColumns[31m/[m[35m4[m[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mActivity_Compta[31m,[m [35m13[m[31m,[m Top[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m20[m[31m),[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mActivity_Balance [31m,[mApp[31m.[mLines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m  Yellow[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mActivity_Cmd[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m White[31m);[m
		     
		     
		     
		     [01;30mInitialize[m[31m([mApp[31m.[mActivity_Wins[31m,[m App[31m.[mLines[31m-[m[35m23[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m [35m13[m[31m,[m [35m2[m[31m,[m Top[31m);[m
		     
		     [31m----------------------------------------------[m
		     [31m--Errno := System("clear" & Character'Val(0));[m
		     [31m----------------------------------------------[m
		     [01;30mState_Print[m[31m([mDate[31m-[m[35m86400.0[m[31m,[m App[31m.[mLines[31m-[m[35m25[m[31m);[m
		     
		     [01;30mDraw_Window[m[31m([mActivity_Balance[31m);[m
		     [01;30mDraw_Text[m[31m([mActivity_Balance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
			       
			       [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mCapital[31m))[m [31m&[m
				 [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mMaterial[31m))[m [31m&[m
				 [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_In[31m))[m [31m&[m
				 [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
			      [31m);[m
		     [01;30mDraw_Window[m[31m([mActivity_Cmd[31m);[m
		     [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
			[01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m [01;30mLine[m[31m([mLine'First[31m..[mLine_Last[31m));[m
		     [01;34melse[m
			[01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		     
		  [01;34mend[m Wake_Up[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m

	    [01;34mloop[m
	       
	       [01;34mselect[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Suspend[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m

		     [01;30mInitialize[m[31m([mActivity_From  [31m,[m [35m3[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m [31m([mApp[31m.[mColumns[31m)/[m[35m4[m[31m,[m Blue[31m,[m  White[31m);[m
		     [01;30mInitialize[m[31m([mActivity_To    [31m,[m [35m3[m[31m,[m Top[31m+[mApp[31m.[mColumns[31m/[m[35m4[m[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mActivity_Compta[31m,[m [35m13[m[31m,[m Top[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m20[m[31m),[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mActivity_Balance [31m,[mApp[31m.[mLines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m  Yellow[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mActivity_Cmd[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m White[31m);[m
		     
		     
		     
		     [01;30mInitialize[m[31m([mApp[31m.[mActivity_Wins[31m,[m App[31m.[mLines[31m-[m[35m23[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m [35m13[m[31m,[m [35m2[m[31m,[m Top[31m);[m
		     
		     [31m----------------------------------------------[m
		     [31m--Errno := System("clear" & Character'Val(0));[m
		     [31m----------------------------------------------[m
		     [01;30mState_Print[m[31m([mDate[31m-[m[35m86400.0[m[31m,[m App[31m.[mLines[31m-[m[35m25[m[31m);[m
		     
		     [01;30mDraw_Window[m[31m([mActivity_Balance[31m);[m
		     [01;30mDraw_Text[m[31m([mActivity_Balance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
			       
			       [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mCapital[31m))[m [31m&[m
				 [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mMaterial[31m))[m [31m&[m
				 [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_In[31m))[m [31m&[m
				 [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
			      [31m);[m
		     [01;30mDraw_Window[m[31m([mActivity_Cmd[31m);[m
		     [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
			[01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m [01;30mLine[m[31m([mLine'First[31m..[mLine_Last[31m));[m
		     [01;34melse[m
			[01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Wake_Up[31m;[m
	       [01;34mor[m
		  
		  [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m10[m[31m)[m [31m=>[m
			      [01;34mbegin[m
				 Date [31m:=[m Formatting[31m.[m[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([m[35m1[m[31m..[mLine_Last[31m)));[m
				 Line [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m0[m[31m));[m
				 Line_Last [31m:=[m [35m0[m[31m;[m
			      [01;34mexception[m
				 [01;34mwhen[m Constraint_Error [31m=>[m
				    [01;34mnull[m[31m;[m
			      [01;34mend[m[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m [31m([m[35m20[m[31m)[m [31m=>[m
			      Accountant[31m.[m[01;30mClose[m[31m([mM[31m.[mBalance[31m.[mBalance[31m,[m
					       Accountant[31m.[mAccounts[31m);[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
				 [01;30mLine[m[31m([mLine_Last[31m)[m [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				 Line_Last [31m:=[m Line_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
			[31m----------------------------------------------[m
			[31m--Errno := System("clear" & Character'Val(0));[m
			[31m----------------------------------------------[m
			[01;30mState_Print[m[31m([mDate[31m-[m[35m86400.0[m[31m,[m App[31m.[mLines[31m-[m[35m25[m[31m);[m
			
			[01;30mDraw_Window[m[31m([mActivity_Balance[31m);[m
			[01;30mDraw_Text[m[31m([mActivity_Balance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
				  
				  [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mCapital[31m))[m [31m&[m
				    [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mMaterial[31m))[m [31m&[m
				    [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_In[31m))[m [31m&[m
				    [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
				 [31m);[m
			[01;30mDraw_Window[m[31m([mActivity_Cmd[31m);[m
			[01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
			   [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m [01;30mLine[m[31m([mLine'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melsif[m Line_Last [31m<[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m [01;34mthen[m
			[01;30mLine[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
			[01;30mDraw_Window[m[31m([mActivity_Cmd[31m);[m
			[01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
			   [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m [01;30mLine[m[31m([mLine'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m
	       [01;34mor[m
		  
		  [01;34maccept[m Refresh[31m;[m
		  
	       [01;34mor[m
		  [01;34maccept[m Page_Down[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Page_Up[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m up_arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m Down_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Left_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Right_Arrow[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Del[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Begin_Of[31m;[m
	       [01;34mor[m
		  [01;34maccept[m End_Of[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Overwrite[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Full_Screen[31m;[m

	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    
	 [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m[31m;[m
      [31m--W_Io.Put_Line("Activity process halted");[m
   [01;34mend[m Activity_Process[31m;[m
   
   [31m-------------------------------------------------------------------------------------------------------------[m
   [31m--                                                                                                         --[m
   [31m--[m
   [31m-------------------------------------------------------------------------------------------------------------[m
   [01;34mtype[m Stock_enum [01;34mis[m [31m([mStock_None[31m,[m Stock_Name[31m,[m Stock_Quantity[31m);[m
   
   [01;34mtype[m Stock_Type [01;34mis[m
      [01;34mrecord[m
	 Name [31m:[m Stock_Enum [31m:=[m Stock_None[31m;[m
	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Curs_Set [01;34mis[m [01;34marray[m [31m([mStock_Enum[31m)[m [01;34mof[m Stock_Type[31m;[m
   
   [01;34mtype[m Stock_Cursor_Type [01;34mis[m
      [01;34mrecord[m
	 Values  [31m:[m Curs_Set[31m;[m
	 Val_Cur [31m:[m Stock_Enum [31m:=[m Stock_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Stock_Cursor_Type [01;34mis[m
      Curs [31m:[m Stock_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mStock_Name[31m)[m [31m:=[m
	[31m([mStock_name[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m2[m[31m,[m
	 [35m13[m
	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mStock_Quantity[31m)[m [31m:=[m
	[31m([mStock_quantity[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m4[m[31m,[m
	 [35m13[m
	[31m);[m
      Curs[31m.[mVal_Cur [31m:=[m Stock_name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_Stock[m [31m([mCurs [31m:[m [01;34min[m stock_Cursor_Type[31m;[mLine_Num [31m:[m [01;34min[m Stock_Num_Range[31m;[mStock_Num [31m:[m [01;34min[m Stock_Num_Range[31m)[m [01;34mreturn[m Stock_Record [01;34mis[m
      Stock [31m:[m Stock_Record [31m:=[m Null_Stock[31m;[m
   [01;34mbegin[m

      Stock[31m.[mNum [31m:=[m Stock_Num[31m;[m

      Stock[31m.[m[01;30mName[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mStock_Name[31m).[mLine_Last[31m)[m [31m:=[m 
	Curs[31m.[m[01;30mValues[m[31m([mStock_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mStock_Name[31m).[mLine_Last[31m);[m

      Stock[31m.[mQuantity [31m:=[m 
	Quantity_Range'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mCurs[31m.[m[01;30mValues[m[31m([mStock_Quantity[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mStock_Quantity[31m).[mLine_Last[31m)));[m

      [01;34mreturn[m stock[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Stock[31m;[m

   
   [01;34mprocedure[m [01;30mInitialize[m[31m([mWins [31m:[m [01;34mout[m Stock_Windows_Type[31m;[m
			Space_Left [31m:[m [01;34min[m Line_Range[31m;[m
			Width      [31m:[m [01;34min[m Column_Range[31m;[m
			L       [31m:[m [01;34min[m Line_Range[31m;[m
			C        [31m:[m [01;34min[m Column_Range[31m;[m
			Top       [31m:[m [01;34min[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
   [01;34mbegin[m
      
      
      Wins[31m.[mStock_Num_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m8[m[31m,[m  
			     Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mName_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m8[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m26[m[31m,[m
			Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mQuantity_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m36[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m  
			    Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mUnit_Ht_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m52[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m  
			   Cyan[31m,[m The_Window[31m);[m
      Wins[31m.[mTVA_Win [31m:=[m [31m([mL[31m+[m[35m2[m[31m,[m C[31m+[m[35m68[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m10[m[31m,[m  
		       Cyan[31m,[m The_Window[31m);[m
      
      
      [01;30mInitialize[m[31m([mWins[31m.[mStock_Num_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m8[m[31m,[m  Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mName_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m8[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m26[m[31m,[m  Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mquantity_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m36[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m  Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mUnit_Ht_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m52[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m16[m[31m,[m Cyan[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mWins[31m.[mTVA_Win[31m,[m L[31m+[m[35m2[m[31m,[m Top[31m+[mC[31m+[m[35m68[m[31m,[m Space_Left[31m-[m[35m2[m[31m,[m [35m10[m[31m,[m Cyan[31m,[m Red[31m);[m

      
      [01;34mnull[m[31m;[m
   [01;34mend[m Initialize[31m;[m

   
   [01;34mprocedure[m [01;30mStock_Wins_Draw[m[31m([mWins [31m:[m Stock_Windows_Type[31m)[m [01;34mis[m
      
   [01;34mbegin[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mStock_Num_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mName_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mQuantity_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mUnit_Ht_Win[31m);[m
      [01;30mDraw_Window[m[31m([mWins[31m.[mTVA_Win[31m);[m
   [01;34mend[m Stock_Wins_Draw[31m;[m      
   
   
   [01;34mprocedure[m [01;30mStock_Line_Draw[m[31m([mWins [31m:[m Stock_Windows_Type[31m;[m Line [31m:[m [01;34min[m Line_Range[31m;[m Stock [31m:[m [01;34min[m Stock_Record[31m)[m [01;34mis[m
      
   [01;34mbegin[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mstock_Num_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mstock_Num_Range'[01;30mImage[m[31m([mStock[31m.[mNum[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mName_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Stock[31m.[m[01;30mname[m[31m([m[35m1[m[31m..[m[35m24[m[31m));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mQuantity_win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mQuantity_Range'[01;30mImage[m[31m([mStock[31m.[mQuantity[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mUnit_Ht_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Unit_Ht'[01;30mImage[m[31m([mStock[31m.[mUnit_Ht[31m)));[m
      [01;30mDraw_Text[m[31m([mWins[31m.[mTVA_Win[31m,[m Line[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Factor'[01;30mImage[m[31m([mStock[31m.[mTVA_Rate[31m)));[m
      
   [01;34mend[m stock_Line_Draw[31m;[m      
   
   
   [01;34mprocedure[m [01;30mStocks_Print[m [31m([mStocks [31m:[m [01;34min[m Sky[31m.[mStocks_Manager[31m.[mStocks_manager[31m;[m
			   Wins [31m:[m [01;34min[m Stock_Windows_Type[31m;[m
			   Line_Index [31m:[m [01;34min[m Stock_num_Range[31m;[m
			   Line_Max [31m:[m [01;34min[m Positive[31m)[m [01;34mis[m
      Line_Count [31m:[m natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      [01;34mif[m Stocks[31m.[mStock_Last [31m=[m [35m0[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mfor[m Line [01;34min[m Line_Index[31m+[m[35m1[m[31m..[mNatural'[01;30mMin[m[31m([mLine_Index[31m+[mLine_Max[31m,[m Stocks[31m.[mStock_Last[31m)[m [01;34mloop[m
	 [01;30mStock_Line_Draw[m[31m([mWins[31m,[m Line_Count[31m+[m[35m1[m[31m,[m Stocks[31m.[m[01;30mstocks[m[31m([mLine[31m));[m
	 Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
	 [01;34mexit[m [01;34mwhen[m Line_Count [31m=[m Line_Max[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
   [01;34mend[m Stocks_Print[31m;[m

   
   [01;34mtask[m [01;34mbody[m Stocks_Process [01;34mis[m
      [01;34mtype[m Stocks_Enum [01;34mis[m [31m([mNone[31m,[m Hardware[31m,[m Software[31m);[m
      Stocks_cur [31m:[m Stocks_Enum [31m:=[m Software[31m;[m
      
      
      
      [01;34mfunction[m [01;30mFormat[m [31m([mStock [31m:[m [01;34min[m Stock_Record[31m)[m [01;34mreturn[m [32mWide_String[m [01;34mis[m
   	 Line [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m));[m
      [01;34mbegin[m
   	 Wide_Fixed[31m.[m[01;30mMove[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mStock[31m.[mNum[31m)),[m Line[31m,[m Error[31m,[m Left[31m);[m
   	 Wide_Fixed[31m.[m[01;30mReplace_Slice[m[31m([mLine[31m,[m [35m9[m[31m,[m Line'Last[31m,[m Stock[31m.[mname[31m);[m
   	 Wide_Fixed[31m.[m[01;30mReplace_Slice[m[31m([mLine[31m,[m [35m42[m[31m,[m Line'Last[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mQuantity_Range'[01;30mImage[m[31m([mStock[31m.[mQuantity[31m)));[m
   	 Wide_Fixed[31m.[m[01;30mReplace_Slice[m[31m([mLine[31m,[m [35m55[m[31m,[m Line'Last[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Unit_Ht'[01;30mImage[m[31m([mStock[31m.[mUnit_Ht[31m)));[m
   	 Wide_Fixed[31m.[m[01;30mReplace_Slice[m[31m([mLine[31m,[m [35m62[m[31m,[m Line'Last[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Factor'[01;30mImage[m[31m([mStock[31m.[mTVA_Rate[31m)));[m
   	 [01;34mreturn[m Line[31m;[m
      [01;34mend[m Format[31m;[m
      
      Soft_win [31m:[m Window_Record [31m:=[m [31m([m[35m2[m[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m The_Window[31m);[m
      Hard_win [31m:[m Window_Record [31m:=[m [31m([m[35m2[m[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m yellow[31m,[m The_Window[31m);[m
      Stocks_Win [31m:[m Window_Record [31m:=[m [31m([m[35m11[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m13[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Cmd_Win    [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m2[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m The_Window[31m);[m
      
      [31m--Stocks_index : Natural := 0;[m
      Stock_Line_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Remove_Case [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Stock_Num   [31m:[m Stock_Num_Range [31m:=[m [35m0[m[31m;[m
      Line_num    [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m10[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
      Line_Last   [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Stock_Curs [31m:[m Stock_Cursor_Type [31m:=[m Initialize[31m;[m
      
   [01;34mbegin[m

      [01;30mInitialize[m[31m([mStocks_Win[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m13[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
      [01;30mInitialize[m[31m([mSoft_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mHard_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m yellow[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mCmd_Win[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
      
      [01;30mInitialize[m[31m([mApp[31m.[mStocks_Wins[31m,[m App[31m.[mLines[31m-[m[35m15[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m4[m[31m,[m [35m12[m[31m,[m [35m2[m[31m);[m

      
      [01;34mdeclare[m
   	 Num      [31m:[m Stock_Num_Range [31m:=[m [35m1[m[31m;[m
   	 Name     [31m:[m [32mWide_String[m [31m:=[m [31m"inconito.net"[m[31m;[m
   	 Line     [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m32[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m));[m
   	 Qt       [31m:[m Quantity_Range [31m:=[m [35m0.0[m[31m;[m
   	 Ht_Price [31m:[m Fixed_Unit_Ht [31m:=[m [35m0.0[m[31m;[m
   	 TVA      [31m:[m Fixed_Factor [31m:=[m [35m0.0[m[31m;[m
   	 Stock    [31m:[m Stock_Record[31m;[m
      [01;34mbegin[m
   	 
     Main_Loop[31m:[m
   	 [01;34mloop[m
   	    [01;34mloop[m
   	       [01;34mselect[m
   		  [01;34maccept[m Halt[31m;[m
   		  [01;34mexit[m Main_Loop[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Suspend[31m;[m
   		  [01;34mexit[m[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		     
		     [01;30mInitialize[m[31m([mStocks_Win[31m,[m [35m11[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m13[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
		     [01;30mInitialize[m[31m([mSoft_Win[31m,[m [35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mHard_Win[31m,[m [35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m yellow[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCmd_Win[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
		     
		     [01;30mInitialize[m[31m([mApp[31m.[mStocks_Wins[31m,[m App[31m.[mLines[31m-[m[35m15[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m4[m[31m,[m [35m12[m[31m,[m [35m2[m[31m,[m top[31m);[m
		     [31m-----------------------------------------------[m
   		     [31m--Errno := System("clear" & Character'Val(0));[m
		     [31m-----------------------------------------------[m
   		     [01;30mDraw_Window[m[31m([mStocks_Win[31m);[m
   		     [01;30mDraw_Text[m[31m([mStocks_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"N    , Name                        , "[m [31m&[m 
   				 [31m"Quantity      , Unit HT     , TVA rate"[m[31m);[m
   		     [01;30mDraw_Text[m[31m([mStocks_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Blue[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([mApp[31m.[mColumns[31m/[m[35m2[m[31m)-[m[35m2[m[31m)[m [31m*[m [31m'-'[m[31m));[m
		     [01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
   		     [01;30mStock_Wins_Draw[m[31m([mApp[31m.[mStocks_Wins[31m);[m
		     
   		     [01;34mcase[m Stocks_Cur [01;34mis[m			
   			[01;34mwhen[m None [31m=>[m
   			   [01;34mnull[m[31m;[m
   			[01;34mwhen[m Software [31m=>[m
			   [01;30mDraw_Window[m[31m([mSoft_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Software Stocks : Update stock"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			   
			   
			   [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_Quantity [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mSoft_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m

			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m

   			[01;34mwhen[m Hardware [31m=>[m
			   [01;30mDraw_Window[m[31m([mHard_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Hardware Stocks  : update stock"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			   

			   [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_Quantity [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mHard_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m

			   [01;30mDraw_Text[m[31m([mHard_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m

   			   
   		     [01;34mend[m [01;34mcase[m[31m;[m
		     
		     [01;34mif[m Remove_Case [01;34mthen[m
			
			[01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Wake_Up[31m;[m
		     
   	       [01;34mor[m
		  [01;34mwhen[m [01;34mnot[m Remove_Case [31m=>[m  
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m9[m[31m)[m [31m=>[m
				 [01;34mcase[m Stocks_Cur [01;34mis[m
				    [01;34mwhen[m None [31m=>[m
				       Stocks_Cur [31m:=[m Software[31m;[m
				    [01;34mwhen[m Hardware [31m=>[m
				       Stocks_Cur [31m:=[m Software[31m;[m
				    [01;34mwhen[m Software [31m=>[m
				       Stocks_Cur [31m:=[m Hardware[31m;[m
				 [01;34mend[m [01;34mcase[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m5[m[31m)[m [31m=>[m
				 Remove_Case [31m:=[m True[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
				 [01;34mif[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				    [01;34mcase[m Stock_Curs[31m.[mVal_Cur [01;34mis[m
				       [01;34mwhen[m Stock_None [31m=>[m
					  [01;34mnull[m[31m;[m
					  
				       [01;34mwhen[m Stock_Quantity [31m=>[m
					  
					  [01;34mif[m Stocks_Cur [31m=[m Software [01;34mthen[m
					     [01;34mdeclare[m
						Stock [31m:[m Stock_Record[31m;[m
					     [01;34mbegin[m


						Stock [31m:=[m [01;30mTo_Stock[m[31m([mStock_Curs[31m,[m Sky[31m.[mStocks_Manager[31m.[mSoftware[31m.[mStock_Last [31m+[m [35m1[m[31m,[m Sky[31m.[mStocks_Manager[31m.[mSoft_Num[31m);[m
						

						Sky[31m.[mStocks_Manager[31m.[m[01;30mAdd_To_Stock[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m Stock[31m.[mName[31m,[m Stock[31m.[mQuantity[31m);[m

					     [01;34mexception[m
						[01;34mwhen[m Spec_Error [31m=>[m
						   [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
						   
						   [01;30mPut_Line[m[31m([m[31m"Stocks Error"[m[31m);[m
						   [01;34mdeclare[m
						      Char [31m:[m [32mCharacter[m[31m;[m
						   [01;34mbegin[m
						      [01;30mPut_Line[m[31m([m[31m"Press any key to continue"[m[31m);[m
						      [01;30mGet_Immediate[m[31m([mChar[31m);[m
						   [01;34mend[m[31m;[m						
					     [01;34mend[m[31m;[m
					     Stock_Curs [31m:=[m Initialize[31m;[m				    
					  [01;34melsif[m Stocks_Cur [31m=[m Hardware [01;34mthen[m
					     [01;34mdeclare[m
						Stock [31m:[m Stock_Record[31m;[m
					     [01;34mbegin[m
						[31m--if Stock.Quantity > 0.0 then[m

						Stock [31m:=[m [01;30mTo_Stock[m[31m([mStock_Curs[31m,[m Sky[31m.[mStocks_Manager[31m.[mHardware[31m.[mStock_Last [31m+[m [35m1[m[31m,[m Sky[31m.[mStocks_Manager[31m.[mHard_Num[31m);[m

						Sky[31m.[mStocks_Manager[31m.[m[01;30mAdd_To_Stock[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m Stock[31m.[mName[31m,[m Stock[31m.[mQuantity[31m);[m

					     [01;34mexception[m
						[01;34mwhen[m Spec_Error [31m=>[m
						   [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m

						   [01;30mPut_Line[m[31m([m[31m"Stocks Error"[m[31m);[m
						   [01;34mdeclare[m
						      Char [31m:[m [32mCharacter[m[31m;[m
						   [01;34mbegin[m
						      [01;30mPut_Line[m[31m([m[31m"Press any key to continue"[m[31m);[m
						      [01;30mGet_Immediate[m[31m([mChar[31m);[m
						   [01;34mend[m[31m;[m						
					     [01;34mend[m[31m;[m
					     Stock_Curs [31m:=[m Initialize[31m;[m				    

					  [01;34mend[m [01;34mif[m[31m;[m
					  
					  
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  Stock_Curs[31m.[mVal_Cur [31m:=[m Stock_Enum'[01;30mSucc[m[31m([mStock_Curs[31m.[mVal_Cur[31m);[m
				    [01;34mend[m [01;34mcase[m[31m;[m
				    
				 [01;34melse[m
				    [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
				 [01;34mif[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				    Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				    Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				      Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m18[m[31m)[m [31m=>[m
				 Remove_Case [31m:=[m False[31m;[m			      
				 
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melsif[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m32[m [01;34mthen[m
			   
			   Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			   Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			   [01;34mif[m Stocks_cur [31m=[m software [01;34mthen[m
			      [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_Quantity [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mSoft_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m

			      [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34melsif[m Stocks_Cur [31m=[m Hardware [01;34mthen[m
			      
			      [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_Quantity [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mHard_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m

			      [01;30mDraw_Text[m[31m([mHard_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			[01;34melse[m
			   [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m

			[01;30mDraw_Window[m[31m([mStocks_Win[31m);[m
			[01;30mDraw_Text[m[31m([mStocks_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"N    , Name                        , "[m [31m&[m 
				    [31m"Quantity      , Unit HT     , TVA rate"[m[31m);[m
			[01;30mDraw_Text[m[31m([mStocks_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Blue[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([mApp[31m.[mColumns[31m/[m[35m2[m[31m)-[m[35m2[m[31m)[m [31m*[m [31m'-'[m[31m));[m
			[01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
			[01;30mStock_Wins_Draw[m[31m([mApp[31m.[mStocks_Wins[31m);[m
			[01;34mcase[m Stocks_Cur [01;34mis[m			
			   [01;34mwhen[m None [31m=>[m
			      [01;34mnull[m[31m;[m
			   [01;34mwhen[m Software [31m=>[m
			      [01;30mDraw_Window[m[31m([mSoft_Win[31m);[m
			      [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Software Stocks : Update stock"[m[31m);[m
			      [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			      
			      [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_Quantity [01;34mLoop[m
				 [01;30mDraw_Text[m[31m([mSoft_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m

			      [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m

			      [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m

			   [01;34mwhen[m Hardware [31m=>[m
			      [01;30mDraw_Window[m[31m([mHard_Win[31m);[m
			      [01;30mDraw_Text[m[31m([mHard_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Hardware Stocks : Update stock"[m[31m);[m
			      [01;30mDraw_Text[m[31m([mHard_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			      [01;30mDraw_Text[m[31m([mHard_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			      
			      [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_quantity [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mHard_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m
			      
			      [01;30mDraw_Text[m[31m([mHard_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			      
			      
			[01;34mend[m [01;34mcase[m[31m;[m
			[01;34mif[m Remove_Case [01;34mthen[m
			   
			   [01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m

		     [01;34mend[m Receive[31m;[m
		     
	       [01;34mor[m
		  [01;34mwhen[m Remove_Case [31m=>[m
		     [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m9[m[31m)[m [31m=>[m
				 [01;34mcase[m Stocks_Cur [01;34mis[m
				    [01;34mwhen[m None [31m=>[m
				       Stocks_Cur [31m:=[m Software[31m;[m
				    [01;34mwhen[m Hardware [31m=>[m
				       Stocks_Cur [31m:=[m Software[31m;[m
				    [01;34mwhen[m Software [31m=>[m
				       Stocks_Cur [31m:=[m Hardware[31m;[m
				 [01;34mend[m [01;34mcase[m[31m;[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
				 [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
				    [01;34mbegin[m
				       Stock_Num [31m:=[m Stock_Num_Range'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine_num[m[31m([mLine'First[31m..[mLine_Last[31m)));[m
				       [01;34mif[m Stock_Num [31m/=[m [35m0[m [01;34mthen[m
					  [01;34mbegin[m
					     [01;34mcase[m Stocks_Cur [01;34mis[m
						[01;34mwhen[m None [31m=>[m
						   [01;34mnull[m[31m;[m
						[01;34mwhen[m Software [31m=>[m
						   Sky[31m.[mStocks_Manager[31m.[m[01;30mStock_Remove[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m Stock_Num[31m);[m
						[01;34mwhen[m Hardware [31m=>[m
						   Sky[31m.[mStocks_Manager[31m.[m[01;30mStock_Remove[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m Stock_Num[31m);[m
					     [01;34mend[m [01;34mcase[m[31m;[m
					  [01;34mexception[m
					     [01;34mwhen[m [01;34mothers[m [31m=>[m
						[01;34mnull[m[31m;[m
					  [01;34mend[m[31m;[m

				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mexception[m
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  [01;34mnull[m[31m;[m
				    [01;34mend[m[31m;[m				 
				 [01;34mend[m [01;34mif[m[31m;[m
				 Line_Num [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
				 Line_Last [31m:=[m [35m0[m[31m;[m
				 Remove_Case [31m:=[m False[31m;[m
				 
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
				 [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
				    [01;30mLine[m[31m([mLine_Last[31m)[m [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				    Line_Last [31m:=[m Line_Last [31m-[m [35m1[m[31m;[m
				 [01;34melse[m
				    [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			   [01;30mDraw_Window[m[31m([mStocks_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mStocks_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"N    , Name                        , "[m [31m&[m 
				       [31m"Quantity      , Unit HT     , TVA rate"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mStocks_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Blue[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([mApp[31m.[mColumns[31m/[m[35m2[m[31m)-[m[35m2[m[31m)[m [31m*[m [31m'-'[m[31m));[m
			   
			   [01;30mStock_Wins_Draw[m[31m([mApp[31m.[mStocks_Wins[31m);[m
			   [01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
			   [01;34mcase[m Stocks_Cur [01;34mis[m			
			      [01;34mwhen[m None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m Software [31m=>[m
				 [01;30mDraw_Window[m[31m([mSoft_Win[31m);[m
				 [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Software Stocks : Update stock"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
				 
				 [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_quantity [01;34mloop[m
				    [01;30mDraw_Text[m[31m([mSoft_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					      Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					      White[31m,[m
					      Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
				 [01;34mend[m [01;34mloop[m[31m;[m
				 [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m
				 
				 [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					   Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m

			      [01;34mwhen[m Hardware [31m=>[m
				 [01;30mDraw_Window[m[31m([mHard_Win[31m);[m
				 [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Hardware Stocks  : update stock"[m[31m);[m
				 [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
				 [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
				 
				 [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_quantity [01;34mloop[m
				    [01;30mDraw_Text[m[31m([mHard_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					      Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					      White[31m,[m
					      Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
				 [01;34mend[m [01;34mloop[m[31m;[m
				 [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m

				 [01;30mDraw_Text[m[31m([mHard_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					   Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m

				 
			   [01;34mend[m [01;34mcase[m[31m;[m
			   [01;34mif[m Remove_Case [01;34mthen[m
			      [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
				 
				 [01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m [31m&[m [01;30mLine_num[m[31m([mLine'First[31m..[mLine_last[31m));[m
			      [01;34melse[m
				 [01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m   		     
			   [01;34mend[m [01;34mif[m[31m;[m   		     
			[01;34melsif[m Line_Last [31m<[m Line_num'Length [01;34mthen[m
			   [01;30mLine_Num[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			   Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
			   [01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
			   [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
			      
			      [01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m [31m&[m [01;30mLine_num[m[31m([mLine'First[31m..[mLine_last[31m));[m
			   [01;34melse[m
			      [01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
			   [01;34mend[m [01;34mif[m[31m;[m   		     
			[01;34melse[m
			   [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m Receive[31m;[m
   	       [01;34mor[m

   		  [01;34maccept[m Refresh [01;34mdo[m
   		     [01;30mDraw_Window[m[31m([mStocks_Win[31m);[m
   		     [01;30mDraw_Text[m[31m([mStocks_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"N    , Name                        , "[m [31m&[m 
   				 [31m"Quantity      , Unit HT     , TVA rate"[m[31m);[m
   		     [01;30mDraw_Text[m[31m([mStocks_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Blue[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([mApp[31m.[mColumns[31m/[m[35m2[m[31m)-[m[35m2[m[31m)[m [31m*[m [31m'-'[m[31m));[m
		     
   		     [01;30mStock_Wins_Draw[m[31m([mApp[31m.[mStocks_Wins[31m);[m
		     [01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
		     [01;34mcase[m Stocks_Cur [01;34mis[m			
   			[01;34mwhen[m None [31m=>[m
   			   [01;34mnull[m[31m;[m
   			[01;34mwhen[m Software [31m=>[m
			   [01;30mDraw_Window[m[31m([mSoft_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Software Stocks : Update stock"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			   
			   [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_quantity [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mSoft_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m
			   
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m

   			[01;34mwhen[m Hardware [31m=>[m
			   [01;30mDraw_Window[m[31m([mHard_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Hardware Stocks  : update stock"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			   
			   [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_quantity [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mHard_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m

			   [01;30mDraw_Text[m[31m([mHard_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   
   			   
   		     [01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mif[m Remove_Case [01;34mthen[m
			
			[01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m   		     
   		  [01;34mend[m Refresh[31m;[m
		  
   	       [01;34mor[m
   		  [01;34maccept[m Page_Down [01;34mdo[m
		     [01;30mStock_Wins_Draw[m[31m([mApp[31m.[mStocks_Wins[31m);[m
		     [01;34mcase[m Stocks_Cur [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Software [31m=>[m
			   [01;34mif[m Stock_Line_Index [31m<[m Sky[31m.[mStocks_Manager[31m.[mSoftware[31m.[mStock_Last [01;34mthen[m
			      Stock_Line_Index [31m:=[m Stock_Line_Index [31m+[m Stock_Num_Range'[01;30mMin[m [31m([mStock_Line_Index[31m+([mApp[31m.[mLines[31m-[m[35m19[m[31m),[m Sky[31m.[mStocks_Manager[31m.[mSoftware[31m.[mStock_Last[31m);[m
			   [01;34melse[m
			      [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mSoft_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Software Stocks : Update stock"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			   
			   [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_Quantity [01;34mLoop[m
			      [01;30mDraw_Text[m[31m([mSoft_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m

			   [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m

			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m

			[01;34mwhen[m Hardware [31m=>[m
			   [01;34mif[m Stock_Line_Index [31m<[m Sky[31m.[mStocks_Manager[31m.[mhardware[31m.[mStock_Last [01;34mthen[m
			      Stock_Line_Index [31m:=[m Stock_Line_Index [31m+[m Stock_Num_Range'[01;30mMin[m [31m([mStock_Line_Index[31m+([mApp[31m.[mLines[31m-[m[35m19[m[31m),[m Sky[31m.[mStocks_Manager[31m.[mhardware[31m.[mStock_Last[31m);[m
			   [01;34melse[m
			      [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;30mDraw_Window[m[31m([mHard_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mHard_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Hardware Stocks : Update stock"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mHard_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mHard_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			   
			   [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_quantity [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mHard_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m
			   
			   [01;30mDraw_Text[m[31m([mHard_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m Page_Down[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Page_Up [01;34mdo[m
		     [01;30mStock_Wins_Draw[m[31m([mApp[31m.[mStocks_Wins[31m);[m
		     [01;34mcase[m Stocks_Cur [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   [01;34mnull[m[31m;[m
			[01;34mwhen[m Software [31m=>[m
			   [01;34mif[m Stock_Line_Index [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m19[m[31m)[m [31m>[m [35m0[m [01;34mthen[m
			      Stock_Line_Index [31m:=[m Stock_Line_Index [31m+[m Stock_Line_Index [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m19[m[31m);[m
			   [01;34melse[m
			      Stock_Line_Index [31m:=[m [35m0[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m

			   [01;30mDraw_Window[m[31m([mSoft_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Software Stocks : Update stock"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m

			   [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_Quantity [01;34mLoop[m
			      [01;30mDraw_Text[m[31m([mSoft_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m

			   [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m

			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m

			[01;34mwhen[m Hardware [31m=>[m
			   [01;34mif[m Stock_Line_Index [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m19[m[31m)[m [31m>[m [35m0[m [01;34mthen[m
			      Stock_Line_Index [31m:=[m Stock_Line_Index [31m+[m Stock_Line_Index [31m-[m [31m([mApp[31m.[mLines[31m-[m[35m19[m[31m);[m
			   [01;34melse[m
			      Stock_Line_Index [31m:=[m [35m0[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m

			   [01;30mDraw_Window[m[31m([mHard_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mHard_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Hardware Stocks : Update stock"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mHard_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mHard_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m

			   [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_quantity [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mHard_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m

			   [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m

			   [01;30mDraw_Text[m[31m([mHard_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m

		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m Page_Up[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Up_Arrow [01;34mdo[m
   		     [01;34mnull[m[31m;[m
   		  [01;34mend[m up_arrow[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Down_Arrow [01;34mdo[m
   		     [01;34mnull[m[31m;[m
   		  [01;34mend[m Down_Arrow[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Left_Arrow[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Right_Arrow[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Full_Screen[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Del[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Begin_Of[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m End_Of[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Overwrite[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Full_Screen[31m;[m

   	       [01;34mend[m [01;34mselect[m[31m;[m
   	    [01;34mend[m [01;34mloop[m[31m;[m
	    
   	    [01;34mloop[m
   	       [01;34mselect[m
		  
   		  [01;34maccept[m Halt [01;34mdo[m
   		     [01;34mnull[m[31m;[m
   		  [01;34mend[m Halt[31m;[m
   		  [01;34mexit[m Main_Loop[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m Suspend[31m;[m
   	       [01;34mor[m
   		  [01;34maccept[m [01;30mWake_Up[m [31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		     
		     [01;30mInitialize[m[31m([mStocks_Win[31m,[m [35m11[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m13[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
		     [01;30mInitialize[m[31m([mSoft_Win[31m,[m [35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mHard_Win[31m,[m [35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m yellow[31m,[m White[31m);[m
		     [01;30mInitialize[m[31m([mCmd_Win[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Red[31m);[m
		     
		     [01;30mInitialize[m[31m([mApp[31m.[mStocks_Wins[31m,[m App[31m.[mLines[31m-[m[35m15[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m4[m[31m,[m [35m12[m[31m,[m [35m2[m[31m,[m top[31m);[m
		     [31m-----------------------------------------------[m
   		     [31m--Errno := System("clear" & Character'Val(0));[m
		     [31m-----------------------------------------------[m
   		     [01;30mDraw_Window[m[31m([mStocks_Win[31m);[m
   		     [01;30mDraw_Text[m[31m([mStocks_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"N    , Name                        , "[m [31m&[m 
   				 [31m"Quantity      , Unit HT     , TVA rate"[m[31m);[m
   		     [01;30mDraw_Text[m[31m([mStocks_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m Blue[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([mApp[31m.[mColumns[31m/[m[35m2[m[31m)-[m[35m2[m[31m)[m [31m*[m [31m'-'[m[31m));[m
		     [01;30mDraw_Window[m[31m([mCmd_Win[31m);[m
   		     [01;30mStock_Wins_Draw[m[31m([mApp[31m.[mStocks_Wins[31m);[m
		     
   		     [01;34mcase[m Stocks_Cur [01;34mis[m			
   			[01;34mwhen[m None [31m=>[m
   			   [01;34mnull[m[31m;[m
   			[01;34mwhen[m Software [31m=>[m
			   [01;30mDraw_Window[m[31m([mSoft_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Software Stocks : Update stock"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			   
			   
			   [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_Quantity [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mSoft_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mSoftware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m

			   [01;30mDraw_Text[m[31m([mSoft_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m

   			[01;34mwhen[m Hardware [31m=>[m
			   [01;30mDraw_Window[m[31m([mHard_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m1[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m10[m[31m,[m White[31m,[m [31m"Hardware Stocks  : update stock"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name      : "[m[31m);[m
			   [01;30mDraw_Text[m[31m([mhard_Win[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Quantity  : "[m[31m);[m
			   

			   [01;34mfor[m Val [01;34min[m Stock_Name[31m..[mStock_Quantity [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mHard_Win [31m,[m Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Stock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   [01;30mStocks_Print[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m App[31m.[mStocks_Wins[31m,[m stock_Line_Index[31m,[m App[31m.[mLines[31m-[m[35m19[m[31m);[m

			   [01;30mDraw_Text[m[31m([mHard_Win[31m,[m Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Stock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mStock_Curs[31m.[m[01;30mValues[m[31m([mStock_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m

   			   
   		     [01;34mend[m [01;34mcase[m[31m;[m
		     
		     [01;34mif[m Remove_Case [01;34mthen[m
			
			[01;30mDraw_Text[m[31m([mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line num : "[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
   		  [01;34mend[m Wake_Up[31m;[m
   		  [01;34mexit[m[31m;[m
   	       [01;34mend[m [01;34mselect[m[31m;[m
   	    [01;34mend[m [01;34mloop[m[31m;[m
   	 [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m[31m;[m
      
      [31m--W_Io.Put_Line("Stocks process halted");[m
   [01;34mend[m Stocks_Process[31m;[m
   
   
   [01;34mtype[m Object_Array [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m My_Classes[31m.[mObject_Access[31m;[m
   [01;34mfunction[m [01;30mSuccessor[m [31m([mO [31m:[m [01;34min[m My_Classes[31m.[mObject_Access[31m)[m [01;34mreturn[m Object_Array[31m;[m
   [01;34mfunction[m [31m"="[m [31m([mLeft[31m,[m Right [31m:[m Object_Class'class[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m
   [01;34mfunction[m [31m"<"[m [31m([mLeft[31m,[m Right [31m:[m Object_Class'class[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m
   
   [01;34mfunction[m [01;30mCopy[m [31m([mObject [31m:[m My_Classes[31m.[mObject_Access[31m)[m [01;34mreturn[m My_Classes[31m.[mObject_Access[31m;[m
   
   [01;34mtype[m Path_Finding [01;34mis[m [01;34maccess[m [01;34mfunction[m  [31m([mStart[31m,[m Goal [31m:[m [01;34min[m Object_Class'class[31m)[m [01;34mreturn[m Object_Vectors[31m.[mVector[31m;[m
   
   
   [01;34mfunction[m [01;30mSuccessor[m [31m([mO [31m:[m [01;34min[m My_Classes[31m.[mObject_Access[31m)[m [01;34mreturn[m Object_Array [01;34mis[m
      
   [01;34mbegin[m
      [01;34mcase[m O[31m.[mClass_Name [01;34mis[m
	 [01;34mwhen[m Universe [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [31m--T(1) := new Universe_Class.Universe_Class;[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Profile [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Planning [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj ' [31m([mMy_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mO[31m.[m[01;34mall[m[31m));[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Job [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Event [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Machine [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Acc [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Account_Line [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Activity [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Compta_Line [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Note [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Component [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Contact [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Content [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m House [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj[31m;[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Car [31m=>[m
	    [01;34mdeclare[m
	       T [31m:[m [01;34maccess[m Object_Array [31m:=[m [01;34mnew[m [01;30mObject_Array[m [31m([m[35m1[m[31m..[m[35m16[m[31m);[m
	    [01;34mbegin[m
	       [01;30mT[m[31m([m[35m1[m[31m)[m [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m2[m[31m)[m [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj[31m;[m
	       [01;30mT[m[31m([m[35m3[m[31m)[m [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj[31m;[m
	       [01;30mT[m[31m([m[35m4[m[31m)[m [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m5[m[31m)[m [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj[31m;[m
	       [01;30mT[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj[31m;[m
	       [01;30mT[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj[31m;[m
	       [01;30mT[m[31m([m[35m9[m[31m)[m [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj[31m;[m
	       [01;30mT[m[31m([m[35m10[m[31m)[m [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj[31m;[m
	       [01;30mT[m[31m([m[35m11[m[31m)[m [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m12[m[31m)[m [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj[31m;[m
	       [01;30mT[m[31m([m[35m13[m[31m)[m [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
	       [01;30mT[m[31m([m[35m14[m[31m)[m [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
	       [01;30mT[m[31m([m[35m15[m[31m)[m [31m:=[m [01;30mCopy[m[31m([mO[31m);[m
	       [01;30mT[m[31m([m[35m16[m[31m)[m [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj[31m;[m
	       [01;34mreturn[m T[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m[31m;[m
      [01;34mend[m [01;34mcase[m[31m;[m
      
      
      
      
      

      
      
      
      
   [01;34mend[m Successor[31m;[m
   
   [01;34mfunction[m [01;30mCopy[m [31m([mObject [31m:[m My_Classes[31m.[mObject_Access[31m)[m [01;34mreturn[m My_Classes[31m.[mObject_Access [01;34mis[m
      Target [31m:[m My_Classes[31m.[mObject_Access[31m;[m
   [01;34mbegin[m
      [31m--if Object /= null then[m
      [01;34mcase[m Object[31m.[mClass_Name [01;34mis[m
	 [01;34mwhen[m My_Classes[31m.[mUniverse [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj ' [31m([mMy_Universe[31m.[m[01;30mUniverse_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mProfile [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Profile[31m.[mProfile_Obj ' [31m([mMy_Profile[31m.[m[01;30mProfile_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mPlanning [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj ' [31m([mMy_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mJob [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Job[31m.[mJob_Obj ' [31m([mMy_Job[31m.[m[01;30mJob_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m		  
	 [01;34mwhen[m My_Classes[31m.[mEvent [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj ' [31m([mMy_Event[31m.[m[01;30mEvent_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mMachine [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Machine[31m.[mMachine_Obj ' [31m([mMy_Machine[31m.[m[01;30mMachine_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mAcc [31m=>[m
	    target [31m:=[m [01;34mnew[m My_Account[31m.[mAccount_Obj ' [31m([mMy_Account[31m.[m[01;30mAccount_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mAccount_Line [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Account_Line[31m.[mAccount_Line_Obj ' [31m([mMy_Account_Line[31m.[m[01;30mAccount_Line_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mActivity [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Activity[31m.[mActivity_Obj ' [31m([mMy_Activity[31m.[m[01;30mActivity_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mCompta_Line [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Compta_Line[31m.[mCompta_Line_Obj ' [31m([mMy_Compta_Line[31m.[m[01;30mCompta_Line_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mNote [31m=>[m
	    target [31m:=[m [01;34mnew[m My_Note[31m.[mNote_Obj ' [31m([mMy_Note[31m.[m[01;30mNote_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mComponent [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Component[31m.[mComponent_Obj ' [31m([mMy_Component[31m.[m[01;30mComponent_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mContact [31m=>[m
	    target [31m:=[m [01;34mnew[m My_Contact[31m.[mContact_Obj ' [31m([mMy_Contact[31m.[m[01;30mContact_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mContent [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Content[31m.[mContent_Obj ' [31m([mMy_Content[31m.[m[01;30mContent_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mHouse [31m=>[m
	    target [31m:=[m [01;34mnew[m My_House[31m.[mHouse_Obj ' [31m([mMy_House[31m.[m[01;30mHouse_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
	 [01;34mwhen[m My_Classes[31m.[mCar [31m=>[m
	    Target [31m:=[m [01;34mnew[m My_Car[31m.[mCar_Obj ' [31m([mMy_Car[31m.[m[01;30mCar_Obj[m[31m([mObject[31m.[m[01;34mall[m[31m));[m
      [01;34mend[m [01;34mcase[m[31m;[m

      [01;34mreturn[m Target[31m;[m
   [01;34mend[m Copy[31m;[m
   
   [01;34muse[m Abstracted_Vectors[31m;[m
   [01;34mfunction[m [31m"="[m [31m([mLeft[31m,[m Right [31m:[m Object_Class'class[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m [31m([mLeft[31m.[mClass_Name [31m=[m Right[31m.[mClass_Name[31m)[m [01;34mthen[m
      	 [01;34mcase[m Left[31m.[mClass_Name [01;34mis[m
	    
      	    [01;34mwhen[m Universe [31m=>[m
      	       [01;34mif[m Left[31m.[mUniverse[31m.[mX [31m=[m Right[31m.[mUniverse[31m.[mX [01;34mand[m [01;34mthen[m
		 Left[31m.[mUniverse[31m.[mY [31m=[m Right[31m.[mUniverse[31m.[mY [01;34mand[m [01;34mthen[m
		 Left[31m.[mUniverse[31m.[mZ [31m=[m Right[31m.[mUniverse[31m.[mZ [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m
      	    [01;34mwhen[m Profile [31m=>[m
      	       [01;34mif[m Left[31m.[mProfile [31m=[m Right[31m.[mProfile [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m Planning [31m=>[m
      	       [01;34mif[m Left[31m.[mPlanning [31m=[m Right[31m.[mPlanning [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m Job [31m=>[m
      	       [01;34mif[m Left[31m.[mJob [31m=[m Right[31m.[mJob [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m Event [31m=>[m
      	       
	       [01;34mreturn[m True[31m;[m
      	       

      	    [01;34mwhen[m Machine [31m=>[m
      	       [01;34mif[m Left[31m.[mMachine [31m=[m Right[31m.[mMachine [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m Acc [31m=>[m
      	       [01;34mif[m Left[31m.[mAccount [31m=[m Right[31m.[mAccount [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m Account_Line [31m=>[m
      	       [01;34mif[m Left[31m.[mAccount_Line [31m=[m Right[31m.[mAccount_Line [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m Activity [31m=>[m
      	       [01;34mif[m Left[31m.[mActivity [31m=[m Right[31m.[mActivity [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m Compta_Line [31m=>[m
      	       [01;34mif[m Left[31m.[mCompta_Line [31m=[m Right[31m.[mCompta_Line [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m Note [31m=>[m
      	       [01;34mif[m Left[31m.[mNote [31m=[m Right[31m.[mnote [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m Component [31m=>[m
      	       [01;34mif[m Left[31m.[mComponent [31m=[m Right[31m.[mComponent [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m Contact [31m=>[m
      	       [01;34mif[m Left[31m.[mContact [31m=[m Right[31m.[mContact [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m Content [31m=>[m
      	       [01;34mif[m Left[31m.[mContent[31m.[mPrice [31m=[m Right[31m.[mContent[31m.[mPrice [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

      	    [01;34mwhen[m House [31m=>[m
      	       [01;34mif[m Left[31m.[mHouse [31m=[m Right[31m.[mHouse [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m
	       
      	    [01;34mwhen[m Car [31m=>[m
      	       [01;34mif[m Left[31m.[mCar [31m=[m Right[31m.[mCar [01;34mthen[m
      		  [01;34mreturn[m True[31m;[m
      	       [01;34mend[m [01;34mif[m[31m;[m

	       
      	 [01;34mend[m [01;34mcase[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m False[31m;[m
   [01;34mend[m [31m"="[m[31m;[m
   [01;34mfunction[m [31m"<"[m [31m([mLeft[31m,[m Right [31m:[m Object_Class'class[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
   [01;34mbegin[m
      [01;34mreturn[m [01;30mFit[m [31m([mLeft[31m)[m [31m<[m [01;30mFit[m[31m([mRight[31m);[m
   [01;34mend[m [31m"<"[m[31m;[m
   

   
   
   [01;34mfunction[m [31m"="[m [31m([mLeft[31m,[m Right [31m:[m My_Classes[31m.[mObject_Access[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
   [01;34mbegin[m
      [01;34mreturn[m [31m"="[m[31m([mLeft[31m.[m[01;34mall[m[31m,[m Right[31m.[m[01;34mall[m[31m);[m
   [01;34mend[m [31m"="[m[31m;[m
   
   
   
   [01;34mfunction[m [01;30mcompare[m [31m([mLeft[31m,[m Right [31m:[m [01;34min[m My_Classes[31m.[mObject_Access[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
   [01;34mbegin[m
      [01;34mreturn[m Left[31m.[m[01;34mall[m [31m<[m Right[31m.[m[01;34mall[m[31m;[m
   [01;34mend[m compare[31m;[m
   
   [01;34mfunction[m [01;30mHeuristic[m [31m([mO [31m:[m [01;34min[m My_Classes[31m.[mObject_Access[31m)[m [01;34mreturn[m [32mFloat[m [01;34mis[m
   [01;34mbegin[m
      [01;34mreturn[m [35m1.0[m[31m;[m
   [01;34mend[m Heuristic[31m;[m
   
   
   [01;34mfunction[m [01;30mUniform[m [31m([mO [31m:[m [01;34min[m My_Classes[31m.[mObject_Access[31m)[m [01;34mreturn[m [32mFloat[m [01;34mis[m
   [01;34mbegin[m
      [01;34mreturn[m [31m-[m[35m0.1[m[31m;[m
   [01;34mend[m Uniform[31m;[m
   
   
   [01;34mpackage[m Optimal_Path [01;34mis[m [01;34mnew[m Work[31m.[mWargame[31m.[mSearch[31m.[m[01;30mPath_Finding[m [31m([mMy_Classes[31m.[mObject_Access[31m,[m
								 Heuristic[31m,[m
								 Uniform[31m,[m
								 [31m"="[m[31m,[m
								 Compare[31m,[m
								 Object_Array[31m,[m
								 Successor[31m);[m
   
   [01;34muse[m Ada[31m.[mContainers[31m;[m
   [01;34muse[m Optimal_Path[31m;[m
   [01;34muse[m Optimal_Path[31m.[mElement_Lists[31m;[m
   [01;34mprocedure[m [01;30mFind[m [31m([mO [31m:[m My_Classes[31m.[mObject_Access[31m;[m
		   Target [31m:[m My_Classes[31m.[mObject_Access[31m;[m 
		   Goal_Path [31m:[m [01;34mout[m Optimal_Path[31m.[mElement_List[31m)[m [01;34mis[m
      
      Open [31m:[m Element_List[31m;[m
      
      
      
   [01;34mbegin[m
      [31m--Text_Io.Put_Line("appenninng start node");[m
      [01;30mappend[m[31m([mOpen[31m,[m O[31m,[m [01;30mCount_Type[m[31m([m[32mInteger[m[31m([m[01;30mLength[m[31m([mOpen[31m))+[m[35m1[m[31m));[m
      [31m--Text_Io.Put_Line("appenninng target node");[m
      [01;30mappend[m[31m([mOpen[31m,[m Target[31m,[m [01;30mCount_Type[m[31m([m[32mInteger[m[31m([m[01;30mLength[m[31m([mOpen[31m))+[m[35m1[m[31m));[m
      
      
      
      [31m--Text_Io.Put_Line("Astar process...");[m
      Optimal_Path[31m.[m[01;30mAstar[m[31m([mOpen[31m,[m Goal_Path[31m);[m
      
   [01;34mend[m Find[31m;[m
   
   Station_Lock [31m:[m [01;30mBinary_Semaphore[m[31m([mTrue[31m,[m Default_Ceiling[31m);[m
   
   [01;34mtask[m [01;34mbody[m Workstation_Process [01;34mis[m      
      Planning_Win [31m:[m Window_Record[31m;[m
      Work_Win [31m:[m Window_Record[31m;[m
      Win       [31m:[m Window_Record[31m;[m
      Work [31m:[m Object_Vectors[31m.[mVector[31m;[m
      
      station [31m:[m Window_Record[31m;[m
      Path   [31m:[m Object_Vectors[31m.[mVector[31m;[m
      
      
      
      
      
      
      [01;34mtask[m Plan_process [01;34mis[m
      	 [01;34mentry[m [01;30mReceive[m[31m([mWork [31m:[m [01;34min[m Object_Vectors[31m.[mVector[31m);[m
      	 [01;34mentry[m Halt[31m;[m
      [01;34mend[m Plan_Process[31m;[m
      
      [01;34mtask[m [01;34mbody[m Plan_Process [01;34mis[m
	 
      	 Win_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
      [01;34mbegin[m
      	 Planning_Win[31m.[mWin[31m.[mL [31m:=[m [35m3[m[31m;[m
      	 Planning_Win[31m.[mWin[31m.[mC [31m:=[m [35m120[m[31m;[m
      	 Planning_Win[31m.[mWin[31m.[mH [31m:=[m [35m20[m[31m;[m
      	 Planning_Win[31m.[mWin[31m.[mW [31m:=[m [35m60[m[31m;[m
      	 Planning_Win[31m.[mWin[31m.[mFrame_Type [31m:=[m Single_Line_Frame[31m;[m
      	 Planning_Win[31m.[mWin[31m.[mframe_Color [31m:=[m Blue[31m;[m
      	 Planning_Win[31m.[mWin[31m.[mClose_Box_Color [31m:=[m Red[31m;[m
	 
      	 [01;34mloop[m
      	    [01;34mselect[m
      	       [01;34maccept[m [01;30mReceive[m[31m([mWork [31m:[m [01;34min[m Object_Vectors[31m.[mVector[31m)[m [01;34mdo[m
		  
      		  Station_Lock[31m.[mSeize[31m;[m
      		  [01;30mDraw_Window[m[31m([mPlanning_Win[31m);[m
      		  [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLength[m [31m([mWork[31m)[m [01;34mloop[m
      		     [01;34mdeclare[m
      			E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mWork[31m,[m [32mInteger[m[31m([mI[31m));[m
      		     [01;34mbegin[m
      			E[31m.[m[01;30mPrint[m[31m([mPlanning_Win[31m,[m Win_Index[31m);[m		     
      		     [01;34mend[m[31m;[m
      		  [01;34mend[m [01;34mloop[m[31m;[m
      		  Station_Lock[31m.[mRelease[31m;[m
		  
      		  Win_Index [31m:=[m [35m0[m[31m;[m
      		  [31m--Text_Io.Put(Character'Val(7));[m
		  Errno [31m:=[m [01;30mSystem[m[31m([m[31m"e"[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
      	       [01;34mend[m Receive[31m;[m
      	    [01;34mor[m
      	       [01;34maccept[m Halt[31m;[m
      	       [01;34mexit[m[31m;[m
      	    [01;34mend[m [01;34mselect[m[31m;[m
      	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m Plan_Process[31m;[m

      
      
      
      [01;34mtask[m Station_process [01;34mis[m
	 [01;34mentry[m Init[31m;[m
	 [01;34mentry[m [01;30mCreate_Planning[m [31m([mstart [31m:[m [01;34min[m Time[31m;[m Stop [31m:[m [01;34min[m Time[31m);[m
	 [01;34mentry[m [01;30mCreate_Event[m[31m([mDate [31m:[m [01;34min[m Time[31m;[mD [31m:[m [01;34min[m [32mDuration[m[31m);[m
	 [01;34mentry[m [01;30mCreate_Object[m [31m([mObject[31m:[m [01;34min[m My_Classes[31m.[mObject_Access[31m);[m
	 [01;34mentry[m Start[31m;[m
	 [01;34mentry[m Stop[31m;[m
	 [01;34mentry[m Halt[31m;[m
      [01;34mend[m Station_process[31m;[m
      
      
      
      
      
      [01;34mtask[m Work_Process [01;34mis[m
	 [01;34mentry[m Init[31m;[m
	 [01;34mentry[m [01;30mAdd[m [31m([mO [31m:[m My_Classes[31m.[mObject_Access[31m);[m      
	 [01;34mentry[m Halt[31m;[m
      [01;34mend[m Work_Process[31m;[m
      
      [01;34mtask[m [01;34mbody[m Work_Process [01;34mis[m
	 Win_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 
	 
      [01;34mbegin[m
	 [01;34maccept[m Init[31m;[m
	 Work_Win[31m.[mWin[31m.[mL [31m:=[m [35m23[m[31m;[m
	 Work_Win[31m.[mWin[31m.[mC [31m:=[m [35m120[m[31m;[m
	 Work_Win[31m.[mWin[31m.[mH [31m:=[m [35m20[m[31m;[m
	 Work_Win[31m.[mWin[31m.[mW [31m:=[m [35m60[m[31m;[m
	 Work_Win[31m.[mWin[31m.[mFrame_Type [31m:=[m Single_Line_Frame[31m;[m
	 Work_Win[31m.[mWin[31m.[mframe_Color [31m:=[m Blue[31m;[m
	 Work_Win[31m.[mWin[31m.[mClose_Box_Color [31m:=[m Red[31m;[m
	 [01;30mDraw_Window[m[31m([mWork_Win[31m);[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mAdd[m [31m([mO [31m:[m My_Classes[31m.[mObject_Access[31m)[m [01;34mdo[m
		  [01;34mif[m O[31m.[mClass_Name [31m=[m Event [01;34mthen[m
		     [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLength[m [31m([mWork[31m)[m [01;34mloop[m
			[01;34mdeclare[m
			   E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mWork[31m,[m [32mInteger[m[31m([mI[31m));[m
			[01;34mbegin[m
			   [01;34mif[m E[31m.[mClass_Name [31m=[m planning [01;34mthen[m
			      [01;34mif[m [31m([mMy_Event[31m.[m[01;30mEvent_Obj[m[31m([mO[31m.[m[01;34mall[m[31m).[mEvent[31m.[mDate [31m>=[m 
				    My_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mE[31m.[m[01;34mall[m[31m).[mplanning[31m.[mStart[31m)[m [01;34mand[m
				[31m([mMy_Event[31m.[m[01;30mEvent_Obj[m[31m([mO[31m.[m[01;34mall[m[31m).[mEvent[31m.[mDate [31m<=[m
				   My_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mE[31m.[m[01;34mall[m[31m).[mplanning[31m.[mStop[31m)[m [01;34mthen[m
				 [01;34mdeclare[m
				    Done [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
				 [01;34mbegin[m
				    [01;34mfor[m J [01;34min[m [35m1[m[31m..[m[01;30mLength[m [31m([mWork[31m)[m [01;34mloop[m
				       [01;34mdeclare[m
					  E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mWork[31m,[m [32mInteger[m[31m([mJ[31m));[m
				       [01;34mbegin[m
					  [01;34mif[m E[31m.[mClass_Name [31m=[m Event [01;34mthen[m
					     Object_Vectors[31m.[m[01;30mDelete[m[31m([mWork[31m,[m Object_Vectors[31m.[m[01;30mExtended_Index[m[31m([mJ[31m));[m
					     [01;30mAppend[m[31m([mWork[31m,[m O[31m);[m
					     Done [31m:=[m True[31m;[m
					     
					     [01;34mexit[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m[31m;[m
				    [01;34mend[m [01;34mloop[m[31m;[m
				    [01;34mif[m [01;34mnot[m Done [01;34mthen[m		     
				       [01;30mAppend[m[31m([mWork[31m,[m O[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m[31m;[m
				 Plan_process[31m.[m[01;30mReceive[m[31m([mWork[31m);[m

				 Object_Vectors[31m.[m[01;30mClear[m[31m([mWork[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mexit[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34melse[m
		     [01;34mdeclare[m
			Done [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
			Tag  [31m:[m Obj_Enum [31m:=[m O[31m.[mClass_Name[31m;[m
		     [01;34mbegin[m
			[01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLength[m [31m([mWork[31m)[m [01;34mloop[m
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mWork[31m,[m [32mInteger[m[31m([mI[31m));[m
			   [01;34mbegin[m
			      [01;34mif[m E[31m.[mClass_Name [31m=[m Tag [01;34mthen[m
				 Object_Vectors[31m.[m[01;30mDelete[m[31m([mWork[31m,[m Object_Vectors[31m.[m[01;30mExtended_Index[m[31m([mI[31m));[m
				 [01;30mAppend[m[31m([mWork[31m,[m O[31m);[m
				 Done [31m:=[m True[31m;[m
				 [01;34mexit[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mend[m[31m;[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;34mif[m [01;34mnot[m Done [01;34mthen[m		     
			   [01;30mAppend[m[31m([mWork[31m,[m O[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  
		  
	       [01;34mend[m Add[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m[31m;[m	 	    
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
	 
	 
      [01;34mend[m Work_Process[31m;[m
      
      

      
      [01;34mtask[m [01;34mbody[m Station_process [01;34mis[m
	 
      	 
	 Win_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 
	 [01;34msubtype[m Plan_Step_Range [01;34mis[m Natural [01;34mrange[m [35m0[m[31m..[m[35m60[m[31m;[m
	 
	 Universe [31m:[m My_Classes[31m.[mObject_Access [31m:=[m [01;34mnew[m My_Universe[31m.[mUniverse_Obj[31m;[m
	 
	 Plan [31m:[m Abstracted_Access [31m:=[m [01;34mnew[m Abstracted_Class ' [31m([m[01;30mAbstracted_Class[m[31m([mUniverse[31m.[m[01;34mall[m[31m));[m
	 
	 
	 Goal_Path [31m:[m Optimal_Path[31m.[mElement_List[31m;[m
	 
	 Path   [31m:[m Object_Vectors[31m.[mVector[31m;[m
	 
	 Curs [31m:[m Element_Lists[31m.[mCursor[31m;[m
	 
      [01;34mbegin[m
      
     Main_Loop [31m:[m
	 [01;34mloop[m
	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Init [01;34mdo[m
		     Station[31m.[mWin[31m.[mL [31m:=[m [35m3[m[31m;[m
		     Station[31m.[mWin[31m.[mC [31m:=[m [35m180[m[31m;[m
		     Station[31m.[mWin[31m.[mH [31m:=[m [35m40[m[31m;[m
		     Station[31m.[mWin[31m.[mW [31m:=[m [35m60[m[31m;[m
		     Station[31m.[mWin[31m.[mFrame_Type [31m:=[m Single_Line_Frame[31m;[m      
		     Station[31m.[mWin[31m.[mFrame_Color [31m:=[m Blue[31m;[m
		     Station[31m.[mWin[31m.[mClose_Box_Color [31m:=[m Red[31m;[m
		     text_io[31m.[mnew_line[31m;[m

		     Station_Lock[31m.[mSeize[31m;[m
		     		     text_io[31m.[mnew_line[31m;[m

		     [01;30mDraw_Window[m[31m([mStation[31m);[m
		     		     text_io[31m.[mnew_line[31m;[m

		     Station_Lock[31m.[mRelease[31m;[m
		     		     text_io[31m.[mnew_line[31m;[m

		  [01;34mend[m Init[31m;[m
		  
	       [01;34mor[m
	    	  [01;34maccept[m Start[31m;[m
	    	  [01;34mexit[m[31m;[m
	       [01;34mor[m
	    	  [01;34maccept[m Stop[31m;[m
	       [01;34mor[m
		  
		  [01;34maccept[m Halt[31m;[m		  
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mCreate_Object[m [31m([mObject[31m:[m [01;34min[m My_Classes[31m.[mObject_Access[31m)[m [01;34mdo[m
		     
		     [01;34mdeclare[m
			
			Target [31m:[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mCopy[m[31m([mObject[31m);[m		  
		     [01;34mbegin[m
			
			
			[01;30mFind[m[31m([mObject[31m,[m Target[31m,[m Goal_Path[31m);[m
			

			[01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))[m [31m>=[m [35m2[m [01;34mthen[m

			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      Work_Process[31m.[m[01;30mAdd[m[31m([mE[31m);[m
			      [01;34mnull[m[31m;[m
			      
			   [01;34mend[m[31m;[m
			   [01;30mNext[m[31m([mCurs[31m);[m

			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))-[m[35m1[m [01;34mloop[m
			      [01;34mdeclare[m
				 E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
				 Target [31m:[m Abstracted_Access[31m;[m
			      [01;34mbegin[m
				 
				 [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      [01;34mend[m[31m;[m
			      [01;30mNext[m[31m([mCurs[31m);[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   
			[01;34melsif[m [01;30mLength[m[31m([mGoal_Path[31m)[m [31m/=[m [35m0[m [01;34mthen[m
			   
			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      
			      [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      
			      Work_Process[31m.[m[01;30mAdd[m[31m([mE[31m);[m
			      
			      
			   [01;34mend[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			Element_Lists[31m.[m[01;30mClear[m[31m([mGoal_Path[31m);[m
		     [01;34mend[m[31m;[m
		     
		  [01;34mend[m Create_Object[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mCreate_Planning[m [31m([mstart [31m:[m [01;34min[m Time[31m;[m Stop [31m:[m [01;34min[m Time[31m)[m [01;34mdo[m
		     [01;34mdeclare[m
			O [31m:[m My_Classes[31m.[mObject_Access[31m;[m
			Target [31m:[m My_Classes[31m.[mObject_Access[31m;[m
		     [01;34mbegin[m
			O [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
			Target [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
			My_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mTarget[31m.[m[01;34mall[m[31m).[mPlanning[31m.[mstart [31m:=[m start[31m;[m
			My_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mO[31m.[m[01;34mall[m[31m).[mPlanning[31m.[mStart [31m:=[m Start[31m;[m
			My_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mTarget[31m.[m[01;34mall[m[31m).[mPlanning[31m.[mStop [31m:=[m Stop[31m;[m
			My_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mO[31m.[m[01;34mall[m[31m).[mPlanning[31m.[mStop [31m:=[m Stop[31m;[m
			Work_Process[31m.[m[01;30mAdd[m[31m([mTarget[31m);[m
			[01;30mFind[m[31m([mO[31m,[m Target[31m,[m Goal_Path[31m);[m
			
			[01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))[m [31m>=[m [35m2[m [01;34mthen[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   
			   [01;30mNext[m[31m([mCurs[31m);[m
			   
			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))-[m[35m1[m [01;34mloop[m
			      [01;34mdeclare[m
				 E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
				 Target [31m:[m Abstracted_Access[31m;[m
			      [01;34mbegin[m
				 [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      [01;34mend[m[31m;[m
			      [01;30mNext[m[31m([mCurs[31m);[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   
			[01;34melsif[m [01;30mLength[m[31m([mGoal_Path[31m)[m [31m/=[m [35m0[m [01;34mthen[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      
			   [01;34mend[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			Element_Lists[31m.[m[01;30mClear[m[31m([mGoal_Path[31m);[m
		     [01;34mend[m[31m;[m
		     
		  [01;34mend[m Create_Planning[31m;[m
	       [01;34mor[m
		  
		  [01;34maccept[m [01;30mCreate_Event[m [31m([mDate [31m:[m [01;34min[m Time[31m;[mD [31m:[m [01;34min[m [32mDuration[m[31m)[m [01;34mdo[m
		     
		     [01;34mdeclare[m
			O [31m:[m My_Classes[31m.[mObject_Access[31m;[m
			Target [31m:[m My_Classes[31m.[mObject_Access[31m;[m
		     [01;34mbegin[m
			O [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
			Target [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
			My_Event[31m.[m[01;30mEvent_Obj[m[31m([mTarget[31m.[m[01;34mall[m[31m).[mEvent[31m.[mDate [31m:=[m Date[31m;[m
			My_Event[31m.[m[01;30mEvent_Obj[m[31m([mO[31m.[m[01;34mall[m[31m).[mEvent[31m.[mDate [31m:=[m Date[31m;[m
			
			My_Event[31m.[m[01;30mEvent_Obj[m[31m([mTarget[31m.[m[01;34mall[m[31m).[mEvent[31m.[mD [31m:=[m D[31m;[m
			My_Event[31m.[m[01;30mEvent_Obj[m[31m([mO[31m.[m[01;34mall[m[31m).[mEvent[31m.[mD [31m:=[m D[31m;[m
			Work_Process[31m.[m[01;30mAdd[m[31m([mTarget[31m);[m
			[01;30mFind[m[31m([mO[31m,[m Target[31m,[m Goal_Path[31m);[m
			
			[01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))[m [31m>=[m [35m2[m [01;34mthen[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      Work_Process[31m.[m[01;30mAdd[m[31m([mE[31m);[m
			      [01;34mnull[m[31m;[m
			   [01;34mend[m[31m;[m
			   [01;30mNext[m[31m([mCurs[31m);[m
			   
			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))-[m[35m1[m [01;34mloop[m
			      [01;34mdeclare[m
				 E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
				 Target [31m:[m Abstracted_Access[31m;[m
			      [01;34mbegin[m
				 [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      [01;34mend[m[31m;[m
			      [01;30mNext[m[31m([mCurs[31m);[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   
			[01;34melsif[m [01;30mLength[m[31m([mGoal_Path[31m)[m [31m/=[m [35m0[m [01;34mthen[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      Work_Process[31m.[m[01;30mAdd[m[31m([mE[31m);[m
			   [01;34mend[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			Element_Lists[31m.[m[01;30mClear[m[31m([mGoal_Path[31m);[m
		     [01;34mend[m[31m;[m
		     
		  [01;34mend[m Create_Event[31m;[m

	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mloop[m
	       
	       [01;34mselect[m
		  [01;34maccept[m [01;30mCreate_Object[m [31m([mObject[31m:[m [01;34min[m My_Classes[31m.[mObject_Access[31m)[m [01;34mdo[m
		     
		     [01;34mdeclare[m
			
			Target [31m:[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mCopy[m[31m([mObject[31m);[m		  
		     [01;34mbegin[m
			
			
			[01;30mFind[m[31m([mObject[31m,[m Target[31m,[m Goal_Path[31m);[m
			

			[01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))[m [31m>=[m [35m2[m [01;34mthen[m

			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      Work_Process[31m.[m[01;30mAdd[m[31m([mE[31m);[m
			      [01;34mnull[m[31m;[m
			      
			   [01;34mend[m[31m;[m
			   [01;30mNext[m[31m([mCurs[31m);[m

			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))-[m[35m1[m [01;34mloop[m
			      [01;34mdeclare[m
				 E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
				 Target [31m:[m Abstracted_Access[31m;[m
			      [01;34mbegin[m
				 
				 [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      [01;34mend[m[31m;[m
			      [01;30mNext[m[31m([mCurs[31m);[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   
			[01;34melsif[m [01;30mLength[m[31m([mGoal_Path[31m)[m [31m/=[m [35m0[m [01;34mthen[m
			   
			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      
			      [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      
			      Work_Process[31m.[m[01;30mAdd[m[31m([mE[31m);[m
			      
			      
			   [01;34mend[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			Element_Lists[31m.[m[01;30mClear[m[31m([mGoal_Path[31m);[m
		     [01;34mend[m[31m;[m
		     
		  [01;34mend[m Create_Object[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mCreate_Planning[m [31m([mstart [31m:[m [01;34min[m Time[31m;[m Stop [31m:[m [01;34min[m Time[31m)[m [01;34mdo[m
		     [01;34mdeclare[m
			O [31m:[m My_Classes[31m.[mObject_Access[31m;[m
			Target [31m:[m My_Classes[31m.[mObject_Access[31m;[m
		     [01;34mbegin[m
			O [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
			Target [31m:=[m [01;34mnew[m My_Planning[31m.[mPlanning_Obj[31m;[m
			My_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mTarget[31m.[m[01;34mall[m[31m).[mPlanning[31m.[mstart [31m:=[m start[31m;[m
			My_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mO[31m.[m[01;34mall[m[31m).[mPlanning[31m.[mStart [31m:=[m Start[31m;[m
			My_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mTarget[31m.[m[01;34mall[m[31m).[mPlanning[31m.[mStop [31m:=[m Stop[31m;[m
			My_Planning[31m.[m[01;30mPlanning_Obj[m[31m([mO[31m.[m[01;34mall[m[31m).[mPlanning[31m.[mStop [31m:=[m Stop[31m;[m
			Work_Process[31m.[m[01;30mAdd[m[31m([mTarget[31m);[m
			[01;30mFind[m[31m([mO[31m,[m Target[31m,[m Goal_Path[31m);[m
			
			[01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))[m [31m>=[m [35m2[m [01;34mthen[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   
			   [01;30mNext[m[31m([mCurs[31m);[m
			   
			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))-[m[35m1[m [01;34mloop[m
			      [01;34mdeclare[m
				 E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
				 Target [31m:[m Abstracted_Access[31m;[m
			      [01;34mbegin[m
				 [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      [01;34mend[m[31m;[m
			      [01;30mNext[m[31m([mCurs[31m);[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   
			[01;34melsif[m [01;30mLength[m[31m([mGoal_Path[31m)[m [31m/=[m [35m0[m [01;34mthen[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      
			   [01;34mend[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			Element_Lists[31m.[m[01;30mClear[m[31m([mGoal_Path[31m);[m
		     [01;34mend[m[31m;[m
		     
		  [01;34mend[m Create_Planning[31m;[m
	       [01;34mor[m
		  
		  [01;34maccept[m [01;30mCreate_Event[m [31m([mDate [31m:[m [01;34min[m Time[31m;[mD [31m:[m [01;34min[m [32mDuration[m[31m)[m [01;34mdo[m
		     
		     [01;34mdeclare[m
			O [31m:[m My_Classes[31m.[mObject_Access[31m;[m
			Target [31m:[m My_Classes[31m.[mObject_Access[31m;[m
		     [01;34mbegin[m
			O [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
			Target [31m:=[m [01;34mnew[m My_Event[31m.[mEvent_Obj[31m;[m
			My_Event[31m.[m[01;30mEvent_Obj[m[31m([mTarget[31m.[m[01;34mall[m[31m).[mEvent[31m.[mDate [31m:=[m Date[31m;[m
			My_Event[31m.[m[01;30mEvent_Obj[m[31m([mO[31m.[m[01;34mall[m[31m).[mEvent[31m.[mDate [31m:=[m Date[31m;[m
			
			My_Event[31m.[m[01;30mEvent_Obj[m[31m([mTarget[31m.[m[01;34mall[m[31m).[mEvent[31m.[mD [31m:=[m D[31m;[m
			My_Event[31m.[m[01;30mEvent_Obj[m[31m([mO[31m.[m[01;34mall[m[31m).[mEvent[31m.[mD [31m:=[m D[31m;[m
			Work_Process[31m.[m[01;30mAdd[m[31m([mTarget[31m);[m
			[01;30mFind[m[31m([mO[31m,[m Target[31m,[m Goal_Path[31m);[m
			
			[01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))[m [31m>=[m [35m2[m [01;34mthen[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      Work_Process[31m.[m[01;30mAdd[m[31m([mE[31m);[m
			      [01;34mnull[m[31m;[m
			   [01;34mend[m[31m;[m
			   [01;30mNext[m[31m([mCurs[31m);[m
			   
			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))-[m[35m1[m [01;34mloop[m
			      [01;34mdeclare[m
				 E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
				 Target [31m:[m Abstracted_Access[31m;[m
			      [01;34mbegin[m
				 [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      [01;34mend[m[31m;[m
			      [01;30mNext[m[31m([mCurs[31m);[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   
			[01;34melsif[m [01;30mLength[m[31m([mGoal_Path[31m)[m [31m/=[m [35m0[m [01;34mthen[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      Work_Process[31m.[m[01;30mAdd[m[31m([mE[31m);[m
			   [01;34mend[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			Element_Lists[31m.[m[01;30mClear[m[31m([mGoal_Path[31m);[m
		     [01;34mend[m[31m;[m
		     
		  [01;34mend[m Create_Event[31m;[m

	       [01;34mor[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Start[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Stop[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m 
		  [01;34maccept[m Init[31m;[m


	       [01;34mor[m
		  [01;34mdelay[m [35m0.25[m[31m;[m
		  [01;34mdeclare[m
		     O [31m:[m My_Classes[31m.[mObject_Access[31m;[m
		     
		     Target [31m:[m My_Classes[31m.[mObject_Access[31m;[m
		  [01;34mbegin[m
		     O [31m:=[m Object_Rand[31m.[mRandom[31m;[m
		     Target [31m:=[m Object_Rand[31m.[mRandom[31m;[m
		     [01;34mif[m Target[31m.[mClass_name [31m/=[m Planning [01;34mand[m
		       Target[31m.[mClass_name [31m/=[m content [01;34mthen[m
			Element_Lists[31m.[m[01;30mClear[m[31m([mGoal_Path[31m);[m
			[01;30mFind[m[31m([mO[31m,[m Target[31m,[m Goal_Path[31m);[m

			[01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))[m [31m>[m [35m2[m [01;34mthen[m
			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      [01;34mnull[m[31m;[m
			      
			   [01;34mend[m[31m;[m
			   [01;30mNext[m[31m([mCurs[31m);[m

			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mGoal_Path[31m))-[m[35m2[m [01;34mloop[m
			      [01;34mdeclare[m
				 E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
				 Target [31m:[m Abstracted_Access[31m;[m
			      [01;34mbegin[m
				 Target [31m:=[m [01;34mnew[m abstracted_Class ' [31m([m[01;30mAbstracted_Class[m[31m([mE[31m.[m[01;34mall[m[31m));[m
				 
				 [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      [01;34mend[m[31m;[m
			      [01;30mNext[m[31m([mCurs[31m);[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   
			[01;34melsif[m [01;30mLength[m[31m([mGoal_Path[31m)[m [31m/=[m [35m0[m [01;34mthen[m

			   Curs [31m:=[m [01;30mFirst[m[31m([mGoal_Path[31m);[m
			   [01;34mdeclare[m
			      E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      
			      [01;30mAppend[m[31m([mPath[31m,[m E[31m);[m
			      
			      Work_Process[31m.[m[01;30mAdd[m[31m([mE[31m);[m
			      
			   [01;34mend[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m[31m;[m
		  
		  
		  Station_Lock[31m.[mSeize[31m;[m
		  
		  Win_Index [31m:=[m [35m0[m[31m;[m
		  [01;34mfor[m I [01;34min[m [35m1[m [31m..[m [35m38[m [01;34mloop[m
		     [01;30mDraw_Text[m[31m([mStation[31m,[m I[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mTo_Wide_string[m[31m(([m[35m58[m [31m*[m [31m' '[m[31m)));[m
		  [01;34mend[m [01;34mloop[m[31m;[m
		  
		  [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mPath[31m)[m [01;34mloop[m
		     [01;34mdeclare[m
			E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mPath[31m,[m [32mInteger[m[31m([mI[31m));[m
		     [01;34mbegin[m
			
			E[31m.[m[01;30mPrint[m[31m([mStation[31m,[m Win_Index[31m);[m
		     [01;34mend[m[31m;[m
		  [01;34mend[m [01;34mloop[m[31m;[m
		  
		  Win_Index [31m:=[m [35m0[m[31m;[m
		  
		  Station_Lock[31m.[mRelease[31m;[m
		  
		  [01;34mif[m [01;30mLength[m[31m([mPath[31m)[m [31m>[m [35m20[m [01;34mthen[m
		     [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mPath[31m)-[m[35m20[m [01;34mloop[m
			[01;30mDelete_First[m[31m([mPath[31m);[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m Station_process[31m;[m
      

      
      [01;34mtask[m Selector [01;34mis[m
	 [01;34mentry[m Init[31m;[m
	 [01;34mentry[m Halt[31m;[m
	 [01;34mentry[m Stop[31m;[m
	 [01;34mentry[m Start[31m;[m
      [01;34mend[m Selector[31m;[m
      
      [01;34mtask[m [01;34mbody[m selector [01;34mis[m
	 Set [31m:[m Object_Vectors[31m.[mVector[31m;[m
	 Step [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 
	 Wait [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 
	 
      [01;34mbegin[m

	 [01;30mLoad_File[m[31m([m[31m"data/sets/content.txt"[m[31m,[m Content[31m,[m Set[31m);[m

	 [01;30mLoad_File[m[31m([m[31m"data/sets/event.txt"[m[31m,[m Event[31m,[m Set[31m);[m

	 
	 [01;30mLoad_File[m[31m([m[31m"data/sets/job.txt"[m[31m,[m job[31m,[m Set[31m);[m
	 

	 [01;34mdeclare[m
	    [01;34msubtype[m Set_Index [01;34mis[m Positive [01;34mrange[m [35m1[m [31m..[m [01;30mPositive[m[31m([mObject_Vectors[31m.[m[01;30mLength[m[31m([mSet[31m));[m
	    [01;34mpackage[m Index_Rand [01;34mis[m [01;34mnew[m [01;30mDiscrete_Random[m [31m([mSet_Index[31m);[m
	    Gen [31m:[m Index_Rand[31m.[mGenerator[31m;[m
	    
	    Object [31m:[m My_Classes[31m.[mObject_Access[31m;[m
	    
	    O_Index [31m:[m Set_Index[31m;[m
	 [01;34mbegin[m

	    Index_Rand[31m.[m[01;30mReset[m[31m([mGen[31m);[m	 
	Main_Loop [31m:[m
	    [01;34mloop[m
	       
	       [01;34mloop[m
		  [01;34mselect[m
		     [01;34maccept[m Init[31m;[m
		     [01;34mexit[m[31m;[m
		  [01;34mor[m
		     [01;34maccept[m Halt[31m;[m
		     [01;34mexit[m Main_Loop[31m;[m
		  [01;34mor[m
		     [01;34maccept[m Stop[31m;[m
		  [01;34mor[m
		     [01;34maccept[m Start[31m;[m
		     [01;34mexit[m[31m;[m
		  [01;34mend[m [01;34mselect[m[31m;[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	       
	       [01;34mloop[m
		  
		  
		  
		  O_Index [31m:=[m Index_Rand[31m.[m[01;30mRandom[m[31m([mGen[31m);[m
		  
		  
		  Object [31m:=[m [01;30mElement[m[31m([mSet[31m,[m O_Index[31m);[m
		  Station_Process[31m.[m[01;30mCreate_Object[m[31m([mObject[31m);[m
		  
		  
		  [01;34mselect[m
		     [01;34maccept[m Halt[31m;[m
		     [01;34mexit[m Main_Loop[31m;[m
		  [01;34mor[m
		     [01;34maccept[m Stop[31m;[m
		     [01;34mexit[m[31m;[m
		  [01;34mor[m 
		     [01;34maccept[m Start[31m;[m		  
		  [01;34mor[m
		     [01;34mdelay[m [35m0.25[m[31m;[m
		     [01;30mReset[m[31m([mG[31m);[m

		     [01;34mloop[m
			[01;34mbegin[m
			   D [31m:=[m [01;30mRandom[m[31m([mG[31m);[m
			   [01;34mif[m [32mInteger[m[31m([mD [31m*[m [35m100.0[m[31m)[m [31m>[m [35m0[m [01;34mthen[m
			      Choice [31m:=[m [32mInteger[m[31m([mD [31m*[m [35m100.0[m[31m);[m
			      [01;34mexit[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m

		     [01;34mif[m Choice [31m>[m [35m0[m [01;34mand[m Choice [31m<=[m Stock'Length [01;34mthen[m
			[01;30mTen_Choices[m [31m([m[35m1[m[31m)[m [31m:=[m [01;30mStock[m[31m([mChoice[31m);[m
			Step [31m:=[m [35m1[m[31m;[m
			[01;34mbegin[m
			   Wait [31m:=[m [32mInteger[m'[01;30mValue[m[31m([m[01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m[31m);[m
			[01;34mexception[m
			   [01;34mwhen[m Constraint_Error [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m[31m;[m
			
			[01;34mif[m  Wait [31m/=[m [35m0[m [01;34mthen[m
			   
			   Station_Process[31m.[m[01;30mCreate_Event[m[31m([mDate [31m=>[m Clock[31m+([m[35m86400.0[m [31m*[m Wait[31m),[m D [31m=>[m [35m43200.0[m[31m);[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"janv"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m>[m [35m1[m [01;34mthen[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m1[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m1[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m1[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"fev"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m>[m [35m2[m [01;34mthen[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m2[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m2[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m2[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"mars"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m>[m [35m3[m [01;34mthen[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m3[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m3[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m3[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"avril"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m>[m [35m4[m [01;34mthen[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m4[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m4[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m4[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"mai"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m>[m [35m5[m [01;34mthen[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m5[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m5[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m5[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"juin"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m>[m [35m6[m [01;34mthen[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m6[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m6[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m6[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m6[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"juillet"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m>[m [35m7[m [01;34mthen[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m7[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m7[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m7[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"aout"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m>[m [35m8[m [01;34mthen[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m8[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m8[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m8[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m8[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"sept"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m>[m [35m9[m [01;34mthen[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m9[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m9[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m9[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m9[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"oct"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m>[m [35m10[m [01;34mthen[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m10[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m10[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m10[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m10[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"nov"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m>[m [35m11[m [01;34mthen[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m11[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m11[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m11[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m11[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m [01;30mTen_Choices[m[31m([mStep[31m).[m[01;34mall[m [31m=[m [31m"dec"[m [01;34mthen[m
			   [01;34mif[m Ada[31m.[mCalendar[31m.[m[01;30mMonth[m[31m([mClock[31m)[m [31m<[m [35m12[m [01;34mthen[m
			      Station_Process[31m.[m[01;30mCreate_Planning[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m12[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
							      Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m),[m [35m12[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			   [01;34melse[m
			      Station_Process[31m.[mCreate_Planning
				[31m([mAda[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m12[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m 
				 Ada[31m.[mCalendar[31m.[m[01;30mTime_Of[m[31m([mAda[31m.[mCalendar[31m.[m[01;30mYear[m[31m([mClock[31m)+[m[35m1[m[31m,[m [35m12[m[31m,[m [35m28[m[31m,[m [35m0.0[m[31m));[m
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			[01;34mend[m [01;34mif[m[31m;[m
			
			
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m [01;34mselect[m[31m;[m
		  
	       [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
	 [01;34mend[m[31m;[m
      [01;34mend[m Selector[31m;[m
      
      Win_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
   [01;34mbegin[m

      Selector[31m.[mInit[31m;[m

      Work_Process[31m.[mInit[31m;[m

      Station_Process[31m.[mInit[31m;[m

      Planning_Win[31m.[mWin[31m.[mL [31m:=[m [35m3[m[31m;[m

      Planning_Win[31m.[mWin[31m.[mC [31m:=[m [35m120[m[31m;[m
      Planning_Win[31m.[mWin[31m.[mH [31m:=[m [35m20[m[31m;[m
      Planning_Win[31m.[mWin[31m.[mW [31m:=[m [35m60[m[31m;[m

      Planning_Win[31m.[mWin[31m.[mFrame_Type [31m:=[m Single_Line_Frame[31m;[m

      Planning_Win[31m.[mWin[31m.[mframe_Color [31m:=[m Blue[31m;[m

      Planning_Win[31m.[mWin[31m.[mClose_Box_Color [31m:=[m Red[31m;[m

  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
	    [01;34mor[m
	       [01;34maccept[m Halt [01;34mdo[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Halting Workstation... Ah"[m[31m);[m
		  Selector[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Selector halting"[m[31m);[m
		  Station_Process[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Station halting"[m[31m);[m
		  Work_Process[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Work halting"[m[31m);[m
		  Optimal_Path[31m.[mAstar_task[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Astart halting"[m[31m);[m
		  Plan_process[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Planning halting"[m[31m);[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  Selector[31m.[mStart[31m;[m
		  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
		  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Workstation"[m[31m);[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       Selector[31m.[mStop[31m;[m
	       Station_Process[31m.[mStop[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Up_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m      
	    [01;34mor[m
	       [01;34mdelay[m [35m0.5[m[31m;[m
	       
	       
	       
	       Station_Lock[31m.[mSeize[31m;[m
	       
	       [01;30mDraw_Window[m[31m([mWork_Win[31m);[m

	       Win_Index [31m:=[m [35m0[m[31m;[m
	       [01;34mfor[m I [01;34min[m [35m1[m [31m..[m [35m38[m [01;34mloop[m
		  [01;30mDraw_Text[m[31m([mStation[31m,[m I[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mTo_Wide_string[m[31m(([m[35m58[m [31m*[m [31m' '[m[31m)));[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	       
	       [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mPath[31m)[m [01;34mloop[m
		  [01;34mdeclare[m
		     E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mPath[31m,[m [32mInteger[m[31m([mI[31m));[m
		  [01;34mbegin[m
		     
		     E[31m.[m[01;30mPrint[m[31m([mStation[31m,[m Win_Index[31m);[m
		     
		     
		  [01;34mend[m[31m;[m
	       [01;34mend[m [01;34mloop[m[31m;[m

	       Win_Index [31m:=[m [35m0[m[31m;[m

	       [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLength[m [31m([mWork[31m)[m [01;34mloop[m
		  [01;34mdeclare[m
		     E [31m:[m [01;34mconstant[m My_Classes[31m.[mObject_Access [31m:=[m [01;30mElement[m[31m([mWork[31m,[m [32mInteger[m[31m([mI[31m));[m
		  [01;34mbegin[m
		     
		     E[31m.[m[01;30mPrint[m[31m([mWork_Win[31m,[m Win_Index[31m);[m
		     [01;34mif[m E[31m.[mClass_Name [31m=[m Event [01;34mthen[m
			[01;34mif[m E[31m.[mEvent[31m.[mDate [31m<[m Clock [01;34mthen[m
			   Object_Vectors[31m.[m[01;30mClear[m[31m([mWork[31m);[m
			   
			   [01;30mDraw_Window[m[31m([mWork_Win[31m);[m
			   [01;34mexit[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m[31m;[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	       Win_Index [31m:=[m [35m0[m[31m;[m
	       
	       Station_Lock[31m.[mRelease[31m;[m
	       
	       
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt [01;34mdo[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Halting Workstation... Arf"[m[31m);[m
		  Selector[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Selector halting"[m[31m);[m
		  Station_Process[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Station halting"[m[31m);[m

		  Work_Process[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Work halting"[m[31m);[m
		  Optimal_Path[31m.[mAstar_task[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Astart halting"[m[31m);[m
		  Plan_process[31m.[mHalt[31m;[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Planning halting"[m[31m);[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	       
	       
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
		  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Workstation"[m[31m);[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Greetings "[m [31m&[m [01;30mGetenv[m[31m([m[31m"USER"[m[31m).[m[01;34mall[m [31m&[m [31m"!"[m[31m);[m
		  Selector[31m.[mStart[31m;[m
		  Station_Process[31m.[mStart[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Workstation process halted"[m[31m);[m
   [01;34mend[m Workstation_Process[31m;[m
   
   [01;34mtask[m [01;34mbody[m Space_Fighter_Process [01;34mis[m      
      
      
      [01;34msubtype[m Space_X_Range [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[mApp[31m.[mColumns[31m-[m[35m4[m[31m;[m
      [01;34mpackage[m Space_X_Wrapping [01;34mis[m [01;34mnew[m PragmARC[31m.[m[01;30mWrapping[m[31m([mSpace_X_Range[31m);[m
      
      [01;34msubtype[m Space_Y_Range [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[mApp[31m.[mLines[31m;[m
      [01;34mpackage[m Space_Y_Wrapping [01;34mis[m [01;34mnew[m PragmARC[31m.[m[01;30mWrapping[m[31m([mSpace_Y_Range[31m);[m
      
      [01;34mtype[m Invider_Record[31m;[m
      
      [01;34mtask[m [01;34mtype[m [01;30mInvider_Process[m[31m([mInvider [31m:[m [01;34maccess[m Invider_Record[31m;[mValue [31m:[m Natural[31m)[m [01;34mis[m
	 [01;34mentry[m Halt[31m;[m
      [01;34mend[m Invider_Process[31m;[m
      
      [01;34mtype[m [01;30mInvider_Record[m[31m([mPoint [31m:[m Positive[31m)[m [01;34mis[m [01;34mlimited[m 
	 [01;34mrecord[m
	    X [31m:[m Space_X_Range [31m:=[m Columns[31m-[m[35m4[m[31m;[m
	    Y [31m:[m Space_Y_Range [31m:=[m [35m3[m[31m;[m
	    Proc [31m:[m [01;30mInvider_Process[m[31m([mInvider_Record'[01;34mAccess[m[31m,[m Point[31m);[m
	 [01;34mend[m [01;34mrecord[m[31m;[m

      [01;34mtask[m [01;34mbody[m Invider_Process [01;34mis[m
      [01;34mbegin[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34mdelay[m [35m0.1[m[31m;[m
	       Invider[31m.[mX [31m:=[m Space_X_wrapping[31m.[m[01;30mWrap_Pred[m[31m([mInvider[31m.[mX[31m);[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m Invider_Process[31m;[m
      
      [01;34mtype[m Weapon_Record[31m;[m
      
      [01;34mtask[m [01;34mtype[m [01;30mWeapon_Process[m [31m([mWeapon [31m:[m [01;34maccess[m Weapon_Record[31m)[m [01;34mis[m
	 [01;34mentry[m Halt[31m;[m
      [01;34mend[m Weapon_Process[31m;[m
      
      [01;34mtype[m Weapon_Record [01;34mis[m [01;34mlimited[m
	 [01;34mrecord[m
	    X [31m:[m Space_X_Range [31m:=[m [35m5[m[31m;[m
	    Y [31m:[m Space_Y_Range [31m:=[m [35m3[m[31m;[m
	    Launched [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	    Point [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	    Proc [31m:[m [01;30mWeapon_Process[m[31m([mWeapon_Record'[01;34mAccess[m[31m);[m
	 [01;34mend[m [01;34mrecord[m[31m;[m
      
      
      
      [01;34mtask[m [01;34mbody[m Weapon_Process [01;34mis[m
      [01;34mbegin[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34mdelay[m [35m0.05[m[31m;[m
	       [01;34mif[m Weapon[31m.[mLaunched [01;34mthen[m
		  Weapon[31m.[mX [31m:=[m Space_X_Wrapping[31m.[m[01;30mWrap_Succ[m[31m([mWeapon[31m.[mX[31m);[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m Weapon_Process[31m;[m
      
      [01;34mtype[m Weapon_Array [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m [01;34maccess[m Weapon_Record[31m;[m
      
      [01;34mtype[m Fighter_Record[31m;[m
      
      [01;34mtask[m [01;34mtype[m [01;30mFighter_Process[m[31m([mFighter [31m:[m [01;34maccess[m Fighter_Record[31m)[m [01;34mis[m
	 [01;34mentry[m Up[31m;[m
	 [01;34mentry[m Down[31m;[m
	 [01;34mentry[m [01;30mSpeed[m[31m([mFactor [31m:[m [01;34min[m Natural[31m);[m
	 [01;34mentry[m Shot[31m;[m
	 [01;34mentry[m Halt[31m;[m
	 [01;34mentry[m Stop[31m;[m
	 [01;34mentry[m Start[31m;[m
	 [01;34mentry[m Refresh[31m;[m
      [01;34mend[m Fighter_Process[31m;[m
      
      [01;34mtype[m Fighter_Record [01;34mis[m [01;34mlimited[m
	 [01;34mrecord[m
	    X [31m:[m Space_X_Range [31m:=[m [35m4[m[31m;[m
	    Y [31m:[m Space_Y_Range [31m:=[m App[31m.[mLines[31m/[m[35m2[m[31m;[m
	    Speed [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	    Charge [31m:[m Natural [31m:=[m [35m250[m[31m;[m
	    Weapons [31m:[m [01;30mWeapon_Array[m[31m([m[35m1[m[31m..[m[35m250[m[31m);[m	    
	    Weapon_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	    Proc [31m:[m [01;30mFighter_Process[m[31m([mFighter_Record'[01;34mAccess[m[31m);[m
	 [01;34mend[m [01;34mrecord[m[31m;[m
      
      
      [01;34mtask[m [01;34mbody[m Fighter_Process [01;34mis[m
      [01;34mbegin[m
     Main_Loop [31m:[m
	 [01;34mloop[m
	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Start[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Stop[31m;[m
		  [01;34mexit[m[31m;[m
		  
	       [01;34mor[m
		  [01;34maccept[m Up [01;34mdo[m
		     [01;34mif[m Fighter[31m.[mY [31m-[m [35m1[m [31m>=[m [35m4[m [01;34mthen[m
			Fighter[31m.[mY [31m:=[m Fighter[31m.[mY [31m-[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Up[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Down [01;34mdo[m
		     [01;34mif[m [31m([mFighter[31m.[mY [31m+[m [35m1[m[31m)[m [31m<[m [31m([mApp[31m.[mLines [31m-[m [35m2[m[31m)[m [01;34mthen[m
			Fighter[31m.[mY [31m:=[m Fighter[31m.[mY [31m+[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Down[31m;[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mSpeed[m[31m([mFactor [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		     Fighter[31m.[mSpeed [31m:=[m Factor[31m;[m
		  [01;34mend[m Speed[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Shot [01;34mdo[m
		     [01;34mif[m Fighter[31m.[mCharge [31m>[m [35m0[m [01;34mthen[m
			[01;34mif[m Fighter[31m.[mWeapon_Last [31m<[m Fighter[31m.[mWeapons'Last [01;34mthen[m
			   Fighter[31m.[mCharge [31m:=[m Fighter[31m.[mCharge [31m-[m [35m1[m[31m;[m
			   Fighter[31m.[m[01;30mWeapons[m[31m([mFighter[31m.[mWeapon_Last[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m Weapon_Record[31m;[m
			   Fighter[31m.[m[01;30mWeapons[m[31m([mFighter[31m.[mWeapon_Last[31m+[m[35m1[m[31m).[mLaunched [31m:=[m True[31m;[m
			   Fighter[31m.[m[01;30mWeapons[m[31m([mFighter[31m.[mWeapon_Last[31m+[m[35m1[m[31m).[mX [31m:=[m Fighter[31m.[mX [31m+[m [35m4[m[31m;[m
			   Fighter[31m.[m[01;30mWeapons[m[31m([mFighter[31m.[mWeapon_Last[31m+[m[35m1[m[31m).[mY [31m:=[m Fighter[31m.[mY[31m;[m
			   Fighter[31m.[mWeapon_Last [31m:=[m Fighter[31m.[mWeapon_Last [31m+[m [35m1[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Shot[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Refresh [01;34mdo[m
		     [01;34mfor[m Weapon [01;34min[m [35m1[m[31m..[mFighter[31m.[mWeapon_Last [01;34mloop[m
			[01;34mif[m Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mif[m Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m).[mLaunched [01;34mthen[m
			      [01;30mPut[m[31m([m[01;30mPosition[m[31m([mFighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m).[mY[31m,[m Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m).[mX[31m)[m [31m&[m [31m'-'[m[31m);[m

			      [01;34mif[m Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m).[mX [31m>=[m Space_X_Range'Last[31m-[m[35m1[m [01;34mthen[m

				 Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m).[mProc[31m.[mHalt[31m;[m

				 Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m)[m [31m:=[m [01;34mnull[m[31m;[m

				 [01;34mfor[m Last [01;34min[m Weapon[31m+[m[35m1[m[31m..[mFighter[31m.[mWeapon_Last [01;34mloop[m

				    Fighter[31m.[m[01;30mWeapons[m[31m([mLast[31m-[m[35m1[m[31m)[m [31m:=[m Fighter[31m.[m[01;30mWeapons[m[31m([mLast[31m);[m

				 [01;34mend[m [01;34mloop[m[31m;[m

				 Fighter[31m.[mWeapon_Last [31m:=[m Fighter[31m.[mWeapon_Last [31m-[m [35m1[m[31m;[m

			      [01;34mend[m [01;34mif[m[31m;[m
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34mend[m Refresh[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mloop[m
	       [01;34mselect[m		  
		  [01;34maccept[m Start[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Stop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Refresh[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m Fighter_Process[31m;[m
      
      
      [01;34mtype[m Invider_Access [01;34mis[m [01;34maccess[m Invider_Record[31m;[m
      
      
      
      [01;34mtype[m Invider_Array [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Invider_Access[31m;[m
      
      Inviders [31m:[m [01;30mInvider_Array[m[31m([m[35m1[m[31m..[m[35m10[m[31m);[m
      Invider_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Fighter [31m:[m Fighter_Record[31m;[m
      
      [01;34mtype[m Point_Array [01;34mis[m [01;34marray[m [31m([m[35m1[m[31m..[m[35m10[m[31m)[m [01;34mof[m Natural[31m;[m
      
      Points [31m:[m [01;34mconstant[m Point_Array [31m:=[m [31m([m[35m10[m[31m,[m [35m20[m[31m,[m [35m30[m[31m,[m [35m40[m[31m,[m [35m45[m[31m,[m [35m50[m[31m,[m [35m60[m[31m,[m [35m65[m[31m,[m [35m70[m[31m,[m [35m80[m[31m);[m
      
      [01;34msubtype[m Point_Range [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[m[35m10[m[31m;[m
      
      [01;34msubtype[m Valid_Line [01;34mis[m Positive [01;34mrange[m [35m3[m[31m..[mApp[31m.[mLines[31m-[m[35m4[m[31m;[m
      
      [01;34mpackage[m Line_Rand [01;34mis[m [01;34mnew[m Ada[31m.[mNumerics[31m.[m[01;30mDiscrete_Random[m[31m([mValid_Line[31m);[m
      [01;34mpackage[m Point_Rand [01;34mis[m [01;34mnew[m Ada[31m.[mNumerics[31m.[m[01;30mDiscrete_Random[m[31m([mPoint_range[31m);[m
      
      
      [01;34mtask[m Gen_Process [01;34mis[m
	 
	 [01;34mentry[m Halt[31m;[m
	 [01;34mentry[m Start[31m;[m
	 [01;34mentry[m Stop[31m;[m
	 
      [01;34mend[m Gen_Process[31m;[m
      
      [01;34mtask[m [01;34mbody[m Gen_Process [01;34mis[m
	 Line_Gen [31m:[m Line_Rand[31m.[mGenerator[31m;[m
	 Point_Gen [31m:[m Point_Rand[31m.[mGenerator[31m;[m
      [01;34mbegin[m
	 Line_Rand[31m.[m[01;30mReset[m[31m([mLine_Gen[31m);[m
	 Point_Rand[31m.[m[01;30mReset[m[31m([mPoint_Gen[31m);[m

     Main_Loop [31m:[m
	 [01;34mloop[m
	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Start[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Stop[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Start[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Stop[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m 
		  [01;34mdelay[m [35m5.0[m[31m;[m
		  [01;34mif[m Invider_Last [31m<[m Inviders'Last [01;34mthen[m
		     [01;30mInviders[m[31m([mInvider_Last [31m+[m [35m1[m[31m)[m [31m:=[m [01;34mnew[m [01;30mInvider_Record[m[31m([m[01;30mPoints[m[31m([mPoint_Rand[31m.[m[01;30mRandom[m[31m([mPoint_Gen[31m)));[m
		     [01;30mInviders[m[31m([mInvider_Last [31m+[m [35m1[m[31m).[mY [31m:=[m Line_Rand[31m.[m[01;30mRandom[m[31m([mLine_Gen[31m);[m
		     Invider_Last [31m:=[m Invider_Last [31m+[m [35m1[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m Gen_Process[31m;[m
      
      
      
      [01;34mtask[m Ground_Process [01;34mis[m
	 
	 [01;34mentry[m [01;30mSpeed[m[31m([mFactor [31m:[m [01;34min[m Natural[31m);[m
	 [01;34mentry[m Up[31m;[m
	 [01;34mentry[m Down[31m;[m
	 [01;34mentry[m Weapon[31m;[m
	 [01;34mentry[m Halt[31m;[m
	 [01;34mentry[m Start[31m;[m
	 [01;34mentry[m Stop[31m;[m
	 [01;34mentry[m Refresh[31m;[m
      [01;34mend[m Ground_Process[31m;[m
      
      [01;34mtask[m [01;34mbody[m Ground_Process [01;34mis[m
	 
	 
	 
	 Charge [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 
      [01;34mbegin[m
	 
     Main_Loop [31m:[m
	 [01;34mloop[m
	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m [01;30mSpeed[m[31m([mFactor [31m:[m [01;34min[m Natural[31m);[m
		  
		  [01;34maccept[m Weapon[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Start [01;34mdo[m
		     Gen_Process[31m.[mStart[31m;[m
		  [01;34mend[m Start[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Stop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Up[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Down[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Refresh[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    
	    [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m [01;30mSpeed[m[31m([mFactor [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		     Fighter[31m.[mSpeed [31m:=[m Factor[31m;[m
		  [01;34mend[m Speed[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Up [01;34mdo[m
		     Fighter[31m.[mProc[31m.[mUp[31m;[m
		  [01;34mend[m Up[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Down [01;34mdo[m
		     Fighter[31m.[mProc[31m.[mDown[31m;[m
		  [01;34mend[m Down[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Weapon [01;34mdo[m
		     Fighter[31m.[mProc[31m.[mShot[31m;[m
		  [01;34mend[m Weapon[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Halt[31m;[m
		  [01;34mexit[m Main_Loop[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Start[31m;[m
	       [01;34mor[m 
		  [01;34maccept[m Stop [01;34mdo[m
		     Gen_Process[31m.[mStop[31m;[m
		  [01;34mend[m Stop[31m;[m
		  
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Refresh [01;34mdo[m
		     [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
		     [01;34mfor[m Invider [01;34min[m [35m1[m[31m..[mInvider_Last [01;34mloop[m

			[01;34mfor[m Weapon [01;34min[m [35m1[m[31m..[mFighter[31m.[mWeapon_Last [01;34mloop[m

			   [01;34mif[m [01;30mInviders[m[31m([mInvider[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m

			      [01;34mif[m Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
				 [01;34mif[m [01;30mInviders[m[31m([mInvider[31m).[mX [31m=[m Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m).[mX [01;34mand[m 
				   [01;30mInviders[m[31m([mInvider[31m).[mY [31m=[m Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m).[mY [01;34mthen[m

				    Fighter[31m.[mCharge [31m:=[m Fighter[31m.[mCharge [31m+[m Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m).[mPoint[31m;[m

				    [01;34mif[m Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m

				       Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m).[mProc[31m.[mHalt[31m;[m

				       Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m)[m [31m:=[m [01;34mnull[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				    [01;34mif[m [01;30mInviders[m[31m([mInvider[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
				       
				       [01;30mInviders[m[31m([mInvider[31m).[mProc[31m.[mHalt[31m;[m

				       [01;30mInviders[m[31m([mInvider[31m)[m [31m:=[m [01;34mnull[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				    
				    [01;34mfor[m Last [01;34min[m Invider[31m+[m[35m1[m [31m..[m Invider_Last [01;34mloop[m

				       [01;30mInviders[m[31m([mLast[31m-[m[35m1[m[31m)[m [31m:=[m [01;30mInviders[m[31m([mLast[31m);[m			      

				    [01;34mend[m [01;34mloop[m[31m;[m

				    Invider_Last [31m:=[m Invider_Last [31m-[m [35m1[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m						   
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m [01;34mloop[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m

		     [01;34mfor[m Invider [01;34min[m [35m1[m[31m..[mInvider_Last [01;34mloop[m
			[01;34mif[m [01;30mInviders[m[31m([mInvider[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mInviders[m[31m([minvider[31m).[mX [31m:=[m Space_X_Wrapping[31m.[m[01;30mWrap_Pred[m[31m([m[01;30mInviders[m[31m([minvider[31m).[mX[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m

		     [01;30mPut[m[31m([m[01;30mPosition[m[31m([mFighter[31m.[mY[31m,[m Fighter[31m.[mX[31m)[m [31m&[m [31m"|-\-"[m[31m);[m

		     [01;34mfor[m Invider [01;34min[m [35m1[m[31m..[mInvider_Last [01;34mloop[m
			[01;34mif[m [01;30mInviders[m[31m([mInvider[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m

			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([m[01;30mInviders[m[31m([mInvider[31m).[mY[31m-[m[35m1[m[31m,[m [01;30mInviders[m[31m([mInvider[31m).[mX[31m)[m [31m&[m [31m" __ "[m[31m);[m
			   
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([m[01;30mInviders[m[31m([mInvider[31m).[mY[31m,[m [01;30mInviders[m[31m([mInvider[31m).[mX[31m)[m [31m&[m [31m'|'[m [31m&[m [32mInteger[m'[01;30mImage[m[31m([m[01;30mInviders[m[31m([mInvider[31m).[mPoint[31m)[m [31m&[m [31m'|'[m[31m);[m
			   
			   [01;30mPut[m[31m([m[01;30mPosition[m[31m([m[01;30mInviders[m[31m([mInvider[31m).[mY[31m+[m[35m1[m[31m,[m [01;30mInviders[m[31m([mInvider[31m).[mX[31m)[m [31m&[m [31m" --"[m[31m);[m

			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m

		  [01;34mend[m Refresh[31m;[m
	       [01;34mend[m [01;34mselect[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [01;34mend[m Ground_Process[31m;[m
      
      
      
      
      
      
      Factor [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      
   [01;34mbegin[m
      
  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		  [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
		     [01;34mnull[m[31m;[m
		  [01;34melse[m
		     [01;34mcase[m Wchar [01;34mis[m
			[01;34mwhen[m [31m'+'[m [31m=>[m
			   Factor [31m:=[m Factor [31m+[m [35m1[m[31m;[m
			   Ground_Process[31m.[m[01;30mSpeed[m[31m([mFactor[31m);[m
			[01;34mwhen[m [31m'-'[m [31m=>[m
			   Factor [31m:=[m Factor [31m-[m [35m1[m[31m;[m
			   Ground_Process[31m.[m[01;30mSpeed[m[31m([mFactor[31m);[m
			[01;34mwhen[m [31m' '[m [31m=>[m
			   Ground_Process[31m.[mWeapon[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Receive[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt [01;34mdo[m
		  [01;34mnull[m[31m;[m
		  
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
		  Ground_Process[31m.[mStart[31m;[m
		  Fighter[31m.[mProc[31m.[mStart[31m;[m
		  
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend [01;34mdo[m
		  Ground_Process[31m.[mStop[31m;[m
		  Fighter[31m.[mProc[31m.[mStop[31m;[m
	       [01;34mend[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  Ground_Process[31m.[mUp[31m;[m
	       [01;34mend[m Up_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  Ground_Process[31m.[mDown[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m      
	    [01;34mor[m
	       [01;34mdelay[m [35m0.05[m[31m;[m
	       Ground_Process[31m.[mRefresh[31m;[m
	       Fighter[31m.[mProc[31m.[mRefresh[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
		  Ground_Process[31m.[mStart[31m;[m
		  Fighter[31m.[mProc[31m.[mStart[31m;[m		  
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      Gen_Process[31m.[mHalt[31m;[m
      [01;30mPut_Line[m[31m([m[31m"Halting Ground"[m[31m);[m
      Ground_Process[31m.[mHalt[31m;[m
      [01;30mPut_Line[m[31m([m[31m"Halting Fighter"[m[31m);[m
      Fighter[31m.[mProc[31m.[mHalt[31m;[m
      [01;30mPut_Line[m[31m([m[31m"Halting inviders"[m[31m);[m      
      [01;34mfor[m Invider [01;34min[m [35m1[m[31m..[mInvider_Last [01;34mloop[m
	 [01;34mif[m [01;30mInviders[m[31m([mInvider[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
	    [01;30mInviders[m[31m([mInvider[31m).[mProc[31m.[mHalt[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mfor[m Weapon [01;34min[m Fighter[31m.[mWeapons'[01;34mRange[m [01;34mloop[m
	 [01;34mif[m Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
	    Fighter[31m.[m[01;30mWeapons[m[31m([mWeapon[31m).[mProc[31m.[mHalt[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      
      W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Space Fighter process halted"[m[31m);[m
   [01;34mend[m Space_fighter_Process[31m;[m

   
   [01;34muse[m M[31m.[mAccounts_Manager[31m.[mOperation_Vectors[31m;[m
   [01;34mtask[m [01;34mbody[m Bank_Process [01;34mis[m      
      
      Main_Win [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m The_Window[31m);[m
      
      
      Top [31m:[m Natural [31m:=[m [35m1[m[31m;[m
      Line_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Operation  [31m:[m Operation_Record[31m;[m
      Buffer     [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
      Line       [31m:[m M[31m.[mStrings[31m.[mWide_String_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Last       [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Next       [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m

  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		  [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
		     [01;34mcase[m Wchar [01;34mis[m
			[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			   [01;34mdeclare[m
			      Op [31m:[m Operation_Record[31m;[m
			      Step [31m:[m Step_Range [31m:=[m [35m0[m[31m;[m			      
			   [01;34mbegin[m
			      Next [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m.[m[01;34mall[m[31m,[m [31m", "[m[31m);[m
			      Op[31m.[mLabel [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mLine[m[31m([mLine'First[31m..[mNext[31m-[m[35m1[m[31m));[m
			      Last [31m:=[m Next [31m+[m [35m2[m[31m;[m
			      Op[31m.[mDate_Op [31m:=[m Clock[31m;[m
			      Next [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m.[m[01;34mall[m[31m,[m [31m":"[m[31m,[m Last[31m);[m
			      Step [31m:=[m Step_Range'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mLast[31m..[mNext[31m-[m[35m1[m[31m)));[m
			      Op[31m.[mDate_Val [31m:=[m Op[31m.[mDate_Op [31m+[m [31m([m[35m86400.0[m [31m*[m [32mDuration[m[31m([mStep[31m));[m
			      Last [31m:=[m Next [31m+[m [35m1[m[31m;[m
			      Op[31m.[msum [31m:=[m Sum_Range'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mLast[31m..[mLine'last[31m)));[m
			      App[31m.[mBank[31m.[mList [31m:=[m App[31m.[mBank[31m.[mList [31m&[m Op[31m;[m
			      App[31m.[mBank[31m.[mTotal [31m:=[m App[31m.[mBank[31m.[mTotal [31m+[m Op[31m.[mSum[31m;[m			      
			      [01;30mWide_Free[m[31m([mLine[31m);[m
			      Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
			   [01;34mend[m[31m;[m
			   [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
			   [01;30mDraw_Window[m[31m([mMain_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Num op, Label,                  Date op,                Date val,                Sum"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"-------------------------------------------------------------------------------------------"[m[31m);[m
			   W_Io[31m.[mNew_Line[31m;[m
			   [01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [31m>[m [35m0[m [01;34mthen[m
			      
			      [01;34mfor[m I [01;34min[m [32mInteger[m'[01;30mMax[m[31m([mLine_Index[31m-([mApp[31m.[mLines[31m-[m[35m5[m[31m),[m[35m1[m[31m)..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [01;34mloop[m
				 
				 [01;34mdeclare[m				    
				    Op [31m:[m Operation_Record [31m:=[m [01;30mElement[m[31m([mApp[31m.[mBank[31m.[mList[31m,[m [32mInteger[m[31m([mI[31m));[m
				 [01;34mbegin[m
				    
				    W_Io[31m.[m[01;30mPut_Line[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mI[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Op[31m.[mLabel[31m.[m[01;34mall[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([m[35m20[m[31m-[mOp[31m.[mLabel'Length[31m)[m [31m*[m [31m' '[m[31m))[m
						    [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_string[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_Op[31m))[m [31m&[m
						    Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_val[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([mOp[31m.[mSum[31m)));[m
				    
				    
				 [01;34mend[m[31m;[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m
			   [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
			   [01;30mDraw_Window[m[31m([mMain_Win[31m);[m
			   [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Num op, Label,                  Date op,                Date val,                Sum"[m[31m);[m
			   [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"-------------------------------------------------------------------------------------------"[m[31m);[m
			   W_Io[31m.[mNew_Line[31m;[m
			   [01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [31m>[m [35m0[m [01;34mthen[m
			      
			      [01;34mfor[m I [01;34min[m [32mInteger[m'[01;30mMax[m[31m([mLine_Index[31m-([mApp[31m.[mLines[31m-[m[35m5[m[31m),[m[35m1[m[31m)..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [01;34mloop[m
				 
				 [01;34mdeclare[m				    
				    Op [31m:[m Operation_Record [31m:=[m [01;30mElement[m[31m([mApp[31m.[mBank[31m.[mList[31m,[m [32mInteger[m[31m([mI[31m));[m
				 [01;34mbegin[m
				    
				    W_Io[31m.[m[01;30mPut_Line[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mI[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Op[31m.[mLabel[31m.[m[01;34mall[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([m[35m20[m[31m-[mOp[31m.[mLabel'Length[31m)[m [31m*[m [31m' '[m[31m))[m
						    [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_string[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_Op[31m))[m [31m&[m
						    Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_val[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([mOp[31m.[mSum[31m)));[m
				    
				    
				 [01;34mend[m[31m;[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
			   W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mApp[31m.[mLines[31m-[m[35m1[m[31m,[m Line'Length[31m+[m[35m7[m[31m))[m [31m&[m [31m' '[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m8[m[31m));[m
			   Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mLine[m[31m([mLine'First[31m..[mLine'Last[31m-[m[35m1[m[31m));[m
			   [01;30mWide_Free[m[31m([mLine[31m);[m
			   Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mBuffer[31m.[m[01;34mall[m[31m);[m
			   [01;30mWide_Free[m[31m([mBuffer[31m);[m
			   
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34melse[m

		     Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLine[31m.[m[01;34mall[m [31m&[m Wchar[31m);[m
		     [01;30mWide_Free[m[31m([mLine[31m);[m
		     Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mBuffer[31m.[m[01;34mall[m[31m);[m
		     [01;30mWide_Free[m[31m([mBuffer[31m);[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m		  
		  W_io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mApp[31m.[mLines[31m-[m[35m2[m[31m,[m [35m80[m[31m))[m [31m&[m [31m"Total : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([mApp[31m.[mBank[31m.[mTotal[31m)));[m
		  W_io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mApp[31m.[mLines[31m-[m[35m1[m[31m,[m [35m1[m[31m))[m [31m&[m [31m"Line : "[m [31m&[m Line[31m.[m[01;34mall[m[31m);[m
	       [01;34mend[m Receive[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  
		  Bank_Process[31m.[mTop [31m:=[m Top[31m;[m
		  [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
		  [01;30mDraw_Window[m[31m([mMain_Win[31m);[m
		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Num op, Label,                  Date op,                Date val,                Sum"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"-------------------------------------------------------------------------------------------"[m[31m);[m
		  		  
		  [01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [31m>[m [35m0[m [01;34mthen[m
		     Line_Index [31m:=[m [32mInteger[m'[01;30mMin[m[31m([m[32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m)),[m App[31m.[mLines[31m-[m[35m5[m[31m);[m
		     [01;34mfor[m I [01;34min[m [32mInteger[m'[01;30mMax[m[31m([mLine_Index[31m-([mApp[31m.[mLines[31m-[m[35m5[m[31m),[m [35m1[m[31m)[m [31m..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [01;34mloop[m
			[01;34mdeclare[m
			   Op [31m:[m Operation_Record [31m:=[m [01;30mElement[m[31m([mApp[31m.[mBank[31m.[mList[31m,[m [32mInteger[m[31m([mI[31m));[m
			[01;34mbegin[m
			   W_Io[31m.[m[01;30mPut_Line[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([m[32mInteger[m[31m([mI[31m+[m[35m3[m[31m),[m Top[31m+[m[35m1[m[31m))[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mI[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Op[31m.[mLabel[31m.[m[01;34mall[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([m[35m20[m[31m-[mOp[31m.[mLabel'Length[31m)[m [31m*[m [31m' '[m[31m))[m
					   [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_Op[31m))[m [31m&[m
				   Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_Val[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([mOp[31m.[mSum[31m)));[m
			
		     [01;34mend[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  W_io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mApp[31m.[mLines[31m-[m[35m3[m[31m,[m Top[31m+[m[35m80[m[31m))[m [31m&[m [31m"Total : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([mApp[31m.[mBank[31m.[mTotal[31m)));[m
		  W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mApp[31m.[mLines[31m-[m[35m1[m[31m,[m Top[31m+[m[35m1[m[31m))[m [31m&[m [31m"Line : "[m [31m&[m Line[31m.[m[01;34mall[m[31m);[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down [01;34mdo[m
		  [01;34mif[m Line_Index [31m+[m [31m(([mApp[31m.[mLines [31m-[m [35m5[m[31m)[m [31m/[m [35m2[m[31m)[m [31m<=[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [01;34mthen[m
		     Line_Index [31m:=[m [32mInteger[m'[01;30mMin[m[31m([m[32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m)),[m Line_Index [31m+[m [31m(([mApp[31m.[mLines [31m-[m [35m5[m[31m)[m [31m/[m [35m2[m[31m));[m
		  [01;34mend[m [01;34mif[m[31m;[m

		  [01;30mPut_Line[m[31m([m[01;30mPosition[m[31m([m[35m1[m[31m,[m Top[31m+[m[35m1[m[31m)[m [31m&[m [31m"Num op, Label,                  Date op,                Date val,                Sum"[m[31m);[m
		  [01;30mPut_Line[m[31m([m[01;30mPosition[m[31m([m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m)[m [31m&[m [31m"-------------------------------------------------------------------------------------------"[m[31m);[m
		  [01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [31m>[m [35m0[m [01;34mthen[m
		     
		     [01;34mfor[m I [01;34min[m [32mInteger[m'[01;30mMax[m[31m([mLine_Index[31m-([mApp[31m.[mLines[31m-[m[35m5[m[31m),[m [35m1[m[31m)..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [01;34mloop[m
			[01;34mdeclare[m
			   Op [31m:[m Operation_Record [31m:=[m [01;30mElement[m[31m([mApp[31m.[mBank[31m.[mList[31m,[m [32mInteger[m[31m([mI[31m));[m
			[01;34mbegin[m
			   W_Io[31m.[m[01;30mPut_Line[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([m[32mInteger[m[31m([mI[31m+[m[35m3[m[31m),[m Top[31m+[m[35m1[m[31m))[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mI[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Op[31m.[mLabel[31m.[m[01;34mall[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([m[35m20[m[31m-[mOp[31m.[mLabel'Length[31m)[m [31m*[m [31m' '[m[31m))[m
					   [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_Op[31m))[m [31m&[m
					   Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_val[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([mOp[31m.[mSum[31m)));[m
			   
			[01;34mend[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  W_io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mApp[31m.[mLines[31m-[m[35m3[m[31m,[m Top[31m+[m[35m80[m[31m))[m [31m&[m [31m"Total : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([mApp[31m.[mBank[31m.[mTotal[31m)));[m
		  W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mApp[31m.[mLines[31m-[m[35m1[m[31m,[m Top[31m+[m[35m1[m[31m))[m [31m&[m [31m"Line : "[m [31m&[m Line[31m.[m[01;34mall[m[31m);[m
	       [01;34mend[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up [01;34mdo[m
		  [01;34mif[m Line_Index [31m-[m [31m(([mApp[31m.[mLines [31m-[m [35m5[m[31m)[m [31m/[m [35m2[m[31m)[m [31m>[m [35m0[m [01;34mthen[m
		     Line_Index [31m:=[m Line_Index [31m-[m [31m(([mApp[31m.[mLines [31m-[m [35m5[m[31m)[m [31m/[m [35m2[m[31m);[m
		  [01;34melse[m
		     Line_Index [31m:=[m [35m0[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m

		  [01;30mPut_Line[m[31m([m[01;30mPosition[m[31m([m[35m1[m[31m,[m Top[31m+[m[35m1[m[31m)[m [31m&[m [31m"Num op, Label,                  Date op,                Date val,                Sum"[m[31m);[m
		  [01;30mPut_Line[m[31m([m[01;30mPosition[m[31m([m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m)[m [31m&[m [31m"-------------------------------------------------------------------------------------------"[m[31m);[m
		  [01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [31m>[m [35m0[m [01;34mthen[m
		     
		     [01;34mfor[m I [01;34min[m [32mInteger[m'[01;30mMax[m[31m([mLine_Index[31m-([mApp[31m.[mLines[31m-[m[35m5[m[31m),[m [35m1[m[31m)..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [01;34mloop[m
			[01;34mdeclare[m
			   Op [31m:[m Operation_Record [31m:=[m [01;30mElement[m[31m([mApp[31m.[mBank[31m.[mList[31m,[m [32mInteger[m[31m([mI[31m));[m
			[01;34mbegin[m
			   W_Io[31m.[m[01;30mPut_Line[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([m[32mInteger[m[31m([mI[31m+[m[35m3[m[31m),[m Top[31m+[m[35m1[m[31m))[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mI[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Op[31m.[mLabel[31m.[m[01;34mall[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([m[35m20[m[31m-[mOp[31m.[mLabel'Length[31m)[m [31m*[m [31m' '[m[31m))[m
					   [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_Op[31m))[m [31m&[m
					   Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_val[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([mOp[31m.[mSum[31m)));[m
			   
			[01;34mend[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  W_io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mApp[31m.[mLines[31m-[m[35m3[m[31m,[m Top[31m+[m[35m80[m[31m))[m [31m&[m [31m"Total : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([mApp[31m.[mBank[31m.[mTotal[31m)));[m
		  W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mApp[31m.[mLines[31m-[m[35m1[m[31m,[m Top[31m+[m[35m1[m[31m))[m [31m&[m [31m"Line : "[m [31m&[m Line[31m.[m[01;34mall[m[31m);[m
	       [01;34mend[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Up_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m      
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  
		  Bank_Process[31m.[mTop [31m:=[m Top[31m;[m
		  [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
		  [01;30mDraw_Window[m[31m([mMain_Win[31m);[m

		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Num op, Label,                  Date op,                Date val,                Sum"[m[31m);[m
		  [01;30mDraw_Text[m[31m([mMain_Win[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"-------------------------------------------------------------------------------------------"[m[31m);[m
		  
		  [01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [31m>[m [35m0[m [01;34mthen[m
		     Line_Index [31m:=[m [32mInteger[m'[01;30mMin[m[31m([m[32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m)),[m App[31m.[mLines[31m-[m[35m5[m[31m);[m
		     [01;34mfor[m I [01;34min[m [32mInteger[m'[01;30mMax[m[31m([mLine_Index[31m-([mApp[31m.[mLines[31m-[m[35m5[m[31m),[m[35m1[m[31m)..[m[32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [01;34mloop[m
			[01;34mdeclare[m
			   Op [31m:[m Operation_Record [31m:=[m [01;30mElement[m[31m([mApp[31m.[mBank[31m.[mList[31m,[m [32mInteger[m[31m([mI[31m));[m
			[01;34mbegin[m
			   W_Io[31m.[m[01;30mPut_Line[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([m[32mInteger[m[31m([mI[31m+[m[35m3[m[31m),[m Top[31m+[m[35m1[m[31m))[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([mI[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Op[31m.[mLabel[31m.[m[01;34mall[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m((([m[35m20[m[31m-[mOp[31m.[mLabel'Length[31m)[m [31m*[m [31m' '[m[31m))[m
					   [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_Op[31m))[m [31m&[m
					   Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_val[31m))[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([mOp[31m.[mSum[31m)));[m
			   
			[01;34mend[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  W_io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mApp[31m.[mLines[31m-[m[35m3[m[31m,[m Top[31m+[m[35m80[m[31m))[m [31m&[m [31m"Total : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[32mFloat[m'[01;30mImage[m[31m([mApp[31m.[mBank[31m.[mTotal[31m)));[m
		  W_Io[31m.[m[01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mPosition[m[31m([mApp[31m.[mLines[31m-[m[35m1[m[31m,[m Top[31m+[m[35m1[m[31m))[m [31m&[m [31m"Line : "[m [31m&[m Line[31m.[m[01;34mall[m[31m);[m
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Bank process halted");[m
   [01;34mend[m Bank_Process[31m;[m
   
   [01;34msubtype[m Menu_Range [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[m[35m21[m[31m;[m
   
   [01;34mtype[m Menu_List [01;34mis[m [01;34marray[m [31m([mMenu_Range[31m)[m [01;34mof[m Os_Lib[31m.[mString_Access[31m;[m
   
   Main_Menu [31m:[m [01;34mconstant[m Menu_List [31m:=[m 
     
     [31m([m[01;34mnew[m [32mString[m ' [31m([m[31m"Projects menu"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m1[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m2[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m3[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m4[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m5[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m6[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m7[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m8[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m9[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m10[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m11[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m12[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m13[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m14[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m15[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m16[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m17[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m18[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m19[m[31m))),[m
      [01;34mnew[m [32mString[m ' [31m([mMode_Enum'[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m20[m[31m))));[m
   
   
   
   
   
   
   [01;34mtask[m [01;34mbody[m Menu_Process [01;34mis[m
      Menu_Index [31m:[m Menu_Range [31m:=[m [35m1[m[31m;[m
      
      [01;34msubtype[m Line_Type [01;34mis[m [32mString[m[31m([m[35m1[m[31m..[m[35m48[m[31m);[m
      
      Title [31m:[m Line_Type [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
      Item  [31m:[m Line_Type [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
      
      Menu_Win [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      
      
      [01;34mtype[m Project_List [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [35m1[m[31m..[mApp[31m.[mLines[31m-[m[35m8[m[31m)[m [01;34mof[m Os_Lib[31m.[mString_Access[31m;[m
      
      
      Project_Last [31m:[m natural [31m:=[m [35m0[m[31m;[m
      
      
      Projects_Menu [31m:[m Project_List [31m:=[m [31m([m[35m1[m [31m=>[m [01;34mnew[m [32mString[m ' [31m([m[31m"Main menu"[m[31m),[m [01;34mothers[m [31m=>[m [01;34mnull[m[31m);[m
      
      
      [01;34mprocedure[m [01;30mMenu_Print[m[31m([mWin [31m:[m [01;34min[m Window_Record[31m;[m Selected [31m:[m [01;34min[m Menu_Range[31m)[m [01;34mis[m
	 
      [01;34mbegin[m
	 
      	 [01;30mDraw_Window[m[31m([mWin[31m);[m
      	 Fixed[31m.[m[01;30mMove[m[31m([m[31m"Main menu"[m[31m,[m Title[31m,[m Error[31m,[m Left[31m);[m
      	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mTitle[31m));[m
	 
	 [01;34mfor[m Iter [01;34min[m Main_Menu'[01;34mRange[m [01;34mloop[m
	    Item [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
	    Fixed[31m.[m[01;30mMove[m[31m([m[01;30mMain_Menu[m[31m([mIter[31m).[m[01;34mall[m[31m,[m Item[31m,[m Error[31m,[m Left[31m);[m
	    [01;34mif[m Iter [31m/=[m Selected [01;34mthen[m
	       [01;30mDraw_Text[m[31m([mWin[31m,[m Iter[31m*[m[35m2[m[31m+[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mItem[31m));[m
	    [01;34melse[m
	       [01;30mEnlight_Draw_Text[m[31m([mWin[31m,[m Iter[31m*[m[35m2[m[31m+[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mItem[31m));[m
	       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
      [01;34mend[m Menu_Print[31m;[m
      
      
      [01;34mprocedure[m [01;30mProjects_Print[m[31m([mWin [31m:[m [01;34min[m Window_Record[31m;[m Selected [31m:[m [01;34min[m Positive[31m)[m [01;34mis[m
	 
      [01;34mbegin[m
	 
      	 [01;30mDraw_Window[m[31m([mWin[31m);[m
      	 Fixed[31m.[m[01;30mMove[m[31m([m[31m"Projects menu"[m[31m,[m Title[31m,[m Error[31m,[m Left[31m);[m
      	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mTitle[31m));[m
	 
	 [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mProject_Last [01;34mloop[m
	    
	    Item [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
	    
	    Fixed[31m.[m[01;30mMove[m[31m([m[01;30mProjects_Menu[m[31m([mIter[31m).[m[01;34mall[m[31m,[m Item[31m,[m Error[31m,[m Left[31m);[m
	    
	    [01;34mif[m Iter [31m/=[m Selected [01;34mthen[m
	       
	       [01;30mDraw_Text[m[31m([mWin[31m,[m Iter[31m*[m[35m2[m[31m+[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mItem[31m));[m
	       
	    [01;34melse[m
	       
	       [01;30mEnlight_Draw_Text[m[31m([mWin[31m,[m Iter[31m*[m[35m2[m[31m+[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mItem[31m));[m
	       
	       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
      [01;34mend[m Projects_Print[31m;[m
      
      
      
      
      
      Is_Projects [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      
   [01;34mbegin[m
      [01;30mInitialize[m[31m([mMenu_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      
  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34mwhen[m [01;34mnot[m Is_Projects [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			      [01;34mif[m Menu_Index [31m=[m [35m1[m [01;34mthen[m
				 [01;30mProjects_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
				 Is_Projects [31m:=[m True[31m;[m
			      [01;34melsif[m Menu_Index [31m/=[m [35m11[m [01;34mthen[m
				 App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m);[m
				 App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mFunctions[m[31m([mMenu_Index[31m-[m[35m1[m[31m);[m
				 App[31m.[mMode [31m:=[m Mode_Enum'[01;30mVal[m[31m([mMenu_Index[31m-[m[35m1[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m		  
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m
		  [01;34mif[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;34mcase[m App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[mName [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   [01;30mNone_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Log [31m=>[m
			   [01;30mLogs_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_Up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m MoneyBox [31m=>[m
			   [01;30mMoneybox_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Activity [31m=>[m
			   [01;30mActivity_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Stocks [31m=>[m
			   [01;30mStocks_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Bank [31m=>[m
			   [01;30mbank_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Planning [31m=>[m
			   [01;30mPlanning_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Library [31m=>[m
			   [01;30mLibrary_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Manager [31m=>[m
			   [01;30mManager_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Contacts [31m=>[m
			   [01;30mContacts_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Organizer [31m=>[m
			   [01;30mOrganizer_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Dialog [31m=>[m
			   [01;30mVbrain_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Navigation [31m=>[m
			   [01;30mMaster_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Engineer [31m=>[m
			   [01;30mEngine_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Devel [31m=>[m
			   [01;30mDevel_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Admin[31m=>[m
			   
			   [01;30mWOPR_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Terminator [31m=>[m
			   [01;30mWorkstation_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Joshua [31m=>[m
			   [01;30mSpace_Fighter_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Entreprise [31m=>[m
			   [01;30mPerson_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m
			[01;34mwhen[m Process [31m=>[m
			   [01;30mWorld_Record[m[31m([mApp[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m).[m[01;34mall[m[31m).[mProc[31m.[m[01;30mWake_up[m[31m([m[35m0[m[31m);[m

			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Is_Projects [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			      [01;34mif[m Menu_Index [31m=[m [35m1[m [01;34mthen[m				 
				 [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
				 Is_Projects [31m:=[m False[31m;[m				 
			      [01;34melse[m
				 
				 [01;34mdeclare[m
				    
				    Project_Name [31m:[m [32mString[m [31m:=[m [01;30mProjects_Menu[m[31m([mMenu_Index[31m).[m[01;34mall[m[31m([m[35m1[m[31m..[m[01;30mIndex[m[31m([m[01;30mProjects_Menu[m[31m([mMenu_Index[31m).[m[01;34mall[m[31m,[m [31m"-"[m[31m,[m Backward[31m)-[m[35m1[m[31m);[m
				    Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
				    Args [31m:[m Argument_List_Access[31m;[m
				    Args_String [31m:[m Os_Lib[31m.[mString_Access[31m;[m
				 [01;34mbegin[m
				    Text_Io[31m.[mNew_Line[31m;[m
				    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Program name : "[m [31m&[m [01;30mProjects_Menu[m[31m([mMenu_Index[31m).[m[01;34mall[m [31m&[m [31m"/bin/"[m [31m&[m Project_Name[31m);[m
				    Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Arguments :"[m[31m);[m
				    [01;34mbegin[m
				       Args_String [31m:=[m [01;34mnew[m [32mString[m ' [31m([mText_Io[31m.[mGet_Line[31m);[m
				       [01;34mbegin[m
					  Args [31m:=[m [01;30mArgument_String_To_List[m[31m([mArgs_String[31m.[m[01;34mall[m[31m);[m
					  [01;30mNormalize_Arguments[m[31m([mArgs[31m.[m[01;34mall[m[31m);[m
					  [01;30mChange_Dir[m[31m([m[01;30mProjects_Menu[m[31m([mMenu_Index[31m).[m[01;34mall[m[31m);[m	
					  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
					  [01;30mSpawn[m[31m([m[31m"bin/"[m [31m&[m Project_Name[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
					  [01;30mChange_Dir[m[31m([m[31m".."[m[31m);[m
				       [01;34mend[m[31m;[m
				    [01;34mexception[m
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  [01;34mnull[m[31m;[m
				    [01;34mend[m[31m;[m
				    [01;30mProjects_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
				 [01;34mend[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m		  
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m


	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m		  
		  Project_Last [31m:=[m [35m1[m[31m;[m
		  Menu_Index [31m:=[m [35m1[m[31m;[m
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
		  
		  Is_Projects [31m:=[m False[31m;[m
		  [01;34mdeclare[m
		     Curs [31m:[m Projects_Dll[31m.[mCursor [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
		  [01;34mbegin[m
		     [01;34mif[m [01;34mnot[m Projects_Dll[31m.[m[01;30mIs_Empty[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [01;34mthen[m
			Project_Last [31m:=[m [01;30mNatural[m[31m([mProjects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m));[m
			[01;34mfor[m Project [01;34min[m [35m1[m[31m..[mProjects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m)-[m[35m1[m [01;34mloop[m
			   [01;34mdeclare[m
			      E [31m:[m M[31m.[mProject[31m.[mProject_Access [31m:=[m Projects_Dll[31m.[m[01;30mElement[m[31m([mcurs[31m);[m
			   [01;34mbegin[m
			      
			      [01;34mif[m E [31m/=[m [01;34mnull[m [01;34mthen[m
				 [01;30mProjects_Menu[m[31m([m[32mInteger[m[31m([mProject[31m)+[m[35m1[m[31m)[m [31m:=[m 
				   [01;34mnew[m [32mString[m ' [31m([mE[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m
						   [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mE[31m.[mVersion[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mend[m[31m;[m
			   Projects_Dll[31m.[m[01;30mNext[m[31m([mCurs[31m);[m
			[01;34mend[m [01;34mloop[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m[31m;[m
		  
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m [01;34mnot[m Is_Projects [31m=>[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     [01;34mif[m Menu_Index [31m>[m [35m1[m [01;34mthen[m
			Menu_Index [31m:=[m Menu_Index [31m-[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Up_Arrow[31m;[m
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
	    [01;34mor[m
	       [01;34mwhen[m [01;34mnot[m Is_Projects [31m=>[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     [01;34mif[m Menu_Index [31m<[m Menu_Range'Last [01;34mthen[m
			Menu_Index [31m:=[m Menu_Index [31m+[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Down_Arrow[31m;[m
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
		  
	    [01;34mor[m
	       [01;34mwhen[m Is_Projects [31m=>[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     
		     [01;34mif[m Menu_Index [31m>[m [35m1[m [01;34mthen[m
			Menu_Index [31m:=[m Menu_Index [31m-[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Up_Arrow[31m;[m
		  [01;30mProjects_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
	    [01;34mor[m
	       [01;34mwhen[m Is_Projects [31m=>[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     [01;34mif[m Menu_Index [31m<[m Project_Last [01;34mthen[m
			Menu_Index [31m:=[m Menu_Index [31m+[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Down_Arrow[31m;[m
		  
		  [01;30mProjects_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
		  
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m      
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  Project_Last [31m:=[m [35m1[m[31m;[m
		  Menu_Index [31m:=[m [35m1[m[31m;[m
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
		  Is_Projects [31m:=[m False[31m;[m
		  [01;34mdeclare[m
		     Curs [31m:[m Projects_Dll[31m.[mCursor [31m:=[m [01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
		  [01;34mbegin[m
		     [01;34mif[m [01;34mnot[m Projects_Dll[31m.[m[01;30mIs_Empty[m[31m([mApp[31m.[mProjects[31m.[mList[31m)[m [01;34mthen[m
			Project_Last [31m:=[m [01;30mNatural[m[31m([mProjects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m));[m
			[01;34mfor[m Project [01;34min[m [35m1[m[31m..[mProjects_Dll[31m.[m[01;30mLength[m[31m([mApp[31m.[mProjects[31m.[mList[31m)-[m[35m1[m [01;34mloop[m
			   [01;34mdeclare[m
			      E [31m:[m M[31m.[mProject[31m.[mProject_Access [31m:=[m Projects_Dll[31m.[m[01;30mElement[m[31m([mCurs[31m);[m
			   [01;34mbegin[m
			      
			      [01;34mif[m E [31m/=[m [01;34mnull[m [01;34mthen[m
				 [01;30mProjects_Menu[m[31m([m[32mInteger[m[31m([mProject[31m)+[m[35m1[m[31m)[m [31m:=[m 
				   [01;34mnew[m [32mString[m ' [31m([mE[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m
						   [31m'-'[m [31m&[m [01;30mTo_String[m[31m([mE[31m.[mVersion[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mend[m[31m;[m
			   Projects_Dll[31m.[m[01;30mNext[m[31m([mCurs[31m);[m
			[01;34mend[m [01;34mloop[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m	    	       
	       [01;34mexit[m[31m;[m	       
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Menu process halted");[m
   [01;34mend[m Menu_Process[31m;[m

   
   [01;34mprocedure[m [01;30mHighlight_Contact_Draw[m [31m([mObj [31m:[m [01;34min[m Profile_Class[31m;[m Line [31m:[m [01;34min[m Positive[31m;[mWidth [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine[31m,[m Top[31m+[m[35m2[m[31m,[m [35m7[m[31m,[m Width[31m,[m Blue[31m,[m The_Window[31m);[m      
   [01;34mbegin[m
      
      [01;30mInitialize[m[31m([mWin[31m,[m Line[31m,[m Top[31m+[m[35m2[m[31m,[m [35m7[m[31m,[m Width[31m,[m Blue[31m,[m White[31m);[m
      [01;30mEnlight_Window[m[31m([mWin[31m);[m
      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m [31m&[m Obj[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Born : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mObj[31m.[mBorn[31m)));[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Addr : "[m [31m&[m Obj[31m.[mAddr[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Phone : "[m [31m&[m Obj[31m.[mPhone[31m.[m[01;34mall[m[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Email : "[m [31m&[m Obj[31m.[mEmail[31m.[m[01;34mall[m[31m);[m
      
   [01;34mend[m Highlight_Contact_Draw[31m;[m
   
   [01;34mprocedure[m [01;30mContact_Draw[m [31m([mObj [31m:[m [01;34min[m Profile_Class[31m;[m Line [31m:[m [01;34min[m Positive[31m;[mWidth [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine[31m,[m Top[31m+[m[35m2[m[31m,[m [35m7[m[31m,[m Width[31m,[m Blue[31m,[m The_Window[31m);[m      
   [01;34mbegin[m
      
      [01;30mInitialize[m[31m([mWin[31m,[m Line[31m,[m Top[31m+[m[35m2[m[31m,[m [35m7[m[31m,[m Width[31m,[m Blue[31m,[m White[31m);[m
      [01;30mDraw_Window[m[31m([mWin[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m [31m&[m Obj[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Born : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mObj[31m.[mBorn[31m)));[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Addr : "[m [31m&[m Obj[31m.[mAddr[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Phone : "[m [31m&[m Obj[31m.[mPhone[31m.[m[01;34mall[m[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Email : "[m [31m&[m Obj[31m.[mEmail[31m.[m[01;34mall[m[31m);[m
      
   [01;34mend[m Contact_Draw[31m;[m
   



   [01;34mprocedure[m [01;30mContacts_Draw[m [31m([mContacts [31m:[m [01;34min[m Abstract_Vectors[31m.[mVector[31m;[mIndex [31m:[m [01;34min[m Natural[31m;[m Width [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      
      Count [31m:[m Natural [31m:=[m [35m1[m[31m;[m
   [01;34mbegin[m
      
      [01;34mif[m Abstract_Vectors[31m.[m[01;30mIs_empty[m[31m([mContacts[31m)[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
     [01;34mfor[m Contact [01;34min[m Index[31m..[mnatural'[01;30mMin[m[31m([mIndex [31m+[m [31m([mApp[31m.[mLines[31m-[m[35m5[m[31m)[m [31m/[m [35m7[m[31m,[m [32mInteger[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mContacts[31m)))[m [01;34mloop[m
	 
	 [01;34mdeclare[m
	    E [31m:[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mContacts[31m,[m [01;30mAbstract_Index[m[31m([mContact[31m));[m
	    
	 [01;34mbegin[m
	    
	    [01;30mContact_Draw[m[31m([m[01;30mProfile_Class[m[31m([mE[31m.[m[01;34mall[m[31m),[m Count[31m+[m[35m1[m[31m,[m width[31m,[m Top[31m);[m
	    
	    
	    Count [31m:=[m Count [31m+[m [35m7[m[31m;[m
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m

   [01;34mend[m Contacts_Draw[31m;[m
   
   
   
   
   
   
   [01;34mprocedure[m [01;30mTo_contacts[m [31m([mObj [31m:[m [01;34min[m Abstract_Access[31m;[mVector [31m:[m [01;34min[m [01;34mout[m Abstract_Vectors[31m.[mVector[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Obj [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Obj[31m.[m[01;34mall[m [01;34min[m Profile_Class [01;34mthen[m
	 Vector [31m:=[m Vector [31m&[m Obj[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mObj[31m.[mChilds[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	 [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mObj[31m.[mChilds[31m)[m [01;34mloop[m
	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mObj[31m.[mChilds[31m,[m [01;30mAbstract_Index[m[31m([mChild[31m));[m
	    [01;34mbegin[m
	       [01;30mTo_Contacts[m[31m([mE[31m,[m Vector[31m);[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m To_Contacts[31m;[m
   
   [01;34mfunction[m [01;30mName_Inf[m [31m([mLeft[31m,[m Right [31m:[m [01;34min[m Abstract_Access[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
   [01;34mbegin[m
      
      [01;34mif[m Left [31m=[m [01;34mnull[m [01;34mor[m Right [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mraise[m Program_Error[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Left[31m.[mInfo[31m.[mName [31m=[m [01;34mnull[m [01;34mor[m Right[31m.[mInfo[31m.[mName [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mraise[m Program_Error[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m Left[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m<[m Right[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m[31m;[m
   [01;34mend[m Name_inf[31m;[m
   
   [01;34mpackage[m Name_Sorting [01;34mis[m [01;34mnew[m Abstract_Vectors[31m.[m[01;30mGeneric_Sorting[m[31m([mName_inf[31m);[m
   

   [01;34mtask[m [01;34mbody[m Contacts_Process [01;34mis[m
      
      Main_Win [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m The_Window[31m);[m
      
      Contacts [31m:[m Abstract_Vectors[31m.[mVector[31m;[m
      Contact_Index [31m:[m Natural [31m:=[m [35m1[m[31m;[m

      
      
      
   [01;34mbegin[m
  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
		  
		  [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
		  
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  
		  Contacts [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m
		  
		  [01;30mTo_Contacts[m[31m([mApp[31m.[mTerminal[31m.[mRoot[31m,[m Contacts[31m);[m
		  
		  Contact_Index [31m:=[m [35m1[m[31m;[m
		  [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mContacts[31m)[m [31m/=[m [35m0[m [01;34mthen[m
		     
		     Name_Sorting[31m.[m[01;30mSort[m[31m([mContacts[31m);[m
		     
		     
		     [01;30mContacts_Draw[m[31m([mContacts[31m,[m Contact_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  [01;34mIf[m Contact_Index [31m>[m [35m1[m [01;34mthen[m
		     Contact_Index [31m:=[m Contact_Index [31m-[m [35m1[m[31m;[m
		     [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
		     
		     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		     
		     [01;30mContacts_Draw[m[31m([mContacts[31m,[m Contact_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m0[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  

	       [01;34mend[m Up_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mContacts[31m)[m [31m/=[m [35m0[m [01;34mthen[m
		     [01;34mif[m Contact_Index [31m+[m [35m1[m [31m<[m [32mInteger[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mContacts[31m))[m [01;34mthen[m
			Contact_Index [31m:=[m Contact_Index [31m+[m [35m1[m[31m;[m
			[01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
			
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			
			[01;30mContacts_Draw[m[31m([mContacts[31m,[m Contact_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m0[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m      
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
		  
		  [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
		  
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  
		  Contacts [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m
		  
		  [01;30mTo_Contacts[m[31m([mApp[31m.[mTerminal[31m.[mRoot[31m,[m Contacts[31m);[m
		  
		  Contact_Index [31m:=[m [35m1[m[31m;[m
		  [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mContacts[31m)[m [31m/=[m [35m0[m [01;34mthen[m
		     
		     Name_Sorting[31m.[m[01;30mSort[m[31m([mContacts[31m);[m
		     
		     
		     [01;30mContacts_Draw[m[31m([mContacts[31m,[m Contact_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
		  
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Contacts process halted");[m
   [01;34mend[m Contacts_Process[31m;[m
   
   
   [31m---------------------------------------------------------[m
   [31m--                  Menu library                       --[m
   [01;34mtype[m Library_Step_Enum [01;34mis[m [31m([mMenu[31m,[m Rent[31m,[m Back[31m,[m List[31m);[m
   
   
   
   [01;34msubtype[m Line_Type [01;34mis[m [32mString[m[31m([m[35m1[m[31m..[m[35m48[m[31m);[m
   Title [31m:[m Line_Type [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
   Item  [31m:[m Line_Type [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
   
   Menu_Win [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
   
   
   [01;34mprocedure[m [01;30mMenu_Print[m[31m([mWin [31m:[m [01;34min[m Window_Record[31m;[m Selected [31m:[m [01;34min[m Library_step_Enum[31m)[m [01;34mis[m
      
   [01;34mbegin[m
      
      [01;30mDraw_Window[m[31m([mWin[31m);[m
      
      Fixed[31m.[m[01;30mMove[m[31m([m[31m"Library menu"[m[31m,[m Title[31m,[m Error[31m,[m Left[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mTitle[31m));[m      
      
      [01;34mfor[m Iter [01;34min[m Library_step_Enum'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m..[m Library_Step_Enum'Last [01;34mloop[m
	 Item [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
	 Fixed[31m.[m[01;30mMove[m[31m([mLibrary_Step_Enum'[01;30mImage[m[31m([mIter[31m),[m Item[31m,[m Error[31m,[m Left[31m);[m
	 
	 [01;34mif[m Iter [31m/=[m Selected [01;34mthen[m
	    
	    [01;30mDraw_Text[m[31m([mWin[31m,[m Library_step_Enum'[01;30mPos[m[31m([mIter[31m)*[m[35m2[m[31m+[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mItem[31m));[m
	    
	 [01;34melse[m
	    
	    [01;30mEnlight_Draw_Text[m[31m([mWin[31m,[m Library_step_Enum'[01;30mPos[m[31m([mIter[31m)*[m[35m2[m[31m+[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mItem[31m));[m
	    
	    Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      
   [01;34mend[m Menu_Print[31m;[m
      
   [31m------------------------------------------------------------------------------------------------------------------[m
   [31m--                                                                                                              --[m
   [01;34mprocedure[m [01;30mHighlight_Media_Draw[m [31m([mObj [31m:[m Abstract_Access[31m;[m Line [31m:[m [01;34min[m Positive[31m;[mWidth [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine[31m,[m Top[31m+[m[35m2[m[31m,[m [35m4[m[31m,[m Width[31m,[m Blue[31m,[m The_Window[31m);[m      
   [01;34mbegin[m
      
      [01;30mInitialize[m[31m([mWin[31m,[m Line[31m,[m Top[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m Width[31m,[m Blue[31m,[m White[31m);[m
      [01;30mEnlight_Window[m[31m([mWin[31m);[m
      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Title : "[m [31m&[m Obj[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author : "[m [31m&[m Obj[31m.[mAuthor[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Editor : "[m [31m&[m Obj[31m.[mEditor[31m.[m[01;34mall[m[31m);[m
      
      
   [01;34mend[m Highlight_Media_Draw[31m;[m
   
   [01;34mprocedure[m [01;30mMedia_Draw[m [31m([mObj [31m:[m Abstract_Access[31m;[m Line [31m:[m [01;34min[m Positive[31m;[mWidth [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      Win [31m:[m Window_Record [31m:=[m [31m([mLine[31m,[m Top[31m+[m[35m2[m[31m,[m [35m4[m[31m,[m Width[31m,[m Blue[31m,[m The_Window[31m);[m      
   [01;34mbegin[m
      
      [01;30mInitialize[m[31m([mWin[31m,[m Line[31m,[m Top[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m Width[31m,[m Blue[31m,[m White[31m);[m
      [01;30mDraw_Window[m[31m([mWin[31m);[m

      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Title : "[m [31m&[m Obj[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m[31m);[m
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author : "[m [31m&[m Obj[31m.[mAuthor[31m.[m[01;34mall[m[31m);[m
      
      [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Editor : "[m [31m&[m Obj[31m.[mEditor[31m.[m[01;34mall[m[31m);[m
      
   [01;34mend[m Media_Draw[31m;[m
   


   [01;34mprocedure[m [01;30mLibrary_Draw[m [31m([mLibrary [31m:[m [01;34min[m Abstract_Vectors[31m.[mVector[31m;[mLine [31m:[m [01;34min[m Positive[31m;[m Index [31m:[m [01;34min[m Natural[31m;[m Width [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      
      Count [31m:[m Natural [31m:=[m [35m1[m[31m;[m
   [01;34mbegin[m
      
      [01;34mif[m Abstract_Vectors[31m.[m[01;30mIs_empty[m[31m([mLibrary[31m)[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mfor[m Media [01;34min[m Index[31m..[mnatural'[01;30mMin[m[31m([mIndex [31m+[m [31m([mApp[31m.[mLines[31m-[m[35m5[m[31m)[m [31m/[m [35m5[m[31m,[m [32mInteger[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mLibrary[31m)))[m [01;34mloop[m

	 [01;34mdeclare[m
	    E [31m:[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mLibrary[31m,[m [01;30mAbstract_Index[m[31m([mMedia[31m));[m
	    
	 [01;34mbegin[m

	    [01;34mif[m Media [31m=[m line [01;34mthen[m

	       [01;30mHighlight_Media_Draw[m[31m([mE[31m,[m Count[31m+[m[35m1[m[31m,[m width[31m,[m Top[31m);[m

	    [01;34melse[m

	       [01;30mMedia_Draw[m[31m([mE[31m,[m Count[31m+[m[35m1[m[31m,[m width[31m,[m Top[31m);[m

	    [01;34mend[m [01;34mif[m[31m;[m
	    Count [31m:=[m Count [31m+[m [35m5[m[31m;[m
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m

   [01;34mend[m Library_Draw[31m;[m
   
   [01;34mprocedure[m [01;30mList_Draw[m [31m([mLibrary [31m:[m [01;34min[m Abstract_Vectors[31m.[mVector[31m;[mLine [31m:[m [01;34min[m Positive[31m;[m Index [31m:[m [01;34min[m Natural[31m;[m Width [31m:[m [01;34min[m Positive[31m;[m Top [31m:[m [01;34min[m Natural[31m)[m [01;34mis[m
      
      Count [31m:[m Natural [31m:=[m [35m1[m[31m;[m
   [01;34mbegin[m
      
      [01;34mif[m Abstract_Vectors[31m.[m[01;30mIs_empty[m[31m([mLibrary[31m)[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mfor[m Media [01;34min[m Index[31m..[mnatural'[01;30mMin[m[31m([mIndex [31m+[m [31m([mApp[31m.[mLines[31m-[m[35m5[m[31m)[m [31m/[m [35m5[m[31m,[m [32mInteger[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mLibrary[31m)))[m [01;34mloop[m
	 
	 [01;34mdeclare[m
	    E [31m:[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mLibrary[31m,[m [01;30mAbstract_Index[m[31m([mMedia[31m));[m
	    
	 [01;34mbegin[m

	    [01;34mif[m Media [31m=[m line [01;34mthen[m

	       [01;30mHighlight_Media_Draw[m[31m([mE[31m,[m Count[31m+[m[35m1[m[31m,[m width[31m,[m Top[31m);[m

	    [01;34melse[m

	       [01;30mMedia_Draw[m[31m([mE[31m,[m Count[31m+[m[35m1[m[31m,[m width[31m,[m Top[31m);[m
	       
	    [01;34mend[m [01;34mif[m[31m;[m
	    Count [31m:=[m Count [31m+[m [35m5[m[31m;[m
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m

   [01;34mend[m List_Draw[31m;[m

   
   
   [01;34mprocedure[m [01;30mTo_Library[m [31m([mObj [31m:[m [01;34min[m Abstract_Access[31m;[mVector [31m:[m [01;34min[m [01;34mout[m Abstract_Vectors[31m.[mVector[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Obj [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      [01;34mif[m Obj[31m.[m[01;34mall[m [01;34min[m DVD_Class [31m|[m CDROM_Class [31m|[m Book_Class [01;34mthen[m
	 
	 [01;34mif[m Obj[31m.[mOwner [31m=[m [35m0[m [01;34mthen[m
	    
	    Vector [31m:=[m Vector [31m&[m Obj[31m;[m
	    
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mObj[31m.[mChilds[31m)[m [31m>=[m [35m1[m [01;34mthen[m

	 [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mObj[31m.[mChilds[31m)[m [01;34mloop[m

	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mObj[31m.[mChilds[31m,[m [01;30mAbstract_Index[m[31m([mChild[31m));[m
	    [01;34mbegin[m

	       

	       

	       [01;30mTo_Library[m[31m([mE[31m,[m Vector[31m);[m

	       
	       
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m

      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m To_Library[31m;[m
   
   [01;34mprocedure[m [01;30mTo_List[m [31m([mObj [31m:[m [01;34min[m Abstract_Access[31m;[mVector [31m:[m [01;34min[m [01;34mout[m Abstract_Vectors[31m.[mVector[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Obj [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mif[m Obj[31m.[m[01;34mall[m [01;34min[m DVD_Class [31m|[m CDROM_Class [31m|[m Book_Class [01;34mthen[m

	 [01;34mif[m Obj[31m.[mOwner [31m/=[m [35m0[m [01;34mthen[m

	    Vector [31m:=[m Vector [31m&[m Obj[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mObj[31m.[mChilds[31m)[m [31m>=[m [35m1[m [01;34mthen[m

	 [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mObj[31m.[mChilds[31m)[m [01;34mloop[m

	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mObj[31m.[mChilds[31m,[m [01;30mAbstract_Index[m[31m([mChild[31m));[m
	    [01;34mbegin[m
	       

	       [01;30mTo_List[m[31m([mE[31m,[m Vector[31m);[m

	       
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m

      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m To_List[31m;[m

   
   [01;34mfunction[m [01;30mNew_Wide_String[m [31m([mTitle [31m:[m [01;34min[m [32mWide_String[m[31m;[m
   			     Label [31m:[m [01;34min[m [32mWide_String[m[31m;[m
   			     Length [31m:[m [01;34min[m Positive[31m;[m
   			     Line[31m,[m Col [31m:[m [01;34min[m Positive[31m;[m
   			     Print [31m:[m [01;34min[m [32mBoolean[m[31m)[m [01;34mreturn[m [32mWide_String[m [01;34mis[m
      
      Line_Win [31m:[m Ansi_Windows[31m.[mWindow_Type [31m:=[m 
   	[31m([mLine[31m,[m Col[31m,[m [35m5[m[31m,[m Label'Length[31m+[m[35m3[m[31m+[mLength[31m+[m[35m4[m[31m,[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m Cyan[31m,[m Yellow[31m);[m
      Wline     [31m:[m M[31m.[mStrings[31m.[mWide_String_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Buff     [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
      Wchar    [31m:[m Wide_Character [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
   [01;34mbegin[m
      [01;34mloop[m
   	 Ansi_Windows[31m.[m[01;30mDraw_Window[m[31m([mline_Win[31m);[m
   	 Ansi_Windows[31m.[m[01;30mDraw[m[31m([mline_Win[31m,[m [35m1[m[31m,[m Line_Win[31m.[mW[31m/[m[35m2[m[31m-[mTitle'length[31m/[m[35m2[m[31m,[m yellow[31m,[m Title[31m);[m
   	 Ansi_Windows[31m.[m[01;30mDraw[m[31m([mline_Win[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m cyan[31m,[m Label[31m);[m   	 
   	 [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
   	   Wline'Length [31m>[m [35m0[m [01;34mthen[m
   	    [01;34mif[m Print [01;34mthen[m
   	       Ansi_Windows[31m.[m[01;30mDraw[m[31m([mline_Win[31m,[m [35m2[m[31m,[m [35m2[m[31m+[mLabel'Length[31m,[m white[31m,[m Wline[31m.[m[01;34mall[m[31m);[m
   	    [01;34melse[m
   	       Ansi_Windows[31m.[m[01;30mDraw[m[31m([mline_Win[31m,[m [35m2[m[31m,[m [35m2[m[31m+[mLabel'Length[31m,[m red[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m(([mWline'Length [31m*[m [31m'*'[m[31m)));[m
   	    [01;34mend[m [01;34mif[m[31m;[m
   	 [01;34mend[m [01;34mif[m[31m;[m
   	 W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
   	 [01;34mif[m [01;30mIs_control[m[31m([mWchar[31m)[m [01;34mthen[m	    
   	    [01;34mcase[m Wchar [01;34mis[m
   	       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
   		  [01;34mexit[m[31m;[m
   	       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m
   		  [01;34mnull[m[31m;[m
   	       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m=>[m
   		  [01;34mraise[m W_Io[31m.[mEnd_Error[31m;[m
   	       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
   		  [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
   		    Wline'Length [31m>[m [35m0[m [01;34mthen[m
   		     Buff [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mWline[m[31m([mWline'First[31m..[mWline'Last[31m-[m[35m1[m[31m));[m		     
   		     [01;30mWide_Free[m[31m([mWline[31m);[m
   		     Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mBuff[31m.[m[01;34mall[m[31m);[m
   		     [01;30mWide_Free[m[31m([mBuff[31m);[m		     
   		  [01;34melse[m
   		     W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
   		  [01;34mend[m [01;34mif[m[31m;[m
   	       [01;34mwhen[m [01;34mothers[m [31m=>[m
   		  [01;34mnull[m[31m;[m
   	    [01;34mend[m [01;34mcase[m[31m;[m

   	 [01;34melse[m
   	    [01;34mif[m Wline [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
   	      Wline'Length [31m>=[m Length [01;34mthen[m
   	       W_Io[31m.[m[01;30mPut[m[31m([mWide_Character'[01;30mVal[m[31m([m[35m7[m[31m));[m
   	    [01;34melse[m
   	       Buff [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mWline[31m.[m[01;34mall[m [31m&[m Wchar[31m);[m
   	       [01;30mWide_Free[m[31m([mWline[31m);[m
   	       Wline [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mBuff[31m.[m[01;34mall[m[31m);[m
   	       [01;30mWide_Free[m[31m([mBuff[31m);[m
   	    [01;34mend[m [01;34mif[m[31m;[m
   	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mreturn[m Wline[31m.[m[01;34mall[m[31m;[m
   [01;34mend[m New_Wide_String[31m;[m

	       
   [01;34mtype[m Library_Mode_Enum [01;34mis[m [31m([mNone[31m,[m Contact[31m,[m Media[31m);[m
   

   [01;34mtask[m [01;34mbody[m Library_Process [01;34mis[m
      
      Main_Win [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m The_Window[31m);[m
      
      
      Library [31m:[m Abstract_Vectors[31m.[mVector[31m;[m
      Media_Index [31m:[m Natural [31m:=[m [35m1[m[31m;[m
      Line        [31m:[m Natural [31m:=[m [35m1[m[31m;[m
      Top         [31m:[m natural [31m:=[m [35m1[m[31m;[m
      Step [31m:[m Library_Step_Enum [31m:=[m Menu[31m;[m
      Menu_Index [31m:[m Natural [31m:=[m [35m1[m[31m;[m
      
      Contacts [31m:[m Abstract_Vectors[31m.[mVector[31m;[m
      Contact_Index [31m:[m Natural [31m:=[m [35m1[m[31m;[m
      Library_Mode [31m:[m Library_Mode_Enum [31m:=[m None[31m;[m
      
   [01;34mbegin[m
      
  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34mwhen[m Step [31m=[m Menu [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			      [01;34mcase[m Menu_Index [01;34mis[m
				 [01;34mwhen[m [35m1[m [31m=>[m
				    [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
				    
				    [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
				    
				    Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				    
				    Library [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m

				    [01;30mTo_Library[m[31m([mApp[31m.[mTerminal[31m.[mRoot[31m,[m Library[31m);[m

				   Media_Index [31m:=[m [35m1[m[31m;[m
				   [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mLibrary[31m)[m [31m/=[m [35m0[m [01;34mthen[m

				      [01;30mLibrary_Draw[m[31m([mLibrary[31m,[m Line[31m,[m Media_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m


				   [01;34mend[m [01;34mif[m[31m;[m
				   Step [31m:=[m Rent[31m;[m
				   Library_Mode [31m:=[m Media[31m;[m
				 [01;34mwhen[m [35m2[m [31m=>[m
				    
				    [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
				    
				    [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
				    
				    Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				    
				    
				    Contact_Index [31m:=[m [35m1[m[31m;[m
				    [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mContacts[31m)[m [31m/=[m [35m0[m [01;34mthen[m
				       
				       Name_Sorting[31m.[m[01;30mSort[m[31m([mContacts[31m);[m
				       
				       
				       [01;30mContacts_Draw[m[31m([mContacts[31m,[m Contact_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m
				       
				    [01;34mend[m [01;34mif[m[31m;[m
				    Step [31m:=[m Back[31m;[m
				    Library_Mode [31m:=[m Contact[31m;[m
				 [01;34mwhen[m [35m3[m [31m=>[m
				   [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
				   
				   [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
				   
				   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				   
				   Library [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m
				   
				   [01;30mTo_List[m[31m([mApp[31m.[mTerminal[31m.[mRoot[31m,[m Library[31m);[m
				   
				   Media_Index [31m:=[m [35m1[m[31m;[m
				   Step [31m:=[m List[31m;[m
				   Library_Mode [31m:=[m Media[31m;[m
				   [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mLibrary[31m)[m [31m/=[m [35m0[m [01;34mthen[m
				      
				      
				      
				      
				      
				      [01;30mList_Draw[m[31m([mLibrary[31m,[m Line[31m,[m Media_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m
				      
				   [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mwhen[m [01;34mothers[m [31m=>[m
				    [01;34mnull[m[31m;[m
			     [01;34mend[m [01;34mcase[m[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Step [31m=[m Rent [01;34mand[m Library_Mode [31m=[m Media [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m			      
			      App[31m.[mRented [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mLibrary[31m,[m [01;30mAbstract_Index[m[31m([mline[31m));[m
			      [01;34mif[m App[31m.[mRented[31m.[mOwner [31m=[m [35m0[m [01;34mthen[m
				 [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
				 
				 [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
				 
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 
				 Contacts [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m
				 
				 [01;30mTo_Contacts[m[31m([mApp[31m.[mTerminal[31m.[mRoot[31m,[m Contacts[31m);[m
				 
				 Contact_Index [31m:=[m [35m1[m[31m;[m
				 [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mContacts[31m)[m [31m/=[m [35m0[m [01;34mthen[m
				    
				    Name_Sorting[31m.[m[01;30mSort[m[31m([mContacts[31m);[m
				    
				    
				    [01;30mContacts_Draw[m[31m([mContacts[31m,[m Contact_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m
				    
				 [01;34mend[m [01;34mif[m[31m;[m
				 
				 Library_Mode [31m:=[m Contact[31m;[m
			      [01;34melse[m
				 [01;34mdeclare[m				    
				    Seq [31m:[m [32mWide_String[m [31m:=[m [01;30mNew_Wide_String[m [31m([mTitle [31m=>[m [31m"Media not avaible"[m[31m,[m
									  Label [31m=>[m [31m"Press ""enter"" to continue"[m[31m,[m
									  Length [31m=>[m [35m2[m[31m,[m
									  Line [31m=>[m [35m3[m[31m,[m Col [31m=>[m [35m3[m[31m,[m
									  Print [31m=>[m True[31m);[m
				 [01;34mbegin[m
				    [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
				   
				   [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
				   
				   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				   
				   Library [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m
				   
				   [01;30mTo_Library[m[31m([mApp[31m.[mTerminal[31m.[mRoot[31m,[m Library[31m);[m
				   
				   Media_Index [31m:=[m [35m1[m[31m;[m
				   [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mLibrary[31m)[m [31m/=[m [35m0[m [01;34mthen[m

				      [01;30mLibrary_Draw[m[31m([mLibrary[31m,[m Line[31m,[m Media_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m

				   [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m

			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Step [31m=[m Rent [01;34mand[m Library_Mode [31m=[m Contact [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			      
			      App[31m.[mOwner [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mContacts[31m,[m [01;30mAbstract_Index[m[31m([mContact_Index[31m));[m
			      
			      App[31m.[mRented[31m.[mOwner [31m:=[m App[31m.[mOwner[31m.[mId[31m;[m
			      [01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
			      Library_Mode [31m:=[m None[31m;[m
			      Step [31m:=[m Menu[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m

		  		  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
		  
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Library_Step_Enum'[01;30mVal[m[31m([mMenu_Index[31m));[m
	    [01;34mor[m
	       [01;34mwhen[m Step [31m=[m Back [01;34mand[m Library_Mode [31m=[m Contact [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			      App[31m.[mOwner [31m:=[m [01;30mElement[m[31m([mContacts[31m,[m [01;30mAbstract_Index[m[31m([mContact_Index[31m));[m
			      Library_Mode [31m:=[m Media[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m
		  [01;30mInitialize[m[31m([mMain_Win[31m,[m [35m1[m[31m,[m TOP[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m-[m[35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m Cyan[31m);[m
		  
		  [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
		  
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  
		  Library [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m

		  [01;30mTo_List[m[31m([mApp[31m.[mTerminal[31m.[mRoot[31m,[m Library[31m);[m

		  Media_Index [31m:=[m [35m1[m[31m;[m
		  
		  [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mLibrary[31m)[m [31m/=[m [35m0[m [01;34mthen[m
		     

		     
		     
		     [01;30mList_Draw[m[31m([mLibrary[31m,[m Line[31m,[m Media_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m

		  [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Step [31m=[m Back [01;34mand[m Library_Mode [31m=[m Media [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m

			      App[31m.[mRented [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mLibrary[31m,[m [01;30mAbstract_Index[m[31m([mline[31m));[m

			      [01;34mif[m App[31m.[mRented[31m.[mOwner [31m=[m App[31m.[mOwner[31m.[mId [01;34mthen[m
				 
				 App[31m.[mRented[31m.[mowner [31m:=[m [35m0[m[31m;[m
				 [01;30mSave[m[31m([mApp[31m.[mTerminal[31m.[mroot[31m,[m Organizer_Filename[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			      Library_Mode [31m:=[m None[31m;[m
			      Step [31m:=[m Menu[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m

		  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m

		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Library_Step_Enum'[01;30mVal[m[31m([mMenu_Index[31m));[m
	    [01;34mor[m
	       [01;34mwhen[m Step [31m=[m List [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		    [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			      
			      App[31m.[mRented [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mLibrary[31m,[m [01;30mAbstract_Index[m[31m([mline[31m));[m
			      [01;34mif[m [01;34mnot[m [31m([mAbstract_Vectors[31m.[m[01;30mlength[m[31m([mLibrary[31m)[m [31m=[m [35m0[m[31m)[m [01;34mthen[m
				 [01;34mfor[m Owner [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mContacts[31m)[m [01;34mloop[m
				    [01;34mdeclare[m
				       E [31m:[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mContacts[31m,[m [01;30mAbstract_Index[m[31m([mOwner[31m));[m
				    [01;34mbegin[m
				       [01;34mif[m App[31m.[mRented[31m.[mOwner [31m=[m E[31m.[mId [01;34mthen[m
					  [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
			   
					  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
					  
					  [01;30mContacts_Draw[m[31m([mContacts[31m,[m [32mInteger[m[31m([mOwner[31m),[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m0[m[31m);[m
					  [01;34mexit[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mend[m[31m;[m
				 [01;34mend[m [01;34mloop[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			      Library_Mode [31m:=[m None[31m;[m
			      Step [31m:=[m Menu[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m  
		  [01;34mend[m Receive[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [01;30mInitialize[m[31m([mMenu_Win[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		  Library_Process[31m.[mTop [31m:=[m Top[31m;[m
		  Contacts [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m
		  [01;30mTo_Contacts[m[31m([mApp[31m.[mTerminal[31m.[mRoot[31m,[m Contacts[31m);[m
		  
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Library_step_Enum'[01;30mVal[m[31m([mMenu_Index[31m));[m
		  Step [31m:=[m Menu[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Refresh[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Library_Mode [31m=[m Contact [31m=>[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     [01;34mIf[m Contact_Index [31m>[m [35m1[m [01;34mthen[m
			Contact_Index [31m:=[m Contact_Index [31m-[m [35m1[m[31m;[m
			[01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
			
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			
			[01;30mContacts_Draw[m[31m([mContacts[31m,[m Contact_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m0[m[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		     
		  [01;34mend[m Up_Arrow[31m;[m
		  
	    [01;34mor[m
	       [01;34mwhen[m Library_Mode [31m=[m Contact [31m=>[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     [01;34mif[m Abstract_Vectors[31m.[m[01;30mLength[m[31m([mContacts[31m)[m [31m/=[m [35m0[m [01;34mthen[m
			[01;34mif[m Contact_Index [31m+[m [35m1[m [31m<=[m [32mInteger[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mContacts[31m))[m [01;34mthen[m
			   Contact_Index [31m:=[m Contact_Index [31m+[m [35m1[m[31m;[m
			   [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
			   
			   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			   
			   [01;30mContacts_Draw[m[31m([mContacts[31m,[m Contact_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m0[m[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Down_Arrow[31m;[m
		  
	    [01;34mor[m	       
	       [01;34mwhen[m Step [31m=[m Menu [31m=>[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     [01;34mif[m Menu_Index [31m>[m [35m0[m [01;34mthen[m
			Menu_Index [31m:=[m Menu_Index [31m-[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
		     [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Library_Step_Enum'[01;30mVal[m[31m([mMenu_Index[31m));[m
		  [01;34mend[m up_arrow[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Step [31m=[m Menu [31m=>[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     [01;34mif[m Menu_Index [31m<[m Library_Step_Enum'[01;30mPos[m[31m([mLibrary_step_Enum'Last[31m)[m [01;34mthen[m
			Menu_Index [31m:=[m Menu_Index [31m+[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
		     [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Library_Step_Enum'[01;30mVal[m[31m([mMenu_Index[31m));[m
		  [01;34mend[m Down_Arrow[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Step [31m/=[m List [01;34mand[m Library_Mode [31m=[m Media [31m=>[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     [01;34mif[m Line [31m-[m Media_Index [31m>[m [35m1[m [01;34mthen[m
			Line [31m:=[m Line [31m-[m [35m1[m[31m;[m
		     [01;34melsif[m Media_Index [31m>[m [35m1[m [01;34mthen[m
			Line [31m:=[m Line [31m-[m [35m1[m[31m;[m
			Media_Index [31m:=[m Media_Index [31m-[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
		     
		     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		     
		     [01;30mLibrary_Draw[m[31m([mLibrary[31m,[m Line[31m,[m Media_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m
		  [01;34mend[m Up_Arrow[31m;[m
		  
	    [01;34mor[m
	       [01;34mwhen[m Step [31m/=[m List [01;34mand[m Library_Mode [31m=[m Media [31m=>[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     [01;34mif[m Line [31m+[m [35m1[m [31m<=[m [32mInteger[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mLibrary[31m))[m [01;34mand[m [01;34mthen[m [31m([mMedia_Index [31m+[m [31m(([mApp[31m.[mLines[31m-[m[35m5[m[31m)[m [31m/[m [35m5[m[31m))[m [31m-[m Line [31m<[m  [32mInteger[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mLibrary[31m))[m [01;34mthen[m
			Line [31m:=[m Line [31m+[m [35m1[m[31m;[m
		     [01;34melsif[m Media_Index [31m+[m [31m(([mApp[31m.[mLines[31m-[m[35m5[m[31m)[m [31m/[m [35m5[m[31m)[m [31m<=[m [32mInteger[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mLibrary[31m))[m [01;34mthen[m
			Line [31m:=[m Line [31m+[m [35m1[m[31m;[m
			Media_Index [31m:=[m Media_Index [31m+[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
		     
		     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		     
		     [01;30mLibrary_Draw[m[31m([mLibrary[31m,[m Line[31m,[m Media_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m Top[31m);[m
		  [01;34mend[m Down_Arrow[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Step [31m=[m List [31m=>[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     [01;34mif[m Line [31m>[m [35m1[m [01;34mthen[m
			Line [31m:=[m Line [31m-[m [35m1[m[31m;[m
		     [01;34melse[m
			Media_Index [31m:=[m Media_Index [31m-[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
		     
		     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		     
		     [01;30mList_Draw[m[31m([mApp[31m.[mList[31m,[m Line[31m,[m Media_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m0[m[31m);[m
		     
		  [01;34mend[m Up_Arrow[31m;[m
		  
	    [01;34mor[m
	       [01;34mwhen[m Step [31m=[m List [31m=>[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     [01;34mif[m Line [31m<[m [31m(([mApp[31m.[mLines[31m-[m[35m5[m[31m)[m [31m/[m [35m5[m[31m)[m [01;34mthen[m
			Line [31m:=[m Line [31m+[m [35m1[m[31m;[m
		     [01;34melse[m
			
			Media_Index [31m:=[m Media_Index [31m+[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;30mEnlight_Window[m[31m([mMain_Win[31m);[m
		     
		     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		     
		     [01;30mList_Draw[m[31m([mApp[31m.[mList[31m,[m Line[31m,[m Media_Index[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m,[m [35m0[m[31m);[m
		  [01;34mend[m Down_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Full_Screen[31m;[m

	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [01;30mInitialize[m[31m([mMenu_Win[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
		  Library_Process[31m.[mTop [31m:=[m Top[31m;[m
		  
		  Contacts [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m
		  [01;30mTo_Contacts[m[31m([mApp[31m.[mTerminal[31m.[mRoot[31m,[m Contacts[31m);[m
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Library_Step_Enum'[01;30mVal[m[31m([mMenu_Index[31m));[m
		  Step [31m:=[m Menu[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Library process halted");[m
   [01;34mend[m Library_Process[31m;[m
   
   
   
   [01;34muse[m Element_Vectors[31m;[m
   
   [01;34mtype[m Element_Cmd_Enum [01;34mis[m [31m([mNull_Cmd[31m,[m Make[31m,[m List[31m,[m Switch[31m,[m Root[31m,[m Parent[31m,[m Print[31m,[m Search[31m,[m Tree[31m,[m Attribute[31m,[m Remove[31m,[m  Create[31m,[m Load[31m);[m
   
   [01;34mfunction[m [01;30mId[m [31m([mName [31m:[m [01;34min[m Element_Enum[31m)[m [01;34mreturn[m Element_Access [01;34mis[m
   [01;34mbegin[m
      
      [01;34mif[m Name [31m=[m Program [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Engine[31m.[mProgram_Class[31m;[m
      [01;34melsif[m Name [31m=[m Description [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Description_Class[31m;[m
      [01;34melsif[m Name [31m=[m Main [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Main_Class[31m;[m
      [01;34melsif[m Name [31m=[m License [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m License_Class[31m;[m
      [01;34melsif[m Name [31m=[m Library [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Library_Class[31m;[m
      [01;34melsif[m Name [31m=[m Axiomatic [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Axiomatic_Class[31m;[m
      [01;34melsif[m Name [31m=[m Precondition [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Precondition_Class[31m;[m
      [01;34melsif[m Name [31m=[m Axiom [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Axiom_Class[31m;[m
      [01;34melsif[m Name [31m=[m Predicate [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Predicate_Class[31m;[m
      [01;34melsif[m Name [31m=[m Condition [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Condition_Class[31m;[m
      [01;34melsif[m Name [31m=[m Component [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Component_Class[31m;[m
      [01;34melsif[m Name [31m=[m Action [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Action_Class[31m;[m
      [01;34melsif[m Name [31m=[m Class [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Class_Class[31m;[m
      [01;34melsif[m Name [31m=[m Machine [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m Machine_Class[31m;[m
      [01;34melsif[m Name [31m=[m m[31m.[mSystem [01;34mthen[m
	 [01;34mreturn[m [01;34mnew[m System_Class[31m;[m
      [01;34melse[m
	 [01;34mreturn[m [01;34mnull[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Id[31m;[m            
   
   [01;34mtype[m Element_Counter [01;34mis[m [01;34marray[m [31m([mElement_Enum'[01;34mRange[m[31m)[m [01;34mof[m Natural[31m;[m
   
   [01;34mprocedure[m [01;30mGlobal_Content_Print[m [31m([mObject [31m:[m Element_Access[31m;[m
				   Win       [31m:[m [01;34min[m Window_Type[31m)[m [01;34mis[m

      
      Objects [31m:[m Element_Vectors[31m.[mVector[31m;[m
      
      Counter [31m:[m Element_Counter [31m:=[m [31m([m[01;34mothers[m [31m=>[m [35m0[m[31m);[m
      Win_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m

      [01;34mif[m Object [31m/=[m [01;34mnull[m [01;34mthen[m

	 Objects [31m:=[m Object[31m.[mChilds[31m;[m

	 [01;34mfor[m I [01;34min[m [35m1[m[31m..[mObject[31m.[mInfo[31m.[mChilds_num [01;34mloop[m

	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mObjects[31m,[m [01;30mElement_Index[m[31m([mI[31m));[m
	    [01;34mbegin[m

	       [01;34mfor[m J [01;34min[m Element_Enum'[01;30mSucc[m[31m([mNone[31m)..[mElement_Enum'Last [01;34mloop[m

		  [01;34mif[m E[31m.[mTag [31m=[m J [01;34mthen[m

		     [01;30mCounter[m[31m([mJ[31m)[m [31m:=[m [01;30mCounter[m[31m([mJ[31m)[m [31m+[m [35m1[m[31m;[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m

	 [01;34mfor[m I [01;34min[m Element_Enum'[01;30mSucc[m[31m([mNone[31m)..[mElement_Enum'Last [01;34mloop[m

	    [01;30mDraw[m[31m([mWin[31m,[m Win_Index[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mElement_Enum'[01;30mImage[m[31m([mI[31m))[m [31m&[m
		   Wide_Fixed[31m.[m[31m"*"[m[31m(([m[35m16[m [31m-[m Element_Enum'[01;30mImage[m[31m([mI[31m)[m'Length[31m),[m[31m' '[m[31m)[m [31m&[m
		   [31m" : Total  = "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mNatural'[01;30mImage[m[31m([m[01;30mCounter[m[31m([mI[31m)))[m [31m&[m
		   [31m" "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mElement_Enum'[01;30mImage[m[31m(([mi[31m))));[m
	    
	    Win_Index [31m:=[m Win_Index [31m+[m [35m1[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34melse[m
	 
	 [01;30mDraw[m[31m([mWin[31m,[m Win_Index[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m White[31m,[m [31m"el = null"[m[31m);[m
	 
      [01;34mend[m [01;34mif[m[31m;[m

      
      
   [01;34mend[m Global_Content_Print[31m;[m

   [01;34mprocedure[m [01;30mGlobal_Read[m[31m([mFile [31m:[m W_Io[31m.[mFile_Type[31m;[m
   			 End_Of_File [31m:[m [01;34mout[m [32mBoolean[m[31m;[m
   			 Object [31m:[m [01;34mout[m Element_Access[31m)[m [01;34mis[m
      Tag [31m:[m Element_Enum [31m:=[m None[31m;[m
      Name [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m8[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m));[m
      Name_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m

      End_Of_File [31m:=[m False[31m;[m
      [01;34mwhile[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
	 
	 [01;34mdeclare[m
	    Name [31m:[m [32mWide_String[m [31m:=[m W_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m);[m
   	 [01;34mbegin[m
   	    

   	    Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mName[31m,[m backward[31m);[m
   	    [01;34mif[m index [31m=[m [35m0[m [01;34mthen[m
   	       [01;34mraise[m Constraint_Error[31m;[m
   	    [01;34melse[m
   	       [01;34mif[m Wide_Characters[31m.[mHandling[31m.[m[01;30mIs_Control[m[31m([m[01;30mName[m[31m([mIndex[31m))[m [01;34mthen[m
   		  [01;34mraise[m Constraint_Error[31m;[m
   	       [01;34mend[m [01;34mif[m[31m;[m
   	    [01;34mend[m [01;34mif[m[31m;[m

   	    Tag [31m:=[m Element_Enum'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mName[31m));[m

   	    [01;34mexit[m[31m;[m
   	 [01;34mexception[m
   	    [01;34mwhen[m Constraint_Error [31m=>[m

   	       W_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m,[m Name[31m,[m Name_Last[31m);[m

   	       [01;34mbegin[m

   		  Tag [31m:=[m Element_Enum'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mName[m[31m([mName'First[31m..[mName_Last[31m)));[m
		  
   		  [01;34mexit[m[31m;[m
		  
   	       [01;34mend[m[31m;[m
   	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      


      Object [31m:=[m [01;30mId[m[31m([mTag[31m);[m

      End_Of_File [31m:=[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m);[m
      [01;34mif[m [01;34mnot[m End_Of_File [01;34mthen[m
	 
	 Object[31m.[m[01;30mRead[m[31m([mFile[31m);[m
	 
      [01;34mend[m [01;34mif[m[31m;[m

      
   [01;34mexception[m
      [01;34mwhen[m Constraint_Error [31m=>[m
   	 [01;34mraise[m[31m;[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
   	 [01;34mnull[m[31m;[m
   [01;34mend[m Global_Read[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mGlobal_Print[m[31m([mObject [31m:[m Element_Access[31m;[m
   			  Header       [31m:[m [01;34min[m Window_Type[31m;[m
			  Win [31m:[m [01;34min[m Window_Type[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Object [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Engine[31m.[mProgram_Class'Tag [01;34mthen[m
   	 Engine[31m.[m[01;30mProgram_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Description_Class'Tag [01;34mthen[m
   	 [01;30mDescription_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m License_Class'Tag [01;34mthen[m
   	 [01;30mLicense_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Main_Class'Tag [01;34mthen[m
   	 [01;30mMain_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m      	 
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Library_Class'Tag [01;34mthen[m
	 [01;30mLibrary_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Axiomatic_Class'Tag [01;34mthen[m
   	 [01;30mAxiomatic_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Axiom_Class'Tag [01;34mthen[m
   	 [01;30mAxiom_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Predicate_Class'Tag [01;34mthen[m
   	 [01;30mPredicate_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m      	 
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Predicate_Class'Tag [01;34mthen[m
	 [01;30mPredicate_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m      	 
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Precondition_Class'Tag [01;34mthen[m
	 [01;30mPrecondition_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m      	 
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Condition_Class'Tag [01;34mthen[m
   	 [01;30mCondition_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m      	 
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Condition_Class'Tag [01;34mthen[m
   	 [01;30mComponent_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Action_Class'Tag [01;34mthen[m
   	 [01;30mAction_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Class_Class'Tag [01;34mthen[m
   	 [01;30mClass_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m      	 
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m Machine_Class'Tag [01;34mthen[m
	 [01;30mMachine_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m      	 
      [01;34melsif[m Object[31m.[m[01;34mall[m'Tag [31m=[m System_Class'Tag [01;34mthen[m
	 [01;30mSystem_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Win[31m);[m      	 
	 
      [01;34mend[m [01;34mif[m[31m;[m      
   [01;34mend[m Global_Print[31m;[m
   
   [01;34mprocedure[m [01;30mParent[m[31m([mT [31m:[m [01;34min[m [01;34mout[m Project_Type[31m)[m [01;34mis[m
      
      V [31m:[m Element_Vectors[31m.[mVector [31m:=[m T[31m.[mPath[31m;[m
   [01;34mbegin[m
      [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mV[31m)[m [01;34mthen[m
   	 [01;34mif[m [01;30mLast_Index[m[31m([mV[31m)[m [31m>=[m [35m1[m [01;34mthen[m
	    T[31m.[mCur [31m:=[m [01;30mLast_Element[m[31m([mV[31m);[m
	    [01;34mif[m [01;30mLast_Index[m[31m([mV[31m)[m [31m>[m [35m1[m [01;34mthen[m
	       [01;30mDelete[m[31m([mV[31m,[m [01;30mLast_Index[m[31m([mV[31m));[m
	    [01;34mend[m [01;34mif[m[31m;[m
   	    
   	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      T[31m.[mPath [31m:=[m V[31m;[m
   [01;34mend[m Parent[31m;[m
   
   [01;34mprocedure[m [01;30mSwitch[m[31m([mT [31m:[m [01;34min[m [01;34mout[m Project_Type[31m;[m
   		    Num [31m:[m [01;34min[m Element_Index[31m;[m
   		    Success [31m:[m [01;34mout[m [32mboolean[m[31m)[m [01;34mis[m
      Vector [31m:[m Element_Vectors[31m.[mVector[31m;[m	 
   [01;34mbegin[m
      Success [31m:=[m False[31m;[m
      
      [01;34mif[m T[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
   	 Vector [31m:=[m T[31m.[mCur[31m.[mChilds[31m;[m
   	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mVector[31m)[m [01;34mthen[m
   	    [01;34mif[m Num [31m<=[m [01;30mElement_Index[m[31m([mT[31m.[mCur[31m.[mInfo[31m.[mChilds_Num[31m)[m [01;34mthen[m
   	       T[31m.[mPath [31m:=[m T[31m.[mPath [31m&[m T[31m.[mCur[31m;[m
   	       T[31m.[mCur [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mVector[31m,[m Num[31m);[m
	       
   	       [01;34mif[m T[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
   		  
   		  Success [31m:=[m True[31m;[m
   	       [01;34melse[m
   		  [01;34mraise[m Program_Error[31m;[m		     
   	       [01;34mend[m [01;34mif[m[31m;[m
   	    [01;34mend[m [01;34mif[m[31m;[m
   	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m	 
   [01;34mend[m Switch[31m;[m

   

   [01;34mprocedure[m [01;30mRestore_Vector[m[31m([mT [31m:[m [01;34min[m [01;34mout[m Project_Type[31m;[m
   			    File [31m:[m W_Io[31m.[mFile_Type[31m)[m [01;34mis[m
      
      Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      N[31m,[m O [31m:[m Element_Access[31m;[m	 
      Child_Childs[31m,[m Child_Numb [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      End_Of_File [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   [01;34mbegin[m
      
      [01;34mif[m T[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m

	 [01;30mGlobal_Read[m[31m([mFile[31m,[m End_Of_File[31m,[m T[31m.[mRoot[31m);[m
	 T[31m.[mCur [31m:=[m T[31m.[mRoot[31m;[m
	 	 

	 [01;34mif[m T[31m.[mCur [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m T[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [31m/=[m [35m0[m [01;34mthen[m

	    [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mT[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [01;34mloop[m

	       [01;34mif[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mthen[m

		  [01;30mRestore_Vector[m[31m([mT[31m,[m File[31m);[m
		  
	       [01;34mend[m [01;34mif[m[31m;[m
	       [01;30mParent[m[31m([mT[31m);[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34melse[m

	 [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mT[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [01;34mloop[m

	    [01;30mGlobal_Read[m[31m([mFile[31m,[m End_Of_File[31m,[m N[31m);[m	    

	    T[31m.[mCur[31m.[mChilds [31m:=[m T[31m.[mCur[31m.[mChilds [31m&[m N[31m;[m
	    [01;34mif[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mthen[m

	       [01;34mif[m N[31m.[mInfo[31m.[mChilds_num [31m/=[m [35m0[m [01;34mthen[m

		  [01;30mSwitch[m[31m([mT[31m,[m [01;30mElement_Index[m[31m([mT[31m.[mCur[31m.[mInfo[31m.[mChilds_Num[31m),[m Success[31m);[m
		  [01;30mRestore_Vector[m[31m([mT[31m,[m File[31m);[m
		  [01;30mParent[m[31m([mT[31m);[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

   [01;34mend[m Restore_Vector[31m;[m

   
   
   
   [01;34mprocedure[m [01;30mRestore[m[31m([mT [31m:[m [01;34min[m [01;34mout[m Project_Type[31m;[m
   		     Filename [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mis[m
      
      End_Of_File [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      File [31m:[m W_Io[31m.[mFile_Type[31m;[m
   [01;34mbegin[m
      
      W_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m W_Io[31m.[min_File[31m,[m Filename[31m);[m
      [01;34mif[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mthen[m
   	 [01;30mRestore_Vector[m[31m([mT[31m,[m File[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m

      W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
   [01;34mend[m Restore[31m;[m
   
   
   [01;34mprocedure[m [01;30mSearch[m[31m([mT [31m:[m [01;34min[m [01;34mout[m Project_Type[31m;[m
   		    name [31m:[m [01;34min[m [32mWide_String[m[31m;[m
   		    Path_Index [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m
   		    Success [31m:[m [01;34mout[m [32mboolean[m[31m)[m [01;34mis[m
      
      
      
      Vector [31m:[m Element_Vectors[31m.[mVector [31m:=[m T[31m.[mCur[31m.[mChilds[31m;[m
      
   [01;34mbegin[m
      Success [31m:=[m False[31m;[m
      
      [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mVector[31m)[m [01;34mthen[m
	 [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLast_Index[m[31m([mVector[31m)[m [01;34mloop[m
	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mVector[31m,[m I[31m);[m
	       Term [31m:[m Project_Type [31m:=[m T[31m;[m
	    [01;34mbegin[m
	       [01;34mif[m E [31m/=[m [01;34mnull[m [01;34mthen[m						
		  [01;34mif[m E[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m=[m Name [01;34mthen[m
		     [01;30mSwitch[m[31m([mTerm[31m,[m I[31m,[m  success[31m);[m
		     [01;34mif[m Success [01;34mthen[m
			T [31m:=[m Term[31m;[m
			[01;34mexit[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34melse[m
		     [01;30mSwitch[m[31m([mTerm[31m,[m I[31m,[m  success[31m);[m
		     Path_Index [31m:=[m Path_Index [31m+[m [35m1[m[31m;[m
		     [01;34mif[m Success [01;34mthen[m
			[01;30mSearch[m[31m([mTerm[31m,[m Name[31m,[m Path_Index[31m,[m Success[31m);[m
			[01;34mif[m Success [01;34mthen[m
			   T [31m:=[m Term[31m;[m
			   [01;34mexit[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m	
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34melse[m
		  [01;34mraise[m Program_Error[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Search[31m;[m
   
   
   
   
   
   [01;34mprocedure[m [01;30mSave_Object[m [31m([mObject [31m:[m Element_Access[31m;[m			  
   			  File [31m:[m W_Io[31m.[mFile_Type[31m;[m
   			  Index  [31m:[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
      O [31m:[m [01;34mconstant[m Element_Access [31m:=[m Object[31m;[m
      New_Index [31m:[m Natural [31m:=[m Index[31m;[m
   [01;34mbegin[m      

      O[31m.[m[01;34mall[m[31m.[m[01;30mWrite[m[31m([mFile[31m);[m


      
      [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mO[31m.[mChilds[31m)[m [01;34mthen[m


   	 [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLast_Index[m[31m([mO[31m.[mChilds[31m)[m [01;34mloop[m

   	    [01;34mdeclare[m
   	       E [31m:[m [01;34mconstant[m Element_Access [31m:=[m
   		 Element_Vectors[31m.[m[01;30mElement[m[31m([mO[31m.[mChilds[31m,[m I[31m);[m
   	    [01;34mbegin[m

   	       [01;30mSave_Object[m[31m([mE[31m,[m File[31m,[m New_Index[31m+[m[35m1[m[31m);[m	       

   	    [01;34mend[m[31m;[m
   	 [01;34mend[m [01;34mloop[m[31m;[m	 	 

      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Save_Object[31m;[m
   
   
   
   
   
   [01;34mprocedure[m [01;30mSave[m [31m([mObject [31m:[m [01;34min[m Element_Access[31m;[m
   		   Filename [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mis[m
      File [31m:[m W_Io[31m.[mFile_Type[31m;[m
      
   [01;34mbegin[m

      W_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m W_Io[31m.[mOut_File[31m,[m Filename[31m);[m

      [01;30mSave_Object[m[31m([mObject[31m,[m File[31m);[m

      W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
      
   [01;34mend[m Save[31m;[m

   
   
   [01;34mtype[m Single_enum [01;34mis[m [31m([mSingle_None[31m,[m Single_Name[31m,[m Single_line[31m);[m
   
   [01;34mtype[m Single_Type [01;34mis[m
      [01;34mrecord[m
   	 Name [31m:[m Single_Enum [31m:=[m Single_None[31m;[m
   	 Line [31m:[m Wstring_45 [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
   	 Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   	 Line_Pos      [31m:[m Line_Range [31m:=[m [35m1[m[31m;[m
   	 Column_Pos    [31m:[m Column_Range [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Single_Curs_Set [01;34mis[m [01;34marray[m [31m([mSingle_Enum[31m)[m [01;34mof[m Single_Type[31m;[m
   
   [01;34mtype[m Single_Cursor_Type [01;34mis[m
      [01;34mrecord[m
   	 Values  [31m:[m Single_Curs_Set[31m;[m
   	 Val_Cur [31m:[m Single_Enum [31m:=[m Single_Name[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Initialize [01;34mreturn[m Single_Cursor_Type [01;34mis[m
      Curs [31m:[m Single_Cursor_Type[31m;[m
   [01;34mbegin[m
      Curs[31m.[m[01;30mValues[m[31m([mSingle_Name[31m)[m [31m:=[m
   	[31m([mSingle_name[31m,[m
   	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
   	 [35m0[m[31m,[m
   	 [35m1[m[31m,[m
   	 [35m8[m
   	[31m);[m
      Curs[31m.[m[01;30mValues[m[31m([mSingle_Line[31m)[m [31m:=[m
	[31m([mSingle_Line[31m,[m
	 [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m
	 [35m0[m[31m,[m
	 [35m2[m[31m,[m
	 [35m8[m
	[31m);[m

      Curs[31m.[mVal_Cur [31m:=[m Single_name[31m;[m
      [01;34mreturn[m Curs[31m;[m
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mfunction[m [01;30mTo_Single[m [31m([mCurs [31m:[m [01;34min[m Single_Cursor_Type[31m;[m Index [31m:[m [01;34min[m Element_Index[31m;[mTag [31m:[m [01;34min[m Element_enum[31m)[m [01;34mreturn[m Element_Access [01;34mis[m
      El [31m:[m Element_Access [31m:=[m [01;30mId[m[31m([mTag[31m);[m
   [01;34mbegin[m

      El[31m.[minfo[31m.[mIndex [31m:=[m Index[31m;[m
      El[31m.[mInfo[31m.[mCreated [31m:=[m Clock[31m;[m
      El[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m '
   	[31m([mCurs[31m.[m[01;30mValues[m[31m([mSingle_Name[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mSingle_Name[31m).[mLine_Last[31m));[m

      El[31m.[mLine [31m:=[m [01;34mnew[m [32mWide_String[m '
   	[31m([mCurs[31m.[m[01;30mValues[m[31m([mSingle_Line[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mCurs[31m.[m[01;30mValues[m[31m([mSingle_Line[31m).[mLine_Last[31m));[m

      [01;34mreturn[m El[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
   	 [01;34mraise[m Spec_Error[31m;[m
   [01;34mend[m To_Single[31m;[m
   
   
   
   [01;34mtype[m Engine_Type [01;34mis[m [01;34mlimited[m
      [01;34mrecord[m
	 Main_Win    [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mlines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
	 Header_Win  [31m:[m Window_Record [31m:=[m [31m([m[35m2[m[31m,[m [35m2[m[31m,[m [35m5[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m white[31m,[m The_Window[31m);[m
	 content_Win [31m:[m Window_Record [31m:=[m [31m([m[35m7[m[31m,[m [35m2[m[31m,[m [35m17[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m white[31m,[m The_Window[31m);[m
	 Cmd_Win     [31m:[m Window_Record [31m:=[m [31m([m[35m24[m[31m,[m [35m2[m[31m,[m [35m3[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m Blue[31m,[m The_Window[31m);[m
	 Obj_Header  [31m:[m Window_Record [31m:=[m [31m([m[35m2[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m Blue[31m,[m The_Window[31m);[m
	 Obj_Main    [31m:[m Window_Record [31m:=[m [31m([m[35m27[m[31m,[m [35m2[m[31m,[m [35m15[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m)-[m[35m2[m[31m,[m white[31m,[m The_Window[31m);[m
	 Attr        [31m:[m Window_Record [31m:=[m [31m([m[35m8[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m+[m[35m2[m[31m,[m [35m4[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m Blue[31m,[m The_Window[31m);[m
	 Obj_Attr    [31m:[m Window_Record [31m:=[m [31m([m[35m12[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m+[m[35m2[m[31m,[m [35m15[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m Blue[31m,[m The_Window[31m);[m
	 List_Win    [31m:[m Window_Record [31m:=[m [31m([m[35m42[m[31m,[m [35m2[m[31m,[m App[31m.[mLines[31m-[m[35m47[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m)-[m[35m2[m[31m,[m white[31m,[m The_Window[31m);[m
	 buffer_Win    [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m5[m[31m,[m [35m2[m[31m,[m [35m5[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m)-[m[35m2[m[31m,[m white[31m,[m The_Window[31m);[m
	 File_Win    [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m App[31m.[mcolumns[31m/[m[35m2[m[31m+[m[35m1[m[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mprocedure[m [01;30mInitialize[m [31m([mEngine [31m:[m [01;34mout[m Engine_Type[31m;[m Top [31m:[m Natural [31m:=[m [35m0[m[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;30mInitialize[m[31m([mEngine[31m.[mMain_Win[31m,[m [35m1[m[31m,[m Top[31m+[m[35m1[m[31m,[m App[31m.[mlines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m white[31m);[m
      
      [01;30mInitialize[m[31m([mEngine[31m.[mHeader_Win[31m,[m [35m2[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m5[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m white[31m,[m Cyan[31m);[m
      
      [01;30mInitialize[m[31m([mEngine[31m.[mContent_Win[31m,[m [35m7[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m17[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m white[31m,[m Cyan[31m);[m
      [01;30mInitialize[m[31m([mEngine[31m.[mCmd_Win[31m,[m [35m24[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m3[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mEngine[31m.[mObj_Header[31m,[m [35m2[m[31m,[m Top[31m+([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m+[m[35m2[m[31m,[m [35m6[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mEngine[31m.[mObj_Main[31m,[m [35m27[m[31m,[m Top[31m+[m[35m2[m[31m,[m [35m15[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m)-[m[35m2[m[31m,[m white[31m,[m Cyan[31m);[m
      [01;30mInitialize[m[31m([mEngine[31m.[mAttr[31m,[m [35m8[m[31m,[m Top[31m+([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m+[m[35m2[m[31m,[m [35m4[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mEngine[31m.[mObj_Attr[31m,[m [35m12[m[31m,[m Top[31m+([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m+[m[35m2[m[31m,[m [35m15[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mEngine[31m.[mList_Win[31m,[m [35m42[m[31m,[m Top[31m+[m[35m2[m[31m,[m App[31m.[mLines[31m-[m[35m47[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m white[31m,[m Red[31m);[m
      [01;30mInitialize[m[31m([mEngine[31m.[mBuffer_Win[31m,[m  App[31m.[mLines[31m-[m[35m5[m [31m,[m [35m2[m[31m,[m [35m5[m[31m,[m [31m([mApp[31m.[mColumns[31m-[m[35m2[m[31m)/[m[35m2[m[31m,[m blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mEngine[31m.[mFile_Win[31m,[m [35m1[m[31m,[m Top[31m+([mApp[31m.[mColumns[31m/[m[35m2[m[31m)+[m[35m1[m[31m,[m App[31m.[mLines[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m2[m[31m),[m white[31m,[m Red[31m);[m
   [01;34mend[m Initialize[31m;[m
   
   [01;34mprocedure[m [01;30mDraw[m [31m([mEngine [31m:[m [01;34min[m Engine_Type[31m;[m Project [31m:[m [01;34min[m Project_Type[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;30mEnlight_Window[m[31m([mEngine[31m.[mMain_Win[31m);[m
      [01;30mEnlight_Window[m[31m([mEngine[31m.[mHeader_win[31m);[m
      [01;30mEnlight_Window[m[31m([mEngine[31m.[mContent_Win[31m);[m
      [01;30mEnlight_Window[m[31m([mEngine[31m.[mcmd_Win[31m);[m
      [01;30mEnlight_Window[m[31m([mEngine[31m.[mObj_Header[31m);[m
      [01;30mEnlight_Window[m[31m([mEngine[31m.[mObj_Main[31m);[m
      [01;30mEnlight_Window[m[31m([mEngine[31m.[mAttr[31m);[m
      [01;30mEnlight_Window[m[31m([mEngine[31m.[mObj_Attr[31m);[m
      [01;30mEnlight_Window[m[31m([mEngine[31m.[mList_Win[31m);[m
      [01;30mEnlight_Window[m[31m([mEngine[31m.[mBuffer_Win[31m);[m
      [01;30mEnlight_Window[m[31m([mEngine[31m.[mFile_Win[31m);[m
      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
   [01;34mend[m Draw[31m;[m
   

   
   [01;34mfunction[m [01;30mEl_Cmd_Value[m [31m([mLine [31m:[m [01;34min[m [32mWide_String[m[31m)[m [01;34mreturn[m Element_Cmd_Enum [01;34mis[m
      Cmd [31m:[m Element_Cmd_Enum  [31m:=[m Null_Cmd[31m;[m
      First_Space [31m:[m [01;34mconstant[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m" "[m[31m);[m
   [01;34mbegin[m
      
      [01;34mif[m First_Space [31m/=[m [35m0[m [01;34mthen[m
	 [01;34mbegin[m
	    
	    Cmd [31m:=[m Element_Cmd_Enum'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mLine'First[31m..[mFirst_Space[31m-[m[35m1[m[31m)));[m
	    
	 [01;34mexception[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       Cmd [31m:=[m Null_Cmd[31m;[m
	 [01;34mend[m[31m;[m
	 
      [01;34melsif[m Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	 [01;34mbegin[m
	    Cmd [31m:=[m Element_Cmd_Enum'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m)..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m,[m Backward[31m))));[m
	 [01;34mexception[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       Cmd [31m:=[m Null_Cmd[31m;[m
	 [01;34mend[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m Cmd[31m;[m
   [01;34mend[m El_Cmd_Value[31m;[m
   
   [01;34mfunction[m [01;30mChild[m [31m([mCur [31m:[m [01;34min[m Element_Access[31m;[mIndex [31m:[m [01;34min[m Natural[31m)[m [01;34mreturn[m Element_Access [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Index [31m=[m [35m0[m [01;34mthen[m
	 [01;34mreturn[m Cur[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Cur [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m [01;34mnull[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m Element_Vectors[31m.[m[01;30mElement[m[31m([mCur[31m.[mChilds[31m,[m [01;30mElement_Index[m[31m([mIndex[31m));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mreturn[m [01;34mnull[m[31m;[m
   [01;34mend[m Child[31m;[m
   
   [01;34mfunction[m [01;30mChild[m [31m([mCur [31m:[m [01;34min[m Element_Access[31m;[mName [31m:[m [01;34min[m [32mWide_String[m[31m)[m [01;34mreturn[m Element_Access [01;34mis[m
      Obj [31m:[m Element_Access[31m;[m
   [01;34mbegin[m
      [01;34mif[m Cur [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m [01;34mnull[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Cur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m=[m Name [01;34mthen[m
	 [01;34mreturn[m Cur[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m [01;34mnot[m Element_Vectors[31m.[m[01;30mIs_Empty[m[31m([mCur[31m.[mChilds[31m)[m [01;34mthen[m
	 [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mElement_Vectors[31m.[m[01;30mLength[m[31m([mCur[31m.[mChilds[31m)[m [01;34mloop[m
	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mCur[31m.[mChilds[31m,[m [01;30mElement_Index[m[31m([mChild[31m));[m
	    [01;34mbegin[m
	       [01;34mif[m E[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		 E[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m=[m Name [01;34mthen[m
		  [01;34mreturn[m E[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m [01;34mnull[m[31m;[m
      
   [01;34mend[m Child[31m;[m
   
   
   
   [01;34mfunction[m [01;30mTo_String[m[31m([mInfo [31m:[m [01;34min[m Element_Info[31m)[m [01;34mreturn[m [32mWide_String[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Info[31m.[mName [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mraise[m Program_Error[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mreturn[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mElement_Index'[01;30mImage[m[31m([mInfo[31m.[mIndex[31m))[m [31m&[m [31m" "[m 
	[31m&[m	Handling[31m.[m[01;30mTo_Wide_String[m[31m([mElement_Enum'[01;30mImage[m[31m([mInfo[31m.[mTag[31m))[m [31m&[m 
	[31m" "[m [31m&[m Info[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m" "[m 
	[31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mInfo[31m.[mCreated[31m));[m
   [01;34mend[m To_String[31m;[m
   
   [01;34mfunction[m [01;30mTo_Tree[m[31m([mInfo [31m:[m [01;34min[m Element_Info[31m;[m Level [31m:[m [01;34min[m Natural[31m)[m [01;34mreturn[m [32mWide_String[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Info[31m.[mName [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mraise[m Program_Error[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mreturn[m Wide_Fixed[31m.[m[31m"*"[m[31m([mLevel[31m,[m [31m' '[m[31m)[m [31m&[m [31m'+'[m [31m&[m [31m' '[m [31m&[m 
	Handling[31m.[m[01;30mTo_Wide_String[m[31m([mElement_Index'[01;30mImage[m[31m([mInfo[31m.[mIndex[31m))[m [31m&[m [31m" "[m 
	[31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mElement_Enum'[01;30mImage[m[31m([mInfo[31m.[mTag[31m))[m [31m&[m [31m" "[m 
	[31m&[m Info[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m" "[m 
	[31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mInfo[31m.[mCreated[31m));[m
   [01;34mend[m To_Tree[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mListing[m [31m([mObj [31m:[m [01;34min[m Element_Access[31m;[m Set [31m:[m [01;34min[m [01;34mout[m Wide_String_Set[31m;[mLast [31m:[m [01;34min[m [01;34mout[m Natural[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Obj [31m/=[m [01;34mnull[m [01;34mthen[m

	 [01;34mif[m [01;34mnot[m Element_Vectors[31m.[m[01;30mIs_Empty[m[31m([mObj[31m.[mChilds[31m)[m [01;34mthen[m

	    [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mObj[31m.[mInfo[31m.[mChilds_num [01;34mloop[m

	       [01;34mdeclare[m
		  E [31m:[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mObj[31m.[mChilds[31m,[m [01;30mElement_Index[m[31m([mChild[31m));[m
	       [01;34mbegin[m

		  [01;34mcase[m E[31m.[mTag [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m License [31m=>[m
			[01;34mfor[m Line [01;34min[m [35m1[m[31m..[mE[31m.[mLicense[31m.[mLine_Last [01;34mloop[m
			   [01;30mAdd_Line[m[31m([mSet[31m,[m Last[31m,[m E[31m.[mLicense[31m.[m[01;30mLines[m[31m([mLine[31m).[m[01;34mall[m[31m);[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;34mif[m E[31m.[mInfo[31m.[mChilds_Num [31m/=[m [35m0[m [01;34mthen[m
			   [01;30mListing[m[31m([mE[31m,[m Set[31m,[m Last[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;30mAdd_Line[m[31m([mSet[31m,[m Last[31m,[m E[31m.[mLine[31m.[m[01;34mall[m[31m);[m
			[01;34mif[m E[31m.[mInfo[31m.[mChilds_Num [31m/=[m [35m0[m [01;34mthen[m
			   [01;30mListing[m[31m([mE[31m,[m Set[31m,[m Last[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m

	       [01;34mend[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m

	 [01;34mend[m [01;34mif[m[31m;[m

      [01;34mend[m [01;34mif[m[31m;[m

   [01;34mend[m Listing[31m;[m
   
   
   
   
   
   [01;34mprocedure[m [01;30mTree[m [31m([mObj [31m:[m [01;34min[m Element_Access[31m;[m Level [31m:[m [01;34min[m Natural[31m;[m Set [31m:[m [01;34min[m [01;34mout[m Wide_String_Set[31m;[m Last [31m:[m [01;34min[m [01;34mout[m Natural[31m)[m [01;34mis[m
   [01;34mbegin[m

      [01;34mif[m Obj [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;34mif[m Level [31m=[m [35m0[m [01;34mthen[m

	    [01;30mAdd_Line[m[31m([mSet[31m,[m Last[31m,[m [01;30mTo_tree[m[31m([mObj[31m.[mInfo[31m,[m Level[31m+[m[35m1[m[31m));[m
	 [01;34mend[m [01;34mif[m[31m;[m

	 [01;34mif[m [01;34mnot[m Element_Vectors[31m.[m[01;30mIs_Empty[m[31m([mObj[31m.[mChilds[31m)[m [01;34mthen[m

	    [01;30mAdd_Line[m[31m([mSet[31m,[m Last[31m,[m Wide_Fixed[31m.[m[31m"*"[m[31m([mLevel[31m+[m[35m1[m[31m,[m [31m' '[m[31m)[m [31m&[m [31m"| "[m[31m);[m

	    [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mObj[31m.[mInfo[31m.[mChilds_Num [01;34mloop[m

	       [01;34mdeclare[m
		  E [31m:[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mObj[31m.[mChilds[31m,[m [01;30mElement_Index[m[31m([mChild[31m));[m
	       [01;34mbegin[m
		  [01;30mAdd_Line[m[31m([mSet[31m,[m Last[31m,[m [01;30mTo_tree[m[31m([mE[31m.[mInfo[31m,[m Level[31m+[m[35m2[m[31m));[m
		  [01;34mif[m E[31m.[mInfo[31m.[mChilds_Num [31m/=[m [35m0[m [01;34mthen[m
		     [01;30mTree[m[31m([mE[31m,[m Level[31m+[m[35m3[m[31m,[m Set[31m,[m Last[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m

	       [01;34mend[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

   [01;34mend[m Tree[31m;[m
   
   
   [01;34mprocedure[m [01;30mTree_Free[m [31m([mO [31m:[m [01;34min[m [01;34mout[m Element_Access[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m O [31m=[m [01;34mnull[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      [01;34mif[m Element_Vectors[31m.[m[01;30mLength[m[31m([mO[31m.[mChilds[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	 [01;34mfor[m Child [01;34min[m [35m1[m [31m..[m [01;30mElement_Index[m[31m([mElement_Vectors[31m.[m[01;30mLength[m[31m([mO[31m.[mChilds[31m))[m [01;34mloop[m
	    
	    [01;34mdeclare[m
	       E [31m:[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mO[31m.[mChilds[31m,[m Child[31m);[m
	    [01;34mbegin[m
	       
	       [01;30mTree_Free[m[31m([mE[31m);[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;30mObj_free[m[31m([mO[31m);[m
   [01;34mend[m Tree_Free[31m;[m
   
   [01;34mprocedure[m [01;30mRemove[m [31m([mT [31m:[m [01;34min[m [01;34mout[m Project_Type[31m;[m Index [31m:[m [01;34min[m Element_Index[31m)[m [01;34mis[m
   [01;34mbegin[m

      [01;34mif[m Index [31m>[m [01;30mElement_Index[m[31m([mElement_Vectors[31m.[m[01;30mLength[m[31m([mT[31m.[mCur[31m.[mChilds[31m))[m [01;34mthen[m
	 [01;34mreturn[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      
      [01;34mdeclare[m
	 E [31m:[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mT[31m.[mCur[31m.[mChilds[31m,[m Index[31m);[m
      [01;34mbegin[m
	 [01;30mTree_Free[m[31m([mE[31m);[m
	 
      [01;34mend[m[31m;[m
      
      
      Element_Vectors[31m.[m[01;30mDelete[m[31m([mT[31m.[mCur[31m.[mChilds[31m,[m Index[31m);[m
      
      T[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [31m:=[m T[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [31m-[m [35m1[m[31m;[m
      
      
      [01;34mif[m [01;34mnot[m Element_Vectors[31m.[m[01;30mIs_empty[m[31m([mT[31m.[mCur[31m.[mChilds[31m)[m[01;34mand[m [01;34mthen[m
	Index [31m<=[m [01;30mElement_Index[m[31m([mElement_Vectors[31m.[m[01;30mLength[m[31m([mT[31m.[mCur[31m.[mChilds[31m))[m [01;34mthen[m
	 
	 
	 

	 [01;34mfor[m Child [01;34min[m Index [31m..[m [01;30mElement_Index[m[31m([mElement_Vectors[31m.[m[01;30mLength[m[31m([mT[31m.[mCur[31m.[mChilds[31m))[m [01;34mloop[m
	    
	    [01;34mdeclare[m
	       E [31m:[m [01;34mconstant[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mT[31m.[mCur[31m.[mChilds[31m,[m Index[31m);[m
	    [01;34mbegin[m
	       E[31m.[mInfo[31m.[mIndex [31m:=[m E[31m.[mInfo[31m.[mIndex [31m-[m [35m1[m[31m;[m
	       
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Remove[31m;[m
   
   [01;34mprocedure[m [01;30mAdd_To[m [31m([mProject [31m:[m [01;34min[m [01;34mout[m Project_Type[31m;[m Obj [31m:[m Element_Access[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Project[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
	 Obj[31m.[mInfo[31m.[mIndex [31m:=[m [35m1[m[31m;[m	 
	 Project[31m.[mRoot [31m:=[m Obj[31m;[m
	 Project[31m.[mCur [31m:=[m Obj[31m;[m
	 Project[31m.[mPath [31m:=[m Project[31m.[mPath [31m&[m Obj[31m;[m
      [01;34melse[m
	 Obj[31m.[mInfo[31m.[mIndex [31m:=[m [01;30mElement_Index[m[31m([mElement_Vectors[31m.[m[01;30mLength[m[31m([mProject[31m.[mCur[31m.[mChilds[31m)[m [31m+[m [35m1[m[31m);[m
	 Project[31m.[mCur[31m.[mChilds [31m:=[m Project[31m.[mCur[31m.[mChilds [31m&[m Obj[31m;[m
	 Project[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [31m:=[m Project[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [31m+[m [35m1[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Add_To[31m;[m
   
   
   [01;34mprocedure[m [01;30mAdd_License[m [31m([mProject [31m:[m [01;34min[m [01;34mout[m Project_Type[31m)[m [01;34mis[m
      Index [31m:[m Element_Index [31m:=[m [01;30mElement_Index[m[31m([mElement_Vectors[31m.[m[01;30mLength[m[31m([mProject[31m.[mCur[31m.[mChilds[31m)[m [31m+[m [35m1[m[31m);[m
      O [31m:[m Element_Access [31m:=[m [01;30mId[m[31m([mLicense[31m);[m
      File [31m:[m Text_Io[31m.[mFile_Type[31m;[m
   [01;34mbegin[m
      O[31m.[minfo[31m.[mIndex [31m:=[m Index[31m;[m
      O[31m.[mInfo[31m.[mCreated [31m:=[m Clock[31m;[m
      O[31m.[minfo[31m.[mName [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"License"[m[31m);[m
      

      [01;30mOpen[m[31m([mFile[31m,[m In_File[31m,[m [31m"gpl.txt"[m[31m);[m
      [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[35m295[m [01;34mloop[m
	 [01;34mdeclare[m
	    Line [31m:[m [32mString[m [31m:=[m [01;30mGet_Line[m[31m([mFile[31m);[m
	 [01;34mbegin[m
	    [01;34mnull[m[31m;[m
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      O[31m.[mLicense [31m:=[m [01;34mnew[m [01;30mWide_String_Set[m[31m([m[35m13[m[31m);[m
      O[31m.[mLicense[31m.[mLine_Last [31m:=[m [35m13[m[31m;[m
      [01;34mfor[m iter [01;34min[m [35m1[m[31m..[m[35m13[m [01;34mloop[m
	 [01;34mdeclare[m
	    Line [31m:[m [32mString[m [31m:=[m [01;30mGet_Line[m[31m([mFile[31m);[m
	 [01;34mbegin[m
	    O[31m.[mLicense[31m.[m[01;30mLines[m[31m([mIter[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mLine[31m));[m
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;30mAdd_To[m[31m([mProject[31m,[m O[31m);[m
      [01;30mClose[m[31m([mFile[31m);[m
   [01;34mend[m Add_License[31m;[m
   
   
   
   [01;34mtask[m [01;34mbody[m Engine_Process [01;34mis[m
      Single_Curs    [31m:[m Single_Cursor_Type[31m;[m
      Attribute_Curs [31m:[m Attribute_Cursor_Type[31m;[m
      
      Filename [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      
      The_Engine [31m:[m Engine_Type[31m;[m
      Level [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Cmd [31m:[m Element_Cmd_Enum [31m:=[m Null_cmd[31m;[m
      Is_Initialized [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Verax [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Top [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Cmd_Line [31m:[m [32mWide_String[m [31m([m[35m1[m[31m..[mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m6[m[31m);[m
      Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Child_Index [31m:[m Element_Index [31m:=[m [35m1[m[31m;[m
      
      On_List [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      On_Tree [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Obj_Tag [31m:[m Element_Enum [31m:=[m None[31m;[m
      In_Print [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Print_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Printed [31m:[m Element_Access[31m;[m
      Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Childs_Set [31m:[m [01;30mWide_String_Set[m[31m([m[35m4096[m[31m);[m
      Line_Index  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Total_Line [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Path_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Name [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      File [31m:[m [01;30mWide_String_Set[m[31m([m[35m1024[m[31m);[m
      File_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      List_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      List_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
   [01;34mbegin[m

  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34mwhen[m Obj_Tag [31m=[m None [01;34mand[m Cmd [31m/=[m Attribute [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mval[m[31m([m[35m10[m[31m)[m [31m=>[m			   
			      [01;34mif[m Line_Last [31m/=[m [35m0[m [01;34mthen[m
				 In_Print [31m:=[m False[31m;[m
				 Cmd [31m:=[m [01;30mEl_Cmd_Value[m[31m([m[01;30mCmd_Line[m[31m([m[35m1[m[31m..[mLine_Last[31m));[m
				 [01;34mcase[m Cmd [01;34mis[m
				    [01;34mwhen[m Null_Cmd [31m=>[m
				       [01;34mnull[m[31m;[m
				    [01;34mwhen[m Make [31m=>[m
				       [01;34mdeclare[m
					  Tag_Name [31m:[m Os_Lib[31m.[mString_Access[31m;[m
				       [01;34mbegin[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m

					     Tag_Name [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m)));[m
					     
					     Obj_Tag [31m:=[m Element_Enum'[01;30mValue[m[31m([mTag_Name[31m.[m[01;34mall[m[31m);[m

					     [01;34mcase[m Obj_Tag [01;34mis[m
						[01;34mwhen[m None [31m=>[m
						   [01;34mnull[m[31m;[m
						[01;34mwhen[m License [31m=>[m
						   [01;30mAdd_License[m[31m([mApp[31m.[mProject[31m);[m
						   [01;30mSave[m[31m([mApp[31m.[mProject[31m.[mroot[31m,[m Filename[31m.[m[01;34mall[m[31m);[m
						   Obj_Tag [31m:=[m None[31m;[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m

						   Single_Curs [31m:=[m Initialize[31m;[m
					     [01;34mend[m [01;34mcase[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mexception[m
					  [01;34mwhen[m [01;34mothers[m [31m=>[m
					     [01;34mnull[m[31m;[m
				       [01;34mend[m[31m;[m
				    [01;34mwhen[m Attribute [31m=>[m
				       Attribute_Curs [31m:=[m Initialize[31m;[m
				    [01;34mwhen[m Parent [31m=>[m
				       [01;30mParent[m[31m([mApp[31m.[mProject[31m);[m
				    [01;34mwhen[m Load [31m=>[m
				       [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					  Filename [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m))[m [31m&[m [31m".txt"[m[31m);[m
					  [01;34mif[m [01;30mIs_Regular_File[m[31m([mFilename[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
					     [01;30mRestore[m[31m([mApp[31m.[mProject[31m,[m Filename[31m.[m[01;34mall[m[31m);[m
					     [01;30mSet_Free[m[31m([mFile[31m);[m
					     List_Last [31m:=[m [35m0[m[31m;[m
					     [01;30mListing[m[31m([mApp[31m.[mProject[31m.[mRoot[31m,[m File[31m,[m List_Last[31m);[m
					     
					     
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mwhen[m Switch [31m=>[m
				       [01;34mif[m App[31m.[mProject[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     [01;34mdeclare[m
						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						Index [31m:[m Element_Index [31m:=[m [35m1[m[31m;[m
					     [01;34mbegin[m
						Index_Name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
						Index [31m:=[m Element_Index'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mIndex_Name[31m.[m[01;34mall[m[31m));[m
						[01;30mSwitch[m[31m([mApp[31m.[mProject[31m,[m Index[31m,[m Verax[31m);[m
					     [01;34mexception[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m
						   [01;34mnull[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mwhen[m Root [31m=>[m
				       App[31m.[mProject[31m.[mCur [31m:=[m App[31m.[mProject[31m.[mRoot[31m;[m
				       App[31m.[mProject[31m.[mPath [31m:=[m Element_Vectors[31m.[mEmpty_Vector[31m;[m
				       App[31m.[mProject[31m.[mPath [31m:=[m App[31m.[mProject[31m.[mPath [31m&[m App[31m.[mProject[31m.[mRoot[31m;[m
				    [01;34mwhen[m Print [31m=>[m				       
				       [01;34mif[m App[31m.[mProject[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     [01;34mdeclare[m
						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
					     [01;34mbegin[m

						Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m

						Print_Index [31m:=[m Natural'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mIndex_Name[31m.[m[01;34mall[m[31m));[m

						Printed [31m:=[m [01;30mChild[m[31m([mApp[31m.[mProject[31m.[mCur[31m,[m Print_Index[31m);[m
						
						[01;34mcase[m Printed[31m.[mTag [01;34mis[m
						   [01;34mwhen[m None [31m=>[m
						      [01;34mnull[m[31m;[m
						   [01;34mwhen[m License [31m=>[m
						      In_Print  [31m:=[m True[31m;[m
						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m						   
						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						      Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
						   [01;34mwhen[m [01;34mothers[m [31m=>[m

						      In_Print  [31m:=[m True[31m;[m

						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m

						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
						      
						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

						      Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m

						[01;34mend[m [01;34mcase[m[31m;[m
						[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Attr[31m);[m
						Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						Classes[31m.[m[01;30mPrint[m[31m([mPrinted[31m.[mdefinition[31m,[m The_Engine[31m.[mObj_Attr[31m.[mWin[31m);[m
					     [01;34mexception[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m
						   [01;34mdeclare[m
						      Name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						      Index [31m:[m Element_Index [31m:=[m [35m1[m[31m;[m
						   [01;34mbegin[m
						      Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
						      Printed [31m:=[m [01;30mChild[m[31m([mApp[31m.[mProject[31m.[mCur[31m,[m Index_Name[31m.[m[01;34mall[m[31m);[m
						      [01;34mcase[m Printed[31m.[mTag [01;34mis[m
							 [01;34mwhen[m None [31m=>[m
							    [01;34mnull[m[31m;[m
							 [01;34mwhen[m License [31m=>[m
							    In_Print  [31m:=[m True[31m;[m
							    [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
							    [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
							    Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							    [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
							    Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							    Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
							 [01;34mwhen[m [01;34mothers[m [31m=>[m
							    In_Print  [31m:=[m True[31m;[m
							    [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
							    Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							    [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
							    Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

							    Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
						      [01;34mend[m [01;34mcase[m[31m;[m
						      Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						      Classes[31m.[m[01;30mPrint[m[31m([mPrinted[31m.[mdefinition[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
						   [01;34mexception[m
						      [01;34mwhen[m [01;34mothers[m [31m=>[m
							 [01;34mnull[m[31m;[m
						   [01;34mend[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34melse[m

					     Classes[31m.[m[01;30mPrint[m[31m([mApp[31m.[mProject[31m.[mRoot[31m.[mDefinition[31m,[m The_Engine[31m.[mObj_Attr[31m.[mWin[31m);[m

					     [01;34mcase[m App[31m.[mProject[31m.[mRoot[31m.[mTag [01;34mis[m
						[01;34mwhen[m None [31m=>[m
						   [01;34mnull[m[31m;[m
						[01;34mwhen[m License [31m=>[m
						   In_Print  [31m:=[m True[31m;[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   App[31m.[mProject[31m.[mRoot[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m
						   In_Print  [31m:=[m True[31m;[m

						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m

						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m

						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

						   App[31m.[mProject[31m.[mRoot[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
						   
					     [01;34mend[m [01;34mcase[m[31m;[m
					     Print_Index [31m:=[m [35m0[m[31m;[m
					     Printed [31m:=[m [01;34mnull[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mwhen[m Search [31m=>[m
				       [01;34mif[m App[31m.[mProject[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     [01;34mdeclare[m
						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						Index [31m:[m Element_Index [31m:=[m [35m1[m[31m;[m
					     [01;34mbegin[m
						Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
						[01;30mSearch[m[31m([mApp[31m.[mProject[31m,[m Index_Name[31m.[m[01;34mall[m[31m,[m Path_Index[31m,[m Success[31m);[m
						[01;34mif[m Success [01;34mthen[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   
						   [01;34mcase[m Printed[31m.[mTag [01;34mis[m
						      [01;34mwhen[m None [31m=>[m
							 [01;34mnull[m[31m;[m
						      [01;34mwhen[m License [31m=>[m
							 In_Print  [31m:=[m True[31m;[m
							 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
							 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
							 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							 App[31m.[mProject[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
						      [01;34mwhen[m [01;34mothers[m [31m=>[m
							 In_Print  [31m:=[m True[31m;[m
							 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
							 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
							 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							 App[31m.[mProject[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
						   [01;34mend[m [01;34mcase[m[31m;[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Attr[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   Classes[31m.[m[01;30mPrint[m[31m([mApp[31m.[mProject[31m.[mCur[31m.[mdefinition[31m,[m The_Engine[31m.[mObj_Attr[31m.[mWin[31m);[m
						   In_Print [31m:=[m True[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
						Success [31m:=[m False[31m;[m
						Path_Index [31m:=[m [35m0[m[31m;[m
					     [01;34mexception[m
						[01;34mwhen[m Constraint_Error [31m=>[m
						   [01;34mnull[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mwhen[m List [31m=>[m
				       [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
				       [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mList_Win[31m);[m
				       [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Last [31m:=[m [35m0[m[31m;[m
				       Total_Line [31m:=[m [35m0[m[31m;[m
				       Line_Index [31m:=[m [35m0[m[31m;[m
				       On_List [31m:=[m True[31m;[m
				       On_Tree [31m:=[m False[31m;[m
				       [01;34mif[m App[31m.[mProject[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m [01;34mnot[m Element_Vectors[31m.[m[01;30mIs_Empty[m[31m([mApp[31m.[mProject[31m.[mCur[31m.[mChilds[31m)[m [01;34mthen[m
					     [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mApp[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [01;34mloop[m
						[01;34mdeclare[m
						   E [31m:[m [01;34mconstant[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mApp[31m.[mProject[31m.[mCur[31m.[mChilds[31m,[m [01;30mElement_Index[m[31m([mChild[31m));[m
						[01;34mbegin[m
						   [01;30mAdd_Line[m[31m([mChilds_Set[31m,[m Last[31m,[m [01;30mTo_String[m[31m([mE[31m.[mInfo[31m));[m
						[01;34mend[m[31m;[m
					     [01;34mend[m [01;34mloop[m[31m;[m
					     
					     
					  [01;34mend[m [01;34mif[m[31m;[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
				    [01;34mwhen[m Tree [31m=>[m
				       On_Tree [31m:=[m True[31m;[m
				       On_List [31m:=[m False[31m;[m
				       [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Total_Line [31m:=[m [35m0[m[31m;[m
				       Line_Index [31m:=[m [35m0[m[31m;[m
				       [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
				       [01;34mif[m App[31m.[mProject[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;30mTree[m[31m([mApp[31m.[mProject[31m.[mCur[31m,[m Level[31m,[m Childs_Set[31m,[m Last[31m);[m
					  Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m				       
				    [01;34mwhen[m Remove [31m=>[m
				       [01;34mdeclare[m
					  Name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
					  Index [31m:[m Element_Index [31m:=[m [35m1[m[31m;[m
				       [01;34mbegin[m
					  
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m

					     name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m

					     [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mName[31m.[m[01;34mall[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m

						Index [31m:=[m Element_Index'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mName[31m.[m[01;34mall[m[31m));[m
						
						[01;30mRemove[m[31m([mApp[31m.[mProject[31m,[m Index[31m);[m
						[31m--Save(App.Project.root, _Filename);[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mif[m On_List [01;34mthen[m
					     [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
					     [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mList_Win[31m);[m
					     [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
					     Last [31m:=[m [35m0[m[31m;[m
					     Total_Line [31m:=[m [35m0[m[31m;[m
					     Line_Index [31m:=[m [35m0[m[31m;[m
					     [01;34mif[m App[31m.[mProject[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
						[01;34mif[m [01;34mnot[m Element_Vectors[31m.[m[01;30mIs_Empty[m[31m([mApp[31m.[mProject[31m.[mCur[31m.[mChilds[31m)[m [01;34mthen[m
						   [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mApp[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mChilds_Num [01;34mloop[m
						      [01;34mdeclare[m
							 E [31m:[m [01;34mconstant[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mApp[31m.[mProject[31m.[mCur[31m.[mChilds[31m,[m [01;30mElement_Index[m[31m([mChild[31m));[m
						      [01;34mbegin[m
							 [01;30mAdd_Line[m[31m([mChilds_Set[31m,[m Last[31m,[m [01;30mTo_String[m[31m([mE[31m.[mInfo[31m));[m
						      [01;34mend[m[31m;[m
						   [01;34mend[m [01;34mloop[m[31m;[m
						   
						   
						[01;34mend[m [01;34mif[m[31m;[m
						
					     [01;34mend[m [01;34mif[m[31m;[m
					     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
					  [01;34melsif[m On_Tree [01;34mthen[m
					     Total_Line [31m:=[m [35m0[m[31m;[m
					     Line_Index [31m:=[m [35m0[m[31m;[m
					     [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
					     [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
					     [01;34mif[m App[31m.[mProject[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
						[01;30mTree[m[31m([mApp[31m.[mProject[31m.[mCur[31m,[m Level[31m,[m Childs_Set[31m,[m Last[31m);[m
						Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
					  
					  
					  Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m				       
				       [01;34mexception[m
					  [01;34mwhen[m [01;34mothers[m [31m=>[m
					     [01;34mnull[m[31m;[m
				       [01;34mend[m[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       [01;34mnull[m[31m;[m
				 [01;34mend[m [01;34mcase[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      Line_Last [31m:=[m [35m0[m[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m
			      Last [31m:=[m [35m0[m[31m;[m
			      Printed [31m:=[m [01;34mnull[m[31m;[m
			      Print_Index [31m:=[m [35m0[m[31m;[m
			      [01;30mInitialize[m[31m([mThe_Engine[31m,[m Top[31m);[m
			      [01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mProject[31m);[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mContent_Win[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mProject[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mcmd_Win[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;34mif[m App[31m.[mProject[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			      [01;34melsif[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
				 [01;30mCmd_Line[m[31m([mLine_Last[31m)[m [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				 Line_Last [31m:=[m Line_Last [31m-[m [35m1[m[31m;[m
			      [01;34melse[m
				 Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melse[m
			[01;34mif[m App[31m.[mProject[31m.[mRoot [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  App[31m.[mProject[31m.[mcur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mif[m Line_Last [31m+[m [35m1[m [31m<=[m [31m([mCmd_Line'Length[31m-[mApp[31m.[mProject[31m.[mcur[31m.[mInfo[31m.[mName'Length[31m)[m [01;34mthen[m
			      [01;30mCmd_Line[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			      Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
			   [01;34melse[m
			      Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m Line_Last [31m+[m [35m1[m [31m<=[m Cmd_Line'Length [01;34mthen[m
			   [01;30mCmd_Line[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			   Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
			[01;34melse[m
			   Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			   
			[01;34mend[m [01;34mif[m[31m;[m
			
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m
		  [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mContent_Win[31m);[m
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mProject[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
		  [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mcmd_Win[31m);[m
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  
		  [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mFile_win[31m);[m
		  [01;34mif[m List_Last [31m/=[m [35m0[m [01;34mthen[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mFile[31m,[m The_Engine[31m.[mFile_Win[31m,[m List_Index[31m,[m Total_Line[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  
		  [01;34mcase[m Obj_Tag [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;34mcase[m Cmd [01;34mis[m
			   [01;34mwhen[m Attribute [31m=>[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Image : "[m[31m);[m
			      
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_Image [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mwhen[m License [31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mif[m App[31m.[mProject[31m.[mRoot [31m/=[m [01;34mnull[m [01;34mthen[m
		     Child_Index [31m:=[m [01;30mElement_Index[m[31m([mElement_Vectors[31m.[m[01;30mLength[m[31m([mApp[31m.[mProject[31m.[mCur[31m.[mchilds[31m)+[m[35m1[m[31m);[m
		  [01;34melse[m
		     Child_Index [31m:=[m [35m1[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m App[31m.[mProject[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
		  [01;34melsif[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
		  [01;34melse[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
		  [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m cmd [31m=[m attribute [31m=>[m
		  
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Attribute_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Attr[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Attribute_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Attribute_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Attribute_Name [31m=>[m
				       Name [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)));[m
				       Attribute_Curs[31m.[mVal_Cur [31m:=[m Attribute_Enum'[01;30mSucc[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m);[m
				    [01;34mwhen[m Attribute_Image [31m=>[m
				       [01;34mif[m App[31m.[mProject[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m App[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m<[m App[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[mList'Last [01;34mthen[m
					     App[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mApp[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m+[m [35m1[m[31m)[m [31m:=[m
					       [01;30mMake[m[31m([mName[31m.[m[01;34mall[m[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)));[m
					     
					     App[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m:=[m App[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m+[m [35m1[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m

				       attribute_Curs [31m:=[m Initialize[31m;[m

				       [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m

				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

				       [01;30mFree[m[31m([mName[31m);[m

				       Attribute_Curs[31m.[mVal_Cur [31m:=[m Attribute_None[31m;[m
				       Cmd [31m:=[m Null_cmd[31m;[m

				       [01;30mSave[m[31m([mApp[31m.[mProject[31m.[mroot[31m,[m Filename[31m.[m[01;34mall[m[31m);[m

				 [01;34mend[m [01;34mcase[m[31m;[m
				 
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_image [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;34mcase[m Attribute_Curs[31m.[mVal_Cur [01;34mis[m
		     [01;34mwhen[m Attribute_none [31m=>[m
			
			[01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mProject[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mProject[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Attr[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mProject[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[mApp[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[mIndex [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m [35m1[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName[31m.[m[01;34mall[m[31m));[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m1[m[31m,[m Red[31m,[m [31m"="[m[31m);[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m2[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mValue[31m.[m[01;34mall[m[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mProject[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mProject[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mProject[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
			
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mcmd_Win[31m);[m
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Attr[31m);[m
			
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mProject[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[mApp[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[mIndex [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m [35m1[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName[31m.[m[01;34mall[m[31m));[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m1[m[31m,[m Red[31m,[m [31m"="[m[31m);[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m2[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mProject[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mValue[31m.[m[01;34mall[m[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			
			[01;34mif[m App[31m.[mProject[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Image : "[m[31m);[m
			
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			[01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_Image [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m

	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m=[m License [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;30mSet_Free[m[31m([mFile[31m);[m
		     List_Last [31m:=[m [35m0[m[31m;[m
		     [01;30mListing[m[31m([mApp[31m.[mProject[31m.[mRoot[31m,[m File[31m,[m List_Last[31m);[m
		     
		     [01;34mif[m List_Last [31m/=[m [35m0[m [01;34mthen[m
			Success [31m:=[m [01;30mPrint_Set[m[31m([mFile[31m,[m The_Engine[31m.[mFile_Win[31m,[m List_Index[31m,[m Total_Line[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m/=[m None [01;34mand[m Obj_Tag [31m/=[m License [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Single_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Single_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Single_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Single_Line [31m=>[m
				       

				       [01;34mdeclare[m
					  Obj [31m:[m [01;34mconstant[m Element_Access [31m:=[m [01;30mTo_single[m[31m([mSingle_Curs[31m,[m Child_Index[31m,[m Obj_Tag[31m);[m
				       [01;34mbegin[m

					  [01;30mAdd_To[m[31m([mApp[31m.[mProject[31m,[m Obj[31m);[m
					  [01;34mcase[m Obj_tag [01;34mis[m
					     [01;34mwhen[m Program [31m=>[m
						Filename [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mEngine[31m.[m[01;30mProgram_Class[m[31m([mApp[31m.[mProject[31m.[mRoot[31m.[m[01;34mall[m[31m).[mLine[31m.[m[01;34mall[m [31m&[m [31m".txt"[m[31m));[m
						
						[01;30mSave[m[31m([mApp[31m.[mProject[31m.[mroot[31m,[m Filename[31m.[m[01;34mall[m[31m);[m
					     [01;34mwhen[m [01;34mothers[m [31m=>[m
						[01;30mSave[m[31m([mApp[31m.[mProject[31m.[mroot[31m,[m Filename[31m.[m[01;34mall[m[31m);[m
					  [01;34mend[m [01;34mcase[m[31m;[m
				       [01;34mend[m[31m;[m

				       Single_Curs [31m:=[m Initialize[31m;[m
				       [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Obj_Tag [31m:=[m None[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       Single_Curs[31m.[mVal_Cur [31m:=[m Single_Enum'[01;30mSucc[m[31m([mSingle_Curs[31m.[mVal_Cur[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m

				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					   Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mSingle_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mSingle_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Single_Name[31m..[mSingle_Line [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mSingle_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mSingle_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mSingle_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Single_Name[31m..[mSingle_Line [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mSingle_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mSingle_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;30mSet_Free[m[31m([mFile[31m);[m
		  List_Last [31m:=[m [35m0[m[31m;[m
		  [01;30mListing[m[31m([mApp[31m.[mProject[31m.[mRoot[31m,[m File[31m,[m List_Last[31m);[m
		  [01;34mif[m List_Last [31m/=[m [35m0[m [01;34mthen[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mFile_Win[31m,[m List_Index[31m,[m Total_Line[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mcase[m Obj_Tag [01;34mis[m		     
		     [01;34mwhen[m None [31m=>[m
			[01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mProject[31m);[m

			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mProject[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
			
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mProject[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  Engine_Process[31m.[mTop [31m:=[m Top[31m;[m
		  [01;30mInitialize[m[31m([mThe_Engine[31m,[m Top[31m);[m
		  [01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mProject[31m);[m		  
		  [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mProject[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
		  [01;34mif[m In_Print [01;34mthen[m
		     [01;34mif[m Print_Index [31m/=[m [35m0[m [01;34mthen[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mcase[m Printed[31m.[mTag [01;34mis[m
			      [01;34mwhen[m None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m License [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			   
			   Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mcase[m Printed[31m.[mTag [01;34mis[m
			      [01;34mwhen[m None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m License [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melse[m
			   [01;34mcase[m App[31m.[mProject[31m.[mCur[31m.[mTag [01;34mis[m
			      [01;34mwhen[m None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m License [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 App[31m.[mProject[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 App[31m.[mProject[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m Last [31m/=[m [35m0[m [01;34mthen[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mFile[31m,[m The_Engine[31m.[mFile_Win[31m,[m File_Index[31m,[m Total_Line[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m App[31m.[mProject[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
		  [01;34melsif[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m[31m);[m
		  [01;34melse[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Refresh[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m up_arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Full_Screen[31m;[m

	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  
		  
		  Engine_Process[31m.[mTop [31m:=[m Top[31m;[m
		  [01;30mInitialize[m[31m([mThe_Engine[31m,[m Top[31m);[m
		  [01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mProject[31m);[m
		  Obj_Tag [31m:=[m None[31m;[m
		  [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mProject[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
		  [01;34mif[m In_Print [01;34mthen[m
		     [01;34mif[m Print_Index [31m/=[m [35m0[m [01;34mthen[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34melse[m
			   App[31m.[mProject[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m Last [31m/=[m [35m0[m [01;34mthen[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mFile[31m,[m The_Engine[31m.[mFile_Win[31m,[m File_Index[31m,[m Total_Line[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m App[31m.[mProject[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
		  [01;34melsif[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mProject[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m[31m);[m
		  [01;34melse[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Engine process halted");[m
   [01;34mend[m Engine_Process[31m;[m
   
   
   [01;34mtask[m [01;34mbody[m Person_Process [01;34mis[m      
      Attribute_Curs [31m:[m Attribute_Cursor_Type[31m;[m
      
      Universe_Curs [31m:[m Universe_Cursor_Type[31m;[m
      Profile_Curs [31m:[m Profile_Cursor_Type[31m;[m
      Event_Curs [31m:[m Event_Cursor_Type[31m;[m
      Job_Curs [31m:[m Job_Cursor_Type[31m;[m
      Meeting_Curs [31m:[m Meeting_Cursor_Type[31m;[m
      Rendezvous_Curs [31m:[m Rendezvous_Cursor_Type[31m;[m
      Content_Curs [31m:[m Content_Cursor_Type[31m;[m
      Planning_Curs [31m:[m Planning_Cursor_Type[31m;[m
      Media_Curs [31m:[m Media_Cursor_Type[31m;[m
      Car_Curs [31m:[m Car_Cursor_Type[31m;[m
      House_Curs [31m:[m House_Cursor_Type[31m;[m
      
      Obj_Tag [31m:[m Class_Enum [31m:=[m None[31m;[m
      
      Cmd_Line [31m:[m [32mWide_String[m [31m([m[35m1[m[31m..[mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m6[m[31m);[m
      Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Cmd [31m:[m Class_Cmd_Enum [31m:=[m Null_cmd[31m;[m
      
      Entreprise [31m:[m Organizer_Type[31m;[m
      
      Win_Index [31m:[m Natural [31m:=[m [35m1[m[31m;[m
      
      Verax [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Top [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      In_Print [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Print_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Printed [31m:[m Abstract_Access[31m;[m
      
      Path_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Childs_Set [31m:[m [01;30mWide_String_Set[m[31m([m[35m4096[m[31m);[m
      Line_Index  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Total_Line [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Level [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Is_Initialized [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Child_Index [31m:[m Abstract_Index [31m:=[m [35m1[m[31m;[m
      
      On_List [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      On_Tree [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Name [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      
      
      [31m---------------------------------------------------[m
      [31m--                     View                      --[m
      [31m---------------------------------------------------[m
      Activity_From    [31m:[m Window_Record [31m:=[m [31m([m[35m3[m[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m  The_Window[31m);[m
      Activity_To      [31m:[m Window_Record [31m:=[m [31m([m[35m3[m[31m,[m [31m([mApp[31m.[mColumns[31m/[m[35m4[m[31m)+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m The_Window[31m);[m
      Activity_Compta  [31m:[m Window_Record [31m:=[m [31m([m[35m13[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m20[m[31m),[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m The_Window[31m);[m
      Activity_Balance [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m  Yellow[31m,[m The_Window[31m);[m
      Activity_Cmd     [31m:[m Window_Record [31m:=[m [31m([mApp[31m.[mLines[31m-[m[35m2[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m The_Window[31m);[m
      
      
      Date [31m:[m Time [31m:=[m Clock[31m;[m
	 
      Line [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m[31m);[m
      Last_Line [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 
      
      [01;34mprocedure[m [01;30mState_Print[m[31m([mDate [31m:[m [01;34min[m Time[31m;[m Line_Max [31m:[m [01;34min[m Line_Range[31m)[m [01;34mis[m
	 
	 
	 
	 
	 
	 
  	 State [31m:[m Voice_Vectors[31m.[mVector[31m;[m
	 
  	 Page [31m:[m Voice_Vectors[31m.[mVector[31m;[m
	 
  	 From [31m:[m State_Type[31m;[m
  	 To   [31m:[m State_Type[31m;[m
	 
  	 From_Line [31m:[m [01;30mAbstracted_Voice[m[31m([m[35m256[m[31m);[m
  	 To_Line   [31m:[m [01;30mAbstracted_Voice[m[31m([m[35m256[m[31m);[m
	 
	 
      [01;34mbegin[m

  	 [01;34mfor[m Invoice [01;34min[m [35m1[m[31m..[mMain_Accounts[31m.[mInvoice_Last [01;34mloop[m
  	    [01;30mAppend[m[31m([mState[31m,[m [01;34mnew[m Abstracted_Voice ' [31m([m[01;30mabstracted_voice[m[31m([mMain_Accounts[31m.[m[01;30mBilled[m[31m([mInvoice[31m))));[m
  	 [01;34mend[m [01;34mloop[m[31m;[m

  	 [01;34mfor[m outvoice [01;34min[m [35m1[m[31m..[mMain_Accounts[31m.[mOutvoice_Last [01;34mloop[m
  	    [01;30mAppend[m[31m([mState[31m,[m [01;34mnew[m Abstracted_Voice ' [31m([m[01;30mabstracted_voice[m[31m([mMain_Accounts[31m.[m[01;30mCharges[m[31m([moutvoice[31m))));[m
  	 [01;34mend[m [01;34mloop[m[31m;[m

  	 Sorting[31m.[m[01;30mSort[m[31m([mState[31m);[m

  	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mState[31m)[m [01;34mthen[m
  	    [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mState[31m)[m [01;34mloop[m
  	       [01;34mdeclare[m
  		  Voice [31m:[m [01;34mconstant[m Abstracted_Voice [31m:=[m [01;30mElement[m[31m([mState[31m,[m [01;30mVoice_Index_Range[m[31m([mIter[31m)).[m[01;34mall[m[31m;[m
  	       [01;34mbegin[m
  		  [01;34mif[m Voice[31m.[mDate [31m>=[m Date [01;34mthen[m
  		     [01;30mAppend[m[31m([mPage[31m,[m [01;34mnew[m Abstracted_Voice ' [31m([mVoice[31m));[m
  		  [01;34mend[m [01;34mif[m[31m;[m
  		  [01;34mexit[m [01;34mwhen[m [01;30mLength[m[31m([mPage[31m)[m [31m=[m [01;30mCount_Type[m[31m([mLine_Max[31m);[m
  	       [01;34mend[m[31m;[m
  	    [01;34mend[m [01;34mloop[m[31m;[m
  	 [01;34mend[m [01;34mif[m[31m;[m
	 

	 
  	 [01;30mMake_State[m[31m([mState[31m,[m [01;30mTime_Of[m[31m([m[35m1970[m[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m Date[31m,[m From[31m);[m

  	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mPage[31m)[m [01;34mthen[m
	    
  	    From_Line [31m:=[m [01;30mFirst_Element[m[31m([mPage[31m).[m[01;34mall[m[31m;[m
  	    From[31m.[mDate [31m:=[m From_Line[31m.[mdate[31m;[m
  	 [01;34mend[m [01;34mif[m[31m;[m

  	 [01;30mDraw_Window[m[31m([mActivity_From[31m);[m

	 
	 
  	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"From         : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mFrom[31m.[mDate[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal  in HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mDeal_In_Ht[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal  in TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mDeal_In_TTC[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA  out     : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mTVA_Out[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal out HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mDeal_Out_Ht[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m6[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal out TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mDeal_Out_Ht[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA   in     : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mTVA_In[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_From[31m,[m [35m8[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Result       : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mFrom[31m.[mResult[31m)));[m
	 
  	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mPage[31m)[m [01;34mthen[m
  	    [01;30mMake_State[m[31m([mState[31m,[m [01;30mTime_Of[m[31m([m[35m1970[m[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m),[m [01;30mLast_Element[m[31m([mPage[31m).[mDate[31m,[m To[31m);[m
  	 [01;34mend[m [01;34mif[m[31m;[m
	 
  	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mPage[31m)[m [01;34mthen[m
  	    To_Line [31m:=[m [01;30mLast_Element[m[31m([mPage[31m).[m[01;34mall[m[31m;[m
  	    To[31m.[mDate [31m:=[m To_Line[31m.[mdate[31m;[m
  	 [01;34mend[m [01;34mif[m[31m;[m
	 
  	 [01;30mDraw_Window[m[31m([mActivity_To[31m);[m
	 
  	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"To           : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mTo[31m.[mDate[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal  in HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mDeal_In_Ht[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal  in TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mDeal_In_TTC[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA  out     : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mTVA_Out[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal out HT  : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mDeal_Out_Ht[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m6[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Deal out TTC : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mDeal_Out_Ht[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m7[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"TVA   in     : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mTVA_In[31m)));[m
  	 [01;30mDraw_Text[m[31m([mActivity_To[31m,[m [35m8[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Result       : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mTo[31m.[mResult[31m)));[m
	 
  	 [01;30mDraw_Window[m[31m([mActivity_Compta[31m);[m
	 
  	 [01;30mDraw_Text[m[31m([mActivity_Compta[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Voice Num, Acc N , Total HT      , Total TVA    , Total TTC     , date              , Peer Name"[m[31m);[m

  	 [01;30mAccounting_Wins_Draw[m[31m([mApp[31m.[mView_Wins[31m);[m
	 
	 
  	 [01;34mif[m [01;34mnot[m [01;30mIs_Empty[m[31m([mPage[31m)[m [01;34mthen[m
  	    [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mPage[31m)[m [01;34mloop[m
  	       [01;34mdeclare[m
  		  Voice [31m:[m [01;34mconstant[m Abstracted_Voice [31m:=[m [01;30mElement[m[31m([mPage[31m,[m [01;30mVoice_Index_Range[m[31m([mIter[31m)).[m[01;34mall[m[31m;[m
  	       [01;34mbegin[m
  		  [01;30mAccounting_Line_Draw[m[31m([mApp[31m.[mView_Wins[31m,[m [01;30mLine_Range[m[31m([mIter[31m),[m Voice[31m);[m
  	       [01;34mend[m[31m;[m
  	    [01;34mend[m [01;34mloop[m[31m;[m
  	 [01;34mend[m [01;34mif[m[31m;[m
	 
      [01;34mend[m State_Print[31m;[m
      Is_View [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   [01;34mbegin[m      
		  
      [01;30mInitialize[m[31m([mEntreprise[31m,[m [35m0[m[31m);[m

      [01;30mInitialize[m[31m([mActivity_From  [31m,[m [35m3[m[31m,[m [35m1[m[31m,[m [35m10[m[31m,[m [31m([mApp[31m.[mColumns[31m)/[m[35m4[m[31m,[m Blue[31m,[m  White[31m);[m
      [01;30mInitialize[m[31m([mActivity_To    [31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mActivity_Compta[31m,[m [35m13[m[31m,[m [35m1[m[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m20[m[31m),[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mActivity_Balance [31m,[mApp[31m.[mLines[31m-[m[35m5[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m  Yellow[31m,[m White[31m);[m
      [01;30mInitialize[m[31m([mActivity_Cmd[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m [35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m White[31m);[m
      
      
      
      [01;30mInitialize[m[31m([mApp[31m.[mActivity_Wins[31m,[m App[31m.[mLines[31m-[m[35m23[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m [35m13[m[31m,[m [35m2[m[31m,[m [35m0[m[31m);[m
      
      
  Main_Loop[31m:[m
      [01;34mloop[m
  	 [01;34mloop[m
  	    [01;34mselect[m
  	       [01;34mwhen[m Is_View [31m=>[m
  		  [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m
  			      Is_View [31m:=[m False[31m;[m
			      
			      
  			      [01;30mInitialize[m[31m([mActivity_From  [31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m [31m([mApp[31m.[mColumns[31m)/[m[35m4[m[31m,[m Blue[31m,[m  White[31m);[m
  			      [01;30mInitialize[m[31m([mActivity_To    [31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m+[mApp[31m.[mColumns[31m/[m[35m4[m[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m
  			      [01;30mInitialize[m[31m([mActivity_Compta[31m,[m [35m13[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m20[m[31m),[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m White[31m);[m
  			      [01;30mInitialize[m[31m([mActivity_Balance [31m,[mApp[31m.[mLines[31m-[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m  Yellow[31m,[m White[31m);[m
  			      [01;30mInitialize[m[31m([mActivity_Cmd[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m White[31m);[m
			      
			      
			      
  			      [01;30mInitialize[m[31m([mApp[31m.[mView_Wins[31m,[m App[31m.[mLines[31m-[m[35m23[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m [35m13[m[31m,[m [35m2[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m);[m
			      
  			      [31m----------------------------------------------[m
  			      [31m--Errno := System("clear" & Character'Val(0));[m
  			      [31m----------------------------------------------[m
  			      [01;30mState_Print[m[31m([mDate[31m-[m[35m86400.0[m[31m,[m App[31m.[mLines[31m-[m[35m25[m[31m);[m
			      
  			      [01;30mDraw_Window[m[31m([mActivity_Balance[31m);[m
  			      [01;30mDraw_Text[m[31m([mActivity_Balance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
					
  					[31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mCapital[31m))[m [31m&[m
  					  [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mMaterial[31m))[m [31m&[m
  					  [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mTVA_In[31m))[m [31m&[m
  					  [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
  				       [31m);[m
  			      [01;30mDraw_Window[m[31m([mActivity_Cmd[31m);[m
  			      [01;34mif[m Last_Line [31m>[m [35m0[m [01;34mthen[m
  				 [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m [01;30mLine[m[31m([mLine'First[31m..[mLast_Line[31m));[m
  			      [01;34melse[m
  				 [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;30mInitialize[m[31m([mEntreprise[31m,[m [35m0[m[31m);[m
  			      Person_Process[31m.[mTop [31m:=[m [35m0[m[31m;[m
			      
			      
  			      [01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m

  			      Obj_Tag [31m:=[m None[31m;[m
  			      [01;34mif[m Top [31m=[m [35m0[m [01;34mthen[m
  				 Entreprise[31m.[mProc[31m.[mStart[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m

  			      [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			      [01;34mif[m In_Print [01;34mthen[m
  				 [01;34mif[m Print_Index [31m/=[m [35m0[m [01;34mthen[m
  				    [01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
  				       Printed[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  				    [01;34mend[m [01;34mif[m[31m;[m
  				 [01;34melse[m
  				    [01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
  				       Printed[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  				    [01;34melse[m
  				       App[31m.[mSelf[31m.[mCur[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  				    [01;34mend[m [01;34mif[m[31m;[m
  				 [01;34mend[m [01;34mif[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;34mif[m Last [31m/=[m [35m0[m [01;34mthen[m
  				 Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Entreprise[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;34mif[m App[31m.[mSelf[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
  			      [01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m[31m);[m
  			      [01;34melse[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m[31m);[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m10[m[31m)[m [31m=>[m
  			      [01;34mbegin[m
  				 Date [31m:=[m Formatting[31m.[m[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([m[35m1[m[31m..[mLast_Line[31m)));[m
  				 Line [31m:=[m [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m0[m[31m));[m
  				 Last_Line [31m:=[m [35m0[m[31m;[m
  			      [01;34mexception[m
  				 [01;34mwhen[m Constraint_Error [31m=>[m
  				    [01;34mnull[m[31m;[m
  			      [01;34mend[m[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m [31m([m[35m20[m[31m)[m [31m=>[m
  			      Accountant[31m.[m[01;30mClose[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m,[m
  					       Accountant[31m.[mAccounts[31m);[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Last_Line [31m>[m [35m0[m [01;34mthen[m
  				 [01;30mLine[m[31m([mLast_Line[31m)[m [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
  				 Last_Line [31m:=[m Last_Line [31m-[m [35m1[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  			[31m----------------------------------------------[m
  			[31m--Errno := System("clear" & Character'Val(0));[m
  			[31m----------------------------------------------[m
  			[01;34mif[m Is_View [01;34mthen[m
  			   [01;30mState_Print[m[31m([mDate[31m-[m[35m86400.0[m[31m,[m App[31m.[mLines[31m-[m[35m25[m[31m);[m
			   
  			   [01;30mDraw_Window[m[31m([mActivity_Balance[31m);[m
  			   [01;30mDraw_Text[m[31m([mActivity_Balance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
				     
  				     [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mCapital[31m))[m [31m&[m
  				       [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mMaterial[31m))[m [31m&[m
  				       [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mTVA_In[31m))[m [31m&[m
  				       [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
  				    [31m);[m
  			   [01;30mDraw_Window[m[31m([mActivity_Cmd[31m);[m
  			   [01;34mif[m Last_Line [31m>[m [35m0[m [01;34mthen[m
  			      [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m [01;30mLine[m[31m([mLine'First[31m..[mLast_Line[31m));[m
  			   [01;34melse[m
  			      [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
  			   [01;34mend[m [01;34mif[m[31m;[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34melsif[m Last_Line [31m<[m App[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m2[m [01;34mthen[m
  			[01;30mLine[m[31m([mLast_Line [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			Last_Line [31m:=[m Last_Line [31m+[m [35m1[m[31m;[m
  			[01;30mDraw_Window[m[31m([mActivity_Cmd[31m);[m
  			[01;34mif[m Last_Line [31m>[m [35m0[m [01;34mthen[m
  			   [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m [01;30mLine[m[31m([mLine'First[31m..[mLast_Line[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34melse[m
  			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  	    [01;34mor[m
  	       [01;34mwhen[m Obj_Tag [31m=[m None [01;34mand[m Cmd [31m/=[m Attribute [31m=>[m
  		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m=>[m
  			      [01;30mInitialize[m[31m([mEntreprise[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m);[m
  			      Person_Process[31m.[mTop [31m:=[m App[31m.[mColumns[31m/[m[35m2[m[31m;[m
  			      [01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m

  			      Obj_Tag [31m:=[m None[31m;[m
  			      [01;34mif[m Top [31m=[m [35m0[m [01;34mthen[m
  				 Entreprise[31m.[mProc[31m.[mStart[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m

  			      [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			      [01;34mif[m In_Print [01;34mthen[m
  				 [01;34mif[m Print_Index [31m/=[m [35m0[m [01;34mthen[m
  				    [01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
  				       Printed[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  				    [01;34mend[m [01;34mif[m[31m;[m
  				 [01;34melse[m
  				    [01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
  				       Printed[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  				    [01;34melse[m
  				       App[31m.[mSelf[31m.[mCur[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  				    [01;34mend[m [01;34mif[m[31m;[m
  				 [01;34mend[m [01;34mif[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;34mif[m Last [31m/=[m [35m0[m [01;34mthen[m
  				 Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Entreprise[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;34mif[m App[31m.[mSelf[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
  			      [01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m[31m);[m
  			      [01;34melse[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m[31m);[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      Is_View [31m:=[m True[31m;[m

  			      Top [31m:=[m [35m0[m[31m;[m
  			      [01;30mInitialize[m[31m([mActivity_From  [31m,[m [35m3[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m [31m([mApp[31m.[mColumns[31m)/[m[35m4[m[31m,[m Blue[31m,[m  White[31m);[m

  			      [01;30mInitialize[m[31m([mActivity_To    [31m,[m [35m3[m[31m,[m Top[31m+[mApp[31m.[mColumns[31m/[m[35m4[m[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m

  			      [01;30mInitialize[m[31m([mActivity_Compta[31m,[m [35m13[m[31m,[m Top[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m20[m[31m),[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m White[31m);[m

  			      [01;30mInitialize[m[31m([mActivity_Balance [31m,[mApp[31m.[mLines[31m-[m[35m5[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m  Yellow[31m,[m White[31m);[m

  			      [01;30mInitialize[m[31m([mActivity_Cmd[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m Top[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m White[31m);[m

			      
			      
  			      [01;30mInitialize[m[31m([mApp[31m.[mView_Wins[31m,[m App[31m.[mLines[31m-[m[35m23[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m [35m13[m[31m,[m [35m2[m[31m,[m Top[31m);[m

  			      [31m----------------------------------------------[m
  			      [31m--Errno := System("clear" & Character'Val(0));[m
  			      [31m----------------------------------------------[m

  			      [01;30mState_Print[m[31m([mDate[31m-[m[35m86400.0[m[31m,[m App[31m.[mLines[31m-[m[35m25[m[31m);[m

  			      [01;30mDraw_Window[m[31m([mActivity_Balance[31m);[m

  			      [01;30mDraw_Text[m[31m([mActivity_Balance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
					
  					[31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mCapital[31m))[m [31m&[m
  					  [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mMaterial[31m))[m [31m&[m
  					  [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mTVA_In[31m))[m [31m&[m
  					  [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mMain_Balance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
  				       [31m);[m
  			      [01;30mDraw_Window[m[31m([mActivity_Cmd[31m);[m

  			      [01;34mif[m Last_Line [31m>[m [35m0[m [01;34mthen[m
  				 [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m [01;30mLine[m[31m([mLine'First[31m..[mLast_Line[31m));[m
  			      [01;34melse[m
  				 [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
  			      [01;34mend[m [01;34mif[m[31m;[m

			      
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
  			      [01;34mif[m Line_Last [31m/=[m [35m0[m [01;34mthen[m
  				 In_Print [31m:=[m False[31m;[m
  				 Cmd [31m:=[m [01;30mClass_Cmd_Value[m[31m([m[01;30mCmd_Line[m[31m([m[35m1[m[31m..[mLine_Last[31m));[m
  				 [01;34mcase[m Cmd [01;34mis[m
  				    [01;34mwhen[m Null_Cmd [31m=>[m
  				       [01;34mnull[m[31m;[m
				    [01;34mwhen[m Help [31m=>[m
				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mList_Win[31m);[m
				       [01;30mObject_Help[m[31m([mEntreprise[31m.[mList_Win[31m,[m Win_Index[31m);[m
				       Win_Index [31m:=[m [35m1[m[31m;[m

  				    [01;34mwhen[m Make [31m=>[m
  				       [01;34mdeclare[m
  					  Tag_Name [31m:[m Os_Lib[31m.[mString_Access[31m;[m
  				       [01;34mbegin[m
  					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
  					     Tag_Name [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m)));[m
  					     Obj_Tag [31m:=[m Class_Enum'[01;30mValue[m[31m([mTag_Name[31m.[m[01;34mall[m[31m);[m
  					     [01;34mcase[m Obj_Tag [01;34mis[m
  						[01;34mwhen[m None [31m=>[m
  						   [01;34mnull[m[31m;[m
  						[01;34mwhen[m universe [31m=>[m
  						   Universe_Curs [31m:=[m Initialize[31m;[m
  						[01;34mwhen[m Profile [31m=>[m
  						   Profile_Curs [31m:=[m Initialize[31m;[m
  						[01;34mwhen[m Event [31m=>[m
  						   Event_Curs [31m:=[m Initialize[31m;[m
  						[01;34mwhen[m Meeting [31m=>[m
  						   Meeting_Curs [31m:=[m Initialize[31m;[m
  						[01;34mwhen[m Job [31m=>[m
  						   Job_Curs [31m:=[m Initialize[31m;[m
  						[01;34mwhen[m Rendezvous [31m=>[m
  						   Rendezvous_Curs [31m:=[m Initialize[31m;[m
  						[01;34mwhen[m Content [31m=>[m
  						   Content_Curs [31m:=[m Initialize[31m;[m
  						[01;34mwhen[m Planning [31m=>[m
  						   Planning_Curs [31m:=[m Initialize[31m;[m
  						[01;34mwhen[m Book[31m..[mDVD [31m=>[m
  						   Media_Curs [31m:=[m Initialize[31m;[m
  						[01;34mwhen[m Car [31m=>[m
  						   Car_Curs [31m:=[m Initialize[31m;[m
  						[01;34mwhen[m House [31m=>[m
  						   House_Curs [31m:=[m Initialize[31m;[m
  						[01;34mwhen[m [01;34mothers[m [31m=>[m
  						   [01;34mnull[m[31m;[m
  					     [01;34mend[m [01;34mcase[m[31m;[m
  					  [01;34mend[m [01;34mif[m[31m;[m
  				       [01;34mexception[m
  					  [01;34mwhen[m [01;34mothers[m [31m=>[m
  					     [01;34mnull[m[31m;[m
  				       [01;34mend[m[31m;[m
  				    [01;34mwhen[m Attribute [31m=>[m
  				       Attribute_Curs [31m:=[m Initialize[31m;[m
  				    [01;34mwhen[m Parent [31m=>[m
  				       [01;30mParent[m[31m([mApp[31m.[mSelf[31m);[m
  				    [01;34mwhen[m Switch [31m=>[m
  				       [01;34mif[m App[31m.[mSelf[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
  					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
  					     [01;34mdeclare[m
  						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
  						Index [31m:[m Abstract_Index [31m:=[m [35m1[m[31m;[m
  					     [01;34mbegin[m
  						Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
  						Index [31m:=[m Abstract_Index'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mIndex_Name[31m.[m[01;34mall[m[31m));[m
  						[01;30mSwitch[m[31m([mApp[31m.[mSelf[31m,[m Index[31m,[m Verax[31m);[m
  					     [01;34mexception[m
  						[01;34mwhen[m [01;34mothers[m [31m=>[m
  						   [01;34mnull[m[31m;[m
  					     [01;34mend[m[31m;[m
  					  [01;34mend[m [01;34mif[m[31m;[m
  				       [01;34mend[m [01;34mif[m[31m;[m
  				    [01;34mwhen[m Root [31m=>[m
  				       App[31m.[mSelf[31m.[mCur [31m:=[m App[31m.[mSelf[31m.[mRoot[31m;[m
  				       App[31m.[mSelf[31m.[mPath [31m:=[m Abstract_Vectors[31m.[mEmpty_Vector[31m;[m
  				       App[31m.[mSelf[31m.[mPath [31m:=[m App[31m.[mSelf[31m.[mPath [31m&[m App[31m.[mSelf[31m.[mRoot[31m;[m
  				    [01;34mwhen[m Print [31m=>[m				       
  				       [01;34mif[m App[31m.[mSelf[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
  					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
  					     [01;34mdeclare[m
  						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
  						Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
  					     [01;34mbegin[m
						
  						Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
  						Print_Index [31m:=[m Natural'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mIndex_Name[31m.[m[01;34mall[m[31m));[m
  						Printed [31m:=[m [01;30mChild[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Print_Index[31m);[m
  						In_Print  [31m:=[m True[31m;[m
  						[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  						Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  						[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  						Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  						Printed[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
						
  						[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Attr[31m);[m
  						Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  						Classes[31m.[m[01;30mPrint[m[31m([mPrinted[31m.[mdefinition[31m,[m Entreprise[31m.[mObj_Attr[31m.[mWin[31m);[m
  					     [01;34mexception[m
  						[01;34mwhen[m [01;34mothers[m [31m=>[m
  						   [01;34mdeclare[m
  						      Name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
  						      Index [31m:[m Abstract_Index [31m:=[m [35m1[m[31m;[m
  						   [01;34mbegin[m
  						      Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
  						      Printed [31m:=[m [01;30mChild[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Index_Name[31m.[m[01;34mall[m[31m);[m
  						      In_Print  [31m:=[m True[31m;[m
  						      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  						      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  						      Printed[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  						      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Attr[31m);[m
  						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  						      Classes[31m.[m[01;30mPrint[m[31m([mPrinted[31m.[mdefinition[31m,[m Entreprise[31m.[mObj_Attr[31m.[mWin[31m);[m
  						   [01;34mexception[m
  						      [01;34mwhen[m [01;34mothers[m [31m=>[m
  							 [01;34mnull[m[31m;[m
  						   [01;34mend[m[31m;[m
  					     [01;34mend[m[31m;[m
  					  [01;34melse[m
  					     In_Print [31m:=[m True[31m;[m
  					     [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  					     [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  					     App[31m.[mSelf[31m.[mCur[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  					     [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Attr[31m);[m
  					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

  					     Classes[31m.[m[01;30mPrint[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m,[m Entreprise[31m.[mObj_Attr[31m.[mWin[31m);[m

  					     Print_Index [31m:=[m [35m0[m[31m;[m
  					     Printed [31m:=[m [01;34mnull[m[31m;[m
  					  [01;34mend[m [01;34mif[m[31m;[m
					  
  				       [01;34mend[m [01;34mif[m[31m;[m
  				    [01;34mwhen[m Search [31m=>[m
  				       [01;34mif[m App[31m.[mSelf[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
  					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
  					     [01;34mdeclare[m
  						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
  						Index [31m:[m Abstract_Index [31m:=[m [35m1[m[31m;[m
  					     [01;34mbegin[m
  						Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
  						[01;30mSearch[m[31m([mApp[31m.[mSelf[31m,[m Index_Name[31m.[m[01;34mall[m[31m,[m Path_Index[31m,[m Success[31m);[m
  						[01;34mif[m Success [01;34mthen[m
  						   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  						   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  						   App[31m.[mSelf[31m.[mCur[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  						   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Attr[31m);[m
  						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  						   Classes[31m.[m[01;30mPrint[m[31m([mPrinted[31m.[mdefinition[31m,[m Entreprise[31m.[mObj_Attr[31m.[mWin[31m);[m
  						   In_Print [31m:=[m True[31m;[m
  						[01;34mend[m [01;34mif[m[31m;[m
  						Success [31m:=[m False[31m;[m
  						Path_Index [31m:=[m [35m0[m[31m;[m
  					     [01;34mexception[m
  						[01;34mwhen[m Constraint_Error [31m=>[m
  						   [01;34mnull[m[31m;[m
  					     [01;34mend[m[31m;[m
  					  [01;34mend[m [01;34mif[m[31m;[m
  				       [01;34mend[m [01;34mif[m[31m;[m
  				    [01;34mwhen[m List [31m=>[m
  				       [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mList_Win[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       Last [31m:=[m [35m0[m[31m;[m
  				       Total_Line [31m:=[m [35m0[m[31m;[m
  				       Line_Index [31m:=[m [35m0[m[31m;[m
  				       On_List [31m:=[m True[31m;[m
  				       On_Tree [31m:=[m False[31m;[m
  				       [01;34mif[m App[31m.[mSelf[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
  					  [01;34mif[m [01;34mnot[m Abstract_Vectors[31m.[m[01;30mIs_Empty[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mChilds[31m)[m [01;34mthen[m
  					     [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mChilds[31m)[m [01;34mloop[m
  						[01;34mdeclare[m
  						   E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mChilds[31m,[m [01;30mAbstract_Index[m[31m([mChild[31m));[m
  						[01;34mbegin[m
  						   [01;30mAdd_Line[m[31m([mChilds_Set[31m,[m Last[31m,[m [01;30mTo_String[m[31m([mE[31m.[mInfo[31m));[m
  						[01;34mend[m[31m;[m
  					     [01;34mend[m [01;34mloop[m[31m;[m
					     
					     
  					  [01;34mend[m [01;34mif[m[31m;[m
					  
  				       [01;34mend[m [01;34mif[m[31m;[m
  				       Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Entreprise[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
  				    [01;34mwhen[m Tree [31m=>[m
  				       On_Tree [31m:=[m True[31m;[m
  				       On_List [31m:=[m False[31m;[m
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mList_Win[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       Total_Line [31m:=[m [35m0[m[31m;[m
  				       Line_Index [31m:=[m [35m0[m[31m;[m
  				       [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
  				       [01;34mif[m App[31m.[mSelf[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
  					  [01;30mTree[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Level[31m,[m Childs_Set[31m,[m Last[31m);[m
  					  Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Entreprise[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
  				       [01;34mend[m [01;34mif[m[31m;[m				       
  				    [01;34mwhen[m Remove [31m=>[m
  				       [01;34mdeclare[m
  					  Name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
  					  Index [31m:[m Abstract_Index [31m:=[m [35m1[m[31m;[m
  				       [01;34mbegin[m

  					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m

  					     name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m

  					     [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mName[31m.[m[01;34mall[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m

  						Index [31m:=[m Abstract_Index'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mName[31m.[m[01;34mall[m[31m));[m
						
  						[01;30mRemove[m[31m([mApp[31m.[mterminal[31m,[m Index[31m);[m
  						[01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  					     [01;34mend[m [01;34mif[m[31m;[m
  					  [01;34mend[m [01;34mif[m[31m;[m
  					  [01;34mif[m On_List [01;34mthen[m
  					     [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
  					     [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mList_Win[31m);[m
  					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  					     Last [31m:=[m [35m0[m[31m;[m
  					     Total_Line [31m:=[m [35m0[m[31m;[m
  					     Line_Index [31m:=[m [35m0[m[31m;[m
  					     [01;34mif[m App[31m.[mSelf[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
  						[01;34mif[m [01;34mnot[m Abstract_Vectors[31m.[m[01;30mIs_Empty[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mChilds[31m)[m [01;34mthen[m
  						   [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mChilds[31m)[m [01;34mloop[m
  						      [01;34mdeclare[m
  							 E [31m:[m [01;34mconstant[m Abstract_Access [31m:=[m Abstract_Vectors[31m.[m[01;30mElement[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mChilds[31m,[m [01;30mAbstract_Index[m[31m([mChild[31m));[m
  						      [01;34mbegin[m
  							 [01;30mAdd_Line[m[31m([mChilds_Set[31m,[m Last[31m,[m [01;30mTo_String[m[31m([mE[31m.[mInfo[31m));[m
  						      [01;34mend[m[31m;[m
  						   [01;34mend[m [01;34mloop[m[31m;[m
						   
						   
  						[01;34mend[m [01;34mif[m[31m;[m
						
  					     [01;34mend[m [01;34mif[m[31m;[m
  					     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Entreprise[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
  					  [01;34melsif[m On_Tree [01;34mthen[m
  					     Total_Line [31m:=[m [35m0[m[31m;[m
  					     Line_Index [31m:=[m [35m0[m[31m;[m
  					     [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mList_Win[31m);[m
  					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  					     [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
  					     [01;34mif[m App[31m.[mSelf[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
  						[01;30mTree[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Level[31m,[m Childs_Set[31m,[m Last[31m);[m
  						Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Entreprise[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
  					     [01;34mend[m [01;34mif[m[31m;[m
  					  [01;34mend[m [01;34mif[m[31m;[m
					  
					  
					  
  					  Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Entreprise[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
  				       [01;34mexception[m
  					  [01;34mwhen[m [01;34mothers[m [31m=>[m
  					     [01;34mnull[m[31m;[m
  				       [01;34mend[m[31m;[m
  				 [01;34mend[m [01;34mcase[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      Line_Last [31m:=[m [35m0[m[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m
  			      Last [31m:=[m [35m0[m[31m;[m
  			      Printed [31m:=[m [01;34mnull[m[31m;[m
  			      Print_Index [31m:=[m [35m0[m[31m;[m
  			      [01;30mInitialize[m[31m([mEntreprise[31m,[m Top[31m);[m
  			      [01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mContent_Win[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      [01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			      [01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			      [01;34melse[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
  				 [01;30mCmd_Line[m[31m([mLine_Last[31m)[m [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
  				 Line_Last [31m:=[m Line_Last [31m-[m [35m1[m[31m;[m
  			      [01;34melse[m
  				 Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34melse[m
  			[01;34mif[m App[31m.[mSelf[31m.[mRoot [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
  			  App[31m.[mSelf[31m.[mcur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;34mif[m Line_Last [31m+[m [35m1[m [31m<=[m [31m([mCmd_Line'Length[31m-[mApp[31m.[mSelf[31m.[mcur[31m.[mInfo[31m.[mName'Length[31m)[m [01;34mthen[m
  			      [01;30mCmd_Line[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			      Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
  			   [01;34melse[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      
  			   [01;34mend[m [01;34mif[m[31m;[m
  			[01;34melsif[m Line_Last [31m+[m [35m1[m [31m<=[m Cmd_Line'Length [01;34mthen[m
  			   [01;30mCmd_Line[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			   Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
  			[01;34melse[m
  			   Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			   
  			[01;34mend[m [01;34mif[m[31m;[m
			
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  		  [01;34mif[m [01;34mnot[m Is_View [01;34mthen[m
  		     [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mContent_Win[31m);[m
  		     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		     
  		     [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  		     [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  		     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  		     [01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  		     [01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  		     [01;34melse[m
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mcase[m Obj_Tag [01;34mis[m
  			[01;34mwhen[m None [31m=>[m
  			   [01;34mcase[m Cmd [01;34mis[m
  			      [01;34mwhen[m Attribute [31m=>[m
  				 [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Image : "[m[31m);[m
				 
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  				 [01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_Image [01;34mloop[m
  				    [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  					      Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  					      White[31m,[m
  					      Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  				 [01;34mend[m [01;34mloop[m[31m;[m
				 
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					   Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			      [01;34mwhen[m [01;34mothers[m [31m=>[m
  				 [01;34mnull[m[31m;[m
  			   [01;34mend[m [01;34mcase[m[31m;[m
  			[01;34mwhen[m Profile [31m=>[m
  			   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Born : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Addr : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Phone : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Email : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			[01;34mwhen[m Content [31m=>[m
  			   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			[01;34mwhen[m Planning [31m=>[m
  			   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"From : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"To   : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			[01;34mwhen[m Universe [31m=>[m
  			   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			[01;34mwhen[m Event [31m..[m Rendezvous [31m=>[m
  			   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Period : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			[01;34mwhen[m Book[31m..[mCDROM [31m=>[m
  			   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Editor : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Title : "[m[31m);[m
  			[01;34mwhen[m Car [31m=>[m
  			   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Mark : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Model : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Mat : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			[01;34mwhen[m House [31m=>[m
  			   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Addr : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Surf : "[m[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			[01;34mwhen[m [01;34mothers[m [31m=>[m
  			   [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  		     [01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34mif[m App[31m.[mSelf[31m.[mRoot [31m/=[m [01;34mnull[m [01;34mthen[m
  			Child_Index [31m:=[m [01;30mAbstract_Index[m[31m([mAbstract_Vectors[31m.[m[01;30mLength[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mchilds[31m)+[m[35m1[m[31m);[m
  		     [01;34melse[m
  			Child_Index [31m:=[m [35m1[m[31m;[m
  		     [01;34mend[m [01;34mif[m[31m;[m
  		  [01;34mend[m [01;34mif[m[31m;[m
		  
  	    [01;34mor[m
  	       [01;34mwhen[m Cmd [31m=[m attribute [31m=>[m
		  
  		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
  			      Attribute_Curs [31m:=[m Initialize[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Attr[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      Obj_Tag [31m:=[m None[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
  			      [01;34mif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
  				 [01;34mcase[m Attribute_Curs[31m.[mVal_Cur [01;34mis[m
  				    [01;34mwhen[m Attribute_None [31m=>[m
  				       [01;34mnull[m[31m;[m
				       
  				    [01;34mwhen[m Attribute_Name [31m=>[m
  				       Name [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)));[m
  				       Attribute_Curs[31m.[mVal_Cur [31m:=[m Attribute_Enum'[01;30mSucc[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m);[m
  				    [01;34mwhen[m Attribute_Image [31m=>[m
  				       [01;34mif[m App[31m.[mSelf[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
  					  [01;34mif[m App[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m<[m App[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[mList'Last [01;34mthen[m
  					     App[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m+[m [35m1[m[31m)[m [31m:=[m
  					       [01;30mMake[m[31m([mName[31m.[m[01;34mall[m[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)));[m
					     
  					     App[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m:=[m App[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m+[m [35m1[m[31m;[m
  					  [01;34mend[m [01;34mif[m[31m;[m
  				       [01;34mend[m [01;34mif[m[31m;[m
				       
  				       attribute_Curs [31m:=[m Initialize[31m;[m
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       [01;30mFree[m[31m([mName[31m);[m
  				       Attribute_Curs[31m.[mVal_Cur [31m:=[m Attribute_None[31m;[m
  				       Cmd [31m:=[m Null_cmd[31m;[m
  				       [01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  				 [01;34mend[m [01;34mcase[m[31m;[m
				 
  			      [01;34melse[m
  				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
  				 Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
  				 Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  				   Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
			      
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34melsif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
  			Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  			  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
  			[01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_image [01;34mloop[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  				     White[31m,[m
  				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			[01;34mend[m [01;34mloop[m[31m;[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  				  White[31m,[m
  				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
  		     [01;34melse[m
  			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  		  [01;34mcase[m Attribute_Curs[31m.[mVal_Cur [01;34mis[m
  		     [01;34mwhen[m Attribute_none [31m=>[m
			
  			[01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Attr[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[mApp[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[mIndex [01;34mloop[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Attr[31m,[m I[31m,[m [35m1[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName[31m.[m[01;34mall[m[31m));[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m1[m[31m,[m Red[31m,[m [31m"="[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m2[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mValue[31m.[m[01;34mall[m[31m));[m
  			   [01;34mend[m [01;34mloop[m[31m;[m
  			[01;34mend[m [01;34mif[m[31m;[m
			
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mwhen[m [01;34mothers[m [31m=>[m
  			[01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
			
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Attr[31m);[m
			
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[mApp[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[mIndex [01;34mloop[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Attr[31m,[m I[31m,[m [35m1[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName[31m.[m[01;34mall[m[31m));[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m1[m[31m,[m Red[31m,[m [31m"="[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m2[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mSelf[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mValue[31m.[m[01;34mall[m[31m));[m
  			   [01;34mend[m [01;34mloop[m[31m;[m
  			[01;34mend[m [01;34mif[m[31m;[m
			
			
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34mend[m [01;34mif[m[31m;[m
			
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Image : "[m[31m);[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			[01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_Image [01;34mloop[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  				     White[31m,[m
  				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			[01;34mend[m [01;34mloop[m[31m;[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  				  White[31m,[m
  				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
  			[01;34mnull[m[31m;[m
  		  [01;34mend[m [01;34mcase[m[31m;[m
		  
  	    [01;34mor[m
	       
  	       [01;34mwhen[m Obj_Tag [31m=[m Profile [31m=>[m
  		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
  			      Profile_Curs [31m:=[m Initialize[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      Obj_Tag [31m:=[m None[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
  			      [01;34mif[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
  				 [01;34mcase[m Profile_Curs[31m.[mVal_Cur [01;34mis[m
  				    [01;34mwhen[m Profile_None [31m=>[m
  				       [01;34mnull[m[31m;[m
				       
  				    [01;34mwhen[m Profile_Email [31m=>[m
				       
  				       [01;34mdeclare[m
  					  Profile [31m:[m [01;34mconstant[m Profile_Class [31m:=[m [01;30mTo_Profile[m[31m([mProfile_Curs[31m,[m Child_Index[31m);[m
  				       [01;34mbegin[m
  					  [01;30mAdd_To[m[31m([mApp[31m.[mSelf[31m,[m [01;34mnew[m Profile_Class '[31m([mProfile[31m));[m
  					  [01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  				       [01;34mend[m[31m;[m
				       
  				       Profile_Curs [31m:=[m Initialize[31m;[m
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       Obj_Tag [31m:=[m None[31m;[m
  				    [01;34mwhen[m [01;34mothers[m [31m=>[m
  				       Profile_Curs[31m.[mVal_Cur [31m:=[m Profile_Enum'[01;30mSucc[m[31m([mProfile_Curs[31m.[mVal_Cur[31m);[m
  				 [01;34mend[m [01;34mcase[m[31m;[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					   Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProfile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			      [01;34melse[m
  				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
  				 Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mProfile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
  				 Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  				   Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Born : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Addr : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Phone : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Email : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			      [01;34mfor[m Val [01;34min[m Profile_Full_Name[31m..[mProfile_Email [01;34mloop[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  					   Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProfile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			      [01;34mend[m [01;34mloop[m[31m;[m
			      
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					White[31m,[m
  					Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProfile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34melsif[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
  			Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mProfile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  			  Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			
  		     [01;34melse[m
  			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  		  [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  		  [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Born : "[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Addr : "[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Phone : "[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Email : "[m[31m);[m
  		  [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  		  [01;34mfor[m Val [01;34min[m Profile_Full_Name[31m..[mProfile_Email [01;34mloop[m
  		     [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  			       Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  			       White[31m,[m
  			       Profile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProfile_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  		  [01;34mend[m [01;34mloop[m[31m;[m
		  
  		  [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  			    Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  			    White[31m,[m
  			    Profile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mProfile_Curs[31m.[m[01;30mValues[m[31m([mProfile_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  		  [01;34mcase[m Obj_Tag [01;34mis[m		     
  		     [01;34mwhen[m None [31m=>[m
  			[01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mwhen[m [01;34mothers[m [31m=>[m
  			[01;34mnull[m[31m;[m
  		  [01;34mend[m [01;34mcase[m[31m;[m
		  
		  
  	    [01;34mor[m
  	       [01;34mwhen[m Obj_Tag [31m=[m Content [31m=>[m
		  
  		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
  			      Content_Curs [31m:=[m Initialize[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      Obj_Tag [31m:=[m None[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
  			      [01;34mif[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
  				 [01;34mcase[m Content_Curs[31m.[mVal_Cur [01;34mis[m
  				    [01;34mwhen[m Content_None [31m=>[m
  				       [01;34mnull[m[31m;[m
				       
  				    [01;34mwhen[m Content_Price [31m=>[m
				       
				       
  				       [01;34mdeclare[m
  					  Content [31m:[m [01;34mconstant[m Content_Class [31m:=[m [01;30mTo_Content[m[31m([mContent_Curs[31m,[m Child_Index[31m);[m
  				       [01;34mbegin[m
  					  [01;30mAdd_To[m[31m([mApp[31m.[mSelf[31m,[m [01;34mnew[m Content_Class '[31m([mContent[31m));[m
  					  [01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  				       [01;34mend[m[31m;[m
				       
  				       Content_Curs [31m:=[m Initialize[31m;[m
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       Obj_Tag [31m:=[m None[31m;[m
  				    [01;34mwhen[m [01;34mothers[m [31m=>[m
  				       Content_Curs[31m.[mVal_Cur [31m:=[m Content_Enum'[01;30mSucc[m[31m([mContent_Curs[31m.[mVal_Cur[31m);[m
  				 [01;34mend[m [01;34mcase[m[31m;[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					   Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mContent_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			      [01;34melse[m
  				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
  				 Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mContent_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
  				 Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  				   Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Price : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			      [01;34mfor[m Val [01;34min[m Content_Name[31m..[mContent_Price [01;34mloop[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  					   Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mContent_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			      [01;34mend[m [01;34mloop[m[31m;[m
			      
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					White[31m,[m
  					Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mContent_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34melsif[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
  			Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mContent_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  			  Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
  			[01;34mfor[m Val [01;34min[m Content_Name[31m..[mContent_Price [01;34mloop[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  				     Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  				     White[31m,[m
  				     Content_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mContent_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			[01;34mend[m [01;34mloop[m[31m;[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  				  Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  				  White[31m,[m
  				  Content_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mContent_Curs[31m.[m[01;30mValues[m[31m([mContent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
  		     [01;34melse[m
  			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  		  [01;34mcase[m Obj_Tag [01;34mis[m		     
  		     [01;34mwhen[m None [31m=>[m
  			[01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mwhen[m [01;34mothers[m [31m=>[m
  			[01;34mnull[m[31m;[m
  		  [01;34mend[m [01;34mcase[m[31m;[m
  	    [01;34mor[m
  	       [01;34mwhen[m Obj_Tag [31m=[m Planning [31m=>[m
		  
  		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
  			      Planning_Curs [31m:=[m Initialize[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      Obj_Tag [31m:=[m None[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
  			      [01;34mif[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
  				 [01;34mcase[m Planning_Curs[31m.[mVal_Cur [01;34mis[m
  				    [01;34mwhen[m Planning_None [31m=>[m
  				       [01;34mnull[m[31m;[m
				       
  				    [01;34mwhen[m Planning_To [31m=>[m
				       
  				       [01;34mdeclare[m
  					  Planning [31m:[m [01;34mconstant[m Planning_Class [31m:=[m [01;30mTo_Planning[m[31m([mPlanning_Curs[31m,[m Child_Index[31m);[m
  				       [01;34mbegin[m
  					  [01;30mAdd_To[m[31m([mApp[31m.[mSelf[31m,[m [01;34mnew[m Planning_Class '[31m([mPlanning[31m));[m
  					  [01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  				       [01;34mend[m[31m;[m
				       
  				       Planning_Curs [31m:=[m Initialize[31m;[m
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       Obj_Tag [31m:=[m None[31m;[m
  				    [01;34mwhen[m [01;34mothers[m [31m=>[m
  				       Planning_Curs[31m.[mVal_Cur [31m:=[m Planning_Enum'[01;30mSucc[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m);[m
  				 [01;34mend[m [01;34mcase[m[31m;[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					   Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mPlanning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			      [01;34melse[m
  				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
  				 Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mPlanning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
  				 Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  				   Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"From : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"To   : "[m[31m);[m
			      
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			      [01;34mfor[m Val [01;34min[m Planning_Name[31m..[mPlanning_To [01;34mloop[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  					   Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mPlanning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			      [01;34mend[m [01;34mloop[m[31m;[m
			      
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					White[31m,[m
  					Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mPlanning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34melsif[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
  			Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mPlanning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  			  Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
  			[01;34mfor[m Val [01;34min[m Planning_Name[31m..[mPlanning_To [01;34mloop[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  				     Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  				     White[31m,[m
  				     Planning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mPlanning_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			[01;34mend[m [01;34mloop[m[31m;[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  				  Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  				  White[31m,[m
  				  Planning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mPlanning_Curs[31m.[m[01;30mValues[m[31m([mPlanning_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
  		     [01;34melse[m
  			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  		  [01;34mcase[m Obj_Tag [01;34mis[m		     
  		     [01;34mwhen[m None [31m=>[m
  			[01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mwhen[m [01;34mothers[m [31m=>[m
  			[01;34mnull[m[31m;[m
  		  [01;34mend[m [01;34mcase[m[31m;[m
		  
		  
  	    [01;34mor[m
  	       [01;34mwhen[m Obj_Tag [31m=[m Event [31m=>[m
		  
  		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
  			      Event_Curs [31m:=[m Initialize[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      Obj_Tag [31m:=[m None[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
  			      [01;34mif[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
  				 [01;34mcase[m Event_Curs[31m.[mVal_Cur [01;34mis[m
  				    [01;34mwhen[m Event_None [31m=>[m
  				       [01;34mnull[m[31m;[m
				       
  				    [01;34mwhen[m Event_Define [31m=>[m
				       
				       
  				       [01;34mdeclare[m
  					  Event [31m:[m [01;34mconstant[m Event_Class [31m:=[m [01;30mTo_Event[m[31m([mEvent_Curs[31m,[m Child_Index[31m);[m
  				       [01;34mbegin[m
  					  [01;30mAdd_To[m[31m([mApp[31m.[mSelf[31m,[m [01;34mnew[m Event_Class '[31m([mEvent[31m));[m
  					  [01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  				       [01;34mend[m[31m;[m

  				       Event_Curs [31m:=[m Initialize[31m;[m
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       Obj_Tag [31m:=[m None[31m;[m
  				    [01;34mwhen[m [01;34mothers[m [31m=>[m
  				       Event_Curs[31m.[mVal_Cur [31m:=[m Event_Enum'[01;30mSucc[m[31m([mEvent_Curs[31m.[mVal_Cur[31m);[m
  				 [01;34mend[m [01;34mcase[m[31m;[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					   Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mEvent_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			      [01;34melse[m
  				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
  				 Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mEvent_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
  				 Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  				   Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Period : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			      [01;34mfor[m Val [01;34min[m Event_Name[31m..[mEvent_Define [01;34mloop[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  					   Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mEvent_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			      [01;34mend[m [01;34mloop[m[31m;[m
			      
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					White[31m,[m
  					Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mEvent_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34melsif[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
  			Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mEvent_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  			  Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
  			[01;34mfor[m Val [01;34min[m Event_Name[31m..[mEvent_Define [01;34mloop[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  				     Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  				     White[31m,[m
  				     Event_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mEvent_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			[01;34mend[m [01;34mloop[m[31m;[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  				  Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  				  White[31m,[m
  				  Event_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mEvent_Curs[31m.[m[01;30mValues[m[31m([mEvent_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
  		     [01;34melse[m
  			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  		  [01;34mcase[m Obj_Tag [01;34mis[m		     
  		     [01;34mwhen[m None [31m=>[m
  			[01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mwhen[m [01;34mothers[m [31m=>[m
  			[01;34mnull[m[31m;[m
  		  [01;34mend[m [01;34mcase[m[31m;[m
  	    [01;34mor[m
  	       [01;34mwhen[m Obj_Tag [31m=[m Job [31m=>[m
		  
  		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
  			      Job_Curs [31m:=[m Initialize[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      Obj_Tag [31m:=[m None[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
  			      [01;34mif[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
  				 [01;34mcase[m Job_Curs[31m.[mVal_Cur [01;34mis[m
  				    [01;34mwhen[m Job_None [31m=>[m
  				       [01;34mnull[m[31m;[m
				       
  				    [01;34mwhen[m Job_Define [31m=>[m
				       
  				       [01;34mdeclare[m
  					  Job [31m:[m [01;34mconstant[m Job_Class [31m:=[m [01;30mTo_Job[m[31m([mJob_Curs[31m,[m Child_Index[31m);[m
  				       [01;34mbegin[m
  					  [01;30mAdd_To[m[31m([mApp[31m.[mSelf[31m,[m [01;34mnew[m Job_Class '[31m([mJob[31m));[m
  					  [01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  				       [01;34mend[m[31m;[m
				       
  				       Job_Curs [31m:=[m Initialize[31m;[m
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       Obj_Tag [31m:=[m None[31m;[m
  				    [01;34mwhen[m [01;34mothers[m [31m=>[m
  				       Job_Curs[31m.[mVal_Cur [31m:=[m Job_Enum'[01;30mSucc[m[31m([mJob_Curs[31m.[mVal_Cur[31m);[m
  				 [01;34mend[m [01;34mcase[m[31m;[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					   Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mJob_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			      [01;34melse[m
  				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
  				 Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mJob_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
  				 Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  				   Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Period : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			      [01;34mfor[m Val [01;34min[m Job_Name[31m..[mJob_Define [01;34mloop[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  					   Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mJob_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			      [01;34mend[m [01;34mloop[m[31m;[m
			      
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					White[31m,[m
  					Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mJob_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34melsif[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
  			Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mJob_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  			  Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
  			[01;34mfor[m Val [01;34min[m Job_Name[31m..[mJob_Define [01;34mloop[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  				     Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  				     White[31m,[m
  				     Job_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mJob_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			[01;34mend[m [01;34mloop[m[31m;[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  				  Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  				  White[31m,[m
  				  Job_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mJob_Curs[31m.[m[01;30mValues[m[31m([mJob_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
  		     [01;34melse[m
  			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  		  [01;34mcase[m Obj_Tag [01;34mis[m		     
  		     [01;34mwhen[m None [31m=>[m
  			[01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mwhen[m [01;34mothers[m [31m=>[m
  			[01;34mnull[m[31m;[m
  		  [01;34mend[m [01;34mcase[m[31m;[m
  	    [01;34mor[m
  	       [01;34mwhen[m Obj_Tag [31m=[m Meeting [31m=>[m
		  
  		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
  			      Meeting_Curs [31m:=[m Initialize[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      Obj_Tag [31m:=[m None[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
  			      [01;34mif[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
  				 [01;34mcase[m Meeting_Curs[31m.[mVal_Cur [01;34mis[m
  				    [01;34mwhen[m Meeting_None [31m=>[m
  				       [01;34mnull[m[31m;[m
				       
  				    [01;34mwhen[m Meeting_Define [31m=>[m
				       
				       
  				       [01;34mdeclare[m
  					  Meeting [31m:[m [01;34mconstant[m Meeting_Class [31m:=[m [01;30mTo_Meeting[m[31m([mMeeting_Curs[31m,[m Child_index[31m);[m
  				       [01;34mbegin[m
  					  [01;30mAdd_To[m[31m([mApp[31m.[mSelf[31m,[m [01;34mnew[m Meeting_Class '[31m([mMeeting[31m));[m
  					  [01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  				       [01;34mend[m[31m;[m
				       
  				       Meeting_Curs [31m:=[m Initialize[31m;[m
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       Obj_Tag [31m:=[m None[31m;[m
  				    [01;34mwhen[m [01;34mothers[m [31m=>[m
  				       Meeting_Curs[31m.[mVal_Cur [31m:=[m Meeting_Enum'[01;30mSucc[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m);[m
  				 [01;34mend[m [01;34mcase[m[31m;[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					   Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMeeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			      [01;34melse[m
  				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
  				 Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mMeeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
  				 Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  				   Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Period : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			      [01;34mfor[m Val [01;34min[m Meeting_Name[31m..[mMeeting_Define [01;34mloop[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  					   Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMeeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			      [01;34mend[m [01;34mloop[m[31m;[m
			      
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					White[31m,[m
  					Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMeeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34melsif[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
  			Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mMeeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  			  Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
  			[01;34mfor[m Val [01;34min[m Meeting_Name[31m..[mMeeting_Define [01;34mloop[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  				     Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  				     White[31m,[m
  				     Meeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMeeting_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			[01;34mend[m [01;34mloop[m[31m;[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  				  Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  				  White[31m,[m
  				  Meeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMeeting_Curs[31m.[m[01;30mValues[m[31m([mMeeting_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
  		     [01;34melse[m
  			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  		  [01;34mcase[m Obj_Tag [01;34mis[m		     
  		     [01;34mwhen[m None [31m=>[m
  			[01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mwhen[m [01;34mothers[m [31m=>[m
  			[01;34mnull[m[31m;[m
  		  [01;34mend[m [01;34mcase[m[31m;[m
  	    [01;34mor[m
  	       [01;34mwhen[m Obj_Tag [31m=[m Rendezvous [31m=>[m
		  
  		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
  			      Rendezvous_Curs [31m:=[m Initialize[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      Obj_Tag [31m:=[m None[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
  			      [01;34mif[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
  				 [01;34mcase[m Rendezvous_Curs[31m.[mVal_Cur [01;34mis[m
  				    [01;34mwhen[m Rendezvous_None [31m=>[m
  				       [01;34mnull[m[31m;[m
				       
  				    [01;34mwhen[m Rendezvous_Define [31m=>[m
				       
  				       [01;34mdeclare[m
  					  Rendezvous [31m:[m [01;34mconstant[m Rendezvous_Class [31m:=[m [01;30mTo_Rendezvous[m[31m([mRendezvous_Curs[31m,[m Child_Index[31m);[m
  				       [01;34mbegin[m
  					  [01;30mAdd_To[m[31m([mApp[31m.[mSelf[31m,[m [01;34mnew[m Rendezvous_Class '[31m([mRendezvous[31m));[m
  					  [01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  				       [01;34mend[m[31m;[m
				       
  				       Rendezvous_Curs [31m:=[m Initialize[31m;[m
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       Obj_Tag [31m:=[m None[31m;[m
  				    [01;34mwhen[m [01;34mothers[m [31m=>[m
  				       Rendezvous_Curs[31m.[mVal_Cur [31m:=[m Rendezvous_Enum'[01;30mSucc[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m);[m
  				 [01;34mend[m [01;34mcase[m[31m;[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					   Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mRendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			      [01;34melse[m
  				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
  				 Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mRendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
  				 Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  				   Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Period : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m4[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Locality : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m5[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Define : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			      [01;34mfor[m Val [01;34min[m Rendezvous_Name[31m..[mRendezvous_Define [01;34mloop[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  					   Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mRendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			      [01;34mend[m [01;34mloop[m[31m;[m
			      
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					White[31m,[m
  					Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mRendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34melsif[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
  			Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mRendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  			  Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
  			[01;34mfor[m Val [01;34min[m Rendezvous_Name[31m..[mRendezvous_Define [01;34mloop[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  				     Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  				     White[31m,[m
  				     Rendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mRendezvous_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			[01;34mend[m [01;34mloop[m[31m;[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  				  Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  				  White[31m,[m
  				  Rendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mRendezvous_Curs[31m.[m[01;30mValues[m[31m([mRendezvous_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
  		     [01;34melse[m
  			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  		  [01;34mcase[m Obj_Tag [01;34mis[m		     
  		     [01;34mwhen[m None [31m=>[m
  			[01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mwhen[m [01;34mothers[m [31m=>[m
  			[01;34mnull[m[31m;[m
  		  [01;34mend[m [01;34mcase[m[31m;[m
  	    [01;34mor[m
  	       [01;34mwhen[m Obj_Tag [31m=[m Universe [31m=>[m
		  
  		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
  			      Content_Curs [31m:=[m Initialize[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Attr[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      Obj_Tag [31m:=[m None[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
  			      [01;34mif[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
  				 [01;34mcase[m Universe_Curs[31m.[mVal_Cur [01;34mis[m
  				    [01;34mwhen[m Universe_None [31m=>[m
  				       [01;34mnull[m[31m;[m
				       
  				    [01;34mwhen[m Universe_Name [31m=>[m
				       
  				       [01;34mdeclare[m
  					  Universe [31m:[m [01;34mconstant[m Universe_Class [31m:=[m [01;30mTo_Universe[m[31m([mUniverse_Curs[31m,[m Child_index[31m);[m
  				       [01;34mbegin[m
  					  [01;30mAdd_To[m[31m([mApp[31m.[mSelf[31m,[m [01;34mnew[m Universe_Class '[31m([mUniverse[31m));[m
  					  [01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  				       [01;34mend[m[31m;[m
				       
				       
  				       [31m--------------------------------[m
  				       Universe_Curs [31m:=[m Initialize[31m;[m
  				       [31m--------------------------------[m
				       
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       Obj_Tag [31m:=[m None[31m;[m
  				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       
  				       Universe_Curs[31m.[mVal_Cur [31m:=[m Universe_Enum'[01;30mSucc[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m);[m
  				 [01;34mend[m [01;34mcase[m[31m;[m
				 
  			      [01;34melse[m
  				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
  				 Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mUniverse_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
  				 Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  				   Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  			      [01;34mfor[m Val [01;34min[m Universe_Name[31m..[mUniverse_Name [01;34mloop[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  					   Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			      [01;34mend[m [01;34mloop[m[31m;[m
			      
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					White[31m,[m
  					Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34melsif[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
  			Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mUniverse_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  			  Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
  			[01;34mfor[m Val [01;34min[m Universe_Name[31m..[mUniverse_name [01;34mloop[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  				     Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  				     White[31m,[m
  				     Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			[01;34mend[m [01;34mloop[m[31m;[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  				  Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  				  White[31m,[m
  				  Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
  		     [01;34melse[m
  			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  		  [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  		  [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
  		  [01;34mfor[m Val [01;34min[m Universe_Name[31m..[mUniverse_Name [01;34mloop[m
  		     [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  			       Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  			       White[31m,[m
  			       Universe_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  		  [01;34mend[m [01;34mloop[m[31m;[m
		  
  		  [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  			    Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  			    White[31m,[m
  			    Universe_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mUniverse_Curs[31m.[m[01;30mValues[m[31m([mUniverse_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  		  [01;34mcase[m Obj_Tag [01;34mis[m		     
  		     [01;34mwhen[m None [31m=>[m
  			[01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mwhen[m [01;34mothers[m [31m=>[m
  			[01;34mnull[m[31m;[m
  		  [01;34mend[m [01;34mcase[m[31m;[m
		  
  	    [01;34mor[m
  	       [01;34mwhen[m Obj_Tag [31m=[m Book [01;34mor[m Obj_Tag [31m=[m CDROM [01;34mor[m Obj_Tag [31m=[m DVD [31m=>[m
		  
  		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
  		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
  			[01;34mcase[m Wchar [01;34mis[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
  			      Content_Curs [31m:=[m Initialize[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Header[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Attr[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      Obj_Tag [31m:=[m None[31m;[m
  			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
  			      [01;34mif[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
  				 [01;34mcase[m Media_Curs[31m.[mVal_Cur [01;34mis[m
  				    [01;34mwhen[m Media_None [31m=>[m
  				       [01;34mnull[m[31m;[m
				       
  				    [01;34mwhen[m Media_Editor [31m=>[m
  				       [01;34mcase[m Obj_Tag [01;34mis[m
  					  [01;34mwhen[m Book [31m=>[m
					     
  					     [01;34mdeclare[m
  						Book [31m:[m [01;34mconstant[m Book_Class [31m:=[m [01;30mTo_Book[m[31m([mMedia_Curs[31m,[m Child_index[31m);[m
  					     [01;34mbegin[m
  						[01;30mAdd_To[m[31m([mApp[31m.[mSelf[31m,[m [01;34mnew[m Book_Class '[31m([mBook[31m));[m
  						[01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  					     [01;34mend[m[31m;[m
  					  [01;34mwhen[m CDROM [31m=>[m
  					     [01;34mdeclare[m
  						CDROM [31m:[m [01;34mconstant[m CDROM_Class [31m:=[m [01;30mTo_CDROM[m[31m([mMedia_Curs[31m,[m Child_index[31m);[m
  					     [01;34mbegin[m
  						[01;30mAdd_To[m[31m([mApp[31m.[mSelf[31m,[m [01;34mnew[m CDROM_Class '[31m([mCDROM[31m));[m
  						[01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  					     [01;34mend[m[31m;[m
					     
  					  [01;34mwhen[m DVD [31m=>[m
  					     [01;34mdeclare[m
  						DVD [31m:[m [01;34mconstant[m DVD_Class [31m:=[m [01;30mTo_DVD[m[31m([mMedia_Curs[31m,[m Child_index[31m);[m
  					     [01;34mbegin[m
  						[01;30mAdd_To[m[31m([mApp[31m.[mSelf[31m,[m [01;34mnew[m DVD_Class '[31m([mDVD[31m));[m
  						[01;30mSave[m[31m([mApp[31m.[mSelf[31m.[mroot[31m,[m Person_Filename[31m);[m
  					     [01;34mend[m[31m;[m
  					  [01;34mwhen[m [01;34mothers[m [31m=>[m
  					     [01;34mnull[m[31m;[m
  				       [01;34mend[m [01;34mcase[m[31m;[m
				       
  				       [31m--------------------------------[m
  				       Media_Curs [31m:=[m Initialize[31m;[m
  				       [31m--------------------------------[m
				       
  				       [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  				       Obj_Tag [31m:=[m None[31m;[m
  				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       
  				       Media_Curs[31m.[mVal_Cur [31m:=[m Media_Enum'[01;30mSucc[m[31m([mMedia_Curs[31m.[mVal_Cur[31m);[m
  				 [01;34mend[m [01;34mcase[m[31m;[m
				 
  			      [01;34melse[m
  				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
  			      [01;34mif[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
  				 Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mMedia_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
  				 Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  				   Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
  			      [01;34mend[m [01;34mif[m[31m;[m
  			      [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Editor : "[m[31m);[m
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Title : "[m[31m);[m
  			      [01;34mfor[m Val [01;34min[m Media_title[31m..[mMedia_Editor [01;34mloop[m
  				 [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  					   Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  					   White[31m,[m
  					   Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			      [01;34mend[m [01;34mloop[m[31m;[m
			      
  			      [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  					Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  					White[31m,[m
  					Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  			   [01;34mwhen[m [01;34mothers[m [31m=>[m
  			      [01;34mnull[m[31m;[m
  			[01;34mend[m [01;34mcase[m[31m;[m
  		     [01;34melsif[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
  			Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mMedia_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
  			Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
  			  Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
  			[01;34mfor[m Val [01;34min[m Media_Title[31m..[mMedia_Editor [01;34mloop[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  				     Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  				     White[31m,[m
  				     Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			[01;34mend[m [01;34mloop[m[31m;[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  				  Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  				  White[31m,[m
  				  Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
  		     [01;34melse[m
  			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
  		     [01;34mend[m [01;34mif[m[31m;[m
		     
  		  [01;34mend[m Receive[31m;[m
  		  [01;30mEnlight_Window[m[31m([mEntreprise[31m.[mObj_Main[31m);[m
  		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  
  		  [01;34mcase[m Obj_Tag [01;34mis[m		     
  		     [01;34mwhen[m None [31m=>[m
  			[01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  			[01;30mEnlight_Window[m[31m([mEntreprise[31m.[mcmd_Win[31m);[m
  			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
  			[01;34mif[m App[31m.[mSelf[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34melse[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mwhen[m Book [31m..[m DVD [31m=>[m
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Author : "[m[31m);[m
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m3[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Editor : "[m[31m);[m
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Title : "[m[31m);[m
  			[01;34mfor[m Val [01;34min[m Media_Title[31m..[mMedia_Editor [01;34mloop[m
  			   [01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
  				     Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
  				     White[31m,[m
  				     Media_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
  			[01;34mend[m [01;34mloop[m[31m;[m
			
  			[01;30mDraw_Text[m[31m([mEntreprise[31m.[mObj_Main[31m,[m Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
  				  Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
  				  White[31m,[m
  				  Media_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mMedia_Curs[31m.[m[01;30mValues[m[31m([mMedia_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
  		     [01;34mwhen[m [01;34mothers[m [31m=>[m
  			[01;34mnull[m[31m;[m
  		  [01;34mend[m [01;34mcase[m[31m;[m
		  
		  
		  
  	    [01;34mor[m
  	       [01;34maccept[m Halt [01;34mdo[m
  		  Entreprise[31m.[mProc[31m.[mHalt[31m;[m
  	       [01;34mend[m Halt[31m;[m
  	       [01;34mexit[m Main_loop[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  
		  
		  
  		  [01;30mInitialize[m[31m([mActivity_From  [31m,[m [35m3[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m [31m+[m [35m1[m[31m,[m [35m10[m[31m,[m [31m([mApp[31m.[mColumns[31m)/[m[35m4[m[31m,[m Blue[31m,[m  White[31m);[m
  		  [01;30mInitialize[m[31m([mActivity_To    [31m,[m [35m3[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m[31m+[mApp[31m.[mColumns[31m/[m[35m4[m[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m
  		  [01;30mInitialize[m[31m([mActivity_Compta[31m,[m [35m13[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m20[m[31m),[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m White[31m);[m
  		  [01;30mInitialize[m[31m([mActivity_Balance [31m,[mApp[31m.[mLines[31m-[m[35m5[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m  Yellow[31m,[m White[31m);[m
  		  [01;30mInitialize[m[31m([mActivity_Cmd[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m White[31m);[m
		  
		  
		  
  		  [01;30mInitialize[m[31m([mApp[31m.[mView_Wins[31m,[m App[31m.[mLines[31m-[m[35m23[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m [35m13[m[31m,[m [35m2[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m[31m);[m
		  
  		  [31m----------------------------------------------[m
  		  [31m--Errno := System("clear" & Character'Val(0));[m
  		  [31m----------------------------------------------[m
  		  [01;30mState_Print[m[31m([mDate[31m-[m[35m86400.0[m[31m,[m App[31m.[mLines[31m-[m[35m25[m[31m);[m
		  
  		  [01;30mDraw_Window[m[31m([mActivity_Balance[31m);[m
  		  [01;30mDraw_Text[m[31m([mActivity_Balance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
			    
  			    [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mCapital[31m))[m [31m&[m
  			      [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mMaterial[31m))[m [31m&[m
  			      [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_In[31m))[m [31m&[m
  			      [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
  			   [31m);[m
  		  [01;30mDraw_Window[m[31m([mActivity_Cmd[31m);[m
  		  [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
  		     [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m [01;30mLine[m[31m([mLine'First[31m..[mLine_Last[31m));[m
  		  [01;34melse[m
  		     [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
  		  [01;34mend[m [01;34mif[m[31m;[m
		  
		     
		     
		  
		  
		  
  		  Person_Process[31m.[mTop [31m:=[m Top[31m;[m
  		  [01;30mInitialize[m[31m([mEntreprise[31m,[m Top[31m);[m
  		  [01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  		  Obj_Tag [31m:=[m None[31m;[m
  		  [01;34mif[m Top [31m=[m [35m0[m [01;34mthen[m
  		     Entreprise[31m.[mProc[31m.[mStart[31m;[m
  		  [01;34mend[m [01;34mif[m[31m;[m
  		  [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  		  [01;34mif[m In_Print [01;34mthen[m
  		     [01;34mif[m Print_Index [31m/=[m [35m0[m [01;34mthen[m
  			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
  			   Printed[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34melse[m
  			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
  			   Printed[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  			[01;34melse[m
  			   App[31m.[mSelf[31m.[mCur[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mend[m [01;34mif[m[31m;[m
  		  [01;34mend[m [01;34mif[m[31m;[m
  		  [01;34mif[m Last [31m/=[m [35m0[m [01;34mthen[m
  		     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Entreprise[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
  		  [01;34mend[m [01;34mif[m[31m;[m
  		  [01;34mif[m App[31m.[mSelf[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
  		     [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
  		  [01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  		     [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m[31m);[m
  		  [01;34melse[m
  		     [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m[31m);[m
  		  [01;34mend[m [01;34mif[m[31m;[m
  	       [01;34mend[m Wake_Up[31m;[m
  	    [01;34mor[m
	       
  	       [01;34maccept[m Suspend [01;34mdo[m
  		  Entreprise[31m.[mProc[31m.[mStop[31m;[m
  	       [01;34mend[m Suspend[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Page_Down [01;34mdo[m
  		  [01;34mif[m Line_Index [31m+[m [31m([mEntreprise[31m.[mList_Win[31m.[mH[31m-[m[35m2[m[31m)[m [31m<=[m Last [01;34mthen[m
  		     Line_Index [31m:=[m Line_Index [31m+[m [31m([mEntreprise[31m.[mList_Win[31m.[mH[31m-[m[35m2[m[31m);[m
  		     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Entreprise[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
  		  [01;34melse[m
  		     Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m		     
  		  [01;34mend[m [01;34mif[m[31m;[m
  	       [01;34mend[m Page_Down[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Page_Up [01;34mdo[m
  		  [01;34mif[m Line_Index [31m>[m [35m0[m [01;34mthen[m
  		     Line_Index [31m:=[m Line_Index [31m-[m [31m([mEntreprise[31m.[mList_Win[31m.[mH[31m-[m[35m2[m[31m);[m
  		     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Entreprise[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
  		  [01;34melse[m
  		     Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m		     
  		  [01;34mend[m [01;34mif[m[31m;[m
  	       [01;34mend[m Page_Up[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Up_Arrow [01;34mdo[m
  		  [01;34mnull[m[31m;[m
  	       [01;34mend[m Up_Arrow[31m;[m
	       
  	    [01;34mor[m
  	       [01;34maccept[m Down_Arrow [01;34mdo[m
  		  [01;34mnull[m[31m;[m
  	       [01;34mend[m Down_Arrow[31m;[m
	       
  	    [01;34mor[m
  	       [01;34maccept[m Left_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Right_Arrow[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Begin_Of[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m End_Of[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Del[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Overwrite[31m;[m      
  	    [01;34mend[m [01;34mselect[m[31m;[m
  	 [01;34mend[m [01;34mloop[m[31m;[m
  	 [01;34mloop[m
  	    [01;34mselect[m
	       
  	       [01;34maccept[m Halt [01;34mdo[m
  		  Entreprise[31m.[mProc[31m.[mHalt[31m;[m
  	       [01;34mend[m Halt[31m;[m
  	       [01;34mexit[m Main_Loop[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Suspend [01;34mdo[m
  		  Entreprise[31m.[mProc[31m.[mStop[31m;[m
  	       [01;34mend[m Suspend[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  
  		  [01;30mInitialize[m[31m([mActivity_From  [31m,[m [35m3[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m [31m+[m [35m1[m[31m,[m [35m10[m[31m,[m [31m([mApp[31m.[mColumns[31m)/[m[35m4[m[31m,[m Blue[31m,[m  White[31m);[m
  		  [01;30mInitialize[m[31m([mActivity_To    [31m,[m [35m3[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m[31m+[mApp[31m.[mColumns[31m/[m[35m4[m[31m+[m[35m1[m[31m,[m [35m10[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m,[m Blue[31m,[m White[31m);[m
  		  [01;30mInitialize[m[31m([mActivity_Compta[31m,[m [35m13[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m[31m+[m[35m1[m[31m,[m [31m([mApp[31m.[mLines[31m-[m[35m20[m[31m),[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Cyan[31m,[m White[31m);[m
  		  [01;30mInitialize[m[31m([mActivity_Balance [31m,[mApp[31m.[mLines[31m-[m[35m5[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m  Yellow[31m,[m White[31m);[m
  		  [01;30mInitialize[m[31m([mActivity_Cmd[31m,[m App[31m.[mLines[31m-[m[35m2[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m[31m+[m[35m1[m[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m White[31m,[m White[31m);[m
		  
		  
		  
  		  [01;30mInitialize[m[31m([mApp[31m.[mView_Wins[31m,[m App[31m.[mLines[31m-[m[35m23[m[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m [35m13[m[31m,[m [35m2[m[31m,[m App[31m.[mColumns [31m/[m [35m2[m[31m);[m
		  
  		  [31m----------------------------------------------[m
  		  [31m--Errno := System("clear" & Character'Val(0));[m
  		  [31m----------------------------------------------[m
  		  [01;30mState_Print[m[31m([mDate[31m-[m[35m86400.0[m[31m,[m App[31m.[mLines[31m-[m[35m25[m[31m);[m
		  
  		  [01;30mDraw_Window[m[31m([mActivity_Balance[31m);[m
  		  [01;30mDraw_Text[m[31m([mActivity_Balance[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m 
			    
  			    [31m" Capital : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mCapital[31m))[m [31m&[m
  			      [31m", Material :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mMaterial[31m))[m [31m&[m
  			      [31m", TVA In :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_In[31m))[m [31m&[m
  			      [31m", TVA Out :"[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFixed_Total'[01;30mImage[m[31m([mM[31m.[mBalance[31m.[mBalance[31m.[mTVA_Out[31m))[m [31m&[m [31m""[m
  			   [31m);[m
  		  [01;30mDraw_Window[m[31m([mActivity_Cmd[31m);[m
  		  [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
  		     [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m [31m&[m [01;30mLine[m[31m([mLine'First[31m..[mLine_Last[31m));[m
  		  [01;34melse[m
  		     [01;30mDraw_text[m[31m([mActivity_Cmd[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Date : "[m[31m);[m
  		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  
		  
		  
  		  [01;30mInitialize[m[31m([mEntreprise[31m,[m Top[31m);[m
  		  Person_Process[31m.[mTop [31m:=[m Top[31m;[m
  		  [01;30mDraw[m[31m([mEntreprise[31m,[m App[31m.[mSelf[31m);[m
  		  [01;34mif[m Top [31m=[m [35m0[m [01;34mthen[m
  		     Entreprise[31m.[mProc[31m.[mStart[31m;[m
  		  [01;34mend[m [01;34mif[m[31m;[m
  		  Obj_Tag [31m:=[m None[31m;[m
  		  [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mSelf[31m.[mCur[31m,[m Entreprise[31m.[mContent_Win[31m.[mwin[31m);[m
  		  [01;34mif[m In_Print [01;34mthen[m
  		     [01;34mif[m Print_Index [31m/=[m [35m0[m [01;34mthen[m
  			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
  			   Printed[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34melse[m
  			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
  			   Printed[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  			[01;34melse[m
  			   App[31m.[mSelf[31m.[mCur[31m.[m[01;30mPrint[m[31m([mEntreprise[31m.[mObj_Header[31m.[mWin[31m,[m Entreprise[31m.[mObj_Main[31m.[mWin[31m);[m
  			[01;34mend[m [01;34mif[m[31m;[m
  		     [01;34mend[m [01;34mif[m[31m;[m
  		  [01;34mend[m [01;34mif[m[31m;[m
  		  [01;34mif[m Last [31m/=[m [35m0[m [01;34mthen[m
  		     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m Entreprise[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
  		  [01;34mend[m [01;34mif[m[31m;[m
  		  [01;34mif[m App[31m.[mSelf[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
  		     [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
  		  [01;34melsif[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
  		     [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mSelf[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m[31m);[m
  		  [01;34melse[m
  		     [01;30mDraw_Text[m[31m([mEntreprise[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m[31m);[m
  		  [01;34mend[m [01;34mif[m[31m;[m
  	       [01;34mend[m Wake_Up[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mend[m [01;34mselect[m[31m;[m
  	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Person process halted"[m[31m);[m
   [01;34mend[m Person_Process[31m;[m
   
   
   

   
   
  [31m--   task body Person_Process is      [m
      
  [31m--   begin[m
      
  [31m--  Main_Loop:[m
  [31m--      loop[m
  [31m--  	 loop[m
  [31m--  	    select[m
  [31m--  	       accept Receive (Wchar : in Wide_Character);[m
  [31m--  	    or[m
  [31m--  	       accept Halt do[m
  [31m--  		  null;[m
  [31m--  	       end Halt;[m
  [31m--  	       exit Main_loop;[m
  [31m--  	    or[m
  [31m--  	       accept Wake_Up(Top : in Natural) do[m
  [31m--  		  W_Io.Put_Line("World");[m
  [31m--  	       end Wake_Up;[m
  [31m--  	    or[m
	       
  [31m--  	       accept Suspend;[m
  [31m--  	       exit;[m
  [31m--  	    or[m
  [31m--  	       accept Page_Down;[m
  [31m--  	    or[m
  [31m--  	       accept Page_Up;[m
  [31m--  	    or[m
  [31m--  	       accept Up_Arrow do[m
  [31m--  		  null;[m
  [31m--  	       end Up_Arrow;[m
	       
  [31m--  	    or[m
  [31m--  	       accept Down_Arrow do[m
  [31m--  		  null;[m
  [31m--  	       end Down_Arrow;[m
	       
  [31m--  	    or[m
  [31m--  	       accept Left_Arrow;[m
  [31m--  	    or[m
  [31m--  	       accept Right_Arrow;[m
  [31m--  	    or[m
  [31m--  	       accept Begin_Of;[m
  [31m--  	    or[m
  [31m--  	       accept End_Of;[m
  [31m--  	    or[m
  [31m--  	       accept Del;[m
  [31m--  	    or[m
  [31m--  	       accept Overwrite;      [m
  [31m--  	    end select;[m
  [31m--  	 end loop;[m
  [31m--  	 loop[m
  [31m--  	    select[m
	       
  [31m--  	       accept Halt;[m
  [31m--  	       exit Main_Loop;[m
  [31m--  	    or[m
  [31m--  	       accept Suspend;[m
  [31m--  	    or[m
  [31m--  	       accept Wake_Up(Top : in Natural) do[m
		  
  [31m--  		  W_Io.Put_Line("Person");[m
  [31m--  		  Text_Io.Put_Line("Greetings " & Getenv("USER").all & "!");[m
		  
  [31m--  	       end Wake_Up;[m
  [31m--  	       exit;[m
  [31m--  	    end select;[m
  [31m--  	 end loop;[m
  [31m--      end loop Main_Loop;[m
  [31m--      --W_Io.Put_Line("Bank process halted");[m
  [31m--   end Person_Process;[m
   
   
   
   
   [01;34mtask[m [01;34mbody[m Conductor_Process [01;34mis[m      
      
   [01;34mbegin[m
      
  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
	    [01;34mor[m
	       [01;34maccept[m Halt [01;34mdo[m
	 	  [01;34mnull[m[31m;[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
	 	  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"World"[m[31m);[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
	 	  [01;34mnull[m[31m;[m
	       [01;34mend[m Up_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
	 	  [01;34mnull[m[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m      
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  
	 	  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"World"[m[31m);[m
	 	  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Greetings "[m [31m&[m [01;30mGetenv[m[31m([m[31m"USER"[m[31m).[m[01;34mall[m [31m&[m [31m"!"[m[31m);[m
		  
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Bank process halted");[m
   [01;34mend[m Conductor_Process[31m;[m
   

   [31m-------------------------------------------------------------------------------[m
   [31m--                                    Master                                 --[m
   [31m-------------------------------------------------------------------------------[m
   
   
   [01;34mtask[m [01;34mbody[m Master_Process [01;34mis[m
      Single_Curs    [31m:[m Single_Cursor_Type[31m;[m
      Attribute_Curs [31m:[m Attribute_Cursor_Type[31m;[m
      
      Filename [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      
      The_Engine [31m:[m Engine_Type[31m;[m
      Level [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Cmd [31m:[m Element_Cmd_Enum [31m:=[m Null_cmd[31m;[m
      Is_Initialized [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Verax [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Top [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Cmd_Line [31m:[m [32mWide_String[m [31m([m[35m1[m[31m..[mApp[31m.[mColumns[31m/[m[35m2[m[31m-[m[35m6[m[31m);[m
      Line_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Child_Index [31m:[m Element_Index [31m:=[m [35m1[m[31m;[m
      
      On_List [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      On_Tree [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Obj_Tag [31m:[m Element_Enum [31m:=[m None[31m;[m
      In_Print [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Print_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Printed [31m:[m Element_Access[31m;[m
      Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Childs_Set [31m:[m [01;30mWide_String_Set[m[31m([m[35m4096[m[31m);[m
      Line_Index  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Total_Line [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Path_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      Name [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      File [31m:[m [01;30mWide_String_Set[m[31m([m[35m1024[m[31m);[m
      File_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      List_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      List_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m

   [01;34mbegin[m

  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34mwhen[m Obj_Tag [31m=[m None [01;34mand[m Cmd [31m/=[m Attribute [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mval[m[31m([m[35m10[m[31m)[m [31m=>[m			   
			      [01;34mif[m Line_Last [31m/=[m [35m0[m [01;34mthen[m
				 In_Print [31m:=[m False[31m;[m
				 Cmd [31m:=[m [01;30mEl_Cmd_Value[m[31m([m[01;30mCmd_Line[m[31m([m[35m1[m[31m..[mLine_Last[31m));[m
				 [01;34mcase[m Cmd [01;34mis[m
				    [01;34mwhen[m Null_Cmd [31m=>[m
				       [01;34mnull[m[31m;[m
				    [01;34mwhen[m Make [31m=>[m
				       [01;34mdeclare[m
					  Tag_Name [31m:[m Os_Lib[31m.[mString_Access[31m;[m
				       [01;34mbegin[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m

					     Tag_Name [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m)));[m
					     
					     Obj_Tag [31m:=[m Element_Enum'[01;30mValue[m[31m([mTag_Name[31m.[m[01;34mall[m[31m);[m

					     [01;34mcase[m Obj_Tag [01;34mis[m
						[01;34mwhen[m None [31m=>[m
						   [01;34mnull[m[31m;[m
						[01;34mwhen[m License [31m=>[m
						   [01;30mAdd_License[m[31m([mApp[31m.[mBorg[31m);[m
						   [01;30mSave[m[31m([mApp[31m.[mBorg[31m.[mroot[31m,[m Filename[31m.[m[01;34mall[m[31m);[m
						   Obj_Tag [31m:=[m None[31m;[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m

						   Single_Curs [31m:=[m Initialize[31m;[m
					     [01;34mend[m [01;34mcase[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mexception[m
					  [01;34mwhen[m [01;34mothers[m [31m=>[m
					     [01;34mnull[m[31m;[m
				       [01;34mend[m[31m;[m
				    [01;34mwhen[m Attribute [31m=>[m
				       Attribute_Curs [31m:=[m Initialize[31m;[m
				    [01;34mwhen[m Parent [31m=>[m
				       [01;30mParent[m[31m([mApp[31m.[mBorg[31m);[m
				    [01;34mwhen[m Load [31m=>[m
				       [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					  Filename [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m))[m [31m&[m [31m".txt"[m[31m);[m
					  [01;34mif[m [01;30mIs_Regular_File[m[31m([mFilename[31m.[m[01;34mall[m[31m)[m [01;34mthen[m
					     [01;30mRestore[m[31m([mApp[31m.[mBorg[31m,[m Filename[31m.[m[01;34mall[m[31m);[m

					     [01;30mSet_Free[m[31m([mFile[31m);[m

					     List_Last [31m:=[m [35m0[m[31m;[m
					     [01;30mListing[m[31m([mApp[31m.[mBorg[31m.[mRoot[31m,[m File[31m,[m List_Last[31m);[m

					     
					     
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mwhen[m Switch [31m=>[m
				       [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     [01;34mdeclare[m
						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						Index [31m:[m Element_Index [31m:=[m [35m1[m[31m;[m
					     [01;34mbegin[m
						Index_Name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
						Index [31m:=[m Element_Index'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mIndex_Name[31m.[m[01;34mall[m[31m));[m
						[01;30mSwitch[m[31m([mApp[31m.[mBorg[31m,[m Index[31m,[m Verax[31m);[m
					     [01;34mexception[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m
						   [01;34mnull[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mwhen[m Root [31m=>[m
				       App[31m.[mBorg[31m.[mCur [31m:=[m App[31m.[mBorg[31m.[mRoot[31m;[m
				       App[31m.[mBorg[31m.[mPath [31m:=[m Element_Vectors[31m.[mEmpty_Vector[31m;[m
				       App[31m.[mBorg[31m.[mPath [31m:=[m App[31m.[mBorg[31m.[mPath [31m&[m App[31m.[mBorg[31m.[mRoot[31m;[m
				    [01;34mwhen[m Print [31m=>[m				       
				       [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     [01;34mdeclare[m
						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
					     [01;34mbegin[m

						Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m

						Print_Index [31m:=[m Natural'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mIndex_Name[31m.[m[01;34mall[m[31m));[m
						
						Printed [31m:=[m [01;30mChild[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m Print_Index[31m);[m
						
						[01;34mcase[m Printed[31m.[mTag [01;34mis[m
						   [01;34mwhen[m None [31m=>[m
						      [01;34mnull[m[31m;[m
						   [01;34mwhen[m License [31m=>[m
						      In_Print  [31m:=[m True[31m;[m
						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m						   
						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						      Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
						   [01;34mwhen[m [01;34mothers[m [31m=>[m

						      In_Print  [31m:=[m True[31m;[m

						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m

						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
						      
						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

						      Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m

						[01;34mend[m [01;34mcase[m[31m;[m
						[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Attr[31m);[m
						Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						Classes[31m.[m[01;30mPrint[m[31m([mPrinted[31m.[mdefinition[31m,[m The_Engine[31m.[mObj_Attr[31m.[mWin[31m);[m
					     [01;34mexception[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m
						   [01;34mdeclare[m
						      Name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						      Index [31m:[m Element_Index [31m:=[m [35m1[m[31m;[m
						   [01;34mbegin[m
						      Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
						      Printed [31m:=[m [01;30mChild[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m Index_Name[31m.[m[01;34mall[m[31m);[m
						      [01;34mcase[m Printed[31m.[mTag [01;34mis[m
							 [01;34mwhen[m None [31m=>[m
							    [01;34mnull[m[31m;[m
							 [01;34mwhen[m License [31m=>[m
							    In_Print  [31m:=[m True[31m;[m
							    [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
							    [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
							    Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							    [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
							    Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							    Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
							 [01;34mwhen[m [01;34mothers[m [31m=>[m
							    In_Print  [31m:=[m True[31m;[m
							    [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
							    Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							    [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
							    Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

							    Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
						      [01;34mend[m [01;34mcase[m[31m;[m
						      Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
						      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
						      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						      Classes[31m.[m[01;30mPrint[m[31m([mPrinted[31m.[mdefinition[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
						   [01;34mexception[m
						      [01;34mwhen[m [01;34mothers[m [31m=>[m
							 [01;34mnull[m[31m;[m
						   [01;34mend[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34melse[m

					     Classes[31m.[m[01;30mPrint[m[31m([mApp[31m.[mBorg[31m.[mcur[31m.[mDefinition[31m,[m The_Engine[31m.[mObj_Attr[31m.[mWin[31m);[m
					     
					     [01;34mcase[m App[31m.[mBorg[31m.[mRoot[31m.[mTag [01;34mis[m
						[01;34mwhen[m None [31m=>[m
						   [01;34mnull[m[31m;[m
						[01;34mwhen[m License [31m=>[m
						   In_Print  [31m:=[m True[31m;[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   App[31m.[mBorg[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
						[01;34mwhen[m [01;34mothers[m [31m=>[m
						   In_Print  [31m:=[m True[31m;[m

						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m

						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m

						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

						   App[31m.[mBorg[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
						   
					     [01;34mend[m [01;34mcase[m[31m;[m
					     Print_Index [31m:=[m [35m0[m[31m;[m
					     Printed [31m:=[m [01;34mnull[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mwhen[m Search [31m=>[m
				       [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
					     [01;34mdeclare[m
						Index_name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
						Index [31m:[m Element_Index [31m:=[m [35m1[m[31m;[m
					     [01;34mbegin[m
						Index_name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m
						[01;30mSearch[m[31m([mApp[31m.[mBorg[31m,[m Index_Name[31m.[m[01;34mall[m[31m,[m Path_Index[31m,[m Success[31m);[m
						[01;34mif[m Success [01;34mthen[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   
						   [01;34mcase[m Printed[31m.[mTag [01;34mis[m
						      [01;34mwhen[m None [31m=>[m
							 [01;34mnull[m[31m;[m
						      [01;34mwhen[m License [31m=>[m
							 In_Print  [31m:=[m True[31m;[m
							 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
							 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
							 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							 App[31m.[mBorg[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
						      [01;34mwhen[m [01;34mothers[m [31m=>[m
							 In_Print  [31m:=[m True[31m;[m
							 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
							 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
							 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
							 App[31m.[mBorg[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
						   [01;34mend[m [01;34mcase[m[31m;[m
						   [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Attr[31m);[m
						   Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
						   Classes[31m.[m[01;30mPrint[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mdefinition[31m,[m The_Engine[31m.[mObj_Attr[31m.[mWin[31m);[m
						   In_Print [31m:=[m True[31m;[m
						[01;34mend[m [01;34mif[m[31m;[m
						Success [31m:=[m False[31m;[m
						Path_Index [31m:=[m [35m0[m[31m;[m
					     [01;34mexception[m
						[01;34mwhen[m Constraint_Error [31m=>[m
						   [01;34mnull[m[31m;[m
					     [01;34mend[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mwhen[m List [31m=>[m
				       [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
				       [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				       [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mList_win[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Last [31m:=[m [35m0[m[31m;[m
				       Total_Line [31m:=[m [35m0[m[31m;[m
				       Line_Index [31m:=[m [35m0[m[31m;[m
				       On_List [31m:=[m True[31m;[m
				       On_Tree [31m:=[m False[31m;[m
				       [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m [01;34mnot[m Element_Vectors[31m.[m[01;30mIs_Empty[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mChilds[31m)[m [01;34mthen[m
					     [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mElement_Vectors[31m.[m[01;30mLength[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mChilds[31m)[m [01;34mloop[m
						[01;34mdeclare[m
						   E [31m:[m [01;34mconstant[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mChilds[31m,[m [01;30mElement_Index[m[31m([mChild[31m));[m
						[01;34mbegin[m
						   [01;30mAdd_Line[m[31m([mChilds_Set[31m,[m Last[31m,[m [01;30mTo_String[m[31m([mE[31m.[mInfo[31m));[m
						[01;34mend[m[31m;[m
					     [01;34mend[m [01;34mloop[m[31m;[m
					     
					     
					  [01;34mend[m [01;34mif[m[31m;[m
					  
				       [01;34mend[m [01;34mif[m[31m;[m
				       Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
				    [01;34mwhen[m Tree [31m=>[m
				       On_Tree [31m:=[m True[31m;[m
				       On_List [31m:=[m False[31m;[m
				       [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Total_Line [31m:=[m [35m0[m[31m;[m
				       Line_Index [31m:=[m [35m0[m[31m;[m
				       [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
				       [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;30mTree[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m Level[31m,[m Childs_Set[31m,[m Last[31m);[m
					  Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m				       
				    [01;34mwhen[m Remove [31m=>[m
				       [01;34mdeclare[m
					  Name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access[31m;[m
					  Index [31m:[m Element_Index [31m:=[m [35m1[m[31m;[m
				       [01;34mbegin[m

					  [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m

					     name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mCmd_Line[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mCmd_Line[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mLine_Last[31m));[m

					     [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mName[31m.[m[01;34mall[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m

						Index [31m:=[m Element_Index'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mName[31m.[m[01;34mall[m[31m));[m
						
						[01;30mRemove[m[31m([mApp[31m.[mBorg[31m,[m Index[31m);[m
						[31m--Save(App.Borg.root, _Filename);[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mif[m On_List [01;34mthen[m
					     [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
					     [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
					     [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mList_win[31m);[m
					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
					     Last [31m:=[m [35m0[m[31m;[m
					     Total_Line [31m:=[m [35m0[m[31m;[m
					     Line_Index [31m:=[m [35m0[m[31m;[m
					     [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
						[01;34mif[m [01;34mnot[m Element_Vectors[31m.[m[01;30mIs_Empty[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mChilds[31m)[m [01;34mthen[m
						   [01;34mfor[m Child [01;34min[m [35m1[m[31m..[mElement_Vectors[31m.[m[01;30mLength[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mChilds[31m)[m [01;34mloop[m
						      [01;34mdeclare[m
							 E [31m:[m [01;34mconstant[m Element_Access [31m:=[m Element_Vectors[31m.[m[01;30mElement[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mChilds[31m,[m [01;30mElement_Index[m[31m([mChild[31m));[m
						      [01;34mbegin[m
							 [01;30mAdd_Line[m[31m([mChilds_Set[31m,[m Last[31m,[m [01;30mTo_String[m[31m([mE[31m.[mInfo[31m));[m
						      [01;34mend[m[31m;[m
						   [01;34mend[m [01;34mloop[m[31m;[m
						   
						   
						[01;34mend[m [01;34mif[m[31m;[m
						
					     [01;34mend[m [01;34mif[m[31m;[m
					     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
					  [01;34melsif[m On_Tree [01;34mthen[m
					     Total_Line [31m:=[m [35m0[m[31m;[m
					     Line_Index [31m:=[m [35m0[m[31m;[m
					     [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
					     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
					     [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
					     [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
						[01;30mTree[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m Level[31m,[m Childs_Set[31m,[m Last[31m);[m
						Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
					  
					  
					  Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m				       
				       [01;34mexception[m
					  [01;34mwhen[m [01;34mothers[m [31m=>[m
					     [01;34mnull[m[31m;[m
				       [01;34mend[m[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       [01;34mnull[m[31m;[m
				 [01;34mend[m [01;34mcase[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      Line_Last [31m:=[m [35m0[m[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m
			      Last [31m:=[m [35m0[m[31m;[m
			      Printed [31m:=[m [01;34mnull[m[31m;[m
			      Print_Index [31m:=[m [35m0[m[31m;[m
			      [01;30mInitialize[m[31m([mThe_Engine[31m,[m Top[31m);[m
			      [01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mBorg[31m);[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mContent_Win[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mcmd_Win[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;34mif[m App[31m.[mBorg[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			      [01;34melsif[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Line_Last [31m>[m [35m0[m [01;34mthen[m
				 [01;30mCmd_Line[m[31m([mLine_Last[31m)[m [31m:=[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m);[m
				 Line_Last [31m:=[m Line_Last [31m-[m [35m1[m[31m;[m
			      [01;34melse[m
				 Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melse[m
			[01;34mif[m App[31m.[mBorg[31m.[mRoot [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
			  App[31m.[mBorg[31m.[mcur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mif[m Line_Last [31m+[m [35m1[m [31m<=[m [31m([mCmd_Line'Length[31m-[mApp[31m.[mBorg[31m.[mcur[31m.[mInfo[31m.[mName'Length[31m)[m [01;34mthen[m
			      [01;30mCmd_Line[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			      Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
			   [01;34melse[m
			      Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34melsif[m Line_Last [31m+[m [35m1[m [31m<=[m Cmd_Line'Length [01;34mthen[m
			   [01;30mCmd_Line[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			   Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
			[01;34melse[m
			   Text_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			   
			[01;34mend[m [01;34mif[m[31m;[m
			
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m

		  [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mContent_Win[31m);[m

		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m

		  [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m

		  [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mcmd_Win[31m);[m
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mFile_win[31m);[m
		  [01;34mif[m List_Last [31m/=[m [35m0[m [01;34mthen[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mFile[31m,[m The_Engine[31m.[mFile_Win[31m,[m List_Index[31m,[m Total_Line[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  
		  [01;34mcase[m Obj_Tag [01;34mis[m
		     [01;34mwhen[m None [31m=>[m
			[01;34mcase[m Cmd [01;34mis[m
			   [01;34mwhen[m Attribute [31m=>[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Image : "[m[31m);[m
			      
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_Image [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mwhen[m License [31m=>[m
			[01;34mnull[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Line : "[m[31m);[m
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  [01;34mif[m App[31m.[mBorg[31m.[mRoot [31m/=[m [01;34mnull[m [01;34mthen[m
		     Child_Index [31m:=[m [01;30mElement_Index[m[31m([mElement_Vectors[31m.[m[01;30mLength[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mchilds[31m)+[m[35m1[m[31m);[m
		  [01;34melse[m
		     Child_Index [31m:=[m [35m1[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m App[31m.[mBorg[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
		  [01;34melsif[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
		  [01;34melse[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
		  [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m cmd [31m=[m attribute [31m=>[m
		  
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Attribute_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Attr[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Attribute_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Attribute_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Attribute_Name [31m=>[m
				       Name [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)));[m
				       Attribute_Curs[31m.[mVal_Cur [31m:=[m Attribute_Enum'[01;30mSucc[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m);[m
				    [01;34mwhen[m Attribute_Image [31m=>[m
				       [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
					  [01;34mif[m App[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m<[m App[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[mList'Last [01;34mthen[m
					     App[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m+[m [35m1[m[31m)[m [31m:=[m
					       [01;30mMake[m[31m([mName[31m.[m[01;34mall[m[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)));[m
					     
					     App[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m:=[m App[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[mIndex [31m+[m [35m1[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				       
				       attribute_Curs [31m:=[m Initialize[31m;[m
				       [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       [01;30mFree[m[31m([mName[31m);[m
				       Attribute_Curs[31m.[mVal_Cur [31m:=[m Attribute_None[31m;[m
				       Cmd [31m:=[m Null_cmd[31m;[m
				       [01;30mSave[m[31m([mApp[31m.[mBorg[31m.[mroot[31m,[m Filename[31m.[m[01;34mall[m[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m
				 
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_image [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;34mcase[m Attribute_Curs[31m.[mVal_Cur [01;34mis[m
		     [01;34mwhen[m Attribute_none [31m=>[m
			
			[01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mBorg[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Attr[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[mApp[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[mIndex [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m [35m1[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName[31m.[m[01;34mall[m[31m));[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m1[m[31m,[m Red[31m,[m [31m"="[m[31m);[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m2[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mValue[31m.[m[01;34mall[m[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mBorg[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mBorg[31m);[m
			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
			
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mcmd_Win[31m);[m
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Attr[31m);[m
			
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[mApp[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[mIndex [01;34mloop[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m [35m1[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName[31m.[m[01;34mall[m[31m));[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m1[m[31m,[m Red[31m,[m [31m"="[m[31m);[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mObj_Attr[31m,[m I[31m,[m App[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mName'Length[31m+[m[35m2[m[31m,[m white[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mDefinition[31m.[m[01;30mList[m[31m([mI[31m).[mValue[31m.[m[01;34mall[m[31m));[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			
			[01;34mif[m App[31m.[mBorg[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m2[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Image : "[m[31m);[m
			
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			[01;34mfor[m Val [01;34min[m Attribute_Name[31m..[mAttribute_Image [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Attribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Attribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mAttribute_Curs[31m.[m[01;30mValues[m[31m([mAttribute_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m

	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m=[m License [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;30mSet_Free[m[31m([mFile[31m);[m
		     List_Last [31m:=[m [35m0[m[31m;[m
		     [01;30mListing[m[31m([mApp[31m.[mBorg[31m.[mRoot[31m,[m File[31m,[m List_Last[31m);[m
		     
		     [01;34mif[m List_Last [31m/=[m [35m0[m [01;34mthen[m
			Success [31m:=[m [01;30mPrint_Set[m[31m([mFile[31m,[m The_Engine[31m.[mFile_Win[31m,[m List_Index[31m,[m Total_Line[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Obj_Tag [31m/=[m None [01;34mand[m Obj_Tag [31m/=[m License [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m1[m[31m)[m [31m=>[m
			      Single_Curs [31m:=[m Initialize[31m;[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      Obj_Tag [31m:=[m None[31m;[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m				 
			      [01;34mif[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m/=[m [35m0[m [01;34mthen[m
				 [01;34mcase[m Single_Curs[31m.[mVal_Cur [01;34mis[m
				    [01;34mwhen[m Single_None [31m=>[m
				       [01;34mnull[m[31m;[m
				       
				    [01;34mwhen[m Single_Line [31m=>[m
				       

				       [01;34mdeclare[m
					  Obj [31m:[m [01;34mconstant[m Element_Access [31m:=[m [01;30mTo_single[m[31m([mSingle_Curs[31m,[m Child_Index[31m,[m Obj_Tag[31m);[m
				       [01;34mbegin[m

					  [01;30mAdd_To[m[31m([mApp[31m.[mBorg[31m,[m Obj[31m);[m
					  [01;34mcase[m Obj_tag [01;34mis[m
					     [01;34mwhen[m Program [31m=>[m
						Filename [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mEngine[31m.[m[01;30mProgram_Class[m[31m([mApp[31m.[mBorg[31m.[mRoot[31m.[m[01;34mall[m[31m).[mLine[31m.[m[01;34mall[m [31m&[m [31m".txt"[m[31m));[m
						
						[01;30mSave[m[31m([mApp[31m.[mBorg[31m.[mroot[31m,[m Filename[31m.[m[01;34mall[m[31m);[m
					     [01;34mwhen[m [01;34mothers[m [31m=>[m
						[01;30mSave[m[31m([mApp[31m.[mBorg[31m.[mroot[31m,[m Filename[31m.[m[01;34mall[m[31m);[m
					  [01;34mend[m [01;34mcase[m[31m;[m
				       [01;34mend[m[31m;[m

				       Single_Curs [31m:=[m Initialize[31m;[m
				       [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				       Obj_Tag [31m:=[m None[31m;[m
				    [01;34mwhen[m [01;34mothers[m [31m=>[m
				       Single_Curs[31m.[mVal_Cur [31m:=[m Single_Enum'[01;30mSucc[m[31m([mSingle_Curs[31m.[mVal_Cur[31m);[m
				 [01;34mend[m [01;34mcase[m[31m;[m

				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					   Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mSingle_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			      [01;34melse[m
				 [01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m Wide_Character ' [01;30mVal[m [31m([m[35m127[m[31m)[m [31m=>[m
			      [01;34mif[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m>[m [35m0[m [01;34mthen[m
				 Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mSingle_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m)[m [31m:=[m [31m' '[m[31m;[m
				 Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
				   Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m-[m [35m1[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
			      Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"Name : "[m[31m);[m
			      [01;34mfor[m Val [01;34min[m Single_Name[31m..[mSingle_Line [01;34mloop[m
				 [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
					   Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
					   White[31m,[m
					   Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mSingle_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			      [01;34mend[m [01;34mloop[m[31m;[m
			      
			      [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
					Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
					White[31m,[m
					Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mSingle_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m
		     [01;34melsif[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m<[m [35m45[m [01;34mthen[m
			
			Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([mSingle_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wchar[31m;[m
			Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m:=[m 
			  Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last [31m+[m [35m1[m[31m;[m
			
			[01;34mfor[m Val [01;34min[m Single_Name[31m..[mSingle_Line [01;34mloop[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Pos[31m,[m
				     Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mColumn_Pos[31m,[m
				     White[31m,[m
				     Single_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mSingle_Curs[31m.[m[01;30mvalues[m[31m([mVal[31m).[mLine_Last[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
			
			[01;30mDraw_Text[m[31m([mThe_Engine[31m.[mAttr[31m,[m Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Pos[31m,[m
				  Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mColumn_Pos[31m,[m
				  White[31m,[m
				  Single_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[m[01;30mLine[m[31m([m[35m1[m[31m..[mSingle_Curs[31m.[m[01;30mValues[m[31m([mSingle_Curs[31m.[mVal_Cur[31m).[mLine_Last[31m));[m
			
		     [01;34melse[m
			[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34mend[m Receive[31m;[m
		  [01;30mSet_Free[m[31m([mFile[31m);[m
		  List_Last [31m:=[m [35m0[m[31m;[m
		  [01;30mListing[m[31m([mApp[31m.[mBorg[31m.[mRoot[31m,[m File[31m,[m List_Last[31m);[m
		  [01;34mif[m List_Last [31m/=[m [35m0[m [01;34mthen[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mfile[31m,[m The_Engine[31m.[mFile_Win[31m,[m List_Index[31m,[m Total_Line[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mcase[m Obj_Tag [01;34mis[m		     
		     [01;34mwhen[m None [31m=>[m
			[01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mBorg[31m);[m

			[01;30mGlobal_Content_Print[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
			
			[01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mcmd_Win[31m);[m
			Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
			[01;34mif[m App[31m.[mBorg[31m.[mCur [31m=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melsif[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34melse[m
			   [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m [31m&[m [01;30mCmd_Line[m[31m([mCmd_Line'First[31m..[mLine_Last[31m));[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mnull[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m
		  
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  Master_Process[31m.[mTop [31m:=[m Top[31m;[m
		  [01;30mInitialize[m[31m([mThe_Engine[31m,[m Top[31m);[m
		  [01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mBorg[31m);[m		  
		  [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
		  [01;34mif[m In_Print [01;34mthen[m
		     [01;34mif[m Print_Index [31m/=[m [35m0[m [01;34mthen[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mcase[m Printed[31m.[mTag [01;34mis[m
			      [01;34mwhen[m None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m License [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			   
			   Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mcase[m Printed[31m.[mTag [01;34mis[m
			      [01;34mwhen[m None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m License [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34melse[m
			   [01;34mcase[m App[31m.[mBorg[31m.[mCur[31m.[mTag [01;34mis[m
			      [01;34mwhen[m None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m License [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 App[31m.[mBorg[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 App[31m.[mBorg[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
		     On_Tree [31m:=[m True[31m;[m
		     On_List [31m:=[m False[31m;[m
		     [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
		     Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		     Total_Line [31m:=[m [35m0[m[31m;[m
		     Line_Index [31m:=[m [35m0[m[31m;[m
		     [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
		     [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
			[01;30mTree[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m Level[31m,[m Childs_Set[31m,[m Last[31m);[m
			Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		     [01;34mfor[m Item [01;34min[m [01;34mreverse[m [35m1[m[31m..[m[35m2[m [01;34mloop[m
			Printed [31m:=[m [01;30mChild[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m Item[31m);[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mcase[m Printed[31m.[mTag [01;34mis[m
			      [01;34mwhen[m None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m License [31m=>[m
				 In_Print  [31m:=[m True[31m;[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m						   
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 
				 In_Print  [31m:=[m True[31m;[m
				 
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
				 
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				 
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
				 
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			
			
		     [01;34mend[m [01;34mloop[m[31m;[m	
		     
		     Classes[31m.[m[01;30mPrint[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mdefinition[31m,[m The_Engine[31m.[mObj_Attr[31m.[mWin[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m Last [31m/=[m [35m0[m [01;34mthen[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mFile[31m,[m The_Engine[31m.[mFile_Win[31m,[m File_Index[31m,[m Total_Line[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m App[31m.[mBorg[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
		  [01;34melsif[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m[31m);[m
		  [01;34melse[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Refresh[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m up_arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mnull[m[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Full_Screen[31m;[m

	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  
		  
		  Master_Process[31m.[mTop [31m:=[m Top[31m;[m
		  [01;30mInitialize[m[31m([mThe_Engine[31m,[m Top[31m);[m
		  [01;30mDraw[m[31m([mThe_Engine[31m,[m App[31m.[mBorg[31m);[m
		  Obj_Tag [31m:=[m None[31m;[m
		  [01;30mGlobal_Content_Print[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m The_Engine[31m.[mContent_Win[31m.[mwin[31m);[m
		  [01;34mif[m In_Print [01;34mthen[m
		     [01;34mif[m Print_Index [31m/=[m [35m0[m [01;34mthen[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34melse[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34melse[m
			   App[31m.[mBorg[31m.[mCur[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m Last [31m/=[m [35m0[m [01;34mthen[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mFile[31m,[m The_Engine[31m.[mFile_Win[31m,[m File_Index[31m,[m Total_Line[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  On_Tree [31m:=[m True[31m;[m
		  On_List [31m:=[m False[31m;[m
		  [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
		  Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
		  Total_Line [31m:=[m [35m0[m[31m;[m
		  Line_Index [31m:=[m [35m0[m[31m;[m
		  [01;30mSet_Free[m[31m([mChilds_Set[31m);[m
		  [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mTree[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m Level[31m,[m Childs_Set[31m,[m Last[31m);[m
		     Success [31m:=[m [01;30mPrint_Set[m[31m([mChilds_Set[31m,[m The_Engine[31m.[mList_Win[31m,[m Line_Index[31m,[m Total_Line[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m				       
		  [01;34mif[m App[31m.[mBorg[31m.[mCur [31m/=[m [01;34mnull[m [01;34mthen[m
		     
		     [01;34mfor[m Item [01;34min[m [01;34mreverse[m [35m1[m[31m..[m[35m2[m [01;34mloop[m
			Printed [31m:=[m [01;30mChild[m[31m([mApp[31m.[mBorg[31m.[mCur[31m,[m Item[31m);[m
			[01;34mif[m Printed [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mcase[m Printed[31m.[mTag [01;34mis[m
			      [01;34mwhen[m None [31m=>[m
				 [01;34mnull[m[31m;[m
			      [01;34mwhen[m License [31m=>[m
				 In_Print  [31m:=[m True[31m;[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m						   
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Main[31m);[m
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mObj_Main[31m.[mWin[31m);[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 
				 In_Print  [31m:=[m True[31m;[m
				 
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mObj_Header[31m);[m
				 
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 
				 [01;30mEnlight_Window[m[31m([mThe_Engine[31m.[mAttr[31m);[m
				 
				 Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
				 
				 Printed[31m.[m[01;30mPrint[m[31m([mThe_Engine[31m.[mObj_Header[31m.[mWin[31m,[m The_Engine[31m.[mAttr[31m.[mWin[31m);[m
				 
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m	
		     
		     Classes[31m.[m[01;30mPrint[m[31m([mApp[31m.[mBorg[31m.[mCur[31m.[mdefinition[31m,[m The_Engine[31m.[mObj_Attr[31m.[mWin[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m App[31m.[mBorg[31m.[mRoot [31m=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"# "[m[31m);[m
		  [01;34melsif[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m App[31m.[mBorg[31m.[mCur[31m.[mInfo[31m.[mName[31m.[m[01;34mall[m [31m&[m [31m"# "[m[31m);[m
		  [01;34melse[m
		     [01;30mDraw_Text[m[31m([mThe_Engine[31m.[mCmd_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [31m"null# "[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m

      [31m--W_Io.Put_Line("Master process halted");[m
   [01;34mend[m Master_Process[31m;[m
   

   
   
   
   [01;34msubtype[m Seg_Type [01;34mis[m Natural [01;34mrange[m [35m1[m[31m..[m[35m9[m[31m;[m
   
   [01;34mpackage[m Seg_Rand [01;34mis[m [01;34mnew[m Ada[31m.[mNumerics[31m.[m[01;30mDiscrete_Random[m[31m([mSeg_Type[31m);[m
   
   Seg_Gen [31m:[m Seg_Rand[31m.[mGenerator[31m;[m      
   
   
   [01;34mtype[m Code_Type [01;34mis[m
      [01;34mrecord[m
  	 Prefix [31m:[m Ada[31m.[mStrings[31m.[mUnbounded[31m.[mUnbounded_String[31m;[m
  	 Radix  [31m:[m Ada[31m.[mStrings[31m.[mUnbounded[31m.[mUnbounded_String[31m;[m
  	 Suffix [31m:[m Ada[31m.[mStrings[31m.[mUnbounded[31m.[mUnbounded_String[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   
   [01;34mpackage[m Code_Random [01;34mis[m
      [01;34mfunction[m [01;30mRandom[m[31m([mLength [31m:[m [01;34min[m Positive[31m)[m [01;34mreturn[m [32mString[m[31m;[m
      [01;34mprocedure[m  Reset[31m;[m
   [01;34mend[m Code_Random[31m;[m
   
   [01;34mpackage[m [01;34mbody[m Code_Random [01;34mis[m
      
      Alphabet [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"0123456789-abcdefghijklmnopqrstuvwxyz."[m[31m;[m
      
      [01;34msubtype[m Digit_Type [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[mAlphabet'Length[31m;[m
      
      [01;34mpackage[m Digit_Random [01;34mis[m [01;34mnew[m Ada[31m.[mNumerics[31m.[m[01;30mDiscrete_Random[m[31m([mDigit_Type[31m);[m
      [01;34muse[m Digit_Random[31m;[m
      Digit_Gen [31m:[m Digit_Random[31m.[mGenerator[31m;[m
      
      [01;34mprocedure[m  Reset [01;34mis[m
      [01;34mbegin[m
  	 [01;30mReset[m[31m([mDigit_Gen[31m);[m
      [01;34mend[m Reset[31m;[m
      
      [01;34mfunction[m [01;30mRandom[m[31m([mLength [31m:[m [01;34min[m Positive[31m)[m [01;34mreturn[m [32mString[m [01;34mis[m
	 
  	 Code [31m:[m [32mString[m[31m([m[35m1[m[31m..[mLength[31m);[m
  	 Lock [31m:[m [32mBoolean[m [31m:=[m True[31m;[m
  	 Char [31m:[m [32mCharacter[m[31m;[m
  	 Index [31m:[m natural [31m:=[m [35m0[m[31m;[m
      [01;34mbegin[m	    
  	 [01;34mwhile[m Index [31m+[m [35m1[m [31m<=[m Length [01;34mloop[m	       
  	    char [31m:=[m [01;30mAlphabet[m[31m([m[01;30mRandom[m[31m([mDigit_Gen[31m));[m
  	    [01;34mif[m Index [31m+[m [35m1[m [31m=[m Length [01;34mthen[m
  	       Lock [31m:=[m True[31m;[m
  	    [01;34mend[m [01;34mif[m[31m;[m
  	    [01;34mif[m [01;34mnot[m Lock [01;34mthen[m
  	       [01;34mif[m char [31m=[m [31m'.'[m [01;34mor[m char [31m=[m [31m'-'[m [01;34mthen[m
  		  Lock [31m:=[m True[31m;[m
  	       [01;34mend[m [01;34mif[m[31m;[m
  	       [01;30mCode[m[31m([mIndex [31m+[m [35m1[m[31m)[m [31m:=[m Char[31m;[m
  	       Index [31m:=[m Index [31m+[m [35m1[m[31m;[m
  	    [01;34melsif[m char [31m/=[m [31m'.'[m [01;34mand[m char [31m/=[m [31m'-'[m [01;34mthen[m		  
  	       [01;30mCode[m[31m([mIndex [31m+[m [35m1[m[31m)[m [31m:=[m Char[31m;[m
  	       Index [31m:=[m Index [31m+[m [35m1[m[31m;[m		  		  
  	       Lock [31m:=[m False[31m;[m	       
  	    [01;34mend[m [01;34mif[m[31m;[m
  	 [01;34mend[m [01;34mloop[m[31m;[m	    
  	 [01;34mreturn[m Code[31m;[m
      [01;34mend[m Random[31m;[m
   [01;34mend[m Code_Random[31m;[m

   [01;34muse[m Code_Random[31m;[m

   [01;34mtype[m Top_Level_Type [01;34mis[m [31m([mFr[31m,[m En[31m,[m Us[31m,[m Ca[31m,[m org[31m);[m
   
   [01;34mpackage[m Top_Level_Rand [01;34mis[m [01;34mnew[m Ada[31m.[mNumerics[31m.[m[01;30mDiscrete_Random[m[31m([mTop_Level_Type[31m);[m
   Top_Level_Gen [31m:[m Top_Level_Rand[31m.[mGenerator[31m;[m
   
   
     [01;34mtask[m [01;34mtype[m [01;30mWeb_Search_Type[m [31m([mWindow [31m:[m [01;34maccess[m Ansi_Windows[31m.[mWindow_Type[31m;[m Search_Result [31m:[m [01;34maccess[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m;[m Pattern [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m Errno [31m:[m [01;34maccess[m [32mInteger[m[31m)[m [01;34mis[m	
     [01;34mentry[m [01;30mId[m[31m([mT_Id [31m:[m [01;34mout[m Task_Id[31m);[m      
     [01;34mentry[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m);[m
     [01;34mentry[m Suspend[31m;[m
     [01;34mentry[m Start[31m;[m
     [01;34mentry[m Halt[31m;[m
  [01;34mend[m Web_Search_Type[31m;[m
  [01;34mtask[m [01;34mbody[m Web_Search_Type [01;34mis[m
	 
      End_Of_Task[31m,[m Done[31m,[m Suspended [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Current_Address [31m:[m OS_Lib[31m.[mString_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"localhost"[m[31m);[m
      Current_Path [31m:[m OS_Lib[31m.[mString_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
      Buffer_Path [31m:[m OS_Lib[31m.[mString_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
      
      protocol [31m:[m OS_Lib[31m.[mString_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"http://"[m[31m);[m
      
      Current_Document_Name [31m:[m M[31m.[mStrings[31m.[mWide_String_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
      Regular_Exp [31m:[m Regexp[31m.[mRegexp[31m;[m
      Sub_Regular_Exp [31m:[m Regexp[31m.[mRegexp[31m;[m
      
      [31m-- HTTP 1.1.[m
      Code [31m:[m Code_Type[31m;[m
      
      
      Timeouts [31m:[m [32mDuration[m [31m:=[m [35m10.0[m[31m;[m
      
      IP_Address [31m:[m Sockets[31m.[mInet_Addr_Type[31m;[m
      
      Sub_Top [31m:[m Natural [31m:=[m Pattern'First[31m;[m
      Sub_Index [31m:[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m.[m[01;34mall[m[31m,[m [31m"*"[m[31m,[m Sub_Top [31m+[m [35m1[m[31m);[m	 
      Matched_Error [31m:[m Regexp[31m.[mRegexp [31m:=[m Regexp[31m.[m[01;30mCompile[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[31m"*CONNECTION_ERROR*"[m[31m),[m True[31m,[m True[31m);[m
      Error [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m	 
      [01;34maccept[m [01;30mId[m[31m([mT_Id [31m:[m [01;34mout[m Task_Id[31m)[m [01;34mdo[m
  	 T_Id [31m:=[m Current_Task[31m;[m
      [01;34mend[m Id[31m;[m
      
      
      
      
  First_Loop [31m:[m
      [01;34mloop[m
	 
	 
	 [01;34mdeclare[m
	    Host_Entry  [31m:[m [01;34mconstant[m Sockets[31m.[mHost_Entry_Type  [31m:=[m Sockets[31m.[m[01;30mGet_Host_By_Name[m[31m([mCurrent_Address[31m.[m[01;34mall[m[31m);[m
	 [01;34mbegin[m	       
	    
	    Regular_Exp [31m:=[m Regexp[31m.[m[01;30mCompile[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mPattern[31m.[m[01;34mall[m[31m),[m True[31m,[m True[31m);[m
	    Adam[31m.[mResults[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mPattern[31m);[m
	    Search_Result[31m.[mPattern [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m(([mPattern[31m.[m[01;34mall[m[31m));[m
	    
	    IP_Address [31m:=[m Sockets[31m.[m[01;30mAddresses[m[31m([mHost_Entry[31m);[m
	    
	    Sub_Regular_Exp [31m:=[m Regexp[31m.[m[01;30mCompile[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mPattern[m[31m([mSub_Top[31m..[mSub_Index[31m)),[m True[31m,[m True[31m);[m
	    
	    Web[31m.[m[01;30mWeb_Search[m[31m([mCurrent_Address[31m.[m[01;34mall[m[31m,[m Protocol[31m.[m[01;34mall[m [31m&[m Gnat[31m.[mSockets[31m.[m[01;30mImage[m[31m([mIp_Address[31m)[m [31m&[m Current_Path[31m.[m[01;34mAll[m[31m,[m Timeouts[31m,[m Search_Result[31m.[m[01;34mall[m[31m);[m
	    
	    Os_Lib[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mAddress[31m);[m
	    Search_Result[31m.[mAddress [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProtocol[31m.[m[01;34mall[m [31m&[m Current_Address[31m.[m[01;34mall[m [31m&[m Current_Path[31m.[m[01;34mall[m[31m);[m
	    [01;30mWide_Free[m[31m([mCurrent_Document_Name[31m);[m
	    Current_Document_Name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mSearch_Result[31m.[mDoc_Name[31m.[m[01;34mall[m[31m);[m         
	    Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m.[m[01;34mall[m[31m);[m
	    Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Searching for : "[m [31m&[m [31m([mPattern[31m.[m[01;34mall[m[31m));[m
	    Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"look at : "[m [31m&[m 
				 Handling[31m.[m[01;30mTo_Wide_String[m[31m([mSearch_Result[31m.[mAddress[31m.[m[01;34mall[m[31m));[m
	    Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Document name : "[m [31m&[m [31m([mCurrent_Document_Name[31m.[m[01;34mall[m[31m));[m
	    
	    [01;34mfor[m Line_Index [01;34min[m Search_Result[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
	       [01;34mdeclare[m
		  
		  Line [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Handling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSearch_Result[31m.[m[01;30mFile_Content[m[31m([mLine_Index[31m)));[m		     
	       [01;34mbegin[m
		  
		  [01;34mif[m Regexp[31m.[m[01;30mMatch[m[31m([mLine[31m,[m Regular_Exp[31m)[m [01;34mthen[m
		     Error [31m:=[m [01;30mSystem[m[31m([m[31m"espeak "" pattern matching."""[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
		     [31m--Ada.Text_Io.Put(Character'Val(7));[m
		     Errno[31m.[m[01;34mall[m [31m:=[m [35m0[m[31m;[m
		     Done [31m:=[m True[31m;[m
		     [01;34mexit[m First_Loop[31m;[m
		  [01;34melsif[m Regexp[31m.[m[01;30mMatch[m[31m([mLine[31m,[m Sub_Regular_Exp[31m)[m [01;34mthen[m
		     Error [31m:=[m [01;30mSystem[m[31m([m[31m"espeak "" pattern matching."""[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
		     [31m--Ada.Text_Io.Put(Character'Val(7));[m
		     Errno[31m.[m[01;34mall[m [31m:=[m [35m0[m[31m;[m	
		     Adam[31m.[mResults[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mPattern[31m);[m
		     Search_Result[31m.[mPattern [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mPattern[m[31m([mSub_Top[31m..[mSub_Index[31m));[m
		     Done [31m:=[m True[31m;[m
		     [01;34mdeclare[m
			Top_Href [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"href="[m[31m)[m [31m+[m [35m6[m[31m;[m
			Href_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m""""[m[31m,[m Top_Href[31m+[m[35m1[m[31m)[m [31m-[m [35m1[m[31m;[m
			Protocol_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"http"[m[31m,[m Top_Href[31m);[m
			
		     [01;34mbegin[m			   
			[01;34mif[m Top_Href [31m>[m [35m6[m  [01;34mthen[m
			   [01;34mif[m Protocol_Index [31m/=[m [35m0[m [01;34mthen[m
			      Os_Lib[31m.[m[01;30mFree[m[31m([mprotocol[31m);[m				 
			      Protocol [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mProtocol_Index[31m..[mFixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m":"[m[31m,[m Protocol_Index[31m))[m [31m&[m [31m"//"[m[31m);[m
			      [01;34mdeclare[m
				 Top_Domain    [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"//"[m[31m,[m Protocol_Index [31m+[m [35m1[m[31m)[m [31m+[m [35m2[m[31m;[m
				 Domain_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"/"[m[31m,[m Top_domain [31m+[m [35m1[m[31m)[m [31m-[m [35m1[m[31m;[m
			      [01;34mbegin[m
				 [01;34mif[m Top_Domain [31m>[m [35m2[m [01;34mand[m [01;34mthen[m [31m([mDomain_Index [31m>[m [35m0[m [01;34mand[m Domain_Index [31m<=[m Href_Index[31m)[m [01;34mthen[m
				    Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Address[31m);[m
				    Current_Address [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_Domain [31m..[m Domain_Index[31m));[m
				    [01;34mif[m Domain_Index [31m+[m [35m1[m [31m<[m Href_Index [01;34mthen[m
				       Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
				       Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mDomain_Index [31m+[m [35m1[m [31m..[m Href_index[31m));[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    Done [31m:=[m False[31m;[m
				 [01;34melsif[m Top_Domain [31m>[m [35m2[m [01;34mthen[m
				    Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Address[31m);[m
				    Current_Address [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_domain [31m..[m Href_index[31m));[m
				    Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
				    Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
				    Done [31m:=[m False[31m;[m
				    
				 [01;34melse[m
				    Done [31m:=[m True[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mexit[m First_Loop[31m;[m
			      [01;34mend[m[31m;[m
			   [01;34melse[m
			      
			      Os_Lib[31m.[m[01;30mFree[m[31m([mBuffer_Path[31m);[m
			      [31m--Buffer_Path := new String ' (Current_Address.all);[m
			      Buffer_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_Href[31m..[mHref_Index[31m));[m
			      [31m--Buffer_Path := new String ' (Current_Path.all & '/' & Line(Top_Href..Href_Index));[m
			      [31m--Buffer_Path := new String ' (Current_Path.all);[m
			      [31m--Buffer_Path := new String ' (Protocol.all & Line(Top_Href..Href_Index));[m
			      Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
			      Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([mBuffer_Path[31m.[m[01;34mall[m[31m);[m
			      Done [31m:=[m True[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mexit[m[31m;[m
			[01;34melse[m
			   Done [31m:=[m True[31m;[m
			   [01;34mexit[m First_Loop[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m	    
	    Sub_Top [31m:=[m Sub_Index[31m;[m
	    Sub_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m.[m[01;34mall[m[31m,[m [31m"*"[m[31m,[m Sub_Top [31m+[m [35m1[m[31m);[m	       
	    [01;34mif[m Sub_Index [31m<=[m Sub_Top [01;34mthen[m		  
	       Done [31m:=[m false[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m	       
	    [01;34mexit[m [01;34mwhen[m Sub_Index [31m<=[m Sub_Top[31m;[m
	    
	    
	 [01;34mexception[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       [01;34mexit[m[31m;[m
	       
	 [01;34mend[m[31m;[m
	 
      [01;34mend[m [01;34mloop[m First_Loop[31m;[m
      
      [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
      [01;34mloop[m
	 [01;34mselect[m
	    [01;34maccept[m Halt[31m;[m
	    End_Of_Task [31m:=[m True[31m;[m
	 [01;34mor[m
	    [01;34maccept[m Start[31m;[m
	    Suspended [31m:=[m False[31m;[m
	    
	    [01;34mexit[m[31m;[m
	 [01;34mor[m
	    [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
	       Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
	    [01;34mend[m Send[31m;[m	    
	    
	 [01;34mend[m [01;34mselect[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      Code_Random[31m.[mReset[31m;[m
      Top_Level_Rand[31m.[m[01;30mReset[m[31m([mTop_Level_Gen[31m);[m
      protocol [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"https://"[m[31m);[m
      [01;34mloop[m
	 [01;34mbegin[m
	    [01;34mbegin[m
	   Main_Search [31m:[m 
	       [01;34mwhile[m [01;34mnot[m Done [01;34mloop[m	    	    	    	    		    	    
		  Search_Result[31m.[mAddress [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProtocol[31m.[m[01;34mall[m [31m&[m Current_Address[31m.[m[01;34mall[m [31m&[m Current_Path[31m.[m[01;34mall[m[31m);[m
		  [01;34mbegin[m
		     [01;34mloop[m
			[01;34mselect[m
			   [01;34maccept[m Halt[31m;[m
			   End_Of_Task [31m:=[m True[31m;[m
			   [01;34mexit[m Main_Search[31m;[m		  
			[01;34mor[m
			   [01;34maccept[m Start[31m;[m
			   Suspended [31m:=[m False[31m;[m
			   
			   [01;34mexit[m[31m;[m
			[01;34mor[m
			   [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
			      Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
			   [01;34mend[m Send[31m;[m	    

			[01;34mend[m [01;34mselect[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		     
		     [01;34mloop[m
			[01;34mselect[m
			   [01;34maccept[m Halt[31m;[m
			   End_Of_Task [31m:=[m True[31m;[m
			   [01;34mexit[m Main_Search[31m;[m		  
			[01;34mor[m
			   [01;34maccept[m Start[31m;[m
			   Suspended [31m:=[m False[31m;[m
			   
			   [01;34mexit[m[31m;[m
			[01;34mor[m
			   [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
			      Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
			   [01;34mend[m Send[31m;[m	    

			[01;34mend[m [01;34mselect[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		     
		     
		     
		 Second_Loop [31m:[m
		     [01;34mloop[m		  		  
			
			Search_Result[31m.[mAddress [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProtocol[31m.[m[01;34mall[m [31m&[m Current_Address[31m.[m[01;34mall[m [31m&[m Current_Path[31m.[m[01;34mall[m[31m);[m
			[01;34mloop[m
			   [01;34mselect[m
			      [01;34maccept[m Halt[31m;[m
			      End_Of_Task [31m:=[m True[31m;[m
			      [01;34mexit[m Main_Search[31m;[m		  
			   [01;34mor[m
			      [01;34maccept[m Start[31m;[m
			      Suspended [31m:=[m False[31m;[m
			      
			      [01;34mexit[m[31m;[m
			   [01;34mor[m
			      [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
				 Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
			      [01;34mend[m Send[31m;[m	    
			      
			   [01;34mend[m [01;34mselect[m[31m;[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;34mloop[m
			   [01;34mselect[m
			      [01;34maccept[m Halt[31m;[m
			      End_Of_Task [31m:=[m True[31m;[m
			      [01;34mexit[m Main_Search[31m;[m		  
			   [01;34mor[m
			      [01;34maccept[m Start[31m;[m
			      Suspended [31m:=[m False[31m;[m
			      
			      [01;34mexit[m[31m;[m
			   [01;34mor[m
			      [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
				 Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
			      [01;34mend[m Send[31m;[m	    
			      
			   [01;34mend[m [01;34mselect[m[31m;[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;34mdelay[m [35m0.1[m[31m;[m
			[01;34mdeclare[m
			   
			   Host_Entry  [31m:[m [01;34mconstant[m Sockets[31m.[mHost_Entry_Type  [31m:=[m Sockets[31m.[m[01;30mGet_Host_By_Name[m[31m([mCurrent_Address[31m.[m[01;34mall[m[31m);[m
			[01;34mbegin[m Domain [31m:[m
			    
			    [01;34mfor[m I [01;34min[m [35m1[m[31m..[mSockets[31m.[m[01;30mAddresses_Length[m[31m([mHost_Entry[31m)[m [01;34mloop[m
			       
			       [01;34mbegin[m
				  
				  IP_Address [31m:=[m Sockets[31m.[m[01;30mAddresses[m[31m([mHost_Entry[31m,[m I[31m);[m
				  [31m-------------------[m
				  [31m-- Random timeouts :[m
				  Timeouts [31m:=[m [35m10.0[m[31m;[m
				  Adam[31m.[mResults[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mFile_Content[31m);[m
				  Web[31m.[m[01;30mWeb_Search[m[31m([mCurrent_Address[31m.[m[01;34mall[m[31m,[m Protocol[31m.[m[01;34mall[m [31m&[m Gnat[31m.[mSockets[31m.[m[01;30mImage[m[31m([mIp_Address[31m)[m  [31m&[m Current_Path[31m.[m[01;34mall[m[31m,[m Timeouts[31m,[m Search_Result[31m.[m[01;34mall[m[31m);[m
				  OS_Lib[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mAddress[31m);[m
				  [01;30mWide_Free[m[31m([mCurrent_Document_Name[31m);[m
				  
				  Search_Result[31m.[mAddress [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProtocol[31m.[m[01;34mall[m [31m&[m Current_Address[31m.[m[01;34mall[m [31m&[m Current_Path[31m.[m[01;34mall[m[31m);[m
				  Current_Document_Name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mSearch_Result[31m.[mDoc_Name[31m.[m[01;34mall[m[31m);[m			 
				  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
				  Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m.[m[01;34mall[m[31m);[m
				  Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Searching for : "[m [31m&[m [31m([mPattern[31m.[m[01;34mall[m[31m));[m
				  Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"look at : "[m [31m&[m 
						       Handling[31m.[m[01;30mTo_Wide_String[m[31m([mSearch_Result[31m.[mAddress[31m.[m[01;34mall[m[31m));[m
				  Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Document name : "[m [31m&[m [31m([mCurrent_Document_Name[31m.[m[01;34mall[m[31m));[m
				  [01;34mfor[m Line_Index [01;34min[m Search_Result[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
				     [01;34mdeclare[m
					
					Line [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Handling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSearch_Result[31m.[m[01;30mFile_Content[m[31m([mLine_Index[31m)));[m		     
				     [01;34mbegin[m
					[01;34mif[m Regexp[31m.[m[01;30mMatch[m[31m([mLine[31m,[m Matched_Error[31m)[m [01;34mthen[m
					   [01;34mraise[m Aws[31m.[mClient[31m.[mConnection_Error[31m;[m
					[01;34mend[m [01;34mif[m[31m;[m
				     [01;34mend[m[31m;[m
				  [01;34mend[m [01;34mloop[m[31m;[m
				  
				  [01;34mfor[m Line_Index [01;34min[m Search_Result[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
				     
				     [01;34mdeclare[m
					
					Line [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Handling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSearch_Result[31m.[m[01;30mFile_Content[m[31m([mLine_Index[31m)));[m
					
				     [01;34mbegin[m	 
					
					[01;34mif[m Regexp[31m.[m[01;30mMatch[m[31m([mLine[31m,[m Regular_Exp[31m)[m [01;34mthen[m
					   Error [31m:=[m [01;30mSystem[m[31m([m[31m"espeak "" pattern matching."""[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
					   [31m--Ada.Text_Io.Put(Character'Val(7));[m
					   Errno[31m.[m[01;34mall[m [31m:=[m [35m0[m[31m;[m
					   Done [31m:=[m True[31m;[m
					   [01;34mexit[m domain[31m;[m
					[01;34melsif[m Regexp[31m.[m[01;30mMatch[m[31m([mLine[31m,[m Sub_Regular_Exp[31m)[m [01;34mthen[m
					   Error [31m:=[m [01;30mSystem[m[31m([m[31m"espeak "" pattern matching."""[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[31m));[m
					   [31m--Ada.Text_Io.Put(Character'Val(7));[m
					   Errno[31m.[m[01;34mall[m [31m:=[m [35m0[m[31m;[m
					   Done [31m:=[m True[31m;[m
					   Adam[31m.[mResults[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mPattern[31m);[m
					   Search_Result[31m.[mPattern [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mPattern[m[31m([mSub_Top[31m..[mSub_Index[31m));[m
					   [01;34mdeclare[m
					      Top_Href [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"href="[m[31m)[m [31m+[m [35m6[m[31m;[m
					      Href_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m""""[m[31m,[m Top_Href [31m+[m [35m1[m[31m)[m [31m-[m [35m1[m[31m;[m
					      Protocol_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"http"[m[31m,[m Top_Href[31m);[m					
					   [01;34mbegin[m
					      
					      [01;34mif[m Top_Href [31m>[m [35m6[m [01;34mthen[m
						 
						 [01;34mif[m Protocol_Index [31m/=[m [35m0[m [01;34mthen[m
						    
						    Os_Lib[31m.[m[01;30mFree[m[31m([mprotocol[31m);[m
						    Protocol [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mProtocol_Index[31m..[mFixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m":"[m[31m,[m Protocol_Index[31m))[m [31m&[m [31m"//"[m[31m);[m
						    
						    [01;34mdeclare[m
						       
						       Top_Domain    [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"//"[m[31m,[m Protocol_Index [31m+[m [35m1[m[31m)[m [31m+[m [35m2[m[31m;[m
						       Domain_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"/"[m[31m,[m Top_domain [31m+[m [35m1[m[31m)[m [31m-[m [35m1[m[31m;[m
						    [01;34mbegin[m
						       
						       [01;34mif[m Top_Domain [31m>[m [35m2[m [01;34mand[m [01;34mthen[m [31m([mDomain_Index [31m>[m [35m0[m [01;34mand[m Domain_Index [31m<=[m Href_Index[31m)[m [01;34mthen[m
							  
							  Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Address[31m);[m
							  Current_Address [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_Domain [31m..[m Domain_Index[31m));[m
							  
							  [01;34mif[m Domain_Index [31m+[m [35m1[m [31m<[m Href_Index [01;34mthen[m
							     Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
							     Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mDomain_Index [31m+[m [35m1[m [31m..[m Href_index[31m));[m
							  [01;34mend[m [01;34mif[m[31m;[m
							  Done [31m:=[m False[31m;[m
						       [01;34melsif[m Top_Domain [31m>[m [35m2[m [01;34mthen[m
							  
							  Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Address[31m);[m
							  Current_Address [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_domain [31m..[m Href_index[31m));[m
							  Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
							  Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
							  Done [31m:=[m False[31m;[m
						       [01;34melse[m
							  Done [31m:=[m false[31m;[m
							  [31m--  Sub_Top := Sub_Index;[m
							  [31m--  Sub_Index := Wide_Fixed.Index(Pattern.all, "*", Sub_Top + 1);	       [m
							  [31m--  exit when Sub_Index <= Sub_Top;[m
							  [01;34mexit[m Second_Loop[31m;[m
						       [01;34mend[m [01;34mif[m[31m;[m
						    [01;34mend[m[31m;[m
						    
						 [01;34melse[m
						    
						    Os_Lib[31m.[m[01;30mFree[m[31m([mBuffer_Path[31m);[m
						    [31m--Buffer_Path := new String ' (Current_Address.all);[m
						    Buffer_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_Href[31m..[mHref_Index[31m));[m
						    [31m--Buffer_Path := new String ' (Current_Path.all & '/' & Line(Top_Href..Href_Index));[m
						    [31m--Buffer_Path := new String ' (Current_Path.all);[m
						    [31m--Buffer_Path := new String ' (Protocol.all & Line(Top_Href..Href_Index));[m
						    Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
						    Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([mBuffer_Path[31m.[m[01;34mall[m[31m);[m
						    Done [31m:=[m True[31m;[m
						    
						 [01;34mend[m [01;34mif[m[31m;[m
						 [31m--  Sub_Top := Sub_Index;[m
						 [31m--  Sub_Index := Wide_Fixed.Index(Pattern.all, "*", Sub_Top + 1);	       [m
						 [31m--  exit when Sub_Index <= Sub_Top;[m
						 [01;34mexit[m domain[31m;[m
					      [01;34melse[m
						 Done [31m:=[m True[31m;[m
						 [01;34mloop[m
						    [01;34mselect[m
						       [01;34maccept[m Halt[31m;[m
						       End_Of_Task [31m:=[m True[31m;[m
						    [01;34mor[m
						       [01;34maccept[m Start[31m;[m
						       Suspended [31m:=[m False[31m;[m
						       
						       [01;34mexit[m[31m;[m
						    [01;34mor[m
						       [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
							  Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
						       [01;34mend[m Send[31m;[m	    
						    [01;34mor[m
						       [01;34mdelay[m [35m0.05[m[31m;[m
						    [01;34mend[m [01;34mselect[m[31m;[m
						 [01;34mend[m [01;34mloop[m[31m;[m
						 [31m--  Sub_Top := Sub_Index;[m
						 [31m--  Sub_Index := Wide_Fixed.Index(Pattern.all, "*", Sub_Top + 1);	       [m
						 [31m--  exit when Sub_Index <= Sub_Top;[m
						 [01;34mexit[m Second_loop[31m;[m
					      [01;34mend[m [01;34mif[m[31m;[m
					   [01;34mend[m[31m;[m				  
					[01;34mend[m [01;34mif[m[31m;[m
				     [01;34mend[m[31m;[m			    
				  [01;34mend[m [01;34mloop[m[31m;[m
				  [01;34mloop[m
				     [01;34mselect[m
					[01;34maccept[m Halt[31m;[m
					[01;34mexit[m Main_Search[31m;[m
				     [01;34mor[m
					[01;34maccept[m Suspend[31m;[m			       
					Suspended [31m:=[m True[31m;[m	       		     
					[31m--Ansi_Windows.Clear_Screen;[m
					[01;34mexit[m Second_loop[31m;[m
				     [01;34mor[m
					[01;34maccept[m Start[31m;[m
					Suspended [31m:=[m False[31m;[m
					
					[01;34mexit[m[31m;[m
				     [01;34mor[m
					[01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
					   Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
					[01;34mend[m Send[31m;[m	    
					
				     [01;34mor[m			    
					[01;34mdelay[m [35m0.05[m[31m;[m
				     [01;34mend[m [01;34mselect[m[31m;[m
				  [01;34mend[m [01;34mloop[m[31m;[m
			       [01;34mexception[m

				  
				  
				  
				  [01;34mwhen[m Aws[31m.[mClient[31m.[mConnection_Error [31m=>[m
				     protocol [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"http://"[m[31m);[m
				     Search_Result[31m.[mAddress [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProtocol[31m.[m[01;34mall[m [31m&[m Current_Address[31m.[m[01;34mall[m [31m&[m Current_Path[31m.[m[01;34mall[m[31m);[m
				     [01;34mexit[m[31m;[m
				     
				  [01;34mwhen[m Aws[31m.[mClient[31m.[mProtocol_Error [31m=>[m
				     [01;34mnull[m[31m;[m
				  [01;34mwhen[m [01;34mothers[m [31m=>[m
				     [01;34mnull[m[31m;[m
			       [01;34mend[m[31m;[m
			    [01;34mend[m [01;34mloop[m Domain[31m;[m		   
			    
			    [01;34mselect[m
			       
			       [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
				  Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
			       [01;34mend[m Send[31m;[m
			    [01;34mor[m
			       [01;34maccept[m Halt[31m;[m
			       [01;34mexit[m Main_Search[31m;[m
			    [01;34mor[m
			       [01;34maccept[m Suspend[31m;[m
			       [31m--Ansi_Windows.Clear_Screen;[m
			       Suspended [31m:=[m True[31m;[m	       		     
			    [01;34mor[m
			       [01;34mdelay[m [35m0.05[m[31m;[m
			    [01;34mend[m [01;34mselect[m[31m;[m		   
			    [01;34mselect[m
			       
			       [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
				  Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
			       [01;34mend[m Send[31m;[m
			    [01;34mor[m
			       [01;34maccept[m Halt[31m;[m
			       [01;34mexit[m Main_Search[31m;[m
			    [01;34mor[m
			       [01;34maccept[m Suspend[31m;[m
			       [31m--Ansi_Windows.Clear_Screen;[m
			       Suspended [31m:=[m True[31m;[m	       		     
			    [01;34mor[m
			       [01;34mdelay[m [35m0.05[m[31m;[m
			    [01;34mend[m [01;34mselect[m[31m;[m		   
			[01;34mexception[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mexit[m[31m;[m
			[01;34mend[m[31m;[m	     
			Sub_Top [31m:=[m Sub_Index[31m;[m
			Sub_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m.[m[01;34mall[m[31m,[m [31m"*"[m[31m,[m Sub_Top [31m+[m [35m1[m[31m);[m	       
			[01;34mexit[m [01;34mwhen[m Sub_Index [31m<=[m Sub_Top[31m;[m
		     [01;34mend[m [01;34mloop[m Second_Loop[31m;[m
		     [01;34mloop[m
			[01;34mselect[m
			   [01;34maccept[m Suspend[31m;[m
			[01;34mor[m
			   [01;34maccept[m Start[31m;[m	       	    
			   [01;34mexit[m[31m;[m
			[01;34mor[m
			   [01;34maccept[m Halt[31m;[m
			   
			   [01;34mexit[m Main_Search[31m;[m
			   
			[01;34mor[m
			   [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
			      Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
			   [01;34mend[m Send[31m;[m	    
			[01;34mor[m
			   [01;34mdelay[m [35m0.05[m[31m;[m
			[01;34mend[m [01;34mselect[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		     
		  [01;34mexception[m	       
		     [01;34mwhen[m Sockets[31m.[mHost_Error [31m=>[m
			
			[01;34mselect[m
			   [01;34maccept[m Halt[31m;[m
			   [01;34mexit[m Main_Search[31m;[m
			[01;34mor[m
			   [01;34maccept[m Suspend[31m;[m
			   Suspended [31m:=[m True[31m;[m	       
			[01;34mor[m
			   [01;34mdelay[m [35m0.05[m[31m;[m
			[01;34mend[m [01;34mselect[m[31m;[m		  
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mselect[m
			   [01;34maccept[m Halt[31m;[m
			   [01;34mexit[m Main_Search[31m;[m
			[01;34mor[m
			   [01;34maccept[m Suspend[31m;[m
			   Suspended [31m:=[m True[31m;[m	       
			[01;34mor[m
			   [01;34mdelay[m [35m0.05[m[31m;[m
			[01;34mend[m [01;34mselect[m[31m;[m		  
		  [01;34mend[m[31m;[m
		  
		  
		  [31m--Code.Prefix := Strings.Unbounded.To_Unbounded_String(Random(Seg_Rand.Random(Seg_Gen)));[m
		  Code[31m.[mRadix [31m:=[m Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_Unbounded_String[m[31m([m[01;30mRandom[m[31m([mSeg_Rand[31m.[m[01;30mRandom[m[31m([mSeg_Gen[31m)));[m
		  Code[31m.[msuffix [31m:=[m Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_Unbounded_String[m[31m([mHandling[31m.[m[01;30mTo_Lower[m[31m([mTop_Level_Type'[01;30mImage[m[31m([mTop_Level_Rand[31m.[m[01;30mRandom[m[31m([mTop_Level_Gen[31m))));[m
		  
		  OS_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Address[31m);[m
		  Current_Address [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"www."[m [31m&[m [31m--Strings.Unbounded.To_String(Code.Prefix) & '-' &[m
						     Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_String[m[31m([mCode[31m.[mRadix[31m)[m [31m&[m [31m'.'[m [31m&[m
						     Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_String[m[31m([mCode[31m.[mSuffix[31m));[m	       
		  
		  Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
		  
		  Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
		  
		  Sub_Top [31m:=[m Pattern'First[31m;[m
		  Sub_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m.[m[01;34mall[m[31m,[m [31m"*"[m[31m,[m Sub_Top [31m+[m [35m1[m[31m);[m	 	       
		  protocol [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"https://"[m[31m);[m
		  
	       [01;34mend[m [01;34mloop[m Main_Search[31m;[m
	       
	    [01;34mexception[m
	       [01;34mwhen[m Sockets[31m.[mSocket_Error [31m=>[m
		  Errno[31m.[m[01;34mall[m [31m:=[m [35m128[m[31m;[m
		  [01;34mloop[m
		     [01;34mselect[m
			[01;34maccept[m Suspend[31m;[m
		     [01;34mor[m
			[01;34maccept[m Start[31m;[m		  
		     [01;34mor[m
			[01;34maccept[m Halt[31m;[m
			[01;34mexit[m[31m;[m
		     [01;34mor[m
			[01;34mdelay[m [35m0.05[m[31m;[m
			Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m.[m[01;34mall[m[31m);[m
			Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Socket error"[m[31m);[m
		     [01;34mend[m [01;34mselect[m[31m;[m	       
		  [01;34mend[m [01;34mloop[m[31m;[m
	       [01;34mwhen[m Sockets[31m.[mHost_Error [31m=>[m
		  Errno[31m.[m[01;34mall[m [31m:=[m [35m128[m[31m;[m
		  [01;34mloop[m
		     [01;34mselect[m
			[01;34maccept[m Suspend[31m;[m
		     [01;34mor[m
			[01;34maccept[m Start[31m;[m		  
		     [01;34mor[m
			[01;34maccept[m Halt[31m;[m
			[01;34mexit[m[31m;[m
		     [01;34mor[m
			[01;34mdelay[m [35m0.05[m[31m;[m
			Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m.[m[01;34mall[m[31m);[m
			Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[31m"Host error :"[m [31m&[m Current_Address[31m.[m[01;34mall[m[31m));[m
		     [01;34mend[m [01;34mselect[m[31m;[m	       
		  [01;34mend[m [01;34mloop[m[31m;[m
	       [01;34mwhen[m [01;34mothers[m [31m=>[m
		  Errno[31m.[m[01;34mall[m [31m:=[m [35m128[m[31m;[m
		  [01;34mloop[m
		     [01;34mselect[m
			[01;34maccept[m Suspend[31m;[m
		     [01;34mor[m
			[01;34maccept[m Start[31m;[m		  
		     [01;34mor[m
			[01;34maccept[m Halt[31m;[m
			[01;34mexit[m[31m;[m
		     [01;34mor[m
			[01;34mdelay[m [35m0.05[m[31m;[m
			Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m.[m[01;34mall[m[31m);[m
			Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Others error"[m[31m);[m
			[01;34mraise[m[31m;[m
		     [01;34mend[m [01;34mselect[m[31m;[m	       
		  [01;34mend[m [01;34mloop[m[31m;[m
		  
		  
	    [01;34mend[m[31m;[m
	    
	 [01;34mexception[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       [01;34mnull[m[31m;[m
	       
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      
   [01;34mend[m Web_Search_Type[31m;[m

   

   

   
   
  [01;34mprocedure[m [01;30mSearch_Result_Info[m [31m([mWindow [31m:[m [01;34min[m Ansi_Windows[31m.[mWindow_Type[31m;[m Shell_Interface [31m:[m [01;34min[m Main_Interface_Access[31m;[m Errno [31m:[m [01;34mout[m [32mInteger[m[31m)[m [01;34mis[m
  [01;34mbegin[m
      
     Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m);[m      
     Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Search result for "[m [31m&[m Shell_Interface[31m.[mSearch_Result[31m.[mPattern[31m.[m[01;34mall[m[31m);[m
     Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Address : "[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mShell_Interface[31m.[mSearch_Result[31m.[mAddress[31m.[m[01;34mall[m[31m));[m
     Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Document name : "[m [31m&[m [31m([mShell_Interface[31m.[mSearch_Result[31m.[mDoc_Name[31m.[m[01;34mall[m[31m));[m
     Errno [31m:=[m [35m0[m[31m;[m
  [01;34mend[m Search_Result_Info[31m;[m
   
  [01;34mprocedure[m [01;30mMode_Info_Status[m [31m([mWindow [31m:[m [01;34min[m Ansi_Windows[31m.[mWindow_Type[31m;[m Mode [31m:[m [01;34min[m Command_Type[31m)[m [01;34mis[m
  [01;34mbegin[m
     [01;34mcase[m Mode [01;34mis[m
  	 [01;34mwhen[m Null_Item [31m..[m Adamanborg_Call [31m=>[m
  	    Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m);[m      
  	    [31m--Ansi_Windows.Draw_Centered (Window, 1, White, (Header_Lines(Command_Type'Pos(Mode)).all));[m
  	 [01;34mwhen[m Gnushell [31m=>[m
  	    Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m);[m      
  	    Ansi_Windows[31m.[m[01;30mDraw_Centered[m [31m([mWindow[31m,[m [35m1[m[31m,[m White[31m,[m [31m"GnuShell mode : "[m[31m);[m
  	 [01;34mwhen[m [01;34mothers[m [31m=>[m
	    
  	    Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m);[m      
  	    Ansi_Windows[31m.[m[01;30mDraw_Centered[m [31m([mWindow[31m,[m [35m1[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mCommand_Type'[01;30mImage[m[31m([mMode[31m)));[m
  	    [01;34mnull[m[31m;[m
     [01;34mend[m [01;34mcase[m[31m;[m
  [01;34mend[m Mode_Info_Status[31m;[m
   
  [31m-- Messages pour que l'utilisateur(rice) ne se sente pas perdu(e).[m
  [31m--  procedure Main_Quit_Info_Status(Window : in Ansi_Windows.Window_Type; On_Esc : Boolean) is[m

  [31m--  begin[m
  [31m--     if On_Esc then[m

  [31m--  	Ansi_Windows.Draw_Window (Window);      [m
  [31m--  	 Ansi_Windows.Draw_Centered (Window, 1, White, "press one Escape character to Quit !");[m
  [31m--     else[m

  [31m--  	 Ansi_Windows.Draw_Window (Window);      [m
  [31m--  	 Ansi_Windows.Draw_Centered (Window, 1, White, "press two Escape character to Quit !");[m
  [31m--     end if;[m
  [31m--  end Main_Quit_Info_Status;[m
  
  
  [01;34mprocedure[m [01;30mGnuShell_Command[m [31m([mWindow [31m:[m [01;34min[m Ansi_Windows[31m.[mWindow_Type[31m;[m Shell_Interface [31m:[m [01;34min[m Main_Interface_Access[31m;[m Pattern [31m:[m [01;34min[m [32mWide_String[m[31m;[m Errno [31m:[m [01;34mout[m [32mInteger[m[31m)[m [01;34mis[m
	 
  [01;34mbegin[m

     [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m,[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mand[m [01;34mthen[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m,[m [31m" "[m[31m)[m [31m<[m Pattern'last [01;34mthen[m

	[01;34mdeclare[m
	   
	   Expanded_Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mPattern[m[31m([mWide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m,[m [31m" "[m[31m)+[m[35m1[m[31m..[mPattern'Last[31m);[m
	   
	[01;34mbegin[m	       

	   [31m--Text_Io.Put_Line("Expanded line : " & Expanded_Line);[m
	   [01;34mdeclare[m
	      
	      Command_Line  [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mPattern[m[31m([mPattern'First[31m..[mWide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m,[m [31m" "[m[31m)-[m[35m1[m[31m)[m [31m&[m [31m' '[m [31m&[m Expanded_Line[31m;[m
	   [01;34mbegin[m
	      
	      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Ok !"[m[31m);[m
	      Shell_Interface[31m.[mSpawn_Result [31m:=[m [01;30mshell_Spawn[m[31m([mUTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mEncode[m[31m(([mCommand_Line[31m)));[m
	      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Ok !"[m[31m);[m

	   [01;34mend[m[31m;[m
	[01;34mend[m[31m;[m

     [01;34melse[m
	
	Shell_Interface[31m.[mSpawn_Result [31m:=[m [01;30mShell_Spawn[m[31m([mUTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mEncode[m[31m([mPattern[31m));[m   

     [01;34mend[m [01;34mif[m[31m;[m

     Errno [31m:=[m Shell_Interface[31m.[mSpawn_Result[31m.[mReturn_Code[31m;[m

  [01;34mend[m GnuShell_Command[31m;[m
  Term_Width [31m:[m [01;34mconstant[m Positive [31m:=[m Columns [31m-[m [35m2[m[31m;[m
  Command_Max_Lines  [31m:[m [01;34mconstant[m Positive [31m:=[m Lines [31m-[m [31m([m[35m11[m [31m+[m [35m9[m[31m);[m [31m-- instead 11 + 8[m
  Result_Max_Lines   [31m:[m [01;34mconstant[m Positive [31m:=[m Lines [31m-[m [31m([m[35m9[m [31m+[m [35m9[m[31m);[m[31m-- instead 9 + 8[m
  
  W1 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Header of Program.[m
					      L [31m=>[m  [35m1[m[31m,[m
					      C [31m=>[m  [35m2[m[31m,[m
					      H [31m=>[m  [35m3[m[31m,[m
					      W [31m=>[m Term_Width[31m,[m
					      Frame_Type      [31m=>[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m
					      Frame_Color     [31m=>[m Yellow[31m,[m
					      Close_Box_Color [31m=>[m Red[31m);[m
  
  W10 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Command result : out_file.txt.[m
					       L [31m=>[m  [35m9[m[31m,[m
					       C [31m=>[m  [35m2[m[31m,[m
					       H [31m=>[m  Result_Max_lines[31m,[m
					       W [31m=>[m Term_Width[31m,[m
					       Frame_Type      [31m=>[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m
					       Frame_Color     [31m=>[m M[31m.[mAnsi[31m.[mConsole[31m.[mYellow[31m,[m
					       Close_Box_Color [31m=>[m M[31m.[mAnsi[31m.[mConsole[31m.[mRed[31m);[m
  
  W2 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Command_line and text.[m
					      L [31m=>[m [35m11[m[31m,[m
					      C [31m=>[m  [35m2[m[31m,[m
					      H [31m=>[m  Command_Max_Lines[31m,[m
					      W [31m=>[m Term_Width[31m,[m
					      Frame_Type      [31m=>[m Ansi_Windows[31m.[mDouble_Line_Frame[31m,[m
					      Frame_Color     [31m=>[m M[31m.[mAnsi[31m.[mConsole[31m.[mYellow[31m,[m
					      Close_Box_Color [31m=>[m M[31m.[mAnsi[31m.[mConsole[31m.[mRed[31m);[m
  
  
  W11 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Command info status[m
					       L [31m=>[m  [35m4[m[31m,[m
					       C [31m=>[m  [35m2[m[31m,[m
					       H [31m=>[m  [35m5[m[31m,[m
					       W [31m=>[m Term_Width[31m,[m
					       Frame_Type      [31m=>[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m
					       Frame_Color     [31m=>[m M[31m.[mAnsi[31m.[mConsole[31m.[mYellow[31m,[m
					       Close_Box_Color [31m=>[m M[31m.[mAnsi[31m.[mConsole[31m.[mRed[31m);[m
  
  [01;34mprocedure[m [01;30mMode_Initialization[m [31m([mMain_Window [31m:[m [01;34min[m Ansi_Windows[31m.[mWindow_Type[31m;[m Mode [31m:[m [01;34min[m Command_Type[31m;[mOn_Esc [31m:[m [01;34min[m [32mBoolean[m[31m;[m Message [31m:[m [01;34min[m [32mWide_string[m[31m)[m [01;34mis[m
  [01;34mbegin[m
     [31m--Ada.Text_Io.Put(PragmARC.Ansi_Tty_Control.Clear_Screen);[m

     [01;30mMode_Info_Status[m[31m([mW1[31m,[m Mode[31m);[m

     Ansi_windows[31m.[m[01;30mDraw_Window[m [31m([mMain_Window[31m);[m

     [31m--Main_Quit_Info_Status(W3, On_Esc);					     	 [m

     Ansi_windows[31m.[m[01;30mDraw_Centered[m [31m([mMain_Window[31m,[m [35m1[m[31m,[m M[31m.[mAnsi[31m.[mConsole[31m.[mWhite[31m,[m Message[31m);[m
  [01;34mend[m Mode_Initialization[31m;[m

  
  [01;34mprocedure[m [01;30mCommand_Info_Status[m [31m([mWindow [31m:[m [01;34min[m Ansi_Windows[31m.[mWindow_Type[31m;[m Shell_Interface [31m:[m [01;34min[m Main_Interface_Access[31m)[m [01;34mis[m
     
  [01;34mbegin[m
     
     Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m);[m      
     
     Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m [31m"Program Name   : "[m [31m&[m [31m(-[mShell_Interface[31m.[mSpawn_Result[31m.[mProgram_Name[31m));[m
     
     Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m2[m[31m,[m [35m2[m[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m [31m"Success  : "[m [31m&[m [01;30mTo_Wide_String[m[31m([m[32mBoolean[m'[01;30mImage[m[31m([mShell_Interface[31m.[mSpawn_Result[31m.[msuccess[31m)));[m
     
     Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m,[m [35m3[m[31m,[m [35m2[m[31m,[m Ansi[31m.[mConsole[31m.[mWhite[31m,[m [31m"Errno    : "[m [31m&[m [01;30mTo_Wide_String[m[31m([m[32mInteger[m'[01;30mImage[m[31m([mShell_Interface[31m.[mSpawn_Result[31m.[mReturn_Code[31m)));[m
  [01;34mend[m Command_Info_Status[31m;[m            
      
      
  
  
  Current_Command [31m:[m Sub_Command_Type [31m:=[m None[31m;[m
  
  
  
  
  
  
  [01;34mtask[m [01;34mbody[m Shell_Process [01;34mis[m      
     
     [01;34muse[m Adam[31m.[mResults[31m;[m 
     [01;34mprocedure[m [01;30mInternal_Help[m [31m([mLine [31m:[m [01;34min[m [32mWide_string[m[31m;[m Result [31m:[m [01;34min[m [01;34mout[m Adam[31m.[mResults[31m.[mSpawn_Result_Type[31m)[m [01;34mis[m
	Command [31m:[m Gnat[31m.[mCommand_Line[31m.[mCommand_Line[31m;[m
	Cmd [31m:[m Sub_Command_Type [31m:=[m None[31m;[m
	Args_List [31m:[m Os_Lib[31m.[mArgument_List_Access[31m;[m                  
	Buffer [31m:[m Adam[31m.[mResults[31m.[mVariadic_Access[31m;[m
	Last   [31m:[m Natural [31m:=[m [35m0[m[31m;[m
     [01;34mbegin[m
	[01;34mif[m Result[31m.[mFile_Content [31m=[m [01;34mnull[m [01;34mthen[m
	   Result[31m.[mFile_Content [31m:=[m [01;34mnew[m [01;30mVariadic_Array[m[31m([m[35m1[m[31m..[m[35m5[m[31m);[m
	   
	[01;34mend[m [01;34mif[m[31m;[m
	Buffer [31m:=[m Result[31m.[mFile_content[31m;[m

	Gnat[31m.[mCommand_Line[31m.[m[01;30mSet_Command_Line[m[31m([mCommand[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mLine[31m));[m      

	Gnat[31m.[mCommand_Line[31m.[m[01;30mBuild[m[31m([mCommand[31m,[m Args_List[31m,[m False[31m);[m

	[01;34mif[m Args_List'Last [31m>[m [35m1[m [01;34mthen[m

	   [01;34mif[m [01;34mnot[m OS_Lib[31m.[m[31m"="[m[31m([m[01;30mArgs_List[m[31m([m[35m2[m[31m),[m [01;34mnull[m[31m)[m [01;34mand[m [01;34mthen[m [01;30mArgs_List[m[31m([m[35m2[m[31m).[m[01;34mall[m [31m/=[m [31m""[m [01;34mthen[m
	      [01;34mbegin[m
		 Cmd [31m:=[m Sub_Command_Type'[01;30mValue[m[31m([m[01;30mArgs_list[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m);[m
	      [01;34mexception[m
		 [01;34mwhen[m Constraint_Error [31m=>[m
		    [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mArgs_List[m[31m([m[35m2[m[31m).[m[01;34mall[m[31m)[m [31m&[m [31m" is not an internal command."[m[31m));[m
		    [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m[31m"Command help : help COMMAND"[m[31m));[m
		    [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m[31m"                -- help ? print command help for ? --"[m[31m));[m
		    Result[31m.[mFile_Content [31m:=[m Buffer[31m;[m
		    [31m--Result.Count := 3;[m
		    [01;34mreturn[m[31m;[m
		    
	      [01;34mend[m[31m;[m
	   [01;34melse[m

	      Cmd [31m:=[m None[31m;[m
	   [01;34mend[m [01;34mif[m[31m;[m   
	[01;34melse[m

	   Cmd [31m:=[m None[31m;[m
	[01;34mend[m [01;34mif[m[31m;[m
	[31m--Result.Count := 0;[m
	[01;34mif[m Cmd [31m=[m None [01;34mthen[m

	   [01;34mfor[m Iter [01;34min[m Sub_Command_Type'[01;34mRange[m [01;34mloop[m
	      
	      [01;34mcase[m Cmd [01;34mis[m
		 [01;34mwhen[m None [31m=>[m	    
		    [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m[31m"Command help : help COMMAND"[m[31m));[m
		    [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m[31m"                -- help ? print command help for ? --"[m[31m));[m
		    [31m--Result.Count := Result.Count + 2;[m
		    [31m--  when Clear =>[m
		    [31m--     Buffer(1) := (Adam.Results."+"( "Command help : clear"));[m
		    [31m--     Buffer(1) := (Adam.Results."+"( "                -- Erase the shell file named ""$HOME/.buffer.txt"" --"));[m
		    [31m--Result.Count := Result.Count + 2;[m
		 [01;34mwhen[m Alias [31m=>[m
		    [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"Command help : alias"[m[31m));[m
		    [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                -- Create an alias to any command --"[m[31m));[m
		    [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                -- Ex : alias name=value          --"[m[31m));[m
		    [31m--Result.Count := Result.Count + 3;[m
		 [01;34mwhen[m Unalias [31m=>[m
		    [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"Command help : unalias"[m[31m));[m
		    [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                -- Delete an alias  --"[m[31m));[m
		    [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                -- Ex : unalias name              --"[m[31m));[m
		    [31m--Result.Count := Result.Count + 3;[m
		 [01;34mwhen[m Cd [31m=>[m
		    [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"Command help : cd"[m[31m));[m
		    [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                --  Change current working directory --"[m[31m));[m
		    [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                --  Ex : cd Documents [ Enter ]      --"[m[31m));[m
		    [01;30mBuffer[m[31m([m[35m4[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                --  Ex : cd - [ Enter ] (Change current dir to OLD_PWD --"[m[31m));[m
		    [01;30mBuffer[m[31m([m[35m5[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                --  Ex : cd [ Enter ] (Change current dir to $HOME directory  --"[m[31m));[m
		    [31m--Result.Count := Result.Count + 5;[m
		    [31m--  when Logout =>[m
		    [31m--     Buffer(1) := (+( "Command help : logout"));[m
		    [31m--     Buffer(1) := (+( "                --  Quit the program --"));[m
		    [31m--  when Pwd =>[m
		    [31m--     Buffer(1) := (+( "Command help : pwd"));[m
		    [31m--     Buffer(1) := (+( "                --  Return the current working directory --"));[m
		 [01;34mwhen[m Help [31m=>[m
		    [01;34mnull[m[31m;[m
		 [01;34mwhen[m [01;34mothers[m [31m=>[m
		    [01;34mnull[m[31m;[m
	      [01;34mend[m [01;34mcase[m[31m;[m

	   [01;34mend[m [01;34mloop[m[31m;[m

	[01;34melse[m

	   [01;34mcase[m Cmd [01;34mis[m
	      [01;34mwhen[m None [31m=>[m	    
		 [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m[31m"Command help : help COMMAND"[m[31m));[m
		 [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m[31m"                -- help ? print command help for ? --"[m[31m));[m
		 [31m--Result.Count := Result.Count + 2;[m
		 [31m--  when Clear =>[m
		 [31m--     Buffer(1) := (Adam.Results."+"( "Command help : clear"));[m
		 [31m--     Buffer(1) := (Adam.Results."+"( "                -- Erase the shell file named ""$HOME/.buffer.txt"" --"));[m
		 [31m--Result.Count := Result.Count + 2;[m
	      [01;34mwhen[m Alias [31m=>[m
		 [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"Command help : alias"[m[31m));[m
		 [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                -- Create an alias to any command --"[m[31m));[m
		 [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                -- Ex : alias name=value          --"[m[31m));[m
		 [31m--Result.Count := Result.Count + 3;[m
	      [01;34mwhen[m Unalias [31m=>[m
		 [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"Command help : unalias"[m[31m));[m
		 [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                -- Delete an alias  --"[m[31m));[m
		 [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                -- Ex : unalias name              --"[m[31m));[m
		 [31m--Result.Count := Result.Count + 3;[m
	      [01;34mwhen[m Cd [31m=>[m
		 [01;30mBuffer[m[31m([m[35m1[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"Command help : cd"[m[31m));[m
		 [01;30mBuffer[m[31m([m[35m2[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                --  Change current working directory --"[m[31m));[m
		 [01;30mBuffer[m[31m([m[35m3[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                --  Ex : cd Documents [ Enter ]      --"[m[31m));[m
		 [01;30mBuffer[m[31m([m[35m4[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                --  Ex : cd - [ Enter ] (Change current dir to OLD_PWD --"[m[31m));[m
		 [01;30mBuffer[m[31m([m[35m5[m[31m)[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"+"[m[31m([m [31m"                --  Ex : cd [ Enter ] (Change current dir to $HOME directory  --"[m[31m));[m
		 [31m--Result.Count := Result.Count + 5;[m
		 [31m--  when Logout =>[m
		 [31m--     Buffer(1) := (+( "Command help : logout"));[m
		 [31m--     Buffer(1) := (+( "                --  Quit the program --"));[m
		 [31m--  when Pwd =>[m
		 [31m--     Buffer(1) := (+( "Command help : pwd"));[m
		 [31m--     Buffer(1) := (+( "                --  Return the current working directory --"));[m
	      [01;34mwhen[m Help [31m=>[m
		 [01;34mnull[m[31m;[m
	      [01;34mwhen[m [01;34mothers[m [31m=>[m
		 [01;34mnull[m[31m;[m
	   [01;34mend[m [01;34mcase[m[31m;[m

	[01;34mend[m [01;34mif[m[31m;[m	

	Result[31m.[mFile_content [31m:=[m Buffer[31m;[m

     [01;34mend[m Internal_Help[31m;[m

     
     
     
     
     On_Esc [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
     Current_Mode    [31m:[m Command_Type [31m:=[m Gnushell[31m;[m
     File_Index [31m:[m natural [31m:=[m [35m0[m[31m;[m         
     Line_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m

     GnuShell_Prompt_Line [31m:[m Positive [31m:=[m [35m1[m[31m;[m
     
     Line [31m:[m M[31m.[mStrings[31m.[mWide_String_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
     buffer [31m:[m M[31m.[mStrings[31m.[mWide_String_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
     
     Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Term_Width[31m-[m[35m7[m[31m;[m
     Lines_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Command_Max_Lines[31m-[m[35m2[m[31m;[m
     Line_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m
     
     
     
     Done [31m:[m [32mBoolean[m [31m:=[m True[31m;[m
      
     Args_Index        [31m:[m Natural [31m:=[m [35m0[m[31m;[m
     Arguments         [31m:[m Wide_Access[31m;[m
     
     Var_Set           [31m:[m [01;30mAttributs[m[31m([m[35m2048[m[31m);[m
     Alias_Set         [31m:[m [01;30mAttributs[m[31m([m[35m2048[m[31m);[m
     
     Is_Internal_Cmd [31m:[m [32mBoolean[m [31m:=[m True[31m;[m
      
      
      
      
      Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      xls_index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Total  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Old_Text  [31m:[m Wide_Access[31m;[m
     
  [01;34mbegin[m

     Alias_Set[31m.[m[01;30mList[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mMake[m[31m([m[31m"ls"[m[31m,[m [31m"ls -C -p --color -w "[m [31m&[m [32mInteger[m'[01;30mImage[m[31m([mColumns[31m-[m[35m4[m[31m));[m
     Alias_Set[31m.[mIndex [31m:=[m [35m1[m[31m;[m
     Alias_Set[31m.[m[01;30mList[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mMake[m[31m([m[31m"clear"[m[31m,[m [31m"rm -f "[m [31m&[m OS_Lib[31m.[m[01;30mGetenv[m[31m([m[31m"HOME"[m[31m).[m[01;34mall[m [31m&[m [31m"/.buffer.txt"[m[31m);[m
     Alias_Set[31m.[mIndex [31m:=[m [35m2[m[31m;[m
  Main_Loop[31m:[m
      [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		  [01;34mcase[m WChar [01;34mis[m
		     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [31m=>[m
			[01;34mif[m Line [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Line'Length [31m>[m [35m0[m [01;34mthen[m
			   Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mLine[m[31m([mLine'First[31m..[mLine'Last[31m-[m[35m1[m[31m));[m
			   [01;30mWide_Free[m[31m([mLine[31m);[m
			   Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mBuffer[31m.[m[01;34mall[m[31m);[m
			   [01;30mWide_Free[m[31m([mBuffer[31m);[m                     
			[01;34mend[m [01;34mif[m[31m;[m                           
		     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m

			[01;34mdeclare[m
			   Echo_Error [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
			[01;34mbegin[m                           

			   [01;34mif[m Line [31m/=[m [01;34mnull[m [01;34mthen[m

			      [01;34mif[m Line'Length [31m>[m [35m0[m [01;34mand[m Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m.[m[01;34mall[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m

				 Current_Command [31m:=[m Values[31m.[m[01;30mSub_Value[m[31m([mAdam[31m.[mNone[31m,[m Handling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m));[m				       
			      [01;34melse[m

				 Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"sh -c ""echo Hello World!"""[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m

			      [01;34mcase[m Current_command [01;34mis[m
				 [01;34mwhen[m Help [31m=>[m

				    [01;30mInternal_Help[m[31m([mLine[31m.[m[01;34mall[m[31m,[m Shell_Interface[31m.[mSpawn_Result[31m);[m
				    [31m--New_Line;[m
				    [01;30mPrint_Buffer[m[31m([mResult[31m,[m [35m0[m[31m);[m

				 [01;34mwhen[m none [31m=>[m
				    Is_Internal_Cmd [31m:=[m False[31m;[m
				 [01;34mwhen[m Alias [31m=>[m
				    
				    [01;30mAlias[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m),[m Alias_Set[31m);[m
				    
				 [01;34mwhen[m Unalias [31m=>[m
				    
				    [01;30mUnalias[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m),[m Alias_Set[31m);[m
				    
				 [01;34mwhen[m Cd [31m=>[m
				    
				    [01;34mbegin[m
				       M[31m.[mTools[31m.[m[01;30mChange_Directory[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m),[m Old_Pwd[31m);[m
				       
				    [01;34mexception[m
				       [01;34mwhen[m Directory_Error [31m=>[m
					  Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Directory not found"[m[31m);[m
					  Text_Io[31m.[mNew_Line[31m;[m
					  [01;34mend[m[31m;[m
				 [01;34mwhen[m Set [31m=>[m
				    
				    [01;30mSet[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
				    
				 [01;34mwhen[m Unset [31m=>[m
				    
				    [01;30mUnset[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
				    
				 [01;34mwhen[m Put [31m=>[m
				    
				    Args_Index [31m:=[m [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m);[m
				    [01;34mif[m Args_Index [31m/=[m [35m0[m [01;34mthen[m
				       Arguments [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mLine[m[31m([mArgs_Index[31m+[m[35m1[m[31m..[mLine'Length[31m));[m
				       [01;30mPut[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mArguments[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    Text_Io[31m.[mNew_Line[31m;[m
				 [01;34mwhen[m Put_Line [31m=>[m

				    Args_Index [31m:=[m [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m);[m
				    [01;34mif[m Args_Index [31m/=[m [35m0[m [01;34mthen[m
				       Arguments [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mLine[m[31m([mArgs_Index[31m+[m[35m1[m[31m..[mLine'length[31m));[m
				       [01;30mPut_Line[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mArguments[31m.[m[01;34mall[m[31m),[m Var_Set[31m);[m
				    [01;34mend[m [01;34mif[m[31m;[m
				    
				 [31m--  when Xls =>[m
				 [31m--     Xls_Index := 0;[m
				 [31m--     Internal.xls(Handling.To_String(Line.all), App.Cmd_Result.Win, Xls_Index, Total, False);[m
				 [31m--     Total := 0;[m
				 [31m--     Wide_Free(Old_Text);[m
				    
				 [31m--     Old_Text := new Wide_String ' (Line.all);[m
				    
			      [01;34mend[m [01;34mcase[m[31m;[m

			      [31m--Last_Cmd := Internal_Cmd;[m
			      
			      [31m--Line_Cur := Line_Cur + 1;[m
			      [01;34mif[m [01;34mnot[m Is_Internal_Cmd [01;34mthen[m

				 [31m--New_Line;[m
				 [01;34mdeclare[m
				    Alias_Ptr   [31m:[m Os_Lib[31m.[mString_Access[31m;[m
				    Buffer      [31m:[m Os_Lib[31m.[mString_Access[31m;[m
				    Normal      [31m:[m Os_Lib[31m.[mString_Access[31m;[m				 
				 [01;34mbegin[m

				    [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mAlias_Set[31m.[mIndex [01;34mloop[m
				       [01;34mdeclare[m
					  Alias [31m:[m [01;34mconstant[m Attribut_Record [31m:=[m Alias_Set[31m.[m[01;30mList[m[31m([mIter[31m);[m
					  First_Space [31m:[m Natural [31m:=[m 
					    [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m);[m
					  Non_Blank   [31m:[m [01;34mconstant[m Natural [31m:=[m
					    [01;30mIndex_Non_Blank[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m),[m Backward[31m);[m
				       [01;34mbegin[m	
					  [01;34mif[m Non_Blank [31m<[m First_Space [01;34mthen[m
					     First_Space [31m:=[m [35m0[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mif[m First_Space [31m/=[m [35m0[m [01;34mthen[m
					     [01;34mif[m [01;30mNames[m[31m([mAlias[31m)[m [31m=[m
					       Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mLine'First[31m..[mFirst_Space [31m-[m [35m1[m[31m))[m [01;34mthen[m
						Alias_Ptr [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mImages[m[31m([mAlias[31m));[m
						[01;34mexit[m[31m;[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34melse[m
					     [01;34mif[m [01;30mNames[m[31m([mAlias[31m)[m [31m=[m Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mLine'First[31m..[m[01;30mIndex_Non_Blank[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m),[m Backward[31m)))[m [01;34mthen[m
						Alias_Ptr [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mImages[m[31m([mAlias[31m));[m
						[01;34mexit[m[31m;[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m[31m;[m
				    [01;34mend[m [01;34mloop[m[31m;[m

				    [01;34mif[m Alias_Ptr [31m/=[m [01;34mnull[m [01;34mthen[m
				       [01;34mdeclare[m
					  First_Space [31m:[m [01;34mconstant[m Natural [31m:=[m 
					    [01;30mIndex[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m),[m [31m" "[m[31m);[m
				       [01;34mbegin[m

					  [01;34mif[m First_Space [31m/=[m [35m0[m [01;34mthen[m
					     Buffer [31m:=[m [01;34mnew[m [32mString[m ' [31m([mAlias_Ptr[31m.[m[01;34mall[m [31m&[m [31m' '[m [31m&[m Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mFirst_Space[31m+[m[35m1[m[31m..[mLine ' Last[31m)));[m

					  [01;34melse[m
					     Buffer [31m:=[m [01;34mnew[m [32mString[m ' [31m([mAlias_Ptr[31m.[m[01;34mall[m[31m);[m
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34mend[m[31m;[m
				       [01;30mWide_Free[m[31m([mLine[31m);[m
				       
				       Normal [31m:=[m [01;34mnew[m [32mString[m ' [31m([mM[31m.[mTools[31m.[m[01;30mNormalize_Quoted_Argument[m[31m([mBuffer[31m.[m[01;34mall[m[31m));[m
				       Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mNormal[31m.[m[01;34mall[m[31m));[m
				       
				    [01;34mend[m [01;34mif[m[31m;[m

				 [01;34mend[m[31m;[m
				 
				 [01;30mGnushell_command[m[31m([mW3[31m,[m Shell_Interface[31m,[m [31m"sh -c """[m [31m&[m [31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mM[31m.[mTools[31m.[m[01;30mNormalize_Quoted_Argument[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m.[m[01;34mall[m[31m))))[m [31m&[m [31m""""[m[31m,[m Echo_Error[31m);[m
				 [31m--Ansi.Console.Clear_screen;[m

				 [01;34mif[m Echo_Error [31m=[m [35m0[m [01;34mthen[m
				    [01;34mif[m Shell_Interface[31m.[mSpawn_Result[31m.[mArgs [31m/=[m [01;34mnull[m [01;34mthen[m
				       [01;34mfor[m Arg [01;34min[m Shell_Interface[31m.[mSpawn_Result[31m.[mArgs'[01;34mRange[m [01;34mloop[m
					  [01;30mFree[m[31m([mShell_Interface[31m.[mSpawn_Result[31m.[m[01;30mArgs[m[31m([mArg[31m));[m
				       [01;34mend[m [01;34mloop[m[31m;[m
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m                                                                                    

				 [01;34mif[m Shell_Interface[31m.[mSpawn_Result[31m.[mFile_content'Length [31m>[m Result_Max_Lines[31m-[m[35m4[m [01;34mthen[m
				    
				    File_Index [31m:=[m [31m([mShell_Interface[31m.[mSpawn_Result[31m.[mFile_content'Length[31m-(([mResult_Max_Lines[31m-[m[35m4[m[31m)-[mLine'Length[31m/[mChars_Max[31m)[m [31m+[m [35m1[m[31m);[m
				 [01;34melse[m
				    
				    File_Index [31m:=[m [35m0[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m
				 Line_Index [31m:=[m [35m0[m[31m;[m
			      
			      [01;34mend[m [01;34mif[m[31m;[m
			      [31m--  Line := new Wide_String ' ("sh -c ""echo Hello World : """);[m
			      [31m--  Gnushell_command(W3, Shell_Interface, Line.all, errno);[m
			      [31m--  Ansi.Console.Clear_screen;                                                                                 [m
			      
			      [31m--  if Errno = 0 then[m
			      [31m--     if Shell_Interface.Spawn_Result.Args /= null then[m
			      [31m--  	  for Arg in Shell_Interface.Spawn_Result.Args'Range loop[m
			      [31m--  	     Free(Shell_Interface.Spawn_Result.Args(Arg));[m
			      [31m--  	  end loop;[m
			      [31m--     end if;[m
			      [31m--  end if;                                                                                    [m
			      [01;34mif[m Echo_Error [31m=[m [35m0[m [01;34mthen[m
				 [01;30mWide_Free[m[31m([mLine[31m);[m
				 Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      Is_Internal_Cmd [31m:=[m True[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			[01;34mend[m[31m;[m

		     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m12[m[31m)[m [31m=>[m
			[01;30mWide_Free[m[31m([mline[31m);[m                        
			Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
		     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m20[m[31m)[m [31m=>[m
			


			Ansi[31m.[mConsole[31m.[mClear_screen[31m;[m                           
			Current_Mode [31m:=[m Null_Item[31m;[m
		     [01;34mwhen[m [01;34mothers[m [31m=>[m
			[01;34mif[m [01;30mIs_Control[m[31m([m[01;30mTo_Character[m[31m([mWChar[31m))[m [01;34mthen[m
			   [01;34mnull[m[31m;[m
			[01;34melse[m
			   [01;34mcase[m Current_Mode [01;34mis[m				    
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mif[m Line [31m/=[m [01;34mnull[m [01;34mthen[m
				    [01;34mif[m Line'Length [31m<[m [31m([mcolumns[31m-[m[35m10[m[31m)*([mLines_Max[31m-[m[35m3[m[31m)[m [01;34mthen[m
				       Buffer [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLine[31m.[m[01;34mall[m [31m&[m WChar[31m);[m
				       [01;30mWide_Free[m[31m([mLine[31m);[m
				       Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mBuffer[31m.[m[01;34mall[m[31m);[m
				       [01;30mWide_Free[m[31m([mBuffer[31m);[m                             
				    [01;34mend[m [01;34mif[m[31m;[m
				 [01;34melse[m
				    Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m [31m&[m WChar[31m);[m
				 [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mend[m [01;34mcase[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mcase[m[31m;[m         
	       [01;34mend[m Receive[31m;[m
	       [01;34mcase[m Current_Mode [01;34mis[m
		  [01;34mwhen[m Gnushell [31m=>[m			   
		     [01;30mMode_Initialization[m[31m([mW10[31m,[m Current_Mode[31m,[m On_Esc[31m,[m Message [31m=>[m [31m""[m[31m);[m
		     [01;30mCommand_Info_Status[m[31m([mW11[31m,[m Shell_Interface[31m);[m
		  [01;34mwhen[m [01;34mothers[m [31m=>[m
		     [01;34mnull[m[31m;[m
	       [01;34mend[m [01;34mcase[m[31m;[m

	    [01;34mor[m
	       [01;34maccept[m Halt [01;34mdo[m
	 	  [01;34mnull[m[31m;[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
	 	  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"World"[m[31m);[m
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down [01;34mdo[m
		  [01;34mif[m File_Index[31m+([mResult_Max_Lines[31m-[m[35m1[m[31m)[m [31m<[m Shell_Interface[31m.[mSpawn_Result[31m.[mFile_Content'Length  [01;34mthen[m
		     File_Index [31m:=[m Positive'[01;30mMin[m[31m([mFile_Index[31m+([mResult_Max_Lines[31m-[m[35m1[m[31m),[m Shell_Interface[31m.[mSpawn_Result[31m.[mFile_Content'Length [31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Page_Down[31m;[m
	       [01;30mMode_Initialization[m[31m([mW10[31m,[m Current_Mode[31m,[m On_Esc[31m,[m Message [31m=>[m [31m""[m[31m);[m
	       [01;30mCommand_Info_Status[m[31m([mW11[31m,[m Shell_Interface[31m);[m	       
	    [01;34mor[m

	       [01;34maccept[m Page_Up [01;34mdo[m
		  [01;34mif[m File_Index [31m>[m [31m([mResult_Max_Lines[31m-[m[35m1[m[31m)[m [01;34mthen[m
		     File_Index [31m:=[m File_Index [31m-[m [31m([mResult_Max_Lines[31m-[m[35m1[m[31m);[m
		  [01;34melse[m
		     File_Index [31m:=[m [35m0[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Page_Up[31m;[m
	       [01;30mMode_Initialization[m[31m([mW10[31m,[m Current_Mode[31m,[m On_Esc[31m,[m Message [31m=>[m [31m""[m[31m);[m
	       [01;30mCommand_Info_Status[m[31m([mW11[31m,[m Shell_Interface[31m);[m
	    [01;34mor[m
	
	       [01;34maccept[m Up_Arrow [01;34mdo[m
		  [01;34mif[m File_Index [31m>[m [35m0[m [01;34mthen[m
		     File_Index [31m:=[m File_Index [31m-[m [35m1[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Up_Arrow[31m;[m
	       [01;30mMode_Initialization[m[31m([mW10[31m,[m Current_Mode[31m,[m On_Esc[31m,[m Message [31m=>[m [31m""[m[31m);[m
	       [01;30mCommand_Info_Status[m[31m([mW11[31m,[m Shell_Interface[31m);[m
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow [01;34mdo[m
		  [01;34mif[m File_Index [31m+[m [35m1[m [31m<[m Shell_Interface[31m.[mSpawn_Result[31m.[mFile_Content'Length  [01;34mthen[m
		     File_Index [31m:=[m Positive'[01;30mMin[m[31m([mFile_Index[31m+[m[35m1[m[31m,[m Shell_Interface[31m.[mSpawn_Result[31m.[mFile_Content'Length [31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Down_Arrow[31m;[m
	       [01;30mMode_Initialization[m[31m([mW10[31m,[m Current_Mode[31m,[m On_Esc[31m,[m Message [31m=>[m [31m""[m[31m);[m
	       [01;30mCommand_Info_Status[m[31m([mW11[31m,[m Shell_Interface[31m);[m
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m      
	    [01;34mend[m [01;34mselect[m[31m;[m
	    [31m--Command_Info_Status(W11, Shell_Interface);[m
	    
	    Line_Count [31m:=[m [35m0[m[31m;[m
	    
	    
	    [31m----------------------------------------[m
	    [31m-- Printing GnuShell Spawn buffer.[m
	    
	    
	    [01;34mif[m Shell_Interface[31m.[mSpawn_Result[31m.[mFile_Content [31m/=[m [01;34mnull[m [01;34mthen[m

	   GnuShell_Loop[31m:[m
	       [01;34mfor[m I [01;34min[m File_Index[31m+[m[35m1[m[31m..[mPositive'[01;30mmin[m[31m([mFile_Index[31m+(([mResult_Max_Lines[31m-[m[35m2[m[31m)),[m 
						   Shell_Interface[31m.[mSpawn_Result[31m.[mFile_Content'Length[31m)[m [01;34mloop[m
		  [01;34mdeclare[m
		     tmp [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [31m([mAdam[31m.[mResults[31m.[m[31m"-"[m[31m([mShell_Interface[31m.[mSpawn_Result[31m.[m[01;30mFile_Content[m[31m([mI[31m)));[m
		     Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mTmp[m[31m([mTmp'First[31m..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mTmp[31m),[m Backward[31m));[m
		     
		     Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Term_Width[31m-[m[35m5[m[31m;[m
		     Lines_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [31m([mResult_Max_Lines[31m-[m[35m2[m[31m);[m
		  [01;34mbegin[m
		     [01;34mif[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m>[m [35m0[m [01;34mand[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m<[m [31m([mChars_Max [31m*[m Lines_Max[31m)[m [01;34mthen[m				  
			
			[01;34mfor[m Line_Window [01;34min[m Line_Index[31m..[m[32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m(([mLine[31m))/[mChars_Max[31m,[m Lines_Max[31m)[m [01;34mloop[m
			   
			   [01;34mdeclare[m
			      B_Inf [31m:[m [01;34mconstant[m Positive [31m:=[m Line_Window[31m*[mChars_Max [31m+[m [35m1[m[31m;[m
			      B_Sup [31m:[m [01;34mconstant[m Positive [31m:=[m [32mInteger[m'[01;30mmin[m[31m(([mLine_Window [31m+[m [35m1[m[31m)*[mChars_Max[31m,[m [01;30mReal_Length[m[31m(([mLine[31m)));[m
			   [01;34mbegin[m
			      [01;34mif[m [01;30mReal_length[m[31m(([mLine[31m))[m [31m<[m Chars_max [01;34mthen[m
				 
				 
				 
				 
				 Ansi_Windows[31m.[m[01;30mDraw[m [31m([mW10[31m,[m Line_Count [31m+[m [35m1[m[31m,[m [35m2[m[31m,[m M[31m.[mAnsi[31m.[mConsole[31m.[mWhite[31m,[m [31m([mLine[31m));[m
				 
			      [01;34melse[m
				 
				 Ansi_Windows[31m.[mDraw 
				   [31m([mW10[31m,[m 
				    Line_count [31m+[m [35m1[m[31m,[m
				    [35m2[m[31m,[m 
				    M[31m.[mAnsi[31m.[mConsole[31m.[mWhite[31m,[m 
				    [31m([m[01;30mLine[m[31m([mB_inf[31m..[mB_sup[31m))[m
				   [31m);[m						      
				 
			      [01;34mend[m [01;34mif[m[31m;[m                 
			   [01;34mend[m[31m;[m
			   Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
			   [01;34mexit[m GnuShell_Loop [01;34mWhen[m Line_Count [31m>[m [31m([mResult_Max_lines [31m-[m [35m6[m [31m-[m [32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m([mLine[31m)/[mChars_Max[31m,[m Lines_Max[31m));[m
			[01;34mend[m [01;34mloop[m[31m;[m
		     [01;34melse[m
			Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m                           
		     [01;34mexit[m GnuShell_Loop [01;34mwhen[m Line_Count [31m>[m [31m([mResult_Max_lines [31m-[m [35m6[m [31m-[m [32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m([mLine[31m)/[mChars_Max[31m,[m Lines_Max[31m));[m
		  [01;34mend[m[31m;[m
		  
	       [01;34mend[m [01;34mloop[m GnuShell_Loop[31m;[m
	       
	    [01;34mend[m [01;34mif[m[31m;[m
	    [31m--Move_Cursor_To(W10, 1, 2);[m

	    
	    [31m-------------------------------------------[m
	    [31m-- Printing the user command line.[m
	    [31m--[m
	    
	    [01;34mif[m Shell_Interface[31m.[mSpawn_Result[31m.[mFile_Content [31m/=[m [01;34mnull[m [01;34mthen[m
	       
	       GnuShell_Prompt_Line [31m:=[m [32mInteger[m'[01;30mMin[m [31m([mLine_Count [31m+[m [35m1[m[31m,[m
						    [31m([mCommand_Max_Lines [31m-[m [35m5[m[31m))+[m[35m1[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mif[m Line [31m/=[m [01;34mnull[m [01;34mthen[m
	       [01;34mdeclare[m
		  
		  Command_Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m Line[31m.[m[01;34mall[m[31m;[m                                 
		  Local_Line_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m
		  
		  Total_Lines_Of_Command [31m:[m [01;34mconstant[m Natural [31m:=[m [01;30mReal_Length[m[31m([mCommand_Line[31m)/[mChars_Max[31m;[m
		  
	       [01;34mbegin[m
		  
		  [01;34mif[m [01;30mReal_Length[m[31m([mCommand_Line[31m)[m [31m>[m [35m0[m [01;34mthen[m
		     [01;34mfor[m Line_Window [01;34min[m [35m0[m[31m..[m[32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m([mCommand_Line[31m)/[mChars_Max[31m,[m Lines_Max[31m)[m [01;34mloop[m
			
			
			[01;34mif[m Local_Line_Count [31m+[m [31m([mLocal_Line_Count[31m+[mLine_Window[31m+[m[35m2[m[31m)[m [31m>=[m [31m([mCommand_Max_Lines [31m-[m [35m4[m[31m)[m  [01;34mthen[m
			   GnuShell_Prompt_Line [31m:=[m [31m([mCommand_Max_Lines [31m-[m Total_Lines_Of_Command[31m)[m [31m-[m [31m([mLocal_Line_Count [31m+[m [35m4[m[31m);[m
			[01;34mend[m [01;34mif[m[31m;[m
			

			
			[01;34mdeclare[m
			   B_Inf [31m:[m [01;34mconstant[m Positive [31m:=[m Line_Window[31m*[mChars_Max[31m+[m[35m1[m[31m;[m
			   B_Sup [31m:[m [01;34mconstant[m Positive [31m:=[m [32mInteger[m'[01;30mmin[m[31m(([mLine_Window[31m+[m[35m1[m[31m)*[mChars_max[31m,[m Command_Line'last[31m);[m
			[01;34mbegin[m
			   
			   [01;34mif[m Command_Line'last [31m<=[m Chars_Max [01;34mthen[m					     
			      Ansi_Windows[31m.[m[01;30mDraw[m [31m([mW2[31m,[m GnuShell_Prompt_Line[31m,[m [35m2[m[31m,[m M[31m.[mAnsi[31m.[mConsole[31m.[mWhite[31m,[m [31m"# "[m [31m&[m [31m([mCommand_Line[31m));[m
			      Ansi_Windows[31m.[m[01;30mMove_Cursor_To[m[31m([mW2[31m,[m GnuShell_Prompt_Line[31m,[m Command_Line'Last[31m+[m[35m4[m[31m);[m
			   [01;34melsif[m Line_Window [31m=[m [35m0[m [01;34mthen[m
			      Ansi_Windows[31m.[mDraw 
				[31m([mW2[31m,[m 
				 GnuShell_Prompt_Line[31m,[m 
				 [35m2[m[31m,[m 
				 M[31m.[mAnsi[31m.[mConsole[31m.[mWhite[31m,[m 
				 [31m"# "[m [31m&[m [31m([m[01;30mCommand_Line[m[31m([mB_inf[31m..[mB_sup[31m))[m
				[31m);[m
			      Ansi_Windows[31m.[m[01;30mMove_Cursor_To[m[31m([mW2[31m,[m GnuShell_Prompt_Line[31m,[m B_Sup[31m+[m[35m4[m[31m);[m                                          
			      Local_Line_Count [31m:=[m Local_Line_Count [31m+[m [35m1[m[31m;[m

			   [01;34melse[m

			      Ansi_Windows[31m.[mDraw 
				[31m([mW2[31m,[m 
				 GnuShell_Prompt_Line [31m+[m [31m([mLine_Window[31m)[m [31m+[m [35m1[m [31m+[m [31m([mLocal_Line_Count [31m-[m [35m1[m[31m),[m
				 [35m2[m[31m,[m 
				 M[31m.[mAnsi[31m.[mConsole[31m.[mWhite[31m,[m 
				 [31m([m[01;30mCommand_Line[m[31m([mB_inf[31m..[mB_sup[31m))[m
				[31m);[m
			      Ansi_Windows[31m.[m[01;30mMove_Cursor_To[m[31m([mW2[31m,[m GnuShell_Prompt_Line [31m+[m [31m([mLine_Window[31m)[m [31m+[m [35m1[m [31m+[m [31m([mLocal_Line_Count [31m-[m[35m1[m[31m),[m [31m([mB_Sup[31m-[mB_Inf[31m)+[m[35m3[m[31m);[m
			      Local_Line_Count [31m:=[m Local_Line_Count [31m+[m [35m1[m[31m;[m

			   [01;34mend[m [01;34mif[m[31m;[m                                       
			[01;34mend[m[31m;[m
			
			[01;34mexit[m [01;34mwhen[m Local_Line_Count [31m>[m [31m([mLines_Max[31m-[m[35m1[m[31m);[m
			
		     [01;34mend[m [01;34mloop[m[31m;[m
		  [01;34melse[m

		     Ansi_Windows[31m.[m[01;30mDraw[m [31m([mW2[31m,[m GnuShell_Prompt_Line[31m,[m [35m2[m[31m,[m M[31m.[mAnsi[31m.[mConsole[31m.[mWhite[31m,[m [31m"# "[m[31m);[m
		     Ansi_Windows[31m.[m[01;30mMove_Cursor_To[m[31m([mW2[31m,[m GnuShell_Prompt_Line[31m,[m [35m4[m[31m);[m

		  [01;34mend[m [01;34mif[m[31m;[m                              
	       [01;34mend[m[31m;[m                        
	    [01;34melse[m

	       Ansi_Windows[31m.[m[01;30mDraw[m [31m([mW2[31m,[m GnuShell_Prompt_Line[31m,[m [35m2[m[31m,[m M[31m.[mAnsi[31m.[mConsole[31m.[mWhite[31m,[m [31m"# "[m[31m);[m
	       Ansi_Windows[31m.[m[01;30mMove_Cursor_To[m[31m([mW2[31m,[m GnuShell_Prompt_Line[31m,[m [35m4[m[31m);[m
	       
	    [01;34mend[m [01;34mif[m[31m;[m			   
	    
	    [01;30mMode_Info_Status[m[31m([mW1[31m,[m Null_Item[31m);[m

	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mloop[m
	    [01;34mselect[m
	       
	       [01;34maccept[m Halt[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  
	 	  [31m--W_Io.Put_Line("World");[m
	 	  [31m--Text_Io.Put_Line("Greetings " & Getenv("USER").all & "!");[m
		  
		  

		  
		  [01;30mMode_Initialization[m[31m([mW10[31m,[m Current_Mode[31m,[m On_Esc[31m,[m Message [31m=>[m [31m""[m[31m);[m

		  Ansi_Windows[31m.[m[01;30mDraw[m [31m([mW2[31m,[m GnuShell_Prompt_Line[31m,[m [35m2[m[31m,[m M[31m.[mAnsi[31m.[mConsole[31m.[mWhite[31m,[m [31m"# "[m[31m);[m
		  Ansi_Windows[31m.[m[01;30mMove_Cursor_To[m[31m([mW2[31m,[m GnuShell_Prompt_Line[31m,[m [35m4[m[31m);[m

		  
	       [01;34mend[m Wake_Up[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m
      [31m--W_Io.Put_Line("Bank process halted");[m
   [01;34mend[m Shell_Process[31m;[m

   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   [01;34msubtype[m WOPR_Menu_Range [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[m[35m13[m[31m;[m
   
   [01;34mtype[m WOPR_Menu_List [01;34mis[m [01;34marray[m [31m([mWOPR_Menu_Range[31m)[m [01;34mof[m Os_Lib[31m.[mString_Access[31m;[m
   
   WOPR_Menu [31m:[m WOPR_Menu_List [31m:=[m 
     
     [31m([m[01;34mnew[m [32mString[m ' [31m([m[31m"Administration"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"Add product"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"Del product"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"Set product"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"Web search"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"Web index"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"Procuct server start"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"Product server stop"[m[31m),[m      
      [01;34mnew[m [32mString[m ' [31m([m[31m"Upgrade version"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"Make all"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"Make clean"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"Make arch"[m[31m),[m
      [01;34mnew[m [32mString[m ' [31m([m[31m"Restart"[m[31m));[m
   
   
   
   
   
   
   
   [01;34mtask[m [01;34mtype[m [01;30mWeb_Index_Type[m [31m([mWindow [31m:[m [01;34maccess[m Ansi_Windows[31m.[mWindow_Type[31m;[m Search_Result [31m:[m [01;34maccess[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m;[m Pattern [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m Errno [31m:[m [01;34maccess[m [32mInteger[m[31m)[m [01;34mis[m	
     [01;34mentry[m [01;30mId[m[31m([mT_Id [31m:[m [01;34mout[m Task_Id[31m);[m      
     [01;34mentry[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m);[m
     [01;34mentry[m Suspend[31m;[m
     [01;34mentry[m Start[31m;[m
     [01;34mentry[m Halt[31m;[m
  [01;34mend[m Web_Index_Type[31m;[m
   
  [01;34mtask[m [01;34mbody[m Web_Index_Type [01;34mis[m
      
     End_Of_Task[31m,[m Done[31m,[m Suspended [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
     Current_Address [31m:[m OS_Lib[31m.[mString_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"localhost"[m[31m);[m
     Current_Path [31m:[m OS_Lib[31m.[mString_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
     Buffer_Path [31m:[m OS_Lib[31m.[mString_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
      
     protocol [31m:[m OS_Lib[31m.[mString_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"http://"[m[31m);[m
     
     Current_Document_Name [31m:[m Wide_String_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m[31m);[m
     Regular_Exp [31m:[m Regexp[31m.[mRegexp[31m;[m
     Sub_Regular_Exp [31m:[m Regexp[31m.[mRegexp[31m;[m
      
     [31m-- HTTP 1.1.[m
     Code [31m:[m Code_Type[31m;[m
      
      
     Timeouts [31m:[m [32mDuration[m [31m:=[m [35m10.0[m[31m;[m
      
     IP_Address [31m:[m Sockets[31m.[mInet_Addr_Type[31m;[m
      
     Sub_Top [31m:[m Natural [31m:=[m Pattern'First[31m;[m
     Sub_Index [31m:[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m.[m[01;34mall[m[31m,[m [31m"*"[m[31m,[m Sub_Top [31m+[m [35m1[m[31m);[m

  File_set [31m:[m [01;30mWide_string_set[m[31m([m[35m4096[m[31m);[m
  file_last [31m:[m natural [31m:=[m [35m0[m[31m;[m
      web_file [31m:[m w_io[31m.[mfile_type[31m;[m


      Matched_Error [31m:[m Regexp[31m.[mRegexp [31m:=[m Regexp[31m.[m[01;30mCompile[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[31m"*CONNECTION_ERROR*"[m[31m),[m True[31m,[m True[31m);[m
  [01;34mbegin[m	 
     [01;34maccept[m [01;30mId[m[31m([mT_Id [31m:[m [01;34mout[m Task_Id[31m)[m [01;34mdo[m
  	 T_Id [31m:=[m Current_Task[31m;[m
     [01;34mend[m Id[31m;[m
  First_Loop [31m:[m
     [01;34mloop[m
	[01;34mbegin[m
	   [01;34mdeclare[m
	      Host_Entry  [31m:[m [01;34mconstant[m Sockets[31m.[mHost_Entry_Type  [31m:=[m Sockets[31m.[m[01;30mGet_Host_By_Name[m[31m([mCurrent_Address[31m.[m[01;34mall[m[31m);[m
	   [01;34mbegin[m	       
	      
	      Regular_Exp [31m:=[m Regexp[31m.[m[01;30mCompile[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mPattern[31m.[m[01;34mall[m[31m),[m True[31m,[m True[31m);[m
	      Adam[31m.[mResults[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mPattern[31m);[m
	      Search_Result[31m.[mPattern [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m(([mPattern[31m.[m[01;34mall[m[31m));[m
	      
	      IP_Address [31m:=[m Sockets[31m.[m[01;30mAddresses[m[31m([mHost_Entry[31m);[m
	      
	      Sub_Regular_Exp [31m:=[m Regexp[31m.[m[01;30mCompile[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mPattern[m[31m([mSub_Top[31m..[mSub_Index[31m)),[m True[31m,[m True[31m);[m
	      
	      Web[31m.[m[01;30mWeb_Search[m[31m([mCurrent_Address[31m.[m[01;34mall[m[31m,[m Protocol[31m.[m[01;34mall[m [31m&[m Gnat[31m.[mSockets[31m.[m[01;30mImage[m[31m([mIp_Address[31m)[m [31m&[m Current_Path[31m.[m[01;34mAll[m[31m,[m Timeouts[31m,[m Search_Result[31m.[m[01;34mall[m[31m);[m
	      
	      Os_Lib[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mAddress[31m);[m
	      Search_Result[31m.[mAddress [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProtocol[31m.[m[01;34mall[m [31m&[m Current_Address[31m.[m[01;34mall[m [31m&[m Current_Path[31m.[m[01;34mall[m[31m);[m
	      [01;30mWide_Free[m[31m([mCurrent_Document_Name[31m);[m
	      Current_Document_Name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mSearch_Result[31m.[mDoc_Name[31m.[m[01;34mall[m[31m);[m         
	      [31m--Ansi_Windows.Draw_Window (Window.all);[m
	      [31m--Ansi_Windows.Draw (Window.all, 1, 2, White, "Searching for : " & (Pattern.all));[m
	      [31m--Ansi_Windows.Draw (Window.all, 2, 2, White, "look at : " & [m
	      [31m--			 Handling.To_Wide_String(Search_Result.Address.all));[m
	      [31m--  Ansi_Windows.Draw (Window.all, 3, 2, White, "Document name : " & (Current_Document_Name.all));[m
	      
	      [01;34mfor[m Line_Index [01;34min[m Search_Result[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
		 [01;34mdeclare[m
		    
		    Line [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Handling[31m.[m[01;30mTo_String[m[31m(-[mSearch_Result[31m.[m[01;30mFile_Content[m[31m([mLine_Index[31m));[m		     
		 [01;34mbegin[m
		    
		    [01;34mif[m Regexp[31m.[m[01;30mMatch[m[31m([mLine[31m,[m Regular_Exp[31m)[m [01;34mthen[m
		       Ada[31m.[mText_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		       Errno[31m.[m[01;34mall[m [31m:=[m [35m0[m[31m;[m
		       Done [31m:=[m True[31m;[m
		       [01;34mexit[m First_Loop[31m;[m
		    [01;34melsif[m Regexp[31m.[m[01;30mMatch[m[31m([mLine[31m,[m Sub_Regular_Exp[31m)[m [01;34mthen[m
		       Ada[31m.[mText_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
		       Errno[31m.[m[01;34mall[m [31m:=[m [35m0[m[31m;[m	
		       Adam[31m.[mResults[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mPattern[31m);[m
		       Search_Result[31m.[mPattern [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mPattern[m[31m([mSub_Top[31m..[mSub_Index[31m));[m
		       Done [31m:=[m True[31m;[m
		       [01;34mdeclare[m
			  Top_Href [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"href="[m[31m)[m [31m+[m [35m6[m[31m;[m
			  Href_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m""""[m[31m,[m Top_Href[31m+[m[35m1[m[31m)[m [31m-[m [35m1[m[31m;[m
			  Protocol_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"http"[m[31m,[m Top_Href[31m);[m
			  
		       [01;34mbegin[m			   
			  [01;34mif[m Top_Href [31m>[m [35m6[m  [01;34mthen[m
			     [01;34mif[m Protocol_Index [31m/=[m [35m0[m [01;34mthen[m
				Os_Lib[31m.[m[01;30mFree[m[31m([mprotocol[31m);[m				 
				Protocol [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mProtocol_Index[31m..[mFixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m":"[m[31m,[m Protocol_Index[31m))[m [31m&[m [31m"//"[m[31m);[m
				[01;34mdeclare[m
				   Top_Domain    [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"//"[m[31m,[m Protocol_Index [31m+[m [35m1[m[31m)[m [31m+[m [35m2[m[31m;[m
				   Domain_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"/"[m[31m,[m Top_domain [31m+[m [35m1[m[31m)[m [31m-[m [35m1[m[31m;[m
				[01;34mbegin[m
				   [01;34mif[m Top_Domain [31m>[m [35m2[m [01;34mand[m [01;34mthen[m [31m([mDomain_Index [31m>[m [35m0[m [01;34mand[m Domain_Index [31m<=[m Href_Index[31m)[m [01;34mthen[m
				      Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Address[31m);[m
				      Current_Address [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_Domain [31m..[m Domain_Index[31m));[m
				      [01;34mif[m Domain_Index [31m+[m [35m1[m [31m<[m Href_Index [01;34mthen[m
					 Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
					 Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mDomain_Index [31m+[m [35m1[m [31m..[m Href_index[31m));[m
				      [01;34mend[m [01;34mif[m[31m;[m
				      Done [31m:=[m False[31m;[m
				   [01;34melsif[m Top_Domain [31m>[m [35m2[m [01;34mthen[m
				      Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Address[31m);[m
				      Current_Address [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_domain [31m..[m Href_index[31m));[m
				      Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
				      Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
				      Done [31m:=[m False[31m;[m
				      
				   [01;34melse[m
				      Done [31m:=[m True[31m;[m
				   [01;34mend[m [01;34mif[m[31m;[m
				   [01;34mexit[m First_Loop[31m;[m
				[01;34mend[m[31m;[m
			     [01;34melse[m
				
				Os_Lib[31m.[m[01;30mFree[m[31m([mBuffer_Path[31m);[m
				[31m--Buffer_Path := new String ' (Current_Address.all);[m
				Buffer_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_Href[31m..[mHref_Index[31m));[m
				[31m--Buffer_Path := new String ' (Current_Path.all & '/' & Line(Top_Href..Href_Index));[m
				[31m--Buffer_Path := new String ' (Current_Path.all);[m
				[31m--Buffer_Path := new String ' (Protocol.all & Line(Top_Href..Href_Index));[m
				Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
				Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([mBuffer_Path[31m.[m[01;34mall[m[31m);[m
				Done [31m:=[m True[31m;[m
			     [01;34mend[m [01;34mif[m[31m;[m
			     [01;34mexit[m[31m;[m
			  [01;34melse[m
			     Done [31m:=[m True[31m;[m
			     [01;34mexit[m First_Loop[31m;[m
			  [01;34mend[m [01;34mif[m[31m;[m
		       [01;34mend[m[31m;[m
		    [01;34mend[m [01;34mif[m[31m;[m
		 [01;34mend[m[31m;[m
	      [01;34mend[m [01;34mloop[m[31m;[m	    
	      Sub_Top [31m:=[m Sub_Index[31m;[m
	      Sub_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m.[m[01;34mall[m[31m,[m [31m"*"[m[31m,[m Sub_Top [31m+[m [35m1[m[31m);[m	       
	      [01;34mif[m Sub_Index [31m<=[m Sub_Top [01;34mthen[m		  
		 Done [31m:=[m false[31m;[m
	      [01;34mend[m [01;34mif[m[31m;[m	       
	      [01;34mexit[m [01;34mwhen[m Sub_Index [31m<=[m Sub_Top[31m;[m
	      
	      
	   [01;34mexception[m
	      [01;34mwhen[m [01;34mothers[m [31m=>[m
		 [01;34mexit[m[31m;[m
		 
	   [01;34mend[m[31m;[m
	[01;34mexception[m
	   [01;34mwhen[m [01;34mothers[m [31m=>[m
	      [01;34mexit[m[31m;[m
	[01;34mend[m[31m;[m
     [01;34mend[m [01;34mloop[m First_Loop[31m;[m
     [01;34mif[m done [01;34mthen[m

	[01;30mload_file[m[31m([mfile_set[31m,[m [31m"/var/www/html/repository/web_index.html"[m[31m,[m file_last[31m);[m

	[01;34mfor[m i [01;34min[m [01;34mreverse[m file_last[31m-[m[35m1[m[31m..[mfile_last [01;34mloop[m
	   file_set[31m.[m[01;30mlines[m[31m([mi[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mwide_string[m ' [31m([mfile_set[31m.[m[01;30mlines[m[31m([mi[31m).[m[01;34mall[m[31m);[m
	[01;34mend[m [01;34mloop[m[31m;[m

	file_set[31m.[m[01;30mlines[m[31m([mfile_last[31m-[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mwide_string[m ' [31m([m[31m"<a href="""[m [31m&[m handling[31m.[m[01;30mto_wide_string[m[31m([mSearch_Result[31m.[maddress[31m.[m[01;34mall[m[31m)[m [31m&[m [31m""">"[m [31m&[m handling[31m.[m[01;30mto_wide_string[m[31m([mSearch_Result[31m.[maddress[31m.[m[01;34mall[m[31m)[m [31m&[m [31m"</a><br>"[m[31m);[m
	file_set[31m.[mLine_last [31m:=[m file_set[31m.[mLine_Last [31m+[m [35m1[m[31m;[m
	w_io[31m.[m[01;30mcreate[m[31m([mweb_file[31m,[m w_io[31m.[mout_file[31m,[m [31m"/var/www/html/repository/web_index.html"[m[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m

	[01;34mfor[m i [01;34min[m [35m1[m[31m..[mfile_set[31m.[mline_last [01;34mloop[m
	   w_io[31m.[m[01;30mput_line[m[31m([mweb_file[31m,[m file_set[31m.[m[01;30mlines[m[31m([mi[31m).[m[01;34mall[m[31m);[m
	[01;34mend[m [01;34mloop[m[31m;[m

	w_io[31m.[m[01;30mclose[m[31m([mweb_file[31m);[m
	[01;30mset_free[m[31m([mfile_set[31m);[m
	done [31m:=[m false[31m;[m
	file_last [31m:=[m [35m0[m[31m;[m

     [01;34mend[m [01;34mif[m[31m;[m
     
     [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
     [01;34mloop[m
  	 [01;34mselect[m
  	    [01;34maccept[m Halt[31m;[m
  	    End_Of_Task [31m:=[m True[31m;[m
  	 [01;34mor[m
  	    [01;34maccept[m Start[31m;[m
  	    Suspended [31m:=[m False[31m;[m
	    
  	    [01;34mexit[m[31m;[m
  	 [01;34mor[m
  	    [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
  	       Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
  	    [01;34mend[m Send[31m;[m	    
	    
  	 [01;34mend[m [01;34mselect[m[31m;[m
     [01;34mend[m [01;34mloop[m[31m;[m
     Code_Random[31m.[mReset[31m;[m
     Top_Level_Rand[31m.[m[01;30mReset[m[31m([mTop_Level_Gen[31m);[m
     Top_Loop [31m:[m
     [01;34mloop[m
	[01;34mbegin[m
       Main_Search [31m:[m 
	   [01;34mwhile[m [01;34mnot[m Done [01;34mloop[m	    	    	    	    		    	    
	      protocol [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"https://"[m[31m);[m
	      Search_Result[31m.[mAddress [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProtocol[31m.[m[01;34mall[m [31m&[m Current_Address[31m.[m[01;34mall[m [31m&[m Current_Path[31m.[m[01;34mall[m[31m);[m
	      [01;34mbegin[m
		 [01;34mloop[m
		    [01;34mselect[m
		       [01;34maccept[m Halt[31m;[m
		       End_Of_Task [31m:=[m True[31m;[m
		       [01;34mexit[m Top_Loop[31m;[m		       
		    [01;34mor[m
		       [01;34maccept[m Start[31m;[m
		       Suspended [31m:=[m False[31m;[m
		       
		       [01;34mexit[m[31m;[m
		    [01;34mor[m
		       [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
			  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
			  Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
		       [01;34mend[m Send[31m;[m	    

		    [01;34mend[m [01;34mselect[m[31m;[m
		 [01;34mend[m [01;34mloop[m[31m;[m
		 [01;34mloop[m
		    [01;34mselect[m
		       [01;34maccept[m Halt[31m;[m
		       End_Of_Task [31m:=[m True[31m;[m
		       [01;34mexit[m Top_Loop[31m;[m		  
		    [01;34mor[m
		       [01;34maccept[m Start[31m;[m
		       Suspended [31m:=[m False[31m;[m
		       
		       [01;34mexit[m[31m;[m
		    [01;34mor[m
		       [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
			  [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
			  Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
		       [01;34mend[m Send[31m;[m	    

		    [01;34mend[m [01;34mselect[m[31m;[m
		 [01;34mend[m [01;34mloop[m[31m;[m
		 
		 
		 
		 
	     Second_Loop [31m:[m
		 [01;34mloop[m		  		  
		    [01;34mbegin[m
		       Search_Result[31m.[mAddress [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProtocol[31m.[m[01;34mall[m [31m&[m Current_Address[31m.[m[01;34mall[m [31m&[m Current_Path[31m.[m[01;34mall[m[31m);[m
		       [01;34mloop[m
			  [01;34mselect[m
			     [01;34maccept[m Halt[31m;[m
			     End_Of_Task [31m:=[m True[31m;[m
			     [01;34mexit[m Top_Loop[31m;[m		  
			  [01;34mor[m
			     [01;34maccept[m Start[31m;[m
			     Suspended [31m:=[m False[31m;[m
			     
			     [01;34mexit[m[31m;[m
			  [01;34mor[m
			     [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
				Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
			     [01;34mend[m Send[31m;[m	    

			  [01;34mend[m [01;34mselect[m[31m;[m
		       [01;34mend[m [01;34mloop[m[31m;[m
		       
		       [01;34mloop[m
			  [01;34mselect[m
			     [01;34maccept[m Halt[31m;[m
			     End_Of_Task [31m:=[m True[31m;[m
			     [01;34mexit[m Top_Loop[31m;[m		  
			  [01;34mor[m
			     [01;34maccept[m Start[31m;[m
			     Suspended [31m:=[m False[31m;[m
			     
			     [01;34mexit[m[31m;[m
			  [01;34mor[m
			     [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
				Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
			     [01;34mend[m Send[31m;[m	    

			  [01;34mend[m [01;34mselect[m[31m;[m
		       [01;34mend[m [01;34mloop[m[31m;[m
		       [01;34mdelay[m [35m0.05[m[31m;[m
		       [01;34mdeclare[m
			  
			  Host_Entry  [31m:[m [01;34mconstant[m Sockets[31m.[mHost_Entry_Type  [31m:=[m Sockets[31m.[m[01;30mGet_Host_By_Name[m[31m([mCurrent_Address[31m.[m[01;34mall[m[31m);[m
		       [01;34mbegin[m Domain [31m:[m
			   
			   [01;34mfor[m I [01;34min[m [35m1[m[31m..[mSockets[31m.[m[01;30mAddresses_Length[m[31m([mHost_Entry[31m)[m [01;34mloop[m
			      
			      [01;34mbegin[m
				 
				 IP_Address [31m:=[m Sockets[31m.[m[01;30mAddresses[m[31m([mHost_Entry[31m,[m I[31m);[m
				 [31m-------------------[m
				 [31m-- Random timeouts :[m
				 Timeouts [31m:=[m [35m10.0[m[31m;[m
				 Adam[31m.[mResults[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mFile_Content[31m);[m
				 Web[31m.[m[01;30mWeb_Search[m[31m([mCurrent_Address[31m.[m[01;34mall[m[31m,[m Protocol[31m.[m[01;34mall[m [31m&[m Gnat[31m.[mSockets[31m.[m[01;30mImage[m[31m([mIp_Address[31m)[m  [31m&[m Current_Path[31m.[m[01;34mall[m[31m,[m Timeouts[31m,[m Search_Result[31m.[m[01;34mall[m[31m);[m
				 OS_Lib[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mAddress[31m);[m
				 [01;30mWide_Free[m[31m([mCurrent_Document_Name[31m);[m
				 
				 Search_Result[31m.[mAddress [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProtocol[31m.[m[01;34mall[m [31m&[m Current_Address[31m.[m[01;34mall[m [31m&[m Current_Path[31m.[m[01;34mall[m[31m);[m
				 Current_Document_Name [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mSearch_Result[31m.[mDoc_Name[31m.[m[01;34mall[m[31m);[m
				 
				 [31m--  			 Put(Ansi_Tty_Control.Clear_Screen);[m
				 [31m--  			 Ansi_Windows.Draw_Window (Window.all);[m
				 [31m--  			 Ansi_Windows.Draw (Window.all, 1, 2, White, "Searching for : " & (Pattern.all));[m
				 [31m--  			 Ansi_Windows.Draw (Window.all, 2, 2, White, "look at : " & [m
				 [31m--  					      Handling.To_Wide_String(Search_Result.Address.all));[m
				 [31m--  			 Ansi_Windows.Draw (Window.all, 3, 2, White, "Document name : " & (Current_Document_Name.all));[m
				 [01;34mfor[m Line_Index [01;34min[m Search_Result[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
				    [01;34mdeclare[m
				       
				       Line [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Handling[31m.[m[01;30mTo_String[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSearch_Result[31m.[m[01;30mFile_Content[m[31m([mLine_Index[31m)));[m		     
				    [01;34mbegin[m
				       [01;34mif[m Regexp[31m.[m[01;30mMatch[m[31m([mLine[31m,[m Matched_Error[31m)[m [01;34mthen[m
					  [01;34mraise[m Aws[31m.[mClient[31m.[mConnection_Error[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mend[m[31m;[m
				 [01;34mend[m [01;34mloop[m[31m;[m
				 
				 [01;34mfor[m Line_Index [01;34min[m Search_Result[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
				    
				    [01;34mdeclare[m
				       
				       Line [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Handling[31m.[m[01;30mTo_String[m[31m(-[mSearch_Result[31m.[m[01;30mFile_Content[m[31m([mLine_Index[31m));[m
				       
				    [01;34mbegin[m	 
				       
				       [01;34mif[m Regexp[31m.[m[01;30mMatch[m[31m([mLine[31m,[m Regular_Exp[31m)[m [01;34mthen[m
					  Ada[31m.[mText_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
					  Errno[31m.[m[01;34mall[m [31m:=[m [35m0[m[31m;[m
					  Done [31m:=[m True[31m;[m
					  
					  [31m-----------------------------[m
					  [31m--                         --[m

					  [01;30mload_file[m[31m([mfile_set[31m,[m [31m"/var/www/html/repository/web_index.html"[m[31m,[m file_last[31m);[m

					  [01;34mif[m File_Last [31m>[m [35m0[m [01;34mthen[m
					     [01;34mfor[m i [01;34min[m [01;34mreverse[m file_last[31m-[m[35m1[m[31m..[mfile_last [01;34mloop[m
						file_set[31m.[m[01;30mlines[m[31m([mi[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mwide_string[m ' [31m([mfile_set[31m.[m[01;30mlines[m[31m([mi[31m).[m[01;34mall[m[31m);[m
					     [01;34mend[m [01;34mloop[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m

					  file_set[31m.[m[01;30mlines[m[31m([mfile_last[31m-[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mwide_string[m ' [31m([m[31m"<a href="""[m [31m&[m handling[31m.[m[01;30mto_wide_string[m[31m([mSearch_Result[31m.[maddress[31m.[m[01;34mall[m[31m)[m [31m&[m [31m""">"[m [31m&[m handling[31m.[m[01;30mto_wide_string[m[31m([mSearch_Result[31m.[maddress[31m.[m[01;34mall[m[31m)[m [31m&[m [31m"</a><br>"[m[31m);[m
					  file_set[31m.[mLine_last [31m:=[m file_set[31m.[mLine_Last [31m+[m [35m1[m[31m;[m

					  w_io[31m.[m[01;30mcreate[m[31m([mweb_file[31m,[m w_io[31m.[mout_file[31m,[m [31m"/var/www/html/repository/web_index.html"[m[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m

					  [01;34mfor[m i [01;34min[m [35m1[m[31m..[mfile_set[31m.[mline_last [01;34mloop[m
					     w_io[31m.[m[01;30mput_line[m[31m([mweb_file[31m,[m file_set[31m.[m[01;30mlines[m[31m([mi[31m).[m[01;34mall[m[31m);[m
					  [01;34mend[m [01;34mloop[m[31m;[m

					  w_io[31m.[m[01;30mclose[m[31m([mweb_file[31m);[m
					  [01;30mset_free[m[31m([mfile_set[31m);[m
					  done [31m:=[m false[31m;[m
					  file_last [31m:=[m [35m0[m[31m;[m
					  [31m--                         --[m
					  [31m-----------------------------[m
					  
					  
					  [01;34mexit[m domain[31m;[m
				       [01;34melsif[m Regexp[31m.[m[01;30mMatch[m[31m([mLine[31m,[m Sub_Regular_Exp[31m)[m [01;34mthen[m
					  Ada[31m.[mText_Io[31m.[m[01;30mPut[m[31m([m[32mCharacter[m'[01;30mVal[m[31m([m[35m7[m[31m));[m
					  Errno[31m.[m[01;34mall[m [31m:=[m [35m0[m[31m;[m
					  Done [31m:=[m True[31m;[m
					  
					  
					  
					  [31m-----------------------------[m
					  [31m--                         --[m

					  [01;30mload_file[m[31m([mfile_set[31m,[m [31m"/var/www/html/repository/web_index.html"[m[31m,[m file_last[31m);[m

					  [01;34mif[m File_Last [31m>[m [35m0[m [01;34mthen[m
					     [01;34mfor[m i [01;34min[m [01;34mreverse[m file_last[31m-[m[35m1[m[31m..[mfile_last [01;34mloop[m
						file_set[31m.[m[01;30mlines[m[31m([mi[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mwide_string[m ' [31m([mfile_set[31m.[m[01;30mlines[m[31m([mi[31m).[m[01;34mall[m[31m);[m
					     [01;34mend[m [01;34mloop[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m

					  file_set[31m.[m[01;30mlines[m[31m([mfile_last[31m-[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mwide_string[m ' [31m([m[31m"<a href="""[m [31m&[m handling[31m.[m[01;30mto_wide_string[m[31m([mSearch_Result[31m.[maddress[31m.[m[01;34mall[m[31m)[m [31m&[m [31m""">"[m [31m&[m handling[31m.[m[01;30mto_wide_string[m[31m([mSearch_Result[31m.[maddress[31m.[m[01;34mall[m[31m)[m [31m&[m [31m"</a><br>"[m[31m);[m
					  file_set[31m.[mLine_last [31m:=[m file_set[31m.[mLine_Last [31m+[m [35m1[m[31m;[m

					  w_io[31m.[m[01;30mcreate[m[31m([mweb_file[31m,[m w_io[31m.[mout_file[31m,[m [31m"/var/www/html/repository/web_index.html"[m[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m

					  [01;34mfor[m i [01;34min[m [35m1[m[31m..[mfile_set[31m.[mline_last [01;34mloop[m
					     w_io[31m.[m[01;30mput_line[m[31m([mweb_file[31m,[m file_set[31m.[m[01;30mlines[m[31m([mi[31m).[m[01;34mall[m[31m);[m
					  [01;34mend[m [01;34mloop[m[31m;[m

					  w_io[31m.[m[01;30mclose[m[31m([mweb_file[31m);[m
					  [01;30mset_free[m[31m([mfile_set[31m);[m
					  done [31m:=[m false[31m;[m
					  file_last [31m:=[m [35m0[m[31m;[m
					  [31m--                         --[m
					  [31m-----------------------------[m

					  
					  
					  Adam[31m.[mResults[31m.[m[01;30mFree[m[31m([mSearch_Result[31m.[mPattern[31m);[m
					  Search_Result[31m.[mPattern [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mPattern[m[31m([mSub_Top[31m..[mSub_Index[31m));[m
					  [01;34mdeclare[m
					     Top_Href [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"href="[m[31m)[m [31m+[m [35m6[m[31m;[m
					     Href_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m""""[m[31m,[m Top_Href [31m+[m [35m1[m[31m)[m [31m-[m [35m1[m[31m;[m
					     Protocol_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"http"[m[31m,[m Top_Href[31m);[m					
					  [01;34mbegin[m
					     
					     [01;34mif[m Top_Href [31m>[m [35m6[m [01;34mthen[m
						
						[01;34mif[m Protocol_Index [31m/=[m [35m0[m [01;34mthen[m
						   
						   Os_Lib[31m.[m[01;30mFree[m[31m([mprotocol[31m);[m
						   Protocol [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mProtocol_Index[31m..[mFixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m":"[m[31m,[m Protocol_Index[31m))[m [31m&[m [31m"//"[m[31m);[m
						   
						   [01;34mdeclare[m
						      
						      Top_Domain    [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"//"[m[31m,[m Protocol_Index [31m+[m [35m1[m[31m)[m [31m+[m [35m2[m[31m;[m
						      Domain_Index  [31m:[m [01;34mconstant[m Natural [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"/"[m[31m,[m Top_domain [31m+[m [35m1[m[31m)[m [31m-[m [35m1[m[31m;[m
						   [01;34mbegin[m
						      
						      [01;34mif[m Top_Domain [31m>[m [35m2[m [01;34mand[m [01;34mthen[m [31m([mDomain_Index [31m>[m [35m0[m [01;34mand[m Domain_Index [31m<=[m Href_Index[31m)[m [01;34mthen[m
							 
							 Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Address[31m);[m
							 Current_Address [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_Domain [31m..[m Domain_Index[31m));[m
							 
							 [01;34mif[m Domain_Index [31m+[m [35m1[m [31m<[m Href_Index [01;34mthen[m
							    Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
							    Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mDomain_Index [31m+[m [35m1[m [31m..[m Href_index[31m));[m
							 [01;34mend[m [01;34mif[m[31m;[m
							 Done [31m:=[m False[31m;[m
						      [01;34melsif[m Top_Domain [31m>[m [35m2[m [01;34mthen[m
							 
							 Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Address[31m);[m
							 Current_Address [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_domain [31m..[m Href_index[31m));[m
							 Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
							 Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
							 Done [31m:=[m False[31m;[m
						      [01;34melse[m
							 Done [31m:=[m false[31m;[m
							 [31m--  Sub_Top := Sub_Index;[m
							 [31m--  Sub_Index := Wide_Fixed.Index(Pattern.all, "*", Sub_Top + 1);	       [m
							 [31m--  exit when Sub_Index <= Sub_Top;[m
							 [01;34mexit[m Second_Loop[31m;[m
						      [01;34mend[m [01;34mif[m[31m;[m
						   [01;34mend[m[31m;[m
						   
						[01;34melse[m
						   
						   Os_Lib[31m.[m[01;30mFree[m[31m([mBuffer_Path[31m);[m
						   [31m--Buffer_Path := new String ' (Current_Address.all);[m
						   Buffer_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mLine[m[31m([mTop_Href[31m..[mHref_Index[31m));[m
						   [31m--Buffer_Path := new String ' (Current_Path.all & '/' & Line(Top_Href..Href_Index));[m
						   [31m--Buffer_Path := new String ' (Current_Path.all);[m
						   [31m--Buffer_Path := new String ' (Protocol.all & Line(Top_Href..Href_Index));[m
						   Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
						   Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([mBuffer_Path[31m.[m[01;34mall[m[31m);[m
						   Done [31m:=[m True[31m;[m
						   
						[01;34mend[m [01;34mif[m[31m;[m
						[31m--  Sub_Top := Sub_Index;[m
						[31m--  Sub_Index := Wide_Fixed.Index(Pattern.all, "*", Sub_Top + 1);	       [m
						[31m--  exit when Sub_Index <= Sub_Top;[m
						[01;34mexit[m domain[31m;[m
					     [01;34melse[m
						Done [31m:=[m True[31m;[m
						[01;34mloop[m
						   [01;34mselect[m
						      [01;34maccept[m Halt[31m;[m
						      End_Of_Task [31m:=[m True[31m;[m
						   [01;34mor[m
						      [01;34maccept[m Start[31m;[m
						      Suspended [31m:=[m False[31m;[m
						      
						      [01;34mexit[m[31m;[m
						   [01;34mor[m
						      [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
							 Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
						      [01;34mend[m Send[31m;[m	    
						   [01;34mor[m
						      [01;34mdelay[m [35m0.05[m[31m;[m
						   [01;34mend[m [01;34mselect[m[31m;[m
						[01;34mend[m [01;34mloop[m[31m;[m
						[31m--  Sub_Top := Sub_Index;[m
						[31m--  Sub_Index := Wide_Fixed.Index(Pattern.all, "*", Sub_Top + 1);	       [m
						[31m--  exit when Sub_Index <= Sub_Top;[m
						[01;34mexit[m Second_loop[31m;[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m[31m;[m
				       [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mend[m[31m;[m
				 [01;34mend[m [01;34mloop[m[31m;[m
				 [01;34mloop[m
				    [01;34mselect[m
				       [01;34maccept[m Halt[31m;[m
				       [01;34mexit[m Top_Loop[31m;[m
				    [01;34mor[m
				       [01;34maccept[m Suspend[31m;[m			       
				       Suspended [31m:=[m True[31m;[m	       		     
				       [31m--Ansi_Windows.Clear_Screen;[m
				       [01;34mexit[m Second_loop[31m;[m
				    [01;34mor[m
				       [01;34maccept[m Start[31m;[m
				       Suspended [31m:=[m False[31m;[m
				       
				       [01;34mexit[m[31m;[m
				    [01;34mor[m
				       [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
					  Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
				       [01;34mend[m Send[31m;[m	    
				       
				    [01;34mor[m			    
				       [01;34mdelay[m [35m0.05[m[31m;[m
				    [01;34mend[m [01;34mselect[m[31m;[m
				 [01;34mend[m [01;34mloop[m[31m;[m
			      [01;34mexception[m
				 
				 [01;34mwhen[m Aws[31m.[mClient[31m.[mConnection_Error [31m=>[m
				    protocol [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"http://"[m[31m);[m
				    Search_Result[31m.[mAddress [31m:=[m [01;34mnew[m [32mString[m ' [31m([mProtocol[31m.[m[01;34mall[m [31m&[m Current_Address[31m.[m[01;34mall[m [31m&[m Current_Path[31m.[m[01;34mall[m[31m);[m
				    [01;34mexit[m[31m;[m
				 [01;34mwhen[m Aws[31m.[mClient[31m.[mProtocol_Error [31m=>[m
				    [01;34mnull[m[31m;[m
				 [01;34mwhen[m [01;34mothers[m [31m=>[m
				    [01;34mnull[m[31m;[m
			      [01;34mend[m[31m;[m
			   [01;34mend[m [01;34mloop[m Domain[31m;[m		   
			   [01;34mloop[m
			      [01;34mselect[m
				 [01;34maccept[m Suspend[31m;[m
			      [01;34mor[m
				 [01;34maccept[m Start[31m;[m	       	    
				 [01;34mexit[m[31m;[m
			      [01;34mor[m
				 [01;34maccept[m Halt[31m;[m
				 
				 [01;34mexit[m Main_Search[31m;[m
				 
			      [01;34mor[m
				 [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
				    [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
				    Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
				 [01;34mend[m Send[31m;[m	    
			      [01;34mor[m
				 [01;34mdelay[m [35m0.05[m[31m;[m
			      [01;34mend[m [01;34mselect[m[31m;[m
			   [01;34mend[m [01;34mloop[m[31m;[m
			   [01;34mselect[m
			      [01;34maccept[m Halt[31m;[m
			      [01;34mexit[m Top_Loop[31m;[m
			   [01;34mor[m
			      [01;34maccept[m Suspend[31m;[m
			      [31m--Ansi_Windows.Clear_Screen;[m
			      Suspended [31m:=[m True[31m;[m	       		     
			   [01;34mor[m
			      [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
				 [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
				 Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
			      [01;34mend[m Send[31m;[m	    
			      
			   [01;34mor[m
			      [01;34mdelay[m [35m0.05[m[31m;[m
			   [01;34mend[m [01;34mselect[m[31m;[m		   
		       [01;34mexception[m
			  [01;34mwhen[m [01;34mothers[m [31m=>[m
			     [01;34mexit[m[31m;[m
		       [01;34mend[m[31m;[m	     
		       Sub_Top [31m:=[m Sub_Index[31m;[m
		       Sub_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m.[m[01;34mall[m[31m,[m [31m"*"[m[31m,[m Sub_Top [31m+[m [35m1[m[31m);[m	       
		       [01;34mdelay[m [35m0.05[m[31m;[m
		       [01;34mexit[m [01;34mwhen[m Sub_Index [31m<=[m Sub_Top[31m;[m
		       [01;34mif[m Done [01;34mthen[m
			  [01;34mexit[m[31m;[m
		       [01;34mend[m [01;34mif[m[31m;[m
		    [01;34mexception[m
		       [01;34mwhen[m [01;34mothers[m [31m=>[m
			  [01;34mexit[m[31m;[m
		    [01;34mend[m[31m;[m
		 [01;34mend[m [01;34mloop[m Second_Loop[31m;[m
		 [01;34mloop[m
		    [01;34mselect[m
		       [01;34maccept[m Suspend[31m;[m
		    [01;34mor[m
		       [01;34maccept[m Start[31m;[m	       	    
		       [01;34mexit[m[31m;[m
		    [01;34mor[m
		       [01;34maccept[m Halt[31m;[m
		       
		       [01;34mexit[m Top_Loop[31m;[m
		       
		    [01;34mor[m
		       [01;34maccept[m [01;30mSend[m[31m([mResult [31m:[m [01;34mout[m Adam[31m.[mResults[31m.[mSearch_Result_Type[31m)[m [01;34mdo[m
			  Result [31m:=[m Search_Result[31m.[m[01;34mall[m[31m;[m
		       [01;34mend[m Send[31m;[m	    
		    [01;34mor[m
		       [01;34mdelay[m [35m0.05[m[31m;[m
		    [01;34mend[m [01;34mselect[m[31m;[m
		 [01;34mend[m [01;34mloop[m[31m;[m
		 
	      [01;34mexception[m	       
		 [01;34mwhen[m Sockets[31m.[mHost_Error [31m=>[m
		    
		    [01;34mselect[m
		       [01;34maccept[m Halt[31m;[m
		       [01;34mexit[m Top_Loop[31m;[m
		    [01;34mor[m
		       [01;34maccept[m Suspend[31m;[m
		       Suspended [31m:=[m True[31m;[m	       
		    [01;34mor[m
		       [01;34mdelay[m [35m0.05[m[31m;[m
		    [01;34mend[m [01;34mselect[m[31m;[m		  
		 [01;34mwhen[m [01;34mothers[m [31m=>[m
		    [01;34mselect[m
		       [01;34maccept[m Halt[31m;[m
		       [01;34mexit[m Top_Loop[31m;[m
		    [01;34mor[m
		       [01;34maccept[m Suspend[31m;[m
		       Suspended [31m:=[m True[31m;[m	       
		    [01;34mor[m
		       [01;34mdelay[m [35m0.05[m[31m;[m
		    [01;34mend[m [01;34mselect[m[31m;[m		  
	      [01;34mend[m[31m;[m
	      [01;34mif[m done [01;34mthen[m

		 [01;30mload_file[m[31m([mfile_set[31m,[m [31m"/var/www/html/repository/web_index.html"[m[31m,[m file_last[31m);[m

		 [01;34mfor[m i [01;34min[m [01;34mreverse[m file_last[31m-[m[35m1[m[31m..[mfile_last [01;34mloop[m
		    file_set[31m.[m[01;30mlines[m[31m([mi[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mwide_string[m ' [31m([mfile_set[31m.[m[01;30mlines[m[31m([mi[31m).[m[01;34mall[m[31m);[m
		 [01;34mend[m [01;34mloop[m[31m;[m

		 file_set[31m.[m[01;30mlines[m[31m([mfile_last[31m-[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mwide_string[m ' [31m([m[31m"<a href="""[m [31m&[m handling[31m.[m[01;30mto_wide_string[m[31m([mSearch_Result[31m.[maddress[31m.[m[01;34mall[m[31m)[m [31m&[m [31m""">"[m [31m&[m handling[31m.[m[01;30mto_wide_string[m[31m([mSearch_Result[31m.[maddress[31m.[m[01;34mall[m[31m)[m [31m&[m [31m"</a><br>"[m[31m);[m
		 file_set[31m.[mLine_last [31m:=[m file_set[31m.[mLine_Last [31m+[m [35m1[m[31m;[m

		 w_io[31m.[m[01;30mcreate[m[31m([mweb_file[31m,[m w_io[31m.[mout_file[31m,[m [31m"/var/www/html/repository/web_index.html"[m[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m

		 [01;34mfor[m i [01;34min[m [35m1[m[31m..[mfile_set[31m.[mline_last [01;34mloop[m
		    w_io[31m.[m[01;30mput_line[m[31m([mweb_file[31m,[m file_set[31m.[m[01;30mlines[m[31m([mi[31m).[m[01;34mall[m[31m);[m
		 [01;34mend[m [01;34mloop[m[31m;[m

		 w_io[31m.[m[01;30mclose[m[31m([mweb_file[31m);[m
		 [01;30mset_free[m[31m([mfile_set[31m);[m
		 done [31m:=[m false[31m;[m
		 file_last [31m:=[m [35m0[m[31m;[m
	      [01;34mend[m [01;34mif[m[31m;[m

	      
	      [31m--Code.Prefix := Strings.Unbounded.To_Unbounded_String(Random(Seg_Rand.Random(Seg_Gen)));[m
	      Code[31m.[mRadix [31m:=[m Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_Unbounded_String[m[31m([m[01;30mRandom[m[31m([mSeg_Rand[31m.[m[01;30mRandom[m[31m([mSeg_Gen[31m)));[m
	      Code[31m.[msuffix [31m:=[m Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_Unbounded_String[m[31m([mHandling[31m.[m[01;30mTo_Lower[m[31m([mTop_Level_Type'[01;30mImage[m[31m([mTop_Level_Rand[31m.[m[01;30mRandom[m[31m([mTop_Level_Gen[31m))));[m
	      
	      OS_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Address[31m);[m
	      Current_Address [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"www."[m [31m&[m [31m--Strings.Unbounded.To_String(Code.Prefix) & '-' &[m
						 Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_String[m[31m([mCode[31m.[mRadix[31m)[m [31m&[m [31m'.'[m [31m&[m
						 Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_String[m[31m([mCode[31m.[mSuffix[31m));[m	       
	      
	      Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
	      
	      Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
	      
	      Sub_Top [31m:=[m Pattern'First[31m;[m
	      Sub_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m.[m[01;34mall[m[31m,[m [31m"*"[m[31m,[m Sub_Top [31m+[m [35m1[m[31m);[m	 	       
	      protocol [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"https://"[m[31m);[m	 
	      
	   [01;34mend[m [01;34mloop[m Main_Search[31m;[m
	   [31m--  exit;[m
	[01;34mexception[m
	   [01;34mwhen[m [01;34mothers[m [31m=>[m
	      [01;34mnull[m[31m;[m
	[01;34mend[m[31m;[m
	Done [31m:=[m False[31m;[m
	[31m--Code.Prefix := Strings.Unbounded.To_Unbounded_String(Random(Seg_Rand.Random(Seg_Gen)));[m
	      Code[31m.[mRadix [31m:=[m Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_Unbounded_String[m[31m([m[01;30mRandom[m[31m([mSeg_Rand[31m.[m[01;30mRandom[m[31m([mSeg_Gen[31m)));[m
	      Code[31m.[msuffix [31m:=[m Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_Unbounded_String[m[31m([mHandling[31m.[m[01;30mTo_Lower[m[31m([mTop_Level_Type'[01;30mImage[m[31m([mTop_Level_Rand[31m.[m[01;30mRandom[m[31m([mTop_Level_Gen[31m))));[m
	      
	      OS_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Address[31m);[m
	      Current_Address [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"www."[m [31m&[m [31m--Strings.Unbounded.To_String(Code.Prefix) & '-' &[m
						 Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_String[m[31m([mCode[31m.[mRadix[31m)[m [31m&[m [31m'.'[m [31m&[m
						 Ada[31m.[mStrings[31m.[mUnbounded[31m.[m[01;30mTo_String[m[31m([mCode[31m.[mSuffix[31m));[m	       
	      
	      Os_Lib[31m.[m[01;30mFree[m[31m([mCurrent_Path[31m);[m
	      
	      Current_Path [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
	      
	      Sub_Top [31m:=[m Pattern'First[31m;[m
	      Sub_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mPattern[31m.[m[01;34mall[m[31m,[m [31m"*"[m[31m,[m Sub_Top [31m+[m [35m1[m[31m);[m	 	       
	      protocol [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"https://"[m[31m);[m	 
	      
     [01;34mend[m [01;34mloop[m Top_loop[31m;[m
      
  [01;34mexception[m
     [01;34mwhen[m Sockets[31m.[mSocket_Error [31m=>[m
  	 Errno[31m.[m[01;34mall[m [31m:=[m [35m128[m[31m;[m
  	 [01;34mloop[m
  	    [01;34mselect[m
  	       [01;34maccept[m Suspend[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Start[31m;[m		  
  	    [01;34mor[m
  	       [01;34maccept[m Halt[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mor[m
  	       [01;34mdelay[m [35m0.05[m[31m;[m
  	       Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m.[m[01;34mall[m[31m);[m
  	       Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Socket error"[m[31m);[m
  	    [01;34mend[m [01;34mselect[m[31m;[m	       
  	 [01;34mend[m [01;34mloop[m[31m;[m
     [01;34mwhen[m Sockets[31m.[mHost_Error [31m=>[m
  	 Errno[31m.[m[01;34mall[m [31m:=[m [35m128[m[31m;[m
  	 [01;34mloop[m
  	    [01;34mselect[m
  	       [01;34maccept[m Suspend[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Start[31m;[m		  
  	    [01;34mor[m
  	       [01;34maccept[m Halt[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mor[m
  	       [01;34mdelay[m [35m0.05[m[31m;[m
  	       Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m.[m[01;34mall[m[31m);[m
  	       Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([m[31m"Host error~ :"[m [31m&[m Current_Address[31m.[m[01;34mall[m[31m));[m
  	    [01;34mend[m [01;34mselect[m[31m;[m	       
  	 [01;34mend[m [01;34mloop[m[31m;[m
     [01;34mwhen[m [01;34mothers[m [31m=>[m
  	 Errno[31m.[m[01;34mall[m [31m:=[m [35m128[m[31m;[m
  	 [01;34mloop[m
  	    [01;34mselect[m
  	       [01;34maccept[m Suspend[31m;[m
  	    [01;34mor[m
  	       [01;34maccept[m Start[31m;[m		  
  	    [01;34mor[m
  	       [01;34maccept[m Halt[31m;[m
  	       [01;34mexit[m[31m;[m
  	    [01;34mor[m
  	       [01;34mdelay[m [35m0.05[m[31m;[m
  	       Ansi_Windows[31m.[m[01;30mDraw_Window[m [31m([mWindow[31m.[m[01;34mall[m[31m);[m
  	       Ansi_Windows[31m.[m[01;30mDraw[m [31m([mWindow[31m.[m[01;34mall[m[31m,[m [35m1[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m"Others error"[m[31m);[m
  	    [01;34mend[m [01;34mselect[m[31m;[m	       
  	 [01;34mend[m [01;34mloop[m[31m;[m
	 
	 
  [01;34mend[m Web_Index_Type[31m;[m


   
   
   
   
   [31m-- Account line type --[m
   [31m--  Line_Num      : Account_Line_Range := 0;[m
   [31m--  Date          : Time := Clock;[m
   [31m--  Elaps         : Time := Clock;[m
   [31m--  Description   : Wstring_32 := (others => ' ');[m
   [31m--  Account_num   : Account_Num_Range := 10;[m
   [31m--  Unit_Ht_Price : Fixed_Unit_Ht := 0.0;	 [m
   [31m--  TVA_Rate    : Fixed_Factor := 0.0;[m
   [31m--  Quantity      : Quantity_Range := 0.0;[m
   [31m--  Total_Ht      : Fixed_Total := 0.0;[m
   [31m--  Total_TVA     : Fixed_Total := 0.0;[m
   [31m--  Total_Ttc     : Fixed_Total := 0.0;[m
   [31m--  Delays        : Payment_Delay := 0;[m
   [31m--  Peer_name     : Wstring_32 := (others => ' ');	 [m
   
   [31m-- Abstract Voice[m
   [31m--  Accounting     : Account_Line_Array(1..Lines_Max) := (others => Null_Line);	 [m
   [31m--  Line_Last      : Account_Line_Range := 0;[m
   [31m--  Account_Num    : Account_Num_Range := 10;[m
   [31m--  Voice_Num      : Voice_Num_Range := 0;[m
   [31m--  Total_Ht       : Fixed_Total := 0.0;[m
   [31m--  Total_TVA      : Fixed_Total := 0.0;[m
   [31m--  Total_TTC      : Fixed_Total := 0.0;[m
   [31m--  Peer_Name      : Wstring_32 := (others => ' ');[m
   [31m--  Date           : Time := Time_Of(1970, 1, 1, 0.0);[m
   [31m--  Line_Count     : Account_Line_Range := 0;[m
   [01;34mtask[m [01;34mbody[m WOPR_Process [01;34mis[m
      
      Web_Id [31m:[m Task_Id[31m;[m
      Term_Width [31m:[m [01;34mconstant[m Positive [31m:=[m App[31m.[mColumns [31m-[m [35m2[m[31m;[m

      Result_Max_Lines   [31m:[m [01;34mconstant[m Positive [31m:=[m App[31m.[mLines [31m-[m [31m([m[35m7[m [31m+[m [35m9[m[31m);[m
      
      File_Index [31m:[m natural [31m:=[m [35m0[m[31m;[m         
      Line_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      On_Esc [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Line_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Current_Command [31m:[m Command_Type [31m:=[m Search[31m;[m
      Previsious_Mode [31m:[m Command_Type [31m:=[m Search[31m;[m
      Current_Mode    [31m:[m Command_Type [31m:=[m Search[31m;[m         
      Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Term_Width[31m-[m[35m10[m[31m;[m
      Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
      


      W3 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Quit (exit program) window information.[m
						  L [31m=>[m Lines[31m-[m[35m5[m[31m,[m
						  C [31m=>[m  [35m2[m[31m,[m
						  H [31m=>[m  [35m3[m[31m,[m
						  W [31m=>[m Term_Width[31m,[m
						  Frame_Type      [31m=>[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m
						  Frame_Color     [31m=>[m Yellow[31m,[m
						  Close_Box_Color [31m=>[m Red[31m);[m
      
      W4 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Status message Window.[m
						  L [31m=>[m  [35m4[m[31m,[m
						  C [31m=>[m  [35m2[m[31m,[m
						  H [31m=>[m  [35m7[m[31m,[m
						  W [31m=>[m Term_Width[31m,[m
						  Frame_Type      [31m=>[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m
						  Frame_Color     [31m=>[m Yellow[31m,[m
						  Close_Box_Color [31m=>[m Red[31m);[m

      
      
      
      W6 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Search window[m
						  L [31m=>[m  [35m4[m[31m,[m
						  C [31m=>[m  [35m2[m[31m,[m
						  H [31m=>[m  [35m5[m[31m,[m
						  W [31m=>[m Term_Width[31m,[m
						  Frame_Type      [31m=>[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m
						  Frame_Color     [31m=>[m Yellow[31m,[m
						  Close_Box_Color [31m=>[m Red[31m);[m

      W7 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Search result info Window[m
						  L [31m=>[m  [35m4[m[31m,[m
						  C [31m=>[m  [35m2[m[31m,[m
						  H [31m=>[m  [35m5[m[31m,[m
						  W [31m=>[m Term_Width[31m,[m
						  Frame_Type      [31m=>[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m
						  Frame_Color     [31m=>[m Yellow[31m,[m
						  Close_Box_Color [31m=>[m Red[31m);[m


      
      W10 [31m:[m [01;34mconstant[m Ansi_Windows[31m.[mWindow_Type [31m:=[m [31m([m [31m-- Command result : out_file.txt.[m
						   L [31m=>[m  [35m9[m[31m,[m
						   C [31m=>[m  [35m2[m[31m,[m
						   H [31m=>[m  Result_Max_Lines[31m+[m[35m2[m[31m,[m
						   W [31m=>[m Term_Width[31m,[m
						   Frame_Type      [31m=>[m Ansi_Windows[31m.[mSingle_Line_Frame[31m,[m
						   Frame_Color     [31m=>[m Yellow[31m,[m
						   Close_Box_Color [31m=>[m Red[31m);[m
      
      Web_Search [31m:[m [01;34maccess[m Web_Search_Type[31m;[m
      Web_Index [31m:[m [01;34maccess[m Web_Index_Type[31m;[m
      
      Done [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      
      
      [01;34mprocedure[m [01;30mAdd_Product[m[31m([mName [31m:[m [01;34min[m [32mString[m[31m;[mPath [31m:[m [01;34min[m [32mString[m[31m;[mUnit_HT [31m:[m [01;34min[m Fixed_Unit_Ht[31m;[mTVA_Rate [31m:[m [01;34min[m Fixed_Factor[31m;[m Total_TVA [31m:[m [01;34min[m Fixed_Total[31m;[mUnit_TTC [31m:[m [01;34min[m Fixed_Unit_TTC[31m)[m [01;34mis[m
	 File [31m:[m W_Io[31m.[mFile_Type[31m;[m
	 Product [31m:[m [01;34mconstant[m Product_Access [31m:=[m [01;34mnew[m Product_Class[31m;[m
      [01;34mbegin[m
	 W_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m W_Io[31m.[mIn_File[31m,[m Path [31m&[m [31m'/'[m [31m&[m [31m"Abstract.txt"[m[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
	 Product[31m.[mName [31m:=[m [01;34mnew[m [32mString[m ' [31m([mName[31m);[m
	 Product[31m.[mDescription [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m

	 W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
	 Product[31m.[mDocumentation [31m:=[m [01;34mnew[m [32mString[m ' [31m([mName [31m&[m [31m".html"[m[31m);[m
	 Product[31m.[mUnit_Ht [31m:=[m Unit_Ht[31m;[m

	 Product[31m.[mTVA_Rate [31m:=[m TVA_Rate[31m;[m
	 Product[31m.[mTVA [31m:=[m Total_TVA[31m;[m
	 Product[31m.[mUnit_TTC [31m:=[m Unit_TTC[31m;[m
	 Current_Game[31m.[m[01;30mProducts[m[31m([mCurrent_Game[31m.[mCount[31m+[m[35m1[m[31m)[m [31m:=[m Product[31m;[m

	 Current_Game[31m.[mCount [31m:=[m Current_Game[31m.[mCount[31m+[m[35m1[m[31m;[m

      [01;34mend[m Add_Product[31m;[m
      
      
      
      Payed   [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      [01;34mprocedure[m [01;30mAdd_Name[m[31m([mPath [31m:[m [01;34min[m [32mString[m[31m;[mRate [31m:[m [01;34min[m [32mfloat[m[31m)[m [01;34mis[m
	 Price [31m:[m Sai[31m.[mPrice_Type [31m:=[m [35m0.0[m[31m;[m
	 
	 Curs    [31m:[m Projects_DLL[31m.[mCursor [31m:=[m Projects_Dll[31m.[m[01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
	 Start    [31m:[m Projects_DLL[31m.[mCursor [31m:=[m Projects_Dll[31m.[m[01;30mFirst[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
	 Project [31m:[m M[31m.[mProject[31m.[mProject_Access [31m:=[m Projects_Dll[31m.[m[01;30mFirst_Element[m[31m([mApp[31m.[mProjects[31m.[mList[31m);[m
	 
	 
	 Line     [31m:[m Account_Line_Type[31m;[m
	 
	 Version [31m:[m M[31m.[mVersions[31m.[mVersion_Type[31m;[m
	 
	 
	 invoice [31m:[m invoice_Record[31m;[m
	 Done [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      [01;34mbegin[m
	 Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Enter name : "[m[31m);[m
	 [01;34mdeclare[m
	    Name [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Text_Io[31m.[mGet_Line[31m;[m
	 [01;34mbegin[m
	    Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Version : "[m[31m);[m
	    Version [31m:=[m [01;30mTo_Version[m[31m([mGet_Line[31m);[m

	    Sai[31m.[mEditting[31m.[m[01;30mAdd[m[31m([mname[31m);[m
	    

	    Project [31m:=[m Projects_Dll[31m.[m[01;30mElement[m[31m([mCurs[31m);[m

	    [01;34mif[m Project[31m.[mProject_Name[31m.[m[01;34mall[m [31m/=[m name [01;34mthen[m

	       Curs [31m:=[m Projects_DLL[31m.[m[01;30mNext[m[31m([mCurs[31m);[m
	       Project [31m:=[m Projects_Dll[31m.[m[01;30mElement[m[31m([mCurs[31m);[m
	       Curs [31m:=[m Projects_DLL[31m.[m[01;30mNext[m[31m([mCurs[31m);[m

	       [01;34mfor[m I [01;34min[m [35m2[m [31m..[m Projects_Dll[31m.[m[01;30mlength[m[31m([mApp[31m.[mProjects[31m.[mlist[31m)[m [31m-[m [35m1[m [01;34mloop[m

		  Project [31m:=[m Projects_Dll[31m.[m[01;30mElement[m[31m([mCurs[31m);[m

		  [01;34mif[m Project[31m.[mProject_Name[31m.[m[01;34mall[m [31m=[m name [01;34mthen[m
		     Done [31m:=[m True[31m;[m
		     [01;34mexit[m[31m;[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
		  Curs [31m:=[m Projects_DLL[31m.[m[01;30mNext[m[31m([mCurs[31m);[m
		  
	       [01;34mend[m [01;34mloop[m[31m;[m
	       [01;34mif[m Done [01;34mthen[m
		  
		  Price [31m:=[m Sai[31m.[m[01;30mPrice_Type[m[31m([m[32mfloat[m[31m([m[32mFloat[m[31m([mProject[31m.[mElapsed [31m/[m [35m3600.0[m[31m)[m [31m+[m [31m([m[32mFloat[m[31m([mProject[31m.[mDays[31m)[m [31m*[m [35m24.0[m[31m))[m [31m*[m [32mFloat[m[31m([mRate[31m))[m [31m/[m [35m1000.0[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	       
	    [01;34melse[m

	       Price [31m:=[m Sai[31m.[m[01;30mPrice_Type[m[31m(([m[32mFloat[m[31m([mProject[31m.[mElapsed [31m/[m [35m3600.0[m[31m)[m [31m+[m [31m([m[32mFloat[m[31m([mProject[31m.[mDays[31m)[m [31m*[m [35m24.0[m[31m))[m [31m*[m [32mFloat[m[31m([mRate[31m))[m [31m/[m [35m1000.0[m[31m;[m
	       Done [31m:=[m True[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m

	    [01;34mif[m Done [01;34mthen[m
	       line [31m:=[m
		 [31m([m[35m0[m[31m,[m
		  Clock[31m,[m
		  Clock[31m,[m
		  [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m)),[m
		  [35m10[m[31m,[m
		  [01;30mFixed_Unit_Ht[m[31m([mPrice[31m),[m
		  [35m10.0[m[31m,[m
		  [35m1000.0[m[31m,[m
		  [01;30mFixed_Total[m[31m([mPrice [31m*[m [35m1000.0[m[31m),[m
		  [01;30mFixed_total[m[31m([m[01;30mFixed_total[m[31m([m[01;30mFixed_Total[m[31m([m[01;30mFixed_Total[m[31m([mPrice[31m)[m [31m*[m [35m1000.0[m [31m)[m [31m/[m[35m100.0[m[31m)[m [31m*[m [35m10.0[m[31m),[m
		  [01;30mFixed_total[m[31m([m[01;30mFixed_total[m[31m([m[01;30mFixed_Total[m[31m(([mPrice[31m)[m [31m*[m [35m1000.0[m[31m)[m [31m+[m [01;30mFixed_Total[m[31m([m[01;30mFixed_Total[m[31m([m[01;30mFixed_Total[m[31m(([m[01;30mFixed_Total[m[31m([mPrice[31m)[m [31m*[m [35m1000.0[m[31m))/[m[35m100.0[m[31m)[m [31m*[m [35m10.0[m[31m))),[m
		  [35m0[m[31m,[m
		  [31m([m[01;34mothers[m [31m=>[m Wide_Character'[01;30mVal[m[31m([m[35m32[m[31m))[m
		 [31m);[m

	       Wide_Fixed[31m.[m[01;30mMove[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([mname[31m),[m Line[31m.[mDescription[31m);[m

	       Wide_Fixed[31m.[m[01;30mMove[m[31m([m[31m"Manuel De Girardi"[m[31m,[m Line[31m.[mPeer_Name[31m);[m

	       invoice [31m:=[m [31m([m[35m256[m[31m,[m
			   [31m([m[35m1[m [31m=>[m Line[31m,[m [01;34mothers[m [31m=>[m Null_Line[31m),[m
			   [35m1[m[31m,[m
			   [35m607[m[31m,[m      
			   invoice_num[31m+[m[35m1[m[31m,[m      
			   [35m0.0[m[31m,[m [31m-- Fixed_Total(Price) * 1000.0,[m
			   [35m0.0[m[31m,[m [31m-- Fixed_Total(Fixed_Total(Fixed_total(Fixed_total(Price) * 1000.0)/100.0) * 10.0),[m
			   [35m0.0[m[31m,[m [31m-- Fixed_Total(Fixed_Total(Fixed_total(Fixed_total(Price) * 1000.0)) + (Fixed_total(Fixed_total(Fixed_Total(Price) * 1000.0)/100.0) * 10.0)),[m
			   Line[31m.[mPeer_Name[31m,[m      
			   clock[31m,[m
			   [35m1[m
			  [31m);[m
	       

	       Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Price is :"[m [31m&[m Sai[31m.[mPrice_Type'[01;30mImage[m[31m([mPrice[31m)[m [31m&[m [31m"$"[m[31m);[m      
	       Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Set price..."[m[31m);[m      

	       [01;30mAdd_Edit[m[31m([mPath[31m,[m name[31m,[m Price[31m);[m
	       [01;30mbilled[m[31m([mM[31m.[mBalance[31m.[mBalance[31m,[m invoice[31m,[m Payed[31m);[m

	       [01;34mif[m Payed [01;34mthen[m

		  Invoice[31m.[mDate [31m:=[m Clock[31m;[m

		  Invoice[31m.[mAccount_Num [31m:=[m Invoice[31m.[m[01;30mAccounting[m[31m([m[35m1[m[31m).[mAccount_Num[31m;[m

		  Invoice[31m.[mvoice_Num [31m:=[m M[31m.[mBalance[31m.[mInvoice_Num [31m+[m [35m1[m[31m;[m

		  M[31m.[mBalance[31m.[mInvoice_Num [31m:=[m M[31m.[mBalance[31m.[mInvoice_Num [31m+[m [35m1[m[31m;[m

		  [01;34mif[m [01;30mSave[m[31m([mInvoice[31m,[m [31m"billed.txt"[m[31m)[m [01;34mthen[m
		     
		     
		     [01;30mAdd[m[31m([mAccounts[31m,[m Invoice[31m);[m
		     
		     [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mInvoice[31m.[mLine_Last [01;34mloop[m

			[01;34mdeclare[m
			   Line [31m:[m [01;34mconstant[m Account_Line_Type [31m:=[m Invoice[31m.[m[01;30mAccounting[m[31m([mIter[31m);[m
			[01;34mbegin[m

			   [01;34mif[m [01;34mnot[m Sky[31m.[mStocks_Manager[31m.[m[01;30mIn_Stocks[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m Line[31m.[mDescription[31m)[m [01;34mthen[m

			      [01;34mdeclare[m
				 Stock [31m:[m [01;34mconstant[m Stock_Record [31m:=[m [31m([mSky[31m.[mStocks_Manager[31m.[mHard_Num [31m+[m [35m1[m[31m,[m Line[31m.[mDescription[31m,[m Line[31m.[mQuantity[31m,[m Line[31m.[mUnit_Ht_Price[31m,[m Line[31m.[mTVA_Rate[31m);[m
			      [01;34mbegin[m

				 Sky[31m.[mStocks_Manager[31m.[mHard_Num [31m:=[m 
				   Sky[31m.[mStocks_Manager[31m.[mHard_Num [31m+[m [35m1[m[31m;[m
				 
				 Sky[31m.[mStocks_Manager[31m.[m[01;30mStock_Add[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m Stock[31m);[m

			      [01;34mend[m[31m;[m
			   [01;34melse[m

			      [01;34mdeclare[m
				 Stock [31m:[m [01;34mconstant[m Stock_Record [31m:=[m [31m([m[35m0[m[31m,[m Line[31m.[mDescription[31m,[m [31m([mLine[31m.[mQuantity[31m),[m Line[31m.[mUnit_Ht_Price[31m,[m Line[31m.[mTVA_Rate[31m);[m
			      [01;34mbegin[m

				 Sky[31m.[mStocks_Manager[31m.[m[01;30mUpdate_Stock[m[31m([mSky[31m.[mStocks_Manager[31m.[mHardware[31m,[m Stock[31m);[m

			      [01;34mend[m[31m;[m
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			[01;34mend[m[31m;[m
		     [01;34mend[m [01;34mloop[m[31m;[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;30mAdd_Product[m[31m([mName[31m,[m Name [31m&[m [31m"-"[m [31m&[m [01;30mTo_String[m[31m([mVersion[31m),[m [01;30mFixed_Unit_Ht[m[31m([mPrice[31m),[m [35m10.0[m[31m,[m [01;30mFixed_Total[m[31m(([m[01;30mFixed_Total[m[31m([mPrice[31m/[m[35m100.0[m[31m))*[m[35m10.0[m[31m),[m [01;30mFixed_Unit_Ttc[m[31m([m[01;30mFixed_Unit_Ttc[m[31m([mPrice[31m)+(([m[01;30mFixed_Unit_Ttc[m[31m([mPrice[31m/[m[35m100.0[m[31m))*[m[35m10.0[m[31m)));[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m[31m;[m
      [01;34mend[m Add_Name[31m;[m
      
      [01;34mprocedure[m [01;30mDelete_Name[m[31m([mPath [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mis[m
	 Id [31m:[m Product_Id [31m:=[m Id_Count[31m+[m[35m4[m[31m;[m
      [01;34mbegin[m
	 [01;34mloop[m
	    [01;34mbegin[m

	       [01;34mfor[m Id [01;34min[m [35m1[m[31m..[mId_Count [01;34mloop[m

		  Text_Io[31m.[m[01;30mPut_Line[m[31m([mPositive'[01;30mImage[m[31m(([mID[31m-[m[35m1[m[31m)+[m[35m5[m[31m)[m [31m&[m [31m' '[m [31m&[m Sai[31m.[mEditting[31m.[m[01;30mName[m[31m(([mId[31m-[m[35m1[m[31m)+[m[35m5[m[31m).[m[01;34mall[m[31m);[m

	       [01;34mend[m [01;34mloop[m[31m;[m

	       Text_Io[31m.[mNew_Line[31m;[m
	       Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Enter numb : "[m[31m);[m
	       Id [31m:=[m Product_id'[01;30mValue[m[31m([mGet_Line[31m);[m

	       [01;30mDel[m[31m([mId[31m);[m

	       [01;30mDel_Edit[m[31m([mPath[31m,[m Id[31m);[m
	       
	    [01;34mexception[m
	       [01;34mwhen[m Text_Io[31m.[mEnd_Error [31m=>[m
		  [01;34mexit[m[31m;[m
	       [01;34mwhen[m [01;34mothers[m [31m=>[m
		  [01;34mnull[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m Delete_Name[31m;[m
      

      
      
      
      Menu_Index [31m:[m WOPR_Menu_Range [31m:=[m [35m1[m[31m;[m
      
      
      
      Title [31m:[m Line_Type [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
      Item  [31m:[m Line_Type [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
      
      Menu_Win [31m:[m Window_Record [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m The_Window[31m);[m
      
      
      [01;34mtype[m Action_List [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [35m1[m[31m..[mApp[31m.[mLines[31m-[m[35m8[m[31m)[m [01;34mof[m Os_Lib[31m.[mString_Access[31m;[m
      
      
      Action_Last [31m:[m natural [31m:=[m [35m0[m[31m;[m
      
      
      Actions_Menu [31m:[m Action_List [31m:=[m [31m([m[35m1[m [31m=>[m [01;34mnew[m [32mString[m ' [31m([m[31m"W. O. P. R. menu"[m[31m),[m [01;34mothers[m [31m=>[m [01;34mnull[m[31m);[m
      
      
      [01;34mprocedure[m [01;30mMenu_Print[m[31m([mWin [31m:[m [01;34min[m Window_Record[31m;[m Selected [31m:[m [01;34min[m WOPR_Menu_Range[31m)[m [01;34mis[m
	 
      [01;34mbegin[m
	 
      	 [01;30mDraw_Window[m[31m([mWin[31m);[m
      	 Fixed[31m.[m[01;30mMove[m[31m([m[31m"W. O. P. R. menu"[m[31m,[m Title[31m,[m Error[31m,[m Left[31m);[m
      	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mTitle[31m));[m
	 
	 [01;34mfor[m Iter [01;34min[m WOPR_Menu'[01;34mRange[m [01;34mloop[m
	    Item [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
	    Fixed[31m.[m[01;30mMove[m[31m([m[01;30mWOPR_Menu[m[31m([mIter[31m).[m[01;34mall[m[31m,[m Item[31m,[m Error[31m,[m Left[31m);[m
	    
	    [01;34mif[m Iter [31m/=[m Selected [01;34mthen[m
	       
	       [01;30mDraw_Text[m[31m([mWin[31m,[m Iter[31m*[m[35m2[m[31m+[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mItem[31m));[m
	       
	    [01;34melse[m
	       
	       [01;30mEnlight_Draw_Text[m[31m([mWin[31m,[m Iter[31m*[m[35m2[m[31m+[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m Cyan[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mItem[31m));[m
	       
	       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m

      [01;34mend[m Menu_Print[31m;[m
      
      
      [01;34mprocedure[m [01;30mActions_Print[m[31m([mWin [31m:[m [01;34min[m Window_Record[31m;[m Selected [31m:[m [01;34min[m Positive[31m)[m [01;34mis[m
	 
      [01;34mbegin[m
	 
      	 [01;30mDraw_Window[m[31m([mWin[31m);[m
      	 Fixed[31m.[m[01;30mMove[m[31m([m[31m"Administration"[m[31m,[m Title[31m,[m Error[31m,[m Left[31m);[m
      	 [01;30mDraw_Text[m[31m([mWin[31m,[m [35m3[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mTitle[31m));[m
	 
	 [01;34mfor[m Iter [01;34min[m [35m1[m[31m..[mAction_Last [01;34mloop[m
	    
	    Item [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
	    
	    Fixed[31m.[m[01;30mMove[m[31m([m[01;30mActions_Menu[m[31m([mIter[31m).[m[01;34mall[m[31m,[m Item[31m,[m Error[31m,[m Left[31m);[m
	    
	    [01;34mif[m Iter [31m/=[m Selected [01;34mthen[m
	       
	       [01;30mDraw_Text[m[31m([mWin[31m,[m Iter[31m*[m[35m2[m[31m+[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mItem[31m));[m
	       
	    [01;34melse[m
	       
	       [01;30mEnlight_Draw_Text[m[31m([mWin[31m,[m Iter[31m*[m[35m2[m[31m+[m[35m5[m[31m,[m App[31m.[mColumns[31m/[m[35m4[m[31m-[m[35m8[m[31m,[m White[31m,[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mItem[31m));[m
	       
	       Text_Io[31m.[m[01;30mPut[m[31m([mNormal_Mode[31m);[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
      [01;34mend[m Actions_Print[31m;[m
      
      
      
      Line [31m:[m M[31m.[mStrings[31m.[mWide_String_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m""[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m0[m[31m));[m
      
      Is_Actions [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Profile [31m:[m Profile_Class[31m;[m
      
      Rate [31m:[m [32mFloat[m [31m:=[m [35m160.0[m[31m;[m
      
      Motif [31m:[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m256[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
      Motif_Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
      End_Of_Section [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      
      Data_Available [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Search_Section [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   [01;34mbegin[m

      [01;30mInitialize[m[31m([mMenu_Win[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m App[31m.[mLines[31m,[m App[31m.[mColumns[31m/[m[35m2[m[31m,[m Blue[31m,[m White[31m);[m
      
      [01;34mif[m [01;30mLength[m[31m([mApp[31m.[mBorg[31m.[mPath[31m)[m [31m/=[m [35m0[m [01;34mthen[m
	 [01;34mif[m [01;30mElement[m[31m([mApp[31m.[mBorg[31m.[mPath[31m,[m [35m1[m[31m).[mDefinition[31m.[m[01;30mlist[m[31m([m[35m1[m[31m).[mName[31m.[m[01;34mall[m [31m/=[m [31m"Rate"[m [01;34mthen[m
	    [01;34mfor[m I [01;34min[m [01;30mElement[m[31m([mApp[31m.[mBorg[31m.[mPath[31m,[m [35m1[m[31m).[mDefinition[31m.[mList'[01;34mrange[m [01;34mloop[m

	       
	       [01;34mbegin[m
		  
		  [01;34mif[m [01;30mElement[m[31m([mApp[31m.[mBorg[31m.[mPath[31m,[m [35m1[m[31m).[mDefinition[31m.[m[01;30mlist[m[31m([m[35m1[m[31m).[mName[31m.[m[01;34mall[m [31m/=[m [31m"Rate"[m [01;34mthen[m
		     [01;34mcase[m  [01;30mElement[m[31m([mApp[31m.[mBorg[31m.[mPath[31m,[m [35m1[m[31m).[mDefinition[31m.[m[01;30mlist[m[31m([m[35m1[m[31m).[menum [01;34mis[m
			[01;34mwhen[m Flt [31m=>[m
			   Rate [31m:=[m [01;30mElement[m[31m([mApp[31m.[mBorg[31m.[mPath[31m,[m [35m1[m[31m).[mDefinition[31m.[m[01;30mlist[m[31m([m[35m1[m[31m).[mFlt[31m;[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mcase[m[31m;[m
		     [01;34mexit[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      Sai[31m.[mEditting[31m.[mInit[31m;[m

  Main_Loop[31m:[m
      [01;34mloop[m
	 Search_Section [31m:=[m False[31m;[m
     Menu_Loop [31m:[m
	 [01;34mloop[m

	    
	    [01;34mselect[m
	       [01;34mwhen[m Search_Section [01;34mand[m [01;34mnot[m Is_Actions [31m=>[m
		  [01;34maccept[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m Wchar [31m=[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [01;34mthen[m
			[01;30mPut_Line[m[31m([mShell_Interface[31m.[mSearch_Result[31m.[mAddress[31m.[m[01;34mall[m[31m);[m
			[01;34mdeclare[m
			   Success [31m:[m [32mBoolean[m[31m;[m
			   Args [31m:[m Argument_List_Access [31m:=[m [01;30mArgument_String_To_List[m[31m([mShell_Interface[31m.[mSearch_Result[31m.[mAddress[31m.[m[01;34mall[m[31m);[m
			[01;34mbegin[m
			   [01;30mSpawn[m[31m([m[01;30mLocate_Exec_On_Path[m[31m([m[31m"lynx"[m[31m).[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m,[m Success[31m);[m
			[01;34mend[m[31m;[m
			[01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
			[01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mabort[m Web_Search[31m.[m[01;34mAll[m[31m;[m
			   Web_Search [31m:=[m [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m

			Action_Last [31m:=[m [35m1[m[31m;[m
			Menu_Index [31m:=[m [35m5[m[31m;[m
			Is_Actions [31m:=[m False[31m;[m
			[01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
			Done [31m:=[m False[31m;[m
			End_Of_Section [31m:=[m True[31m;[m
		     [01;34melsif[m Wchar [31m=[m Wide_Character'[01;30mVal[m[31m([m[35m127[m[31m)[m [01;34mthen[m
			[01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
			   Web_Search[31m.[mhalt[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;34mif[m Web_index [31m/=[m [01;34mnull[m [01;34mthen[m
			   Web_index[31m.[mhalt[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			  
			
			
			[01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
			Action_Last [31m:=[m [35m1[m[31m;[m
			Menu_Index [31m:=[m [35m5[m[31m;[m
			Is_Actions [31m:=[m False[31m;[m
			[01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
			Done [31m:=[m False[31m;[m
			End_Of_Section [31m:=[m True[31m;[m
		     [01;34melsif[m Wchar [31m=[m Wide_Character'[01;30mVal[m[31m([m[35m18[m[31m)[m [01;34mthen[m
			[01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
			   Web_Search[31m.[mhalt[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;34mif[m Web_index [31m/=[m [01;34mnull[m [01;34mthen[m
			   Web_index[31m.[mhalt[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			  
			
			[01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
			Action_Last [31m:=[m [35m1[m[31m;[m
			Menu_Index [31m:=[m [35m1[m[31m;[m
			Is_Actions [31m:=[m False[31m;[m
			[01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
			Done [31m:=[m False[31m;[m		       
			End_Of_Section [31m:=[m True[31m;[m
			[01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mabort[m Web_Search[31m.[m[01;34mall[m[31m;[m
			   Web_Search [31m:=[m [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
			[01;34mif[m Web_Index [31m/=[m [01;34mnull[m [01;34mthen[m
			   [01;34mabort[m Web_index[31m.[m[01;34mall[m[31m;[m
			   Web_index [31m:=[m [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m
		  Search_Section [31m:=[m False[31m;[m
		  
	    [01;34mor[m
	       [01;34mwhen[m [01;34mnot[m Search_Section [01;34mand[m [01;34mnot[m Is_Actions [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mbegin[m
			
			[01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			   
			   [01;34mcase[m Wchar [01;34mis[m
			      [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
				 
				 
				 [01;34mif[m Menu_Index [31m=[m [35m1[m [01;34mthen[m
				    
				    [01;30mActions_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
				    
				    Is_Actions [31m:=[m True[31m;[m
				 [01;34melsif[m Menu_Index [31m=[m [35m11[m [01;34mthen[m
				    [01;34mnull[m[31m;[m
				 [01;34melse[m
				    [01;34mcase[m Menu_Index [01;34mis[m
				       [01;34mwhen[m [35m2[m [31m=>[m

					  [01;30mAdd_Name[m[31m([m[31m"main-"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m),[m rate[31m);[m

					  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
				       [01;34mwhen[m [35m3[m [31m=>[m
					  [01;34mnull[m[31m;[m
					  [01;30mDelete_Name[m[31m([m[31m"main-"[m [31m&[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m));[m
					  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
				       [01;34mwhen[m [35m4[m [31m=>[m
					  [01;34mnull[m[31m;[m
				       [01;34mwhen[m [35m5[m [31m=>[m
					  [01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
					  Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Web search : "[m[31m);[m
					  
					  [01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
					     Search_Section [31m:=[m True[31m;[m
					     Done [31m:=[m True[31m;[m
					  [01;34melse[m
					  
					     W_Io[31m.[m[01;30mGet_Line[m[31m([mMotif[31m,[m Motif_Last[31m);[m
					     Done [31m:=[m False[31m;[m
					     [01;30mWide_Free[m[31m([mLine[31m);[m
					     Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mMotif[m[31m([mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mMotif[31m)..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mMotif[31m,[m Ada[31m.[mStrings[31m.[mBackward[31m)));[m
					     Motif [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
					     Motif_Last [31m:=[m [35m0[m[31m;[m
					     [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m(([mLine[31m.[m[01;34mall[m[31m([mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mLine[31m.[m[01;34mall[m[31m))..[mLine'Last[31m)),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mand[m [01;34mthen[m
					       Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mLine[31m.[m[01;34mall[m[31m),[m Backward[31m)[m [31m/=[m 
					       Wide_Fixed[31m.[m[01;30mIndex[m[31m(([mLine[31m.[m[01;34mall[m[31m([mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mLine[31m.[m[01;34mall[m[31m))..[mLine'Last[31m)),[m [31m" "[m[31m)[m [01;34mthen[m
						[01;34mdeclare[m
						   Search_String [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m 
						     Line[31m.[m[01;34mall[m[31m([mWide_Fixed[31m.[mIndex
								[31m(([mLine[31m.[m[01;34mall[m[31m([mWide_Fixed[31m.[mIndex_Non_Blank
									     [31m(([mLine[31m.[m[01;34mall[m[31m))..[mLine'Last[31m)),[m
								 [31m" "[m[31m)+[m[35m1[m[31m..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mLine[31m.[m[01;34mall[m[31m),[m Backward[31m));[m
						[01;34mbegin[m
						   
						   
						   [01;34mif[m Search_String'Length [31m/=[m [35m0[m [01;34mthen[m							 
						      [01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
							 [01;34mabort[m Web_Search[31m.[m[01;34mall[m[31m;[m
						      [01;34mend[m [01;34mif[m[31m;[m
						      [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
						      [01;30mMode_Info_Status[m[31m([mW1[31m,[m Null_Item[31m);[m
						      
						      Web_Search [31m:=[m 
							[01;34mnew[m Web_Search_Type
							[31m([m[01;34mnew[m Ansi_Windows[31m.[mWindow_Type '[31m([mW6[31m),[m 
							 Shell_Interface[31m.[mSearch_Result'[01;34maccess[m[31m,[m 
							 [01;34mnew[m [32mWide_String[m ' [31m([mSearch_String[31m),[m [01;34mnew[m [32mInteger[m ' [31m([mErrno[31m));[m
						      Web_Search[31m.[m[01;30mId[m[31m([mWeb_Id[31m);[m
						      Data_Available [31m:=[m False[31m;[m
						      Previsious_mode [31m:=[m Current_Mode[31m;[m
						      Current_Mode [31m:=[m Current_Command[31m;[m
						      File_Index [31m:=[m [35m0[m[31m;[m
						      Line_Index [31m:=[m [35m0[m[31m;[m
						      
						      Done [31m:=[m True[31m;[m
						   [01;34melse[m
						      [01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
							 Previsious_mode [31m:=[m Current_Mode[31m;[m
							 Current_Mode [31m:=[m Current_Command[31m;[m
							 
							 Done [31m:=[m True[31m;[m
							 
						      [01;34mend[m [01;34mif[m[31m;[m
						   [01;34mend[m [01;34mif[m[31m;[m
						[01;34mend[m[31m;[m
						
					     [01;34melse[m
						[01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
						   Previsious_mode [31m:=[m Current_Mode[31m;[m
						   Current_Mode [31m:=[m Current_Command[31m;[m
						   
						   Done [31m:=[m True[31m;[m
						   
						[01;34mend[m [01;34mif[m[31m;[m
					     [01;34mend[m [01;34mif[m[31m;[m
					     Search_Section [31m:=[m True[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  [01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
				       [01;34mwhen[m [35m6[m [31m=>[m
					  [01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
					  Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Web index : "[m[31m);[m

					  [01;34mif[m Web_Index [31m/=[m [01;34mnull[m [01;34mthen[m

					     Search_Section [31m:=[m True[31m;[m
					     Done [31m:=[m True[31m;[m
					  [01;34melse[m

					     W_Io[31m.[m[01;30mGet_Line[m[31m([mMotif[31m,[m Motif_Last[31m);[m
					     Done [31m:=[m False[31m;[m
					     [01;30mWide_Free[m[31m([mLine[31m);[m
					     Line [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([m[01;30mMotif[m[31m([mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mMotif[31m)..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mMotif[31m,[m Ada[31m.[mStrings[31m.[mBackward[31m)));[m
					     Motif [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
					     Motif_Last [31m:=[m [35m0[m[31m;[m

					     [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m(([mLine[31m.[m[01;34mall[m[31m([mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mLine[31m.[m[01;34mall[m[31m))..[mLine'Last[31m)),[m [31m" "[m[31m)[m [31m/=[m [35m0[m [01;34mand[m [01;34mthen[m
					       Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mLine[31m.[m[01;34mall[m[31m),[m Backward[31m)[m [31m/=[m 
					       Wide_Fixed[31m.[m[01;30mIndex[m[31m(([mLine[31m.[m[01;34mall[m[31m([mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mLine[31m.[m[01;34mall[m[31m))..[mLine'Last[31m)),[m [31m" "[m[31m)[m [01;34mthen[m
						[01;34mdeclare[m
						   Search_String [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m 
						     Line[31m.[m[01;34mall[m[31m([mWide_Fixed[31m.[mIndex
								[31m(([mLine[31m.[m[01;34mall[m[31m([mWide_Fixed[31m.[mIndex_Non_Blank
									     [31m(([mLine[31m.[m[01;34mall[m[31m))..[mLine'Last[31m)),[m
								 [31m" "[m[31m)+[m[35m1[m[31m..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mLine[31m.[m[01;34mall[m[31m),[m Backward[31m));[m
						[01;34mbegin[m
						   

						   [01;34mif[m Search_String'Length [31m/=[m [35m0[m [01;34mthen[m							 
						      [01;34mif[m Web_Index [31m/=[m [01;34mnull[m [01;34mthen[m
							 [01;34mabort[m Web_Index[31m.[m[01;34mall[m[31m;[m
						      [01;34mend[m [01;34mif[m[31m;[m

						      [01;30mPut[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
						      [01;30mMode_Info_Status[m[31m([mW1[31m,[m Null_Item[31m);[m

						      Web_Index [31m:=[m 
							[01;34mnew[m Web_Index_Type
							[31m([m[01;34mnew[m Ansi_Windows[31m.[mWindow_Type '[31m([mW6[31m),[m 
							 Shell_Interface[31m.[mSearch_Result'[01;34maccess[m[31m,[m 
							 [01;34mnew[m [32mWide_String[m ' [31m([mSearch_String[31m),[m [01;34mnew[m [32mInteger[m ' [31m([mErrno[31m));[m

						      Web_Index[31m.[m[01;30mId[m[31m([mWeb_Id[31m);[m
						      Data_Available [31m:=[m False[31m;[m
						      Previsious_mode [31m:=[m Current_Mode[31m;[m
						      Current_Mode [31m:=[m Current_Command[31m;[m
						      File_Index [31m:=[m [35m0[m[31m;[m
						      Line_Index [31m:=[m [35m0[m[31m;[m

						      Done [31m:=[m True[31m;[m
						   [01;34melse[m
						      [01;34mif[m Web_Index [31m/=[m [01;34mnull[m [01;34mthen[m
							 Previsious_mode [31m:=[m Current_Mode[31m;[m
							 Current_Mode [31m:=[m Current_Command[31m;[m
							 
							 Done [31m:=[m True[31m;[m
							 
						      [01;34mend[m [01;34mif[m[31m;[m
						   [01;34mend[m [01;34mif[m[31m;[m
						[01;34mend[m[31m;[m

					     [01;34melse[m
						[01;34mif[m Web_Index [31m/=[m [01;34mnull[m [01;34mthen[m

						   Previsious_mode [31m:=[m Current_Mode[31m;[m
						   Current_Mode [31m:=[m Current_Command[31m;[m
						   
						   Done [31m:=[m True[31m;[m
						   
						[01;34mend[m [01;34mif[m[31m;[m
					     [01;34mend[m [01;34mif[m[31m;[m
					     Search_Section [31m:=[m True[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  [01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
				       	  [31m--  Put_Line(Ansi_Tty_Control.Clear_Screen);[m
				       	  [31m--  Text_Io.Put("Web index : ");[m
					  
				       	  [31m--  if Web_Index /= null then[m
				       	  [31m--     Search_Section := True;[m
				       	  [31m--     Done := True;[m
				       	  [31m--  else[m
					  
				       	  [31m--     W_Io.Get_Line(Motif, Motif_Last);[m
				       	  [31m--     Done := False;[m
				       	  [31m--     Wide_Free(Line);[m
				       	  [31m--     Line := new Wide_String ' (Motif(Wide_Fixed.Index_Non_Blank(Motif)..Wide_Fixed.Index_Non_Blank(Motif, Ada.Strings.Backward)));[m
				       	  [31m--     Motif := (others => ' ');[m
				       	  [31m--     Motif_Last := 0;[m
				       	  [31m--     if Wide_Fixed.Index((Line.all(Wide_Fixed.Index_Non_Blank((Line.all))..Line'Last)), " ") /= 0 and then[m
				       	  [31m--       Wide_Fixed.Index_Non_Blank((Line.all), Backward) /= [m
				       	  [31m--       Wide_Fixed.Index((Line.all(Wide_Fixed.Index_Non_Blank((Line.all))..Line'Last)), " ") then[m
				       	  [31m--  	declare[m
				       	  [31m--  	   Search_String : constant Wide_String := [m
				       	  [31m--  	     Line.all(Wide_Fixed.Index[m
				       	  [31m--  			((Line.all(Wide_Fixed.Index_Non_Blank[m
				       	  [31m--  				     ((Line.all))..Line'Last)),[m
				       	  [31m--  			 " ")+1..Wide_Fixed.Index_Non_Blank((Line.all), Backward));[m
				       	  [31m--  	begin[m
						   
						   
				       	  [31m--  	   if Search_String'Length /= 0 then							 [m
				       	  [31m--  	      if Web_Index /= null then[m
				       	  [31m--  		 abort Web_Index.all;[m
				       	  [31m--  	      end if;[m
				       	  [31m--  	      Put(Ansi_Tty_Control.Clear_Screen);[m
				       	  [31m--  	      Mode_Info_Status(W1, Null_Item);[m
						      
				       	  [31m--  	      Web_Index := [m
				       	  [31m--  		new Web_Index_Type[m
				       	  [31m--  		(new Ansi_Windows.Window_Type '(W6), [m
				       	  [31m--  		 Shell_Interface.Search_Result'access, [m
				       	  [31m--  		 new Wide_String ' (Search_String), new Integer ' (Errno));[m
				       	  [31m--  	      Web_Index.Id(Web_Id);[m
				       	  [31m--  	      Data_Available := False;[m
				       	  [31m--  	      Previsious_mode := Current_Mode;[m
				       	  [31m--  	      Current_Mode := Current_Command;[m
				       	  [31m--  	      File_Index := 0;[m
				       	  [31m--  	      Line_Index := 0;[m
						      
				       	  [31m--  	      Done := True;[m
				       	  [31m--  	   else[m
				       	  [31m--  	      if Web_Index /= null then[m
				       	  [31m--  		 Previsious_mode := Current_Mode;[m
				       	  [31m--  		 Current_Mode := Current_Command;[m
							 
				       	  [31m--  		 Done := True;[m
							 
				       	  [31m--  	      end if;[m
				       	  [31m--  	   end if;[m
				       	  [31m--  	end;[m
						
				       	  [31m--     else[m
				       	  [31m--  	if Web_Index /= null then[m
				       	  [31m--  	   Previsious_mode := Current_Mode;[m
				       	  [31m--  	   Current_Mode := Current_Command;[m
						   
				       	  [31m--  	   Done := True;[m
						   
				       	  [31m--  	end if;[m
				       	  [31m--     end if;[m
				       	  [31m--     Search_Section := True;[m
				       	  [31m--  end if;[m
				       	  [31m--  Put_Line(Ansi_Tty_Control.Clear_Screen);[m
					  
					  
				       [01;34mwhen[m [35m7[m [31m=>[m
					  [01;34mif[m [01;34mnot[m App[31m.[mStarted [01;34mthen[m
					     Servers[31m.[mServer[31m.[mStart[31m;[m
					     
					  [01;34mend[m [01;34mif[m[31m;[m
					  App[31m.[mStarted [31m:=[m True[31m;[m
					  [01;30mFree[m[31m([m[01;30mWOPR_Menu[m[31m([m[35m6[m[31m));[m
					  [01;30mFree[m[31m([m[01;30mWOPR_Menu[m[31m([m[35m7[m[31m));[m
					  [01;30mWOPR_Menu[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"Procuct server started"[m[31m);[m
					  [01;30mWOPR_Menu[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"Procuct server stop"[m[31m);[m
					  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
				       [01;34mwhen[m [35m8[m [31m=>[m
					  [01;34mif[m App[31m.[mStarted [01;34mthen[m
					     Servers[31m.[mServer[31m.[mStop[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  App[31m.[mStarted [31m:=[m False[31m;[m
					  [01;30mFree[m[31m([m[01;30mWOPR_Menu[m[31m([m[35m6[m[31m));[m
					  [01;30mFree[m[31m([m[01;30mWOPR_Menu[m[31m([m[35m7[m[31m));[m
					  [01;30mWOPR_Menu[m[31m([m[35m6[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"Procuct server start"[m[31m);[m
					  [01;30mWOPR_Menu[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"Procuct server stopped"[m[31m);[m
					  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  [01;34mnull[m[31m;[m
				    [01;34mend[m [01;34mcase[m[31m;[m

				 [01;34mend[m [01;34mif[m[31m;[m
			      [01;34mwhen[m [01;34mothers[m [31m=>[m
				 [01;34mnull[m[31m;[m
				 
			   [01;34mend[m [01;34mcase[m[31m;[m		  

			[01;34mend[m [01;34mif[m[31m;[m

		     [01;34mexception[m
			
			[01;34mwhen[m End_Error [31m=>[m
			   [01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
			   Action_Last [31m:=[m [35m1[m[31m;[m
			   Menu_Index [31m:=[m [35m1[m[31m;[m
			   [01;30mWide_Free[m[31m([mLine[31m);[m
			   Is_Actions [31m:=[m False[31m;[m
			   
			   Done [31m:=[m False[31m;[m
			   
			   [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
			   Errno [31m:=[m [31m-[m[35m1[m[31m;[m
			   
			   
			   
			
		     [01;34mend[m[31m;[m
		  [01;34mend[m Receive[31m;[m

		  [01;34mif[m Done [01;34mthen[m
		     [01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
			End_Of_Section [31m:=[m False[31m;[m
			
			Web_Search[31m.[mStart[31m;[m
		     [01;34melsif[m Web_Index [31m/=[m [01;34mnull[m [01;34mthen[m
		     	End_Of_Section [31m:=[m False[31m;[m
			
		     	Web_Index[31m.[mStart[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     
		  [01;34melse[m
		     [01;34mif[m Is_Actions [01;34mthen[m
			[01;30mActions_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
		     [01;34melse[m
			[01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mor[m
	       [01;34mwhen[m Is_Actions [31m=>[m
		  [01;34maccept[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m)[m [01;34mdo[m
		     [01;34mif[m [01;30mIs_Control[m[31m([mWchar[31m)[m [01;34mthen[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m=>[m
			      [01;34mif[m Menu_Index [31m=[m [35m1[m [01;34mthen[m				 
				 [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
				 Is_Actions [31m:=[m False[31m;[m				 
			      [01;34melse[m
				 
				 [01;34mdeclare[m
				    
				    Action_Name [31m:[m [32mString[m [31m:=[m [01;30mActions_Menu[m[31m([mMenu_Index[31m).[m[01;34mall[m[31m([m[35m1[m[31m..[m[01;30mIndex[m[31m([m[01;30mActions_Menu[m[31m([mMenu_Index[31m).[m[01;34mall[m[31m,[m [31m"-"[m[31m,[m Backward[31m)-[m[35m1[m[31m);[m
				    Success [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
				    
				 [01;34mbegin[m
				    [01;34mnull[m[31m;[m
				 [01;34mend[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			   [01;34mwhen[m [01;34mothers[m [31m=>[m
			      [01;34mnull[m[31m;[m
			[01;34mend[m [01;34mcase[m[31m;[m		  
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Receive[31m;[m


	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       [01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mif[m [01;30mIs_Callable[m[31m([mWeb_id[31m)[m [01;34mthen[m
		     Web_Search[31m.[mHalt[31m;[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m	       
	       [01;34mif[m Web_index [31m/=[m [01;34mnull[m [01;34mthen[m
	       	  [01;34mif[m [01;30mIs_Callable[m[31m([mWeb_id[31m)[m [01;34mthen[m
	       	     Web_index[31m.[mHalt[31m;[m
		     
	       	  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m	       
	       [01;34mexit[m Main_loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m		  
		  [01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
		  [01;34mif[m App[31m.[mStarted [01;34mthen[m
		     [01;30mFree[m[31m([m[01;30mWOPR_Menu[m[31m([m[35m7[m[31m));[m
		     [01;30mWOPR_Menu[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"Procuct server started"[m[31m);[m
		  [01;34melse[m
		     [01;30mFree[m[31m([m[01;30mWOPR_Menu[m[31m([m[35m8[m[31m));[m
		     [01;30mWOPR_Menu[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"Procuct server started"[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  Action_Last [31m:=[m [35m1[m[31m;[m
		  Menu_Index [31m:=[m [35m1[m[31m;[m
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
		  
		  Is_Actions [31m:=[m False[31m;[m
		  Done [31m:=[m False[31m;[m
		  [01;34mdeclare[m
		     
		  [01;34mbegin[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m[31m;[m
		  
	       [01;34mend[m Wake_Up[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m Suspend [01;34mdo[m
		  Done [31m:=[m False[31m;[m
		  [31m--Put_Line(Ansi_Tty_Control.Clear_Screen);[m
		  [01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
		  
	       [01;34mend[m Suspend[31m;[m
	       [01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
		  [31m--  Text_Io.Put_Line("Suspend 1");[m
		  [31m--  if Is_Callable(Web_id) then[m
		  [31m--     Text_Io.Put_Line("Suspend 2");[m
		  [31m--     Web_Search.Halt;[m
		  [31m--     Text_Io.Put_Line("Suspend 16");[m
		  [31m--     Search_Section := False;[m
		  [31m--  end if;[m
		  Done [31m:=[m False[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m	       
	       
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Down [01;34mdo[m
		  [01;34mif[m [01;34mnot[m Adam[31m.[mResults[31m.[m[31m"="[m[31m([mShell_Interface[31m.[mSearch_Result[31m.[mFile_Content[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
		     [01;34mif[m File_Index[31m+([mResult_Max_Lines[31m/[m[35m4[m[31m-[m[35m1[m[31m)[m [31m<[m Shell_Interface[31m.[mSearch_Result[31m.[mFile_Content'Length  [01;34mthen[m
			File_Index [31m:=[m Positive'[01;30mMin[m[31m([mFile_Index[31m+([mResult_Max_Lines[31m/[m[35m4[m[31m-[m[35m1[m[31m),[m Shell_Interface[31m.[mSearch_Result[31m.[mFile_Content'Length [31m);[m		     
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Page_Down[31m;[m
	       [01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
	       
	       [01;30mMode_Info_Status[m[31m([mW1[31m,[m Null_Item[31m);[m
	       [31m--Main_Quit_Info_Status(W3, On_Esc);[m
	       [01;30mSearch_Result_Info[m[31m([mW7[31m,[m Shell_Interface[31m,[m errno[31m);[m			      
	       
	    [01;34mor[m
	       [01;34maccept[m Page_Up [01;34mdo[m
	    	  [01;34mif[m File_Index [31m>[m [31m([mResult_Max_Lines[31m/[m[35m4[m[31m-[m[35m1[m[31m)[m [01;34mthen[m
	    	     File_Index [31m:=[m File_Index [31m-[m [31m([mResult_Max_Lines[31m/[m[35m4[m[31m-[m[35m1[m[31m);[m
	    	  [01;34melse[m
	    	     File_Index [31m:=[m [35m0[m[31m;[m
	    	  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m Page_Up[31m;[m
	       [01;30mPut_Line[m[31m([mAnsi_Tty_Control[31m.[mClear_Screen[31m);[m
	       
	       [01;30mMode_Info_Status[m[31m([mW1[31m,[m Null_Item[31m);[m
	       [31m--Main_Quit_Info_Status(W3, On_Esc);[m
	       [01;30mSearch_Result_Info[m[31m([mW7[31m,[m Shell_Interface[31m,[m errno[31m);[m			      
	    [01;34mor[m
	       [01;34mwhen[m [01;34mnot[m Is_Actions [31m=>[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     [01;34mif[m Menu_Index [31m>[m [35m1[m [01;34mthen[m
			Menu_Index [31m:=[m Menu_Index [31m-[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Up_Arrow[31m;[m
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
	    [01;34mor[m
	       [01;34mwhen[m [01;34mnot[m Is_Actions [31m=>[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     
		     [01;34mif[m Menu_Index [31m<[m WOPR_Menu_Range'Last [01;34mthen[m
			
			Menu_Index [31m:=[m Menu_Index [31m+[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Down_Arrow[31m;[m

		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m

		  
	    [01;34mor[m
	       [01;34mwhen[m Is_Actions [31m=>[m
		  [01;34maccept[m Up_Arrow [01;34mdo[m
		     
		     [01;34mif[m Menu_Index [31m>[m [35m1[m [01;34mthen[m
			Menu_Index [31m:=[m Menu_Index [31m-[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Up_Arrow[31m;[m
		  [01;30mActions_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
	    [01;34mor[m
	       [01;34mwhen[m Is_Actions [31m=>[m
		  [01;34maccept[m Down_Arrow [01;34mdo[m
		     [01;34mif[m Menu_Index [31m<[m Action_Last [01;34mthen[m
			Menu_Index [31m:=[m Menu_Index [31m+[m [35m1[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m Down_Arrow[31m;[m
		  
		  [01;30mActions_Print[m[31m([mMenu_Win[31m,[m Menu_Index[31m);[m
		  
	    [01;34mor[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m   
	    [01;34mor[m
	       [01;34mdelay[m [35m0.05[m[31m;[m
	       

	       [01;34mif[m Done [01;34mthen[m
		  
		  [31m--  if Web_Search /= null then[m
		  
		  [31m--     if Is_Callable(Web_id) then[m

		  [31m--  	select		     [m
		  
		  
		  Data_Available [31m:=[m True[31m;[m
		  [31m--  	or[m
		  [31m--  	   delay 0.1;[m
		  
		  [31m--  	end select;[m
		  [31m--     end if;[m

		  [31m--  end if;[m

	       	  [01;34mif[m [01;30mIs_Callable[m[31m([mWeb_id[31m)[m [01;34mthen[m

		     [01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m

			Web_Search[31m.[m[01;30mSend[m[31m([mShell_Interface[31m.[mSearch_Result[31m);[m
			Web_Search[31m.[mstart[31m;[m		  

		     [01;34mend[m [01;34mif[m[31m;[m
		     [01;34mif[m Web_index [31m/=[m [01;34mnull[m [01;34mthen[m 

			Web_index[31m.[m[01;30mSend[m[31m([mShell_Interface[31m.[mSearch_Result[31m);[m

			Web_index[31m.[mstart[31m;[m

		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m

		  		  
		  [31m--delay 0.1;[m
		  [31m--Mode_Info_Status(W1, Null_Item);[m
		  
	       	  [31m--  Main_Quit_Info_Status(W3, On_Esc);[m
		  [01;34mif[m Data_Available [01;34mthen[m
		     [01;30mSearch_Result_Info[m[31m([mW7[31m,[m Shell_Interface[31m,[m errno[31m);[m			      
		     
		     [01;34mdeclare[m
			Pattern_Exp [31m:[m [01;34mconstant[m Regexp[31m.[mRegexp [31m:=[m Regexp[31m.[mCompile
			  [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mShell_Interface[31m.[mSearch_Result[31m.[mPattern[31m.[m[01;34mall[m[31m),[m
			   True[31m,[m True[31m);[m
			
		     [01;34mbegin[m
			
			Line_Count [31m:=[m [35m0[m[31m;[m
			[01;34mif[m [01;34mnot[m Adam[31m.[mResults[31m.[m[31m"="[m[31m([mShell_Interface[31m.[mSearch_Result[31m.[mFile_Content[31m,[m [01;34mnull[m[31m)[m [01;34mthen[m
		       Search_Loop[31m:[m
			   [01;34mfor[m I [01;34min[m File_Index[31m+[m[35m1[m[31m..[mPositive'[01;30mmin[m[31m([mFile_Index[31m+(([mResult_Max_Lines[31m-[m[35m2[m[31m)),[m 
							       Shell_Interface[31m.[mSearch_Result[31m.[mFile_Content'Length[31m)[m [01;34mloop[m
			      [01;34mdeclare[m
				 tmp [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m 
				   Ada[31m.[mStrings[31m.[mUTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mDecode[m[31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mShell_Interface[31m.[mSearch_Result[31m.[m[01;30mFile_Content[m[31m([mI[31m)));[m
				 Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mTmp[m[31m([mTmp'First[31m..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mTmp[31m),[m Backward[31m));[m
				 
				 Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Term_Width[31m-[m[35m5[m[31m;[m
				 Lines_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [31m([mResult_Max_Lines[31m-[m[35m3[m[31m);[m
			      [01;34mbegin[m
				 [01;34mif[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m>[m [35m0[m [01;34mand[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m<[m [31m([mChars_Max [31m*[m Lines_Max[31m)[m [01;34mthen[m				  
				    
				    [01;34mfor[m Line_Window [01;34min[m Line_Index[31m..[m[32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m([mLine[31m)/([mChars_Max[31m+[m[35m1[m[31m),[m Lines_Max[31m)[m [01;34mloop[m
				       
				       [01;34mdeclare[m
					  B_Inf [31m:[m [01;34mconstant[m Positive [31m:=[m Line_Window[31m*[mChars_Max [31m+[m [35m1[m[31m;[m
					  B_Sup [31m:[m [01;34mconstant[m Positive [31m:=[m [32mInteger[m'[01;30mmin[m[31m(([mLine_Window [31m+[m [35m1[m[31m)*[mChars_Max[31m,[m [01;30mReal_Length[m[31m([mLine[31m));[m
				       [01;34mbegin[m
					  [01;34mif[m [01;30mReal_length[m[31m([mLine[31m)[m [31m<[m Chars_max [01;34mthen[m
					     
					     [01;34mif[m Regexp[31m.[mMatch
					       [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m),[m 
						Pattern_Exp[31m)[m [01;34mthen[m
						
						Ansi_Windows[31m.[m[01;30mDraw[m [31m([mW10[31m,[m Line_Count [31m+[m [35m1[m[31m,[m [35m2[m[31m,[m Red[31m,[m [31m([mLine[31m));[m
					     [01;34melse[m
						Ansi_Windows[31m.[m[01;30mDraw[m [31m([mW10[31m,[m Line_Count [31m+[m [35m1[m[31m,[m [35m2[m[31m,[m White[31m,[m [31m([mLine[31m));[m
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34melse[m
					     [01;34mif[m Regexp[31m.[mMatch
					       [31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m),[m 
						Pattern_Exp[31m)[m [01;34mthen[m
						Ansi_Windows[31m.[mDraw 
						  [31m([mW10[31m,[m 
						   Line_count [31m+[m [35m1[m[31m,[m
						   [35m2[m[31m,[m 
						   Red[31m,[m 
						   [31m([m[01;30mLine[m[31m([mB_inf[31m..[mB_sup[31m))[m
						  [31m);[m
					     [01;34melse[m
						Ansi_Windows[31m.[mDraw 
						  [31m([mW10[31m,[m 
						   Line_count [31m+[m [35m1[m[31m,[m
						   [35m2[m[31m,[m 
						   White[31m,[m 
						   [31m([m[01;30mLine[m[31m([mB_inf[31m..[mB_sup[31m))[m
						  [31m);[m						      
					     [01;34mend[m [01;34mif[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m                 
				       [01;34mend[m[31m;[m
				       Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
				       [01;34mexit[m Search_Loop [01;34mWhen[m Line_Count [31m>[m [31m([mResult_Max_lines [31m-[m [35m3[m[31m);[m                                          
				    [01;34mend[m [01;34mloop[m[31m;[m
				 [01;34melse[m
				    Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
				 [01;34mend[m [01;34mif[m[31m;[m                           
			      [01;34mend[m[31m;[m
			      [01;34mexit[m Search_Loop [01;34mwhen[m Line_Count [31m>[m [31m([mResult_Max_Lines [31m-[m [35m3[m[31m);[m
			   [01;34mend[m [01;34mloop[m Search_Loop[31m;[m
			[01;34mend[m [01;34mif[m[31m;[m
		     [01;34mexception[m
			
			[01;34mwhen[m [01;34mothers[m [31m=>[m
			   [01;34mnull[m[31m;[m
			   
		     [01;34mend[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;30mMode_Initialization[m[31m([mW1[31m,[m Current_Mode[31m,[m On_Esc[31m,[m Message [31m=>[m [01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mClock[31m)));[m
		  [01;34mif[m [01;30mIs_Callable[m[31m([mWeb_id[31m)[m [01;34mthen[m
		     [01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
			Web_Search[31m.[mStart[31m;[m
		     [01;34melsif[m Web_Index [31m/=[m [01;34mnull[m [01;34mthen[m
			Web_index[31m.[mStart[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m Menu_Loop[31m;[m


	 [01;34mloop[m

	    [01;34mselect[m
	       [01;34maccept[m Left_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Right_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Del[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Begin_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m End_Of[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Overwrite[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Up_Arrow[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Down_Arrow[31m;[m
	    [01;34mor[m
	       

	       [01;34maccept[m Page_Down[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Page_Up[31m;[m
	       
	    [01;34mor[m
	       [01;34maccept[m Halt [01;34mdo[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Halting WOPR..."[m[31m);[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mif[m [01;30mIs_Callable[m[31m([mWeb_id[31m)[m [01;34mthen[m

		     Web_Search[31m.[mHalt[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m		  
	       [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mif[m Web_index [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;34mif[m [01;30mIs_Callable[m[31m([mWeb_id[31m)[m [01;34mthen[m

		     Web_index[31m.[mHalt[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m		  
	       [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mexit[m Main_Loop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Suspend[31m;[m[31m--   do[m
	       [31m--  Done := False;[m
	       [31m--  Put_Line(Ansi_Tty_Control.Clear_Screen);[m
	       [31m--  end Suspend;[m
	       
	       [01;34mif[m Web_search [31m/=[m [01;34mnull[m [01;34mthen[m

	       	  [01;34mif[m [01;30mIs_Callable[m[31m([mWeb_id[31m)[m [01;34mthen[m
		     
	       	     Web_Search[31m.[mHalt[31m;[m

	       	     Search_Section [31m:=[m False[31m;[m
	       	  [01;34mend[m [01;34mif[m[31m;[m

	       [01;34mend[m [01;34mif[m[31m;[m	      
 

	    [01;34mor[m
	       [01;34maccept[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m)[m [01;34mdo[m
		  [01;34mif[m App[31m.[mStarted [01;34mthen[m
		     [01;30mFree[m[31m([m[01;30mWOPR_Menu[m[31m([m[35m7[m[31m));[m
		     [01;30mWOPR_Menu[m[31m([m[35m7[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"Procuct server started"[m[31m);[m
		  [01;34melse[m
		     [01;30mFree[m[31m([m[01;30mWOPR_Menu[m[31m([m[35m8[m[31m));[m
		     [01;30mWOPR_Menu[m[31m([m[35m8[m[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"Procuct server stopped"[m[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  Done [31m:=[m False[31m;[m
		  Data_Available [31m:=[m False[31m;[m
		  Action_Last [31m:=[m [35m1[m[31m;[m
		  Menu_Index [31m:=[m [35m1[m[31m;[m
		  
		  [01;34mif[m Web_Search [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;34mif[m [01;30mIs_Callable[m[31m([mWeb_id[31m)[m [01;34mthen[m
			Previsious_mode [31m:=[m Current_Command[31m;[m
			Current_Mode [31m:=[m search[31m;[m
			File_Index [31m:=[m [35m0[m[31m;[m
			Line_Index [31m:=[m [35m0[m[31m;[m		  
			Done [31m:=[m True[31m;[m
			[31m--Search_Section := True;[m
			
		     [01;34melse[m
			[01;34mabort[m Web_Search[31m.[m[01;34mAll[m[31m;[m
			Web_Search [31m:=[m [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34melsif[m Web_index [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;34mif[m [01;30mIs_Callable[m[31m([mWeb_id[31m)[m [01;34mthen[m
		  	Previsious_mode [31m:=[m Current_Command[31m;[m
		  	Current_Mode [31m:=[m search[31m;[m
		  	File_Index [31m:=[m [35m0[m[31m;[m
		  	Line_Index [31m:=[m [35m0[m[31m;[m		  
		  	Done [31m:=[m True[31m;[m
		  	[31m--Search_Section := True;[m
			
		     [01;34melse[m
		  	[01;34mabort[m Web_index[31m.[m[01;34mAll[m[31m;[m
		  	Web_index [31m:=[m [01;34mnull[m[31m;[m
		     [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
		  Is_Actions [31m:=[m False[31m;[m		  
		  [01;34mdeclare[m
		     
		  [01;34mbegin[m
		     [01;34mnull[m[31m;[m
		  [01;34mend[m[31m;[m
	       [01;34mend[m Wake_Up[31m;[m	    	       
	       [01;34mexit[m[31m;[m	       

	    [01;34mend[m [01;34mselect[m[31m;[m

	 [01;34mend[m [01;34mloop[m[31m;[m

      [01;34mend[m [01;34mloop[m Main_Loop[31m;[m    

      [01;30mTextual_Interface_Type[m[31m([mShell_Interface[31m.[m[01;34mall[m[31m).[mTextual_Thread[31m.[mHalt[31m;[m
      W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"WOPR process halted"[m[31m);[m
   [01;34mend[m WOPR_Process[31m;[m
   
   [01;34muse[m Gnos[31m.[mResults[31m;[m
   [01;34mfunction[m [01;30mPrint_Set[m [31m([mSet [31m:[m [01;34min[m M[31m.[mtools[31m.[mWide_Result_Access[31m;[m
		       Into [31m:[m [01;34min[m Window_Record[31m;[m
		       Top [31m:[m [01;34min[m Line_Index_Range[31m;[m		       
		       Total_Lines[31m:[m [01;34mout[m Natural[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
      height [31m:[m [01;34mconstant[m Positive [31m:=[m Into[31m.[mWin[31m.[mH[31m-[m[35m2[m[31m;[m
      Width  [31m:[m [01;34mconstant[m Positive [31m:=[m Into[31m.[mWin[31m.[mW[31m-[m[35m2[m[31m;[m
      Line_Count [31m:[m Natural [31m:=[m [35m0[m[31m;[m      
   [01;34mbegin[m
      Total_Lines [31m:=[m [35m0[m[31m;[m
      [01;34mif[m Set[31m.[mwlines'length [31m=[m [35m0[m [01;34mthen[m

	 [01;34mreturn[m True[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      
  Print_Loop[31m:[m
      [01;34mfor[m I [01;34min[m Top[31m+[m[35m1[m [31m..[m Positive'[01;30mmin[m[31m([mTop[31m+[mHeight[31m,[m Set[31m.[mwlines'length[31m)[m [01;34mloop[m
	 
	 [01;34mdeclare[m
	    tmp [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mSet[31m.[m[01;30mwlines[m[31m([mI[31m)));[m
	    Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mTmp[m[31m([mTmp'First[31m..[mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m(([mTmp[31m),[m Backward[31m));[m
	    
	    Chars_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Width[31m-[m[35m1[m[31m;[m
	    Lines_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Height[31m;[m
	    
	    
	    B_Inf [31m:[m Positive [31m:=[m [35m1[m[31m;[m
	    B_Sup [31m:[m Positive [31m:=[m Chars_Max[31m;[m
	    
	    Bot   [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 [01;34mbegin[m
	    
	    [01;34mif[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m>[m [35m0[m [01;34mand[m [01;30mReal_Length[m[31m([mLine[31m)[m [31m<[m [31m([mChars_Max [31m*[m Lines_Max[31m)[m [01;34mthen[m
	       
	       
	       [01;34mfor[m Line_Window [01;34min[m [35m0[m [31m..[m [32mInteger[m'[01;30mmin[m[31m([m[01;30mReal_Length[m[31m([mLine[31m)/[mChars_Max[31m,[m Lines_Max[31m)[m [01;34mloop[m
		  
		  B_Inf [31m:=[m Line_Window[31m*[mChars_Max [31m+[m [35m1[m[31m;[m
		  B_Sup [31m:=[m [32mInteger[m'[01;30mmin[m[31m(([mLine_Window [31m+[m [35m1[m[31m)*[mChars_Max[31m,[m [01;30mReal_Length[m[31m([mLine[31m));[m
		  [01;34mbegin[m
		     
		     [01;34mif[m [01;30mReal_length[m[31m([mLine[31m)[m [31m<=[m Chars_max [01;34mthen[m
			[01;30mDraw_Text[m[31m([mInto[31m,[m Line_Count [31m+[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m Line[31m);[m
		     [01;34melse[m
			[01;30mDraw_Text[m[31m([mInto[31m,[m Line_Count [31m+[m [35m1[m[31m,[m [35m1[m[31m,[m White[31m,[m [01;30mLine[m[31m([mB_Inf[31m..[mB_Sup[31m));[m                            
		     [01;34mend[m [01;34mif[m[31m;[m                 
		  [01;34mend[m[31m;[m
		  
		  Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
		  [01;34mif[m Line_Count [31m>=[m height [01;34mthen[m		     
		     [01;34mexit[m Print_Loop[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
	       [01;34mend[m [01;34mloop[m[31m;[m
	    [01;34melse[m
	       
	       Line_Count [31m:=[m Line_Count [31m+[m [35m1[m[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m                           
	 [01;34mend[m[31m;[m
	 
	 [01;34mif[m Line_Count [31m>[m height [01;34mthen[m	    
	    [01;34mexit[m Print_Loop[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m	 
      [01;34mend[m [01;34mloop[m Print_Loop[31m;[m
      
      Total_Lines [31m:=[m Line_Count[31m;[m
      [01;34mreturn[m True[31m;[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mreturn[m False[31m;[m
   [01;34mend[m Print_Set[31m;[m
   
   
   [01;34mprocedure[m [01;30mOpen_Doc[m [31m([mLines_Table [31m:[m [01;34min[m [01;34mout[m Wide_Set[31m;[m
		       Docume [31m:[m [01;34mout[m Docume_Access[31m;[m
		       Filename [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mis[m
      
      File [31m:[m W_Io[31m.[mFile_Type[31m;[m
      Line_Last    [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Dot_Index    [31m:[m Natural [31m:=[m [35m0[m[31m;[m      
      Owner_result [31m:[m M[31m.[mTools[31m.[mWide_Result_Access[31m;[m      
      Success      [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Errno        [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m

      Line_Last [31m:=[m [35m0[m[31m;[m

      [01;30mSet_Free[m[31m([mLines_Table[31m);[m

      [01;34mif[m Os_Lib[31m.[m[01;30mIs_Regular_File[m[31m([mFilename[31m)[m [01;34mthen[m

	 W_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m W_Io[31m.[mIn_File[31m,[m Filename[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m

	 [01;34mwhile[m [01;34mnot[m W_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
	    [01;34mdeclare[m
	       Wline [31m:[m [01;34mconstant[m Wide_Access [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m
	    [01;34mbegin[m
	       
	       Lines_Table[31m.[m[01;30mLines[m[31m([mLine_Last [31m+[m [35m1[m[31m)[m [31m:=[m Wline[31m;[m
	       Line_Last [31m:=[m Line_Last [31m+[m [35m1[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m	 

	 Lines_Table[31m.[mLine_Last [31m:=[m Line_Last[31m;[m	 
	 
	 W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
	 
	 
	 
	 Docume [31m:=[m [01;34mnew[m Docume_Record[31m;[m
	 
	 Docume[31m.[mCreation_Date [31m:=[m [01;30mTime_Of[m[31m([m[35m1970[m[31m,[m [35m1[m[31m,[m [35m1[m[31m,[m [35m0.0[m[31m);[m
	 Docume[31m.[mLast_Edition [31m:=[m Clock[31m;[m

	 Docume[31m.[mFilename [31m:=[m [01;34mnew[m [32mString[m ' [31m([mFilename[31m);[m

	 [01;34mdeclare[m
	    Dir [31m:[m Dir_Name_Str [31m:=[m [01;30mDir_Name[m [31m([mFilename[31m);[m
	 [01;34mbegin[m
	    [01;34mcase[m Os_Constants[31m.[mTarget_Os [01;34mis[m
	       [01;34mwhen[m Os_Constants[31m.[mOther_Os [31m=>[m
		  
		  Docume[31m.[mFullpath [31m:=[m [01;34mnew[m [32mString[m ' [31m([mDir [31m&[m Dir_Separator [31m&[m [01;30mBase_Name[m[31m([mFilename[31m));[m
		  

		  Owner_Result [31m:=[m [01;34mnew[m M[31m.[mTools[31m.[mResult_Record ' 
		    [31m([mM[31m.[mTools[31m.[m[01;30mSpawn[m[31m([m[31m"ls -l "[m [31m&[m Docume[31m.[mFilename[31m.[m[01;34mall[m[31m,[m [31m".Out_File.txt"[m[31m));[m
		  

		  
		  [01;34mif[m [31m([m [01;34mnot[m [31m([mM[31m.[mTools[31m.[m[31m"="[m[31m([mOwner_Result[31m,[m [01;34mnull[m[31m))[m [01;34mand[m [01;34mthen[m
			[31m([m[01;34mnot[m M[31m.[mTools[31m.[m[31m"="[m[31m([mOwner_Result[31m.[mWlines[31m,[m [01;34mnull[m[31m)))[m [01;34mthen[m
		     [01;34mdeclare[m
			Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [31m([mGnos[31m.[mResults[31m.[m[31m"-"[m[31m([mOwner_Result[31m.[m[01;30mWlines[m[31m([m[35m1[m[31m)));[m
			Top  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
			Bot  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
		     [01;34mbegin[m
			[01;34mfor[m I [01;34min[m [35m1[m[31m..[m[35m2[m [01;34mloop[m
			   Top [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mLine[m[31m([mTop[31m+[m[35m1[m[31m..[mLine'Last[31m),[m [31m" "[m[31m);[m
			[01;34mend[m [01;34mloop[m[31m;[m
			Bot [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([m[01;30mLine[m[31m([mTop[31m+[m[35m1[m[31m..[mLine'Last[31m),[m [31m" "[m[31m);[m
			Docume[31m.[mOwner [31m:=[m [01;34mnew[m [32mString[m ' [31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mTop[31m+[m[35m1[m[31m..[mBot[31m-[m[35m1[m[31m)));[m
		     [01;34mend[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m

	       [01;34mwhen[m Os_Constants[31m.[mWindows [31m=>[m
		  
		  Docume[31m.[mFullpath [31m:=[m [01;34mnew[m [32mString[m ' [31m([mDir [31m&[m Dir_Separator [31m&[m [01;30mBase_Name[m[31m([mFilename[31m));[m
	       [01;34mwhen[m [01;34mothers[m [31m=>[m
		  [01;34mnull[m[31m;[m
	    [01;34mend[m [01;34mcase[m[31m;[m
	    
	 [01;34mend[m[31m;[m

	 Dot_Index [31m:=[m Fixed[31m.[m[01;30mIndex[m[31m([mFilename[31m,[m [31m"."[m[31m);[m
	 [01;34mif[m Dot_Index [31m/=[m [35m0[m [01;34mthen[m
	    Docume[31m.[mTitle [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mBase_Name[m[31m([mFilename[31m,[m [01;30mFilename[m[31m([mDot_Index[31m..[mFilename'Last[31m)));[m
	    
	    Docume[31m.[mUnit [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mFilename[m[31m([mDot_Index[31m+[m[35m1[m[31m..[mFilename'Last[31m));[m
	 [01;34melse[m
	    Docume[31m.[mTitle [31m:=[m [01;34mnew[m [32mString[m ' [31m([mDirectories[31m.[m[01;30mSimple_Name[m[31m([mFilename[31m));[m
	    Docume[31m.[mUnit [31m:=[m [01;34mnew[m [32mString[m ' [31m([mDirectories[31m.[m[01;30mSimple_Name[m[31m([mFilename[31m));[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 Docume[31m.[mOpenned [31m:=[m True[31m;[m	 

	 Docume[31m.[mSize [31m:=[m [01;30mSet_Size[m[31m([mLines_Table[31m);[m

      [01;34melse[m
	 
	 [01;34mdeclare[m
	    
	    Not_Found [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mNew_Wide_String[m[31m([m[31m"Open document : document not found."[m[31m,[m [31m"Press 'enter' to continue."[m[31m,[m [35m30[m[31m,[m lines[31m/[m[35m2[m[31m-[m[35m1[m[31m,[m Columns[31m/[m[35m4[m[31m-[m[35m15[m[31m,[m False[31m);[m
	 [01;34mbegin[m
	    [01;34mnull[m[31m;[m
	 [01;34mend[m[31m;[m
	 [01;34mraise[m Spec_Error[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Open_Doc[31m;[m
   
[01;34mend[m M[31m.[mAgence [31m;[m 
