mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:07:56 +02:00
17 lines
290 B
ObjectPascal
17 lines
290 B
ObjectPascal
{$mode objfpc}
|
|
{$h+}
|
|
|
|
var
|
|
s : rawByteString;
|
|
begin
|
|
s:='REGISTER'+'DATA';
|
|
writeln(stringcodepage(s));
|
|
if stringcodepage(s)<>0 then
|
|
halt(1);
|
|
s:=s+'NAME';
|
|
writeln(stringcodepage(s));
|
|
if (stringcodepage(s)<>0) and
|
|
(stringcodepage(s)<>DefaultSystemCodePage) then
|
|
halt(2);
|
|
end.
|