HP Calculators with native C-F temperature conversion

[C.Ret]

(02-11-2024 01:25 AM)Garth Wilson Wrote:  On the 41 I just have a short program and have key assignments for the functions.

This is the path of reason and generally speaking a very good practice. Especially if you only need to convert temperatures between the two scales °F and °C.
001 LBL "C2F"  1.8  *  32  +  END  ASN "C2F" -64
001 LBL "F2C"  32  -  1.8  /  END  ASN "F2C" -63

Now in USER mode you have °F←°C conversion on SHIFT-6 key (same key combinaison as the HP-55) instead of rectangular to polar R→P conversion.
And since, there is no 'g' shift key on HP-41, °F→°C conversion is set on SHIFT-5 key instead of polar to rectangular P→R conversion.

As I pointed out in my previous post, the HP-41 is the most versatile programmable calculator of this era. It is easy to configure to the user's exact needs by the user himself, as long as he understands the operating principles or has the excellent instructions booklet on hand.



EDIT: Very proud of my last code, I have just lent my HP-41C to my eldest son (26 years old) who grimaced while using this surprising portable device. He also laughed when he saw the code.
However, he made two relevant remarks which led us to correct my first version together. He was very surprised by the disconcerting ways he has to follow to modify the code while using only the rudimentary one-line display. He is more accustomed of the large colorful touch screens of actual handle devices.
But, the HP-41C is also a handle that you tap on with your fingers, but not on its display, on its keyboard !!

I put below the result of our collaboration so that you can now have the four temperature scale conversions on your machine.

001 LBL"TCONV" 
002  SF 27  "A:F B:K C:C D:R"  PROMPT
005  LBL A  1  "F"  XEQ 10
009  LBL B  2  " K"  XEQ 10
013  LBL C  3  "C"  XEQ 10
017  LBL D  4  "R"  XEQ 10  GTO A

022   LBL 00  CF 01  CF 02  CF 03  CF 04  RTN
028   LBL 01  FC?C 04 XEQ 04  459.67  -  RTN
034   LBL 02  FC?C 03 XEQ 03  273.15  +  RTN
040   LBL 03  FC?C 01 XEQ 01  32  -  1.8  /  RTN
048   LBL 04  FC?C 02 XEQ 02  1.8  *  RTN

054  LBL 10
055    X<>Y  FC?C 22 XEQ IND Y  XEQ 00  SF IND Y  STO IND Y
061    ASTO L  CLA  FIX 2  ARCL X  FC? 02 "~ ."  ARCL L  PROMPT
069 END
But I invite you to do like us and tap your own code on your favorite machine with your own digits.