Post Reply 
HP 50g Surveyor's Stuff
06-29-2014, 12:59 PM
Post: #1
HP 50g Surveyor's Stuff
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
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)