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...
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
' ################################################################################################################################################################