TRLog
[Top] [All Lists]

Re: [Trlog] Contest Country File Mods

To: Paul Kirley <pkirley@fuse.net>
Subject: Re: [Trlog] Contest Country File Mods
From: Tree <tree@kkn.net>
Date: Wed, 20 Oct 2010 15:46:52 -0700
List-post: <trlog@contesting.com">mailto:trlog@contesting.com>
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
_______________________________________________
Trlog mailing list
Trlog@contesting.com
http://lists.contesting.com/mailman/listinfo/trlog

<Prev in Thread] Current Thread [Next in Thread>