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 5 | 5 | Initialize |
| A-002 0 | 0 | |
| A-003 0 | 0 | |
| A-004 35 9 | STO 9 | |
| A-005 5 | 5 | |
| A-006 0 | 0 | |
| A-007 22 | CHS | |
| A-008 35 8 | STO 8 | |
| A-009 1 | 1 | |
| A-010 2 | 2 | |
| A-011 0 | 0 | |
| A-012 35 7 | STO 7 | |
| A-013 61 63 1 | f LBL 1 | - - - - - - - - - - - - - - - |
| A-014 61 21 4 | f FIX 4 | |
| A-015 45 9 | RCL 9 | Form display. |
| A-016 23 | EEX | |
| A-017 4 | 4 | |
| A-018 24 | ÷ | |
| A-019 45 8 | RCL 8 | |
| A-020 62 43 | g x<0 | |
| A-021 63 0 | GTO 0 | |
| A-022 59 | + | |
| A-023 63 2 | GTO 2 | |
| A-024 61 63 0 | f LBL 0 | |
| A-025 11 | x⇔y | |
| A-026 49 | − | V. X. |
| A-027 61 63 2 | f LBL 2 | - - - - - - - - - - - - - - - |
| A-028 61 53 | f RTN | |
| A-029 45 7 | RCL 7 | |
| A-030 11 | x⇔y | |
| A-031 61 44 | f x>y | |
| A-032 63 3 | GTO 3 | If burn > fuel, |
| A-033 35 49 7 | STO − 7 | prepare to crash |
| A-034 5 | 5 | |
| A-035 49 | − | |
| A-036 35 6 | STO 6 | Else update A, X, V. |
| A-037 2 | 2 | |
| A-038 24 | ÷ | |
| A-039 45 9 | RCL 9 | |
| A-040 59 | + | X ← X + V + A/2. |
| A-041 45 8 | RCL 8 | |
| A-042 59 | + | |
| A-043 35 9 | STO 9 | |
| A-044 62 43 | g x<0 | |
| A-045 63 4 | GTO 4 | If X below ground, |
| A-046 45 6 | RCL 6 | you've crashed. |
| A-047 35 59 8 | STO + 8 | |
| A-048 63 1 | GTO 1 | Else update V: |
| A-049 61 63 3 | f LBL 3 | V ← V + A. |
| A-050 45 8 | RCL 8 | |
| A-051 42 | x² | All fuel gone, show |
| A-052 45 9 | RCL 9 | crash velocity. |
| A-053 1 | 1 | |
| A-054 0 | 0 | |
| A-055 39 | × | |
| A-056 59 | + | |
| A-057 41 | √x | |
| A-058 22 | CHS | |
| A-059 35 8 | STO 8 | |
| A-060 61 63 4 | f LBL 4 | - - - - - - - - - - - - - - - |
| A-061 45 8 | RCL 8 | Crash V. |
| A-062 61 21 0 | f FIX 0 |
Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall