[31m-- main is main file of main project written with Ada.[m
[31m-- Main is Copyright (C) 2025 Manuel De Girardi ; [m
[31m--[m
[31m--   This program is free software; you can redistribute it and/or modify[m
[31m--   it under the terms of the GNU General Public License as published by[m
[31m--   the Free Software Foundation; either version 2 of the License, or[m
[31m--   (at your option) any later version.[m
[31m--[m
[31m--   This program is distributed in the hope that it will be useful,[m
[31m--   but WITHOUT ANY WARRANTY; without even the implied warranty of[m
[31m--   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the[m
[31m--   GNU General Public License for more details.[m
[31m--[m
[31m--   You should have received a copy of the GNU General Public License[m
[31m--   along with this program; if not, write to the Free Software[m
[31m--   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA[m
[31m--[m
[31m-- Date := 2025-09-28 00:37:02 ; [m
[31m-- Version := 0.18.0a ; [m
[01;34mwith[m M [31m;[m 
[01;34mwith[m M[31m.[mErrors [31m;[m 
[01;34mwith[m M[31m.[mParameters [31m;[m 
[01;34mwith[m M[31m.[mOptions [31m;[m 
[01;34mwith[m M[31m.[mVersions[31m;[m
[01;34mwith[m M[31m.[mVersions[31m.[mVersion_Io[31m;[m
[01;34mwith[m M[31m.[mEnums [31m;[m 
[01;34mwith[m M[31m.[mTypes [31m;[m 
[01;34mwith[m M[31m.[mInterfaces [31m;[m 
[01;34mwith[m M[31m.[mAgence [31m;[m
[01;34mwith[m M[31m.[mAnsi[31m.[mConsole [31m;[m
[01;34mwith[m M[31m.[mAnsi[31m.[mWindows [31m;[m
[01;34mwith[m M[31m.[mWindows [31m;[m
[01;34mwith[m M[31m.[mShared [31m;[m
[01;34mwith[m M[31m.[mAccount[31m;[m
[01;34mwith[m M[31m.[mAccounts_Manager[31m;[m
[01;34muse[m M[31m.[mAccount[31m;[m
[01;34muse[m M[31m.[mAccounts_Manager[31m;[m
[01;34mwith[m Ada[31m.[mWide_Text_Io [31m;[m
[01;34mwith[m Ada[31m.[mCharacters[31m.[mHandling [31m;[m
[01;34mwith[m Ada[31m.[mText_Io[31m;[m
[01;34muse[m Ada[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mWide_Fixed[31m;[m
[01;34muse[m Ada[31m.[mStrings[31m.[mWide_Fixed[31m;[m
[01;34mwith[m Ada[31m.[mCalendar[31m;[m
[01;34mwith[m Ada[31m.[mCalendar[31m.[mFormatting[31m;[m

[01;34muse[m Ada[31m.[mCalendar[31m;[m
[01;34mwith[m Gnat[31m.[mOs_Lib[31m;[m
[01;34mwith[m Gnat[31m.[mDirectory_Operations[31m;[m
[01;34muse[m Gnat[31m.[mDirectory_Operations[31m;[m
[01;34mwith[m M[31m.[mLogs[31m;[m
[01;34mwith[m M[31m.[mBalance[31m;[m
[01;34mwith[m Sky[31m;[m
[01;34mwith[m M[31m.[mProjects_Manager[31m;[m
[01;34muse[m M[31m.[mProjects_Manager[31m;[m
[01;34mwith[m M[31m.[mAccountant[31m;[m
[01;34mwith[m Sky[31m.[mStocks_Manager[31m;[m
[01;34mwith[m M[31m.[mProject[31m;[m
[01;34mwith[m M[31m.[mWOPR[31m;[m
[01;34mwith[m M[31m.[mServers[31m;[m

[01;34mwith[m El[31m.[mLexics[31m;[m
[01;34mwith[m El[31m.[mHander[31m;[m
[01;34muse[m El[31m;[m
[01;34mwith[m M[31m.[mEngineering[31m;[m

[01;34mprocedure[m Main [01;34mis[m
   
   [01;34muse[m M[31m.[mAccounts_Manager[31m.[mOperation_Vectors[31m;[m
   
   [01;34muse[m M [31m;[m 
   [01;34muse[m M[31m.[mErrors [31m;[m 
   [01;34muse[m M[31m.[mParameters [31m;[m 
   
   [01;34muse[m M[31m.[mVersions[31m;[m
   
   [01;34muse[m M[31m.[mInterfaces [31m;[m 
   [01;34muse[m M[31m.[mShared [31m;[m
   [01;34muse[m M[31m.[mAnsi[31m.[mConsole [31m;[m
   
   
   
   [01;34muse[m Ada[31m.[mCharacters [31m;[m
   [01;34muse[m Gnat[31m.[mOs_Lib[31m;[m
   
   [01;34muse[m M[31m.[mLogs[31m;[m
   [01;34muse[m Sky[31m;[m
   [01;34muse[m M[31m.[mAccountant[31m;[m
   [01;34muse[m Sky[31m.[mStocks_Manager[31m;[m
   [01;34muse[m M[31m.[mProject[31m;[m
   
   [01;34mpackage[m W_Io [01;34mrenames[m Ada[31m.[mWide_Text_Io[31m;[m
   
   
   File [31m:[m Wide_Text_Io[31m.[mFile_Type[31m;[m
   Last [31m:[m Natural [31m:=[m [35m1[m[31m;[m
   Next [31m:[m Natural [31m:=[m [35m1[m[31m;[m
   
   
   Lines [31m:[m M[31m.[mLine_Range [31m:=[m [35m67[m[31m;[m
   Columns [31m:[m M[31m.[mColumn_Range [31m:=[m [35m240[m[31m;[m
   The_Style [31m:[m M[31m.[mStyle_Enum [31m:=[m M[31m.[mColor_And_Color[31m;[m
   Mode [31m:[m M[31m.[mMode_Enum [31m:=[m M[31m.[mNone[31m;[m
   End_Of_Program [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   Int [31m:[m Interface_Record[31m;[m
   Max_Words [31m:[m Natural [31m:=[m [35m1023[m[31m;[m
[01;34mbegin[m
   
   [01;30mInitialize[m[31m([mInt[31m);[m

   [01;34mdeclare[m
      
      Help_Parameter [31m:[m [01;34mconstant[m Parameters[31m.[mParameter_Record [31m:=[m
	[01;30mGet_Parameter[m[31m([mInt[31m,[m Help[31m);[m
      Version_Parameter [31m:[m [01;34mconstant[m Parameters[31m.[mParameter_Record [31m:=[m
	[01;30mGet_Parameter[m[31m([mInt[31m,[m M[31m.[mVersion[31m);[m
      
      Initialize_Parameter [31m:[m [01;34mconstant[m Parameters[31m.[mParameter_Record [31m:=[m
	[01;30mGet_Parameter[m[31m([mInt[31m,[m Initialize[31m);[m
      
      Geometry_Parameter [31m:[m [01;34mconstant[m Parameters[31m.[mParameter_Record [31m:=[m
      	[01;30mGet_Parameter[m[31m([mInt[31m,[m Geometry[31m);[m
      
      Style_Parameter [31m:[m [01;34mconstant[m Parameters[31m.[mParameter_Record [31m:=[m
      	[01;30mGet_Parameter[m[31m([mInt[31m,[m Style[31m);[m
      
      Total_Parameter [31m:[m [01;34mconstant[m Parameters[31m.[mParameter_Record [31m:=[m
	[01;30mGet_Parameter[m[31m([mInt[31m,[m Total[31m);[m
   [01;34mbegin[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to set parameters..."[m[31m);[m
      [01;34mif[m Help_Parameter[31m.[mIs_Setted [01;34mthen[m
	 Interfaces[31m.[m[01;30mParameters_Descriptions[m[31m([mInt[31m);[m

	 M[31m.[mWOPR[31m.[mMessage_Box[31m.[mHalt[31m;[m



	 [01;34mreturn[m[31m;[m
      [01;34melse[m
	 [01;34mif[m Version_Parameter[31m.[mIs_Setted [01;34mthen[m
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([mVersions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m));[m
	    M[31m.[mWOPR[31m.[mMessage_Box[31m.[mHalt[31m;[m
	    


	    [01;34mreturn[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m	    
      [01;34mend[m [01;34mif[m[31m;[m
      Interfaces[31m.[m[01;30mPrint_Parameters[m[31m([mInt[31m);[m
      
      [01;34mif[m Initialize_Parameter[31m.[mIs_Setted [01;34mthen[m
	 Total_Sum [31m:=[m Total_Type'[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mInitialize_Parameter[31m.[mValue[31m.[m[01;34mall[m[31m));[m

      M[31m.[mWOPR[31m.[mMessage_Box[31m.[mHalt[31m;[m


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


      [01;34mif[m Total_Parameter[31m.[mIs_Setted [01;34mthen[m
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([mTotal_Type'[01;30mImage[m[31m([mTotal_Sum[31m));[m

      M[31m.[mWOPR[31m.[mMessage_Box[31m.[mHalt[31m;[m


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

      [01;34mif[m Geometry_Parameter[31m.[mIs_Setted [01;34mthen[m
	 Lines [31m:=[m [01;30mLines_Number[m[31m([mGeometry_Parameter[31m.[mValue[31m.[m[01;34mall[m[31m);[m
	 Columns [31m:=[m [01;30mColumns_Number[m[31m([mGeometry_Parameter[31m.[mValue[31m.[m[01;34mall[m[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m

      [01;34mif[m Style_Parameter[31m.[mIs_Setted [01;34mthen[m
	 [01;34mbegin[m
	    The_style [31m:=[m Style_Enum'[01;30mvalue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mStyle_Parameter[31m.[mValue[31m.[m[01;34mall[m[31m));[m
	 [01;34mexception[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Style error : not an style"[m[31m);[m
	       [01;34mraise[m[31m;[m
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      
      
      
   [01;34mend[m[31m;[m
   
   Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to make Agence..."[m[31m);[m
   
   [01;34mdeclare[m
      
      [01;34msubtype[m Word_Type [01;34mis[m Lexical_Range [01;34mrange[m [35m0[m[31m..[mMax_words[31m;[m
      
      [01;34mpackage[m Words_Glossary [01;34mis[m [01;34mnew[m Lexics[31m.[m[01;30mGlossary[m[31m([mWord_Type[31m);[m
      [01;34muse[m Words_Glossary[31m;[m
      Words            [31m:[m Glossary_Type[31m;[m
   [01;34mbegin[m
      
      [01;34mdeclare[m
      
	 [01;34mpackage[m hander [01;34mis[m [01;34mnew[m El[31m.[mhander 
	   [31m([m
	    Glossary_Filename [31m=>[m [31m"glossary.txt"[m[31m,[m
	    Width_Line [31m=>[m [35m80[m[31m,[m
	    Max_Words [31m=>[m Max_words[31m,[m
	    Samples_Max [31m=>[m [35m144[m[31m,[m
	    Network_Filename [31m=>[m [31m"elhoim"[m[31m,[m
	    Word_Type [31m=>[m Word_Type[31m,[m
	    Glossary [31m=>[m Words_Glossary
	   [31m);[m
	 
	 
	 [01;34muse[m Projects_Manager[31m.[mProjects_Dll[31m;[m
	 [01;34mpackage[m Ansi_Windows [01;34mis[m [01;34mnew[m M[31m.[mAnsi[31m.[m[01;30mWindows[m [31m([mLines[31m,[m Columns[31m);[m
	 [01;34mpackage[m Windows [01;34mis[m [01;34mnew[m M[31m.[m[01;30mWindows[m [31m([mLines[31m,[m Columns[31m,[m The_Style[31m,[m Ansi_Windows[31m);[m	 
	 [01;34mpackage[m Main_Agence [01;34mis[m [01;34mnew[m M[31m.[m[01;30mAgence[m [31m([mAnsi_Windows[31m,[m Windows[31m,[m Hander[31m,[m Words_Glossary[31m);[m
	 [01;34muse[m Main_Agence[31m;[m
	 [01;34muse[m M[31m;[m
	 [01;34muse[m Hander[31m;[m
	 [01;34muse[m Main_Agence[31m.[mServers[31m;[m
	 
	 
      [01;34mbegin[m
	 Game_Restore[31m;[m
	 [01;34mdelay[m [35m2.0[m[31m;[m
	 Server[31m.[mInitialize[31m;[m
	 
	 Server[31m.[mStart[31m;[m
      
	 
	 App[31m.[mStarted [31m:=[m True[31m;[m
	 App[31m.[mLines [31m:=[m Lines[31m;[m
	 App[31m.[mColumns [31m:=[m Columns[31m;[m
	 
	 Functions [31m:=[m [31m([m[35m0[m [31m=>[m [01;34mnew[m [01;30mNone_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m1[m [31m=>[m [01;34mnew[m [01;30mOrganizer_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m2[m [31m=>[m [01;34mnew[m [01;30mVbrain_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m3[m [31m=>[m [01;34mnew[m [01;30mPlanning_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m4[m [31m=>[m [01;34mnew[m [01;30mManager_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m5[m [31m=>[m [01;34mnew[m [01;30mMoneybox_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m6[m [31m=>[m [01;34mnew[m [01;30mActivity_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m7[m [31m=>[m [01;34mnew[m [01;30mStocks_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m8[m [31m=>[m [01;34mnew[m [01;30mBank_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m9[m [31m=>[m [01;34mnew[m [01;30mLogs_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m10[m [31m=>[m [01;34mnew[m [01;30mMenu_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m11[m [31m=>[m [01;34mnew[m [01;30mContacts_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m12[m [31m=>[m [01;34mnew[m [01;30mLibrary_Record[m[31m([mApp'[01;34mAccess[m[31m),[m 
		       [35m13[m [31m=>[m [01;34mnew[m [01;30mMaster_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m14[m [31m=>[m [01;34mnew[m [01;30mEngine_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m15[m [31m=>[m [01;34mnew[m [01;30mComputer_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m16[m [31m=>[m [01;34mnew[m [01;30mWOPR_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m17[m [31m=>[m [01;34mnew[m [01;30mWorkstation_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m18[m [31m=>[m [01;34mnew[m [01;30mSpace_Fighter_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m19[m [31m=>[m [01;34mnew[m [01;30mPerson_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [35m20[m [31m=>[m [01;34mnew[m [01;30mWorld_Record[m[31m([mApp'[01;34mAccess[m[31m),[m
		       [01;34mothers[m [31m=>[m [01;34mnull[m[31m);[m

	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to Term initialization..."[m[31m);[m
	 [01;34mbegin[m

	    App[31m.[mTerm [31m:=[m M[31m.[mTerm_Enum'[01;30mValue[m[31m([m[01;30mGetenv[m[31m([m[31m"TERM"[m[31m).[m[01;34mall[m[31m);[m
	 [01;34mexception[m
	    [01;34mwhen[m Constraint_Error [31m=>[m	 
	       App[31m.[mTerm [31m:=[m fvwm[31m;[m
	 [01;34mend[m[31m;[m

	 [01;34mbegin[m
	    [01;30mMake_Dir[m[31m([m[31m"Archives"[m[31m);[m
	 [01;34mexception[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       [01;34mbegin[m
	 	  [01;30mChange_Dir[m[31m([m[31m"Archives"[m[31m);[m
	 	  [01;30mChange_Dir[m[31m([m[31m".."[m[31m);[m
	       [01;34mexception[m
	 	  [01;34mwhen[m [01;34mothers[m [31m=>[m
	 	     [01;34mraise[m Spec_Error[31m;[m
	       [01;34mend[m[31m;[m
	       
	 [01;34mend[m[31m;[m
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to restore Organizer..."[m[31m);[m
	 [01;34mif[m [01;30mIs_Regular_File[m[31m([mOrganizer_Filename[31m)[m [01;34mthen[m
	    [01;30mRestore[m[31m([mApp[31m.[mTerminal[31m,[m Organizer_Filename[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to set App.Initialized..."[m[31m);[m
	 [01;34mif[m Balance[31m.[mInitialized [01;34mor[m [31m([mBalance[31m.[mBalance[31m.[mCapital [31m>[m [35m0.0[m[31m)[m [01;34mthen[m
	    App[31m.[mInitialized [31m:=[m True[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"initialized"[m[31m);[m
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to restore Billed..."[m[31m);[m
	 [01;34mif[m [01;30mIs_Regular_File[m[31m([m[31m"billed.txt"[m[31m)[m [01;34mthen[m
	    [01;30mInvoices_Restore[m[31m([mAccounts[31m.[mBilled[31m,[m Accounts[31m.[mInvoice_Last[31m,[m [31m"billed.txt"[m[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to restore Charged..."[m[31m);[m
	 [01;34mif[m [01;30mIs_Regular_File[m[31m([m[31m"charged.txt"[m[31m)[m [01;34mthen[m
	    [01;30mOutvoices_Restore[m[31m([mAccounts[31m.[mCharges[31m,[m Accounts[31m.[mOutvoice_Last[31m,[m [31m"charged.txt"[m[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m

	 
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to set App.Initialized..."[m[31m);[m
	 [01;34mif[m Balance[31m.[mCreated [01;34mor[m [31m([mBalance[31m.[mMain_Balance[31m.[mCapital [31m>[m [35m0.0[m[31m)[m [01;34mthen[m
	    App[31m.[mCreated [31m:=[m True[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 [31m--Text_Io.Put_Line("initialized");[m
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to restore Billed..."[m[31m);[m
	 [01;34mif[m [01;30mIs_Regular_File[m[31m([m[31m"main_billed.txt"[m[31m)[m [01;34mthen[m
	    [01;30mInvoices_Restore[m[31m([mMain_Accounts[31m.[mBilled[31m,[m Main_Accounts[31m.[mInvoice_Last[31m,[m [31m"main_billed.txt"[m[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to restore Charged..."[m[31m);[m
	 [01;34mif[m [01;30mIs_Regular_File[m[31m([m[31m"main_charged.txt"[m[31m)[m [01;34mthen[m
	    [01;30mOutvoices_Restore[m[31m([mMain_Accounts[31m.[mCharges[31m,[m Main_Accounts[31m.[mOutvoice_Last[31m,[m [31m"main_charged.txt"[m[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m

	 
	 
	 
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Loading stocks..."[m[31m);[m
	 Stocks_Restore[31m;[m
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Done."[m[31m);[m
	 
	 [31m---------------------------------------------[m
	 [31m--                Bank[m
	 Wide_Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Wide_Text_Io[31m.[mIn_File[31m,[m Bank_Filename[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
	 [01;34mwhile[m [01;34mnot[m Wide_Text_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
	    [01;34mdeclare[m
	       Line [31m:[m [32mWide_String[m [31m:=[m Wide_Text_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m);[m
	       Op   [31m:[m Operation_Record[31m;[m
	    [01;34mbegin[m
	       Next [31m:=[m [01;30mIndex[m[31m([mLine[31m,[m [31m""[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m));[m
	       Op[31m.[mLabel [31m:=[m [01;34mnew[m [32mWide_String[m [31m' (Line(Line'[mFirst[31m..[mNext[31m-[m[35m1[m[31m));[m
	       Last [31m:=[m Next [31m+[m [35m1[m[31m;[m
	       Next [31m:=[m [01;30mIndex[m[31m([mLine[31m,[m [31m""[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m),[m last[31m);[m
	       Op[31m.[mDate_Op [31m:=[m Formatting[31m.[m[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mLast[31m..[mNext[31m-[m[35m1[m[31m)));[m
	       Last [31m:=[m Next [31m+[m [35m1[m[31m;[m
	       Next [31m:=[m [01;30mIndex[m[31m([mLine[31m,[m [31m""[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m),[m Last[31m);[m
	       Op[31m.[mDate_Val [31m:=[m Formatting[31m.[m[01;30mValue[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[01;30mLine[m[31m([mLast[31m..[mNext[31m-[m[35m1[m[31m)));[m
	       Last [31m:=[m Next [31m+[m [35m1[m[31m;[m
	       Op[31m.[msum [31m:=[m Sum_Range[31m'Value(Handling.To_String(Line(Last..Line'[mlast[31m)));[m
	       App[31m.[mBank[31m.[mList [31m:=[m App[31m.[mBank[31m.[mList [31m&[m Op[31m;[m
	       App[31m.[mBank[31m.[mTotal [31m:=[m App[31m.[mBank[31m.[mTotal [31m+[m Op[31m.[mSum[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 Wide_Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
	 
	 [01;34mif[m [01;30mIs_Regular_File[m[31m([m[31m"Projects.lst"[m[31m)[m [01;34mthen[m
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Loading Projects.lst.."[m[31m);[m
	    Projects_Manager[31m.[m[01;30mManager_Load[m[31m([mApp[31m.[mProjects[31m,[m [31m"Projects.lst"[m[31m);[m
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Done."[m[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mif[m [01;30mIs_Regular_File[m[31m([m[31m"Archives/Projects.lst"[m[31m)[m [01;34mthen[m
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Loading Archives/Projects.lst.."[m[31m);[m
	    Projects_Manager[31m.[m[01;30mArchives_Load[m[31m([mApp[31m.[mArchives[31m,[m [31m"Archives/Projects.lst"[m[31m);[m      
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Done."[m[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
	 [31m------------------------------------------------[m
	 [31m--  Logs[m
	 [01;34mif[m [01;30mIs_Regular_File[m[31m([mM[31m.[mLogs[31m.[mLog_Filename[31m)[m [01;34mthen[m
	    M[31m.[mLogs[31m.[m[01;30mRestore[m[31m([mApp[31m.[mlogs[31m,[m M[31m.[mLogs[31m.[mLog_Filename[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
	 
	 
	 [01;30mAppend[m[31m([mApp[31m.[mProjects[31m.[mList[31m,[m [01;34mnew[m Project_Record ' [31m([mNull_Project[31m));[m
	 
	 Cpu_Process[31m.[mInitialize[31m;[m
	 
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"CPU ok!"[m[31m);[m
	 
	 App[31m.[mConsole[31m.[mInitialize[31m;[m
	 
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Console ok!"[m[31m);[m
	 
	 
	 App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mNone[31m);[m
	 
	 
	 
	 
	 [01;34mloop[m
	    
	    [01;34mdeclare[m
	       Wchar [31m:[m Wide_Character [31m:=[m Wide_Character ' [01;30mVal[m[31m([m[35m0[m[31m);[m
	    [01;34mbegin[m
	       [01;34mcase[m App[31m.[mTerm [01;34mis[m
		  [01;34mwhen[m M[31m.[mLinux [31m=>[m

		     [01;34mbegin[m
			App[31m.[mConsole[31m.[m[01;30mMode[m[31m([mMode[31m);[m
			W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
			[31m--Matrix_Saver.Suspend;[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m=>[m                                       
			      App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mTrue[31m);[m
			      W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m         
			      [01;34mcase[m Wchar [01;34mis[m
				 [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m=>[m                             
				    
				    
				    [01;34mcase[m Mode [01;34mis[m                                                            
				       [01;34mwhen[m Organizer [31m..[m Log [31m=>[m
					  
					  App[31m.[mConsole[31m.[mReset[31m;[m      

				       [01;34mwhen[m None [31m=>[m
					  
					  App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m

					  App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mQuit[31m);[m  


					  End_Of_Program [31m:=[m True[31m;[m
					  
					  
				       [01;34mwhen[m Menu [31m=>[m
					  
					  App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m
					  M[31m.[mAnsi[31m.[mConsole[31m.[mClear_Screen[31m;[m
					  App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mnone[31m);[m


					  End_Of_Program [31m:=[m True[31m;[m
					  
					  
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  [01;34mif[m End_Of_Program [01;34mthen[m         
					     
					     [31m--App.Console.Switch(Quit);[m

					     App[31m.[mConsole[31m.[mHalt[31m;[m

					     [01;34mexit[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mend[m [01;34mcase[m[31m;[m                          
				 [01;34mwhen[m [01;34mothers[m [31m=>[m
				    App[31m.[mConsole[31m.[m[01;30mMode[m[31m([mMode[31m);[m
				    [01;34mcase[m Mode [01;34mis[m
				       
				       [01;34mwhen[m Quit [31m=>[m
					  [01;34mif[m End_Of_Program [01;34mthen[m         
					     
					     [31m--App.Console.Switch(Quit);[m

					     App[31m.[mConsole[31m.[mHalt[31m;[m

					     [01;34mexit[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  
					  App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m
					  
					  [31m--App.Console.Switch(mode);[m
					  End_Of_Program [31m:=[m False[31m;[m

				    [01;34mend[m [01;34mcase[m[31m;[m
			      [01;34mend[m [01;34mcase[m[31m;[m                     
			      
			      [01;34mcase[m Wchar [01;34mis[m
				 [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m91[m[31m)[m [31m=>[m                           
				    W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                           
				    App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m                           
				    [01;34mcase[m Wchar [01;34mis[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m49[m[31m)[m [31m=>[m
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                
					  [01;34mcase[m Wchar [01;34mis[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m55[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F6");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mActivity[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m56[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F7");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mStocks[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m57[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F8");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mBank[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m126[m[31m)[m [31m=>[m                     
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- begin");[m
						App[31m.[mConsole[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;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m50[m[31m)[m [31m=>[m                    
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					  [01;34mcase[m Wchar [01;34mis[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m48[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F9");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mLog[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m49[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F10");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mMenu[31m);[m

						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                                       
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m51[m[31m)[m [31m=>[m                                  
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F11");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mContacts[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m52[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F12");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mLibrary[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m53[m[31m)[m [31m=>[m                            
						[01;34mnull[m[31m;[m  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m" -- Maj+F1"[m[31m);[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mNavigation[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m54[m[31m)[m [31m=>[m                            
						[01;34mnull[m[31m;[m  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m" -- Maj+F2"[m[31m);[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mManborg[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m56[m[31m)[m [31m=>[m                            
						[01;34mnull[m[31m;[m  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m" -- Maj+F3"[m[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mAgent[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m57[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m  W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m" -- Maj+F4"[m[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mAdmin[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m126[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- insert");                                [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 Wide_Character'[01;30mVal[m[31m([m[35m51[m[31m)[m [31m=>[m                    					  
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					  [01;34mcase[m Wchar [01;34mis[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m49[m[31m)[m [31m=>[m [31m-- Maj+F5[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mTerminator[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m   
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m50[m[31m)[m [31m=>[m [31m-- Maj+F6[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mSpace_fighter[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m   
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m51[m[31m)[m [31m=>[m [31m-- Maj+F7[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mPerson[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m   
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m52[m[31m)[m [31m=>[m [31m-- Maj+F8[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mPartition[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[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;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m52[m[31m)[m [31m=>[m                    
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- end");                     [m
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m   
					  App[31m.[mConsole[31m.[mEnd_Of[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m53[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- page up");[m
					  App[31m.[mConsole[31m.[mPage_Up[31m;[m
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m   
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m54[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- page down");[m
					  App[31m.[mConsole[31m.[mPage_Down[31m;[m
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m   
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m65[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- up");[m
					  App[31m.[mConsole[31m.[mUp_Arrow[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m66[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- down");[m
					  App[31m.[mConsole[31m.[mDown_Arrow[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m67[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- right");[m
					  App[31m.[mConsole[31m.[mRight_Arrow[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m68[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- left");[m
					  App[31m.[mConsole[31m.[mLeft_Arrow[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m91[m[31m)[m [31m=>[m
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                
					  [01;34mcase[m Wchar [01;34mis[m                               
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m65[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F1");                                 [m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mOrganizer[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m66[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F2");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mJoshua[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m67[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F3");                                 [m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mPlanning[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m68[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F4");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mManager[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m69[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F5");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mMoneybox[31m);[m
						
					     [01;34mwhen[m [01;34mothers[m [31m=>[m
						[01;34mnull[m[31m;[m
					  [01;34mend[m [01;34mcase[m[31m;[m
					  
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  
					  App[31m.[mConsole[31m.[mReset[31m;[m            
					  
					  End_Of_Program [31m:=[m False[31m;[m

					  App[31m.[mConsole[31m.[m[01;30mReceive[m[31m([mWchar[31m);[m
					  
				    [01;34mend[m [01;34mcase[m[31m;[m

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

				    App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m

			      [01;34mend[m [01;34mcase[m[31m;[m                                       
			      
			   [01;34mwhen[m [01;34mothers[m [31m=>[m                    
			      [01;34mcase[m Mode [01;34mis[m
				 [01;34mwhen[m Quit [31m=>[m
				    [31m-- uncomment this line ![m
				    App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mnone[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

			      App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m

			      
			      End_Of_Program [31m:=[m False[31m;[m
			      
			      App[31m.[mConsole[31m.[m[01;30mReceive[m[31m([mWchar[31m);[m

			[01;34mend[m [01;34mcase[m[31m;[m
			
		     [01;34mexception[m
			
			
			
			[01;34mwhen[m W_Io[31m.[mEnd_Error [31m=>[m
			   

			   [31m--Bell(Quiet);[m
			   [01;34mdelay[m [35m0.5[m[31m;[m                   
			   App[31m.[mConsole[31m.[mreset[31m;[m

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

		  [01;34mwhen[m M[31m.[mfvwm [31m=>[m
		     
		     [01;34mbegin[m
			App[31m.[mConsole[31m.[m[01;30mMode[m[31m([mMode[31m);[m
			W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
			[31m--Matrix_Saver.Suspend;[m
			[01;34mcase[m Wchar [01;34mis[m
			   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m=>[m                                       
			      App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mTrue[31m);[m
			      W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m         
			      [01;34mcase[m Wchar [01;34mis[m
				 [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m27[m[31m)[m [31m=>[m				    

				    [01;34mcase[m Mode [01;34mis[m                                                            
				       [01;34mwhen[m Organizer [31m..[m Log [31m=>[m
					  App[31m.[mConsole[31m.[mReset[31m;[m                                 
				       [01;34mwhen[m None [31m=>[m

					  App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m                                 
					  App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mQuit[31m);[m                                 
					  End_Of_Program [31m:=[m True[31m;[m
				       [01;34mwhen[m Menu [31m=>[m
					  
					  App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m
					  M[31m.[mAnsi[31m.[mConsole[31m.[mClear_Screen[31m;[m
					  App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mnone[31m);[m


					  End_Of_Program [31m:=[m True[31m;[m
					  
					  [31m--when Shell =>[m
					  [31m--   null;[m
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  [01;34mif[m End_Of_Program [01;34mthen[m         
					     
					     [31m--App.Console.Switch(Quit);[m
					     App[31m.[mConsole[31m.[mHalt[31m;[m
					     [01;34mexit[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
				    [01;34mend[m [01;34mcase[m[31m;[m                          
				 [01;34mwhen[m [01;34mothers[m [31m=>[m
				    App[31m.[mConsole[31m.[m[01;30mMode[m[31m([mMode[31m);[m
				    [01;34mcase[m Mode [01;34mis[m
				       
				       [01;34mwhen[m Quit [31m=>[m
					  [01;34mif[m End_Of_Program [01;34mthen[m         
					     
					     [31m--App.Console.Switch(Quit);[m

					     App[31m.[mConsole[31m.[mHalt[31m;[m

					     [01;34mexit[m[31m;[m
					  [01;34mend[m [01;34mif[m[31m;[m
					  
				       [01;34mwhen[m [01;34mothers[m [31m=>[m
					  
					  App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m
					  
					  [31m--App.Console.Switch(mode);[m
					  End_Of_Program [31m:=[m False[31m;[m

				    [01;34mend[m [01;34mcase[m[31m;[m
				    
			      [01;34mend[m [01;34mcase[m[31m;[m                     
			      
			      [01;34mcase[m Wchar [01;34mis[m
				 [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m79[m[31m)[m [31m=>[m                           
				    
				    W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
				    App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m
				    [01;34mcase[m Wchar [01;34mis[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m80[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F1");                               [m
					  App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mOrganizer[31m);[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m81[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F2");[m
					  App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mJoshua[31m);[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m82[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F3");                               [m
					  App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mPlanning[31m);[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m83[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F4");[m
					  App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mManager[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 Wide_Character'[01;30mVal[m[31m([m[35m91[m[31m)[m [31m=>[m

				    App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m
				    W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m              
				    [01;34mcase[m Wchar [01;34mis[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m49[m[31m)[m [31m=>[m
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					  [01;34mcase[m Wchar [01;34mis[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m53[m[31m)[m [31m=>[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						
						[01;34mcase[m Wchar [01;34mis[m
						   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m126[m[31m)[m [31m=>[m
						     [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F5");        [m
						     App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mMoneybox[31m);[m
						   [01;34mwhen[m [01;34mothers[m [31m=>[m
						      W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						      W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						      App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mTerminator[31m);[m [31m-- Maj+F5[m
						      
						[01;34mend[m [01;34mcase[m[31m;[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m55[m[31m)[m [31m=>[m
						
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						[01;34mcase[m Wchar [01;34mis[m
						   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m126[m[31m)[m [31m=>[m
						     [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F6");[m
						     App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mActivity[31m);[m
						   [01;34mwhen[m [01;34mothers[m [31m=>[m
						      W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						      W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						      App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mSpace_Fighter[31m);[m [31m-- Maj+F6[m
						      
						[01;34mend[m [01;34mcase[m[31m;[m
						
						
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m56[m[31m)[m [31m=>[m
						
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						[01;34mcase[m Wchar [01;34mis[m
						   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m126[m[31m)[m [31m=>[m
						     [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F7");[m
						     App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mStocks[31m);[m
						   [01;34mwhen[m [01;34mothers[m [31m=>[m
						      W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						      W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						      App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mPerson[31m);[m [31m-- Maj+F6[m
						      
						[01;34mend[m [01;34mcase[m[31m;[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m57[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F8");[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						
						[01;34mcase[m Wchar [01;34mis[m
						   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m126[m[31m)[m [31m=>[m
						     App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mBank[31m);[m
						   [01;34mwhen[m [01;34mothers[m [31m=>[m
						      W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						      W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                  
						      App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mPartition[31m);[m [31m-- Maj+F6[m
						      
						[01;34mend[m [01;34mcase[m[31m;[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m59[m[31m)[m [31m=>[m 
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
						[01;34mcase[m Wchar [01;34mis[m
						   [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m50[m[31m)[m [31m=>[m
						      W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
						      [01;34mcase[m Wchar [01;34mis[m
							 [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m80[m[31m)[m [31m=>[m
							    [01;34mnull[m[31m;[mW_Io[31m.[m[01;30mPut_Line[m[31m([m[31m" -- Maj+F1"[m[31m);[m
							    App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mNavigation[31m);[m
							 [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m81[m[31m)[m [31m=>[m
							    [01;34mnull[m[31m;[mW_Io[31m.[m[01;30mPut_Line[m[31m([m[31m" -- Maj+F2"[m[31m);[m
							    App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mManborg[31m);[m
							 [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m82[m[31m)[m [31m=>[m
							    [01;34mnull[m[31m;[mW_Io[31m.[m[01;30mPut_Line[m[31m([m[31m" -- Maj+F3"[m[31m);[m
							    App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mAgent[31m);[m
							 [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m83[m[31m)[m [31m=>[m
							    [01;34mnull[m[31m;[mW_Io[31m.[m[01;30mPut_Line[m[31m([m[31m" -- Maj+F4"[m[31m);[m
							    App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mAdmin[31m);[m
							 [01;34mwhen[m [01;34mothers[m [31m=>[m
							    [01;34mnull[m[31m;[m
						      [01;34mend[m [01;34mcase[m[31m;[m
						   [01;34mwhen[m [01;34mothers[m [31m=>[m
						      [01;34mnull[m[31m;[m
						[01;34mend[m [01;34mcase[m[31m;[m
					     [01;34mwhen[m [01;34mothers[m [31m=>[m
						[01;34mnull[m[31m;[m
					  [01;34mend[m [01;34mcase[m[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m50[m[31m)[m [31m=>[m
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					  [01;34mcase[m Wchar [01;34mis[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m48[m[31m)[m [31m=>[m       
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F9");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mLog[31m);[m

						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m49[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F10");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mMenu[31m);[m

						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m51[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- F11");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mContacts[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m52[m[31m)[m [31m=>[m
						[31m--null;Text_Io.Put_Line(" -- F12");[m
						App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mLibrary[31m);[m
						W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m126[m[31m)[m [31m=>[m
						[01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- insert");[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 Wide_Character'[01;30mVal[m[31m([m[35m51[m[31m)[m [31m=>[m                    
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- del");                           [m
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                            
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m53[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- page up");[m
					  App[31m.[mConsole[31m.[mPage_Up[31m;[m
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m54[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- page down");[m
					  App[31m.[mConsole[31m.[mPage_Down[31m;[m
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m
					  
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m65[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- up");[m
					  App[31m.[mConsole[31m.[mUp_Arrow[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m66[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- down");[m
					  App[31m.[mConsole[31m.[mDown_Arrow[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m67[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- right");[m
					  App[31m.[mConsole[31m.[mRight_Arrow[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m68[m[31m)[m [31m=>[m                          
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- left");[m
					  App[31m.[mConsole[31m.[mLeft_Arrow[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m70[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- end");[m
					  App[31m.[mConsole[31m.[mEnd_Of[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m72[m[31m)[m [31m=>[m
					  [01;34mnull[m[31m;[m[31m--  Text_Io.Put_Line(" -- begin");                                                              [m
					  App[31m.[mConsole[31m.[mBegin_Of[31m;[m
				       [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m91[m[31m)[m [31m=>[m
					  W_Io[31m.[m[01;30mGet_Immediate[m[31m([mWchar[31m);[m                
					  [01;34mcase[m Wchar [01;34mis[m                               
					     [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m69[m[31m)[m [31m=>[m
						
						[31m-- screen print ?[m
						
						W_Io[31m.[m[01;30mGet_Immediate[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;34mwhen[m [01;34mothers[m [31m=>[m
					  
					  App[31m.[mConsole[31m.[mReset[31m;[m            
					  
					  End_Of_Program [31m:=[m False[31m;[m

					  App[31m.[mConsole[31m.[m[01;30mReceive[m[31m([mWchar[31m);[m
					  
				    [01;34mend[m [01;34mcase[m[31m;[m

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


				    App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m



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

			   [01;34mwhen[m [01;34mothers[m [31m=>[m                    
			      [01;34mcase[m Mode [01;34mis[m
				 [01;34mwhen[m Quit [31m=>[m
				    App[31m.[mConsole[31m.[m[01;30mSwitch[m[31m([mnone[31m);[m
				 [01;34mwhen[m [01;34mothers[m [31m=>[m
				    [01;34mnull[m[31m;[m
			      [01;34mend[m [01;34mcase[m[31m;[m
			      
			      App[31m.[mConsole[31m.[m[01;30mSet_On_Esc[m[31m([mFalse[31m);[m
			      
			      End_Of_Program [31m:=[m False[31m;[m
			      
			      App[31m.[mConsole[31m.[m[01;30mReceive[m[31m([mWchar[31m);[m
			      
			[01;34mend[m [01;34mcase[m[31m;[m

		     [01;34mexception[m
			
			[31m-- A la saisie de Ctrl+D End Error is raised.[m
			
			[01;34mwhen[m W_Io[31m.[mEnd_Error [31m=>[m
			   
			   [31m--Bell(Quiet);[m
			   [01;34mdelay[m [35m0.5[m[31m;[m                   
			   App[31m.[mConsole[31m.[mreset[31m;[m
			   
		     [01;34mend[m[31m;[m            
	       [01;34mend[m [01;34mcase[m[31m;[m
	    [01;34mend[m[31m;[m
	    
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [31m--App.Config_Proc.Halt(End_Of_Program);[m

	 [01;34mif[m [32mInteger[m[31m([m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m))[m [31m/=[m [35m0[m [01;34mthen[m
	    
	    Wide_Text_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m Wide_Text_Io[31m.[mOut_File[31m,[m Bank_Filename[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m	 
	    
	    [01;34mfor[m I [01;34min[m [35m1[m[31m..[m[01;30mLength[m[31m([mApp[31m.[mBank[31m.[mList[31m)[m [01;34mloop[m
	       
	       [01;34mdeclare[m
		  
		  Op   [31m:[m Operation_Record [31m:=[m [01;30mElement[m[31m([mApp[31m.[mBank[31m.[mList[31m,[m [32mInteger[m[31m([mI[31m));[m
		  
	       [01;34mbegin[m
		  
		  Wide_Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m Op[31m.[mLabel[31m.[m[01;34mall[m [31m&[m Wide_Character'[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mFormatting[31m.[m[01;30mImage[m[31m([mOp[31m.[mDate_Op[31m))[m [31m&[m 
			     Wide_Character[31m'Val(9) & Handling.To_Wide_String(Formatting.Image(Op.Date_val)) & Wide_Character'[m[01;30mVal[m[31m([m[35m9[m[31m)[m [31m&[m 
					  Handling[31m.[m[01;30mTo_Wide_String[m[31m([mSum_Range'[01;30mImage[m[31m([mOp[31m.[msum[31m)));[m
		  
	       [01;34mend[m[31m;[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	    
	    Wide_Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
	 Projects_Manager[31m.[m[01;30mManager_Save[m[31m([mApp[31m.[mProjects[31m,[m [31m"Projects.lst"[m[31m);[m
	 Projects_Manager[31m.[m[01;30mArchives_Save[m[31m([mApp[31m.[mArchives[31m,[m [31m"Archives/Projects.lst"[m[31m);[m
	 Stocks_Save[31m;[m
	 M[31m.[mLogs[31m.[m[01;30msave[m[31m([mApp[31m.[mlogs[31m,[m M[31m.[mLogs[31m.[mLog_Filename[31m);[m
	 W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Halting CPU process..."[m[31m);[m
	 Cpu_Process[31m.[mHalt[31m;[m
	 W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"CPU process halted."[m[31m);[m
	 Main_Agence[31m.[mServers[31m.[mGame_Save[31m;[m
	 W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Halting message box"[m[31m);[m
	 M[31m.[mWOPR[31m.[mMessage_Box[31m.[mHalt[31m;[m
	 W_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Halting Servers"[m[31m);[m
	 Main_Agence[31m.[mServers[31m.[mCtrl_C_Procedure[31m;[m
	 
	 
	 
	 
      [01;34mexception[m
	 [01;34mwhen[m W_Io[31m.[mEnd_Error [31m=>[m
	    Cpu_Process[31m.[mHalt[31m;[m
	    Main_Agence[31m.[mServers[31m.[mGame_Save[31m;[m
	    M[31m.[mWOPR[31m.[mMessage_Box[31m.[mHalt[31m;[m

	    Main_Agence[31m.[mServers[31m.[mCtrl_C_Procedure[31m;[m

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