(HP-65) Markup - % of price and % of cost

[Dave Britten]

This program solves the price-cost-markup equation for any variable, and using either markup as % of price or markup as % of cost.

Recommended Key Labels

A: P
B: C
C: MU%
D: %P
E: %C

If you wish to follow the Finance Pac labeling convention, draw a box around P, C, and MU%, to represent variables that can be solved for.


Usage

Keys A, B, and C represent the variables in the equation: price, cost, and markup % respectively. To store a value, enter it into x and press the matching key. To solve for a variable, press the matching key with 0 in the x register.

To select % of price or % of cost mode, press either D or E respectively. The calculation mode is controlled by flag 1, with % of price represented by flag 1 cleared (the default state).


Examples

If a store is purchasing a product for $38 and selling it for $50, what is the markup over cost?

E (set % of cost mode)
38 B
50 A
C: 31.58%


A company purchases a finished good for $27 wholesale. They would like to make at least 24% margin on the sale of this good. What should the minimum selling price be?

D (set % of price/margin mode)
27 B
24 C
A: $35.53

Code:

LBL     23
A       11
STO 1   33 01
0       00
g x!=y  35 21
RTN     24
g NOP   35 01
1       01
RCL 3   34 03
EEX     43
2       02
/       81
f-1     32
TF 1    61
CHS     42
g NOP   35 01
+       61
f-1     32
TF 1    61
g       35
1/x     04
RCL 2   34 02
*       71
STO 1   33 01
RTN     24
LBL     23
B       12
STO 2   33 02
0       00
g x!=y  35 21
RTN     24
g NOP   35 01
1       01
RCL 3   34 03
EEX     43
2       02
/       81
f-1     32
TF 1    61
CHS     42
g NOP   35 01
+       61
f       31
TF 1    61
g       35
1/x     04
RCL 1   34 01
*       71
STO 2   33 02
RTN     24
LBL     23
C       13
STO 3   33 03
0       00
g x!=y  35 21
RTN     24
g NOP   35 01
1       01
RCL 2   34 02
RCL 1   34 01
f       31
TF 1    61
g x><y  35 07
g NOP   35 01
/       81
f       31
TF 1    61
g x><y  35 07
g NOP   35 01
-       51
EEX     43
2       02
*       71
STO 3   33 03
RTN     24
LBL     23
D       14
f-1     32
SF 1    51
RTN     24
LBL     23
E       15
f       31
SF 1    51
RTN     24