5993 IF X>.9999 THEN X=0 : GOTO 5998