(HP-67) The Use of a Programmable Pocket Calculator in Clinical Dietetics

[Thomas Klemm]

The use of x>y? puzzled me in the listing of the BASIC PROGRAM (Cumulative Totals):

Code:

LBL 2     21   02
f x>y?    16   34
EEX          - 23
3         03
÷            - 24

It took me a while to figure out that the left and right keypad got mixed up and instead the following was meant:

Code:

LBL 2     21   02
f INT     16   34
EEX          - 23
3         03
÷            - 24

Instead of switching between primary and secondary registers they could have relied more on the stack and just used the following subroutine:

Code:

LBL 2     21   02
f INT     16   34
EEX          - 23
3         03
÷            - 24
×            - 35
RTN            24

And then use it like so:

Code:

LBL A     21   11
PRINT X      - 14
f SPACE   16 - 11
RCL 1     36   01
GSB 2     23   02
…

Thanks for sharing these old programs.

Cheers
Thomas