LBL P
STO N
2
RCL N
x<y?
GTO P047
RCL N
RCL N
INTG
x!=y?
GTO P053
2
STO I
RCL N
SQRT
INTG
1
+
STO F
RCL N
RCL I
RMDR
x=0?
GTO P034
1
RCL I
+
STO I
RCL F
RCL I
x>y?
GTO P041
GTO P020
SF 10
COMPOSITE
PSE
CF 10
RCL I
RCL N
RTN
SF 10
RCL N
PRIME
CF 10
RTN
SF 10
NOT DEFINED
PSE
CF 10
RCL N
RTN
SF 10
NOT AN INTG
PSE
CF 10
0
RCL N
RTN