(HP67 app) Pricing Calculation with known Markup for new Price comparison.

[Dieter]

(10-20-2017 05:47 AM)Gamo Wrote:  I try the program but not success maybe I didn't input program the right way.

How to input LBL c the small c and STO (i) is it key ST I

Since the lower case c is an f-shifted function (look at the keyboard), LBL c is entered as [LBL f] [C]. That's [g] [SST] [C]. The same is true for LBL a, LBL b etc.

ST I is not STO(i) ! Again, look at the keyboard: there is a big "(i)" key, so simply press [STO] [(i)]. Likewise, RCL(i) is [RCL] [(i)].

For the record, here is an even shorter version that fits on a sigle card track. It also detects input errors if you enter the same variable twice (e.g. 2x cost).

Code:

001  LBL E
002  FIX
003  DSP 2
004  CLX
005  STO 0
006  STO 1
007  STO 2
008  STO 3
009  STO 4
010  SF 2
011  CF 3
012  RTN
013  LBL A
014  0
015  ENTER
016  1
017  GTO c
018  LBL B
019  1
020  ENTER
021  2
022  GTO c
023  LBL C
024  3
025  ENTER
026  3
027  GTO c
028  LBL D
029  7
030  ENTER
031  4
032  LBL c
033  STO I
034  R↓
035  F3?
036  F3?
037  GTO d
038  STO+0
039  R↓
040  STO(i)
041  F2?
042  RTN
043  8
044  RCL 0
045  X>Y?
046  CLX
047  X<>I
048  STO 0
049  GSB(i)
050  RCL 0
051  STO I
052  LBL d
053  RCL(i)
054  RTN
055  LBL 1
056  GSB a
057  GTO b
058  LBL 3
059  RCL 1
060  RCL 3
061  %
062  +
063  STO 2
064  GTO b
065  LBL 4
066  RCL 2
067  1
068  RCL 3
069  %
070  +
071  /
072  STO 1
073  GTO b
074  LBL 7
075  RCL 1
076  1
077  RCL 4
078  %
079  -
080  /
081  STO 2
082  GTO a
083  LBL 8
084  RCL 2
085  RCL 4
086  %
087  -
088  STO 1
089  LBL a
090  RCL 1
091  RCL 2
092  %CH
093  STO 3
094  RTN
095  LBL b
096  RCL 2
097  RCL 1
098  %CH
099  CHS
100  STO 4
101  RTN

This version uses flag 2 instead of a counter and DSZ, and the steps at LBL A...D are now done in a common routine with indirect addressing.

Dieter