06-29-2014, 12:59 PM
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
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