[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-13 06:51:20"[m
[31m-- Version := "0.0.10r"[m
[01;34mpackage[m Sky[31m.[mStock [01;34mis[m
   
   [01;34mpragma[m [01;30mPure[m[31m([mSky[31m.[mStock[31m);[m
   
   Stock_Num_Max [31m:[m [01;34mconstant[m Natural [31m:=[m [35m2048[m[31m;[m
   
   [01;34msubtype[m Stock_Num_Range [01;34mis[m Natural [01;34mrange[m [35m0[m[31m..[mStock_Num_Max[31m;[m
   
   [01;34mtype[m Stock_Record [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
	 Num      [31m:[m Stock_Num_Range [31m:=[m [35m0[m[31m;[m
	 Name     [31m:[m Product_Name      [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m);[m
	 Quantity [31m:[m Quantity_Range [31m:=[m [35m0.0[m[31m;[m
	 Unit_Ht  [31m:[m Fixed_Unit_Ht [31m:=[m [35m0.0[m[31m;[m
	 TVA_Rate [31m:[m Fixed_Factor [31m:=[m [35m0.0[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   Null_Stock [31m:[m [01;34mconstant[m Stock_Record [31m:=[m [31m([m[35m0[m[31m,[m [31m([m[01;34mothers[m [31m=>[m [31m' '[m[31m),[m [35m0.0[m[31m,[m [35m0.0[m[31m,[m [35m0.0[m[31m);[m

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