HP-65 Financial Software request

[Dieter]

(01-07-2019 04:26 PM)Dieter Wrote:  Use [A] for cost, [B] for price and [C] for margin.
Rule: enter the unknow value as zero.

And finally here is another way of handling input and output with the same label keys: The COMPUTE key, which can be found on some classic, vintage HP65 programs.

Code:

LBL       23
A         11
f-1       32
TF 1      61
STO 1     33 01
RTN       24
f-1       32
SF 1      51
RCL 2     34 02
RCL 2     34 02
RCL 3     34 03
x         71
EEX       43
2         02
÷         81
-         51
STO 1     33 01
RTN       24
LBL       23
B         12
f-1       32
TF 1      61
STO 2     33 02
RTN       24
RCL 1     34 01
1         01
RCL 3     34 03
EEX       43
2         02
÷         81
-         51
÷         81
STO 2     33 02
RTN       24
LBL       23
C         13
f-1       32
TF 1      61
STO 3     33 03
RTN       24
f-1       32
SF 1      51
1         01
RCL 1     34 01
RCL 2     34 02
÷         81
-         51
EEX       43
2         02
x         71
STO 3     33 03
RTN       24
LBL       23
D         14
f         31
SF 1      51
RTN       24
LBL       23
E         15
DSP       21
.         83
2         02
f-1       32
SF 1      51
0         00
STO 1     33 01
STO 2     33 02
STO 3     33 03
RTN       24

(Edit: corrected keycodes of the final steps)

Initialize (clear all three values) with [E].
Enter cost at [A], price at [B] and margin at [C].

To compute a value use the same keys preceded by [D]. This is the "compute" key. ;-)

Example: cost=40, price=50, margin=?

Start: [E] => 0,00

40 [A] => 40,00
50 [B] => 50,00
[D][C] => 20,00

What's the price for a margin of 25%?

25 [C] => 25,00
[D][B] => 53,33

So the price has to be raised to 53,33.

Dieter