func Begin () { datum = 1400; vrepl = 9000; } func OnLineHeader () { output (LH); } func OnTrace () { 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; output (Tr); } func End () { }