[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-09 22:54:03"[m
[31m-- Version := "0.0.0r"[m
[01;34mpackage[m Sky [01;34mis[m
   [01;34mpragma[m [01;30mPure[m [31m([mSky[31m);[m
      
   [01;34mtype[m Term_Enum [01;34mis[m [31m([mLinux[31m,[m xterm[31m);[m
   
   [01;34msubtype[m Line_Range [01;34mis[m Positive [01;34mrange[m [35m1[m [31m..[m [35m82[m[31m;[m
   [01;34msubtype[m Column_Range [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[m[35m340[m[31m;[m
   
   Spec_Error [31m:[m [01;34mexception[m[31m;[m
   Impl_Limit [31m:[m [01;34mexception[m[31m;[m
   
   
   [01;34mtype[m Total_Type [01;34mis[m [01;34mdelta[m [35m0.01[m [01;34mDigits[m [35m9[m [01;34mrange[m [31m-[m999_999[31m.[m[35m99[m [31m..[m 999_999[31m.[m[35m99[m[31m;[m
   [01;34mtype[m Int_Cmd_Enum [01;34mis[m [31m([mNone[31m,[m Alias[31m,[m Unalias[31m,[m Cd[31m,[m Set[31m,[m Unset[31m,[m Put[31m,[m Put_Line[31m);[m
   
   [01;34mtype[m Style_Enum [01;34mis[m [31m([mBlack_And_White[31m,[m Black_And_Color[31m,[m Color_And_White[31m,[m
		       White_And_Color[31m,[m Color_And_Color[31m,[m White_And_White[31m);[m
   
   
   [01;34msubtype[m Wstring_16 [01;34mis[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m16[m[31m);[m 
   
   [01;34msubtype[m Wstring_32 [01;34mis[m
     [32mWide_String[m[31m([m[35m1[m[31m..[m[35m32[m[31m);[m 
   
   [01;34msubtype[m Wstring_42 [01;34mis[m
     [32mWide_String[m[31m([m[35m1[m[31m..[m[35m42[m[31m);[m 
   
   [01;34msubtype[m Wstring_45 [01;34mis[m
     [32mWide_String[m[31m([m[35m1[m[31m..[m[35m45[m[31m);[m 
   
   
   [01;34msubtype[m Designation_Line [01;34mis[m [32mWide_String[m[31m([m[35m1[m[31m..[m[35m24[m[31m);[m
   
   
     
   [01;34mtype[m Fixed_Sum [01;34mis[m [01;34mdelta[m [35m0.01[m [01;34mdigits[m [35m12[m [01;34mrange[m
   [31m-[m9_9999_999[31m.[m[35m00[m[31m..[m9_999_999[31m.[m[35m00[m[31m;[m
   
   [01;34msubtype[m Days_Delay [01;34mis[m [32mInteger[m [01;34mrange[m [31m-[m[35m150[m [31m..[m [35m150[m[31m;[m
   
   
   [01;34mtype[m Fixed_Out [01;34mis[m [01;34mdelta[m [35m0.01[m [01;34mdigits[m [35m13[m [31m;[m [01;34mtype[m Fixed_In [01;34mis[m [01;34mdelta[m
   [35m0.01[m [01;34mdigits[m [35m13[m [31m;[m [01;34mtype[m Fixed_Account [01;34mis[m [01;34mdelta[m [35m0.01[m [01;34mdigits[m [35m13[m [31m;[m [01;34mtype[m
   Fixed_Factor [01;34mis[m [01;34mdelta[m [35m0.01[m [01;34mdigits[m [35m6[m [01;34mrange[m [35m0.0[m [31m..[m [35m1000.0[m[31m;[m
   
   
   [01;34msubtype[m Account_Num_Range [01;34mis[m Positive [01;34mrange[m [35m10[m[31m..[m899_999[31m;[m [01;34mtype[m
   Fixed_Unit_Ht [01;34mis[m [01;34mdelta[m [35m0.01[m [01;34mdigits[m [35m8[m [01;34mrange[m [31m-[m99_999[31m.[m[35m99[m [31m..[m 99_999[31m.[m[35m99[m[31m;[m
   [01;34mtype[m Fixed_Unit_TTC [01;34mis[m [01;34mdelta[m [35m0.01[m [01;34mdigits[m [35m9[m [01;34mrange[m [31m-[m999_999[31m.[m[35m99[m
   [31m..[m 999_999[31m.[m[35m99[m[31m;[m [01;34msubtype[m Quantity_Range [01;34mis[m [32mfloat[m [01;34mrange[m
   [31m-[m100_000[31m.[m[35m0[m[31m..[m100_000[31m.[m[35m0[m[31m;[m [01;34mtype[m Fixed_Total [01;34mis[m [01;34mdelta[m [35m0.01[m [01;34mdigits[m [35m10[m
   [01;34mrange[m [31m-[m9_999_999[31m.[m[35m99[m [31m..[m 9_999_999[31m.[m[35m99[m[31m;[m
   
   [01;34msubtype[m Payment_Delay [01;34mis[m [32mInteger[m [01;34mrange[m [31m-[m[35m120[m[31m..[m[35m120[m[31m;[m
   
   [01;34msubtype[m Product_Name [01;34mis[m WString_32[31m;[m
   
   
  
   [01;34mtype[m Deal_Enum [01;34mis[m [31m([mDeal_In[31m,[m Deal_Out[31m);[m
   
   
   [01;34msubtype[m Voice_Num_Range [01;34mis[m Natural [01;34mrange[m Natural[31m'First..Natural'[mLast[31m;[m
   
   
   [01;34mtype[m Mode_Enum [01;34mis[m [31m([m
		      
		      None[31m,[m 
		      
		      Organizer[31m,[m
		      Editor[31m,[m
		      Planning[31m,[m
		      Manager[31m,[m
		      
		      Moneybox[31m,[m
		      Activity[31m,[m
		      Stocks[31m,[m
		      Bank[31m,[m
			 
		      Log[31m,[m
		      Menu[31m,[m
		      Contacts[31m,[m
		      Library[31m,[m
		      
		      Quit
			   
		     [31m);[m
   
   
   [01;34mtype[m Class_Enum [01;34mis[m [31m([m
		       
		       None[31m,[m
		       
		       Universe[31m,[m			 
		       Profile[31m,[m
		       Content[31m,[m
		       Event[31m,[m
		       Job[31m,[m
		       Meeting[31m,[m
		       Rendezvous[31m,[m
		       Planning[31m,[m
		       
		       Book[31m,[m
		       CDROM[31m,[m
		       DVD[31m,[m
		       Car[31m,[m
		       House
			 
			 
		      [31m);[m
			 
   
   Organizer_Filename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"sky-organizer.txt"[m[31m;[m
   
   [01;34mtype[m Flag_Enum [01;34mis[m
     [31m([mNone[31m,[m
      Config_Filename[31m,[m
      Help[31m,[m
      Version[31m,[m
      Geometry[31m,[m
      Style[31m,[m
      Initialize[31m,[m
      Total
	
	
     [31m);[m

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