1895 IF DE(K)0" : GOSUB 900 : GOTO 1885