func Begin(){ GRPstat1 = 1; GRPstat = 1; SHTstat = 195; GRPinc = 2; CDPstat = SHTstat + GRPstat; TotalTraces = 1; } func OnLineHeader(){ output(LH); } func OnTrace(){ Tr.DphInd = CDPstat; Tr.RecInd = GRPstat; Tr.SrcLoc = SHTstat; output(Tr); if((TotalTraces%48) == 0){ SHTstat++; GRPstat = GRPstat1 + GRPinc; CDPstat = SHTstat + GRPstat; GRPstat1 = GRPstat1 + GRPinc; }else{ GRPstat = GRPstat + 4; CDPstat = GRPstat + SHTstat; } TotalTraces++; }