5 CLS:DIM BUT(2000):DIM COR(800)
        DIM WRG(800):DIM SCR(6000)