1585 IF XX-5*INT(XX/5)=0 THEN XX=XX/KN : GOTO 1587