*C ENTER THE NUMBER WHOSE SIGN IS TO BE DETERMINED
*R
I=J=%
I=-I
K=1
*C K STAYS AT 1 IF NUMBER IS NON-ZERO
*@MINUS I
*@PLUS J
*@ZERO K
