GOSUB 900 : KMM=1