The Museum of HP Calculators

Arithmetic Teacher for the HP-41C/CV/CX

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

Program Listing

LINE  KEYS
 01 LBL "TEACH"
 02 CF 29
 03 FIX 00
 04 STO 00
 05 LBL A
 06 "MAX NUMBER?"
 07 PROMPT
 08 1
 09 +
 10 STO 04
 11 LBL "AGN"
 12 0
 13 STO 08
 14 STO 09
 15 10
 16 STO 07
 17 "+, -, *, /?"
 18 AON
 19 PROMPT
 20 AOFF
 21 ASTO 06
 22 LBL 09
 23 XEQ "RNDM"
 24 STO 02
 25 XEQ "RNDM"
 26 STO 05
 27 RCL 02
 28 XEQ IND 06
 29 LBL "TRY"
 30 ARCL 05
 31 ARCL 06
 32 ARCL 02
 33 "=?"
 34 PROMPT
 35 RCL 03
 36 X=Y?
 37 GTO "YES"
 38 "NO "
 39 AVIEW
 40 TONE 02
 41 TONE 02
 42 FS?C 00
 43 GTO 00
 44 SF 00
 45 1
 46 ST+ 09
 47 GTO "TRY"
 48 LBL 00
 49 ARCL 05
 50 ARCL 06
 51 ARCL 02
 52 "="
 53 ARCL 03
 54 AVIEW
 55 GTO 00
 56 LBL "YES"
 57 CF 00
 58 "YES"
 59 AVIEW
 60 1
 61 ST+ 08
 62 LBL 00
 63 DSE 07
 64 GTO 09
 65 RCL 09
 66 X=0?
 67 XEQ "FF"
 68 RCL 08
 69 .1
 70 /
 71 CLA
 72 ARCL X
 73 "% RIGHT"
 74 AVIEW
 75 PSE
 76 PSE
 77 GTO "AGN"
 78 LBL "+"
 79 +
 80 STO 03
 81 LASTX
 82 -
 83 LASTX
 84 CLA
 85 RTN
 86 LBL "-"
 87 -
 88 X<=0?
 89 XEQ 00
 90 STO 03
 91 LASTX
 92 +
 93 LASTX
 94 CLA
 95 RTN
 96 LBL 00
 97 CHS
 98 RCL 02
 99 X<> 05
100 X<> 02
101 RDN
102 RTN
103 LBL "*"
104 *
105 STO 03
106 LASTX
107 /
108 LASTX
109 CLA
110 RTN
111 LBL "/"
112 X<>Y
113 STO 03
114 *
115 STO 05
116 CLA
117 RTN
118 LBL "RNDM"
119 RCL 00
120 9821
121 *
122 .211327
123 +
124 FRC
125 STO 00
126 SQRT
127 RCL 04
128 *
129 INT
130 RTN
131 LBL "FF"
132 TONE 08
133 TONE 09
134 XEQ "O"
135 XEQ "O"
136 TONE 08
137 TONE 08
138 TONE 08
139 TONE 07
140 TONE 08
141 TONE 08
142 TONE 07
143 TONE 08
144 TONE 09
145 XEQ "O"
146 XEQ "O"
147 TONE 09
148 TONE 08
149 XEQ "O"
150 TONE 08
151 TONE 07
152 XEQ "O"
153 TONE 07
154 TONE 06
155 RTN
156 LBL "O"
157 X<>Y
158 X<>Y
159 X<>Y
160 X<>Y
161 X<>Y
162 X<>Y
163 RTN
164 END

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