[Trlog] Contest Country File Mods

[Tree]

On Wed, Oct 20, 2010 at 06:08:50PM -0400, Paul Kirley wrote:
> W8TM sed:
> >>It thinks that all of China is zone 24, and all of Asiatic Russia is zone 17.
> 
> and Tree replied:
> >Are you sure?  The program has code in it to take care of zones for BY and UA9 (and
> >some other countries). 
> 
> No, I guess that I'm not sure.  I assumed that the zone information was in a single source, the cty.dat file.  
> 
> So maybe there is little information lost by editing the cty.dat file.

Here is what TR does on its own with no help from the cty.dat file.  If you have 
other info in the cty.dat file, it will likely over-ride this code:


                IF ID = 'UA9' THEN
                    CASE GetNumber (Call) OF
                        '8': GetCQZone := 18;

                        '9': CASE GetFirstSuffixLetter (Call) OF
                                 'A','C','D','F','G','J','K','L','M','N','Q','R','S','T','W','X': GetCQZone := 17;
                                 'H','O','U','Y','Z':                                             GetCQZone := 18;
                                 END;

                        '0': CASE GetFirstSuffixLetter (Call) OF
                                 'A', 'B', 'H', 'O', 'S', 'U', 'W':       GetCQZone := 18;
                                 'C', 'D', 'E', 'F', 'I', 'J', 'K', 'L':  GetCQZone := 19;
                                 'Q', 'X', 'Z':                           GetCQZone := 19;
                                 'Y':                                     GetCQZone := 23;
                                 ELSE                                     GetCQZone := 19;
                                 END;
                        END;

                { And China }

                IF ID = 'BY' THEN
                    CASE GetNumber (Call) OF
                        '1', '2': GetCQZone := 24;

                        '3': CASE GetFirstSuffixLetter (Call) OF
                                 'G', 'H', 'I', 'J', 'K', 'L': GetCQZone := 23;
                                 ELSE                          GetCQZone := 24;
                                 END;

                        '4', '5', '6', '7', '8': GetCQZone := 24;

                        '9': CASE GetFirstSuffixLetter (Call) OF
                                 'M', 'N', 'P', 'Q', 'R', 'S': GetCQZone := 24;
                                 ELSE                          GetCQZone := 23;
                                 END;

                        '0': GetCQZone := 23;
                        END;

It does stuff like this for other countries that are spread across more than one CQ Zone.

And this is all repeated again for ITU Zones.

Tree