Transformación de fichero binario ebcdic-ibm a un txt

[[duilioisola]]

WOW!!!

Parece que EBCDIC es una mostruocidad!

http://en.wikipedia.org/wiki/EBCDIC

Aparentemente esta formado por caracteres de 8 bits, pero la traducción no es tan simple como parece.
Supongo que una forma de hacerlo sería:

Código Delphi [-]
var 
  EBCDIC = array[0..255]of char;

// Carga la traducción del alfabeto EBCDIC a ASCII
procedure cargar_pagina_EBCDIC;
begin
   EBCDIC[0] := ' ';
   EBCDIC[1] := ' ';
   EBCDIC[2] := ' ';
   EBCDIC[3] := ' ';
   // ...
   EBCDIC[129] := 'a';
   EBCDIC[130] := 'b';
   // ...
end;

function traduce(sEBCDIC: string) : string;
var
   i:integer;
begin
   Result := '';
   for i := 1 to length(s) do
   begin
      Result := Result + EBCDIC[Ord(sEBCDIC)];
   end;
end;

begin
  cargar_pagina_EBCDIC;
  s := traduce('FJ#d2');
  ShowMessage(s);
end;