fpcsrc/tests/tbs/tb0398.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{ %version=1.1}
{$codepage cp850}
begin
   if ord(widechar(#196))<>9472 then
     halt(1);
   if ord(#0196)<>196 then
     halt(1);
   if ord(widechar(#$a6))<>170 then
     halt(1);
   if ord(#$0a6)<>166 then
     halt(1);
   halt(0);
end.