[31m-- Skywalker is another attempt of A. i. written with Ada.[m
[31m-- Skywalker is Copyright (C) 2024 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 := 2024-12-25 15:37:14 ; [m
[31m-- Version := 0.18.7r ; [m
[01;34mwith[m Sky[31m.[mShared[31m;[m
[01;34muse[m Sky[31m.[mShared[31m;[m
[01;34mwith[m Sky[31m.[mStrings[31m;[m
[01;34muse[m Sky[31m.[mStrings[31m;[m
[01;34mwith[m Sky[31m.[mAttributes[31m;[m
[01;34muse[m Sky[31m.[mAttributes[31m;[m
[01;34mwith[m Sky[31m.[mShell[31m;[m
[01;34mwith[m Sky[31m.[mTools[31m;[m
[01;34muse[m Sky[31m.[mShell[31m;[m
[01;34muse[m Sky[31m.[mTools[31m;[m

[01;34mwith[m Sky[31m.[mVersions[31m;[m
[01;34mwith[m Sky[31m.[mVersions[31m.[mVersion_Io[31m;[m
[01;34muse[m Sky[31m.[mVersions[31m;[m
[01;34muse[m Sky[31m.[mVersions[31m.[mVersion_Io[31m;[m

[01;34mwith[m Sky[31m.[mAnsi[31m.[mConsole[31m;[m
[01;34muse[m Sky[31m.[mAnsi[31m.[mConsole[31m;[m



[31m----------------------------------------------------------[m
[31m-- Mode none[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 Ada[31m.[mStrings[31m.[mFixed[31m;[m
[01;34mwith[m Ada[31m.[mCharacters[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

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

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

[01;34mwith[m Ada[31m.[mContainers[31m.[mVectors[31m;[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;34muse[m Gnos[31m;[m

[01;34mwith[m Gnos[31m.[mResults[31m;[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

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

[01;34mwith[m Ada[31m.[mStrings[31m.[mWide_Fixed[31m;[m
[01;34muse[m Ada[31m.[mStrings[31m;[m
[31m----------------------------------------------------------[m
[31m-- Activity[m
[01;34mwith[m Sky[31m.[mAccountant[31m;[m
[01;34muse[m Sky[31m.[mAccountant[31m;[m
[01;34mwith[m Sky[31m.[mBalance[31m;[m
[01;34muse[m Sky[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

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

[01;34mpackage[m [01;34mbody[m Sky[31m.[mWalk [01;34mis[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 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
   
   
   
   
   
   
   
   
   [01;34muse[m Ansi_Windows[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;30mVersion_Update[m[31m([mVersion [31m:[m [01;34min[m  Sky[31m.[mVersions[31m.[mVersion_Type[31m)[m [01;34mreturn[m Sky[31m.[mVersions[31m.[mVersion_Type [01;34mis[m
      The_Version [31m:[m Sky[31m.[mVersions[31m.[mVersion_Type [31m:=[m version[31m;[m

   [01;34mbegin[m
      [01;34mif[m New_Action [01;34mand[m [31m([m[01;34mnot[m New_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 New_Description [01;34mand[m New_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 New_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;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/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[31m'Length + ((Cpu_String'[mLength[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[31m'Length) := '[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 None_Process [01;34mis[m
      Lock [31m:[m [01;30mBinary_Semaphore[m[31m([mTrue[31m,[m Default_Ceiling[31m);[m
      Text [31m:[m Wide_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 String_Access[31m;[m
      
      Cpu_Lock [31m:[m [01;30mBinary_Semaphore[m[31m([mTrue[31m,[m Default_Ceiling[31m);[m
      [31m--Application : App_Access;[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 String_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' (Term_Enum'[m[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[31m'Length) & ":" & Total_Type'[m[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[31m'length) * '[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[31m'length) * '[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[31m'Image(Total_Sum)'[mLength[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 Wide_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 Wide_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  
   [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 --color"[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
			      Lock[31m.[mSeize[31m;[m
			      [01;34mdeclare[m
				 Line [31m:[m [01;34mconstant[m String_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 Wide_String_Access[31m;[m
				 buffer [31m:[m String_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
				    [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
				    [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([m[01;30mDelete_Local_Prefix[m[31m([mHandling[31m.[m[01;30mTo_String[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;34mwhen[m Wide_Character[31m'Val(10) | Wide_Character'[m[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' (Text(Args_Index..Text'[mLength[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' (Text(Args_Index..Text'[mlength[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;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 String_Access[31m;[m
					  Buffer      [31m:[m String_Access[31m;[m
					  Normal      [31m:[m String_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[31m'Length = Text'[mLength [01;34mthen[m
					     
					     [01;34mdeclare[m
						
						Args [31m:[m [01;34mconstant[m Argument_List_Access [31m:=[m Argument_String_To_List
						  [31m([m
						   [31m"-c "[m [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
					     [01;34mbegin[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[01;34mall[m'Length [31m/=[m [35m0[m [01;34mthen[m
						   Errno [31m:=[m [01;30mSpawn[m[31m([m[31m"/usr/bin/sh"[m[31m,[m Args[31m.[m[01;34mall[m[31m);[m
						[01;34mend[m [01;34mif[m[31m;[m
					     [01;34mend[m[31m;[m
					     
					  [01;34melse[m
					     
					     [01;34mdeclare[m
						
						Args [31m:[m [01;34mconstant[m Argument_List_Access [31m:=[m [01;34mnew[m Argument_List [31m' (new String '[m [31m([m[31m"-c"[m[31m),[m 
													     [01;34mnew[m [32mString[m ' [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 
															     Handling[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[31m'Length+2..Text'[mLast[31m)[m
															  [31m)[m
													    [31m);[m
						
					     [01;34mbegin[m
						[01;30mNormalize_Arguments[m[31m([mArgs[31m.[m[01;34mall[m[31m);[m
						Errno [31m:=[m [01;30mSpawn[m[31m([m[31m"/usr/bin/sh"[m[31m,[m Args[31m.[m[01;34mall[m[31m);[m
					     [01;34mend[m[31m;[m
					     
					     
					  [01;34mend[m [01;34mif[m[31m;[m
				       [01;34melse[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;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
			      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' (Text.all(Text'[mFirst[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 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 [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
		     
		     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
		     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;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[31m'Pos(Log) + 3, 2, Yellow, Handling.To_Wide_String(Log_Enum'[m[01;30mImage[m[31m([mLog[31m)));[m
	 [01;30mDraw_Text[m[31m([mWin[31m,[m Log_Enum[31m'Pos(Log) + 3, 15, white, " : " & Handling.To_Wide_String(Rate_Type'[m[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[31m'Pos(Log_Enum'[mLast[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[31m'Pos(Log_Enum'[mLast[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[31m'Pos(Log_Enum'[mLast[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
   
   
   
   Window [31m:[m Window_Type[31m;[m
   
   [01;34mtask[m [01;34mbody[m Log_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 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 Log_Process[31m;[m
   
   
   [31m-------------------------------------------------------------------------------------------------------------[m
   [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[31m'Image(Line.Line_Num) & Character'[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[31m'Image(Line.Quantity) & Character'[m[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m
	   Fixed_Factor[31m'Image(Line.Tva_Rate) & Character'[m[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m
	   Fixed_total[31m'Image(Line.total_ht) & Character'[m[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m
	   Fixed_total[31m'Image(Line.total_TVA) & Character'[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 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 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 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 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 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 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 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 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 Wide_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 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 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 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 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 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 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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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 Sky[31m.[mBalance[31m.[mOutvoice_Num [31m+[m [35m1[m[31m;[m

				       Sky[31m.[mBalance[31m.[mOutvoice_Num [31m:=[m Sky[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 Stocks_Manager[31m.[m[01;30mIn_Stocks[m[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
						      
						      Stocks_Manager[31m.[m[01;30mRemove_From_stock[m[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([mSky[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 Sky[31m.[mBalance[31m.[mInvoice_Num [31m+[m [35m1[m[31m;[m

				       Sky[31m.[mBalance[31m.[mInvoice_Num [31m:=[m Sky[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 Stocks_Manager[31m.[m[01;30mIn_Stocks[m[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([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

						      Stocks_Manager[31m.[mHard_Num [31m:=[m 
							Stocks_Manager[31m.[mHard_Num [31m+[m [35m1[m[31m;[m
						      
						      Stocks_Manager[31m.[m[01;30mStock_Add[m[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

						      Stocks_Manager[31m.[m[01;30mUpdate_Stock[m[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;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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[31m.[mBalance[31m.[mBalance[31m,[m Accountant[31m.[mAccounts[31m);[m			    
				       [01;30mCharge[m[31m([mSky[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 Sky[31m.[mBalance[31m.[mOutvoice_Num [31m+[m [35m1[m[31m;[m
					  Sky[31m.[mBalance[31m.[mOutvoice_Num [31m:=[m Sky[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 Stocks_Manager[31m.[m[01;30mIn_Stocks[m[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([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
							 Stocks_Manager[31m.[mSoft_Num [31m:=[m 
							   Stocks_Manager[31m.[mSoft_Num [31m+[m [35m1[m[31m;[m
							 Stocks_Manager[31m.[m[01;30mStock_Add[m[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
							 
							 Stocks_Manager[31m.[m[01;30mAdd_To_stock[m[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([mSky[31m.[mBalance[31m.[mBalance[31m,[m Accountant[31m.[mAccounts[31m);[m
				       [01;34mend[m [01;34mif[m[31m;[m
				       [01;30mOpen[m[31m([mSky[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([mSky[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 Sky[31m.[mBalance[31m.[mInvoice_Num [31m+[m [35m1[m[31m;[m
				       Sky[31m.[mBalance[31m.[mInvoice_Num [31m:=[m Sky[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;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([mSky[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([mSky[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([mSky[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([mSky[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 Screen_Print[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 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 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 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 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 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 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 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  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 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 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 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 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([mSky[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([mSky[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([mSky[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([mSky[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;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([mSky[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([mSky[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([mSky[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([mSky[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([mSky[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 Screen_Print[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 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 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 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 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 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 Stocks_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[31m'Last, Handling.To_Wide_String(Quantity_Range'[m[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[31m'Last, Handling.To_Wide_String(Fixed_Unit_Ht'[m[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[31m'Last, Handling.To_Wide_String(Fixed_Factor'[m[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 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 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 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 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;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 Stocks_Manager[31m.[mSoftware[31m.[mStock_Last [31m+[m [35m1[m[31m,[m Stocks_Manager[31m.[mSoft_Num[31m);[m

						Stocks_Manager[31m.[m[01;30mAdd_To_Stock[m[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 Stocks_Manager[31m.[mHardware[31m.[mStock_Last [31m+[m [35m1[m[31m,[m Stocks_Manager[31m.[mHard_Num[31m);[m
						Stocks_Manager[31m.[m[01;30mAdd_To_Stock[m[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([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([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[31m'Value(Handling.To_String(Line_num(Line'[mFirst[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
						   Stocks_Manager[31m.[m[01;30mStock_Remove[m[31m([mStocks_Manager[31m.[mSoftware[31m,[m Stock_Num[31m);[m
						[01;34mwhen[m Hardware [31m=>[m
						   Stocks_Manager[31m.[m[01;30mStock_Remove[m[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([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([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([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([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 Stocks_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 Stocks_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([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 Stocks_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 Stocks_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([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([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([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 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 [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([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([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;34mtask[m [01;34mbody[m Bank_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"Bank"[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"Bank"[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 Bank_Process[31m;[m
   
   [01;34muse[m Abstract_Vectors[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 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"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 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 Clock [31m>=[m E[31m.[mDate [01;34mand[m [01;34mthen[m
	      E[31m.[mDate [31m+[m E[31m.[mPeriod [31m>[m Clock [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[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 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 Obj[31m.[mInfo[31m.[mChilds_Num [31m/=[m [35m0[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 [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
   
   [01;34mfunction[m [31m"<"[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;34mreturn[m Left[31m.[mDate [31m<[m Right[31m.[mDate[31m;[m
   [01;34mend[m [31m"<"[m[31m;[m
   
   [01;34mpackage[m Date_Sorting [01;34mis[m [01;34mnew[m Abstract_Vectors[31m.[m[01;30mGeneric_Sorting[m[31m([m[31m"<"[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 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;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;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 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 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
   
   
   [01;34mtask[m [01;34mbody[m Library_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"Library"[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 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"Library"[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("Library process halted");[m
   [01;34mend[m Library_Process[31m;[m
   
   [31m---------------------------------------------------------------------------------------------------------------[m
   [31m--                                                                                                           --[m
   [31m--                                        Ada projects manager                                               --[m
   [31m--                                                                                                           --[m
   [31m---------------------------------------------------------------------------------------------------------------[m
   
   
   
   [01;34mprocedure[m [01;30mLoad_File[m [31m([mSet [31m:[m [01;34min[m [01;34mout[m Wide_String_Set[31m;[m Name [31m:[m [01;34min[m [32mString[m[31m;[m Last [31m:[m [01;34mout[m Line_Index_Range[31m)[m [01;34mis[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 Name[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
      Last [31m:=[m [35m0[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
   	    Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[mW_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m);[m
   	 [01;34mbegin[m

   	    Set[31m.[m[01;30mLines[m[31m([mLast[31m+[m[35m1[m[31m)[m [31m:=[m [01;34mnew[m [32mWide_String[m ' [31m([mLine[31m);[m
   	    Last [31m:=[m Last [31m+[m [35m1[m[31m;[m

   	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      Set[31m.[mLine_Last [31m:=[m Last[31m;[m
      W_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
   [01;34mend[m Load_File[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 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 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;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 String_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 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 Blue[31m,[m 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;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 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 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;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 Sky[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[31m'Image(Info.Version.Major_Version)(2..Integer'[m[01;30mImage[m[31m([mInfo[31m.[mVersion[31m.[mMajor_Version[31m)[m[31m'Last) & '[m ' [31m&[m
		 [32mInteger[m[31m'Image(Info.Version.Minor_Version)(2..Integer'[m[01;30mImage[m[31m([mInfo[31m.[mVersion[31m.[mMinor_Version[31m)[m[31m'Last) & '[m ' [31m&[m
		 [32mInteger[m[31m'Image(Info.Version.Revision_Version)(2..Integer'[m[01;30mImage[m[31m([mInfo[31m.[mVersion[31m.[mRevision_Version[31m)[m[31m'Last) & '[m ' [31m&[m
		 Info[31m.[mVersion[31m.[mRelease_Version[31m);[m
      
      [01;30mPut_Line[m[31m([m[31m"Upgrade "[m [31m&[m [32mInteger[m[31m'Image(Version.Major_Version)(2..Integer'[m[01;30mImage[m[31m([mVersion[31m.[mMajor_Version[31m)[m[31m'Last) & '[m ' [31m&[m
		 [32mInteger[m[31m'Image(Version.Minor_Version)(2..Integer'[m[01;30mImage[m[31m([mVersion[31m.[mMinor_Version[31m)[m[31m'Last) & '[m ' [31m&[m
		 [32mInteger[m[31m'Image(Version.Revision_Version)(2..Integer'[m[01;30mImage[m[31m([mVersion[31m.[mRevision_Version[31m)[m[31m'Last) & '[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
      [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([mSky[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([mSky[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
      
	   
      
      
      
      
      
      
      
      
       [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;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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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[31m'Value(Line(Line'[mFirst[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 String_Access[31m;[m
      The_Lang  [31m:[m String_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 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[31m'Length+Fr_Msg'[mLength[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[31m'Length+fr_Msg'[mLength[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[31m'Length+fr_Msg'[mLength[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[31m'Length+fr_Msg'[mLength[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[31m'Length+En_Msg'[mLength[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[31m'Length+En_Msg'[mLength[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[31m'Length+En_Msg'[mLength[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[31m'Length+En_Msg'[mLength[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[31m'Length+C_Msg'[mLength[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[31m'Length+C_Msg'[mLength[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[31m'Length+C_Msg'[mLength[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[31m'Length+C_Msg'[mLength[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[31m'Length+The_Msg'[mLength[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[31m'Length+The_Msg'[mLength[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[31m'Length+The_Msg'[mLength[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[31m'Length+The_Msg'[mLength[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 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
      
      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
      
      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 String_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
      
      
   [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
	 
	 Project_Num [31m:[m Project_Num_Range [31m:=[m [35m0[m[31m;[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;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([mSky[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([mSky[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.[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;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([mSky[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([mSky[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[31m'Value(Handling.To_String(Cmd_Line(Cmd_Line'[mFirst[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' (Project_Context.Project.Project_Name(Project_Context.Project.Project_Prefix'[mLength[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([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([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([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([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([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([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([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([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 Sky[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
						
						[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([mSky[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([mSky[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' (Project_Context.Project.Project_Name(Project_Context.Project.Project_Prefix'[mLength[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([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([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([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([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([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([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([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([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 Sky[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
				       
				       [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([mSky[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([mSky[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[35m18[m[31m)[m [31m=>[m 
				 [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mSky[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;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mSky[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[35m18[m[31m)[m [31m=>[m 
				 [01;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mSky[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 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;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;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;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
				       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
				       
				       
				       
				       
				       [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;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;30mLog_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 Editor[31m=>[m
						[01;30mEditor_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;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[31m'Value(Handling.To_String(Cmd_Line(Cmd_Line'[mFirst[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' (Project_Context.Project.Project_Name(Project_Context.Project.Project_Prefix'[mLength[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([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([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([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([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([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([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([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([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
						   
						   [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([mSky[31m.[mLogs[31m.[mProject[31m));[m
				       
					     [01;30mStatistic[m[31m([mApp[31m.[mSessions[31m,[m App[31m.[mLogs[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' (Project_Context.Project.Project_Name(Project_Context.Project.Project_Prefix'[mLength[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([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([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([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([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([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([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([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([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
				       
				       [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([mSky[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;30mClose[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mSky[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 Screen_Print[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
   
   
      [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 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 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+[m[35m1[m[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 Obj[31m.[mInfo[31m.[mChilds_Num [31m/=[m [35m0[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 [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 Window[31m);[m
      
      Contacts [31m:[m Abstract_Vectors[31m.[mVector[31m;[m
      Contact_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;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;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 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 [35m0[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 [35m0[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
   
   
   [01;34msubtype[m Menu_Range [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[m[35m13[m[31m;[m
   
   [01;34mtype[m Menu_List [01;34mis[m [01;34marray[m [31m([mMenu_Range[31m)[m [01;34mof[m String_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' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m1[m[31m))),[m
      [01;34mnew[m [32mString[m [31m' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m2[m[31m))),[m
      [01;34mnew[m [32mString[m [31m' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m3[m[31m))),[m
      [01;34mnew[m [32mString[m [31m' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m4[m[31m))),[m
      [01;34mnew[m [32mString[m [31m' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m5[m[31m))),[m
      [01;34mnew[m [32mString[m [31m' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m6[m[31m))),[m
      [01;34mnew[m [32mString[m [31m' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m7[m[31m))),[m
      [01;34mnew[m [32mString[m [31m' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m8[m[31m))),[m
      [01;34mnew[m [32mString[m [31m' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m9[m[31m))),[m
      [01;34mnew[m [32mString[m [31m' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m10[m[31m))),[m
      [01;34mnew[m [32mString[m [31m' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m11[m[31m))),[m
      [01;34mnew[m [32mString[m [31m' (Mode_Enum'[m[01;30mImage[m[31m([mMode_Enum'[01;30mVal[m[31m([m[35m12[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 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 String_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;30mMachines[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;30mLog_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 Editor[31m=>[m
			[01;30mEditor_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 String_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;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		  
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
		  Project_Last [31m:=[m [35m1[m[31m;[m
		  Menu_Index [31m:=[m [35m1[m[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 Sky[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
		  
		  [01;30mMenu_Print[m[31m([mMenu_Win[31m,[m Menu_index[31m);[m
		  Project_Last [31m:=[m [35m1[m[31m;[m
		  Menu_Index [31m:=[m [35m1[m[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 Sky[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
   
   
   
   [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 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[31m'Succ(None)..Class_Enum'[mLast [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[31m'Succ(None)..Class_Enum'[mLast [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[31m'Image(I)'[mLength[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[31m'Value(Handling.To_String(Name(Name'[mFirst[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
			  Main [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[31m'Tag = Universe_Class'[mTag [01;34mthen[m
   	 [01;30mUniverse_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Main[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m[31m'Tag = Planning_Class'[mTag [01;34mthen[m
   	 [01;30mPlanning_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Main[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m[31m'Tag = Content_Class'[mTag [01;34mthen[m
   	 [01;30mContent_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Main[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m[31m'Tag = Event_Class'[mTag [01;34mthen[m
   	 [01;30mEvent_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Main[31m);[m      	 
      [01;34melsif[m Object[31m.[m[01;34mall[m[31m'Tag = Job_Class'[mTag [01;34mthen[m
   	 [01;30mJob_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Main[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m[31m'Tag = Meeting_Class'[mTag [01;34mthen[m
   	 [01;30mMeeting_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Main[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m[31m'Tag = Rendezvous_Class'[mTag [01;34mthen[m
   	 [01;30mRendezvous_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Main[31m);[m
      [01;34melsif[m Object[31m.[m[01;34mall[m[31m'Tag = Profile_Class'[mTag [01;34mthen[m
   	 [01;30mProfile_Class[m[31m([mObject[31m.[m[01;34mall[m[31m).[m[01;30mPrint[m[31m([mHeader[31m,[m Main[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;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
	 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	    
	    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      

      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 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 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 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 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 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 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 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 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 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
   
   [01;34mfunction[m [01;30mCmd_Value[m [31m([mLine [31m:[m [01;34min[m [32mWide_String[m[31m)[m [01;34mreturn[m Cmd_Enum [01;34mis[m
      Cmd [31m:[m 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 Cmd_Enum[31m'Value(Handling.To_String(Line(Line'[mFirst[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 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 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
   
   
   
   [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
   
   
   
   
   
   [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
	 [35m1[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
	 [35m1[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
	 
   
   
   
   
   [31m-----------------------------------[m
   [31m-- Organizer process             --[m
   [31m-----------------------------------[m
   
   [01;34mtask[m [01;34mbody[m Organizer_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 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 String_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;30mCmd_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 String_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 Wide_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 Wide_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
						[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 Wide_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
						      [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

					     [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 Wide_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
						[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 Wide_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[31m'Length-App.Terminal.cur.Info.Name'[mLength[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;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 [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.[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
				       [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;34mtask[m [01;34mbody[m Editor_Process [01;34mis[m
      
      End_Of_Program [31m:[m [32mBoolean[m [31m:=[m False[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[35m4[m[31m)[m [31m=>[m
			   End_Of_Program [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;34melse[m
		     [01;34mcase[m Wchar [01;34mis[m
			[01;34mwhen[m Wide_Character ' [01;30mVal[m[31m([m[35m32[m[31m)[m [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
	       [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;30mMachines[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 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;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 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
		  [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("Editor process halted");[m
   [01;34mend[m Editor_Process[31m;[m
   
   
   [31m-------------------------------------------------------------------------------------------------------------------------------[m
   [31m--                                                    Application                                                            --[m
   [31m-------------------------------------------------------------------------------------------------------------------------------[m
   [31m--                                                                                                                           --[m
   [31m--                                                                                                                           --[m
   [31m--                                                                                                                           --[m
   
   
   
   
   [01;34mtask[m [01;34mbody[m Console_Process [01;34mis[m
      On_Esc [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      End_Of_This_Task [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
	       App[31m.[mDesktop [31m:=[m [31m([m[35m1[m [31m=>[m [01;30mMachines[m[31m([m[35m0[m[31m),[m [35m2[m [31m=>[m [01;30mMachines[m[31m([m[35m12[m[31m));[m
	       [01;34mfor[m Mode [01;34min[m Machines'[01;34mRange[m [01;34mloop[m
		  [01;34mif[m [01;30mMachines[m[31m([mMode[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		     
		     [01;34mcase[m [01;30mMachines[m[31m([mMode[31m).[mName [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   [01;30mNone_Record[m[31m([m[01;30mMachines[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Log [31m=>[m
			   [01;30mLog_Record[m[31m([m[01;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mSuspend[31m;[m
			[01;34mwhen[m Editor[31m=>[m
			   [01;30mEditor_Record[m[31m([m[01;30mMachines[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
	       [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([mWchar[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([mWchar[31m);[m
		  [01;34mwhen[m Editor [31m=>[m
		     [01;30mEditor_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([mWchar[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([mWchar[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([mWchar[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([mWchar[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([mWchar[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([mWchar[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([mWchar[31m);[m
		  [01;34mwhen[m Log [31m=>[m
		     [01;30mLog_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([mWchar[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([mWchar[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([mWchar[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([mWchar[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;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 Machines'[01;34mRange[m [01;34mloop[m
		  [01;34mif[m [01;30mMachines[m[31m([mMode[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;34mcase[m [01;30mMachines[m[31m([mMode[31m).[mName [01;34mis[m
			[01;34mwhen[m None [31m=>[m
			   [01;30mNone_Record[m[31m([m[01;30mMachines[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Log [31m=>[m
			   [01;30mLog_Record[m[31m([m[01;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			[01;34mwhen[m Editor[31m=>[m
			   [01;30mEditor_Record[m[31m([m[01;30mMachines[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
	       [31m--Errno := System("clear" & Character'Val(0));[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;30mLog_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 Editor[31m=>[m
			[01;30mEditor_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;30mLog_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 Editor[31m=>[m
			[01;30mEditor_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 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 Log [01;34mthen[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mMachines[m[31m([m[35m12[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m1[m[31m)[m [31m:=[m [01;30mMachines[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;30mMachines[m[31m([m[35m0[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mMachines[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;30mMachines[m[31m([m[35m4[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mMachines[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;30mMachines[m[31m([m[35m1[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mMachines[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;30mMachines[m[31m([mMode_Enum[31m'Pos(Mode_Enum'[m[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;30mMachines[m[31m([m[35m5[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mMachines[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;30mMachines[m[31m([m[35m6[m[31m);[m
		  App[31m.[m[01;30mDesktop[m[31m([m[35m2[m[31m)[m [31m:=[m [01;30mMachines[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;30mMachines[m[31m([m[35m9[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;30mLog_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 Editor[31m=>[m
			[01;30mEditor_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;30mLog_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 Editor[31m=>[m
			[01;30mEditor_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;30mLog_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 Editor[31m=>[m
			[01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mComputer[31m));[m
			[01;30mEditor_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
		  Errno [31m:=[m [01;30mSystem[m[31m([m[31m"clear"[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[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;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;30mLog_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 Editor[31m=>[m
			   [01;30mEditor_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;30mLog_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 Editor[31m=>[m
			   [01;30mEditor_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
		     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;30mMachines[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;30mLog_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 Editor[31m=>[m
			   [01;30mEditor_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;30mLog_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 Editor[31m=>[m
		     	   [01;30mEditor_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 Machines'[01;34mRange[m [01;34mloop[m
			
			[01;34mif[m [01;30mMachines[m[31m([mMode[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m

			   [01;34mcase[m [01;30mMachines[m[31m([mMode[31m).[mName [01;34mis[m
			      [01;34mwhen[m None [31m=>[m
				 [01;30mNone_Record[m[31m([m[01;30mMachines[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Log [31m=>[m
				 [01;30mLog_Record[m[31m([m[01;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[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;30mMachines[m[31m([mMode[31m).[m[01;34mall[m[31m).[mProc[31m.[mHalt[31m;[m
			      [01;34mwhen[m Editor[31m=>[m
				 [01;30mEditor_Record[m[31m([m[01;30mMachines[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
		     
		     
		     W_Io[31m.[m[01;30mPut[m[31m([m[31m"Realy quit ?"[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..[mLibrary [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;30mLog_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 Editor[31m=>[m
			   [01;30mOpen[m[31m([mApp[31m.[m[01;30mSessions[m[31m([mcomputer[31m));[m
			   [01;30mEditor_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 [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            
	       On_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;30mLog_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 Editor[31m=>[m
			[01;30mEditor_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;30mLog_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 Editor[31m=>[m
			[01;30mEditor_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;30mLog_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 Editor[31m=>[m
			[01;30mEditor_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;30mLog_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 Editor[31m=>[m
			[01;30mEditor_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[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
	       [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;30mLog_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 Editor[31m=>[m
			[01;30mEditor_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;30mLog_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 Editor[31m=>[m
			[01;30mEditor_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 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;34mend[m Sky[31m.[mWalk [31m;[m 
