.02

Sure thing. Here it is;

!************************************************
SUB new_dist(clat,clon,alat,alon,delta)
LET clatr = clat*dtr
LET clonr = clon*dtr
LET alatr = alat*dtr
LET alonr = alon*dtr

LET delta = 2*asin(sqr((sin((clatr-alatr)/2))^2+cos(clatr)*cos(alatr)*(sin((clonr-alonr)/2))^2))
LET delta = delta*rtd*111.1

END SUB

!***************************************************************************

dtr = degrees to radians
rtd = radians to degrees

Roger