Ratio Equation Program

[Didier Lachieze]

(09-08-2017 11:04 AM)Gamo Wrote:  Anyone have an idea on how to make this program shorter and
program to work for HP 12C since 12C don't have GTO for goto Label.

Here is a working program on the 12C:

Code:

001 x=0?
002 GTO 14
003 Rv
004 X=0?
005 GTO 10
006 Rv
007 X=0?
008 GTO 14
009 Rv
010 Rv
011 /
012 x
013 GTO 00
014 Rv
015 x
016 X<>Y
017 /
018 GTO 00

Examples:
13/22 = X/44
13 ENTER 22 ENTER 0 ENTER 44 R/S ---> 26

X/22 = 26/44
0 ENTER 22 ENTER 26 ENTER 44 R/S ---> 13

Note: you should not have ENTER after the last number (D) as it would duplicate it in the Y register and you would loose the content of T (A).