data);
0170         AA=XX-location*EL*1.5;
0171         MM=AA+EL;
0172         NN=MM+EL;
0173         BB=NN+EL;
0174     <span class="keyword">end</span>
0175     <span class="keyword">if</span> typ==2, <span class="comment">% POLE-POLE</span>
0176         mess2=sprintf(<span class="string">'Pole-Pole Array %d Datum Points'</span>,data); 
0177         AA=XX-location*EL*0.5;
0178         MM=AA+EL;
0179     <span class="keyword">end</span>
0180     <span class="keyword">if</span> typ==3, <span class="comment"