HP33s and HP35s Programs

Hi all,
After the recent forum conversation regarding excel Vertical Curve spreadsheets, I felt bad that I couldn't share my excel program with you.

What I can do is share a few quickie programs that make your HP calculators far more usefull.

HP33s
(if you have not yet purchased a calculator, skip the 33s. It generally sucks.)

HMS+
I01 LBL I
I02 INPUT H
I03 ->HR
I04 INPUT H
I05 ->HR
I06 +
I07 ->HMS
I08 R/S
I09 GTO I
I10 RTN

HMS-
M01 LBL M
M02 INPUT H
M03 ->HR
M04 INPUT H
M05 ->HR
M06 -
M07 ->HMS
M08 R/S
M09 GTO M
M10 RTN

THE HP33S DOES HAVE POLAR TO RECTANGULAR BUILT INTO IT WHICH IS NICE, SO NO NEED FOR THOSE PROGRAMS.

HP35s
FOR THE HP 35, ENTER THE VALUES ON THE SCREEN AND THEN ENTER THE PROGRAM MODE. THIS RESULTS IN A FASTER SOLUTION, WITHOUT PROMPTING YOU AND WAITING FOR A RESULT. IT ALSO MAKES THINGS VERY CONVENIENT TO UTILIZE WITHIN OTHER PROGRAMS.

HMS+
A001 LBL A
A002 HMS->
A003 XY
A004 HMS->
A005 +
A006 ->HMS
A007 RTN

HMS-
B001 LBL B
B002 HMS->
B003 XY
B004 HMS->
B005 XY
B006 -
B007 RTN
B008 RTN

POLAR TO RECTANGULAR
(I take the North American surveyors approach to this. Entry is azimuth then Distance, with azimuth already in DMS format. Output is Northings then Eastings)
C001 LBL C
C002 SF 10
C003 DEG
C004 XY
C005 HMS->
C006 STO B
C007 XY
C008 STO D
C009 RCL B
C010 SIN
C011 X
C012 RCL D
C013 RCL B
C014 COS
C015 X
C016 XY
C017 RTN

RECTANGULAR TO POLAR
(I take the North American surveyors approach to this. Entry is Northings then Eastings, Output is azimuth then Distance, with azimuth already in DMS format)
D001 LBL D
D002 CF 10
D003 XY
D004 REGX+ixREGY
D005 ARG(REGX)
D006 360
D007 RMDR
D008 ->HMS
D009 ABS(REGY)
D010 RTN

Again, just giving back for all that this site has given to me.