rem this is the hole scanning macro
bakoff=3 
scaspd=1
scafil=1
rearef refbod
savref refsys
input number of holes:u9
input ring number:t0
u10=360/u9           
an=-u10               
for l1=1 to u9
t1=ring.   
t1=t1t0         
rearef t1
objyon   
pos0   
input position prb at bottom of hole:u1 
m1=maread      
e1=point      
u2=za                                       
m1=mea 0,1,0                                
mov,,28                                     
m2=maread                                   
e2=point                                    
u3=za                                       
m2=mea 0,1,0                                
pos ,,u2+5                                  
scan\continue                               
pos ,,u3+2                                  
scan\continue                               
mov,,16                                     
rearef refsys                               
en=cyl\+zst                                 
paths .dat\c:\data\1stholes\raw              
write t0cylR.l1                             
paths .dat\c:\data\1stholes\data             
write t0cyln.l1\coma,standr                 
paths .dat\c:\data\1stholes\mathcad          
write t0cyls.l1\coma,simple                      
transp                                      
paths .dat\c:\data\1stholes\transp           
write t0cylt.l1\coma,standr 
nrot+z                                      
savref refsys                               
clrdat                                      
beep                      
next l1                            
rearef refbod                      
paths .dat\c:\data\1stholes        
mov,,10 
end