Я использовал вот эту процедурку, работает вполне нормально, вызывается вместо #3D13.
http://zxdn.narod.ru/coding/adv7trer.txt