The Museum of HP CalculatorsThis program is Copyright © 1977 by Hewlett-Packard Company and is used here by permission. It was originally printed in the HP-95C Applications book. This program was entered by André Wilhelmus and the curator added comments from the HP manual.
This program is supplied without representation or warranty of any kind. André Wilhelmus, Hewlett-Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.
| CODE | KEYS | |
|---|---|---|
| d-000 lbl d | f LBL D | Store hub coordinates |
| d-001 61 21 4 | f FIX 4 | and 180. |
| d-002 62 12 | g CLEAR REG | |
| d-003 35 0 | STO 0 | |
| d-004 11 | x⇔y | |
| d-005 35 1 | STO 1 | |
| d-006 1 | 1 | |
| d-007 8 | 8 | |
| d-008 0 | 0 | |
| d-009 35 2 | STO 2 | - - - - - - - - - - - - - - - |
| d-010 64 | R/S | |
| d-011 61 63 1 | f LBL 1 | |
| d-012 21 | ENTER ↑ | |
| d-013 21 | ENTER ↑ | |
| d-014 2 | 2 | |
| d-015 24 | ÷ | |
| d-016 61 1 | f INT | |
| d-017 45 2 | RCL 2 | |
| d-018 39 | × | 180 INT(QD/2) |
| d-019 11 | x⇔y | |
| d-020 45 2 | RCL 2 | |
| d-021 39 | × | |
| d-022 61 8 | f COS | cos (180 QD) |
| d-023 13 | R↑ | |
| d-024 61 39 | f H.MS→H | |
| d-025 39 | × | |
| d-026 49 | − | |
| d-027 61 63 4 | f LBL 4 | AZ |
| d-028 1 | 1 | |
| d-029 61 6 | f →R | |
| d-030 62 6 | g →P | |
| d-031 61 63 5 | f LBL 5 | |
| d-032 11 | x⇔y | |
| d-033 62 44 | g x>0 | AZ positive? |
| d-034 63 3 | GTO 3 | |
| d-035 3 | 3 | |
| d-036 6 | 6 | |
| d-037 0 | 0 | |
| d-038 59 | + | 360 + AZ |
| d-039 61 63 3 | f LBL 3 | |
| d-040 35 3 | STO 3 | |
| d-041 61 24 | f H→H.MS | Display AZ |
| d-042 61 53 | f RTN | - - - - - - - - - - - - - - - |
| d-043 45 3 | RCL 3 | |
| d-044 11 | x⇔y | |
| d-045 61 6 | f →R | |
| d-046 45 1 | RCL 1 | |
| d-047 59 | + | |
| d-048 61 14 | f SPACE | |
| d-049 14 | PRINT x | Print Northing |
| d-050 11 | x⇔y | |
| d-051 45 0 | RCL 0 | |
| d-052 59 | + | |
| d-053 14 | PRINT x | Print Easting |
| d-054 64 | R/S | - - - - - - - - - - - - - - - |
| d-055 61 63 2 | f LBL 2 | |
| d-056 45 0 | RCL 0 | |
| d-057 49 | − | ΔE |
| d-058 11 | x⇔y | |
| d-059 45 1 | RCL 1 | |
| d-060 49 | − | ΔN |
| d-061 62 6 | g →P | |
| d-062 61 14 | f SPACE | |
| d-063 14 | PRINT x | Print distance |
| d-064 53 5 | GSB 5 | |
| d-065 14 | PRINT x | Print AZ |
Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall