1340 IF JINCM THEN KE=4 : GOSUB 900 : GOTO 1325