12C vs 11C program, 11C not working

[calcphil12c11c]

Thank you again. I rewrote your program for the 12C as it does not have the x<0.

Here it is and it works perfect.

01 0
02 X exchange Y
03 X less than or equal Y
04 1/x
05 3
06 .
07 7
08 8
09 5
10 X
11 0
12 X exchange Y
13 X less than or equal Y
14 1/x
15 CHS
16 R/S
17 GTO 01