PROGRAM t (input, output); {-*-Mode: fundamental-mode}
uses strings_elb;

var w: word; s : string_t;

BEGIN
  for w:= 1023 to 1025 do
    writeln (w:4, ' >', hex (w, 8),'< >', binary (w, 32), '<  >', octal (w, 10), '<');
  s:= 'ABC xyz ijk';
  writeln (pass_char (s, ['A'..'B', 'x']));
  writeln ('0:', field (s, ' ', 0), '<');
  writeln ('1:', field (s, ' ', 1), '<');
  writeln ('2:', field (s, ' ', 2), '<');
  writeln ('3:', field (s, ' ', 3), '<');
  writeln ('4:', field (s, ' ', 4), '<');

  writeln ('0:', field (s, ':', 0), '<');
  writeln ('1:', field (s, ':', 1), '<');
  writeln ('2:', field (s, ':', 2), '<');

  s:= 'ABC'+ chr(228) + chr(246) + chr(252) +
             chr(196) + chr(214) + chr(220) + 'XYZ';
  writeln (TranslateUmlaute (s))
END.
