1847 IF NVC(1)=2" : GOSUB 900 :