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