func Begin () {
	datum=1400;
	vrepl=9000;
}
func OnLineHeader () {
        output(LH);
}
func OnTrace () {
	a = Tr.StaCor;
	if (a != 30000) {
	selev = Tr.SrPtEl;
	relev = Tr.GrpElv;
	recstat = 100000*(datum-relev)/vrepl;
	shotstat = 100000*(datum-selev)/vrepl;
	statics = recstat + shotstat;
	Tr.StaCor = statics;
	Tr.InStUn = shotstat;
	Tr.RcStUn =  recstat;
	Tr.RfSrEl = datum;
	}
	output(Tr);
}
func End () {
}