freepascal.compiler/tests/tbs0128.pp

{ ^ followed by a letter must be interpreted differently
  depending on context }

const
   ArrowKeysOrFirstLetter='arrow keys '^]^r^z' or First letter.   ';

begin
   writeln(ord(^)));
end.