unit aos3;
{$L pos3.obj}
interface
procedure posi3;far;
implementation
procedure posi3;external;
end.