unit aos2; {$L pos2.obj} interface procedure posi2;far; implementation procedure posi2;external; end.