STR$(XMX(M)-XMN(M)) : GOSUB 900 : PRINT : GOTO 5415