3815 IF JDNC THEN KE=4 : GOSUB 900 : GOTO 3812