Touch Mouse Pointer | TFT & EPD Graphic Library 2

DEMO TOUCH/MOUSE POINTER

(Download)

Device = 18F57Q83

Declare Xtal = 64

Declare Auto_Heap_Arrays = On

Declare Auto_Heap_Strings = On

Declare Auto_Variable_Bank_Cross = On

Declare Watchdog = OFF

Declare Warnings = Off

Declare Optimiser_Level = 3

'================ MCU =======================

$define McuType 0

'================ TFT SCREEN ================

$define TFT_IC ST7789V

$define TftScreenWidth 320

$define TftScreenHeight 240

$define TftWidthOffset 0

$define TftHeightOffset 0

$define TftPixelCheck 0

$define TFT_COM SPI_1

$define TFT_COM_Slow SPI1CON0.7 = 0 : SPI1BAUD = 7 : SPI1CON0.7 = 1

$define TFT_COM_Fast SPI1CON0.7 = 0 : SPI1BAUD = 0 : SPI1CON0.7 = 1

$define TFT_RESET PORTC.7

$define TFT_CS PORTE.1

$define TFT_DC PORTC.1

$define TFT_MOSI PORTC.2

$define _TFT_MOSI _PORTC.2

$define TFT_MISO PORTC.4

$define _TFT_MISO _PORTC.4

$define TFT_SCLK PORTC.3

$define _TFT_SCLK _PORTC.3

Include "TftLib\TFT_Graphic_Lib.inc"

Include "TftLib\Colors\Colors.inc"

Include "TftLib\Drivers\Drivers.inc"

Include "TftLib\Drivers\ST7789V.inc"

Include "TftLib\System\System.inc"

Include "TftLib\System\System_SPI_V4.inc"

Include "TftLib\Shapes\Shapes.inc"

Include "TftLib\Shapes\Shapes_SPI_V1.inc"

'================ SD CARD ===================

$define SDCardUsed 0

'================ MEMORY ====================

$define MemoryType 0

'================ TFT TOUCH =================

$define TOUCH_IC XPT2046

$define Z_Threshold 500

$define TouchAveragePoints 2

$define TouchMedianDistance 8

$define TOUCH_COM SPI_SW

$define T_CS PORTE.0

$define T_IRQ PORTA.5

$define T_MOSI PORTC.0

$define _T_MOSI _PORTC.0

$define T_MISO PORTB.5

$define _T_MISO _PORTB.5

$define T_SCLK PORTE.2

$define _T_SCLK _PORTE.2

Include "TftLib\Touch\Touch.inc"

Include "TftLib\Touch\XPT2046.inc"

'================ SPRITES ===================

$define SpritesUsed 1

$define SpriteBufferSize 1430

$define SpriteBufferNumber 3

Include "TftLib\Sprites\Sprites.inc"

Include "TftLib\Sprites\Sprites_SPI_V2.inc"

'=============== SND FONT ===================

$define FontSNDUsed 1

Include "TftLib\Fonts\SND\F4_SND_16x16_Regular.inc"

Include "TftLib\Fonts\SND\F5_SND_8x12_Basic.inc"

$define FontSmooth 0

$define FontMaxSpace 16

$define FontMaxPixels 16

Include "TftLib\Fonts\SND.inc"

Include "TftLib\Fonts\SND_SPI_V1.inc"

'=============== BDF FONT ===================

$define FontBDFUsed 0

$define BufferPointer 0

$define BufferLineIn 1

$define BufferToolTip 2

Symbol BT_LEFT = PORTA.0

Symbol BT_RIGHT = PORTA.6

Symbol BT_UP = PORTA.1

Symbol BT_DOWN = PORTC.6

Symbol BT_SELECT = PORTA.7

Dim bCurrentScreen As Byte

Dim pTouchEnabled As Bit = 0

Dim pTouchEventDetected As Bit = 0

Dim wPixels As Word

Dim bSpriteWidth As Byte

Dim bSpriteHeight As Byte

Dim wOldPositionW As Word

Dim wOldPositionH As Word

Dim wNewPositionW As Word

Dim wNewPositionH As Word

Dim wMaxPositionW As Word

Dim wMaxPositionH As Word

Dim wChartOffset As Word

Dim bDirection As Byte

Dim wPointerPositionH As Word

Dim wPointerPositionW As Word

Dim Button1_InOut As Bit = 0

Dim Button1_X1 As Word

Dim Button1_Y1 As Word

Dim Button1_X3 As Word

Dim Button1_Y3 As Word

Dim Button2_InOut As Bit = 0

Dim Button2_X1 As Word

Dim Button2_Y1 As Word

Dim Button2_X3 As Word

Dim Button2_Y3 As Word

Dim waBinArea[271] As Dword 'Word0 = Horizontal; Word1 = Vertical

Dim ToolTipOldW As Word

Dim ToolTipOldH As Word

Dim bChartType As Byte = 1

Dim pDoubbleClick As Bit

Main:

SetCrystal()

SetPins()

TftSetUp(0,0)

SetTouch()

TftDisplayOff()

Screen0()

TftDisplayOn()

While 1 = 1

PressButton()

PressTouch()

Wend

End

'=================================================

'Hardware Button section

'=================================================

'-------------------------------------------------

'Detect if hardware button is pressed

'Pointer buttons move the pointer

'Select button verifies if pointer is over a screen button click

'area and will execute action according the screen and button

'-------------------------------------------------

Proc PressButton()

Dim bTimer As Byte

Dim pExitBit As Bit

pExitBit = 0

If BT_UP = 0 And BT_RIGHT = 0 Then

wNewPositionH = wOldPositionH + 1

wNewPositionW = wOldPositionW + 1

If wNewPositionH > wMaxPositionH Then

wNewPositionH = wMaxPositionH

pExitBit = 1

EndIf

If wNewPositionW > wMaxPositionW Then

wNewPositionW = wMaxPositionW

pExitBit = 1

EndIf

If pExitBit = 1 Then ExitProc

bDirection = 1 : MovePointer() : ExitProc

EndIf

If BT_RIGHT = 0 And BT_DOWN = 0 Then

wNewPositionH = wOldPositionH - 1

wNewPositionW = wOldPositionW + 1

If wNewPositionH > wMaxPositionH Then

wNewPositionH = 0

pExitBit = 1

EndIf

If wNewPositionW > wMaxPositionW Then

wNewPositionW = wMaxPositionW

pExitBit = 1

EndIf

If pExitBit = 1 Then ExitProc

bDirection = 3 : MovePointer() : ExitProc

EndIf

If BT_DOWN = 0 And BT_LEFT = 0 Then

wNewPositionH = wOldPositionH - 1

wNewPositionW = wOldPositionW - 1

If wNewPositionH > wMaxPositionH Then

wNewPositionH = 0

pExitBit = 1

EndIf

If wNewPositionW > wMaxPositionW Then

wNewPositionW = 0

pExitBit = 1

EndIf

If pExitBit = 1 Then ExitProc

bDirection = 5 : MovePointer() : ExitProc

EndIf

If BT_LEFT = 0 And BT_UP = 0 Then

wNewPositionH = wOldPositionH + 1

wNewPositionW = wOldPositionW - 1

If wNewPositionH > wMaxPositionH Then

wNewPositionH = wMaxPositionH

pExitBit = 1

EndIf

If wNewPositionW > wMaxPositionW Then

wNewPositionW = 0

pExitBit = 1

EndIf

If pExitBit = 1 Then ExitProc

bDirection = 7 : MovePointer() : ExitProc

EndIf

If BT_UP = 0 Then

wNewPositionH = wOldPositionH + 1

If wNewPositionH > wMaxPositionH Then

wNewPositionH = wMaxPositionH

ExitProc

EndIf

bDirection = 0 : MovePointer() : ExitProc

EndIf

If BT_RIGHT = 0 Then

wNewPositionW = wOldPositionW + 1

If wNewPositionW > wMaxPositionW Then

wNewPositionW = wMaxPositionW

ExitProc

EndIf

bDirection = 2 : MovePointer() : ExitProc

EndIf

If BT_DOWN = 0 Then

wNewPositionH = wOldPositionH - 1

If wNewPositionH > wMaxPositionH Then

wNewPositionH = 0

ExitProc

EndIf

bDirection = 4 : MovePointer() : ExitProc

EndIf

If BT_LEFT = 0 Then

wNewPositionW = wOldPositionW - 1

If wNewPositionW > wMaxPositionW Then

wNewPositionW = 0

ExitProc

EndIf

bDirection = 6 : MovePointer() : ExitProc

EndIf

If BT_SELECT = 0 Then

If bCurrentScreen = 4 Then

DelayMS 250

pDoubbleClick = 0

For bTimer = 0 To 250

If BT_SELECT = 0 Then

pDoubbleClick = 1

Break

EndIf

DelayMS 2

EndIf

CheckButtonInOut()

BtSelectPressed()

EndIf

EndProc

'=================================================

'Hardware Button section

'=================================================

'-------------------------------------------------

'Select direction to move the pointer and print it

'depending if highlighting is neccessary (over click area)

'-------------------------------------------------

Proc MovePointer()

If bCurrentScreen = 4 Then

If ToolTipOldW <> 65000 And ToolTipOldH <> 65000 And wOldBin <> 65000 Then

SptWriteTft(ToolTipOldW,ToolTipOldH,BufferToolTip,0,BLACK,0,0)

EndIf

Select bDirection

Case 0

MoveUp()

Case 1

MoveUp()

MoveRight()

Case 2

MoveRight()

Case 3

MoveDown()

MoveRight()

Case 4

MoveDown()

Case 5

MoveDown()

MoveLeft()

Case 6

MoveLeft()

Case 7

MoveUp()

MoveLeft()

EndSelect

PrintPointer()

If bCurrentScreen = 4 Then

CheckChartHoover()

EndIf

EndProc

'-------------------------------------------------

'Select what pressing the SELECT button will do

'depending on screen and pointer position

'-------------------------------------------------

Proc BtSelectPressed()

Select bCurrentScreen

Case 0

If Button1_InOut = 1 Then

ClickButton(19,6)

Screen1()

ExitProc

EndIf

If Button2_InOut = 1 Then

ClickButton(168,6)

Screen3()

ExitProc

EndIf

Case 1

If Button1_InOut = 1 Then

ClickButtonType0(80,6)

Screen2()

ExitProc

EndIf

Case 2

If Button1_InOut = 1 Then

ClickButtonType0(80,6)

WriteTouch()

Screen3()

ExitProc

EndIf

Case 3

If Button1_InOut = 1 Then

ClickButtonType0(19,96)

bChartType = 0

wChartOffset = 0

Screen4()

ExitProc

EndIf

If Button2_InOut = 1 Then

ClickButtonType0(168,96)

bChartType = 1

wChartOffset = 1

Screen4()

ExitProc

EndIf

Case 4

If Button1_InOut = 1 Then

If pDoubbleClick = 0 Then

If bChartType = 0 Then

Dec wChartOffset, 39

If wChartOffset > 215 Then wChartOffset = 0

ElseIf bChartType = 1 Then

Dec wChartOffset, 271

If wChartOffset > 752 Then wChartOffset = 1

EndIf

ClickButtonType1(1)

PlotChart()

ExitProc

Else

bChartType = 0

wChartOffset = 0

Screen4()

ExitProc

EndIf

If Button2_InOut = 1 Then

If pDoubbleClick = 0 Then

If bChartType = 0 Then

Inc wChartOffset, 39

If wChartOffset > 215 Then wChartOffset = 215

ElseIf bChartType = 1 Then

Inc wChartOffset, 271

If wChartOffset > 752 Then wChartOffset = 752

EndIf

ClickButtonType1(2)

PlotChart()

ExitProc

Else

bChartType = 1

wChartOffset = 1

Screen4()

ExitProc

EndIf

EndSelect

EndProc

'-------------------------------------------------

'Shift pointer and pointer buffer up

'-------------------------------------------------

Proc MoveUp()

SptReadTft(wOldPositionW,wOldPositionH + bSpriteHeight, bSpriteWidth,1, BufferLineIn,0,0,0) 'Copy next line to Spt BufferLineIn

SptShiftOut(BufferPointer, 0,0,1,1, BLACK) 'Shift out upper line in BufferPointer

SptMergeOver(BufferLineIn,BufferPointer, 0,bSpriteHeight - 1, 0,0,0) 'Copy over first line from BufferLineIn to BufferPointer

wPointerPositionH = wNewPositionH + (bSpriteHeight - 4)

wOldPositionH = wNewPositionH

EndProc

'-------------------------------------------------

'Shift pointer and pointer buffer right

'-------------------------------------------------

Proc MoveRight()

SptReadTft(wOldPositionW + bSpriteWidth,wOldPositionH, 1,bSpriteHeight, BufferLineIn,0,0,0) 'Copy next line to Spt BufferLineIn

SptShiftOut(BufferPointer, 1,1,0,0, BLACK) 'Shift out right line in BufferPointer

SptMergeOver(BufferLineIn,BufferPointer, bSpriteWidth - 1,0, 0,0,0) 'Copy over right line from BufferLineIn to BufferPointer

wPointerPositionW = wNewPositionW + (bSpriteWidth >> 2)

wOldPositionW = wNewPositionW

EndProc

'-------------------------------------------------

'Shift pointer and pointer buffer down

'-------------------------------------------------

Proc MoveDown()

