Есть достаточное колличество фришных программ. Сохрани 308 блок с PM, в нем и находится код, в 5 строке. Обо всем этом уже много написано по форумам. Просто надо поискать.