This routine design to put bearins labels on segments of separate lines.
It will automatically read DIMSCALE, udjust text hight (1/8") accordingly.
It will use current dimension settings to creat6e leader and put MTEXT.
It will get length of the segment and bearings (in Survay Units) with presision of two
digits of a second something like this S 22d35'12.45" E.
Program is tested and works in R14 and R2000.
To run program - load it and type BRG at command prompt.
Follow prompts - select line segment, than select firct point for leader,
than second point. Than select direction of text (can be at any angle).
To download pick here BRG.EXE (self extracting Zip file)