2530 IF XX>XMA THEN XMA=XX