HP 41 - branching to local label and return stack - FINAL RESULTS AND PROGRAMS

[Artur - Brasil]

The third equation is like others I post. Just a small difference in test.
R - L/(u+uo.ur).A = 0
We can't have both u and ur at same time. So, we must use another function to make the XOR: XOR2, which tests just 2 values in stack (x,y) (in LOGIC program you will find others functions XOR3, XOR4, X#0?L (is X different of zero? Returning 1 or 0), X=0?L

Well, let's put the fourth equation: H - (Fmm+NI)/L = 0
XOR(FMM; N*I) L <> 0

LBL 04
"IND"
ASTO X
"-^L^HÎ^FMM"
XEQ "SFT1"
"N" ............. here the second menu - very easy!
XEQ "SFT2"
RCL 15
RCL 06
RCL 14
*
XEQ "XOR2"
X=0?
GTO 11
RCL 12
X=0?
1
STO 12
XEQ "SFT3"
GTO 04
LBL 11
"ZERE FMM:N*I"
XEQ "SFT4"
GTO 04
LBL "IND"
no finished ...