1package body Opt64_PKG is 2 3 procedure Encode (X : Integer) is 4 result : Hash; 5 begin 6 case X is 7 when 1 => result := "1"; 8 when 2 => result := "2"; 9 when 3 => result := "3"; 10 when others => Result := "?"; 11 end case; 12 Last_Hash := Result; 13 end; 14end; 15