1 2 3 4 5 6 7 8 9 10
{ Old file: tbs0350.pp } { } var c : char; i : integer; begin i:=integer(c); c:=char(i); end.