The Museum of HP Calculators

Estimating Inventory for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Small Business 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 "GP"
 02 1.1
 03 STO 00
 04 CF 22
 05 "BEG. INV. ?"
 06 XEQ 09
 07 "PURCH. ?"
 08 XEQ 09
 09 "SALES ?"
 10 XEQ 09
 11 "% G. MARGIN ?"
 12 XEQ 09
 13 "END INV. ?"
 14 XEQ 09
 15 100
 16 ST/ 04
 17 GTO IND 06
 18 LBL 01
 19 RCL 05
 20 RCL 02
 21 -
 22 RCL 03
 23 +
 24 RCL 04
 25 RCL 03
 26 *
 27 -
 28 "BEG. INV."
 29 XEQ 00
 30 LBL 02
 31 RCL 05
 32 RCL 01
 33 -
 34 RCL 03
 35 +
 36 RCL 04
 37 RCL 03
 38 *
 39 -
 40 "PURCH."
 41 XEQ 00
 42 LBL 03
 43 RCL 05
 44 RCL 01
 45 -
 46 RCL 02
 47 -
 48 RCL 04
 49 1
 50 -
 51 /
 52 "SALES"
 53 XEQ 00
 54 LBL 04
 55 RCL 05
 56 RCL 01
 57 -
 58 RCL 02
 59 -
 60 RCL 03
 61 +
 62 RCL 03
 63 /
 64 100
 65 *
 66 "MARG.=%"
 67 ARCL X
 68 PROMPT
 69 LBL 05
 70 RCL 01
 71 RCL 02
 72 +
 73 RCL 03
 74 -
 75 RCL 04
 76 RCL 03
 77 *
 78 +
 79 "END INV."
 80 XEQ 00
 81 LBL 09
 82 PROMPT
 83 STO IND 00
 84 RCL 00
 85 FC?C 22
 86 STO 06
 87 ISG 00
 88 RTN
 89 LBL 00
 90 "=$"
 91 ARCL X
 92 PROMPT
 93 RTN
 94 LBL "RT"
 95 "BEG. INV. <R>?"
 96 PROMPT
 97 "PURCH. <R>?"
 98 PROMPT
 99 +
100 "MARKUPS ?"
101 PROMPT
102 +
103 STO 01
104 "SALES ?"
105 PROMPT
106 "MARKDOWNS ?"
107 PROMPT
108 +
109 "EMPL. DISC. ?"
110 PROMPT
111 +
112 "WORTHLESS INV.?"
113 PROMPT
114 +
115 RCL 01
116 -
117 CHS
118 STO 02
119 "BEG. INV. <C>?"
120 PROMPT
121 "PURCH. <C>?"
122 PROMPT
123 +
124 "TRANS. ?"
125 PROMPT
126 +
127 RCL 01
128 /
129 RCL 02
130 *
131 "END INV. <C>"
132 XEQ 00
133 RCL 02
134 "END INV. <R>"
135 XEQ 00
136 END

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