1870 IF NXV(K)=2" : GOSUB 900 : GOTO 1855