[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-20 19:09:59 ; [m
[31m-- Version := 0.10.0r ; [m
[01;34mwith[m Gnat[31m.[mOs_Lib[31m;[m
[01;34muse[m Gnat[31m.[mOs_Lib[31m;[m
[01;34mwith[m Ada[31m.[mWide_Text_Io[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;34muse[m Sky[31m.[mProjects_Manager[31m;[m

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

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

[01;34mwith[m Ada[31m.[mCalendar[31m;[m
[01;34muse[m Ada[31m.[mCalendar[31m;[m
[01;34mgeneric[m
   [01;34mwith[m [01;34mpackage[m Windows [01;34mis[m [01;34mnew[m Sky[31m.[m[01;30mWindows[m [31m(<>);[m
[01;34mpackage[m Sky[31m.[mWalk [01;34mis[m
   
   [01;34mpackage[m Classes [01;34mis[m [01;34mnew[m Sky[31m.[m[01;30mClasses[m [31m([mWindows[31m.[mAnsi_Windows[31m);[m
   
   [01;34mfunction[m [01;30mSystem[m[31m([mCmd [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mreturn[m [32mInteger[m[31m;[m
   [01;34mpragma[m [01;30mImport[m [31m([mC[31m,[m System[31m,[m [31m"system"[m[31m);[m
   
   Errno [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   
   
   [01;34mpackage[m W_Io [01;34mrenames[m Ada[31m.[mWide_Text_Io[31m;[m
   
   
   
      
   [01;34mtype[m Abstract_Mode [01;34mis[m [01;34mabstract[m [01;34mtagged[m [01;34mlimited[m [01;34mnull[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m [01;30mAll_Mode[m[31m([mName [31m:[m Mode_Enum[31m)[m [01;34mis[m [01;34mnew[m Abstract_Mode [01;34mwith[m [01;34mnull[m [01;34mrecord[m[31m;[m
   
   
   
   [01;34mtype[m All_Access [01;34mis[m [01;34maccess[m All_Mode'class[31m;[m
   
   [01;34mtype[m Mode_Array [01;34mis[m [01;34marray[m [31m([mNatural [01;34mrange[m [31m<>)[m [01;34mof[m All_Access[31m;[m
   
   [01;34mtype[m Application_Record[31m;[m
   
   [01;34mtask[m [01;34mtype[m [01;30mConsole_Process[m[31m([mApp [31m:[m [01;34maccess[m Application_Record[31m)[m [01;34mis[m
      [01;34mentry[m Initialize[31m;[m
      [01;34mentry[m [01;30mReceive[m[31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m Halt[31m;[m
      [01;34mentry[m [01;30mMode[m[31m([mMode [31m:[m [01;34mout[m Mode_Enum[31m);[m
      [01;34mentry[m Reset[31m;[m
      [01;34mentry[m [01;30mSwitch[m [31m([mMode [31m:[m [01;34min[m Mode_Enum[31m);[m
      [01;34mentry[m [01;30mSet_On_Esc[m[31m([mIs_Escape [31m:[m [01;34min[m [32mBoolean[m[31m);[m      
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
   [01;34mend[m Console_Process[31m;[m
   
   [01;34mtype[m App_Access [01;34mis[m [01;34maccess[m [01;34mall[m Application_Record[31m;[m
   
   [01;34mtype[m [01;30mNone_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mNone_Process[m [31m([mMode [31m:[m [01;34maccess[m None_Record[31m;[m App [31m:[m App_Access[31m)[m [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m Halt[31m;[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Refresh[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Full_Screen[31m;[m

      [01;34mentry[m Del[31m;[m

      [01;34mentry[m Begin_Of[31m;[m

      [01;34mentry[m End_Of[31m;[m
      
      [01;34mentry[m Overwrite[31m;[m

      [01;34mentry[m Screen_Print[31m;[m
      
   [01;34mend[m None_Process[31m;[m
   [01;34mtype[m [01;30mNone_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mNone[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mNone_Process[m[31m([mNone_Record'[01;34mAccess[m[31m,[m App[31m);[m	    
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34msubtype[m Cpu_String [01;34mis[m [32mString[m [31m([m[35m1[m[31m..[m[35m6[m[31m);[m
   
   Home_Dir [31m:[m [32mString[m [31m:=[m [01;30mGetenv[m[31m([m[31m"HOME"[m[31m).[m[01;34mall[m[31m;[m
   
   [01;34mtask[m CPU_Process [01;34mis[m
      [01;34mentry[m Initialize[31m;[m
      [01;34mentry[m [01;30mCpu_Get[m[31m([mCPU_Usage [31m:[m [01;34mout[m CPU_String[31m);[m
      
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m CPU_Process[31m;[m
   
   
   [31m-------------------------------------------------------------[m
   [31m--                            Log                          --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   
   [01;34mtype[m [01;30mLog_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mLog_Process[m [31m([mMode [31m:[m [01;34maccess[m Log_Record[31m;[m App [31m:[m App_Access[31m)[m  [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Log_Process[31m;[m
   [01;34mtype[m [01;30mLog_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mLog[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mLog_Process[m[31m([mLog_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [31m-------------------------------------------------------------[m
   [31m--                            Log                          --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   
   [01;34mtype[m [01;30mMoneybox_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mMoneyBox_Process[m [31m([mMode [31m:[m [01;34maccess[m MoneyBox_Record[31m;[m App [31m:[m App_Access[31m)[m  [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m Refresh[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
      [01;34mentry[m Full_Screen[31m;[m
      [01;34mentry[m Screen_Print[31m;[m
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m MoneyBox_Process[31m;[m
   [01;34mtype[m [01;30mMoneyBox_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mMoneybox[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mMoneyBox_Process[m[31m([mMoneyBox_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [31m-------------------------------------------------------------[m
   [31m--                            Log                          --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   
   [01;34mtype[m [01;30mActivity_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mActivity_Process[m [31m([mMode [31m:[m [01;34maccess[m Activity_Record[31m;[m App [31m:[m App_Access[31m)[m  [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m Refresh[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
      [01;34mentry[m Screen_Print[31m;[m
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Activity_Process[31m;[m
   [01;34mtype[m [01;30mActivity_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mActivity[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mActivity_Process[m[31m([mActivity_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   
   [31m-------------------------------------------------------------[m
   [31m--                            Log                          --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   
   [01;34mtype[m [01;30mStocks_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mStocks_Process[m [31m([mMode [31m:[m [01;34maccess[m Stocks_Record[31m;[m App [31m:[m App_Access[31m)[m  [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m Refresh[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
      [01;34mentry[m Full_Screen[31m;[m
      [01;34mentry[m Screen_Print[31m;[m
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Stocks_Process[31m;[m
   [01;34mtype[m [01;30mStocks_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mStocks[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mStocks_Process[m[31m([mStocks_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [31m-------------------------------------------------------------[m
   [31m--                            Log                          --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   
   [01;34mtype[m [01;30mBank_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mBank_Process[m [31m([mMode [31m:[m [01;34maccess[m Bank_Record[31m;[m App [31m:[m App_Access[31m)[m  [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Bank_Process[31m;[m
   [01;34mtype[m [01;30mBank_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mbank[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mBank_Process[m[31m([mBank_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [31m-------------------------------------------------------------[m
   [31m--                            Log                          --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   
   [01;34mtype[m Planning_Record[31m;[m
   [01;34mtask[m [01;34mtype[m [01;30mPlanning_Process[m [31m([mMode [31m:[m [01;34maccess[m Planning_Record[31m;[m App [31m:[m App_Access[31m)[m  [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Planning_Process[31m;[m
   [01;34mtype[m [01;30mPlanning_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mPlanning[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mPlanning_Process[m[31m([mPlanning_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m

   
   [31m-------------------------------------------------------------[m
   [31m--                            Log                          --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   
   [01;34mtype[m [01;30mLibrary_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mLibrary_Process[m [31m([mMode [31m:[m [01;34maccess[m Library_Record[31m;[m App [31m:[m App_Access[31m)[m  [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      
      [01;34mentry[m Refresh[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
      [01;34mentry[m Screen_Print[31m;[m
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Library_Process[31m;[m
   [01;34mtype[m [01;30mLibrary_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mLibrary[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mLibrary_Process[m[31m([mLibrary_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [31m-------------------------------------------------------------[m
   [31m--                         Manager                         --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   [01;34mtype[m [01;30mManager_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mManager_Process[m [31m([mMode [31m:[m [01;34maccess[m Manager_Record[31m;[m App [31m:[m App_Access[31m)[m [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      
      [01;34mentry[m Refresh[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Full_Screen[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Overwrite[31m;[m
      [01;34mentry[m Screen_Print[31m;[m
      
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Manager_Process[31m;[m
   [01;34mtype[m [01;30mManager_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mManager[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mManager_Process[m[31m([mManager_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m

   [31m-------------------------------------------------------------[m
   [31m--                            Log                          --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   
   [01;34mtype[m [01;30mContacts_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mContacts_Process[m [31m([mMode [31m:[m [01;34maccess[m Contacts_Record[31m;[m App [31m:[m App_Access[31m)[m  [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Contacts_Process[31m;[m
   [01;34mtype[m [01;30mContacts_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mContacts[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mContacts_Process[m[31m([mContacts_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [31m-------------------------------------------------------------[m
   [31m--                            Log                          --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   
   [01;34mtype[m [01;30mMenu_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mMenu_Process[m [31m([mMode [31m:[m [01;34maccess[m Menu_Record[31m;[m App [31m:[m App_Access[31m)[m  [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Menu_Process[31m;[m
   [01;34mtype[m [01;30mMenu_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mMenu[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mMenu_Process[m[31m([mMenu_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [31m-------------------------------------------------------------[m
   [31m--                            Log                          --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   
   [01;34mtype[m [01;30mOrganizer_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mOrganizer_Process[m [31m([mMode [31m:[m [01;34maccess[m Organizer_Record[31m;[m App [31m:[m App_Access[31m)[m  [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Organizer_Process[31m;[m
   [01;34mtype[m [01;30mOrganizer_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mOrganizer[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mOrganizer_Process[m[31m([mOrganizer_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m

   [31m-------------------------------------------------------------[m
   [31m--                            Log                          --[m
   [31m-------------------------------------------------------------[m
   [31m--                                                         --[m
   [31m--                                                         --[m
   [31m--                                                         --   [m
   
   [01;34mtype[m [01;30mEditor_Record[m[31m([mApp [31m:[m App_Access[31m);[m
   [01;34mtask[m [01;34mtype[m [01;30mEditor_Process[m [31m([mMode [31m:[m [01;34maccess[m Editor_Record[31m;[m App [31m:[m App_Access[31m)[m  [01;34mis[m
      [31m--entry Initialize(App : in App_Access);[m
      [01;34mentry[m [01;30mReceive[m [31m([mWchar [31m:[m [01;34min[m Wide_Character[31m);[m
      [01;34mentry[m [01;30mWake_Up[m[31m([mTop [31m:[m [01;34min[m Natural[31m);[m
      [01;34mentry[m Suspend[31m;[m
      [01;34mentry[m Page_Down[31m;[m
      [01;34mentry[m Page_Up[31m;[m
      [01;34mentry[m Up_Arrow[31m;[m
      [01;34mentry[m Down_Arrow[31m;[m
      [01;34mentry[m Left_Arrow[31m;[m
      [01;34mentry[m Right_Arrow[31m;[m
      [01;34mentry[m Begin_Of[31m;[m
      [01;34mentry[m End_Of[31m;[m
      [01;34mentry[m Del[31m;[m
      [01;34mentry[m Overwrite[31m;[m      
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Editor_Process[31m;[m
   [01;34mtype[m [01;30mEditor_Record[m[31m([mApp [31m:[m App_Access[31m)[m [01;34mis[m [01;34mnew[m [01;30mAll_Mode[m[31m([mEditor[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Proc [31m:[m [01;30mEditor_Process[m[31m([mEditor_Record'[01;34mAccess[m[31m,[m App[31m);[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34muse[m Windows[31m;[m
   
   [01;34mtype[m Accounting_Windows_Type [01;34mis[m
      [01;34mrecord[m
	 Voice_Num_Win     [31m:[m Window_Record[31m;[m
	 Acc_Num_Win       [31m:[m Window_Record[31m;[m
	 Total_Ht_Win      [31m:[m Window_Record[31m;[m
	 Total_TVA_Win     [31m:[m Window_Record[31m;[m
	 Total_TTC_Win     [31m:[m Window_Record[31m;[m
	 Date_Win          [31m:[m Window_Record[31m;[m
	 Peer_Win          [31m:[m Window_Record[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m   
   
   [01;34mtype[m Ticket_Windows_Type [01;34mis[m
      [01;34mrecord[m
	 Line_Num_Win      [31m:[m Window_Record[31m;[m
	 Description_Win   [31m:[m Window_Record[31m;[m
	 Unit_Ht_Win       [31m:[m Window_Record[31m;[m
	 Quantity_Win      [31m:[m Window_Record[31m;[m
	 Total_Ht_Win      [31m:[m Window_Record[31m;[m
	 TVA_Win           [31m:[m Window_Record[31m;[m
	 Total_TVA_Win     [31m:[m Window_Record[31m;[m
	 Total_TTC_Win     [31m:[m Window_Record[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m   
   
   [01;34mtype[m stock_Windows_Type [01;34mis[m
      [01;34mrecord[m
	 stock_Num_Win     [31m:[m Window_Record[31m;[m
	 Name_Win          [31m:[m Window_Record[31m;[m
	 Quantity_Win      [31m:[m Window_Record[31m;[m
	 Unit_Ht_Win       [31m:[m Window_Record[31m;[m
	 TVA_Win           [31m:[m Window_Record[31m;[m

      [01;34mend[m [01;34mrecord[m[31m;[m   
   
   [01;34muse[m Classes[31m;[m
   
   [01;34mtype[m Terminal_Type [01;34mis[m
      [01;34mrecord[m
	 Root [31m:[m Abstract_Access[31m;[m
	 Path [31m:[m Abstract_Vectors[31m.[mVector[31m;[m
	 Cur  [31m:[m Abstract_Access[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   
   [01;34mtype[m Application_Record [01;34mis[m [01;34mlimited[m
      [01;34mrecord[m	 
	 Lines         [31m:[m Line_Range [31m:=[m [35m80[m[31m;[m
	 Columns       [31m:[m Column_Range [31m:=[m [35m320[m[31m;[m
	 
	 Term    [31m:[m Term_Enum [31m:=[m Linux[31m;[m
	 Desktop [31m:[m [01;30mMode_Array[m[31m([m[35m1[m[31m..[m[35m2[m[31m);[m
	 Mode    [31m:[m Mode_Enum [31m:=[m Log[31m;[m
	 Console [31m:[m [01;30mConsole_Process[m[31m([mApplication_Record'[01;34mAccess[m[31m);[m
	 
	 
	 [31m------------------------------------------------------------[m
	 [31m--                Project Manager[m
	 
	 Projects          [31m:[m [01;30mProjects_Record[m[31m([mProject_Num_Range'Last[31m);[m
	 Archives          [31m:[m [01;30mProjects_Record[m[31m([mProject_Num_Range'Last[31m);[m
	 
	 [31m------------------------------------------------------------[m
	 [31m--                Activity[m
	 
	 Activity_Wins     [31m:[m Accounting_Windows_Type[31m;[m
	 Initialized       [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 
	 [31m------------------------------------------------------------[m
	 [31m--                 Stocks[m
	 
	 Stocks_Wins       [31m:[m Stock_Windows_Type[31m;[m
	 
	 [31m------------------------------------------------------------[m
	 [31m--                 Money Box[m
	 
	 Ticket_Wins       [31m:[m Ticket_Windows_Type[31m;[m
	 
	 [31m------------------------------------------------------------[m
	 [31m--                   Bank[m
	 
	 [31m--  Accounting_Wins   : Accounting_Windows_Type;[m
	 
	 [31m------------------------------------------------------------[m
	 [31m--                Organizer[m
	 Terminal [31m:[m Terminal_Type[31m;[m
	 
	 Sessions [31m:[m Session_Array[31m;[m
	 Logs [31m:[m Log_Array [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m([m[35m0.0[m[31m,[m [35m0.0[m[31m));[m
	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mprocedure[m [01;30mRestore[m[31m([mT [31m:[m [01;34min[m [01;34mout[m Terminal_Type[31m;[m
   		     Filename [31m:[m [01;34min[m [32mString[m[31m);[m
   
   App [31m:[m [01;34maliased[m Application_Record[31m;[m
   Machines [31m:[m [01;30mMode_Array[m [31m([m[35m0[m[31m..[m[35m13[m[31m);[m
[01;34mend[m Sky[31m.[mWalk [31m;[m 
