diff --git a/sim/StringP.vhd b/sim/StringP.vhd
deleted file mode 100644
index 873a827..0000000
--- a/sim/StringP.vhd
+++ /dev/null
@@ -1,77 +0,0 @@
-library ieee;
-  use ieee.std_logic_1164.all;
-
-
-package StringP is
-
-
-  function to_char    (data : in std_logic) return character;
-  function to_char    (data : in std_logic_vector(3 downto 0)) return character;
-  function to_string  (data : in std_logic) return string;
-  function to_string  (data : in std_logic_vector) return string;
-
-
-end package StringP;
-
-
-package body StringP is
-
-
-  function to_char (data : in std_logic) return character is
-  begin
-    case data is
-      when 'U' => return 'U';
-      when 'X' => return 'X';
-      when '0' => return '0';
-      when '1' => return '1';
-      when 'Z' => return 'Z';
-      when 'W' => return 'W';
-      when 'L' => return 'L';
-      when 'H' => return 'H';
-      when '-' => return '-';
-    end case;
-  end to_char;
-
-  function to_char (data : in std_logic_vector(3 downto 0)) return character is
-  begin
-    case data is
-      when x"0" => return '0';
-      when x"1" => return '1';
-      when x"2" => return '2';
-      when x"3" => return '3';
-      when x"4" => return '4';
-      when x"5" => return '5';
-      when x"6" => return '6';
-      when x"7" => return '7';
-      when x"8" => return '8';
-      when x"9" => return '9';
-      when x"A" => return 'A';
-      when x"B" => return 'B';
-      when x"C" => return 'C';
-      when x"D" => return 'D';
-      when x"E" => return 'E';
-      when x"F" => return 'F';
-      when others => return 'X';
-    end case;
-  end to_char;
-
-  function to_string (data : in std_logic) return string is
-    variable str : string(1 to 1);
-  begin
-    str(1) := to_char(data);
-    return str;
-  end function to_string;
-
-  function to_string (data : in std_logic_vector) return string is
-    variable v_str       : string (1 to data'length);
-    variable v_str_index : positive := 1;
-  begin
-    for i in data'range loop
-      v_str(v_str_index) := to_char(data(i));
-      v_str_index := v_str_index + 1;
-    end loop;
-    return v_str;
-  end function to_string;
-
-
-end package body StringP;