The Museum of HP Calculators

Lumber Estimate for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Home Const. Estimating Solution Book. This program was entered and uploaded by Tony Duell.

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 "LUM"
 02 CLRG
 03 "LABOR RATE ?"
 04 PROMPT
 05 STO 00
 06 LBL A
 07 "WTLP ?"
 08 PROMPT
 09 12
 10 /
 11 XEQ 00
 12 STO 04
 13 ST+ 01
 14 "COST/1000BF?"
 15 PROMPT
 16 RCL 04
 17 *
 18 1 E3
 19 /
 20 XEQ 00
 21 STO 05
 22 ST+ 02
 23 "LAB./1000BF?"
 24 PROMPT
 25 *
 26 RCL 04
 27 "B.F. ="
 28 XEQ 10
 29 RCL 05
 30 "MAT."
 31 XEQ 11
 32 LASTX
 33 RCL 04
 34 *
 35 1 E3
 36 /
 37 2
 38 *
 39 XEQ 00
 40 2
 41 /
 42 "HOURS ="
 43 XEQ 10
 44 RCL 00
 45 *
 46 XEQ 00
 47 ST+ 03
 48 ST+ 05
 49 "LAB."
 50 XEQ 11
 51 RCL 05
 52 "TOTAL"
 53 LBL 11
 54 "=$"
 55 LBL 10
 56 ARCL X
 57 PROMPT
 58 RTN
 59 LBL C
 60 RCL 01
 61 "T. B.F.="
 62 XEQ 10
 63 RCL 02
 64 "T. MAT."
 65 XEQ 11
 66 RCL 03
 67 "T. LAB."
 68 XEQ 11
 69 +
 70 "T. COST"
 71 GTO 11
 72 LBL B
 73 "LENGTH ?"
 74 PROMPT
 75 XEQ 00
 76 "SPACING ?"
 77 PROMPT
 78 12
 79 /
 80 /
 81 1
 82 +
 83 XEQ 00
 84 "PCS="
 85 XEQ 10
 86 GTO A
 87 LBL 00
 88 .5
 89 +
 90 INT
 91 RTN
 92 END

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