Even faster quadratic formula for the HP-41C

[Thomas Klemm]

Code:

00 { 22 Byte-Prgm }
01 LBL "Q"
02 X<> ST Z 
03 STO/ ST Z
04 STO+ ST X
05 /
06 ENTER
07 X^2
08 RCL- ST Z
09 SQRT
10 -
11 +/-
12 STO/ ST Y
13 END

x₂ is computed using this well-known property:

\[x_{1}\cdot x_{2}=\frac{c}{a}\]

Cheers
Thomas