SptReadTft(wOldPositionW,wOldPositionH - 1, bSpriteWidth,1, BufferLineIn,0,0,0) 'Copy next line to Spt BufferLineIn

SptShiftOut(BufferPointer, 0,0,0,1, BLACK) 'Shift out lower line in BufferPointer

SptMergeOver(BufferLineIn,BufferPointer, 0,0, 0,0,0) 'Copy over last line from BufferLineIn to BufferPointer

wPointerPositionH = wNewPositionH + (bSpriteHeight - 4)

wOldPositionH = wNewPositionH

EndProc

'-------------------------------------------------

'Shift pointer and pointer buffer left

'-------------------------------------------------

Proc MoveLeft()

SptReadTft(wOldPositionW - 1,wOldPositionH, 1,bSpriteHeight, BufferLineIn,0,0,0) 'Copy next line to Spt BufferLineIn

SptShiftOut(BufferPointer, 0,1,0,0, BLACK) 'Shift out left line in BufferPointer

SptMergeOver(BufferLineIn,BufferPointer, 0,0, 0,0,0) 'Copy over left line from BufferLineIn to BufferPointer

wPointerPositionW = wNewPositionW + (bSpriteWidth >> 2)

wOldPositionW = wNewPositionW

EndProc

'-------------------------------------------------

'Print pointer depending if pointer highlighting

'is neccessary (hoover over clickable area)

'-------------------------------------------------

Proc PrintPointer()

CheckButtonInOut()

If NeedHighLighting() = 0 Then

SptBmpOverSpt(POINTER,BufferPointer, wOldPositionW,wOldPositionH, 1,WHITE,0,9)

Else

SptBmpOverSptRep(POINTER,BufferPointer, wOldPositionW,wOldPositionH, YELLOW,GREEN,1,WHITE,0,1)

EndIf

EndProc

'-------------------------------------------------

'Helper Function for PrintPointer() to check if

'highlighting is neccessary and avoid code repetition

'-------------------------------------------------

Proc NeedHighLighting(), Bit

Result = 0

Select bCurrentScreen

Case 0

If Button1_InOut = 1 Then Result = 1

If Button2_InOut = 1 Then Result = 1

Case 1

If Button1_InOut = 1 Then Result = 1

Case 2

If Button1_InOut = 1 Then Result = 1

Case 3

If Button1_InOut = 1 Then Result = 1

If Button2_InOut = 1 Then Result = 1

Case 4

If Button1_InOut = 1 Then Result = 1

If Button2_InOut = 1 Then Result = 1

EndSelect

EndProc

'-------------------------------------------------

'Helper Function to determine if pointer is over

'clickable screen button area to set/clear a bit marker

'-------------------------------------------------

Proc CheckButtonInOut()

Select bCurrentScreen

Case 0

CheckButton1InOut()

CheckButton2InOut()

Case 1

CheckButton1InOut()

Case 2

CheckButton1InOut()

Case 3

CheckButton1InOut()

CheckButton2InOut()

Case 4

CheckButton1InOut()

CheckButton2InOut()

EndSelect

EndProc

'-------------------------------------------------

'Verifies if pointer is over the corresponding screen button

'cliackable area and sets/clears the corresponding bit

'-------------------------------------------------

Proc CheckButton1InOut()

If wPointerPositionW > Button1_X1 And wPointerPositionW < Button1_X3 And wPointerPositionH > Button1_Y1 And wPointerPositionH < Button1_Y3 Then

Button1_InOut = 1

Else

Button1_InOut = 0

EndIf

EndProc

Proc CheckButton2InOut()

If wPointerPositionW > Button2_X1 And wPointerPositionW < Button2_X3 And wPointerPositionH > Button2_Y1 And wPointerPositionH < Button2_Y3 Then

Button2_InOut = 1

Else

Button2_InOut = 0

EndIf

EndProc

Proc CheckChartHoover()

If bChartType = 0 Then

Chart0Hoover()

ElseIf bChartType = 1 Then

Chart1Hoover()

EndIf

EndProc

Proc Chart0Hoover()

Dim bCounter As Byte

Dim bTemp As Byte

Dim dwTemp As Dword

Dim pShowToolTip As Bit

Dim pTestBit1 As Bit

Dim pTestBit2 As Bit

Global Dim wOldBin As Word Shared

TftSetSndFont(5,0)

For bCounter = 0 To 38

pShowToolTip = 0

If bCounter + wChartOffset > 253 Then Break

pTestBit1 = 0

pTestBit2 = 0

dwTemp = waBinArea[bCounter]

If wPointerPositionW > dwTemp.Word0 - 2 And wPointerPositionW < dwTemp.Word0 + 2 Then pTestBit1 = 1

If dwTemp.Byte2 >= 36 And wPointerPositionH < dwTemp.Byte2 Then pTestBit2 = 1

If dwTemp.Byte2 < 36 And wPointerPositionH < 40 Then pTestBit2 = 1

If pTestBit1 = 1 And pTestBit2 = 1 Then pShowToolTip = 1

If pShowToolTip = 1 Then

If wPointerPositionW < 285 Then 'print right of pointer

ToolTipOldW = wPointerPositionW + 10

ToolTipOldH = wPointerPositionH - 4

Else 'print left of pointer

ToolTipOldW = wPointerPositionW - 34

ToolTipOldH = wPointerPositionH - 4

EndIf

SptReadTft(ToolTipOldW,ToolTipOldH, 26,14, BufferToolTip,0,0,0)

TftRectangleENTC(ToolTipOldW,ToolTipOldH,ToolTipOldW + 25,ToolTipOldH + 13, BISQUE)

If dwTemp.Byte2 > 99 Then

TftPrintSndString(Str$(Dec dwTemp.Byte2), 1,ToolTipOldW + 1,ToolTipOldH + 1,0, RED,BLACK,0)

ElseIf dwTemp.Byte2 > 9 And dwTemp.Byte2 < 100 Then

TftPrintSndString(" " + Str$(Dec dwTemp.Byte2), 1,ToolTipOldW + 1,ToolTipOldH + 1,0, RED,BLACK,0)

ElseIf dwTemp.Byte2 < 10 Then

TftPrintSndString(" " + Str$(Dec dwTemp.Byte2), 1,ToolTipOldW + 1,ToolTipOldH + 1,0, RED,BLACK,0)

EndIf

If bTemp <> dwTemp.Byte2 Then

If dwTemp.Byte2 > 99 Then

TftPrintSndString(Str$(Dec dwTemp.Byte2), 1,220,220,0, BITTER_LEMON,BLACK,0)

ElseIf dwTemp.Byte2 > 9 And dwTemp.Byte2 < 100 Then

TftPrintSndString(" " + Str$(Dec dwTemp.Byte2), 1,220,220,0, BITTER_LEMON,BLACK,0)

ElseIf dwTemp.Byte2 < 10 Then

TftPrintSndString(" " + Str$(Dec dwTemp.Byte2), 1,220,220,0, BITTER_LEMON,BLACK,0)

EndIf

If wOldBin <> bCounter + wChartOffset Then

If bCounter > 99 Then

TftPrintSndString(Str$(Dec bCounter + wChartOffset), 1,108,220,0, BITTER_LEMON,BLACK,0)

ElseIf bCounter > 9 And bCounter < 100 Then

TftPrintSndString(" " + Str$(Dec bCounter + wChartOffset), 1,108,220,0, BITTER_LEMON,BLACK,0)

ElseIf bCounter < 10 Then

TftPrintSndString(" " + Str$(Dec bCounter + wChartOffset), 1,108,220,0, BITTER_LEMON,BLACK,0)

EndIf

wOldBin = bCounter + wChartOffset

bTemp = dwTemp.Byte2

ExitProc

EndIf

If pShowToolTip = 0 And wOldBin <> 65000 Then

TftRectangleSNTC(220,220,244,232, BLACK)

TftRectangleSNTC(108,220,140,232, BLACK)

SptWriteTft(ToolTipOldW,ToolTipOldH,BufferToolTip,0,BLACK,0,0)

wOldBin = 65000

bTemp = 255

EndIf

EndProc

Proc Chart1Hoover()

Dim wCounter As Word

Dim bTemp As Byte

Dim dwTemp As Dword

Dim pShowToolTip As Bit

Dim pTestBit1 As Bit

Dim pTestBit2 As Bit

Global Dim wOldBin As Word Shared

TftSetSndFont(5,0)

For wCounter = 0 To 270

pShowToolTip = 0

If wCounter + wChartOffset > 1023 Then Break

pTestBit1 = 0

pTestBit2 = 0

dwTemp = waBinArea[wCounter]

If wPointerPositionW > dwTemp.Word0 - 3 And wPointerPositionW < dwTemp.Word0 + 3 Then pTestBit1 = 1

If wPointerPositionH > dwTemp.Byte2 - 4 And wPointerPositionH < dwTemp.Byte2 + 4 Then pTestBit2 = 1

If pTestBit1 = 1 And pTestBit2 = 1 Then pShowToolTip = 1

If pShowToolTip = 1 Then

If wPointerPositionW < 285 Then 'print right of pointer

ToolTipOldW = wPointerPositionW + 10

ToolTipOldH = wPointerPositionH - 4

Else 'print left of pointer

ToolTipOldW = wPointerPositionW - 34

ToolTipOldH = wPointerPositionH - 4

EndIf

If bTemp <> dwTemp.Byte2 Then

If dwTemp.Byte2 > 99 Then

TftPrintSndString(Str$(Dec dwTemp.Byte2), 1,220,220,0, BITTER_LEMON,BLACK,0)

ElseIf dwTemp.Byte2 > 9 And dwTemp.Byte2 < 100 Then

TftPrintSndString(" " + Str$(Dec dwTemp.Byte2), 1,220,220,0, BITTER_LEMON,BLACK,0)

ElseIf dwTemp.Byte2 < 10 Then

TftPrintSndString(" " + Str$(Dec dwTemp.Byte2), 1,220,220,0, BITTER_LEMON,BLACK,0)

EndIf

If wOldBin <> wCounter + wChartOffset Then

If wCounter > 99 Then

TftPrintSndString(Str$(Dec wCounter + wChartOffset), 1,116,220,0, BITTER_LEMON,BLACK,0)

ElseIf wCounter > 9 And wCounter < 100 Then

TftPrintSndString(" " + Str$(Dec wCounter + wChartOffset), 1,116,220,0, BITTER_LEMON,BLACK,0)

ElseIf wCounter < 10 Then

TftPrintSndString(" " + Str$(Dec wCounter + wChartOffset), 1,116,220,0, BITTER_LEMON,BLACK,0)

EndIf

wOldBin = wCounter + wChartOffset

bTemp = dwTemp.Byte2

ExitProc

EndIf

If pShowToolTip = 0 And wOldBin <> 65000 Then

TftRectangleSNTC(220,220,244,232, BLACK)

TftRectangleSNTC(116,220,140,232, BLACK)

SptWriteTft(ToolTipOldW,ToolTipOldH,BufferToolTip,0,BLACK,0,0)

wOldBin = 65000

bTemp = 255

EndIf

EndProc

Proc RestoreToolTip()

SptWriteTft(ToolTipOldW,ToolTipOldH,BufferToolTip,0,BLACK,0,0)

EndProc

'=================================================

'Common button section

'=================================================

'-------------------------------------------------

'Animated click button with lower left coordinates

'wX1 and wY1 and pointer over

'-------------------------------------------------

Proc ClickButton(wX1 As Word, wY1 As Word)

SptWriteTft(wOldPositionW,wOldPositionH,BufferPointer, 0,WHITE,0,0)

TftBmpFromCode(BT_IN, wX1,wY1, 1,DARK_JUNGLE_GREEN,0,0)

SptReadTft(wOldPositionW,wOldPositionH, bSpriteWidth,bSpriteHeight, BufferPointer,0,0,0)

SptBmpOverSptRep(POINTER,BufferPointer, wOldPositionW,wOldPositionH, YELLOW,GREEN,1,WHITE,0,1)

DelayMS 500

EndProc

Proc ClickButtonType0(wX1 As Word, wY1 As Word)

SptWriteTft(wOldPositionW,wOldPositionH,BufferPointer, 0,WHITE,0,0)

PrintInButton(wX1,wY1)

SptReadTft(wOldPositionW,wOldPositionH, bSpriteWidth,bSpriteHeight, BufferPointer,0,0,0)

SptBmpOverSptRep(POINTER,BufferPointer, wOldPositionW,wOldPositionH, YELLOW,GREEN,1,WHITE,0,1)

DelayMS 500

EndProc

Proc ClickButtonType1(bButton As Byte)

SptWriteTft(wOldPositionW,wOldPositionH,BufferPointer, 0,WHITE,0,0)

If bButton = 1 Then

TftRectangleSNTC(0,211,60,239,BLACK)

TftTriangleNS(15,224, 29,236, 29,212, BIG_DIP_O_RUBY)

ElseIf bButton = 2 Then

TftRectangleSNTC(260,211,319,239,BLACK)

TftTriangleNS(304,224, 290,236, 290,212, BIG_DIP_O_RUBY)

EndIf

EndProc

'-------------------------------------------------

'Initiate and print pointer buffer at coordinates wX1 and wY1

'-------------------------------------------------

Proc InitiatePointer(wX1 As Word, wY1 As Word)

'Dimension sprite buffers

bSpriteWidth = TftBmpFromCodeWidth(POINTER)

