The Museum of HP Calculators

Submarine Hunt for the HP-95C

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 and uploaded by André Wilhelmus.

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.

Program Listing

HP-95C
CODEKEYS
A-000    lbl Af LBL A
A-001    62 12g CLEAR REG
A-002       66∙
A-003        55
A-004        22
A-005        88
A-006        44
A-007        11
A-008        66
A-009       39×
A-010    35  0STO 0
A-011    53  7GSB 7
A-012    35  1STO 1
A-013    53  7GSB 7
A-014    35  2STO 2
A-015        11
A-016    35 .1STO ∙1
A-017        00
A-018       64R/S
A-019 61 63  1f LBL 1
A-020    45 .0RCL ∙0
A-021        11
A-022    61 41f x=y
A-023       49−
A-024    35 .0STO ∙0
A-025       64R/S
A-026 61 63  7f LBL 7
A-027 62 63 C7g JUMP C 7
b-000    lbl bf LBL B
b-001    45 .1RCL ∙1
b-002        11
b-003    61 41f x=y
b-004       59+
b-005    35 .1STO ∙1
C-000    lbl Cf LBL C
C-001    45 .1RCL ∙1
C-002 35 59  8STO + 8
C-003    35  6STO 6
C-004       12R↓
C-005    53  8GSB 8
C-006    45 .0RCL ∙0
C-007    35  5STO 5
C-008    53  9GSB 9
C-009    45  3RCL 3
C-010       64R/S
C-011 62 63 d6g JUMP D 6
C-012 61 63  9f LBL 9
C-013    53  7GSB 7
C-014        44
C-015       11x↔y
C-016    61 44f x>y
C-017    63  0GTO 0
C-018    45  5RCL 5
C-019       22CHS
C-020    35  5STO 5
C-021 61 63  0f LBL 0
C-022    53  7GSB 7
C-023        55
C-024    61 44f x>y
C-025    63  0GTO 0
C-026        11
C-027    63  1GTO 1
C-028 61 63  0f LBL 0
C-029        22
C-030 61 63  1f LBL 1
C-031    35 52STO I
C-032    61 45f RCL i
C-033    45  5RCL 5
C-034       59+
C-035    62 43g x<0
C-036    63  0GTO 0
C-037        99
C-038       11x↔y
C-039    61 43f x<=y
C-040    63  1GTO 1
C-041 61 63  0f LBL 0
C-042    45  5RCL 5
C-043        22
C-044       39×
C-045       49−
C-046 61 63  1f LBL 1
C-047    61 35f STO i
C-048    45  3RCL 3
C-049    61 53f RTN
C-050 61 63  8f LBL 8
C-051    45  2RCL 2
C-052       49−
C-053       11x↔y
C-054    45  1RCL 1
C-055       49−
C-056    62  6g →P
C-057    45  6RCL 6
C-058       49−
C-059       66∙
C-060        99
C-061       49−
C-062    62 43g x<0
C-063    63  0GTO 0
C-064        00
C-065    63  1GTO 1
C-066 61 63  0f LBL 0
C-067        11
C-068 61 63  1f LBL 1
C-069    35  3STO 3
C-070    61 53f RTN
C-071 61 63  7f LBL 7
C-072 61 21  0f FIX 0
C-073    45  0RCL 0
C-074        99
C-075        99
C-076        77
C-077       39×
C-078    62  1g FRAC
C-079    35  0STO 0
C-080        11
C-081        00
C-082       39×
C-083    61  1f INT
C-084    61 53f RTN
d-000    lbl df LBL D
d-001        11
d-002 35 59  7STO + 7
d-003        00
d-004    35  6STO 6
d-005       12R↓
d-006       12R↓
d-007    53  8GSB 8
d-008    62 42g x!=0
d-009    63  0GTO 0
d-010        11
d-011    35  5STO 5
d-012    53  9GSB 9
d-013       64R/S
d-014    63  6GTO 6
d-015 61 63  0f LBL 0
d-016        55
d-017    35 52STO I
d-018        55
d-019        00
d-020        55
d-021 61 63  1f LBL 1
d-022    61 64f PAUSE
d-023    62 52g DSZ
d-024    63  1GTO 1
d-025       64R/S
d-026 61 63  6f LBL 6
d-027 61 21  2f FIX 2
d-028    45  7RCL 7
d-029    45  8RCL 8
d-030       23EEX
d-031        22
d-032       24÷
d-033       59+
d-034    61 53f RTN
d-035 61 63  8f LBL 8
d-036 62 63 C8g JUMP C 8
d-037 61 63  9f LBL 9
d-038 62 63 C9g JUMP C 9

Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall