function getTownship(tile) { return(tile.substring(0,2)) }
function getTownshipDir(tile) { return(tile.substring(2,3)) }
function getRange(tile) { return(tile.substring(3,5)) }
function getRangeDir(tile) { return(tile.substring(5,6)) }
function getSection(tile) { return(tile.substring(6,8)) }
function getSectionString(strSection) 
{ 
	if(+strSection<10 && strSection.substring(0,1)!='0')
		strSection = '0' + +strSection

	return(strSection) 
}
function getTownshipRange(tile) { return(getTownship(tile)+getTownshipDir(tile)+getRange(tile)+getRangeDir(tile)) }

function getTile(dir,tile) {
	township = getTownship(tile)
	range = getRange(tile)
	section = getSection(tile)
	rangedir = getRangeDir(tile)
	
	switch (dir.substring(0,1)) {
		case 'n':
			if (section<=6 && section >=1)
			{
				section = (+section+36)
				township = +township + 1
			}
			section = +section - (((((+section-1) % 6))+1)*2) + 1
		break
		case 's':
			if (section<=36 && section >=31)
			{
				section = (+section-36)
				township = +township - 1
			}
			base = (Math.floor((+section-1)/6)+1)*6
			section = (base - +section) + base + 1
		break
		case 'e':
			if (((Math.floor((+section-1)/6))%2)==0)
			{
				if ((+section - 1)%6==0)
				{
					section = +section + 5
					if (range==1 && rangedir=='W')
						rangedir='E'
					else
					{
						if (rangedir=='E')
							range = +range + 1
						else
							range = +range - 1
					}
				}
				else
					section = +section - 1
			}
			else
			{
				if ((+section)%6==0)
				{
					section = +section - 5
					if (range==1 && rangedir=='W')
						rangedir='E'
					else
					{
						if (rangedir=='E')
							range = +range + 1
						else
							range = +range - 1
					}
				}
				else
					section = +section + 1
			}
		break
		case 'w':
			if (((Math.floor((+section-1)/6))%2)==0)
			{
				if (+section%6==0)
				{
					section = +section - 5
					if (range==1 && rangedir=='E')
						rangedir='W'
					else
					{
						if (rangedir=='W')
							range = +range + 1
						else
							range = +range - 1
					}
				}
				else
					section = +section + 1
			}
			else
			{
				if ((+section-1)%6==0)
				{
					section = +section + 5
					if (range==1 && rangedir=='E')
						rangedir='W'
					else
					{
						if (rangedir=='W')
							range = +range + 1
						else
							range = +range - 1
					}
				}
				else
					section = +section - 1
			}
		break
	}
	switch (dir.substring(1,2)) {
		case 'e':
			if (((Math.floor((+section-1)/6))%2)==0)
			{
				if ((+section - 1)%6==0)
				{
					section = +section + 5
					if (range==1 && rangedir=='W')
						rangedir='E'
					else
					{
						if (rangedir=='E')
							range = +range + 1
						else
							range = +range - 1
					}
				}
				else
					section = +section - 1
			}
			else
			{
				if ((+section)%6==0)
				{
					section = +section - 5
					if (range==1 && rangedir=='W')
						rangedir='E'
					else
					{
						if (rangedir=='E')
							range = +range + 1
						else
							range = +range - 1
					}
				}
				else
					section = +section + 1
			}
		break
		case 'w':
			if (((Math.floor((+section-1)/6))%2)==0)
			{
				if (+section%6==0)
				{
					section = +section - 5
					if (range==1 && rangedir=='E')
						rangedir='W'
					else
					{
						if (rangedir=='W')
							range = +range + 1
						else
							range = +range - 1
					}
				}
				else
					section = +section + 1
			}
			else
			{
				if ((+section-1)%6==0)
				{
					section = +section + 5
					if (range==1 && rangedir=='E')
						rangedir='W'
					else
					{
						if (rangedir=='W')
							range = +range + 1
						else
							range = +range - 1
					}
				}
				else
					section = +section - 1
			}
		break
	}
	if(+range<10)
		range = '0' + +range
	if(+township<10)
		township = '0' + +township
	if(+section<10)
		section = '0' + +section

	return(township+"N"+range+rangedir+section)
}

function sectionExists(strSection)
{
	for (i=0; i<arSections.length; i++)
	{
		if (strSection==(getTownshipRange(arSections[i][0])+getSectionString(arSections[i][5])))
			return (true)
	}
	return (false)
}