bSpriteHeight = TftBmpFromCodeHeight(POINTER)

wPixels = bSpriteWidth

wPixels = wPixels * bSpriteHeight

SptDimBuffer(BufferPointer, wPixels)

SptDimBuffer(BufferLineIn, bSpriteWidth)

'Set cursor position

wOldPositionW = wX1

wOldPositionH = wY1

wMaxPositionW = TftScreenWidth - bSpriteWidth - 1

wMaxPositionH = TftScreenHeight - bSpriteHeight - 1

wPointerPositionW = wOldPositionW + (bSpriteWidth >> 2)

wPointerPositionH = wOldPositionH + (bSpriteHeight - 4)

'Print cursor

SptReadTft(wOldPositionW,wOldPositionH, bSpriteWidth,bSpriteHeight, BufferPointer,0,0,0)

TftBmpFromCode(POINTER, wOldPositionW,wOldPositionH, 1,WHITE,0,9)

EndProc

'-------------------------------------------------

'This will jump the pointer to the new coordinates

'-------------------------------------------------

Proc PointerJump()

Dim sTempX As SWord

Dim sTempY As SWord

SptWriteTft(wOldPositionW,wOldPositionH,BufferPointer, 0,WHITE,0,0)

sTempX = wTouchToPointX

sTempX = sTempX - (bSpriteWidth >> 2)

If sTempX < 0 Then sTempX = 0

If sTempX > wMaxPositionW Then sTempX = wMaxPositionW

sTempY = wTouchToPointY

sTempY = sTempY - (bSpriteHeight - 4)

If sTempY < 0 Then sTempY = 0

If sTempY > wMaxPositionH Then sTempY = wMaxPositionH

wOldPositionW = sTempX

wOldPositionH = sTempY

wPointerPositionW = wOldPositionW + (bSpriteWidth >> 2)

wPointerPositionH = wOldPositionH + (bSpriteHeight - 4)

SptReadTft(wOldPositionW,wOldPositionH, bSpriteWidth,bSpriteHeight, BufferPointer,0,0,0)

PrintPointer()

DelayMS 250

EndProc

'=================================================

'Touch section

'=================================================

'-------------------------------------------------

'Detects if toch screen has been pressed and

'calls to virify what type of touch event it

'is depending on screen and clickable areas

'-------------------------------------------------

Proc PressTouch()

Dim bTimer As Byte

pTouchEventDetected = 0

If T_IRQ = 0 Then

If TftTouchGetCoordinates(0) = 1 Then

If bCurrentScreen = 4 Then

DelayMS 250

pDoubbleClick = 0

For bTimer = 0 To 250

If T_IRQ = 0 Then

If TftTouchGetCoordinates(0) = 1 Then

pDoubbleClick = 1

Break

EndIf

DelayMS 2

EndIf

pTouchEventDetected = 1

TouchAction()

EndIf

EndProc

'-------------------------------------------------

'Verifies if click is over the corresponding screen button

'cliackable area and sets/clears the corresponding bit

'-------------------------------------------------

Proc CheckButton1InOutTouch()

If wTouchToPointX > Button1_X1 And wTouchToPointX < Button1_X3 And wTouchToPointY > Button1_Y1 And wTouchToPointY < Button1_Y3 Then

Button1_InOut = 1

Else

Button1_InOut = 0

EndIf

EndProc

Proc CheckButton2InOutTouch()

If wTouchToPointX > Button2_X1 And wTouchToPointX < Button2_X3 And wTouchToPointY > Button2_Y1 And wTouchToPointY < Button2_Y3 Then

Button2_InOut = 1

Else

Button2_InOut = 0

EndIf

EndProc

'-------------------------------------------------

'Touch action to execute depending on screen

'and touch coordinates

'-------------------------------------------------

Proc TouchAction()

Select bCurrentScreen

Case 0

If pTouchEnabled = 1 Then

CheckButton1InOutTouch()

CheckButton2InOutTouch()

PointerJump()

If Button1_InOut = 1 Or Button2_InOut = 1 Then

BtSelectPressed()

EndIf

Case 1

If pTouchEnabled = 1 Then

CheckButton1InOutTouch()

PointerJump()

If Button1_InOut = 1 Then

BtSelectPressed()

EndIf

Case 2

CheckButton1InOutTouch()

PointerJump()

If Button1_InOut = 1 Then

BtSelectPressed()

EndIf

Case 3

If pTouchEnabled = 1 Then

CheckButton1InOutTouch()

CheckButton2InOutTouch()

PointerJump()

If Button1_InOut = 1 Or Button2_InOut = 1 Then

BtSelectPressed()

EndIf

Case 4

CheckButton1InOutTouch()

CheckButton2InOutTouch()

RestoreToolTip()

PointerJump()

CheckChartHoover()

If Button1_InOut = 1 Or Button2_InOut = 1 Then

BtSelectPressed()

EndIf

EndSelect

pTouchEventDetected = 0

EndProc

'=================================================

'Chart section

'=================================================

Proc PlotChart()

Dim wCounter1 As Word

Dim wCounter2 As Word

Dim dwTemp As Dword

Dim bCounter1 As Byte

Dim bTemp As Byte

Dim bTemp1 As Byte

Global Dim wOldBin As Word Shared

If bChartType = 0 Then

TftSetSndFont(5,0)

TftPrintSndString(" ", 1,116,220,0, BITTER_LEMON,BLACK,0)

TftPrintSndString(" ", 1,220,220,0, BITTER_LEMON,BLACK,0)

TftRectangleSNTC(0,0,319,211,BLACK)

SetProgressBar()

ResetProgressBar()

For bCounter1 = 0 To 225

TickProgressBar()

DelayMS 4

TftRectangleSNTC(0,0,319,211,BLACK)

For wCounter1 = 5 To 210 Step 10

TftLineHN(0,319,wCounter1, BRITISH_RACING_GREEN)

wCounter1 = 23

For bCounter1 = wChartOffset To wChartOffset + 38

If bCounter1 > 253 Then Break

bTemp = CRead8 ChartData0[bCounter1]

TftRectangle(wCounter1, 0, wCounter1 + 5, bTemp, 0, BLUE_PIGMENT, 1, -1)

TftRectangleSNTC(wCounter1 + 2, 2, wCounter1 + 3, bTemp - 2, BLUETIFUL)

dwTemp.Word0 = wCounter1 + 2

dwTemp.Word1 = bTemp

waBinArea[bCounter1 - wChartOffset] = dwTemp

Inc wCounter1, 7

ElseIf bChartType = 1 Then

TftSetSndFont(5,0)

TftPrintSndString(" ", 1,124,220,0, BITTER_LEMON,BLACK,0)

TftPrintSndString(" ", 1,228,220,0, BITTER_LEMON,BLACK,0)

TftRectangleSNTC(2,2,317,205,CHARCOAL)

SetProgressBar()

ResetProgressBar()

For bCounter1 = 0 To 225

TickProgressBar()

DelayMS 4

TftRectangleSNTC(2,2,317,205,CHARCOAL)

For wCounter1 = 8 To 188 Step 30

TftLineHN(6,310,wCounter1, CATAWBA)

For wCounter1 = 20 To 300 Step 40

TftLineVN(wCounter1,10,200, CATAWBA)

bTemp1 = CRead8 ChartData1[wChartOffset - 1]

wCounter1 = 10

For wCounter2 = wChartOffset To wChartOffset + 270

If wCounter2 > 1023 Then Break

bTemp = CRead8 ChartData1[wCounter2]

TftLineDNF(wCounter1,bTemp1,wCounter1 + 1,bTemp,BLUETIFUL)

dwTemp.Word0 = wCounter2

dwTemp.Word1 = bTemp

waBinArea[wCounter1 - 10] = dwTemp

bTemp1 = bTemp

Inc wCounter1

EndIf

SptDimBuffer(BufferToolTip, 26 * 14)

ToolTipOldW = 65000

ToolTipOldH = 65000

wOldBin = 65000

InitiatePointer(TftScreenWidth / 2, TftScreenHeight / 2)

EndProc

Proc PrintMainButton(wX As Word, wY As Word)

TftRectangleRC(wX,wY,wX + 120,wY + 32,14,0,AZURE,1,1)

TftRectangleRCG(wX,wY,wX + 120,wY + 32, 14, BLUSH,BLUE_VIOLET,1)

EndProc

Proc PrintInButton(wX As Word, wY As Word)

TftRectangleRC(wX,wY,wX + 120,wY + 32,14,0,GREEN,1,1)

EndProc

Proc SetProgressBar()

Global Dim bProgressBarTick As Byte

TftRectangle(95,99, 225,121, 0,RED,2,1)

EndProc

Proc ResetProgressBar()

bProgressBarTick = 96

TftRectangleSNTC(96,100, 224,120, DARK_JUNGLE_GREEN)

EndProc

Proc TickProgressBar()

TftLineVN(bProgressBarTick,100,120, CHINESE_YELLOW)

If bProgressBarTick < 224 Then Inc bProgressBarTick

EndProc

'=================================================

'Screen layout section

'=================================================

Proc Screen0()

TftResetScreen(DARK_JUNGLE_GREEN)

'Print Positron header

TftRectangleRCG(10,60, 309,230, 20, PRUSSIAN_BLUE,BURGUNDY,1)

TftSetSndFont(4,0)

TftPrintSndString("++++++++++++++++++", 1,1,13,1, DODGER_BLUE,BLACK,1)

TftPrintSndString("Positron PIC BASIC", 1,1,12,1, DODGER_BLUE,BLACK,1)

TftPrintSndString("Sprite Engine Demo", 1,1,11,1, DODGER_BLUE,BLACK,1)

TftPrintSndString("++++++++++++++++++", 1,1,10,1, DODGER_BLUE,BLACK,1)

TftPrintSndString("------------------", 1,1,9,1, DODGER_BLUE,BLACK,1)

TftPrintSndString(" PIC 18F57Q83 ", 1,1,8,1, DODGER_BLUE,BLACK,1)

TftPrintSndString("Demo Mouse Pointer", 1,1,7,1, DODGER_BLUE,BLACK,1)

TftPrintSndString(" & ", 1,1,6,1, DODGER_BLUE,BLACK,1)

TftPrintSndString("Data Chart Example", 1,1,5,1, DODGER_BLUE,BLACK,1)

TftPrintSndString("------------------", 1,1,4,1, DODGER_BLUE,BLACK,1)

'Buttons

TftSetSndFont(5,0)

TftBmpFromCode(BT_MAIN, 19,6, 1,DARK_JUNGLE_GREEN,0,0)

TftBmpFromCode(BT_MAIN, 168,6, 1,DARK_JUNGLE_GREEN,0,0)

TftPrintSndString("Set Touch", 1,46,29,0, TURQUOISE_BLUE,BLACK,1)

TftPrintSndString("Screen", 1,58,16,0, TURQUOISE_BLUE,BLACK,1)

TftPrintSndString("Continue", 1,200,24,0, TURQUOISE_BLUE,BLACK,1)

Button1_InOut = 0

Button1_X1 = 25 : Button1_Y1 = 10

Button1_X3 = 139 : Button1_Y3 = 47

Button2_InOut = 0

Button2_X1 = 175 : Button2_Y1 = 10

Button2_X3 = 287 : Button2_Y3 = 47

bCurrentScreen = 0

InitiatePointer(TftScreenWidth / 2, TftScreenHeight / 4)

EndProc

Proc Screen1()

TftResetScreen(DARK_JUNGLE_GREEN)

'Buttons

TftSetSndFont(4,0)

PrintMainButton(80,6)

TftPrintSndString("OK", 1,125,15,0, TURQUOISE_BLUE,BLACK,1)

'Text

TftSetSndFont(5,0)

TftPrintSndString("5 times until they disappear.", 1,5,11,1, DODGER_BLUE,BLACK,1)

TftPrintSndString("briefly press selected points", 1,5,12,1, DODGER_BLUE,BLACK,1)

TftPrintSndString("To complete touch calibration,", 1,5,13,1, DODGER_BLUE,BLACK,1)

Button1_InOut = 0

Button1_X1 = 80 : Button1_Y1 = 6

Button1_X3 = 80 + 120 : Button1_Y3 = 6 + 32

bCurrentScreen = 1

InitiatePointer(TftScreenWidth / 2, TftScreenHeight / 4)

EndProc

Proc Screen2()

'Touch

TftTouchCalibration(3)

TftResetScreen(DARK_JUNGLE_GREEN)

'Buttons

TftSetSndFont(4,0)

PrintMainButton(80,6)

TftPrintSndString("OK", 1,127,15,0, TURQUOISE_BLUE,BLACK,1)

TftSetSndFont(5,0)

TftPrintSndString("Touch screen calibration has", 1,5,11,1, DODGER_BLUE,BLACK,1)

TftPrintSndString("been completed successfully", 1,5,12,1, DODGER_BLUE,BLACK,1)

TftPrintSndString("to continue, press OK button", 1,5,13,1, DODGER_BLUE,BLACK,1)

Button1_InOut = 0

Button1_X1 = 80 : Button1_Y1 = 6

Button1_X3 = 80 + 120 : Button1_Y3 = 6 + 32

bCurrentScreen = 2

InitiatePointer(TftScreenWidth / 2, TftScreenHeight / 2)

pTouchEnabled = 1

EndProc

Proc Screen3()

TftResetScreen(DARK_JUNGLE_GREEN)

