The Museum of HP Calculators

Submarine Hunt for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Games Pac 1. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. This program was entered and uploaded by Tony Duell. The Barcode for this program was provided by Brian Ward.

This program is supplied without representation or warranty of any kind. Tony Duell, 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.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download
Display the Program Barcode (.pdf) for printing and scanning

Program Listing

LINE  KEYS
 01 LBL "SBHN67"
 02 LBL 12
 03 LBL C
 04 1
 05 STO 22
 06 SF 00
 07 RTN
 08 LBL 13
 09 LBL D
 10 RCL 23
 11 1
 12 X=Y?
 13 +
 14 STO 23
 15 RTN
 16 LBL 14
 17 LBL E
 18 7CLREG
 19 CF 00
 20 .528416
 21 *
 22 STO 00
 23 XEQ 18
 24 STO 01
 25 XEQ 18
 26 STO 02
 27 7DSP0
 28 1
 29 STO 23
 30 CLX
 31 RTN
 32 LBL 10
 33 LBL A
 34 1
 35 ST+ 07
 36 RDN
 37 SF 01
 38 XEQ 17
 39 X#0?
 40 GTO 00
 41 1
 42 STO 05
 43 XEQ 15
 44 RTN
 45 LBL 00
 46 9
 47 1/X
 48 7DSP3
 49 PSE
 50 7DSP5
 51 PSE
 52 7DSP7
 53 PSE
 54 7DSP9
 55 PSE
 56 RTN
 57 LBL 11
 58 LBL B
 59 1
 60 ST+ 08
 61 RDN
 62 7DSP0
 63 CF 01
 64 XEQ 17
 65 RCL 22
 66 STO 05
 67 FS? 00
 68 XEQ 15
 69 RCL 03
 70 RTN
 71 LBL 15
 72 LBL a
 73 XEQ 18
 74 4
 75 X<>Y
 76 X>Y?
 77 GTO 00
 78 RCL 05
 79 CHS
 80 GTO 01
 81 LBL 00
 82 RCL 05
 83 LBL 01
 84 STO 06
 85 XEQ 18
 86 5
 87 X>Y?
 88 GTO 00
 89 SF 02
 90 RCL 01
 91 GTO 01
 92 LBL 00
 93 RCL 02
 94 LBL 01
 95 RCL 06
 96 +
 97 X<0?
 98 GTO 00
 99 9
100 X<>Y
101 X<=Y?
102 GTO 01
103 LBL 00
104 RCL 06
105 2
106 *
107 -
108 LBL 01
109 FS?C 02
110 GTO 00
111 STO 02
112 GTO 01
113 LBL 00
114 STO 01
115 LBL 01
116 RCL 03
117 7DSP0
118 RTN
119 LBL 17
120 LBL c
121 RCL 02
122 -
123 X<>Y
124 RCL 01
125 -
126 R-P
127 STO 04
128 FS? 01
129 GTO 00
130 RCL 23
131 -
132 LBL 00
133 .9
134 -
135 X<0?
136 GTO 00
137 0
138 GTO 01
139 LBL 00
140 1
141 LBL 01
142 STO 03
143 RTN
144 LBL 18
145 LBL d
146 RCL 00
147 997
148 *
149 FRC
150 STO 00
151 10
152 *
153 INT
154 RTN
155 LBL 19
156 LBL e
157 7DSP2
158 RCL 07
159 RCL 08
160 100
161 /
162 +
163 RTN
164 STOP
165 END

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