[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-11-17 09:31:39 ; [m
[31m-- Version := 0.2.0r ; [m
[01;34mwith[m Sky [31m;[m 
[01;34muse[m Sky[31m;[m
[01;34mwith[m Sky[31m.[mWalk[31m;[m

[01;34mwith[m Gnat[31m.[mOs_Lib[31m;[m
[01;34muse[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 Sky[31m.[mProject[31m;[m
[01;34muse[m Sky[31m.[mProject[31m;[m
[01;34mwith[m Sky[31m.[mProjects_Manager[31m;[m

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

[01;34mwith[m Sky[31m.[mAnsi[31m.[mWindows[31m;[m

[01;34mwith[m Sky[31m.[mWindows[31m;[m

[01;34mwith[m Sky[31m.[mParameters[31m;[m
[01;34mwith[m Sky[31m.[mInterfaces[31m;[m
[01;34muse[m Sky[31m.[mParameters[31m;[m
[01;34muse[m Sky[31m.[mInterfaces[31m;[m

[01;34mwith[m Sky[31m.[mShared[31m;[m
[01;34muse[m Sky[31m.[mShared[31m;[m

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

[01;34mwith[m Sky[31m.[mBalance[31m;[m
[01;34mwith[m Sky[31m.[mAccountant[31m;[m
[01;34muse[m Sky[31m.[mAccountant[31m;[m
[01;34mwith[m Sky[31m.[mStocks_Manager[31m;[m
[01;34muse[m Sky[31m.[mStocks_Manager[31m;[m
[01;34mwith[m Sky[31m.[mLogs[31m;[m
[01;34mprocedure[m Skywalker [01;34mis[m
   
   Lines [31m:[m Line_Range [31m:=[m [35m67[m[31m;[m
   Columns [31m:[m Column_Range [31m:=[m [35m240[m[31m;[m
   
   [01;34muse[m Projects_Manager[31m.[mProjects_Dll[31m;[m

   Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   
   

   End_Of_Program [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   
   
   Mode [31m:[m Mode_Enum [31m:=[m None[31m;[m
   
   Int [31m:[m Interface_Record[31m;[m
   
   The_Style [31m:[m Style_Enum [31m:=[m Color_And_Color[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 sky[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
      

      [01;34mif[m Help_Parameter[31m.[mIs_Setted [01;34mthen[m
	 Interfaces[31m.[m[01;30mParameters_Descriptions[m[31m([mInt[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
	    [01;34mreturn[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m	    
      [01;34mend[m [01;34mif[m[31m;[m

      [31m--Interfaces.Print_Parameters(Interf);[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
	 
	 [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
	 
	 [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
   [01;34mdeclare[m
      [01;34mpackage[m Ansi_Windows [01;34mis[m [01;34mnew[m Sky[31m.[mAnsi[31m.[m[01;30mWindows[m [31m([mLines[31m,[m Columns[31m);[m
      [01;34mpackage[m Windows [01;34mis[m [01;34mnew[m Sky[31m.[m[01;30mWindows[m [31m([mLines[31m,[m Columns[31m,[m The_Style[31m,[m Ansi_Windows[31m);[m
      
      [01;34mpackage[m My_Walker [01;34mis[m [01;34mnew[m Sky[31m.[m[01;30mWalk[m[31m([mWindows[31m);[m
      [01;34muse[m My_Walker[31m;[m
      
      
   [01;34mbegin[m
      
      App[31m.[mLines [31m:=[m Lines[31m;[m
      App[31m.[mColumns [31m:=[m Columns[31m;[m
      
      [01;34mbegin[m
	 App[31m.[mTerm [31m:=[m Term_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 Xterm[31m;[m
      [01;34mend[m[31m;[m
      
      Machines [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;30mEditor_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;30mLog_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 [01;34mothers[m [31m=>[m [01;34mnull[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
      
      [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
      
      
      [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
      [31m--Text_Io.Put_Line("initialized");[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
      [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
      
      
      [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[m[31m([m[31m"Loading stocks..."[m[31m);[m
      Stocks_Restore[31m;[m
      Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Done."[m[31m);[m
      
      [01;34mif[m [01;30mIs_Regular_File[m[31m([m[31m"Projects.lst"[m[31m)[m [01;34mthen[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
      [01;34mif[m [01;30mIs_Regular_File[m[31m([m[31m"Archives/Projects.lst"[m[31m)[m [01;34mthen[m
	 Projects_Manager[31m.[m[01;30mArchives_Load[m[31m([mApp[31m.[mArchives[31m,[m [31m"Archives/Projects.lst"[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([mSky[31m.[mLogs[31m.[mLog_Filename[31m)[m [01;34mthen[m
	 Sky[31m.[mLogs[31m.[m[01;30mRestore[m[31m([mApp[31m.[mlogs[31m,[m Sky[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
      
      App[31m.[mConsole[31m.[mInitialize[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 [31m' '[m[31m;[m
	 [01;34mbegin[m
	    
	    [01;34mcase[m App[31m.[mTerm [01;34mis[m
	       [01;34mwhen[m Linux [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
				       Errno [31m:=[m [01;30mSystem[m[31m([m[31m"clear"[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[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
					  [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
					  [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
					  [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
					  [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[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([mEditor  [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

				 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
		     
		     
		     
		     [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 Xterm [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
				       Errno [31m:=[m [01;30mSystem[m[31m([m[31m"clear"[m [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m0[m[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([mEditor[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
					     [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 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
					  [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
					  [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
					  [01;34mwhen[m [01;34mothers[m [31m=>[m
					     [01;34mnull[m[31m;[m
				       [01;34mend[m [01;34mcase[m[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
				       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[35m53[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                                 
					  [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m54[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
					  [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m56[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
					  [01;34mwhen[m Wide_Character'[01;30mVal[m[31m([m[35m57[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
					  [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
      
      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
      Sky[31m.[mLogs[31m.[m[01;30msave[m[31m([mApp[31m.[mlogs[31m,[m Sky[31m.[mLogs[31m.[mLog_Filename[31m);[m
      [31m--W_Io.Put_Line("Halting CPU process...");[m
      Cpu_Process[31m.[mHalt[31m;[m
      [31m--W_Io.Put_Line("CPU process halted.");[m
   [01;34mexception[m
      [01;34mwhen[m W_Io[31m.[mEnd_Error [31m=>[m
	 Cpu_Process[31m.[mHalt[31m;[m
   [01;34mend[m[31m;[m
[01;34mend[m Skywalker [31m;[m 
