HP Forums

Hello,

The following program appends the standard
degrees, minutes, and seconds characters
that surveyors like to see on their angles,
bearings, and azimuths. Enjoy!

\<< 4 RND DUP FP \->STR
5 6 SUB "60" SAME
\<< IP 1 +
\>> IFT DUP IP STD
\->STR DUP SIZE 1 - 1
SWAP SUB 176 CHR +
SWAP 4 FIX FP \->STR
DUP 3 4 SUB 39 CHR
+ SWAP 5 6 SUB 34
CHR + + +
\>>

checksum: # 27DCh
bytes: 181

Regards,

Mark