|
@@ -3,11 +3,11 @@
|
|
|
begin
|
|
begin
|
|
|
if ord(widechar(#196))<>9472 then
|
|
if ord(widechar(#196))<>9472 then
|
|
|
halt(1);
|
|
halt(1);
|
|
|
- if ord(#0196))<>196 then
|
|
|
|
|
|
|
+ if ord(#0196)<>196 then
|
|
|
halt(1);
|
|
halt(1);
|
|
|
if ord(widechar(#$a6))<>170 then
|
|
if ord(widechar(#$a6))<>170 then
|
|
|
halt(1);
|
|
halt(1);
|
|
|
- if ord(#$0a6))<>166 then
|
|
|
|
|
|
|
+ if ord(#$0a6)<>166 then
|
|
|
halt(1);
|
|
halt(1);
|
|
|
halt(0);
|
|
halt(0);
|
|
|
end.
|
|
end.
|
peter