*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