4775 IF KMM=0 THEN GOSUB 4795 ELSE A(I,J)=XVF