rem n is normal file, s is simple file, none is raw file
rem t is transposed
input ready for probe 1 calibration:u1 
AUTCAL.MAC                         
scaspd=1
scafil=1
input position prb at bottom of ctr hole:u1
m1=maread
e99=point
u2=za
m1=mea 0,1,0 
input position prb at middle of ctr hole:u1
m2=maread
e99=point
u3=za
m2=mea 0,1,0
input position prb at top of ctr hole:u1
m3=maread
e99=point
u4=za
m3=mea 0,1,0
pos ,,u2+2           
scan      
pos ,,u3 
scan\continue
pos ,,u4-2 
scan\continue
e1=cyl\+zst   
write ctrhole
write sctrhole\coma,simple
write nctrhole\coma,standr
align e1\+z+y,pri
input position prb as close to top as possible:u1 
scan                                              
e2=circle      
write ctrid 
write sctrid\coma,simple
write nctrid\coma,standr
zero e2,e2,e2
input take 5 points on bearing:u1 
M1= MANINP                  
M2= MANINP
M3= MANINP
M4= MANINP
M5= MANINP
e3=sphere
write bearing 
write sbearing\coma,simple
write nbearing\coma,standr
e4=line e2,e3  
write yaxis  
write syaxis\coma,simple
write nyaxis\coma,standr
align e1,e4\+z+y
input take 10 points on the surface:u1
for l0=1 to 10
ml0=maninp
next l0 
e5=sphere
write refsurf
write srefsurf\coma,simple
write nrefsurf\coma,standr 
e6=line e2,e5  
write zaxis
write szaxis\coma,simple
write nzaxis\coma,standr    
align e6,e4\+z+y
savref refbod
end