blob: 15a3a9693085e43c58c68b177d86a3433b94b22f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
uses uw9113a, uw9113b;
var
v1: smallint; cvar; external;
myv2: smallint; external name '_v2';
myv3: smallint; external name '_v3';
v4: smallint; cvar; external;
myv5: smallint; external name '_v5';
myv6: smallint; external name '_v6';
begin
if (v1 <> 1) or
(myv2 <> 2) or
(myv3 <> 3) or
(v4 <> 4) or
(myv5 <> 5) or
(myv6 <> 6) then
halt(1);
end.
|
