'$INCLUDE 'cdi_incl.cbh'
 
sub main 

   dim point as cdi_dd_point
   dim but%, men% 
   dim x&
   cv_osl = 0

   snap% = cdigetsnapmode ()
   i_ret=CdiSetSnapMode (Cdi_InterSectionSnap)
   i_ret=CdiGetPoint("Select first endpoint",c1,but,men)
   i_ret=CdiGetPoint("Select second endpoint",c2,but,men)
 
   call cdilinecenter (c1,c2,c3) 
   i_ret = cdisetsnapmode (cdi_nosnap)
   point.x = c3.x
   point.y = c3.y
   call cdicoordinput (point, cdi_abs_units)
   i = cdisetsnapmode (snap)
end sub