Fix Get_Version

The nibble mask for the version byte is incorrect.  It should be on bits
4-7 but its on bits 0-3.  Right now the result of the Get_Version
function is always "unknown".  This is fixed, along with two octet
comment corrections (value and spelling).

src/adaid.adb

@@ -25,8 +25,8 @@ package body AdaID is
 
    --Get the UUID Version
    function Get_Version(This: in UUID) return VersionType is
-      -- version type in octect 9
-      b : constant Byte := This.data(6) and Byte(16#0F#);
+      -- version type in octet 7
+      b : constant Byte := This.data(6) and Byte(16#F0#);
    begin
       case b is
          when 16#10# => return Time_Based;
@@ -40,7 +40,7 @@ package body AdaID is
 
    --Get the UUID Variant
    function Get_Variant(This: in UUID) return VariantType is
-      -- variant type in octet 7
+      -- variant type in octet 9
       b : constant Byte := This.data(8);
    begin
       if (b and 16#80#) = 0 then