path: root/fpcsrc/packages/libc/src/sttydefaults.inc

function CTRL(x: Char): Char;
begin
  Result:=Char(Ord(x) and $1F);
end;