2381 XX=XMA : KM=1 : GOSUB 1579 : XMX(1)=XX