:h1=:HFL :h1-=(:h1-:HFR)*(:h1>:HFR) :h1-=(:h1-:HBL)*(:h1>:HBL) goto1