'Print Positron header

TftSetSndFont(4,0)

TftPrintSndString("Select Chart Type", 1,1,10,1, DODGER_BLUE,BLACK,1)

'Buttons

TftSetSndFont(5,0)

PrintMainButton(19,96)

PrintMainButton(168,96)

TftPrintSndString("Type 1", 1,56,107,0, TURQUOISE_BLUE,BLACK,1)

TftPrintSndString("Type 2", 1,210,107,0, TURQUOISE_BLUE,BLACK,1)

Button1_InOut = 0

Button1_X1 = 19 : Button1_Y1 = 96

Button1_X3 = 19 + 120 : Button1_Y3 = 96 + 32

Button2_InOut = 0

Button2_X1 = 168 : Button2_Y1 = 96

Button2_X3 = 168 + 120 : Button2_Y3 = 96 + 32

bCurrentScreen = 3

InitiatePointer(TftScreenWidth / 2, TftScreenHeight / 4)

EndProc

Proc Screen4()

Dim wCounter1 As Word

TftResetScreen(BLACK)

TftSetSndFont(5,0)

If bChartType = 0 Then

TftPrintSndString("Bin: Value: ", 1,76,220,0, BITTER_LEMON,BLACK,0)

ElseIf bChartType = 1 Then

TftPrintSndString("Point: Value: ", 1,68,220,0, BITTER_LEMON,BLACK,0)

TftRectangleSNTC(2,2,317,205,CHARCOAL)

For wCounter1 = 8 To 188 Step 30

TftLineHN(6,310,wCounter1, CATAWBA)

For wCounter1 = 20 To 300 Step 40

TftLineVN(wCounter1,10,200, CATAWBA)

TftLineHN(0,317,0, CORNFLOWER_BLUE)

TftLineHN(0,317,1, CORNFLOWER_BLUE)

TftLineVN(0,0,205, CORNFLOWER_BLUE)

TftLineVN(1,0,205, CORNFLOWER_BLUE)

EndIf

TftTriangleNS(15,224, 29,236, 29,212, BIG_DIP_O_RUBY)

TftTriangleNS(304,224, 290,236, 290,212, BIG_DIP_O_RUBY)

Button1_InOut = 0

Button1_X1 = 15 : Button1_Y1 = 212

Button1_X3 = 15 + 14 : Button1_Y3 = 236

Button2_InOut = 0

Button2_X1 = 287 : Button2_Y1 = 212

Button2_X3 = 287 + 14 : Button2_Y3 = 236

If bChartType = 0 Then

wChartOffset = 0

ElseIf bChartType = 1 Then

wChartOffset = 1

EndIf

PlotChart()

bCurrentScreen = 4

EndProc

'Write Touch coefficients

Proc WriteTouch()

EepromWrite(0, sdwKX1_FP.Byte0)

EepromWrite(1, sdwKX1_FP.Byte1)

EepromWrite(2, sdwKX1_FP.Byte2)

EepromWrite(3, sdwKX1_FP.Byte3)

EepromWrite(4, sdwKX2_FP.Byte0)

EepromWrite(5, sdwKX2_FP.Byte1)

EepromWrite(6, sdwKX2_FP.Byte2)

EepromWrite(7, sdwKX2_FP.Byte3)

EepromWrite(8, sdwKX3_FP.Byte0)

EepromWrite(9, sdwKX3_FP.Byte1)

EepromWrite(10, sdwKX3_FP.Byte2)

EepromWrite(11, sdwKX3_FP.Byte3)

EepromWrite(12, sdwKY1_FP.Byte0)

EepromWrite(13, sdwKY1_FP.Byte1)

EepromWrite(14, sdwKY1_FP.Byte2)

EepromWrite(15, sdwKY1_FP.Byte3)

EepromWrite(16, sdwKY2_FP.Byte0)

EepromWrite(17, sdwKY2_FP.Byte1)

EepromWrite(18, sdwKY2_FP.Byte2)

EepromWrite(19, sdwKY2_FP.Byte3)

EepromWrite(20, sdwKY3_FP.Byte0)

EepromWrite(21, sdwKY3_FP.Byte1)

EepromWrite(22, sdwKY3_FP.Byte2)

EepromWrite(23, sdwKY3_FP.Byte3)

EndProc

'Read Touch coefficients

Proc SetTouch()

sdwKX1_FP.Byte0 = EepromRead(0)

sdwKX1_FP.Byte1 = EepromRead(1)

sdwKX1_FP.Byte2 = EepromRead(2)

sdwKX1_FP.Byte3 = EepromRead(3)

sdwKX2_FP.Byte0 = EepromRead(4)

sdwKX2_FP.Byte1 = EepromRead(5)

sdwKX2_FP.Byte2 = EepromRead(6)

sdwKX2_FP.Byte3 = EepromRead(7)

sdwKX3_FP.Byte0 = EepromRead(8)

sdwKX3_FP.Byte1 = EepromRead(9)

sdwKX3_FP.Byte2 = EepromRead(10)

sdwKX3_FP.Byte3 = EepromRead(11)

sdwKY1_FP.Byte0 = EepromRead(12)

sdwKY1_FP.Byte1 = EepromRead(13)

sdwKY1_FP.Byte2 = EepromRead(14)

sdwKY1_FP.Byte3 = EepromRead(15)

sdwKY2_FP.Byte0 = EepromRead(16)

sdwKY2_FP.Byte1 = EepromRead(17)

sdwKY2_FP.Byte2 = EepromRead(18)

sdwKY2_FP.Byte3 = EepromRead(19)

sdwKY3_FP.Byte0 = EepromRead(20)

sdwKY3_FP.Byte1 = EepromRead(21)

sdwKY3_FP.Byte2 = EepromRead(22)

sdwKY3_FP.Byte3 = EepromRead(23)

pTouchEnabled = 1

EndProc

Symbol EEPROM_WRITE_COMMAND = %00000011

Symbol EEPROM_READ_COMMAND = %00000000

Symbol DFM_BASE = 0x38

'wAddress = EEPROM address to be written

'Result: 0 - write success

' 1 - write error

Proc EepromWrite(wAddress As Word, bData As Byte), Byte

Dim bTempGIE As Byte

Result = 0

'Clear previous error flags

NVMCON1.7 = 0

'Address (DFM base + offset)

NVMADRU = DFM_BASE

NVMADRH = wAddress.Byte1

NVMADRL = wAddress.Byte0

'Data

NVMDATL = bData

'Select command

NVMCON1 = EEPROM_WRITE_COMMAND

'Disable GIE

bTempGIE = INTCON0

INTCON0.7 = 0

'Unlock sequence

NVMLOCK = 0x55

NVMLOCK = 0xAA

'Start

NVMCON0.0 = 1

'Wait to complete

While NVMCON0.0 = 1 : Wend

'Check for an error

If NVMCON1.7 = 1 Then

NVMCON1.7 = 0

Result = 1

EndIf

'Restore GIE

INTCON0 = bTempGIE

'Disable write

NVMCON1 = 0

EndProc

'wAddress = EEPROM address to be read from

'Result: Data

Proc EepromRead(wAddress As Word), Byte

Result = 0

'Address (DFM base + offset)

NVMADRU = DFM_BASE

NVMADRH = wAddress.Byte1

NVMADRL = wAddress.Byte0

'Select command

NVMCON1 = EEPROM_READ_COMMAND

'Start

NVMCON0.0 = 1

'Wait to complete

While NVMCON0.0 = 1 : Wend

'Copy result

Result = NVMDATL

EndProc

'Set Fosc

Proc SetCrystal()

Clear

OSCCON1 = %01100000

OSCEN.6 = 1

OSCFRQ = %00001000

DelayMS 100

EndProc

Proc SetPins()

Dim pTemp As Bit

'Set all digital

ANSELA = 0

ANSELB = 0

ANSELC = 0

ANSELD = 0

ANSELE = 0

ANSELF = 0

'PPS Unlock

pTemp = INTCON0.7

INTCON0.7 = 0

PPSLOCK = 0x55

PPSLOCK = 0xAA

PPSLOCK.0 = 0

'SPI1 MISO = PORTC.4

SPI1SDIPPS = %00010100

'SPI1 MOSI = PORTC.2

RC2PPS = 0x32

'SPI1 SCLK = PORTC.3

RC3PPS = 0x31

'SPI2 MISO = PORTB.2

SPI2SDIPPS = %00001010

'SPI2 MOSI = PORTB.0

RB0PPS = 0x35

'SPI2 SCLK = PORTB.3

RB3PPS = 0x34

'PPS Lock

PPSLOCK = 0x55

PPSLOCK = 0xAA

PPSLOCK.0 = 1

INTCON0.7 = pTemp

SPI1CON2 = %00000011

'CKE: SPI Clock Edge Select

SPI1CON1.6 = 1

'Baud Clock Prescaler Select 0 = 32MHZ

SPI1BAUD = 0

'Clear Buffer Control

SPI1STATUS.2 = 1

'Enable SPI1 in legacy mode

SPI1CON0 = %10000011

SPI2CON2 = %00000011

'CKE: SPI Clock Edge Select

SPI2CON1.6 = 1

'Baud Clock Prescaler Select 1 = 16MHZ

SPI2BAUD = 2

'Clear Buffer Control

SPI2STATUS.2 = 1

'Enable SPI2 in legacy mode

SPI2CON0 = %10000011

'Disable peripherals

Output PORTA.3 : High PORTA.3 'SD Card CS

Output PORTA.2 : High PORTA.2 'FLASH Memory CS

Output PORTE.0 : High PORTE.0 'Touch CS

Input BT_LEFT : Input BT_RIGHT

Input BT_UP : Input BT_DOWN

Input BT_SELECT

EndProc

'**** Added by Fuse Configurator ****

Config_Start

FEXTOSC = OFF ;Oscillator not enable

RSTOSC = HFINTOSC_64MHZ ;HFINTOSC with HFFRQ = 64 MHz and CDIV = 1:

CLKOUTEN = OFF ;CLKOUT function is disable

PR1WAY = OFF ;PRLOCKED bit can be set and cleared repeatedl

CSWEN = On ;Writing to NOSC and NDIV is allowe

JTAGEN = OFF ;Disable JTAG Boundary Scan

FCMEN = On ;Fail-Safe Clock Monitor enable

FCMENP = OFF ;FSCM timer will not set FSCMP bit or OSFIF interrupt on Primary XTAL failur

FCMENS = OFF ;FSCM timer will not set FSCMS bit or OSFIF interrupt on Secondary XTAL failur

MCLRE = EXTMCLR ;If LVP = 0, MCLR pin is MCLR; If LVP = 1, RE3 pin function is MCLR

PWRTS = PWRT_OFF ;PWRT is disable

MVECEN = OFF ;Interrupt contoller does not use vector table to prioritze interrupt

IVT1WAY = OFF ;IVTLOCKED bit can be cleared and set repeatedl

LPBOREN = OFF ;Low-Power BOR disable

BOREN = SBORDIS ;Brown-out Reset enabled , SBOREN bit is ignore

BORV = VBOR_1P9 ;Brown-out Reset Voltage (VBOR) set to 1.9

ZCD = OFF ;ZCD module is disabled. ZCD can be enabled by setting the ZCDSEN bit of ZCDCO

