(setq quadrant (getkword   "\nQuadrant? [1=NE or ) ) (if (= quadrant "3")   (setq bearing (+ (angtof e   (setq bearing (angtof etex ) (= quadrant "NW") (initget 1 "2 4") (setq quadrant (getkword   "\nQuadrant? [2=SE or ) ) (if (= quadrant "2")   (setq bearing (+ (angtof e   (setq bearing (angtof etex ) (= quadrant "SW") (initget 1 "1 3") (setq quadrant (getkword
Form Object
House of M.A.N., Computer Services © 2011 House of M.A.N., Computer Services - Privacy Policy Soli Deo Gloria – To the Glory of God Alone