mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-31 02:02:40 +02:00
6 lines
74 B
PHP
6 lines
74 B
PHP
|
|
function CTRL(x: Char): Char;
|
|
begin
|
|
Result:=Char(Ord(x) and $1F);
|
|
end;
|