3545 IF IGL<1 THEN X=0 : GOTO 3555