2380 XX=XMI : KM=0 : GOSUB 1579 : XMN(1)=XX