5525 IF X>XMA THEN XMA=X