2375 KM=1 : GOSUB 1579 : XMX(2)=XX