6132 VC(NVC(K),K)=XB : X=XB : GOTO 6065