unit aos1;
{$L pos1.obj}
interface
procedure posi1;far;
implementation
procedure posi1;external;
end.