4070 IF Y<=0 THEN KE=1 : GOTO 4105