PPS1WAY = OFF ;PPSLOCKED bit can be set and cleared repeatedly (subject to the unlock sequence

STVREN = On ;Stack full/underflow will cause Rese

LVP = On ;LV programming

XINST = OFF ;Extended Instruction Set and Indexed Addressing Mode disable

WDTCPS = WDTCPS_31 ;Divider ratio 1:65536; software control of WDTP

WDTE = OFF ;WDT Disabled; SWDTEN is ignore

WDTCWS = WDTCWS_7 ;window always open (100%); software control; keyed access not require

WDTCCS = SC ;Software Contro

BBSIZE = BBSIZE_512 ;Boot Block size is 512 word

BBEN = OFF ;Boot block disable

SAFEN = On ;SAF enable

WRTB = OFF ;Boot Block not Write protecte

WRTC = OFF ;Configuration registers not Write protecte

WRTD = OFF ;Data EEPROM not Write protecte

WRTSAF = OFF ;SAF not Write Protecte

WRTAPP = OFF ;Application Block not write protecte

BOOTPINSEL = RC5 ;CRC on boot output pin is RC

BPEN = OFF ;CRC on boot output pin disable

ODCON = OFF ;Pin drives both high-going and low-going signal

Cp = OFF ;PFM and Data EEPROM code protection disable

BOOTSCEN = OFF ;CRC on boot will not include the boot area of program memory in its calculatio

BOOTCOE = Continue ;CRC on boot will allow device to continue code execution regardless of error detection in boot area

APPSCEN = OFF ;CRC on boot will not include the application area of program memory in its calculatio

SAFSCEN = OFF ;CRC on boot will not include the SAF area of program memory in its calculatio

DATASCEN = OFF ;CRC on boot will not include data EEPROM in its calculatio

CFGSCEN = OFF ;CRC on boot will not include the configuration fuses in its calculatio

COE = HALT ;CRC on boot will stop device if error is detected in non-boot area

BOOTPOR = OFF ;CRC on boot will not ru

BCRCPOLT = HFF ;BCRCPOL is 0xF

Config_End

'**** End of Fuse Configurator Settings ****

Dim ChartData0 As Flash8 = 73,142,19,88,155,61,34,120,177,9,66,133,52,98,160,27,111,144,5,79,168,46,92,130,15,175,58,101,36,149,84,121,_

67,12,158,93,41,110,176,24,85,137,60,99,143,33,118,7,165,72,126,50,89,154,21,109,180,44,97,132,18,76,140,55,_

103,29,166,81,47,129,10,174,63,95,138,22,112,151,38,86,120,6,159,74,131,49,94,170,31,108,145,53,90,136,17,162,_

71,124,45,100,153,28,87,141,9,167,62,105,148,35,80,119,14,175,57,96,130,23,111,155,39,88,142,11,169,65,104,150,_

32,91,134,16,177,59,98,143,25,113,156,40,83,121,7,164,70,128,48,93,139,20,110,152,37,85,120,13,173,56,102,147,_

30,89,135,18,160,64,107,149,26,95,138,42,81,126,5,171,68,115,154,34,92,140,21,109,151,46,87,133,12,166,73,118,_

157,29,96,144,38,84,129,15,175,61,103,148,27,90,136,19,112,160,44,97,142,31,85,131,10,168,66,119,153,36,94,139,_

22,110,150,47,88,134,14,172,58,101,145,33,79,127,6,165,70,116,158,28,93,141,20,108,155,41,86,132,11,170,63,120

Dim ChartData1 As Flash8 = 121,137,151,164,173,178,180,177,170,159,145,128,109,89,71,54,42,33,30,33,41,55,73,94,117,138,157,171,179,179,172,158,_

137,113,88,64,45,33,30,37,52,76,103,131,156,173,180,175,159,133,103,72,47,32,31,44,70,103,136,164,179,177,159,128,_

91,57,35,31,47,79,119,156,177,177,154,116,73,41,30,46,83,129,166,180,164,123,74,38,32,58,106,155,179,167,123,69,_

34,38,80,137,176,172,126,67,31,45,100,159,169,176,180,179,175,167,156,141,124,106,87,69,54,41,33,30,32,40,52,69,_

89,111,132,151,166,176,180,176,166,149,127,103,79,57,41,31,31,39,56,80,107,134,158,174,180,175,159,135,105,75,50,34,_

30,41,64,95,128,157,176,179,167,140,105,69,42,30,37,62,99,138,168,180,170,140,99,59,34,33,56,97,142,173,179,156,_

112,65,34,34,65,114,160,180,164,118,65,33,39,82,138,176,172,127,68,32,43,96,155,180,178,172,162,150,135,118,100,83,_

66,51,40,33,30,32,39,51,67,86,107,127,147,163,174,180,179,171,157,138,116,92,69,50,36,30,33,43,62,86,112,138,_

160,175,180,174,159,134,105,76,51,35,30,39,59,88,121,151,172,180,172,150,117,82,51,33,32,49,81,120,155,176,178,159,_

123,82,47,30,38,69,112,153,178,175,146,100,56,32,38,73,123,165,180,159,112,61,32,41,85,140,176,172,127,69,32,42,_

93,152,180,155,142,127,110,93,76,61,48,38,32,30,33,40,52,67,86,105,125,144,160,172,179,180,174,163,146,125,103,80,_

59,43,33,30,36,49,69,93,119,144,164,176,180,173,157,133,104,76,51,35,30,37,56,84,116,146,169,180,176,157,128,93,_

60,37,30,40,66,102,140,168,180,171,144,105,65,38,31,47,83,127,164,180,169,134,88,48,30,43,82,131,170,179,154,106,_

56,31,43,88,143,177,171,127,69,33,41,90,150,180,159,100,84,68,55,43,35,31,30,34,42,54,70,87,106,126,144,159,_

171,178,180,176,166,151,132,111,88,67,49,37,30,32,40,56,77,102,127,150,168,178,179,171,154,130,102,74,51,35,30,37,_

55,81,112,142,166,179,178,163,136,102,69,43,31,35,55,87,124,157,177,178,160,126,86,51,32,35,60,99,141,172,179,161,_

122,76,41,30,50,92,140,174,177,148,98,51,30,46,92,146,178,170,125,69,33,40,89,148,179,162,105,48,39,32,30,31,_

37,46,58,74,91,109,128,145,160,171,178,180,176,168,154,136,116,94,74,55,41,32,30,35,47,65,88,112,136,157,172,179,_

178,168,150,125,98,71,49,34,30,37,54,80,110,140,164,178,179,166,142,110,77,49,33,31,46,75,110,145,171,180,170,143,_

106,68,40,30,43,75,116,155,177,176,150,108,64,35,33,58,103,149,177,174,141,91,47,30,50,97,149,179,169,123,67,33,_

40,88,146,179,164,109,51,30,34,41,51,64,80,97,115,132,148,162,172,178,180,176,168,155,138,119,98,78,59,44,34,30,_

33,42,57,76,99,123,145,163,176,180,176,164,144,119,93,67,46,33,30,38,55,80,110,139,162,177,179,169,147,117,84,55,_

36,30,40,64,98,133,162,178,177,157,124,85,52,32,33,55,92,133,166,180,169,137,93,53,31,37,68,115,158,179,170,133,_

82,42,31,54,103,153,179,167,121,65,32,41,88,145,179,165,112,54,30,59,73,88,105,122,138,153,165,174,179,180,176,167,_

154,138,119,100,80,62,47,36,30,31,38,51,68,90,113,135,155,170,178,179,172,158,137,112,86,62,43,32,31,39,57,82,_

111,139,162,177,180,170,150,121,89,60,39,30,36,57,87,122,154,175,180,167,139,102,66,39,30,41,71,110,149,175,179,159,_

122,78,43,30,44,80,127,165,180,164,123,74,38,32,60,110,158,180,164,117,63,32,41,88,145,179,166,115,56,30,55,115,_

131,146,159,169,176,180,179,174,165,152,136,118,99,80,62,47,37,31,31,36,47,63,83,105,127,147,164,175,180,177,167,150,_

128,103,78,56,40,31,31,42,60,85,113,140,163,177,180,171,151,124,93,63,41,31,34,51,79,113,145,169,180,173,151,118,_

81,49,32,33,54,89,129,163,179,174,146,106,64,36,31,53,93,139,172,179,157,113,65,34,34,66,117,162,180,161,113,60,_

31,43,90,146,178,167,116,58,30,52,110,165,174,179,180,177,171,161,148,132,114,95,77,61,47,37,31,30,35,45,60,78,_

99,121,141,159,172,179,179,173,159,140,118,93,70,50,36,30,33,45,65,90,117,143,164,177,180,171,152,125,95,66,43,31

Dim POINTER As Flash16 = 32,32,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,_

0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,_

0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,_

0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,_

0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,_

0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,_

0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFE0,0xFFE0,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFE0,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,_

0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF

Dim BT_MAIN As Flash16 = 126,46,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,_

0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39C6,0x2986,0x1924,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x31A6,0x4A68,0x6B2B,0x83AD,0x8BEE,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,_

0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,_

0x942E,0x942E,0x942E,0x8C0E,0x83AD,0x6B2B,0x4A68,0x31A6,0x1924,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x31A6,0x5AA9,0x83CD,0xACB0,0xBD52,0xC573,0xC573,0xC573,0xC573,0xC573,_

0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,_

0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xBD52,0xACB0,0x83CD,0x5ACA,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x31C6,0x7B8C,0xB4F1,0xC573,0xC573,0xBD52,0xB4F1,0xA490,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,_

0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,0x9C6F,_

0x9C6F,0x9C6F,0x9C6F,0xA490,0xB4F1,0xBD52,0xC573,0xC573,0xB511,0x7BAD,0x39C7,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x31A6,0x7BAD,0xB511,0xC573,0xB4F1,0x9C2E,0xA34C,0xBA69,0xD9C7,0xE187,0xD987,0xD987,_

0xD987,0xD987,0xD188,0xD188,0xD188,0xD188,0xD188,0xC989,0xC989,0xC989,0xC989,0xC989,0xC18A,0xC18A,0xC18A,0xC18A,0xC18A,0xB98B,0xB98B,0xB98B,0xB98B,0xB98B,0xB18C,0xB18C,0xB18C,0xB18C,0xB18C,0xA98D,0xA98D,0xA98D,0xA98D,0xA98E,0xA18E,0xA18E,0xA18E,0xA18E,_

0xA18F,0x998F,0x998F,0x998F,0x998F,0x9190,0x9190,0x9190,0x9190,0x9190,0x8991,0x8991,0x8991,0x8991,0x8991,0x8192,0x8192,0x8192,0x8192,0x8192,0x7993,0x7993,0x7993,0x7993,0x7993,0x7194,0x7194,0x7194,0x7194,0x7194,0x6995,0x6995,0x6995,0x6995,0x6196,0x6196,_

0x6196,0x6196,0x6196,0x5997,0x5997,0x5997,0x5997,0x5997,0x5198,0x5198,0x5198,0x5198,0x5198,0x4999,0x4999,0x4999,0x4999,0x4999,0x419A,0x419A,0x419A,0x49D8,0x5A75,0x7B51,0x942F,0xB4F1,0xC552,0xBD32,0x83CD,0x31C6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x2965,0x734B,0xB511,0xC552,0xA490,0xBACA,0xE925,0xE842,0xF001,0xE802,0xE802,0xE802,0xE003,0xE003,0xE003,0xE003,0xD804,0xD804,0xD804,0xD005,0xD005,0xD005,0xD005,0xC806,0xC806,0xC806,0xC007,0xC007,0xC007,0xC007,0xB808,_

0xB808,0xB808,0xB009,0xB009,0xB009,0xB009,0xA80A,0xA80A,0xA80A,0xA00B,0xA00B,0xA00B,0xA00B,0x980C,0x980C,0x980C,0x900D,0x900D,0x900D,0x900D,0x880E,0x880E,0x880E,0x800F,0x800F,0x800F,0x800F,0x7810,0x7810,0x7810,0x7810,0x7011,0x7011,0x7011,0x6812,0x6812,_

0x6812,0x6812,0x6013,0x6013,0x6013,0x5814,0x5814,0x5814,0x5814,0x5015,0x5015,0x5015,0x4816,0x4816,0x4816,0x4816,0x4017,0x4017,0x4017,0x3818,0x3818,0x3818,0x3818,0x3019,0x3019,0x3019,0x281A,0x281A,0x281A,0x281A,0x201B,0x201B,0x201B,0x181C,0x181C,0x181C,_

0x181C,0x101D,0x101D,0x101D,0x081E,0x185D,0x313C,0x62D4,0xA490,0xBD52,0xB532,0x734C,0x2985,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x5289,0xA4B0,0xC573,0xA490,0xCA27,0xF042,0xF001,0xF001,0xF001,0xE802,0xE802,0xE802,0xE003,_

0xE003,0xE003,0xE003,0xD804,0xD804,0xD804,0xD005,0xD005,0xD005,0xD005,0xC806,0xC806,0xC806,0xC007,0xC007,0xC007,0xC007,0xB808,0xB808,0xB808,0xB009,0xB009,0xB009,0xB009,0xA80A,0xA80A,0xA80A,0xA00B,0xA00B,0xA00B,0xA00B,0x980C,0x980C,0x980C,0x900D,0x900D,_

0x900D,0x900D,0x880E,0x880E,0x880E,0x800F,0x800F,0x800F,0x800F,0x7810,0x7810,0x7810,0x7810,0x7011,0x7011,0x7011,0x6812,0x6812,0x6812,0x6812,0x6013,0x6013,0x6013,0x5814,0x5814,0x5814,0x5814,0x5015,0x5015,0x5015,0x4816,0x4816,0x4816,0x4816,0x4017,0x4017,_

0x4017,0x3818,0x3818,0x3818,0x3818,0x3019,0x3019,0x3019,0x281A,0x281A,0x281A,0x281A,0x201B,0x201B,0x201B,0x181C,0x181C,0x181C,0x181C,0x101D,0x101D,0x101D,0x081E,0x081E,0x081E,0x105E,0x4A36,0xA490,0xC572,0xACD1,0x5AA9,0x1924,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x2986,0x83CD,0xBD52,0xB511,0xB2CA,0xF062,0xF001,0xF001,0xF001,0xF001,0xE802,0xE802,0xE802,0xE003,0xE003,0xE003,0xE003,0xD804,0xD804,0xD804,0xD005,0xD005,0xD005,0xD005,0xC806,0xC806,0xC806,0xC007,0xC007,0xC007,0xC007,0xB808,_

0x181C,0x101D,0x101D,0x101D,0x081E,0x081E,0x081E,0x081E,0x105E,0x62F3,0xB4F1,0xC573,0x8BED,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x5289,0xA4B0,0xC573,0x9C2E,0xE924,0xF800,0xF001,0xF001,0xF001,0xF001,0xE802,0xE802,0xE802,0xE003,_

0x4017,0x4017,0x3818,0x3818,0x3818,0x3019,0x3019,0x3019,0x3019,0x281A,0x281A,0x281A,0x201B,0x201B,0x201B,0x201B,0x181C,0x181C,0x181C,0x101D,0x101D,0x101D,0x081E,0x081E,0x081E,0x081E,0x001F,0x211C,0x940F,0xC573,0xACD1,0x5289,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x6B2B,0xBD32,0xBD52,0xAAEA,0xF841,0xF800,0xF001,0xF021,0xF021,0xE842,0xE842,0xE842,0xE842,0xE043,0xE043,0xE043,0xE043,0xD844,0xD844,0xD844,0xD045,0xD045,0xD045,0xD045,0xC846,0xC846,0xC846,0xC846,0xC047,0xC047,0xC047,0xB848,_

0xB848,0xB848,0xB848,0xB049,0xB049,0xB049,0xB049,0xA84A,0xA84A,0xA84A,0xA04B,0xA04B,0xA04B,0xA04B,0x984C,0x984C,0x984C,0x984C,0x904D,0x904D,0x904D,0x884E,0x884E,0x884E,0x884E,0x804F,0x804F,0x804F,0x804F,0x7850,0x7850,0x7850,0x7051,0x7051,0x7051,0x7051,_

0x6852,0x6852,0x6852,0x6852,0x6053,0x6053,0x6053,0x5854,0x5854,0x5854,0x5854,0x5055,0x5055,0x5055,0x5055,0x4856,0x4856,0x4856,0x4057,0x4057,0x4057,0x4057,0x3858,0x3858,0x3858,0x3858,0x3059,0x3059,0x3059,0x285A,0x285A,0x285A,0x285A,0x205B,0x205B,0x205B,_

0x183C,0x183C,0x103D,0x101D,0x081E,0x081E,0x081E,0x081E,0x001F,0x003F,0x6B12,0xBD32,0xC552,0x6B2B,0x1924,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x7B8C,0xC573,0xB4F1,0xCA07,0xF800,0xF800,0xF021,0xF061,0xF081,0xE8A2,0xE8A2,0xE8A2,0xE8A2,0xE0A3,_

0xE0A3,0xE0A3,0xE0A3,0xD8A4,0xD8A4,0xD8A4,0xD8A5,0xD0A5,0xD0A5,0xD0A5,0xD0A6,0xC8A6,0xC8A6,0xC8A6,0xC8A7,0xC0A7,0xC0A7,0xC0A7,0xC0A8,0xB8A8,0xB8A8,0xB8A8,0xB8A9,0xB0A9,0xB0A9,0xB0A9,0xB0AA,0xA8AA,0xA8AA,0xA8AA,0xA8AB,0xA0AB,0xA0AB,0xA0AB,0x98AC,0x98AC,_

0x98AC,0x98AC,0x90AD,0x90AD,0x90AD,0x90AE,0x88AE,0x88AE,0x88AE,0x88AF,0x80AF,0x80AF,0x80AF,0x80B0,0x78B0,0x78B0,0x78B0,0x78B1,0x70B1,0x70B1,0x70B1,0x70B2,0x68B2,0x68B2,0x68B2,0x68B3,0x60B3,0x60B3,0x60B3,0x60B4,0x58B4,0x58B4,0x58B4,0x50B5,0x50B5,0x50B5,_

0x50B5,0x48B6,0x48B6,0x48B6,0x48B6,0x40B7,0x40B7,0x40B7,0x40B7,0x38B8,0x38B8,0x38B8,0x38B8,0x30B9,0x30B9,0x30B9,0x28BA,0x289A,0x289A,0x207B,0x185C,0x103D,0x101D,0x081E,0x081E,0x081E,0x001F,0x001F,0x4A17,0xA4B0,0xC573,0x7B8C,0x2965,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x2145,0x83CD,0xC573,0xA490,0xE1A5,0xF800,0xF820,0xF061,0xF0E1,0xE942,0xE942,0xE922,0xE902,0xE902,0xE0E3,0xE0E3,0xE0E3,0xE0E3,0xD8E4,0xD8E4,0xD8E4,0xD8E4,0xD0E5,0xD0E5,0xD0E5,0xD0E5,0xC8E6,0xC8E6,0xC8E6,0xC8E6,0xC8E7,0xC0E7,0xC0E7,_

0xC0E7,0xC0E7,0xB8E8,0xB8E8,0xB8E8,0xB0E9,0xB0E9,0xB0E9,0xB0E9,0xB0E9,0xA8EA,0xA8EA,0xA8EA,0xA8EA,0xA0EB,0xA0EB,0xA0EB,0xA0EB,0x98EC,0x98EC,0x98EC,0x98EC,0x90ED,0x90ED,0x90ED,0x90ED,0x88EE,0x88EE,0x88EE,0x88EE,0x88EE,0x80EF,0x80EF,0x80EF,0x78F0,0x78F0,_

0x78F0,0x78F0,0x78F1,0x70F1,0x70F1,0x70F1,0x70F1,0x68F2,0x68F2,0x68F2,0x68F2,0x60F3,0x60F3,0x60F3,0x60F3,0x58F4,0x58F4,0x58F4,0x58F4,0x50F5,0x50F5,0x50F5,0x50F5,0x48F6,0x48F6,0x48F6,0x48F6,0x40F7,0x40F7,0x40F7,0x40F7,0x38F8,0x38F8,0x38F8,0x38F8,0x30F9,_

0x30F9,0x28DA,0x28BB,0x187C,0x103D,0x081E,0x081E,0x081E,0x001F,0x001F,0x317B,0x9C4F,0xC573,0x83CD,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE985,0xF820,0xF840,0xF0C1,0xF181,0xE9E2,0xE9A2,0xE962,0xE942,0xE923,0xE123,_

0xE123,0xE123,0xE123,0xD924,0xD924,0xD924,0xD924,0xD125,0xD125,0xD125,0xD125,0xD125,0xC926,0xC926,0xC926,0xC926,0xC127,0xC127,0xC127,0xC127,0xB928,0xB928,0xB928,0xB928,0xB129,0xB129,0xB129,0xB129,0xB129,0xA92A,0xA92A,0xA92A,0xA92A,0xA12B,0xA12B,0xA12B,_

0xA12B,0x992C,0x992C,0x992C,0x992C,0x912D,0x912D,0x912D,0x912D,0x912D,0x892E,0x892E,0x892E,0x892E,0x812F,0x812F,0x812F,0x812F,0x7930,0x7930,0x7930,0x7930,0x7930,0x7131,0x7131,0x7131,0x7131,0x6932,0x6932,0x6932,0x6932,0x6133,0x6133,0x6133,0x6133,0x5934,_

0x5934,0x5934,0x5934,0x5934,0x5135,0x5135,0x5135,0x5135,0x4936,0x4936,0x4936,0x4936,0x4937,0x4137,0x4137,0x4137,0x3938,0x3938,0x3938,0x3119,0x28FA,0x20BB,0x185C,0x103D,0x081E,0x081E,0x001F,0x001F,0x293C,0x942F,0xC573,0x8BED,0x31A6,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE984,0xF820,0xF081,0xF121,0xEA02,0xEA42,0xEA02,0xE9A2,0xE962,0xE143,0xE143,0xE143,0xE143,0xE143,0xD944,0xD944,0xD944,0xD944,0xD145,0xD145,0xD145,0xD145,0xD145,0xC946,0xC946,0xC946,0xC946,0xC147,0xC147,_

0xC147,0xC147,0xB948,0xB948,0xB948,0xB948,0xB948,0xB149,0xB149,0xB149,0xB149,0xA94A,0xA94A,0xA94A,0xA94A,0xA94A,0xA14B,0xA14B,0xA14B,0xA14B,0x994C,0x994C,0x994C,0x994C,0x914D,0x914D,0x914D,0x914D,0x914D,0x894E,0x894E,0x894E,0x894E,0x814F,0x814F,0x814F,_

0x814F,0x814F,0x7950,0x7950,0x7950,0x7950,0x7151,0x7151,0x7151,0x7151,0x6952,0x6952,0x6952,0x6952,0x6952,0x6153,0x6153,0x6153,0x6153,0x5954,0x5954,0x5954,0x5954,0x5954,0x5155,0x5155,0x5155,0x5155,0x4956,0x4956,0x4956,0x4956,0x4157,0x4157,0x4157,0x4157,_

0x3958,0x3938,0x3119,0x28DA,0x187C,0x103D,0x081E,0x081E,0x001F,0x001F,0x293C,0x942E,0xC573,0x8BED,0x31C6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE984,0xF840,0xF0A1,0xF181,0xEA82,0xEA82,0xEA22,0xE9A2,0xE982,0xE163,0xE143,_

0xE143,0xE143,0xE143,0xD944,0xD944,0xD944,0xD944,0xD145,0xD145,0xD145,0xD145,0xD145,0xC946,0xC946,0xC946,0xC946,0xC147,0xC147,0xC147,0xC147,0xB948,0xB948,0xB948,0xB948,0xB948,0xB149,0xB149,0xB149,0xB149,0xA94A,0xA94A,0xA94A,0xA94A,0xA94A,0xA14B,0xA14B,_

0xA14B,0xA14B,0x994C,0x994C,0x994C,0x994C,0x914D,0x914D,0x914D,0x914D,0x914D,0x894E,0x894E,0x894E,0x894E,0x894F,0x814F,0x814F,0x814F,0x814F,0x7950,0x7950,0x7950,0x7950,0x7151,0x7151,0x7151,0x7151,0x7152,0x6952,0x6952,0x6952,0x6952,0x6153,0x6153,0x6153,_

0x6153,0x6154,0x5954,0x5954,0x5954,0x5954,0x5155,0x5155,0x5155,0x5155,0x4956,0x4956,0x4956,0x4956,0x4956,0x4157,0x4157,0x4157,0x4157,0x3958,0x3139,0x28FA,0x209B,0x103D,0x081E,0x081E,0x001F,0x001F,0x293C,0x942E,0xC573,0x8BED,0x31C6,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE984,0xF840,0xF0A1,0xF1A1,0xEAA2,0xEAA2,0xEA22,0xE9A2,0xE982,0xE163,0xE143,0xE143,0xE143,0xE143,0xD944,0xD944,0xD944,0xD944,0xD145,0xD145,0xD145,0xD145,0xD145,0xC946,0xC946,0xC946,0xC946,0xC147,0xC147,_

0x814F,0x814F,0x7950,0x7950,0x7950,0x7950,0x7151,0x7151,0x7151,0x7151,0x7152,0x6952,0x6952,0x6952,0x6952,0x6153,0x6153,0x6153,0x6153,0x6154,0x5954,0x5954,0x5954,0x5954,0x5155,0x5155,0x5155,0x5155,0x4956,0x4956,0x4956,0x4956,0x4956,0x4157,0x4157,0x4157,_

0x4157,0x3958,0x3139,0x28FA,0x209B,0x105D,0x081E,0x081E,0x001F,0x001F,0x293C,0x942E,0xC573,0x8BED,0x31C6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE984,0xF840,0xF0C1,0xF1C1,0xEAC2,0xEAC2,0xEA22,0xE9A2,0xE982,0xE163,0xE143,_

0x6153,0x6154,0x5954,0x5954,0x5954,0x5954,0x5155,0x5155,0x5155,0x5155,0x4956,0x4956,0x4956,0x4956,0x4956,0x4157,0x4157,0x4157,0x4157,0x3958,0x3938,0x28FA,0x20BB,0x105D,0x081E,0x081E,0x001F,0x001F,0x293C,0x942E,0xC573,0x8BED,0x31C6,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE984,0xF840,0xF0C1,0xF1E1,0xEAE2,0xEAC2,0xEA22,0xE9A2,0xE982,0xE163,0xE143,0xE143,0xE143,0xE143,0xD944,0xD944,0xD944,0xD944,0xD145,0xD145,0xD145,0xD145,0xD145,0xC946,0xC946,0xC946,0xC946,0xC147,0xC147,_

0x4157,0x3958,0x3938,0x30F9,0x20BB,0x105D,0x081E,0x081E,0x001F,0x001F,0x293C,0x942E,0xC573,0x8BED,0x31C6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE984,0xF840,0xF0C1,0xF1E1,0xEAE2,0xEAC2,0xEA22,0xE9A2,0xE982,0xE163,0xE143,_

0x6153,0x6154,0x5954,0x5954,0x5954,0x5954,0x5155,0x5155,0x5155,0x5155,0x4956,0x4956,0x4956,0x4956,0x4956,0x4157,0x4157,0x4157,0x4157,0x3958,0x3938,0x30F9,0x20BB,0x105D,0x081E,0x081E,0x001F,0x001F,0x293C,0x942E,0xC573,0x8BED,0x31C6,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE985,0xF840,0xF0C1,0xF201,0xEB02,0xEAE2,0xEA42,0xE9C2,0xE982,0xE163,0xE143,0xE143,0xE143,0xE143,0xD944,0xD944,0xD944,0xD944,0xD145,0xD145,0xD145,0xD145,0xD145,0xC946,0xC946,0xC946,0xC946,0xC147,0xC147,_

0x4157,0x3958,0x3938,0x30F9,0x20BB,0x105D,0x081E,0x081E,0x001F,0x001F,0x293C,0x942E,0xC573,0x8BED,0x31C6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE985,0xF860,0xF0E1,0xF202,0xEB22,0xEAE2,0xEA42,0xE9C2,0xE982,0xE163,0xE143,_

0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE985,0xF860,0xF0E1,0xF222,0xEB42,0xEB22,0xEA62,0xE9C2,0xE982,0xE163,0xE143,0xE143,0xE143,0xE143,0xD944,0xD944,0xD944,0xD944,0xD145,0xD145,0xD145,0xD145,0xD145,0xC946,0xC946,0xC946,0xC946,0xC147,0xC147,_

0x4157,0x3958,0x3938,0x30F9,0x20BB,0x105D,0x081E,0x081E,0x001F,0x001F,0x293C,0x942E,0xC573,0x8BED,0x31C6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE985,0xF860,0xF101,0xEA62,0xEBA2,0xEB82,0xEAA2,0xEA02,0xE9A2,0xE963,0xE163,_

0xE163,0xE163,0xE163,0xD964,0xD964,0xD964,0xD964,0xD965,0xD165,0xD165,0xD165,0xD165,0xC966,0xC966,0xC966,0xC966,0xC167,0xC167,0xC167,0xC167,0xC167,0xB968,0xB968,0xB968,0xB968,0xB169,0xB169,0xB169,0xB169,0xB169,0xA96A,0xA96A,0xA96A,0xA96A,0xA16B,0xA16B,_

0xA16B,0xA16B,0xA16C,0x996C,0x996C,0x996C,0x996C,0x916D,0x916D,0x916D,0x916D,0x916D,0x896E,0x896E,0x896E,0x896E,0x816F,0x816F,0x816F,0x816F,0x7970,0x7970,0x7970,0x7970,0x7970,0x7171,0x7171,0x7171,0x7171,0x6972,0x6972,0x6972,0x6972,0x6972,0x6173,0x6173,_

0x6173,0x6173,0x5974,0x5974,0x5974,0x5974,0x5974,0x5175,0x5175,0x5175,0x5175,0x4976,0x4976,0x4976,0x4976,0x4976,0x4177,0x4177,0x4177,0x3958,0x3938,0x3119,0x20BB,0x105D,0x081E,0x081E,0x001F,0x001F,0x293C,0x942E,0xC573,0x8BED,0x31C6,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0xE9A5,0xF880,0xF121,0xEAA2,0xEC23,0xEC23,0xEB22,0xEA62,0xE9E2,0xE1A3,0xE183,0xE183,0xE183,0xE183,0xD984,0xD984,0xD984,0xD984,0xD985,0xD185,0xD185,0xD185,0xD185,0xC986,0xC986,0xC986,0xC986,0xC987,0xC187,_

0xC187,0xC187,0xC187,0xC188,0xB988,0xB988,0xB988,0xB988,0xB189,0xB189,0xB189,0xB189,0xB18A,0xA98A,0xA98A,0xA98A,0xA98B,0xA18B,0xA18B,0xA18B,0xA18B,0xA18C,0x998C,0x998C,0x998C,0x998C,0x998D,0x918D,0x918D,0x918D,0x918D,0x898E,0x898E,0x898E,0x898E,0x898F,_

0x818F,0x818F,0x818F,0x8190,0x7990,0x7990,0x7990,0x7990,0x7991,0x7191,0x7191,0x7191,0x7191,0x6992,0x6992,0x6992,0x6992,0x6993,0x6193,0x6193,0x6193,0x6193,0x6194,0x5994,0x5994,0x5994,0x5995,0x5195,0x5195,0x5195,0x5195,0x4996,0x4996,0x4996,0x4996,0x4997,_

0x4197,0x4177,0x3958,0x3119,0x20BB,0x105D,0x081E,0x081E,0x001F,0x001F,0x293C,0x944F,0xC573,0x8BED,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2145,0x83CD,0xC573,0x9C8F,0xE1C5,0xF8A0,0xF141,0xEAE2,0xE4C3,0xE523,0xEC03,0xEB03,0xEA63,0xE203,0xE1C3,_

0xE1C3,0xE1C3,0xE1C3,0xD9A4,0xD9A4,0xD9A4,0xD9A4,0xD9A4,0xD1A5,0xD1A5,0xD1A5,0xD1A5,0xC9A6,0xC9A6,0xC9A6,0xC9A6,0xC9A6,0xC1A7,0xC1A7,0xC1A7,0xC1A7,0xC1A7,0xB9A8,0xB9A8,0xB9A8,0xB9A8,0xB9A8,0xB1A9,0xB1A9,0xB1A9,0xB1A9,0xB1AA,0xA9AA,0xA9AA,0xA9AA,0xA9AA,_

0xA1AB,0xA1AB,0xA1AB,0xA1AB,0xA1AB,0x99AC,0x99AC,0x99AC,0x99AC,0x99AC,0x91AD,0x91AD,0x91AD,0x91AD,0x91AD,0x89AE,0x89AE,0x89AE,0x89AE,0x89AE,0x81AF,0x81AF,0x81AF,0x81AF,0x79B0,0x79B0,0x79B0,0x79B0,0x79B0,0x71B1,0x71B1,0x71B1,0x71B1,0x71B1,0x69B2,0x69B2,_

0x69B2,0x69B2,0x69B3,0x61B3,0x61B3,0x61B3,0x61B3,0x59B4,0x59B4,0x59B4,0x59B4,0x59B4,0x51B5,0x51B5,0x51B5,0x51B5,0x51B5,0x49B6,0x49B6,0x49B6,0x4177,0x3139,0x20BB,0x105D,0x081E,0x081E,0x001F,0x001F,0x317A,0x9C6F,0xC573,0x83CD,0x31A6,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1924,0x7B8C,0xC573,0xACD0,0xD226,0xF8C0,0xF161,0xEB02,0xE543,0xE623,0xE543,0xE403,0xE323,0xE2A3,0xE263,0xE243,0xE243,0xE223,0xDA24,0xDA24,0xDA24,0xDA24,0xDA24,0xDA25,0xD225,0xD225,0xD225,0xD225,0xD225,0xCA26,0xCA26,0xCA26,0xCA26,_

0xCA26,0xC227,0xC227,0xC227,0xC227,0xC227,0xBA28,0xBA28,0xBA28,0xBA28,0xBA28,0xBA28,0xB229,0xB229,0xB229,0xB229,0xB229,0xAA2A,0xAA2A,0xAA2A,0xAA2A,0xAA2A,0xAA2B,0xA22B,0xA22B,0xA22B,0xA22B,0xA22C,0x9A2C,0x9A2C,0x9A2C,0x9A2C,0x9A2C,0x922D,0x922D,0x922D,_

0x922D,0x922D,0x8A2E,0x8A2E,0x8A2E,0x8A2E,0x8A2E,0x8A2E,0x822F,0x822F,0x822F,0x822F,0x822F,0x7A30,0x7A30,0x7A30,0x7A30,0x7A30,0x7231,0x7231,0x7231,0x7231,0x7231,0x7231,0x6A32,0x6A32,0x6A32,0x6A32,0x6A32,0x6233,0x6233,0x6233,0x6233,0x6233,0x5A34,0x5A34,_

0x5A34,0x5215,0x49B6,0x3958,0x20BB,0x103D,0x081E,0x081E,0x001F,0x001F,0x4A16,0xA4B0,0xC573,0x7B6C,0x2965,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x6B2B,0xBD32,0xBD32,0xB2E9,0xF101,0xF161,0xEAC2,0xE4C3,0xE644,0xE623,0xE523,0xE423,0xE383,0xE323,_

0xE303,0xE2E3,0xE2E4,0xDAC4,0xDAC4,0xDAC4,0xDAC4,0xDAC4,0xDAC4,0xD2C5,0xD2C5,0xD2C5,0xD2C5,0xD2C5,0xD2C5,0xD2C5,0xCAC6,0xCAC6,0xCAC6,0xCAC6,0xCAC6,0xCAC6,0xC2C7,0xC2C7,0xC2C7,0xC2C7,0xC2C7,0xC2C7,0xBAC8,0xBAC8,0xBAC8,0xBAC8,0xBAC8,0xBAC8,0xB2C9,0xB2C9,_

0xB2C9,0xB2C9,0xB2C9,0xB2C9,0xB2CA,0xAACA,0xAACA,0xAACA,0xAACA,0xAACA,0xAACB,0xA2CB,0xA2CB,0xA2CB,0xA2CB,0xA2CB,0xA2CC,0x9ACC,0x9ACC,0x9ACC,0x9ACC,0x9ACC,0x9ACC,0x92CD,0x92CD,0x92CD,0x92CD,0x92CD,0x92CD,0x8ACE,0x8ACE,0x8ACE,0x8ACE,0x8ACE,0x8ACE,0x82CF,_

0x82CF,0x82CF,0x82CF,0x82CF,0x82CF,0x82CF,0x7AD0,0x7AD0,0x7AD0,0x7AD0,0x7AD0,0x7AD0,0x72D1,0x72D1,0x72D1,0x72D1,0x72D2,0x6AB2,0x6A93,0x5A54,0x49D6,0x3939,0x209B,0x103D,0x081E,0x081E,0x001F,0x003F,0x6AF2,0xBD32,0xBD52,0x630B,0x1924,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x4A68,0xA490,0xC573,0x9BED,0xE9C4,0xF161,0xF242,0xEB82,0xE4C3,0xE523,0xE4C3,0xE423,0xE3A3,0xE343,0xE323,0xE303,0xE303,0xE2E4,0xDAE4,0xDAE4,0xDAE4,0xDAE4,0xDAE4,0xDAE5,0xD2E5,0xD2E5,0xD2E5,0xD2E5,0xD2E5,0xD2E5,0xD2E6,0xCAE6,_

0xCAE6,0xCAE6,0xCAE6,0xCAE6,0xCAE7,0xC2E7,0xC2E7,0xC2E7,0xC2E7,0xC2E7,0xC2E8,0xC2E8,0xBAE8,0xBAE8,0xBAE8,0xBAE8,0xBAE8,0xBAE9,0xB2E9,0xB2E9,0xB2E9,0xB2E9,0xB2E9,0xB2EA,0xAAEA,0xAAEA,0xAAEA,0xAAEA,0xAAEA,0xAAEA,0xAAEB,0xA2EB,0xA2EB,0xA2EB,0xA2EB,0xA2EB,_

0xA2EC,0x9AEC,0x9AEC,0x9AEC,0x9AEC,0x9AEC,0x9AED,0x9AED,0x92ED,0x92ED,0x92ED,0x92ED,0x92ED,0x92EE,0x8AEE,0x8AEE,0x8AEE,0x8AEE,0x8AEE,0x8AEF,0x82EF,0x82EF,0x82EF,0x82EF,0x82EF,0x82EF,0x82F0,0x7AF0,0x7AF0,0x7AF0,0x7AF0,0x7AF0,0x7AF1,0x72F1,0x72D1,0x6AB2,_

0x6273,0x5215,0x4197,0x28FA,0x187C,0x103D,0x081E,0x081E,0x001F,0x20FC,0x8C0F,0xC573,0xACD0,0x4A68,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2985,0x83AD,0xBD52,0xB4F1,0xBAE9,0xF182,0xF1A1,0xEA22,0xEAA2,0xEAE2,0xEAE3,0xEAA3,0xE263,0xE223,_

0xE203,0xE203,0xE1E3,0xE1E4,0xD9E4,0xD9E4,0xD9E4,0xD9E4,0xD9E5,0xD1E5,0xD1E5,0xD1E5,0xD1E5,0xC9E6,0xC9E6,0xC9E6,0xC9E6,0xC9E6,0xC9E7,0xC1E7,0xC1E7,0xC1E7,0xC1E7,0xB9E8,0xB9E8,0xB9E8,0xB9E8,0xB9E8,0xB9E9,0xB1E9,0xB1E9,0xB1E9,0xB1E9,0xB1EA,0xA9EA,0xA9EA,_

0xA9EA,0xA9EA,0xA1EB,0xA1EB,0xA1EB,0xA1EB,0xA1EB,0xA1EC,0x99EC,0x99EC,0x99EC,0x99EC,0x99ED,0x91ED,0x91ED,0x91ED,0x91ED,0x89EE,0x89EE,0x89EE,0x89EE,0x89EE,0x89EF,0x81EF,0x81EF,0x81EF,0x81EF,0x79F0,0x79F0,0x79F0,0x79F0,0x79F0,0x79F1,0x71F1,0x71F1,0x71F1,_

0x71F1,0x71F2,0x69F2,0x69F2,0x69F2,0x69F2,0x61F3,0x61F3,0x61F3,0x61F3,0x61F3,0x61F4,0x59F4,0x59F4,0x59F4,0x59F5,0x51D5,0x49B6,0x4177,0x3938,0x28DA,0x187C,0x103D,0x081E,0x081E,0x081E,0x085E,0x5AB3,0xACF1,0xC552,0x83CD,0x31A6,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x4A68,0xA490,0xC573,0x9C4F,0xCA87,0xE982,0xF161,0xE962,0xE962,0xE942,0xE922,0xE903,0xE0E3,0xE0E3,0xE0E3,0xE0C4,0xD8C4,0xD8C4,0xD8C4,0xD8C5,0xD0C5,0xD0C5,0xD0C5,0xD0C5,0xC8C6,0xC8C6,0xC8C6,0xC8C6,0xC0C7,0xC0C7,0xC0C7,_

0xC0C7,0xB8C8,0xB8C8,0xB8C8,0xB8C8,0xB0C9,0xB0C9,0xB0C9,0xB0C9,0xA8CA,0xA8CA,0xA8CA,0xA8CA,0xA0CB,0xA0CB,0xA0CB,0xA0CC,0x98CC,0x98CC,0x98CC,0x98CC,0x90CD,0x90CD,0x90CD,0x90CD,0x88CE,0x88CE,0x88CE,0x88CE,0x80CF,0x80CF,0x80CF,0x80CF,0x78D0,0x78D0,0x78D0,_

0x78D0,0x78D1,0x70D1,0x70D1,0x70D1,0x68D2,0x68D2,0x68D2,0x68D2,0x60D3,0x60D3,0x60D3,0x60D3,0x58D4,0x58D4,0x58D4,0x58D4,0x50D5,0x50D5,0x50D5,0x50D5,0x48D6,0x48D6,0x48D6,0x48D6,0x40D7,0x40D7,0x40D7,0x40D7,0x40D8,0x38D8,0x38D8,0x38D8,0x30D9,0x30D9,0x28BA,_

0x289A,0x207B,0x185C,0x103D,0x101D,0x081E,0x081E,0x083E,0x41D7,0x9C6F,0xC572,0xA4B0,0x5269,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2145,0x6B0B,0xACF1,0xC552,0x9C4F,0xBAC9,0xE9C4,0xE902,0xE8C2,0xE8A2,0xE882,0xE862,0xE063,_

0xE063,0xE043,0xE043,0xD844,0xD844,0xD844,0xD844,0xD045,0xD045,0xD045,0xC846,0xC846,0xC846,0xC846,0xC047,0xC047,0xC047,0xC047,0xB848,0xB848,0xB848,0xB049,0xB049,0xB049,0xB049,0xA84A,0xA84A,0xA84A,0xA84A,0xA04B,0xA04B,0xA04B,0xA04B,0x984C,0x984C,0x984C,_

0x904D,0x904D,0x904D,0x904D,0x884E,0x884E,0x884E,0x884E,0x804F,0x804F,0x804F,0x7850,0x7850,0x7850,0x7850,0x7051,0x7051,0x7051,0x7051,0x6852,0x6852,0x6852,0x6852,0x6053,0x6053,0x6053,0x5854,0x5854,0x5854,0x5854,0x5055,0x5055,0x5055,0x5055,0x4856,0x4856,_

0x4856,0x4057,0x4057,0x4057,0x4057,0x3858,0x3858,0x3858,0x3858,0x3059,0x3059,0x3059,0x3059,0x285A,0x285A,0x285A,0x205B,0x205B,0x185C,0x183C,0x103D,0x101D,0x101D,0x105D,0x28FC,0x5254,0x9C4F,0xBD52,0xB511,0x6B2B,0x2965,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2986,0x736C,0xB4F1,0xC573,0xACF1,0x93ED,0xA2EA,0xBA48,0xD9A6,0xE166,0xE166,0xD946,0xD946,0xD946,0xD947,0xD947,0xD147,0xD147,0xD147,0xD148,0xD148,0xC948,0xC948,0xC949,0xC949,0xC149,0xC149,0xC149,0xC14A,0xB94A,_

0xB94A,0xB94A,0xB94B,0xB94B,0xB94B,0xB14B,0xB14B,0xB14C,0xB14C,0xA94C,0xA94C,0xA94C,0xA94D,0xA14D,0xA14D,0xA14D,0xA14E,0xA14E,0x994E,0x994E,0x994E,0x994F,0x994F,0x914F,0x914F,0x9150,0x9150,0x8950,0x8950,0x8950,0x8951,0x8951,0x8151,0x8151,0x8152,0x8152,_

0x8152,0x7952,0x7952,0x7953,0x7953,0x7153,0x7153,0x7153,0x7154,0x6954,0x6954,0x6954,0x6955,0x6955,0x6155,0x6155,0x6155,0x6156,0x6156,0x5956,0x5956,0x5956,0x5957,0x5957,0x5157,0x5157,0x5158,0x5158,0x4958,0x4958,0x4958,0x4959,0x4959,0x4159,0x4159,0x415A,_

0x415A,0x395A,0x395A,0x3979,0x49F6,0x62D1,0x83CE,0xACD1,0xC552,0xB511,0x7B8C,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x31A6,0x734B,0xACD0,0xC552,0xC573,0xBD52,0xACD1,0x9C4F,0x942E,0x942E,0x942E,_

0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x9C4F,0xACD0,0xBD32,0xC573,0xC573,0xACF1,0x736C,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2965,0x5AA9,0x8BEE,0xA4B0,0xBD32,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,_

0xC573,0xC573,0xC573,0xC573,0xC573,0xBD32,0xACB0,0x8C0E,0x62EA,0x2985,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x31A6,0x5289,0x6B2B,0x7B8C,0x83CD,0x8BEE,0x8BEE,0x8BEE,_

0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,_

0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x83CD,0x7B8C,0x6B2B,0x52A9,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1924,0x2965,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,_

0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,0x2986,_

0x2986,0x2986,0x2986,0x2965,0x1924,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

Dim BT_IN As Flash16 = 126,46,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,_

0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2223,0x21E3,0x1943,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1924,0x21E3,0x2B03,0x3C22,0x44E2,0x4D62,0x4D82,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,_

0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,_

0x4DA2,0x4DA2,0x4DA2,0x4D62,0x4502,0x3C23,0x2B03,0x2203,0x1923,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x21E3,0x3383,0x4502,0x5662,0x5F42,0x6762,0x6762,0x6762,0x6762,0x6762,_

0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,_

0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6741,0x5682,0x4502,0x33A3,0x2203,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1104,0x2223,0x44A2,0x5EC2,0x6762,0x6762,0x5F42,0x5EC2,0x5642,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,_

0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,0x5602,_

0x5602,0x5602,0x5602,0x5642,0x5EC2,0x5F42,0x6762,0x6762,0x5EE2,0x44C2,0x2243,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2203,0x44E2,0x5F02,0x6762,0x5EC2,0x4DA2,0x44A2,0x33A3,0x2B03,0x2AC3,0x2AC3,0x2AC3,_

0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,_

0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2AC3,0x2B03,0x33C3,0x44A2,0x4DA2,0x5EC2,0x6761,0x5F02,0x4502,0x2223,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1983,0x3C62,0x5EE2,0x6761,0x5622,0x3C02,0x2263,0x1943,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1963,0x2263,0x3C02,0x5622,0x6741,0x5F02,0x3C62,0x21A3,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x3363,0x5662,0x6762,0x5642,0x3363,0x1963,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1943,0x3363,0x5642,0x6762,0x5E82,0x3363,0x1923,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x21C3,0x4522,0x6741,0x5EE2,0x3C02,0x1983,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1963,0x3C23,0x5EC2,0x6762,0x4D42,0x2203,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x3343,0x5662,0x6762,0x4DA2,0x2263,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2223,0x4D82,0x6762,0x5EA2,0x3343,0x1104,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x3C43,0x5F22,0x6741,0x3C23,0x1943,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1924,0x3C42,0x5F02,0x6761,0x3C23,0x1943,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1924,0x44C2,0x6762,0x5EC2,0x3343,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x3343,0x5662,0x6762,0x44A2,0x19A3,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1983,0x4502,0x6762,0x5642,0x2AC3,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2AA3,0x55E2,0x6762,0x4502,0x21E3,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x19A3,0x4522,0x6762,0x5602,0x2AA3,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2A63,0x4DC2,0x6762,0x4D42,0x2203,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x19A3,0x4522,0x6762,0x5602,0x2AA3,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2263,0x4DC2,0x6762,0x4D42,0x2223,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x19A3,0x4522,0x6762,0x5602,0x2AA3,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2263,0x4DC2,0x6762,0x4D42,0x2223,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2A63,0x4DC2,0x6762,0x4D42,0x2203,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1983,0x4502,0x6762,0x5622,0x2AC3,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2AA3,0x55E2,0x6762,0x4502,0x21E3,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1923,0x44C2,0x6762,0x5682,0x2B03,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x3343,0x5662,0x6762,0x44A2,0x19A3,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x3C22,0x5F02,0x5F22,0x3BE3,0x1923,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1924,0x3C42,0x5F02,0x5F42,0x3C03,0x1923,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x2B03,0x5622,0x6762,0x4D42,0x2223,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2203,0x4D62,0x6762,0x5682,0x3303,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x21C3,0x44E2,0x5F42,0x5EC2,0x33A3,0x1943,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1943,0x3BE3,0x5EA2,0x6761,0x4502,0x21E3,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x2B03,0x5642,0x6762,0x55E2,0x2B03,0x1943,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1943,0x2B03,0x5602,0x6762,0x5662,0x3323,0x1924,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1963,0x3C03,0x5EA2,0x6741,0x4DC2,0x3383,0x2223,0x1943,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1943,0x2203,0x3383,0x4DC2,0x5F42,0x5EE2,0x3C22,0x1983,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x21C3,0x4462,0x5EC2,0x6762,0x5EA2,0x4D42,0x3C03,0x2B23,0x2AA3,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,0x2263,_

0x2263,0x2263,0x2263,0x2AA3,0x3323,0x3C03,0x4522,0x5EA2,0x6761,0x5EE2,0x44A2,0x2203,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2203,0x3C62,0x5682,0x6741,0x6762,0x5F42,0x5EA2,0x55E2,0x4DA2,0x4DA2,0x4DA2,_

0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DA2,0x4DE2,0x5682,0x5F22,0x6762,0x6762,0x5EA2,0x3C82,0x2203,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x21A3,0x3383,0x4D42,0x5662,0x5F22,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,0x6762,_

0x6762,0x6762,0x6762,0x6762,0x6762,0x5F22,0x5682,0x4D62,0x33C3,0x21C3,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2203,0x3343,0x3C43,0x44C2,0x4522,0x4D42,0x4D42,0x4D42,_

0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,_

0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4D42,0x4522,0x44C2,0x3C43,0x3363,0x2203,0x1924,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1923,0x19A3,0x21C3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,_

0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,0x21E3,_

0x21E3,0x21E3,0x21E3,0x19A3,0x1923,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

Dim BT_OUT As Flash16 = 126,46,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39C6,0x2986,0x1924,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xC573,0xBD52,0xACB0,0x83CD,0x5ACA,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,_

0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4228,0x4A48,0x4A68,0x62CA,0x7B8C,0x942E,0xB4F1,0xC552,0xBD32,0x83CD,0x31C6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x2965,0x734B,0xB511,0xC552,0xA490,0x6B0B,0x39E7,0x2124,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x2145,0x39E7,0x6B0B,0xA490,0xBD52,0xB532,0x734C,0x2985,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x5289,0xA4B0,0xC573,0xA490,0x5AA9,0x2144,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2124,0x52A9,0xA490,0xC572,0xACD1,0x5AA9,0x1924,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x2986,0x83CD,0xBD52,0xB511,0x6B0B,0x2145,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2145,0x6B2B,0xB4F1,0xC573,0x8BED,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x5289,0xA4B0,0xC573,0x942E,0x39E7,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x31C6,0x940E,0xC573,0xACD1,0x5289,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x6B2B,0xBD32,0xBD52,0x6B2B,0x2144,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x6B4B,0xBD32,0xC552,0x6B2B,0x1924,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x7B8C,0xC573,0xB4F1,0x5289,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x5289,0xA4B0,0xC573,0x7B8C,0x2965,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x2145,0x83CD,0xC573,0xA490,0x4A48,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x4207,0x9C4F,0xC573,0x83CD,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0x4228,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x39E7,0x942F,0xC573,0x8BED,0x31A6,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0x4227,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x39E7,0x942E,0xC573,0x8BED,0x31C6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0x4227,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x39E7,0x942E,0xC573,0x8BED,0x31C6,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x2965,0x83CD,0xC573,0x9C6F,0x4228,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x39E7,0x944F,0xC573,0x8BED,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2145,0x83CD,0xC573,0x9C8F,0x4228,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x4207,0x9C6F,0xC573,0x83CD,0x31A6,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1924,0x7B8C,0xC573,0xACD0,0x5268,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x5289,0xA4B0,0xC573,0x7B6C,0x2965,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x6B2B,0xBD32,0xBD32,0x62EA,0x1924,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x6B2B,0xBD32,0xBD52,0x630B,0x1924,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x4A68,0xA490,0xC573,0x8BEE,0x31C6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x31A6,0x8C0E,0xC573,0xACD0,0x4A68,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2985,0x83AD,0xBD52,0xB4F1,0x62CA,0x2124,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1924,0x62EA,0xACF1,0xC552,0x83CD,0x31A6,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x4A68,0xA490,0xC573,0x9C4F,0x4A68,0x1924,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1924,0x4A68,0x9C6F,0xC572,0xA4B0,0x5269,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2145,0x6B0B,0xACF1,0xC552,0x9C4F,0x5ACA,0x31C6,0x1924,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1924,0x31A6,0x5AA9,0x9C4F,0xBD52,0xB511,0x6B2B,0x2965,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x2986,0x736C,0xB4F1,0xC573,0xACF1,0x8BED,0x630B,0x5269,0x4207,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,0x39E7,_

0x39E7,0x39E7,0x39E7,0x4207,0x5268,0x630B,0x83CD,0xACD1,0xC552,0xB511,0x7B8C,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x31A6,0x734B,0xACD0,0xC552,0xC573,0xBD52,0xACD1,0x9C4F,0x942E,0x942E,0x942E,_

0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x942E,0x9C4F,0xACD0,0xBD32,0xC573,0xC573,0xACF1,0x736C,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x8BEE,0x83CD,0x7B8C,0x6B2B,0x52A9,0x31A6,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,0x1904,_

Created with the Personal Edition of HelpNDoc: How to Protect Your PDFs with Encryption and Passwords