<< CLLCD
"  LATS & DEPS 
 v1.1 (c) 1997 
 David  Shafer
  Press ENTER"
MSGBOX
"Enter Angle in DMS"
"" INPUT OBJ
'ANGL' STO
"Enter Bearing Direction"
{ { Azimuth
  << DROP
  >> } { NorthEast
  << DROP
  >> } { NorthWest
  << 360 ANGL HMS-
'ANGL' STO DROP
  >> } { SouthEast
  << 180 ANGL HMS-
'ANGL' STO DROP
  >> } { SouthWest
  << 180 ANGL HMS+
'ANGL' STO DROP
  >> } } 2 CHOOSE
SWAP EVAL
"Enter Length of Leg"
"" INPUT OBJ 'LEG'
STO ANGL HMS COS
LEG * "LAT" TAG
ANGL HMS SIN LEG *
"DEP" TAG 'LEG'
PURGE 'ANGL' PURGE
>>