printing characters > chr$(127)

[madscijr]

I have my program generating and displaying a fixed-width font of 8x8 characters using the BDF file format, and it mostly works, but I noticed that characters 128-255 are not matching up to what I put in the font. Is there some trick to printing those characters? If you run the code below and just hold Enter down until you get to chr$(127), after that you'll see the characters start to not match what's in the font definition. (In the code, the character definitions start at line 822 with chr(128) and higher starting at line 2233.)

Any clues appreciated... 

Code: (Select All)

' BASIC PROGRAM METADATA
Dim Shared m_ProgramPath$: m_ProgramPath$ = Left$(Command$(0), _InStrRev(Command$(0), "\"))
Dim Shared m_ProgramName$: m_ProgramName$ = Mid$(Command$(0), _InStrRev(Command$(0), "\") + 1)

' GLOBAL VARIABLES
Dim Shared m_iScreenWidth As Long: m_iScreenWidth = 800 ' _DesktopWidth
Dim Shared m_iScreenHeight As Long: m_iScreenHeight = 600 ' _DesktopHeight

' TEST FONT
Dim sError As String: sError = ""
Dim FontFilename$: FontFilename$ = "myfont.bdf"
Dim FontHandle&
Dim style$
Dim iFontHeight%: iFontHeight% = 8
Dim iLoop As Integer
Dim iColorFG As Integer
Dim iColorBG As Integer
ReDim arrTileText(0 To 255) As String
Dim in$
ReDim arrLine$(-1)
Dim iLine As Integer
Dim iChar As Integer
Dim iRow As Integer

' LOOK FOR FONT FILE
If Len(sError) = 0 Then
    ' IF FONT FILE NOT FOUND, CREATE IT
    If _FileExists(m_ProgramPath$ + FontFilename$) = _FALSE Then
        sError = CreateBDF$(m_ProgramPath$ + FontFilename$)
    End If
End If

' SET FONT
If Len(sError) = 0 Then
    style$ = "monospace" ' font style is not case sensitive
    FontHandle& = _LoadFont(m_ProgramPath$ + FontFilename$, iFontHeight%, style$)
    If FontHandle& > 0 Then
        ' INIT SCREEN
        Screen _NewImage(m_iScreenWidth, m_iScreenHeight, 32)
        _ScreenMove 0, 0
        Cls , cBlack

        ' SELECT FONT
        _Font FontHandle&

        ' LOAD CHARACTERS TEXT REPRESENTATION
        GetTileText arrTileText()
        Color cCyan, cBlack
        Print "Font " + Chr$(34) + FontFilename$ + Chr$(34) + " loaded:"
        Print

        ' OUTPUT CHARACTERS
        Do
            For iLoop = 33 To 255
                Color cWhite, cBlack: Print "chr$(" + _Trim$(Str$(iLoop)) + ") = ";
                Color cBlack, cWhite: Print Chr$(iLoop);
                Color cCyan, cBlack: Print
                Print: Print "Expected:": Print
                'print arrTileText(iLoop)
                Color cGray, cBlack
                Print " 12345678"
                split arrTileText(iLoop), Chr$(13), arrLine$()
                iRow = 0
                For iLine = LBound(arrLine$) To UBound(arrLine$)
                    iRow = iRow + 1: Color cGray, cBlack: Print _Trim$(Str$(iRow));
                    If Len(arrLine$(iLine)) > 0 Then
                        For iChar = 1 To Len(arrLine$(iLine))
                            If Mid$(arrLine$(iLine), iChar, 1) = "." Then
                                Color cWhite, cWhite
                                Print " ";
                            Else
                                Color cBlack, cBlack
                                Print " ";
                            End If
                            Color cCyan, cBlack
                        Next iChar
                        Print
                    End If
                Next iLine
               
                Color cCyan, cBlack
                Print
                Print "PRESS ANY KEY TO CONTINUE";
                Sleep: _KeyClear: Print: Print
            Next iLoop
           
            Print
            Input "FINISHED, START OVER (Y/N)?"; in$
            in$ = LCase$(Left$(_Trim$(in$), 1))
            If in$ <> "y" Then Exit Do
        Loop
       
        ' GO BACK TO DEFAULT FONT AND ERASE FONT HANDLE
        _Font 16
        If FontHandle& > 0 Then _FreeFont FontHandle&
    Else
        sError = "FontHandle& = " + _Trim$(Str$(FontHandle&))
    End If
End If

' SHOW ERRORS
If Len(sError) <> 0 Then
    Print sError
End If

' FINISH
Print m_ProgramName$ + " finished."
End

' ################################################################################################################################################################
' BEGIN BDF FONT ROUTINES #BDF
' ################################################################################################################################################################

' /////////////////////////////////////////////////////////////////////////////
' Converts a 2D array representing a bitmap font to a BDF font file.
' For more info on the BDF format, see:
'   Glyph Bitmap Distribution Format - Wikipedia
'   https://en.wikipedia.org/wiki/Glyph_Bitmap_Distribution_Format

Function CreateBDF$ (FontFilename$)
    ReDim arrFontData(255, 7) As Integer ' 256 characters, 8 rows (y)
    Dim iChar As Integer
    Dim iRow As Integer
    Dim sError As String: sError = ""

    If Len(sError) = 0 Then
        sError = GetTiles$(arrFontData())
    End If
   
    If Len(sError) = 0 Then
        SaveBDF arrFontData(), FontFilename$
    End If
   
    CreateBDF$ = sError
End Function ' CreateBDF$

' /////////////////////////////////////////////////////////////////////////////

Sub SaveBDF (arrFontData%(), filename$)
    Open filename$ For Output As #1
    Dim iChar As Integer
    Dim iRow As Integer

    ' --- BDF Header ---
    Print #1, "STARTFONT 2.1"
    Print #1, "FONT -My-Font-Regular-R-Normal--8-80-75-75-P-80-ISO8859-1"
    Print #1, "SIZE 8 75 75"
    Print #1, "FONTBOUNDINGBOX 8 8 0 0"
    Print #1, "STARTPROPERTIES 2"
    Print #1, "FONT_ASCENT 8"
    Print #1, "FONT_DESCENT 0"
    Print #1, "ENDPROPERTIES"
    Print #1, "CHARS 256"
   
    ' --- Character Definitions ---
    For iChar = 0 To 255
        Print #1, "STARTCHAR " + Chr$(iChar)
        Print #1, "ENCODING " + LTrim$(Str$(iChar))
        Print #1, "SWIDTH 500 0"
        Print #1, "DWIDTH 8 0"
        Print #1, "BBX 8 8 0 0"
        Print #1, "BITMAP"
        For iRow = 0 To 7
            ' Convert integer iRow to hexadecimal string
            hexString$ = ""
            rowValue = arrFontData%(iChar, iRow)
            hexString$ = LTrim$(Hex$(rowValue))
            If Len(hexString$) = 1 Then hexString$ = "0" + hexString$ ' Pad to two hex digits
            Print #1, hexString$
        Next iRow
        Print #1, "ENDCHAR"
    Next iChar

    ' --- BDF Footer ---
    Print #1, "ENDFONT"
    Close #1
End Sub ' SaveBDF

' ################################################################################################################################################################
' END BDF FONT ROUTINES @BDF
' ################################################################################################################################################################

' ################################################################################################################################################################
' BEGIN GENERAL PURPOSE ROUTINES #GEN
' ################################################################################################################################################################

' /////////////////////////////////////////////////////////////////////////////
' Convert a value to string and trim it (because normal Str$ adds spaces)

Function cstr$ (myValue)
    'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
    cstr$ = _Trim$(Str$(myValue))
End Function ' cstr$

' /////////////////////////////////////////////////////////////////////////////
' From: Bitwise Manipulations By Steven Roman
' http://www.romanpress.com/Articles/Bitwise_R/Bitwise.htm

' Returns the 8-bit binary representation
' of an integer iInput where 0 <= iInput <= 255

Function GetBinary$ (iInput1 As Integer)
    Dim sResult As String
    Dim iLoop As Integer
    Dim iInput As Integer: iInput = iInput1

    sResult = ""

    If iInput >= 0 And iInput <= 255 Then
        For iLoop = 1 To 8
            sResult = LTrim$(RTrim$(Str$(iInput Mod 2))) + sResult
            iInput = iInput \ 2
            'If iLoop = 4 Then sResult = " " + sResult
        Next iLoop
    End If

    GetBinary$ = sResult
End Function ' GetBinary$

' /////////////////////////////////////////////////////////////////////////////
' From: Bitwise Manipulations By Steven Roman
' http://www.romanpress.com/Articles/Bitwise_R/Bitwise.htm

' Returns the integer that corresponds to a binary string of length 8

Function GetIntegerFromBinary% (sBinary1 As String)
    Dim iResult As Integer
    Dim iLoop As Integer
    Dim strBinary As String
    Dim sBinary As String: sBinary = sBinary1

    iResult = 0
    strBinary = Replace$(sBinary, " ", "") ' Remove any spaces
    For iLoop = 0 To Len(strBinary) - 1
        iResult = iResult + 2 ^ iLoop * Val(Mid$(strBinary, Len(strBinary) - iLoop, 1))
    Next iLoop

    GetIntegerFromBinary% = iResult
End Function ' GetIntegerFromBinary%

' /////////////////////////////////////////////////////////////////////////////
' Returns _TRUE if value OriginalString$ is numeric.

' Re: Does a Is Number function exist in QB64?
' https://www.qb64.org/forum/index.php?topic=896.15

' Version 2 by madscijr
' Returns _TRUE (-1) if string is an integer, _FALSE (0) if not

' Version 1 by MWheatley
' Reply #18 on: January 01, 2019, 11:24:30 AM
' returns 1 if string is an integer, 0 if not

Function IsNumber% (OriginalString$)
    Dim bResult%: bResult% = _FALSE
    Dim iLoop%
    Dim TestString$
    'Dim bNegative%
    Dim iDecimalCount%
    Dim sNextChar$

    'THEY SHOULD TRIM OUTSIDE THE FUNCTION!
    'TestString$ = _TRIM$(OriginalString$)

    If Len(OriginalString$) > 0 Then
        TestString$ = ""
        If Left$(OriginalString$, 1) = "+" Then
            TestString$ = Right$(OriginalString$, Len(OriginalString$) - 1)
            'bNegative% = _FALSE
        ElseIf Left$(OriginalString$, 1) = "-" Then
            TestString$ = Right$(OriginalString$, Len(OriginalString$) - 1)
            'bNegative% = _TRUE
        Else
            TestString$ = OriginalString$
            'bNegative% = _FALSE
        End If
        If Len(TestString$) > 0 Then
            bResult% = _TRUE
            iDecimalCount% = 0
            For iLoop% = 1 To Len(TestString$)
                sNextChar$ = Mid$(TestString$, iLoop%, 1)
                If sNextChar$ = "." Then
                    iDecimalCount% = iDecimalCount% + 1
                    If iDecimalCount% > 1 Then
                        ' TOO MANY DECIMAL POINTS, INVALID!
                        bResult% = _FALSE
                        Exit For
                    End If
                ElseIf Asc(sNextChar$) < 48 Or Asc(sNextChar$) > 57 Then
                    ' NOT A NUMERAL OR A DECIMAL, INVALID!
                    bResult% = _FALSE
                    Exit For
                End If
            Next iLoop%
        End If
    End If
    IsNumber% = bResult%
End Function ' IsNumber%

' /////////////////////////////////////////////////////////////////////////////
' Generate random value between Min and Max.
Function RandomNumber% (Min%, Max%)
    Dim NumSpread%
   
    ' SET RANDOM SEED
    'Randomize ' Initialize random-number generator.
    Randomize Timer
   
    ' GET RANDOM # Min%-Max%
    'RandomNumber = Int((Max * Rnd) + Min) ' generate number
   
    NumSpread% = (Max% - Min%) + 1
   
    RandomNumber% = Int(Rnd * NumSpread%) + Min% ' GET RANDOM # BETWEEN Max% AND Min%
End Function ' RandomNumber%

' /////////////////////////////////////////////////////////////////////////////
' FROM: String Manipulation
' found at abandoned, outdated and now likely malicious qb64 dot net website
' http://www.qb64.[net]/forum/index_topic_5964-0/
'
'SUMMARY:
'   Purpose:  A library of custom functions that transform strings.
'   Author:   Dustinian Camburides (dustinian@gmail.com)
'   Platform: QB64 (www.qb64.org)
'   Revision: 1.6
'   Updated:  5/28/2012

'SUMMARY:
'[Replace$] replaces all instances of the [Find] sub-string with the [Add] sub-string within the [Text] string.
'INPUT:
'Text: The input string; the text that's being manipulated.
'Find: The specified sub-string; the string sought within the [Text] string.
'Add: The sub-string that's being added to the [Text] string.

Function Replace$ (Text1 As String, Find1 As String, Add1 As String)
    ' VARIABLES:
    Dim Text2 As String
    Dim Find2 As String
    Dim Add2 As String
    Dim lngLocation As Long ' The address of the [Find] substring within the [Text] string.
    Dim strBefore As String ' The characters before the string to be replaced.
    Dim strAfter As String ' The characters after the string to be replaced.

    ' INITIALIZE:
    ' MAKE COPIESSO THE ORIGINAL IS NOT MODIFIED (LIKE ByVal IN VBA)
    Text2 = Text1
    Find2 = Find1
    Add2 = Add1

    lngLocation = InStr(1, Text2, Find2)

    ' PROCESSING:
    ' While [Find2] appears in [Text2]...
    While lngLocation
        ' Extract all Text2 before the [Find2] substring:
        strBefore = Left$(Text2, lngLocation - 1)

        ' Extract all text after the [Find2] substring:
        strAfter = Right$(Text2, ((Len(Text2) - (lngLocation + Len(Find2) - 1))))

        ' Return the substring:
        Text2 = strBefore + Add2 + strAfter

        ' Locate the next instance of [Find2]:
        lngLocation = InStr(1, Text2, Find2)

        ' Next instance of [Find2]...
    Wend

    ' OUTPUT:
    Replace$ = Text2
End Function ' Replace$

' /////////////////////////////////////////////////////////////////////////////
' Split and join strings
' https://www.qb64.org/forum/index.php?topic=1073.0
'
' FROM luke, QB64 Developer
' Date: February 15, 2019, 04:11:07 AM »
'
' Given a string of words separated by spaces (or any other character),
' splits it into an array of the words. I've no doubt many people have
' written a version of this over the years and no doubt there's a million
' ways to do it, but I thought I'd put mine here so we have at least one
' version. There's also a join function that does the opposite
' array -> single string.
'
' Code is hopefully reasonably self explanatory with comments and a little demo.
' Note, this is akin to Python/JavaScript split/join, PHP explode/implode.

'Split in$ into pieces, chopping at every occurrence of delimiter$. Multiple consecutive occurrences
'of delimiter$ are treated as a single instance. The chopped pieces are stored in result$().
'
'delimiter$ must be one character long.
'result$() must have been REDIMmed previously.

' Modified to handle multi-character delimiters

Sub split (in$, delimiter$, result$())
    Dim start As Integer
    Dim finish As Integer
    Dim iDelimLen As Integer
    ReDim result$(-1)

    iDelimLen = Len(delimiter$)

    start = 1
    Do
        'While Mid$(in$, start, 1) = delimiter$
        While Mid$(in$, start, iDelimLen) = delimiter$
            'start = start + 1
            start = start + iDelimLen
            If start > Len(in$) Then
                Exit Sub
            End If
        Wend
        finish = InStr(start, in$, delimiter$)
        If finish = 0 Then
            finish = Len(in$) + 1
        End If

        ReDim _Preserve result$(0 To UBound(result$) + 1)

        result$(UBound(result$)) = Mid$(in$, start, finish - start)
        start = finish + 1
    Loop While start <= Len(in$)
End Sub ' split

' ################################################################################################################################################################
' END GENERAL PURPOSE ROUTINES @GEN
' ################################################################################################################################################################

' ################################################################################################################################################################
' BEGIN COLOR ARRAY FUNCTIONS #COLR
' ################################################################################################################################################################

' /////////////////////////////////////////////////////////////////////////////

Sub AddColor (ColorValue As _Unsigned Long, arrColor() As _Unsigned Long)
    ReDim _Preserve arrColor(0 To UBound(arrColor) + 1) As _Unsigned Long
    arrColor(UBound(arrColor)) = ColorValue
End Sub ' AddColor

' /////////////////////////////////////////////////////////////////////////////

Sub AddColors (ColorValue As _Unsigned Long, arrColor() As _Unsigned Long, HowMany As Long)
    Dim iLoop As Integer
    For iLoop = 1 To HowMany
        AddColor ColorValue, arrColor()
    Next iLoop
End Sub ' AddColors

' /////////////////////////////////////////////////////////////////////////////

Sub AddBgColors (arrColor() As _Unsigned Long)
    Dim iNum As Integer
    iNum = 1
    AddColors cRed, arrColor(), iNum
    AddColors cOrange, arrColor(), iNum
    AddColors cYellow, arrColor(), iNum
    AddColors cLime, arrColor(), iNum
    AddColors cCyan, arrColor(), iNum
    AddColors cBlue, arrColor(), iNum
    AddColors cPurple, arrColor(), iNum
    AddColors cBlack, arrColor(), iNum
    AddColors cGray, arrColor(), iNum
    AddColors cSilver, arrColor(), iNum
    AddColors cWhite, arrColor(), iNum
End Sub ' AddBgColors

' /////////////////////////////////////////////////////////////////////////////

Sub AddFgColors (arrColor() As _Unsigned Long)
    Dim iNum As Integer
    iNum = 1
    AddColors cRed, arrColor(), iNum
    AddColors cOrange, arrColor(), iNum
    AddColors cYellow, arrColor(), iNum
    AddColors cLime, arrColor(), iNum
    AddColors cCyan, arrColor(), iNum
    AddColors cBlue, arrColor(), iNum
    AddColors cPurple, arrColor(), iNum
    AddColors cBlack, arrColor(), iNum
    AddColors cGray, arrColor(), iNum
    AddColors cSilver, arrColor(), iNum
    AddColors cWhite, arrColor(), iNum
End Sub ' AddFgColors

' /////////////////////////////////////////////////////////////////////////////

Sub AddGrayscaleColors (arrColor() As _Unsigned Long)
    Dim iNum As Integer
    iNum = 1
    AddColors cDimGray, arrColor(), iNum
    AddColors cGray, arrColor(), iNum
    AddColors cDarkGray, arrColor(), iNum
    AddColors cSilver, arrColor(), iNum
    AddColors cLightGray, arrColor(), iNum
    AddColors cGainsboro, arrColor(), iNum
    AddColors cWhiteSmoke, arrColor(), iNum
    AddColors cWhite, arrColor(), iNum '* 2
    AddColors cWhiteSmoke, arrColor(), iNum
    AddColors cGainsboro, arrColor(), iNum
    AddColors cLightGray, arrColor(), iNum
    AddColors cSilver, arrColor(), iNum
    AddColors cDarkGray, arrColor(), iNum
    AddColors cGray, arrColor(), iNum
End Sub ' AddGrayscaleColors

' /////////////////////////////////////////////////////////////////////////////

Sub AddSpectrumColors (arrColor() As _Unsigned Long)
    Dim iNum As Integer
    iNum = 1
    AddColors cRed, arrColor(), iNum
    AddColors cOrangeRed, arrColor(), iNum
    AddColors cDarkOrange, arrColor(), iNum
    AddColors cOrange, arrColor(), iNum
    AddColors cGold, arrColor(), iNum
    AddColors cYellow, arrColor(), iNum
    AddColors cChartreuse, arrColor(), iNum
    AddColors cOliveDrab1, arrColor(), iNum
    AddColors cLime, arrColor(), iNum
    AddColors cMediumSpringGreen, arrColor(), iNum
    AddColors cSpringGreen, arrColor(), iNum
    AddColors cCyan, arrColor(), iNum
    AddColors cDeepSkyBlue, arrColor(), iNum
    AddColors cDodgerBlue, arrColor(), iNum
    AddColors cSeaBlue, arrColor(), iNum
    AddColors cBlue, arrColor(), iNum
    AddColors cBluePurple, arrColor(), iNum
    AddColors cDeepPurple, arrColor(), iNum
    AddColors cPurple, arrColor(), iNum
    AddColors cPurpleRed, arrColor(), iNum
    'AddColors cDarkRed, arrColor(), iNum
    'AddColors cBrickRed, arrColor(), iNum
    'AddColors cDarkGreen, arrColor(), iNum
    'AddColors cGreen, arrColor(), iNum
    'AddColors cOliveDrab, arrColor(), iNum
    'AddColors cLightPink, arrColor(), iNum
    'AddColors cHotPink, arrColor(), iNum
    'AddColors cDeepPink, arrColor(), iNum
    'AddColors cMagenta, arrColor(), iNum
    ''AddColors cBlack, arrColor(), iNum
    'AddColors cDimGray, arrColor(), iNum
    'AddColors cGray, arrColor(), iNum
    'AddColors cDarkGray, arrColor(), iNum
    'AddColors cSilver, arrColor(), iNum
    'AddColors cLightGray, arrColor(), iNum
    'AddColors cGainsboro, arrColor(), iNum
    'AddColors cWhiteSmoke, arrColor(), iNum
    'AddColors cWhite, arrColor(), iNum
    'AddColors cDarkBrown, arrColor(), iNum
    'AddColors cLightBrown, arrColor(), iNum
    'AddColors cKhaki, arrColor(), iNum
    ''AddColors cEmpty , arrColor(), iNum
End Sub ' AddSpectrumColors

' ################################################################################################################################################################
' END COLOR ARRAY FUNCTIONS @COLR
' ################################################################################################################################################################

' ################################################################################################################################################################
' BEGIN COLOR FUNCTIONS #COLOR
' ################################################################################################################################################################

Function cRed~& ()
    cRed = _RGB32(255, 0, 0)
End Function

Function cOrangeRed~& ()
    cOrangeRed = _RGB32(255, 69, 0)
End Function ' cOrangeRed~&

Function cDarkOrange~& ()
    cDarkOrange = _RGB32(255, 140, 0)
End Function ' cDarkOrange~&

Function cOrange~& ()
    cOrange = _RGB32(255, 165, 0)
End Function ' cOrange~&

Function cGold~& ()
    cGold = _RGB32(255, 215, 0)
End Function ' cGold~&

Function cYellow~& ()
    cYellow = _RGB32(255, 255, 0)
End Function ' cYellow~&

' LONG-HAIRED FRIENDS OF JESUS OR NOT,
' THIS IS NOT YELLOW ENOUGH (TOO CLOSE TO LIME)
' TO USE FOR OUR COMPLEX RAINBOW SEQUENCE:
Function cChartreuse~& ()
    cChartreuse = _RGB32(127, 255, 0)
End Function ' cChartreuse~&

' WE SUBSTITUTE THIS CSS3 COLOR FOR INBETWEEN LIME AND YELLOW:
Function cOliveDrab1~& ()
    cOliveDrab1 = _RGB32(192, 255, 62)
End Function ' cOliveDrab1~&

Function cLime~& ()
    cLime = _RGB32(0, 255, 0)
End Function ' cLime~&

Function cMediumSpringGreen~& ()
    cMediumSpringGreen = _RGB32(0, 250, 154)
End Function ' cMediumSpringGreen~&

' ADDED THIS FOR THE GAUGE COLOR:
Function cSpringGreen~& ()
    cSpringGreen = _RGB32(0, 255, 160)
End Function ' cSpringGreen~&

Function cCyan~& ()
    cCyan = _RGB32(0, 255, 255)
End Function ' cCyan~&

Function cDeepSkyBlue~& ()
    cDeepSkyBlue = _RGB32(0, 191, 255)
End Function ' cDeepSkyBlue~&

Function cDodgerBlue~& ()
    cDodgerBlue = _RGB32(30, 144, 255)
End Function ' cDodgerBlue~&

Function cSeaBlue~& ()
    cSeaBlue = _RGB32(0, 64, 255)
End Function ' cSeaBlue~&

Function cBlue~& ()
    cBlue = _RGB32(0, 0, 255)
End Function ' cBlue~&

Function cBluePurple~& ()
    cBluePurple = _RGB32(64, 0, 255)
End Function ' cBluePurple~&

Function cDeepPurple~& ()
    cDeepPurple = _RGB32(96, 0, 255)
End Function ' cDeepPurple~&

Function cPurple~& ()
    cPurple = _RGB32(128, 0, 255)
End Function ' cPurple~&

Function cPurpleRed~& ()
    cPurpleRed = _RGB32(128, 0, 192)
End Function ' cPurpleRed~&

Function cDarkRed~& ()
    cDarkRed = _RGB32(160, 0, 64)
End Function ' cDarkRed~&

Function cBrickRed~& ()
    cBrickRed = _RGB32(192, 0, 32)
End Function ' cBrickRed~&

Function cDarkGreen~& ()
    cDarkGreen = _RGB32(0, 100, 0)
End Function ' cDarkGreen~&

Function cGreen~& ()
    cGreen = _RGB32(0, 128, 0)
End Function ' cGreen~&

Function cOliveDrab~& ()
    cOliveDrab = _RGB32(107, 142, 35)
End Function ' cOliveDrab~&

Function cLightPink~& ()
    cLightPink = _RGB32(255, 182, 193)
End Function ' cLightPink~&

Function cHotPink~& ()
    cHotPink = _RGB32(255, 105, 180)
End Function ' cHotPink~&

Function cDeepPink~& ()
    cDeepPink = _RGB32(255, 20, 147)
End Function ' cDeepPink~&

Function cMagenta~& ()
    cMagenta = _RGB32(255, 0, 255)
End Function ' cMagenta~&

Function cBlack~& ()
    cBlack = _RGB32(0, 0, 0)
End Function ' cBlack~&

Function cDimGray~& ()
    cDimGray = _RGB32(105, 105, 105)
End Function ' cDimGray~&

Function cGray~& ()
    cGray = _RGB32(128, 128, 128)
End Function ' cGray~&

Function cDarkGray~& ()
    cDarkGray = _RGB32(169, 169, 169)
End Function ' cDarkGray~&

Function cSilver~& ()
    cSilver = _RGB32(192, 192, 192)
End Function ' cSilver~&

Function cLightGray~& ()
    cLightGray = _RGB32(211, 211, 211)
End Function ' cLightGray~&

Function cGainsboro~& ()
    cGainsboro = _RGB32(220, 220, 220)
End Function ' cGainsboro~&

Function cWhiteSmoke~& ()
    cWhiteSmoke = _RGB32(245, 245, 245)
End Function ' cWhiteSmoke~&

Function cWhite~& ()
    cWhite = _RGB32(255, 255, 255)
End Function ' cWhite~&

Function cDarkBrown~& ()
    cDarkBrown = _RGB32(128, 64, 0)
End Function ' cDarkBrown~&

Function cLightBrown~& ()
    cLightBrown = _RGB32(196, 96, 0)
End Function ' cLightBrown~&

Function cKhaki~& ()
    cKhaki = _RGB32(240, 230, 140)
End Function ' cKhaki~&

Function cEmpty~& ()
    cEmpty = _RGB32(0, 0, 0, 0)
End Function ' cEmpty~&

' ################################################################################################################################################################
' END COLOR FUNCTIONS @COLOR
' ################################################################################################################################################################

' ################################################################################################################################################################
' BEGIN TILE DEFINITIONS #TILE
' ################################################################################################################################################################

' /////////////////////////////////////////////////////////////////////////////

Function GetTiles$ (arrFontData%())
    Const cHEIGHT = 8
    Const cWIDTH = 8

    Dim RoutineName As String: RoutineName = "GetTiles$"
    Dim sError As String: sError = ""
    ReDim arrTileText(0 To 255) As String
    Dim iTileNum As Integer
    ReDim arrLines(-1) As String
    Dim iFromX As Integer
    Dim iFromY As Integer
    Dim sLine As String
    Dim sChar As String
    Dim sBinary As String
    Dim iValue As Integer
    Dim iLine As Integer
    Dim ub%, lb%

    If Len(sError) = 0 Then
        ReDim arrFontData%(0 To 255, 0 To 7)
        GetTileText arrTileText()
        lb% = LBound(arrTileText)
        ub% = UBound(arrTileText)
        If lb% <> 0 Or ub% <> 255 Then
            sError = "GetTileText returned array with invalid boundaries " + _
                "(" + _
                _TRIM$(str$( lb% )) + _
                " - " +_
                _TRIM$(str$( ub% )) + _
                ")"
        End If
    End If

    If Len(sError) = 0 Then
        For iTileNum = 0 To 255
            split arrTileText(iTileNum), Chr$(13), arrLines()
            iLine = 0
            For iFromY = LBound(arrLines) To UBound(arrLines)
                sLine = arrLines(iFromY)
                If Len(sLine) > 0 Then
                    sBinary = ""
                    For iFromX = 1 To Len(sLine)
                        sChar = Mid$(sLine, iFromX, 1)
                        If sChar = "." Then
                            sBinary = sBinary + "0"
                        Else
                            sBinary = sBinary + "1"
                        End If
                    Next iFromX
                    If Len(sBinary) = 8 Then
                        iValue = GetIntegerFromBinary%(sBinary)
                        arrFontData%(iTileNum, iLine) = iValue
                    Else
                        iLine = iLine + 1
                        sError = "Invalid data for tile " + _Trim$(Str$(iTileNum)) + " at line " + _Trim$(Str$(iLine))
                        Exit For
                    End If
                    iLine = iLine + 1
                    If iLine > 7 Then Exit For
                End If
            Next iFromY
            If Len(sError) > 0 Then Exit For
        Next iTileNum
    End If
   
    GetTiles$ = sError
End Function ' GetTiles$

' /////////////////////////////////////////////////////////////////////////////

Sub GetTileText (arrTileText() As String)
    ReDim arrTileText(0 To 255) As String
   
    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(0) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(1) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(2) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(3) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(4) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(5) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(6) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(7) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(8) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(9) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(10) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(11) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(12) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(13) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(14) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(15) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(16) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(17) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(18) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(19) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(20) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(21) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(22) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(23) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(24) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(25) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(26) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(27) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(28) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(29) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(30) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(31) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(32) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(33) = m$

    m$ = ""
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(34) = m$

    m$ = ""
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(35) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(36) = m$

    m$ = ""
    m$ = m$ + ".22...2." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".2...22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(37) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "..222..." + Chr$(13)
    m$ = m$ + ".22..222" + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(38) = m$

    m$ = ""
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(39) = m$

    m$ = ""
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(40) = m$

    m$ = ""
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(41) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(42) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(43) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    arrTileText(44) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(45) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(46) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(47) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22.222." + Chr$(13)
    m$ = m$ + ".222.22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(48) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..222..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(49) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(50) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(51) = m$

    m$ = ""
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "....222." + Chr$(13)
    m$ = m$ + "...2222." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(52) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(53) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(54) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(55) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(56) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(57) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(58) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    arrTileText(59) = m$

    m$ = ""
    m$ = m$ + "....222." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "....222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(60) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(61) = m$

    m$ = ""
    m$ = m$ + ".222...." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + ".222...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(62) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(63) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22.222." + Chr$(13)
    m$ = m$ + ".22.222." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22...2." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(64) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(65) = m$

    m$ = ""
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(66) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(67) = m$

    m$ = ""
    m$ = m$ + ".2222..." + Chr$(13)
    m$ = m$ + ".22.22.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22.22.." + Chr$(13)
    m$ = m$ + ".2222..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(68) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".2222..." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(69) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".2222..." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(70) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22.222." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(71) = m$

    m$ = ""
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(72) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(73) = m$

    m$ = ""
    m$ = m$ + "...2222." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + ".22.22.." + Chr$(13)
    m$ = m$ + "..222..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(74) = m$

    m$ = ""
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22.22.." + Chr$(13)
    m$ = m$ + ".2222..." + Chr$(13)
    m$ = m$ + ".222...." + Chr$(13)
    m$ = m$ + ".2222..." + Chr$(13)
    m$ = m$ + ".22.22.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(75) = m$

    m$ = ""
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(76) = m$

    m$ = ""
    m$ = m$ + ".22...22" + Chr$(13)
    m$ = m$ + ".222.222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".22.2.22" + Chr$(13)
    m$ = m$ + ".22...22" + Chr$(13)
    m$ = m$ + ".22...22" + Chr$(13)
    m$ = m$ + ".22...22" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(77) = m$

    m$ = ""
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".222.22." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".22.222." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(78) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(79) = m$

    m$ = ""
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(80) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "....222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(81) = m$

    m$ = ""
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".2222..." + Chr$(13)
    m$ = m$ + ".22.22.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(82) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(83) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(84) = m$

    m$ = ""
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(85) = m$

    m$ = ""
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(86) = m$

    m$ = ""
    m$ = m$ + ".22...22" + Chr$(13)
    m$ = m$ + ".22...22" + Chr$(13)
    m$ = m$ + ".22...22" + Chr$(13)
    m$ = m$ + ".22.2.22" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".222.222" + Chr$(13)
    m$ = m$ + ".22...22" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(87) = m$

    m$ = ""
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(88) = m$

    m$ = ""
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(89) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(90) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(91) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(92) = m$

    m$ = ""
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(93) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(94) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(95) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(96) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(97) = m$

    m$ = ""
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(98) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(99) = m$

    m$ = ""
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(100) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(101) = m$

    m$ = ""
    m$ = m$ + "....222." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(102) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(103) = m$

    m$ = ""
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(104) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "..222..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(105) = m$

    m$ = ""
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(106) = m$

    m$ = ""
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22.22.." + Chr$(13)
    m$ = m$ + ".2222..." + Chr$(13)
    m$ = m$ + ".22.22.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(107) = m$

    m$ = ""
    m$ = m$ + "..222..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(108) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".22.2.22" + Chr$(13)
    m$ = m$ + ".22...22" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(109) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(110) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(111) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(112) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(113) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(114) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".22222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(115) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "....222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(116) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(117) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(118) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22...22" + Chr$(13)
    m$ = m$ + ".22.2.22" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + "..22.22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(119) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(120) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + ".2222..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(121) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(122) = m$

    m$ = ""
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..2....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "..2....." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(123) = m$

    m$ = ""
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(124) = m$

    m$ = ""
    m$ = m$ + "..222..." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + ".....2.." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....2.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "..222..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(125) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".22....2" + Chr$(13)
    m$ = m$ + "2..2..2." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(126) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(127) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(128) = m$

    m$ = ""
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(129) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(130) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(131) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(132) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(133) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(134) = m$

    m$ = ""
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    arrTileText(135) = m$

    m$ = ""
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    arrTileText(136) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "..222..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(137) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(138) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..222..." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(139) = m$

    m$ = ""
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(140) = m$

    m$ = ""
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + ".222...." + Chr$(13)
    m$ = m$ + "..222..." + Chr$(13)
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + "....222." + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    arrTileText(141) = m$

    m$ = ""
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + "....222." + Chr$(13)
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + "..222..." + Chr$(13)
    m$ = m$ + ".222...." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    arrTileText(142) = m$

    m$ = ""
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    arrTileText(143) = m$

    m$ = ""
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    arrTileText(144) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(145) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(146) = m$

    m$ = ""
    m$ = m$ + "..22.22." + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(147) = m$

    m$ = ""
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    arrTileText(148) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(149) = m$

    m$ = ""
    m$ = m$ + "22....22" + Chr$(13)
    m$ = m$ + "222..222" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "222..222" + Chr$(13)
    m$ = m$ + "22....22" + Chr$(13)
    arrTileText(150) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(151) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(152) = m$

    m$ = ""
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    arrTileText(153) = m$

    m$ = ""
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + "...222.." + Chr$(13)
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(154) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(155) = m$

    m$ = ""
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    arrTileText(156) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(157) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + ".222.22." + Chr$(13)
    m$ = m$ + "..22.22." + Chr$(13)
    m$ = m$ + "..22.22." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(158) = m$

    m$ = ""
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + "..222222" + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + ".......2" + Chr$(13)
    arrTileText(159) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(160) = m$

    m$ = ""
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    arrTileText(161) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(162) = m$

    m$ = ""
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(163) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(164) = m$

    m$ = ""
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    arrTileText(165) = m$

    m$ = ""
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    arrTileText(166) = m$

    m$ = ""
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    arrTileText(167) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    arrTileText(168) = m$

    m$ = ""
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "2222222." + Chr$(13)
    m$ = m$ + "222222.." + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "2......." + Chr$(13)
    arrTileText(169) = m$

    m$ = ""
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    arrTileText(170) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(171) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    arrTileText(172) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(173) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(174) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(175) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(176) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(177) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(178) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(179) = m$

    m$ = ""
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    arrTileText(180) = m$

    m$ = ""
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    arrTileText(181) = m$

    m$ = ""
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    arrTileText(182) = m$

    m$ = ""
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(183) = m$

    m$ = ""
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(184) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(185) = m$

    m$ = ""
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(186) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    arrTileText(187) = m$

    m$ = ""
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(188) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(189) = m$

    m$ = ""
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(190) = m$

    m$ = ""
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    arrTileText(191) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2.....2" + Chr$(13)
    m$ = m$ + ".2.....2" + Chr$(13)
    m$ = m$ + ".2.....2" + Chr$(13)
    m$ = m$ + ".2.....2" + Chr$(13)
    m$ = m$ + ".2.....2" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    arrTileText(192) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    arrTileText(193) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(194) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(195) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(196) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".....2.." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".2222222" + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".....2.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(197) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(198) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "2......2" + Chr$(13)
    m$ = m$ + "2.2..2.2" + Chr$(13)
    m$ = m$ + "2......2" + Chr$(13)
    m$ = m$ + "2.2..2.2" + Chr$(13)
    m$ = m$ + "2.2222.2" + Chr$(13)
    m$ = m$ + "2......2" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    arrTileText(199) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "2......2" + Chr$(13)
    m$ = m$ + "2.2..2.2" + Chr$(13)
    m$ = m$ + "2......2" + Chr$(13)
    m$ = m$ + "2.2222.2" + Chr$(13)
    m$ = m$ + "2.2..2.2" + Chr$(13)
    m$ = m$ + "2......2" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    arrTileText(200) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(201) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + "....22.." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(202) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(203) = m$

    m$ = ""
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    m$ = m$ + "..22...." + Chr$(13)
    arrTileText(204) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(205) = m$

    m$ = ""
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    arrTileText(206) = m$

    m$ = ""
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    arrTileText(207) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(208) = m$

    m$ = ""
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    arrTileText(209) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(210) = m$

    m$ = ""
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(211) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(212) = m$

    m$ = ""
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    arrTileText(213) = m$

    m$ = ""
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    arrTileText(214) = m$

    m$ = ""
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    arrTileText(215) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    arrTileText(216) = m$

    m$ = ""
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    m$ = m$ + "22..22.." + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "..22..22" + Chr$(13)
    m$ = m$ + ".22..22." + Chr$(13)
    arrTileText(217) = m$

    m$ = ""
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    arrTileText(218) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(219) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    arrTileText(220) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(221) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(222) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(223) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "...22222" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(224) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(225) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(226) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    arrTileText(227) = m$

    m$ = ""
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    m$ = m$ + "22......" + Chr$(13)
    arrTileText(228) = m$

    m$ = ""
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    m$ = m$ + "222....." + Chr$(13)
    arrTileText(229) = m$

    m$ = ""
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    m$ = m$ + ".....222" + Chr$(13)
    arrTileText(230) = m$

    m$ = ""
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(231) = m$

    m$ = ""
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(232) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(233) = m$

    m$ = ""
    m$ = m$ + ".......2" + Chr$(13)
    m$ = m$ + "......22" + Chr$(13)
    m$ = m$ + ".....22." + Chr$(13)
    m$ = m$ + ".22.22.." + Chr$(13)
    m$ = m$ + ".2222..." + Chr$(13)
    m$ = m$ + ".222...." + Chr$(13)
    m$ = m$ + ".22....." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(234) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    arrTileText(235) = m$

    m$ = ""
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(236) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "22222..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(237) = m$

    m$ = ""
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(238) = m$

    m$ = ""
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "2222...." + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    m$ = m$ + "....2222" + Chr$(13)
    arrTileText(239) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(240) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(241) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(242) = m$

    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(243) = m$

    m$ = ""
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "...2.2.." + Chr$(13)
    m$ = m$ + "..2...2." + Chr$(13)
    m$ = m$ + ".2.....2" + Chr$(13)
    m$ = m$ + ".2.....2" + Chr$(13)
    m$ = m$ + "...2.2.." + Chr$(13)
    m$ = m$ + "..22222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(244) = m$

    m$ = ""
    m$ = m$ + "..22.22." + Chr$(13)
    m$ = m$ + ".2..2..2" + Chr$(13)
    m$ = m$ + ".2.....2" + Chr$(13)
    m$ = m$ + ".2.....2" + Chr$(13)
    m$ = m$ + "..2...2." + Chr$(13)
    m$ = m$ + "...2.2.." + Chr$(13)
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(245) = m$

    m$ = ""
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "...22..." + Chr$(13)
    m$ = m$ + "..2222.." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(246) = m$

    m$ = ""
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "...2.2.." + Chr$(13)
    m$ = m$ + "..2...2." + Chr$(13)
    m$ = m$ + ".2.....2" + Chr$(13)
    m$ = m$ + "..2...2." + Chr$(13)
    m$ = m$ + "...2.2.." + Chr$(13)
    m$ = m$ + "....2..." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(247) = m$
   
    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "2222.222" + Chr$(13)
    m$ = m$ + "222..222" + Chr$(13)
    m$ = m$ + "2222.222" + Chr$(13)
    m$ = m$ + "2222.222" + Chr$(13)
    m$ = m$ + "2222.222" + Chr$(13)
    m$ = m$ + "222...22" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    arrTileText(248) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    arrTileText(249) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "222..222" + Chr$(13)
    m$ = m$ + "22.22.22" + Chr$(13)
    m$ = m$ + "22222.22" + Chr$(13)
    m$ = m$ + "2222.222" + Chr$(13)
    m$ = m$ + "222.2222" + Chr$(13)
    m$ = m$ + "22....22" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    arrTileText(250) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    arrTileText(251) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "2....222" + Chr$(13)
    m$ = m$ + "22222.22" + Chr$(13)
    m$ = m$ + "22...222" + Chr$(13)
    m$ = m$ + "22222.22" + Chr$(13)
    m$ = m$ + "22222.22" + Chr$(13)
    m$ = m$ + "2....222" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    arrTileText(252) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    arrTileText(253) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "22222.22" + Chr$(13)
    m$ = m$ + "2222..22" + Chr$(13)
    m$ = m$ + "222.2.22" + Chr$(13)
    m$ = m$ + "22.22.22" + Chr$(13)
    m$ = m$ + "2......2" + Chr$(13)
    m$ = m$ + "22222.22" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    arrTileText(254) = m$

    m$ = ""
    m$ = m$ + ".222222." + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    m$ = m$ + ".222222." + Chr$(13)
    arrTileText(255) = m$

End Sub ' GetTileText

' ################################################################################################################################################################
' END TILE DEFINITIONS @TILE
' ################################################################################################################################################################

[SMcNeill]

If you click and expand the image above, you'll see that the STARTCHAR for 128 isn't what you'd expect to be seeing here.

I don't have time tonight to dig into it (it's past mine and my little doggo's beddy bye time), but you may try and use _MAPUNICODE to get the QB64 unicode character value for that character and plug it in instead of 128.  

If you remember, we use _MAPUNICODE to make those extended characters to the upper 128 ASCII codes, depending on which code page is in use.  If I had to guess, I'd guess the glitch is in there.

---

Code: (Select All)

temp$ = Chr$(128)

Print Asc(temp$)

Print _MapUnicode(128)

For example, with the above, you can see that ASCII 128 actually comes from UNICODE 199. Instead of trying to map to 128, map to 199 instead.

[SMcNeill]

(Or maybe even try something simpler such as:

FOR i = 128 to 255
   _MapUnicode i, i
NEXT

^With the above, map ASCII value 128 to UNICODE value 128 (which is what you specified in your BDF file), and so on for the other extended characters.

[SMcNeill]

Tried it this morning.  As I mentioned above, all it took was a simple _MapUnicode to fix the issue.

Code: (Select All)

' BASIC PROGRAM METADATA

Dim Shared m_ProgramPath$: m_ProgramPath$ = Left$(Command$(0), _InStrRev(Command$(0), "\"))

Dim Shared m_ProgramName$: m_ProgramName$ = Mid$(Command$(0), _InStrRev(Command$(0), "\") + 1)



' GLOBAL VARIABLES

Dim Shared m_iScreenWidth As Long: m_iScreenWidth = 800 ' _DesktopWidth

Dim Shared m_iScreenHeight As Long: m_iScreenHeight = 600 ' _DesktopHeight



' TEST FONT

Dim sError As String: sError = ""

Dim FontFilename$: FontFilename$ = "myfont.bdf"

Dim FontHandle&

Dim style$

Dim iFontHeight%: iFontHeight% = 8

Dim iLoop As Integer

Dim iColorFG As Integer

Dim iColorBG As Integer

ReDim arrTileText(0 To 255) As String

Dim in$

ReDim arrLine$(-1)

Dim iLine As Integer

Dim iChar As Integer

Dim iRow As Integer



For i = 128 To 255

    _MapUnicode i To i

Next

$Resize:Stretch



' LOOK FOR FONT FILE

If Len(sError) = 0 Then

    ' IF FONT FILE NOT FOUND, CREATE IT

    If _FileExists(m_ProgramPath$ + FontFilename$) = _FALSE Then

        sError = CreateBDF$(m_ProgramPath$ + FontFilename$)

    End If

End If



' SET FONT

If Len(sError) = 0 Then

    style$ = "monospace" ' font style is not case sensitive

    FontHandle& = _LoadFont(m_ProgramPath$ + FontFilename$, iFontHeight%, style$)

    If FontHandle& > 0 Then

        ' INIT SCREEN

        Screen _NewImage(m_iScreenWidth, m_iScreenHeight, 32)

        _ScreenMove 0, 0

        Cls , cBlack



        ' SELECT FONT

        _Font FontHandle&



        ' LOAD CHARACTERS TEXT REPRESENTATION

        GetTileText arrTileText()

        Color cCyan, cBlack

        Print "Font " + Chr$(34) + FontFilename$ + Chr$(34) + " loaded:"

        Print



        ' OUTPUT CHARACTERS

        Do

            For iLoop = 33 To 255

                Color cWhite, cBlack: Print "chr$(" + _Trim$(Str$(iLoop)) + ") = ";

                Color cBlack, cWhite: Print Chr$(iLoop);

                Color cCyan, cBlack: Print

                Print: Print "Expected:": Print

                'print arrTileText(iLoop)

                Color cGray, cBlack

                Print " 12345678"

                split arrTileText(iLoop), Chr$(13), arrLine$()

                iRow = 0

                For iLine = LBound(arrLine$) To UBound(arrLine$)

                    iRow = iRow + 1: Color cGray, cBlack: Print _Trim$(Str$(iRow));

                    If Len(arrLine$(iLine)) > 0 Then

                        For iChar = 1 To Len(arrLine$(iLine))

                            If Mid$(arrLine$(iLine), iChar, 1) = "." Then

                                Color cWhite, cWhite

                                Print " ";

                            Else

                                Color cBlack, cBlack

                                Print " ";

                            End If

                            Color cCyan, cBlack

                        Next iChar

                        Print

                    End If

                Next iLine



                Color cCyan, cBlack

                Print

                Print "PRESS ANY KEY TO CONTINUE";

                Sleep: _KeyClear: Print: Print

            Next iLoop



            Print

            Input "FINISHED, START OVER (Y/N)?"; in$

            in$ = LCase$(Left$(_Trim$(in$), 1))

            If in$ <> "y" Then Exit Do

        Loop



        ' GO BACK TO DEFAULT FONT AND ERASE FONT HANDLE

        _Font 16

        If FontHandle& > 0 Then _FreeFont FontHandle&

    Else

        sError = "FontHandle& = " + _Trim$(Str$(FontHandle&))

    End If

End If



' SHOW ERRORS

If Len(sError) <> 0 Then

    Print sError

End If



' FINISH

Print m_ProgramName$ + " finished."

End



' ################################################################################################################################################################

' BEGIN BDF FONT ROUTINES #BDF

' ################################################################################################################################################################



' /////////////////////////////////////////////////////////////////////////////

' Converts a 2D array representing a bitmap font to a BDF font file.

' For more info on the BDF format, see:

'   Glyph Bitmap Distribution Format - Wikipedia

'   https://en.wikipedia.org/wiki/Glyph_Bitm...ion_Format



Function CreateBDF$ (FontFilename$)

    ReDim arrFontData(255, 7) As Integer ' 256 characters, 8 rows (y)

    Dim iChar As Integer

    Dim iRow As Integer

    Dim sError As String: sError = ""



    If Len(sError) = 0 Then

        sError = GetTiles$(arrFontData())

    End If



    If Len(sError) = 0 Then

        SaveBDF arrFontData(), FontFilename$

    End If



    CreateBDF$ = sError

End Function ' CreateBDF$



' /////////////////////////////////////////////////////////////////////////////



Sub SaveBDF (arrFontData%(), filename$)

    Open filename$ For Output As #1

    Dim iChar As Integer

    Dim iRow As Integer



    ' --- BDF Header ---

    Print #1, "STARTFONT 2.1"

    Print #1, "FONT -My-Font-Regular-R-Normal--8-80-75-75-P-80-ISO8859-1"

    Print #1, "SIZE 8 75 75"

    Print #1, "FONTBOUNDINGBOX 8 8 0 0"

    Print #1, "STARTPROPERTIES 2"

    Print #1, "FONT_ASCENT 8"

    Print #1, "FONT_DESCENT 0"

    Print #1, "ENDPROPERTIES"

    Print #1, "CHARS 256"



    ' --- Character Definitions ---

    For iChar = 0 To 255

        Print #1, "STARTCHAR " + Chr$(iChar)

        Print #1, "ENCODING " + LTrim$(Str$(iChar))

        Print #1, "SWIDTH 500 0"

        Print #1, "DWIDTH 8 0"

        Print #1, "BBX 8 8 0 0"

        Print #1, "BITMAP"

        For iRow = 0 To 7

            ' Convert integer iRow to hexadecimal string

            hexString$ = ""

            rowValue = arrFontData%(iChar, iRow)

            hexString$ = LTrim$(Hex$(rowValue))

            If Len(hexString$) = 1 Then hexString$ = "0" + hexString$ ' Pad to two hex digits

            Print #1, hexString$

        Next iRow

        Print #1, "ENDCHAR"

    Next iChar



    ' --- BDF Footer ---

    Print #1, "ENDFONT"

    Close #1

End Sub ' SaveBDF



' ################################################################################################################################################################

' END BDF FONT ROUTINES @BDF

' ################################################################################################################################################################



' ################################################################################################################################################################

' BEGIN GENERAL PURPOSE ROUTINES #GEN

' ################################################################################################################################################################



' /////////////////////////////////////////////////////////////////////////////

' Convert a value to string and trim it (because normal Str$ adds spaces)



Function cstr$ (myValue)

    'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))

    cstr$ = _Trim$(Str$(myValue))

End Function ' cstr$



' /////////////////////////////////////////////////////////////////////////////

' From: Bitwise Manipulations By Steven Roman

' http://www.romanpress.com/Articles/Bitwi...itwise.htm



' Returns the 8-bit binary representation

' of an integer iInput where 0 <= iInput <= 255



Function GetBinary$ (iInput1 As Integer)

    Dim sResult As String

    Dim iLoop As Integer

    Dim iInput As Integer: iInput = iInput1



    sResult = ""



    If iInput >= 0 And iInput <= 255 Then

        For iLoop = 1 To 8

            sResult = LTrim$(RTrim$(Str$(iInput Mod 2))) + sResult

            iInput = iInput \ 2

            'If iLoop = 4 Then sResult = " " + sResult

        Next iLoop

    End If



    GetBinary$ = sResult

End Function ' GetBinary$



' /////////////////////////////////////////////////////////////////////////////

' From: Bitwise Manipulations By Steven Roman

' http://www.romanpress.com/Articles/Bitwi...itwise.htm



' Returns the integer that corresponds to a binary string of length 8



Function GetIntegerFromBinary% (sBinary1 As String)

    Dim iResult As Integer

    Dim iLoop As Integer

    Dim strBinary As String

    Dim sBinary As String: sBinary = sBinary1



    iResult = 0

    strBinary = Replace$(sBinary, " ", "") ' Remove any spaces

    For iLoop = 0 To Len(strBinary) - 1

        iResult = iResult + 2 ^ iLoop * Val(Mid$(strBinary, Len(strBinary) - iLoop, 1))

    Next iLoop



    GetIntegerFromBinary% = iResult

End Function ' GetIntegerFromBinary%



' /////////////////////////////////////////////////////////////////////////////

' Returns _TRUE if value OriginalString$ is numeric.



' Re: Does a Is Number function exist in QB64?

' https://www.qb64.org/forum/index.php?topic=896.15



' Version 2 by madscijr

' Returns _TRUE (-1) if string is an integer, _FALSE (0) if not



' Version 1 by MWheatley

' Reply #18 on: January 01, 2019, 11:24:30 AM

' returns 1 if string is an integer, 0 if not



Function IsNumber% (OriginalString$)

    Dim bResult%: bResult% = _FALSE

    Dim iLoop%

    Dim TestString$

    'Dim bNegative%

    Dim iDecimalCount%

    Dim sNextChar$



    'THEY SHOULD TRIM OUTSIDE THE FUNCTION!

    'TestString$ = _TRIM$(OriginalString$)



    If Len(OriginalString$) > 0 Then

        TestString$ = ""

        If Left$(OriginalString$, 1) = "+" Then

            TestString$ = Right$(OriginalString$, Len(OriginalString$) - 1)

            'bNegative% = _FALSE

        ElseIf Left$(OriginalString$, 1) = "-" Then

            TestString$ = Right$(OriginalString$, Len(OriginalString$) - 1)

            'bNegative% = _TRUE

        Else

            TestString$ = OriginalString$

            'bNegative% = _FALSE

        End If

        If Len(TestString$) > 0 Then

            bResult% = _TRUE

            iDecimalCount% = 0

            For iLoop% = 1 To Len(TestString$)

                sNextChar$ = Mid$(TestString$, iLoop%, 1)

                If sNextChar$ = "." Then

                    iDecimalCount% = iDecimalCount% + 1

                    If iDecimalCount% > 1 Then

                        ' TOO MANY DECIMAL POINTS, INVALID!

                        bResult% = _FALSE

                        Exit For

                    End If

                ElseIf Asc(sNextChar$) < 48 Or Asc(sNextChar$) > 57 Then

                    ' NOT A NUMERAL OR A DECIMAL, INVALID!

                    bResult% = _FALSE

                    Exit For

                End If

            Next iLoop%

        End If

    End If

    IsNumber% = bResult%

End Function ' IsNumber%



' /////////////////////////////////////////////////////////////////////////////

' Generate random value between Min and Max.

Function RandomNumber% (Min%, Max%)

    Dim NumSpread%



    ' SET RANDOM SEED

    'Randomize ' Initialize random-number generator.

    Randomize Timer



    ' GET RANDOM # Min%-Max%

    'RandomNumber = Int((Max * Rnd) + Min) ' generate number



    NumSpread% = (Max% - Min%) + 1



    RandomNumber% = Int(Rnd * NumSpread%) + Min% ' GET RANDOM # BETWEEN Max% AND Min%

End Function ' RandomNumber%



' /////////////////////////////////////////////////////////////////////////////

' FROM: String Manipulation

' found at abandoned, outdated and now likely malicious qb64 dot net website

' http://www.qb64.[net]/forum/index_topic_5964-0/

'

'SUMMARY:

'   Purpose:  A library of custom functions that transform strings.

'   Author:   Dustinian Camburides (dustinian@gmail.com)

'   Platform: QB64 (www.qb64.org)

'   Revision: 1.6

'   Updated:  5/28/2012



'SUMMARY:

'[Replace$] replaces all instances of the [Find] sub-string with the [Add] sub-string within the [Text] string.

'INPUT:

'Text: The input string; the text that's being manipulated.

'Find: The specified sub-string; the string sought within the [Text] string.

'Add: The sub-string that's being added to the [Text] string.



Function Replace$ (Text1 As String, Find1 As String, Add1 As String)

    ' VARIABLES:

    Dim Text2 As String

    Dim Find2 As String

    Dim Add2 As String

    Dim lngLocation As Long ' The address of the [Find] substring within the [Text] string.

    Dim strBefore As String ' The characters before the string to be replaced.

    Dim strAfter As String ' The characters after the string to be replaced.



    ' INITIALIZE:

    ' MAKE COPIESSO THE ORIGINAL IS NOT MODIFIED (LIKE ByVal IN VBA)

    Text2 = Text1

    Find2 = Find1

    Add2 = Add1



    lngLocation = InStr(1, Text2, Find2)



    ' PROCESSING:

    ' While [Find2] appears in [Text2]...

    While lngLocation

        ' Extract all Text2 before the [Find2] substring:

        strBefore = Left$(Text2, lngLocation - 1)



        ' Extract all text after the [Find2] substring:

        strAfter = Right$(Text2, ((Len(Text2) - (lngLocation + Len(Find2) - 1))))



        ' Return the substring:

        Text2 = strBefore + Add2 + strAfter



        ' Locate the next instance of [Find2]:

        lngLocation = InStr(1, Text2, Find2)



        ' Next instance of [Find2]...

    Wend



    ' OUTPUT:

    Replace$ = Text2

End Function ' Replace$



' /////////////////////////////////////////////////////////////////////////////

' Split and join strings

' https://www.qb64.org/forum/index.php?topic=1073.0

'

' FROM luke, QB64 Developer

' Date: February 15, 2019, 04:11:07 AM »

'

' Given a string of words separated by spaces (or any other character),

' splits it into an array of the words. I've no doubt many people have

' written a version of this over the years and no doubt there's a million

' ways to do it, but I thought I'd put mine here so we have at least one

' version. There's also a join function that does the opposite

' array -> single string.

'

' Code is hopefully reasonably self explanatory with comments and a little demo.

' Note, this is akin to Python/JavaScript split/join, PHP explode/implode.



'Split in$ into pieces, chopping at every occurrence of delimiter$. Multiple consecutive occurrences

'of delimiter$ are treated as a single instance. The chopped pieces are stored in result$().

'

'delimiter$ must be one character long.

'result$() must have been REDIMmed previously.



' Modified to handle multi-character delimiters



Sub split (in$, delimiter$, result$())

    Dim start As Integer

    Dim finish As Integer

    Dim iDelimLen As Integer

    ReDim result$(-1)



    iDelimLen = Len(delimiter$)



    start = 1

    Do

        'While Mid$(in$, start, 1) = delimiter$

        While Mid$(in$, start, iDelimLen) = delimiter$

            'start = start + 1

            start = start + iDelimLen

            If start > Len(in$) Then

                Exit Sub

            End If

        Wend

        finish = InStr(start, in$, delimiter$)

        If finish = 0 Then

            finish = Len(in$) + 1

        End If



        ReDim _Preserve result$(0 To UBound(result$) + 1)



        result$(UBound(result$)) = Mid$(in$, start, finish - start)

        start = finish + 1

    Loop While start <= Len(in$)

End Sub ' split



' ################################################################################################################################################################

' END GENERAL PURPOSE ROUTINES @GEN

' ################################################################################################################################################################



' ################################################################################################################################################################

' BEGIN COLOR ARRAY FUNCTIONS #COLR

' ################################################################################################################################################################



' /////////////////////////////////////////////////////////////////////////////



Sub AddColor (ColorValue As _Unsigned Long, arrColor() As _Unsigned Long)

    ReDim _Preserve arrColor(0 To UBound(arrColor) + 1) As _Unsigned Long

    arrColor(UBound(arrColor)) = ColorValue

End Sub ' AddColor



' /////////////////////////////////////////////////////////////////////////////



Sub AddColors (ColorValue As _Unsigned Long, arrColor() As _Unsigned Long, HowMany As Long)

    Dim iLoop As Integer

    For iLoop = 1 To HowMany

        AddColor ColorValue, arrColor()

    Next iLoop

End Sub ' AddColors



' /////////////////////////////////////////////////////////////////////////////



Sub AddBgColors (arrColor() As _Unsigned Long)

    Dim iNum As Integer

    iNum = 1

    AddColors cRed, arrColor(), iNum

    AddColors cOrange, arrColor(), iNum

    AddColors cYellow, arrColor(), iNum

    AddColors cLime, arrColor(), iNum

    AddColors cCyan, arrColor(), iNum

    AddColors cBlue, arrColor(), iNum

    AddColors cPurple, arrColor(), iNum

    AddColors cBlack, arrColor(), iNum

    AddColors cGray, arrColor(), iNum

    AddColors cSilver, arrColor(), iNum

    AddColors cWhite, arrColor(), iNum

End Sub ' AddBgColors



' /////////////////////////////////////////////////////////////////////////////



Sub AddFgColors (arrColor() As _Unsigned Long)

    Dim iNum As Integer

    iNum = 1

    AddColors cRed, arrColor(), iNum

    AddColors cOrange, arrColor(), iNum

    AddColors cYellow, arrColor(), iNum

    AddColors cLime, arrColor(), iNum

    AddColors cCyan, arrColor(), iNum

    AddColors cBlue, arrColor(), iNum

    AddColors cPurple, arrColor(), iNum

    AddColors cBlack, arrColor(), iNum

    AddColors cGray, arrColor(), iNum

    AddColors cSilver, arrColor(), iNum

    AddColors cWhite, arrColor(), iNum

End Sub ' AddFgColors



' /////////////////////////////////////////////////////////////////////////////



Sub AddGrayscaleColors (arrColor() As _Unsigned Long)

    Dim iNum As Integer

    iNum = 1

    AddColors cDimGray, arrColor(), iNum

    AddColors cGray, arrColor(), iNum

    AddColors cDarkGray, arrColor(), iNum

    AddColors cSilver, arrColor(), iNum

    AddColors cLightGray, arrColor(), iNum

    AddColors cGainsboro, arrColor(), iNum

    AddColors cWhiteSmoke, arrColor(), iNum

    AddColors cWhite, arrColor(), iNum '* 2

    AddColors cWhiteSmoke, arrColor(), iNum

    AddColors cGainsboro, arrColor(), iNum

    AddColors cLightGray, arrColor(), iNum

    AddColors cSilver, arrColor(), iNum

    AddColors cDarkGray, arrColor(), iNum

    AddColors cGray, arrColor(), iNum

End Sub ' AddGrayscaleColors



' /////////////////////////////////////////////////////////////////////////////



Sub AddSpectrumColors (arrColor() As _Unsigned Long)

    Dim iNum As Integer

    iNum = 1

    AddColors cRed, arrColor(), iNum

    AddColors cOrangeRed, arrColor(), iNum

    AddColors cDarkOrange, arrColor(), iNum

    AddColors cOrange, arrColor(), iNum

    AddColors cGold, arrColor(), iNum

    AddColors cYellow, arrColor(), iNum

    AddColors cChartreuse, arrColor(), iNum

    AddColors cOliveDrab1, arrColor(), iNum

    AddColors cLime, arrColor(), iNum

    AddColors cMediumSpringGreen, arrColor(), iNum

    AddColors cSpringGreen, arrColor(), iNum

    AddColors cCyan, arrColor(), iNum

    AddColors cDeepSkyBlue, arrColor(), iNum

    AddColors cDodgerBlue, arrColor(), iNum

    AddColors cSeaBlue, arrColor(), iNum

    AddColors cBlue, arrColor(), iNum

    AddColors cBluePurple, arrColor(), iNum

    AddColors cDeepPurple, arrColor(), iNum

    AddColors cPurple, arrColor(), iNum

    AddColors cPurpleRed, arrColor(), iNum

    'AddColors cDarkRed, arrColor(), iNum

    'AddColors cBrickRed, arrColor(), iNum

    'AddColors cDarkGreen, arrColor(), iNum

    'AddColors cGreen, arrColor(), iNum

    'AddColors cOliveDrab, arrColor(), iNum

    'AddColors cLightPink, arrColor(), iNum

    'AddColors cHotPink, arrColor(), iNum

    'AddColors cDeepPink, arrColor(), iNum

    'AddColors cMagenta, arrColor(), iNum

    ''AddColors cBlack, arrColor(), iNum

    'AddColors cDimGray, arrColor(), iNum

    'AddColors cGray, arrColor(), iNum

    'AddColors cDarkGray, arrColor(), iNum

    'AddColors cSilver, arrColor(), iNum

    'AddColors cLightGray, arrColor(), iNum

    'AddColors cGainsboro, arrColor(), iNum

    'AddColors cWhiteSmoke, arrColor(), iNum

    'AddColors cWhite, arrColor(), iNum

    'AddColors cDarkBrown, arrColor(), iNum

    'AddColors cLightBrown, arrColor(), iNum

    'AddColors cKhaki, arrColor(), iNum

    ''AddColors cEmpty , arrColor(), iNum

End Sub ' AddSpectrumColors



' ################################################################################################################################################################

' END COLOR ARRAY FUNCTIONS @COLR

' ################################################################################################################################################################



' ################################################################################################################################################################

' BEGIN COLOR FUNCTIONS #COLOR

' ################################################################################################################################################################



Function cRed~& ()

    cRed = _RGB32(255, 0, 0)

End Function



Function cOrangeRed~& ()

    cOrangeRed = _RGB32(255, 69, 0)

End Function ' cOrangeRed~&



Function cDarkOrange~& ()

    cDarkOrange = _RGB32(255, 140, 0)

End Function ' cDarkOrange~&



Function cOrange~& ()

    cOrange = _RGB32(255, 165, 0)

End Function ' cOrange~&



Function cGold~& ()

    cGold = _RGB32(255, 215, 0)

End Function ' cGold~&



Function cYellow~& ()

    cYellow = _RGB32(255, 255, 0)

End Function ' cYellow~&



' LONG-HAIRED FRIENDS OF JESUS OR NOT,

' THIS IS NOT YELLOW ENOUGH (TOO CLOSE TO LIME)

' TO USE FOR OUR COMPLEX RAINBOW SEQUENCE:

Function cChartreuse~& ()

    cChartreuse = _RGB32(127, 255, 0)

End Function ' cChartreuse~&



' WE SUBSTITUTE THIS CSS3 COLOR FOR INBETWEEN LIME AND YELLOW:

Function cOliveDrab1~& ()

    cOliveDrab1 = _RGB32(192, 255, 62)

End Function ' cOliveDrab1~&



Function cLime~& ()

    cLime = _RGB32(0, 255, 0)

End Function ' cLime~&



Function cMediumSpringGreen~& ()

    cMediumSpringGreen = _RGB32(0, 250, 154)

End Function ' cMediumSpringGreen~&



' ADDED THIS FOR THE GAUGE COLOR:

Function cSpringGreen~& ()

    cSpringGreen = _RGB32(0, 255, 160)

End Function ' cSpringGreen~&



Function cCyan~& ()

    cCyan = _RGB32(0, 255, 255)

End Function ' cCyan~&



Function cDeepSkyBlue~& ()

    cDeepSkyBlue = _RGB32(0, 191, 255)

End Function ' cDeepSkyBlue~&



Function cDodgerBlue~& ()

    cDodgerBlue = _RGB32(30, 144, 255)

End Function ' cDodgerBlue~&



Function cSeaBlue~& ()

    cSeaBlue = _RGB32(0, 64, 255)

End Function ' cSeaBlue~&



Function cBlue~& ()

    cBlue = _RGB32(0, 0, 255)

End Function ' cBlue~&



Function cBluePurple~& ()

    cBluePurple = _RGB32(64, 0, 255)

End Function ' cBluePurple~&



Function cDeepPurple~& ()

    cDeepPurple = _RGB32(96, 0, 255)

End Function ' cDeepPurple~&



Function cPurple~& ()

    cPurple = _RGB32(128, 0, 255)

End Function ' cPurple~&



Function cPurpleRed~& ()

    cPurpleRed = _RGB32(128, 0, 192)

End Function ' cPurpleRed~&



Function cDarkRed~& ()

    cDarkRed = _RGB32(160, 0, 64)

End Function ' cDarkRed~&



Function cBrickRed~& ()

    cBrickRed = _RGB32(192, 0, 32)

End Function ' cBrickRed~&



Function cDarkGreen~& ()

    cDarkGreen = _RGB32(0, 100, 0)

End Function ' cDarkGreen~&



Function cGreen~& ()

    cGreen = _RGB32(0, 128, 0)

End Function ' cGreen~&



Function cOliveDrab~& ()

    cOliveDrab = _RGB32(107, 142, 35)

End Function ' cOliveDrab~&



Function cLightPink~& ()

    cLightPink = _RGB32(255, 182, 193)

End Function ' cLightPink~&



Function cHotPink~& ()

    cHotPink = _RGB32(255, 105, 180)

End Function ' cHotPink~&



Function cDeepPink~& ()

    cDeepPink = _RGB32(255, 20, 147)

End Function ' cDeepPink~&



Function cMagenta~& ()

    cMagenta = _RGB32(255, 0, 255)

End Function ' cMagenta~&



Function cBlack~& ()

    cBlack = _RGB32(0, 0, 0)

End Function ' cBlack~&



Function cDimGray~& ()

    cDimGray = _RGB32(105, 105, 105)

End Function ' cDimGray~&



Function cGray~& ()

    cGray = _RGB32(128, 128, 128)

End Function ' cGray~&



Function cDarkGray~& ()

    cDarkGray = _RGB32(169, 169, 169)

End Function ' cDarkGray~&



Function cSilver~& ()

    cSilver = _RGB32(192, 192, 192)

End Function ' cSilver~&



Function cLightGray~& ()

    cLightGray = _RGB32(211, 211, 211)

End Function ' cLightGray~&



Function cGainsboro~& ()

    cGainsboro = _RGB32(220, 220, 220)

End Function ' cGainsboro~&



Function cWhiteSmoke~& ()

    cWhiteSmoke = _RGB32(245, 245, 245)

End Function ' cWhiteSmoke~&



Function cWhite~& ()

    cWhite = _RGB32(255, 255, 255)

End Function ' cWhite~&



Function cDarkBrown~& ()

    cDarkBrown = _RGB32(128, 64, 0)

End Function ' cDarkBrown~&



Function cLightBrown~& ()

    cLightBrown = _RGB32(196, 96, 0)

End Function ' cLightBrown~&



Function cKhaki~& ()

    cKhaki = _RGB32(240, 230, 140)

End Function ' cKhaki~&



Function cEmpty~& ()

    cEmpty = _RGB32(0, 0, 0, 0)

End Function ' cEmpty~&



' ################################################################################################################################################################

' END COLOR FUNCTIONS @COLOR

' ################################################################################################################################################################



' ################################################################################################################################################################

' BEGIN TILE DEFINITIONS #TILE

' ################################################################################################################################################################



' /////////////////////////////////////////////////////////////////////////////



Function GetTiles$ (arrFontData%())

    Const cHEIGHT = 8

    Const cWIDTH = 8



    Dim RoutineName As String: RoutineName = "GetTiles$"

    Dim sError As String: sError = ""

    ReDim arrTileText(0 To 255) As String

    Dim iTileNum As Integer

    ReDim arrLines(-1) As String

    Dim iFromX As Integer

    Dim iFromY As Integer

    Dim sLine As String

    Dim sChar As String

    Dim sBinary As String

    Dim iValue As Integer

    Dim iLine As Integer

    Dim ub%, lb%



    If Len(sError) = 0 Then

        ReDim arrFontData%(0 To 255, 0 To 7)

        GetTileText arrTileText()

        lb% = LBound(arrTileText)

        ub% = UBound(arrTileText)

        If lb% <> 0 Or ub% <> 255 Then

            sError = "GetTileText returned array with invalid boundaries " + _

                "(" + _

                _TRIM$(str$( lb% )) + _

                " - " +_

                _TRIM$(str$( ub% )) + _

                ")"

        End If

    End If



    If Len(sError) = 0 Then

        For iTileNum = 0 To 255

            split arrTileText(iTileNum), Chr$(13), arrLines()

            iLine = 0

            For iFromY = LBound(arrLines) To UBound(arrLines)

                sLine = arrLines(iFromY)

                If Len(sLine) > 0 Then

                    sBinary = ""

                    For iFromX = 1 To Len(sLine)

                        sChar = Mid$(sLine, iFromX, 1)

                        If sChar = "." Then

                            sBinary = sBinary + "0"

                        Else

                            sBinary = sBinary + "1"

                        End If

                    Next iFromX

                    If Len(sBinary) = 8 Then

                        iValue = GetIntegerFromBinary%(sBinary)

                        arrFontData%(iTileNum, iLine) = iValue

                    Else

                        iLine = iLine + 1

                        sError = "Invalid data for tile " + _Trim$(Str$(iTileNum)) + " at line " + _Trim$(Str$(iLine))

                        Exit For

                    End If

                    iLine = iLine + 1

                    If iLine > 7 Then Exit For

                End If

            Next iFromY

            If Len(sError) > 0 Then Exit For

        Next iTileNum

    End If



    GetTiles$ = sError

End Function ' GetTiles$



' /////////////////////////////////////////////////////////////////////////////



Sub GetTileText (arrTileText() As String)

    ReDim arrTileText(0 To 255) As String



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(0) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(1) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(2) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(3) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(4) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(5) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(6) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(7) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(8) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(9) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(10) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(11) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(12) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(13) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(14) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(15) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(16) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(17) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(18) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(19) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(20) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(21) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(22) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(23) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(24) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(25) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(26) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(27) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(28) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(29) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(30) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(31) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(32) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(33) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(34) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(35) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(36) = m$



    m$ = ""

    m$ = m$ + ".22...2." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".2...22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(37) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + ".22..222" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(38) = m$



    m$ = ""

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(39) = m$



    m$ = ""

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(40) = m$



    m$ = ""

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(41) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(42) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(43) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    arrTileText(44) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(45) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(46) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(47) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22.222." + Chr$(13)

    m$ = m$ + ".222.22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(48) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(49) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(50) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(51) = m$



    m$ = ""

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "...2222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(52) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(53) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(54) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(55) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(56) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(57) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(58) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    arrTileText(59) = m$



    m$ = ""

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(60) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(61) = m$



    m$ = ""

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(62) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(63) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22.222." + Chr$(13)

    m$ = m$ + ".22.222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22...2." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(64) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(65) = m$



    m$ = ""

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(66) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(67) = m$



    m$ = ""

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(68) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(69) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(70) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22.222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(71) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(72) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(73) = m$



    m$ = ""

    m$ = m$ + "...2222." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(74) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(75) = m$



    m$ = ""

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(76) = m$



    m$ = ""

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".222.222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".22.2.22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(77) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".222.22." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22.222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(78) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(79) = m$



    m$ = ""

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(80) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(81) = m$



    m$ = ""

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(82) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(83) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(84) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(85) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(86) = m$



    m$ = ""

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22.2.22" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".222.222" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(87) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(88) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(89) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(90) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(91) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(92) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(93) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(94) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(95) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(96) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(97) = m$



    m$ = ""

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(98) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(99) = m$



    m$ = ""

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(100) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(101) = m$



    m$ = ""

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(102) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(103) = m$



    m$ = ""

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(104) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(105) = m$



    m$ = ""

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(106) = m$



    m$ = ""

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(107) = m$



    m$ = ""

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(108) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".22.2.22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(109) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(110) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(111) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(112) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(113) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(114) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(115) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(116) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(117) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(118) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22.2.22" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "..22.22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(119) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(120) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(121) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(122) = m$



    m$ = ""

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..2....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2....." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(123) = m$



    m$ = ""

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(124) = m$



    m$ = ""

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + ".....2.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....2.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(125) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22....2" + Chr$(13)

    m$ = m$ + "2..2..2." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(126) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(127) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(128) = m$



    m$ = ""

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(129) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(130) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(131) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(132) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(133) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(134) = m$



    m$ = ""

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    arrTileText(135) = m$



    m$ = ""

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    arrTileText(136) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(137) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(138) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(139) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(140) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(141) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(142) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(143) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(144) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(145) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(146) = m$



    m$ = ""

    m$ = m$ + "..22.22." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(147) = m$



    m$ = ""

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    arrTileText(148) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(149) = m$



    m$ = ""

    m$ = m$ + "22....22" + Chr$(13)

    m$ = m$ + "222..222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "222..222" + Chr$(13)

    m$ = m$ + "22....22" + Chr$(13)

    arrTileText(150) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(151) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(152) = m$



    m$ = ""

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    arrTileText(153) = m$



    m$ = ""

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(154) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(155) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    arrTileText(156) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(157) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".222.22." + Chr$(13)

    m$ = m$ + "..22.22." + Chr$(13)

    m$ = m$ + "..22.22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(158) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "..222222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + ".......2" + Chr$(13)

    arrTileText(159) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(160) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    arrTileText(161) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(162) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(163) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(164) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(165) = m$



    m$ = ""

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    arrTileText(166) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(167) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    arrTileText(168) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "2222222." + Chr$(13)

    m$ = m$ + "222222.." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "2......." + Chr$(13)

    arrTileText(169) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(170) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(171) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    arrTileText(172) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(173) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(174) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(175) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(176) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(177) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(178) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(179) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(180) = m$



    m$ = ""

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    arrTileText(181) = m$



    m$ = ""

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    arrTileText(182) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(183) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(184) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(185) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(186) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    arrTileText(187) = m$



    m$ = ""

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(188) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(189) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(190) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    arrTileText(191) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    arrTileText(192) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    arrTileText(193) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(194) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(195) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(196) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".....2.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....2.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(197) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(198) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + "2.2..2.2" + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + "2.2..2.2" + Chr$(13)

    m$ = m$ + "2.2222.2" + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(199) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + "2.2..2.2" + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + "2.2222.2" + Chr$(13)

    m$ = m$ + "2.2..2.2" + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(200) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(201) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(202) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(203) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    arrTileText(204) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(205) = m$



    m$ = ""

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    arrTileText(206) = m$



    m$ = ""

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "2..22..2" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "2..22..2" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    arrTileText(207) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(208) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    arrTileText(209) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(210) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(211) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(212) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(213) = m$



    m$ = ""

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    arrTileText(214) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(215) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    arrTileText(216) = m$



    m$ = ""

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "2..22..2" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "2..22..2" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    arrTileText(217) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(218) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(219) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    arrTileText(220) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(221) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(222) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(223) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(224) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(225) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(226) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(227) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(228) = m$



    m$ = ""

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    arrTileText(229) = m$



    m$ = ""

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    arrTileText(230) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(231) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(232) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(233) = m$



    m$ = ""

    m$ = m$ + ".......2" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(234) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    arrTileText(235) = m$



    m$ = ""

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(236) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(237) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(238) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    arrTileText(239) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(240) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(241) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(242) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(243) = m$



    m$ = ""

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "...2.2.." + Chr$(13)

    m$ = m$ + "..2...2." + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + "...2.2.." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(244) = m$



    m$ = ""

    m$ = m$ + "..22.22." + Chr$(13)

    m$ = m$ + ".2..2..2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + "..2...2." + Chr$(13)

    m$ = m$ + "...2.2.." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(245) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(246) = m$



    m$ = ""

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "...2.2.." + Chr$(13)

    m$ = m$ + "..2...2." + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + "..2...2." + Chr$(13)

    m$ = m$ + "...2.2.." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(247) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "2222.222" + Chr$(13)

    m$ = m$ + "222..222" + Chr$(13)

    m$ = m$ + "2222.222" + Chr$(13)

    m$ = m$ + "2222.222" + Chr$(13)

    m$ = m$ + "2222.222" + Chr$(13)

    m$ = m$ + "222...22" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(248) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(249) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "222..222" + Chr$(13)

    m$ = m$ + "22.22.22" + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + "2222.222" + Chr$(13)

    m$ = m$ + "222.2222" + Chr$(13)

    m$ = m$ + "22....22" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(250) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(251) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "2....222" + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + "22...222" + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + "2....222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(252) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(253) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + "2222..22" + Chr$(13)

    m$ = m$ + "222.2.22" + Chr$(13)

    m$ = m$ + "22.22.22" + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(254) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(255) = m$



End Sub ' GetTileText



' ################################################################################################################################################################

' END TILE DEFINITIONS @TILE

' ################################################################################################################################################################

If you look down at line 25 you'll see my basic modification:

Code: (Select All)

For i = 128 To 255

    _MapUnicode i To i

Next

$Resize:Stretch

I used the $RESIZE so I could stretch the screen as large as possible to actually be able to see what the BLEEP was being printed on it in those tiny little characters on my laptop.

[madscijr]

Wow, that's interesting. Thanks for your help! 

So we just do a map unicode at the beginning of running the program and we're done? I haven't played with code page graphics, interesting stuff! 

(Sorry if the small screen size hurt your eyes, LoL. I should probably have just done 640x480 fullscreen.)

Thanks again!

[SMcNeill]

Either mapunicode as above, you change your font info in the bed file to match the Unicode values in QB64.

For example, I think your font file has something like:

PRINT #1, "ENCODING " + STR$(iChar)

Change that to something like:

PRINT #1, "ENCODING" + STR$(_UNICODE(iCode))

[madscijr]

I like writing the right value to the BDF file to begin with, since it saves having to take the extra step later. I'll give that a try... thanks for the suggestion!

[SMcNeill]

STARTCHR should probably be "U+" + HEX$(_MAPUNICODE(iCode)), so similar.

---

If it was at home and not on my iPad, I'd test it myself for you.  

[SMcNeill]

Try this and see how it does:

Code: (Select All)

' BASIC PROGRAM METADATA

Dim Shared m_ProgramPath$: m_ProgramPath$ = Left$(Command$(0), _InStrRev(Command$(0), "\"))

Dim Shared m_ProgramName$: m_ProgramName$ = Mid$(Command$(0), _InStrRev(Command$(0), "\") + 1)



' GLOBAL VARIABLES

Dim Shared m_iScreenWidth As Long: m_iScreenWidth = 800 ' _DesktopWidth

Dim Shared m_iScreenHeight As Long: m_iScreenHeight = 600 ' _DesktopHeight



' TEST FONT

Dim sError As String: sError = ""

Dim FontFilename$: FontFilename$ = "myfont.bdf"

Dim FontHandle&

Dim style$

Dim iFontHeight%: iFontHeight% = 8

Dim iLoop As Integer

Dim iColorFG As Integer

Dim iColorBG As Integer

ReDim arrTileText(0 To 255) As String

Dim in$

ReDim arrLine$(-1)

Dim iLine As Integer

Dim iChar As Integer

Dim iRow As Integer



' LOOK FOR FONT FILE

If Len(sError) = 0 Then

    ' IF FONT FILE NOT FOUND, CREATE IT

    If _FileExists(m_ProgramPath$ + FontFilename$) = _FALSE Then

        sError = CreateBDF$(m_ProgramPath$ + FontFilename$)

    End If

End If



' SET FONT

If Len(sError) = 0 Then

    style$ = "monospace" ' font style is not case sensitive

    FontHandle& = _LoadFont(m_ProgramPath$ + FontFilename$, iFontHeight%, style$)

    If FontHandle& > 0 Then

        ' INIT SCREEN

        Screen _NewImage(m_iScreenWidth, m_iScreenHeight, 32)

        _ScreenMove 0, 0

        Cls , cBlack



        ' SELECT FONT

        _Font FontHandle&



        ' LOAD CHARACTERS TEXT REPRESENTATION

        GetTileText arrTileText()

        Color cCyan, cBlack

        Print "Font " + Chr$(34) + FontFilename$ + Chr$(34) + " loaded:"

        Print



        ' OUTPUT CHARACTERS

        Do

            For iLoop = 33 To 255

                Color cWhite, cBlack: Print "chr$(" + _Trim$(Str$(iLoop)) + ") = ";

                Color cBlack, cWhite: Print Chr$(iLoop);

                Color cCyan, cBlack: Print

                Print: Print "Expected:": Print

                'print arrTileText(iLoop)

                Color cGray, cBlack

                Print " 12345678"

                split arrTileText(iLoop), Chr$(13), arrLine$()

                iRow = 0

                For iLine = LBound(arrLine$) To UBound(arrLine$)

                    iRow = iRow + 1: Color cGray, cBlack: Print _Trim$(Str$(iRow));

                    If Len(arrLine$(iLine)) > 0 Then

                        For iChar = 1 To Len(arrLine$(iLine))

                            If Mid$(arrLine$(iLine), iChar, 1) = "." Then

                                Color cWhite, cWhite

                                Print " ";

                            Else

                                Color cBlack, cBlack

                                Print " ";

                            End If

                            Color cCyan, cBlack

                        Next iChar

                        Print

                    End If

                Next iLine



                Color cCyan, cBlack

                Print

                Print "PRESS ANY KEY TO CONTINUE";

                Sleep: _KeyClear: Print: Print

            Next iLoop



            Print

            Input "FINISHED, START OVER (Y/N)?"; in$

            in$ = LCase$(Left$(_Trim$(in$), 1))

            If in$ <> "y" Then Exit Do

        Loop



        ' GO BACK TO DEFAULT FONT AND ERASE FONT HANDLE

        _Font 16

        If FontHandle& > 0 Then _FreeFont FontHandle&

    Else

        sError = "FontHandle& = " + _Trim$(Str$(FontHandle&))

    End If

End If



' SHOW ERRORS

If Len(sError) <> 0 Then

    Print sError

End If



' FINISH

Print m_ProgramName$ + " finished."

End



' ################################################################################################################################################################

' BEGIN BDF FONT ROUTINES #BDF

' ################################################################################################################################################################



' /////////////////////////////////////////////////////////////////////////////

' Converts a 2D array representing a bitmap font to a BDF font file.

' For more info on the BDF format, see:

'   Glyph Bitmap Distribution Format - Wikipedia

'   https://en.wikipedia.org/wiki/Glyph_Bitm...ion_Format



Function CreateBDF$ (FontFilename$)

    ReDim arrFontData(255, 7) As Integer ' 256 characters, 8 rows (y)

    Dim iChar As Integer

    Dim iRow As Integer

    Dim sError As String: sError = ""



    If Len(sError) = 0 Then

        sError = GetTiles$(arrFontData())

    End If



    If Len(sError) = 0 Then

        SaveBDF arrFontData(), FontFilename$

    End If



    CreateBDF$ = sError

End Function ' CreateBDF$



' /////////////////////////////////////////////////////////////////////////////



Sub SaveBDF (arrFontData%(), filename$)

    Open filename$ For Output As #1

    Dim iChar As Integer

    Dim iRow As Integer



    ' --- BDF Header ---

    Print #1, "STARTFONT 2.1"

    Print #1, "FONT -My-Font-Regular-R-Normal--8-80-75-75-P-80-ISO8859-1"

    Print #1, "SIZE 8 75 75"

    Print #1, "FONTBOUNDINGBOX 8 8 0 0"

    Print #1, "STARTPROPERTIES 2"

    Print #1, "FONT_ASCENT 8"

    Print #1, "FONT_DESCENT 0"

    Print #1, "ENDPROPERTIES"

    Print #1, "CHARS 256"



    ' --- Character Definitions ---

    For iChar = 0 To 255

        Print #1, "STARTCHAR U+" + Right$("0000" + Hex$(_MapUnicode(iChar)), 4)

        Print #1, "ENCODING " + LTrim$(Str$(_MapUnicode(iChar)))

        Print #1, "SWIDTH 500 0"

        Print #1, "DWIDTH 8 0"

        Print #1, "BBX 8 8 0 0"

        Print #1, "BITMAP"

        For iRow = 0 To 7

            ' Convert integer iRow to hexadecimal string

            hexString$ = ""

            rowValue = arrFontData%(iChar, iRow)

            hexString$ = LTrim$(Hex$(rowValue))

            If Len(hexString$) = 1 Then hexString$ = "0" + hexString$ ' Pad to two hex digits

            Print #1, hexString$

        Next iRow

        Print #1, "ENDCHAR"

    Next iChar



    ' --- BDF Footer ---

    Print #1, "ENDFONT"

    Close #1

End Sub ' SaveBDF



' ################################################################################################################################################################

' END BDF FONT ROUTINES @BDF

' ################################################################################################################################################################



' ################################################################################################################################################################

' BEGIN GENERAL PURPOSE ROUTINES #GEN

' ################################################################################################################################################################



' /////////////////////////////////////////////////////////////////////////////

' Convert a value to string and trim it (because normal Str$ adds spaces)



Function cstr$ (myValue)

    'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))

    cstr$ = _Trim$(Str$(myValue))

End Function ' cstr$



' /////////////////////////////////////////////////////////////////////////////

' From: Bitwise Manipulations By Steven Roman

' http://www.romanpress.com/Articles/Bitwi...itwise.htm



' Returns the 8-bit binary representation

' of an integer iInput where 0 <= iInput <= 255



Function GetBinary$ (iInput1 As Integer)

    Dim sResult As String

    Dim iLoop As Integer

    Dim iInput As Integer: iInput = iInput1



    sResult = ""



    If iInput >= 0 And iInput <= 255 Then

        For iLoop = 1 To 8

            sResult = LTrim$(RTrim$(Str$(iInput Mod 2))) + sResult

            iInput = iInput \ 2

            'If iLoop = 4 Then sResult = " " + sResult

        Next iLoop

    End If



    GetBinary$ = sResult

End Function ' GetBinary$



' /////////////////////////////////////////////////////////////////////////////

' From: Bitwise Manipulations By Steven Roman

' http://www.romanpress.com/Articles/Bitwi...itwise.htm



' Returns the integer that corresponds to a binary string of length 8



Function GetIntegerFromBinary% (sBinary1 As String)

    Dim iResult As Integer

    Dim iLoop As Integer

    Dim strBinary As String

    Dim sBinary As String: sBinary = sBinary1



    iResult = 0

    strBinary = Replace$(sBinary, " ", "") ' Remove any spaces

    For iLoop = 0 To Len(strBinary) - 1

        iResult = iResult + 2 ^ iLoop * Val(Mid$(strBinary, Len(strBinary) - iLoop, 1))

    Next iLoop



    GetIntegerFromBinary% = iResult

End Function ' GetIntegerFromBinary%



' /////////////////////////////////////////////////////////////////////////////

' Returns _TRUE if value OriginalString$ is numeric.



' Re: Does a Is Number function exist in QB64?

' https://www.qb64.org/forum/index.php?topic=896.15



' Version 2 by madscijr

' Returns _TRUE (-1) if string is an integer, _FALSE (0) if not



' Version 1 by MWheatley

' Reply #18 on: January 01, 2019, 11:24:30 AM

' returns 1 if string is an integer, 0 if not



Function IsNumber% (OriginalString$)

    Dim bResult%: bResult% = _FALSE

    Dim iLoop%

    Dim TestString$

    'Dim bNegative%

    Dim iDecimalCount%

    Dim sNextChar$



    'THEY SHOULD TRIM OUTSIDE THE FUNCTION!

    'TestString$ = _TRIM$(OriginalString$)



    If Len(OriginalString$) > 0 Then

        TestString$ = ""

        If Left$(OriginalString$, 1) = "+" Then

            TestString$ = Right$(OriginalString$, Len(OriginalString$) - 1)

            'bNegative% = _FALSE

        ElseIf Left$(OriginalString$, 1) = "-" Then

            TestString$ = Right$(OriginalString$, Len(OriginalString$) - 1)

            'bNegative% = _TRUE

        Else

            TestString$ = OriginalString$

            'bNegative% = _FALSE

        End If

        If Len(TestString$) > 0 Then

            bResult% = _TRUE

            iDecimalCount% = 0

            For iLoop% = 1 To Len(TestString$)

                sNextChar$ = Mid$(TestString$, iLoop%, 1)

                If sNextChar$ = "." Then

                    iDecimalCount% = iDecimalCount% + 1

                    If iDecimalCount% > 1 Then

                        ' TOO MANY DECIMAL POINTS, INVALID!

                        bResult% = _FALSE

                        Exit For

                    End If

                ElseIf Asc(sNextChar$) < 48 Or Asc(sNextChar$) > 57 Then

                    ' NOT A NUMERAL OR A DECIMAL, INVALID!

                    bResult% = _FALSE

                    Exit For

                End If

            Next iLoop%

        End If

    End If

    IsNumber% = bResult%

End Function ' IsNumber%



' /////////////////////////////////////////////////////////////////////////////

' Generate random value between Min and Max.

Function RandomNumber% (Min%, Max%)

    Dim NumSpread%



    ' SET RANDOM SEED

    'Randomize ' Initialize random-number generator.

    Randomize Timer



    ' GET RANDOM # Min%-Max%

    'RandomNumber = Int((Max * Rnd) + Min) ' generate number



    NumSpread% = (Max% - Min%) + 1



    RandomNumber% = Int(Rnd * NumSpread%) + Min% ' GET RANDOM # BETWEEN Max% AND Min%

End Function ' RandomNumber%



' /////////////////////////////////////////////////////////////////////////////

' FROM: String Manipulation

' found at abandoned, outdated and now likely malicious qb64 dot net website

' http://www.qb64.[net]/forum/index_topic_5964-0/

'

'SUMMARY:

'   Purpose:  A library of custom functions that transform strings.

'   Author:   Dustinian Camburides (dustinian@gmail.com)

'   Platform: QB64 (www.qb64.org)

'   Revision: 1.6

'   Updated:  5/28/2012



'SUMMARY:

'[Replace$] replaces all instances of the [Find] sub-string with the [Add] sub-string within the [Text] string.

'INPUT:

'Text: The input string; the text that's being manipulated.

'Find: The specified sub-string; the string sought within the [Text] string.

'Add: The sub-string that's being added to the [Text] string.



Function Replace$ (Text1 As String, Find1 As String, Add1 As String)

    ' VARIABLES:

    Dim Text2 As String

    Dim Find2 As String

    Dim Add2 As String

    Dim lngLocation As Long ' The address of the [Find] substring within the [Text] string.

    Dim strBefore As String ' The characters before the string to be replaced.

    Dim strAfter As String ' The characters after the string to be replaced.



    ' INITIALIZE:

    ' MAKE COPIESSO THE ORIGINAL IS NOT MODIFIED (LIKE ByVal IN VBA)

    Text2 = Text1

    Find2 = Find1

    Add2 = Add1



    lngLocation = InStr(1, Text2, Find2)



    ' PROCESSING:

    ' While [Find2] appears in [Text2]...

    While lngLocation

        ' Extract all Text2 before the [Find2] substring:

        strBefore = Left$(Text2, lngLocation - 1)



        ' Extract all text after the [Find2] substring:

        strAfter = Right$(Text2, ((Len(Text2) - (lngLocation + Len(Find2) - 1))))



        ' Return the substring:

        Text2 = strBefore + Add2 + strAfter



        ' Locate the next instance of [Find2]:

        lngLocation = InStr(1, Text2, Find2)



        ' Next instance of [Find2]...

    Wend



    ' OUTPUT:

    Replace$ = Text2

End Function ' Replace$



' /////////////////////////////////////////////////////////////////////////////

' Split and join strings

' https://www.qb64.org/forum/index.php?topic=1073.0

'

' FROM luke, QB64 Developer

' Date: February 15, 2019, 04:11:07 AM »

'

' Given a string of words separated by spaces (or any other character),

' splits it into an array of the words. I've no doubt many people have

' written a version of this over the years and no doubt there's a million

' ways to do it, but I thought I'd put mine here so we have at least one

' version. There's also a join function that does the opposite

' array -> single string.

'

' Code is hopefully reasonably self explanatory with comments and a little demo.

' Note, this is akin to Python/JavaScript split/join, PHP explode/implode.



'Split in$ into pieces, chopping at every occurrence of delimiter$. Multiple consecutive occurrences

'of delimiter$ are treated as a single instance. The chopped pieces are stored in result$().

'

'delimiter$ must be one character long.

'result$() must have been REDIMmed previously.



' Modified to handle multi-character delimiters



Sub split (in$, delimiter$, result$())

    Dim start As Integer

    Dim finish As Integer

    Dim iDelimLen As Integer

    ReDim result$(-1)



    iDelimLen = Len(delimiter$)



    start = 1

    Do

        'While Mid$(in$, start, 1) = delimiter$

        While Mid$(in$, start, iDelimLen) = delimiter$

            'start = start + 1

            start = start + iDelimLen

            If start > Len(in$) Then

                Exit Sub

            End If

        Wend

        finish = InStr(start, in$, delimiter$)

        If finish = 0 Then

            finish = Len(in$) + 1

        End If



        ReDim _Preserve result$(0 To UBound(result$) + 1)



        result$(UBound(result$)) = Mid$(in$, start, finish - start)

        start = finish + 1

    Loop While start <= Len(in$)

End Sub ' split



' ################################################################################################################################################################

' END GENERAL PURPOSE ROUTINES @GEN

' ################################################################################################################################################################



' ################################################################################################################################################################

' BEGIN COLOR ARRAY FUNCTIONS #COLR

' ################################################################################################################################################################



' /////////////////////////////////////////////////////////////////////////////



Sub AddColor (ColorValue As _Unsigned Long, arrColor() As _Unsigned Long)

    ReDim _Preserve arrColor(0 To UBound(arrColor) + 1) As _Unsigned Long

    arrColor(UBound(arrColor)) = ColorValue

End Sub ' AddColor



' /////////////////////////////////////////////////////////////////////////////



Sub AddColors (ColorValue As _Unsigned Long, arrColor() As _Unsigned Long, HowMany As Long)

    Dim iLoop As Integer

    For iLoop = 1 To HowMany

        AddColor ColorValue, arrColor()

    Next iLoop

End Sub ' AddColors



' /////////////////////////////////////////////////////////////////////////////



Sub AddBgColors (arrColor() As _Unsigned Long)

    Dim iNum As Integer

    iNum = 1

    AddColors cRed, arrColor(), iNum

    AddColors cOrange, arrColor(), iNum

    AddColors cYellow, arrColor(), iNum

    AddColors cLime, arrColor(), iNum

    AddColors cCyan, arrColor(), iNum

    AddColors cBlue, arrColor(), iNum

    AddColors cPurple, arrColor(), iNum

    AddColors cBlack, arrColor(), iNum

    AddColors cGray, arrColor(), iNum

    AddColors cSilver, arrColor(), iNum

    AddColors cWhite, arrColor(), iNum

End Sub ' AddBgColors



' /////////////////////////////////////////////////////////////////////////////



Sub AddFgColors (arrColor() As _Unsigned Long)

    Dim iNum As Integer

    iNum = 1

    AddColors cRed, arrColor(), iNum

    AddColors cOrange, arrColor(), iNum

    AddColors cYellow, arrColor(), iNum

    AddColors cLime, arrColor(), iNum

    AddColors cCyan, arrColor(), iNum

    AddColors cBlue, arrColor(), iNum

    AddColors cPurple, arrColor(), iNum

    AddColors cBlack, arrColor(), iNum

    AddColors cGray, arrColor(), iNum

    AddColors cSilver, arrColor(), iNum

    AddColors cWhite, arrColor(), iNum

End Sub ' AddFgColors



' /////////////////////////////////////////////////////////////////////////////



Sub AddGrayscaleColors (arrColor() As _Unsigned Long)

    Dim iNum As Integer

    iNum = 1

    AddColors cDimGray, arrColor(), iNum

    AddColors cGray, arrColor(), iNum

    AddColors cDarkGray, arrColor(), iNum

    AddColors cSilver, arrColor(), iNum

    AddColors cLightGray, arrColor(), iNum

    AddColors cGainsboro, arrColor(), iNum

    AddColors cWhiteSmoke, arrColor(), iNum

    AddColors cWhite, arrColor(), iNum '* 2

    AddColors cWhiteSmoke, arrColor(), iNum

    AddColors cGainsboro, arrColor(), iNum

    AddColors cLightGray, arrColor(), iNum

    AddColors cSilver, arrColor(), iNum

    AddColors cDarkGray, arrColor(), iNum

    AddColors cGray, arrColor(), iNum

End Sub ' AddGrayscaleColors



' /////////////////////////////////////////////////////////////////////////////



Sub AddSpectrumColors (arrColor() As _Unsigned Long)

    Dim iNum As Integer

    iNum = 1

    AddColors cRed, arrColor(), iNum

    AddColors cOrangeRed, arrColor(), iNum

    AddColors cDarkOrange, arrColor(), iNum

    AddColors cOrange, arrColor(), iNum

    AddColors cGold, arrColor(), iNum

    AddColors cYellow, arrColor(), iNum

    AddColors cChartreuse, arrColor(), iNum

    AddColors cOliveDrab1, arrColor(), iNum

    AddColors cLime, arrColor(), iNum

    AddColors cMediumSpringGreen, arrColor(), iNum

    AddColors cSpringGreen, arrColor(), iNum

    AddColors cCyan, arrColor(), iNum

    AddColors cDeepSkyBlue, arrColor(), iNum

    AddColors cDodgerBlue, arrColor(), iNum

    AddColors cSeaBlue, arrColor(), iNum

    AddColors cBlue, arrColor(), iNum

    AddColors cBluePurple, arrColor(), iNum

    AddColors cDeepPurple, arrColor(), iNum

    AddColors cPurple, arrColor(), iNum

    AddColors cPurpleRed, arrColor(), iNum

    'AddColors cDarkRed, arrColor(), iNum

    'AddColors cBrickRed, arrColor(), iNum

    'AddColors cDarkGreen, arrColor(), iNum

    'AddColors cGreen, arrColor(), iNum

    'AddColors cOliveDrab, arrColor(), iNum

    'AddColors cLightPink, arrColor(), iNum

    'AddColors cHotPink, arrColor(), iNum

    'AddColors cDeepPink, arrColor(), iNum

    'AddColors cMagenta, arrColor(), iNum

    ''AddColors cBlack, arrColor(), iNum

    'AddColors cDimGray, arrColor(), iNum

    'AddColors cGray, arrColor(), iNum

    'AddColors cDarkGray, arrColor(), iNum

    'AddColors cSilver, arrColor(), iNum

    'AddColors cLightGray, arrColor(), iNum

    'AddColors cGainsboro, arrColor(), iNum

    'AddColors cWhiteSmoke, arrColor(), iNum

    'AddColors cWhite, arrColor(), iNum

    'AddColors cDarkBrown, arrColor(), iNum

    'AddColors cLightBrown, arrColor(), iNum

    'AddColors cKhaki, arrColor(), iNum

    ''AddColors cEmpty , arrColor(), iNum

End Sub ' AddSpectrumColors



' ################################################################################################################################################################

' END COLOR ARRAY FUNCTIONS @COLR

' ################################################################################################################################################################



' ################################################################################################################################################################

' BEGIN COLOR FUNCTIONS #COLOR

' ################################################################################################################################################################



Function cRed~& ()

    cRed = _RGB32(255, 0, 0)

End Function



Function cOrangeRed~& ()

    cOrangeRed = _RGB32(255, 69, 0)

End Function ' cOrangeRed~&



Function cDarkOrange~& ()

    cDarkOrange = _RGB32(255, 140, 0)

End Function ' cDarkOrange~&



Function cOrange~& ()

    cOrange = _RGB32(255, 165, 0)

End Function ' cOrange~&



Function cGold~& ()

    cGold = _RGB32(255, 215, 0)

End Function ' cGold~&



Function cYellow~& ()

    cYellow = _RGB32(255, 255, 0)

End Function ' cYellow~&



' LONG-HAIRED FRIENDS OF JESUS OR NOT,

' THIS IS NOT YELLOW ENOUGH (TOO CLOSE TO LIME)

' TO USE FOR OUR COMPLEX RAINBOW SEQUENCE:

Function cChartreuse~& ()

    cChartreuse = _RGB32(127, 255, 0)

End Function ' cChartreuse~&



' WE SUBSTITUTE THIS CSS3 COLOR FOR INBETWEEN LIME AND YELLOW:

Function cOliveDrab1~& ()

    cOliveDrab1 = _RGB32(192, 255, 62)

End Function ' cOliveDrab1~&



Function cLime~& ()

    cLime = _RGB32(0, 255, 0)

End Function ' cLime~&



Function cMediumSpringGreen~& ()

    cMediumSpringGreen = _RGB32(0, 250, 154)

End Function ' cMediumSpringGreen~&



' ADDED THIS FOR THE GAUGE COLOR:

Function cSpringGreen~& ()

    cSpringGreen = _RGB32(0, 255, 160)

End Function ' cSpringGreen~&



Function cCyan~& ()

    cCyan = _RGB32(0, 255, 255)

End Function ' cCyan~&



Function cDeepSkyBlue~& ()

    cDeepSkyBlue = _RGB32(0, 191, 255)

End Function ' cDeepSkyBlue~&



Function cDodgerBlue~& ()

    cDodgerBlue = _RGB32(30, 144, 255)

End Function ' cDodgerBlue~&



Function cSeaBlue~& ()

    cSeaBlue = _RGB32(0, 64, 255)

End Function ' cSeaBlue~&



Function cBlue~& ()

    cBlue = _RGB32(0, 0, 255)

End Function ' cBlue~&



Function cBluePurple~& ()

    cBluePurple = _RGB32(64, 0, 255)

End Function ' cBluePurple~&



Function cDeepPurple~& ()

    cDeepPurple = _RGB32(96, 0, 255)

End Function ' cDeepPurple~&



Function cPurple~& ()

    cPurple = _RGB32(128, 0, 255)

End Function ' cPurple~&



Function cPurpleRed~& ()

    cPurpleRed = _RGB32(128, 0, 192)

End Function ' cPurpleRed~&



Function cDarkRed~& ()

    cDarkRed = _RGB32(160, 0, 64)

End Function ' cDarkRed~&



Function cBrickRed~& ()

    cBrickRed = _RGB32(192, 0, 32)

End Function ' cBrickRed~&



Function cDarkGreen~& ()

    cDarkGreen = _RGB32(0, 100, 0)

End Function ' cDarkGreen~&



Function cGreen~& ()

    cGreen = _RGB32(0, 128, 0)

End Function ' cGreen~&



Function cOliveDrab~& ()

    cOliveDrab = _RGB32(107, 142, 35)

End Function ' cOliveDrab~&



Function cLightPink~& ()

    cLightPink = _RGB32(255, 182, 193)

End Function ' cLightPink~&



Function cHotPink~& ()

    cHotPink = _RGB32(255, 105, 180)

End Function ' cHotPink~&



Function cDeepPink~& ()

    cDeepPink = _RGB32(255, 20, 147)

End Function ' cDeepPink~&



Function cMagenta~& ()

    cMagenta = _RGB32(255, 0, 255)

End Function ' cMagenta~&



Function cBlack~& ()

    cBlack = _RGB32(0, 0, 0)

End Function ' cBlack~&



Function cDimGray~& ()

    cDimGray = _RGB32(105, 105, 105)

End Function ' cDimGray~&



Function cGray~& ()

    cGray = _RGB32(128, 128, 128)

End Function ' cGray~&



Function cDarkGray~& ()

    cDarkGray = _RGB32(169, 169, 169)

End Function ' cDarkGray~&



Function cSilver~& ()

    cSilver = _RGB32(192, 192, 192)

End Function ' cSilver~&



Function cLightGray~& ()

    cLightGray = _RGB32(211, 211, 211)

End Function ' cLightGray~&



Function cGainsboro~& ()

    cGainsboro = _RGB32(220, 220, 220)

End Function ' cGainsboro~&



Function cWhiteSmoke~& ()

    cWhiteSmoke = _RGB32(245, 245, 245)

End Function ' cWhiteSmoke~&



Function cWhite~& ()

    cWhite = _RGB32(255, 255, 255)

End Function ' cWhite~&



Function cDarkBrown~& ()

    cDarkBrown = _RGB32(128, 64, 0)

End Function ' cDarkBrown~&



Function cLightBrown~& ()

    cLightBrown = _RGB32(196, 96, 0)

End Function ' cLightBrown~&



Function cKhaki~& ()

    cKhaki = _RGB32(240, 230, 140)

End Function ' cKhaki~&



Function cEmpty~& ()

    cEmpty = _RGB32(0, 0, 0, 0)

End Function ' cEmpty~&



' ################################################################################################################################################################

' END COLOR FUNCTIONS @COLOR

' ################################################################################################################################################################



' ################################################################################################################################################################

' BEGIN TILE DEFINITIONS #TILE

' ################################################################################################################################################################



' /////////////////////////////////////////////////////////////////////////////



Function GetTiles$ (arrFontData%())

    Const cHEIGHT = 8

    Const cWIDTH = 8



    Dim RoutineName As String: RoutineName = "GetTiles$"

    Dim sError As String: sError = ""

    ReDim arrTileText(0 To 255) As String

    Dim iTileNum As Integer

    ReDim arrLines(-1) As String

    Dim iFromX As Integer

    Dim iFromY As Integer

    Dim sLine As String

    Dim sChar As String

    Dim sBinary As String

    Dim iValue As Integer

    Dim iLine As Integer

    Dim ub%, lb%



    If Len(sError) = 0 Then

        ReDim arrFontData%(0 To 255, 0 To 7)

        GetTileText arrTileText()

        lb% = LBound(arrTileText)

        ub% = UBound(arrTileText)

        If lb% <> 0 Or ub% <> 255 Then

            sError = "GetTileText returned array with invalid boundaries " + _

                "(" + _

                _TRIM$(str$( lb% )) + _

                " - " +_

                _TRIM$(str$( ub% )) + _

                ")"

        End If

    End If



    If Len(sError) = 0 Then

        For iTileNum = 0 To 255

            split arrTileText(iTileNum), Chr$(13), arrLines()

            iLine = 0

            For iFromY = LBound(arrLines) To UBound(arrLines)

                sLine = arrLines(iFromY)

                If Len(sLine) > 0 Then

                    sBinary = ""

                    For iFromX = 1 To Len(sLine)

                        sChar = Mid$(sLine, iFromX, 1)

                        If sChar = "." Then

                            sBinary = sBinary + "0"

                        Else

                            sBinary = sBinary + "1"

                        End If

                    Next iFromX

                    If Len(sBinary) = 8 Then

                        iValue = GetIntegerFromBinary%(sBinary)

                        arrFontData%(iTileNum, iLine) = iValue

                    Else

                        iLine = iLine + 1

                        sError = "Invalid data for tile " + _Trim$(Str$(iTileNum)) + " at line " + _Trim$(Str$(iLine))

                        Exit For

                    End If

                    iLine = iLine + 1

                    If iLine > 7 Then Exit For

                End If

            Next iFromY

            If Len(sError) > 0 Then Exit For

        Next iTileNum

    End If



    GetTiles$ = sError

End Function ' GetTiles$



' /////////////////////////////////////////////////////////////////////////////



Sub GetTileText (arrTileText() As String)

    ReDim arrTileText(0 To 255) As String



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(0) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(1) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(2) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(3) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(4) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(5) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(6) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(7) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(8) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(9) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(10) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(11) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(12) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(13) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(14) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(15) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(16) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(17) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(18) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(19) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(20) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(21) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(22) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(23) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(24) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(25) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(26) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(27) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(28) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(29) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(30) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(31) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(32) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(33) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(34) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(35) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(36) = m$



    m$ = ""

    m$ = m$ + ".22...2." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".2...22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(37) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + ".22..222" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(38) = m$



    m$ = ""

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(39) = m$



    m$ = ""

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(40) = m$



    m$ = ""

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(41) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(42) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(43) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    arrTileText(44) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(45) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(46) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(47) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22.222." + Chr$(13)

    m$ = m$ + ".222.22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(48) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(49) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(50) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(51) = m$



    m$ = ""

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "...2222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(52) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(53) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(54) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(55) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(56) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(57) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(58) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    arrTileText(59) = m$



    m$ = ""

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(60) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(61) = m$



    m$ = ""

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(62) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(63) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22.222." + Chr$(13)

    m$ = m$ + ".22.222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22...2." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(64) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(65) = m$



    m$ = ""

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(66) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(67) = m$



    m$ = ""

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(68) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(69) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(70) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22.222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(71) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(72) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(73) = m$



    m$ = ""

    m$ = m$ + "...2222." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(74) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(75) = m$



    m$ = ""

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(76) = m$



    m$ = ""

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".222.222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".22.2.22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(77) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".222.22." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22.222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(78) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(79) = m$



    m$ = ""

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(80) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(81) = m$



    m$ = ""

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(82) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(83) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(84) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(85) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(86) = m$



    m$ = ""

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22.2.22" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".222.222" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(87) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(88) = m$



    m$ = ""

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(89) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(90) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(91) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(92) = m$



    m$ = ""

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(93) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(94) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(95) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(96) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(97) = m$



    m$ = ""

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(98) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(99) = m$



    m$ = ""

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(100) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(101) = m$



    m$ = ""

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(102) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(103) = m$



    m$ = ""

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(104) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(105) = m$



    m$ = ""

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(106) = m$



    m$ = ""

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(107) = m$



    m$ = ""

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(108) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".22.2.22" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(109) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(110) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(111) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(112) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(113) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(114) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(115) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(116) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(117) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(118) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22...22" + Chr$(13)

    m$ = m$ + ".22.2.22" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "..22.22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(119) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(120) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(121) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(122) = m$



    m$ = ""

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..2....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "..2....." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(123) = m$



    m$ = ""

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(124) = m$



    m$ = ""

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + ".....2.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....2.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(125) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".22....2" + Chr$(13)

    m$ = m$ + "2..2..2." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(126) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(127) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(128) = m$



    m$ = ""

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(129) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(130) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(131) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(132) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(133) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(134) = m$



    m$ = ""

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    arrTileText(135) = m$



    m$ = ""

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    arrTileText(136) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(137) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(138) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(139) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(140) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(141) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + "....222." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "..222..." + Chr$(13)

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(142) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(143) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(144) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(145) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(146) = m$



    m$ = ""

    m$ = m$ + "..22.22." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(147) = m$



    m$ = ""

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    arrTileText(148) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(149) = m$



    m$ = ""

    m$ = m$ + "22....22" + Chr$(13)

    m$ = m$ + "222..222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "222..222" + Chr$(13)

    m$ = m$ + "22....22" + Chr$(13)

    arrTileText(150) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(151) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(152) = m$



    m$ = ""

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    arrTileText(153) = m$



    m$ = ""

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "...222.." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(154) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(155) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    arrTileText(156) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(157) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + ".222.22." + Chr$(13)

    m$ = m$ + "..22.22." + Chr$(13)

    m$ = m$ + "..22.22." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(158) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "..222222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + ".......2" + Chr$(13)

    arrTileText(159) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(160) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    arrTileText(161) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(162) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(163) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(164) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(165) = m$



    m$ = ""

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    arrTileText(166) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(167) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    arrTileText(168) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "2222222." + Chr$(13)

    m$ = m$ + "222222.." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "2......." + Chr$(13)

    arrTileText(169) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(170) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(171) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    arrTileText(172) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(173) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(174) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(175) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(176) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(177) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(178) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(179) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(180) = m$



    m$ = ""

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    arrTileText(181) = m$



    m$ = ""

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    arrTileText(182) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(183) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(184) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(185) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(186) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    arrTileText(187) = m$



    m$ = ""

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(188) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(189) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(190) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    arrTileText(191) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    arrTileText(192) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    arrTileText(193) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(194) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(195) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(196) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + ".....2.." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".2222222" + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".....2.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(197) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(198) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + "2.2..2.2" + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + "2.2..2.2" + Chr$(13)

    m$ = m$ + "2.2222.2" + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(199) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + "2.2..2.2" + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + "2.2222.2" + Chr$(13)

    m$ = m$ + "2.2..2.2" + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(200) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(201) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + "....22.." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(202) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(203) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    m$ = m$ + "..22...." + Chr$(13)

    arrTileText(204) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(205) = m$



    m$ = ""

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    arrTileText(206) = m$



    m$ = ""

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "2..22..2" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "2..22..2" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    arrTileText(207) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(208) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    arrTileText(209) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(210) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(211) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(212) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(213) = m$



    m$ = ""

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    arrTileText(214) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(215) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    arrTileText(216) = m$



    m$ = ""

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "2..22..2" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    m$ = m$ + "22..22.." + Chr$(13)

    m$ = m$ + "2..22..2" + Chr$(13)

    m$ = m$ + "..22..22" + Chr$(13)

    m$ = m$ + ".22..22." + Chr$(13)

    arrTileText(217) = m$



    m$ = ""

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    arrTileText(218) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(219) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    arrTileText(220) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(221) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(222) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(223) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(224) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(225) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(226) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    arrTileText(227) = m$



    m$ = ""

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    m$ = m$ + "22......" + Chr$(13)

    arrTileText(228) = m$



    m$ = ""

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    m$ = m$ + "222....." + Chr$(13)

    arrTileText(229) = m$



    m$ = ""

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    m$ = m$ + ".....222" + Chr$(13)

    arrTileText(230) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(231) = m$



    m$ = ""

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(232) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    arrTileText(233) = m$



    m$ = ""

    m$ = m$ + ".......2" + Chr$(13)

    m$ = m$ + "......22" + Chr$(13)

    m$ = m$ + ".....22." + Chr$(13)

    m$ = m$ + ".22.22.." + Chr$(13)

    m$ = m$ + ".2222..." + Chr$(13)

    m$ = m$ + ".222...." + Chr$(13)

    m$ = m$ + ".22....." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(234) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    arrTileText(235) = m$



    m$ = ""

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(236) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "22222..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(237) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(238) = m$



    m$ = ""

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "2222...." + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    m$ = m$ + "....2222" + Chr$(13)

    arrTileText(239) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(240) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(241) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(242) = m$



    m$ = ""

    m$ = m$ + "........" + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "...2...." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(243) = m$



    m$ = ""

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "...2.2.." + Chr$(13)

    m$ = m$ + "..2...2." + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + "...2.2.." + Chr$(13)

    m$ = m$ + "..22222." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(244) = m$



    m$ = ""

    m$ = m$ + "..22.22." + Chr$(13)

    m$ = m$ + ".2..2..2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + "..2...2." + Chr$(13)

    m$ = m$ + "...2.2.." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(245) = m$



    m$ = ""

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "...22..." + Chr$(13)

    m$ = m$ + "..2222.." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(246) = m$



    m$ = ""

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "...2.2.." + Chr$(13)

    m$ = m$ + "..2...2." + Chr$(13)

    m$ = m$ + ".2.....2" + Chr$(13)

    m$ = m$ + "..2...2." + Chr$(13)

    m$ = m$ + "...2.2.." + Chr$(13)

    m$ = m$ + "....2..." + Chr$(13)

    m$ = m$ + "........" + Chr$(13)

    arrTileText(247) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "2222.222" + Chr$(13)

    m$ = m$ + "222..222" + Chr$(13)

    m$ = m$ + "2222.222" + Chr$(13)

    m$ = m$ + "2222.222" + Chr$(13)

    m$ = m$ + "2222.222" + Chr$(13)

    m$ = m$ + "222...22" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(248) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(249) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "222..222" + Chr$(13)

    m$ = m$ + "22.22.22" + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + "2222.222" + Chr$(13)

    m$ = m$ + "222.2222" + Chr$(13)

    m$ = m$ + "22....22" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(250) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(251) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "2....222" + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + "22...222" + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + "2....222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(252) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(253) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + "2222..22" + Chr$(13)

    m$ = m$ + "222.2.22" + Chr$(13)

    m$ = m$ + "22.22.22" + Chr$(13)

    m$ = m$ + "2......2" + Chr$(13)

    m$ = m$ + "22222.22" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(254) = m$



    m$ = ""

    m$ = m$ + ".222222." + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + "22222222" + Chr$(13)

    m$ = m$ + ".222222." + Chr$(13)

    arrTileText(255) = m$



End Sub ' GetTileText



' ################################################################################################################################################################

' END TILE DEFINITIONS @TILE

' ################################################################################################################################################################

The main change here is this:

Code: (Select All)

Print #1, "STARTCHAR U+" + Right$("0000" + Hex$(_MapUnicode(iChar)), 4)

Print #1, "ENCODING " + LTrim$(Str$(_MapUnicode(iChar)))

As you can see, I basically just pointed the unicode values of your custom font to match the original unicode values that QB64 goes out and fetches to make the proper 256 ASCII characters that we use.

As long as you use the standard code page, this should work without having to do any remapping for you.

[madscijr]

Try this and see how it does:
...

It works like a charm - thank you!

As you can see, I basically just pointed the unicode values of your custom font to match the original unicode values that QB64 goes out and fetches to make the proper 256 ASCII characters that we use.

As long as you use the standard code page, this should work without having to do any remapping for you. 

This actually leads me to another question - I assumed a "font" to be 256 characters, since that was the size of the ASCII & extended ASCII alphabet back in the day. But with unicode, could we generate a BDF file with 512 or more custom characters and display them all using the unicode mapping? What would that look like? (I suspect doing that might involve code pages, which is something I haven't worked with.)
Thanks again!