Ratio Equation Program

[Gamo]

Found this program on HP Keys Note newsletter about Ratio Equation

A/B = C/D

With unknown quantity input as Zero and key in the values for A, B, C, and D

Program:

Quote:LBL A
X=0?
GTO1
Rv
X=0?
GTO2
Rv
X=0?
GTO1
Rv
LBL2
Rv
/
x
RTN
LBL1
Rv
x
X<>Y
/
RTN

Examples:
13/22 = X/44
13 ENTER 22 ENTER 0 ENTER 44 ---> LBL A = 26

X/22 = 26/44
0 ENTER 22 ENTER 26 ENTER 44 ---> LBL A = 13

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.

Thank You

Gamo