This 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 | |
---|---|---|
b-000 lbl b | f LBL B | |
b-001 61 21 4 | f FIX 4 | |
b-002 62 12 | g CLEAR REG | |
b-003 35 0 | STO 0 | Store starting |
b-004 11 | x⇔y | coordinates |
b-005 35 1 | STO 1 | and 180. |
b-006 1 | 1 | |
b-007 8 | 8 | |
b-008 0 | 0 | |
b-009 35 2 | STO 2 | |
b-010 64 | R/S | - - - - - - - - - - - - - - - - - - - - |
b-011 61 63 1 | f LBL 1 | |
b-012 21 | ENTER ↑ | |
b-013 21 | ENTER ↑ | |
b-014 2 | 2 | |
b-015 24 | ÷ | |
b-016 61 1 | f INT | Convert bearing |
b-017 45 2 | RCL 2 | and quadrant code |
b-018 39 | × | to azimuth. |
b-019 11 | x⇔y | |
b-020 45 2 | RCL 2 | |
b-021 39 | × | |
b-022 61 8 | f COS | |
b-023 13 | R↑ | |
b-024 61 39 | f H.MS→H | |
b-025 39 | × | |
b-026 49 | − | - - - - - - - - - - - - - - - - - - - - |
b-027 61 63 4 | f LBL 4 | |
b-028 1 | 1 | |
b-029 61 6 | f →R | |
b-030 62 6 | g →P | |
b-031 61 63 2 | f LBL 2 | |
b-032 11 | x⇔y | |
b-033 62 44 | g x>0 | |
b-034 63 3 | GTO 3 | 0 < Az ≤ 360. |
b-035 3 | 3 | |
b-036 6 | 6 | |
b-037 0 | 0 | |
b-038 59 | + | |
b-039 61 63 3 | f LBL 3 | |
b-040 35 3 | STO 3 | |
b-041 61 24 | f H→H.MS | |
b-042 64 | R/S | - - - - - - - - - - - - - - - - - - - - |
b-043 35 59 4 | STO + 4 | Input horizontal |
b-044 45 3 | RCL 3 | distance. |
b-045 11 | x⇔y | |
b-046 61 6 | f →R | |
b-047 35 59 5 | STO + 5 | |
b-048 11 | x⇔y | |
b-049 35 59 6 | STO + 6 | |
b-050 2 | 2 | |
b-051 24 | ÷ | Accumulate area |
b-052 45 6 | RCL 6 | and compute |
b-053 49 | − | next coordinates. |
b-054 39 | × | |
b-055 35 59 7 | STO + 7 | |
b-056 45 5 | RCL 5 | |
b-057 45 1 | RCL 1 | |
b-058 59 | + | |
b-059 61 14 | f SPACE | |
b-060 14 | PRINT x | |
b-061 45 6 | RCL 6 | |
b-062 45 0 | RCL 0 | |
b-063 59 | + | |
b-064 14 | PRINT x | - - - - - - - - - - - - - - - - - - - - |
d-000 lbl d | f LBL D | |
d-001 45 7 | RCL 7 | |
d-002 61 2 | f ABS | Area |
d-003 64 | R/S | |
d-004 45 6 | RCL 6 | - - - - - - - - - - - - - - - - - - - - |
d-005 45 5 | RCL 5 | |
d-006 62 6 | g →P | Set-up for closure. |
d-007 64 | R/S | |
d-008 62 63 b2 | g JUMP B 2 |
Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall