The Museum of HP Calculators

Bell-Fruit (Mills Standard) 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 Data Set (.d41) See Note under Data Sets (below.)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Data Sets

Currently, we know how to transfer the .d41 files to an HP-4C1 with Tony Duell's LIF Utilities for linux. Other users can enter the register listings below by hand. If you determine how DOS users can transfer these files, please let me know.

You start the program by loading the data set and then XEQ "BFRUIT".

Data Set

RR000 = +0.000000000E+0
RR001 = +0.000000000E+0
RR002 = +0.000000000E+0
RR003 = +0.000000000E+0
RR004 = +5.235425653E-1
RR005 = +2.525025252E-1
RR006 = +1.314153514E-1
RR007 = +1.635104154E-1
RR008 = +2.631342341E-1
RR009 = +3.454313430E-2
RR010 = -2.350316490E+3
RR011 = +1.000000000E+3
RR012 = +0.000000000E+0
RR013 = +0.000000000E+0
RR014 = +0.000000000E+0
RR015 = +0.000000000E+0
RR016 = +1.000000000E+0
RR017 = +0.000000000E+0
RR018 = +0.000000000E+0
RR019 = +0.000000000E+0
RR020 = +1.000000000E+1
RR021 = -1.000000000E-1
RR022 = +3.000000000E-1
RR023 = +9.970000000E+2
RR024 = +5.284163000E-1
RR025 = +0.000000000E+0

Program Listing

LINE  KEYS
 01 LBL "BFRUIT"
 02 LBL 10
 03 LBL A
 04 3
 05 STO 25
 06 LBL 09
 07 XEQ 19
 08 2
 09 *
 10 RCL 25
 11 2
 12 *
 13 2
 14 +
 15 +
 16 X<> 25
 17 RCL IND 25
 18 X<>Y
 19 STO 25
 20 RDN
 21 XEQ 19
 22 RCL 20
 23 *
 24 INT
 25 10^X
 26 *
 27 FRC
 28 RCL 20
 29 *
 30 INT
 31 STO IND 25
 32 7DSZ
 33 GTO 09
 34 1
 35 RCL 03
 36 X=Y?
 37 GTO 01
 38 RCL 02
 39 X#Y?
 40 GTO 03
 41 RCL 01
 42 X#Y?
 43 GTO 02
 44 1
 45 XEQ 00
 46 SF 00
 47 6
 48 X<>Y
 49 X=Y?
 50 GTO 04
 51 LBL 02
 52 X#0?
 53 GTO 03
 54 6
 55 RCL 03
 56 X=Y?
 57 GTO 03
 58 1
 59 LBL 04
 60 FS? 00
 61 9
 62 XEQ 00
 63 LBL 03
 64 CF 00
 65 3
 66 STO 25
 67 0
 68 LBL 05
 69 RCL IND 25
 70 4
 71 RCL 25
 72 -
 73 X<> 25
 74 7DSPI
 75 X<> 25
 76 10^X
 77 /
 78 +
 79 PSE
 80 7DSZ
 81 GTO 05
 82 RCL 21
 83 LBL 00
 84 ST+ 00
 85 RDN
 86 RTN
 87 LBL 01
 88 .2
 89 XEQ 00
 90 RCL 02
 91 X#Y?
 92 GTO 03
 93 RCL 22
 94 XEQ 00
 95 GTO 03
 96 LBL 11
 97 LBL B
 98 7DSP2
 99 RCL 00
100 RTN
101 LBL 19
102 LBL e
103 RCL 24
104 RCL 23
105 *
106 FRC
107 STO 24
108 RTN
109 LBL 14
110 LBL E
111 STO 00
112 ST- 00
113 FRC
114 X^2
115 STO 24
116 CLX
117 STOP
118 END

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