Author Topic: fastest way to draw a 2-color 8x8 tile (with variable colors)? (Read 10673 times)

madscijr · « **on:** February 19, 2022, 04:48:42 pm »

I'm looking to find the fastest way to draw 2-color tiles to the screen,
where the tiles are 8x8, and the 2 colors can be changed for each tile.
Here is my test code, comparing various methods,
like line, pset, putimage w/color swap,
pre-calculated screen & tileset coordinates,
alongside various square and circle routines.
I even tried a version that uses pre-calculated bit patterns for each of the 8 lines in a tile.
That version was slightly slower than the putimage with swap colors.

The fastest drawing method by far is the simple

Code: QB64: [Select]

Line (iX, iY)-(iX2, iY2), fgColor, BF ' Draw a solid box

which is 10-20x faster than the various tile drawing methods.
The plain circle command was pretty fast too.
The fastest method to draw a shape (a vector shape, not a raster tile)
was with the line command, however I am looking to draw 8x8 raster tiles.

The version which pre-calculates the tilesheet position and screen coordinates was surprisingly NOT much faster than without.

Any thoughts on a faster way to achieve drawing an 8x8 2-color tile (with variable colors)?

Here is the test program in case you want to see it in action:

Code: QB64: [Select]

' What is the fastest way to draw a 2-color 8x8 tile, 
' where the 2 colors (foreground, background) 
' are variable? 
 
' ################################################################################################################################################################
' #CONSTANTS = GLOBAL CONSTANTS
 
' BOOLEAN VALUES
Const FALSE = 0
Const TRUE = Not FALSE
 
' ################################################################################################################################################################
' #UDT #TYPES = USER DEFINED TYPES
 
' UDT TO HOLD COLOR CODE INFO
Type ColorType
    name As String
    value As _Unsigned Long
End Type ' ColorType
 
' UDT FOR PRECALCULATED TILESHEET
Type TileSheetMapType
    xStart As Integer
    xEnd As Integer
    yStart As Integer
    yEnd As Integer
End Type
 
' UDT FOR PRECALCULATED TILE MAP
Type TileMapType
    xPos As Integer
    yPos As Integer
End Type
 
' ################################################################################################################################################################
' #VARS = GLOBAL VARIABLES
 
' ENABLE / DISABLE DEBUG CONSOLE
Dim Shared m_bDebug As Integer: m_bDebug = TRUE
 
' 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)
 
' USED BY TIMER
Dim Shared m_iTimerCount As Long
 
' =============================================================================
' LOCAL VARIABLES
Dim in$
 
' ****************************************************************************************************************************************************************
' ACTIVATE DEBUGGING WINDOW
If m_bDebug = TRUE Then
    $Console
    _Delay 4
    _Console On
    _Echo "Started " + m_ProgramName$
    _Echo "Debugging on..."
End If
' ****************************************************************************************************************************************************************
 
' =============================================================================
' START THE MAIN ROUTINE
main
'GeneratePset8BitPatternCode
 
' =============================================================================
' FINISH
Screen 0
'Print m_ProgramName$ + " finished."
'Input "Press <ENTER> to continue", in$
 
' ****************************************************************************************************************************************************************
' DEACTIVATE DEBUGGING WINDOW
If m_bDebug = TRUE Then
    _Console Off
End If
' ****************************************************************************************************************************************************************
 
System ' return control to the operating system
End
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub Main
    Dim sError As String : sError = ""
        Dim bContinue As Integer : bContinue = TRUE
        
        ' FOR SCREEN AND GRAPHICS
        Dim imgScreen&
    Dim imgTiles&
    
        ' FOR PRECALCULATED TILESHEET
        ReDim arrTileSheet8Map(255) As TileSheetMapType
        ReDim arrTile8Map(128, 96) As TileMapType
        dim TileCount%
        dim TilesheetCols%
        dim TilesheetRows%
        dim tileWidthPx%
        dim tileHeightPx%
        dim xOffset%
        dim yOffset%
        dim numTilesX%
        dim numTilesY%
        
        ' TEST COUNTS
        Dim iDrawBoxLineCount As Long : iDrawBoxLineCount = 0
        Dim iDrawBoxDrawCount As Long : iDrawBoxDrawCount = 0
        Dim iDrawBoxPsetCount As Long : iDrawBoxPsetCount = 0
        Dim iCircleCount1 As Long : iCircleCount1 = 0
        Dim iCircleCount2 As Long : iCircleCount2 = 0
        Dim iCircleCount3 As Long : iCircleCount3 = 0
        Dim iDraw1Count As Long : iDraw1Count = 0
        Dim iDraw2Count As Long : iDraw2Count = 0
        Dim iPsetCount As Long : iPsetCount = 0
        Dim iLineCount As Long : iLineCount = 0
        Dim iDrawColorTileCount As Long : iDrawColorTileCount = 0
        Dim iDrawPrecalcColorTileCount As Long : iDrawPrecalcColorTileCount = 0
        Dim iTileCount3 As Long : iTileCount3 = 0
        Dim iTileCount4 As Long : iTileCount4 = 0
        Dim iTileCount5 As Long : iTileCount5 = 0
        
        ' OTHER TEST VARIABLES
        Dim iMS As Integer : iMS = 0
        Dim iStartX As Integer : iStartX = 0
        Dim iMaxX As Integer : iMaxX = 1024-8
        Dim iStartY As Integer : iStartY = 0
        Dim iMaxY As Integer : iMaxY = 1
        Dim iX As Integer : iX = iStartX
        Dim iY As Integer : iY = iStartY
        Dim arrColor(0 To 12) As _UNSIGNED Long
        Dim iColor As Integer : iColor = 1
        Dim iStartColor As Integer
        Dim iEndColor As Integer
        Dim timerhandle%
        Dim iStartLine As Integer
        Dim bgColor As _UNSIGNED Long
        Dim iTestLines As Integer
        Dim iTimerMax As Integer
        Dim iNumTests As Integer: iNumTests = 14
        Dim iDiameter As Integer : iDiameter = 7
        Dim iNextTile As Integer : iNextTile = 65
        Dim iOffsetX As Integer : iOffsetX = 0
        Dim iOffsetY As Integer : iOffsetY = 0
        Dim iRows As Integer
        Dim iCols As Integer
        Dim iRow As Integer
        Dim iCol As Integer
        Dim iStartRow As Integer
        Dim iStartCol As Integer
        Dim iMaxRow As Integer
        Dim iMaxCol As Integer
        ReDim arrColor2(-1) As ColorType
        
        ' TILE V2 VERSION
        ReDim arrTileData(0 to 255, 0 To 7, 0 To 7) As Integer
        
        ' TILE V3 VERSION
        ReDim arrTileBytes(0 to 255, 0 To 7) As Integer
        
        ' ================================================================================================================================================================
        ' INIT VALUES
        ' ================================================================================================================================================================
        if len(sError)=0 then
                iTestLines = 3
                iTimerMax = 3
                arrColor(0) = cBlack
                arrColor(1) = cRed
                arrColor(2) = cLime
                arrColor(3) = cBlue
                arrColor(4) = cMagenta
                arrColor(5) = cYellow
                arrColor(6) = cOrange
                arrColor(7) = cGray
                arrColor(8) = cSilver
                arrColor(9) = cWhite
                arrColor(10) = cDodgerBlue
                arrColor(11) = cCyan
                arrColor(12) = cDeepPurple
                bgColor = arrColor(0)
        end if
    
        ' ================================================================================================================================================================
    ' INITIALIZE GRAPHICS TILES
    ' ================================================================================================================================================================
    if len(sError)=0 then
        ' LOAD TILES (16 cols x 16 rows of 8x8 tiles)
        ' LOAD TILES FROM TEXT DEFINITIONS IN Sub GetTileText
        sError = GetTiles$(imgTiles&, cBlack, cEmpty)
    end if
        
        ' ================================================================================================================================================================
    ' INITIALIZE GRAPHICS TILES v2
    ' ================================================================================================================================================================
        if len(sError)=0 then
                sError = GetTiles2$(arrTileData())
        end if
        
        ' ================================================================================================================================================================
    ' INITIALIZE GRAPHICS TILES v3
    ' ================================================================================================================================================================
        if len(sError)=0 then
                sError = GetTiles3$(arrTileBytes())
        end if
        
        ' ================================================================================================================================================================
    ' PRECALCULATE TILESHEET AND SCREEN POSITIONS
    ' ================================================================================================================================================================
    if len(sError)=0 then
                ' COMPUTE LOCATIONS FOR 16X16 TILESHEET + SCREEN (FOR GRAPHICS)
                TileCount% = 256 ' # OF TILES
                TilesheetCols% = 16 ' # OF COLUMNS ON SOURCE TILE SHEET
                TilesheetRows% = 16 ' # OF ROWS    ON SOURCE TILE SHEET
                tileWidthPx% = 8 ' TILE WIDTH
                tileHeightPx% = 8 ' TILE HEIGHT
                xOffset% = 0 ' SCREEN OFFSET FROM LEFT
                yOffset% = 0 ' CREEN OFFSET FROM TOP
                numTilesX% = 128 ' HOW MANY TILES ACROSS
                numTilesY% = 96 ' HOW MANY TILES UP/DOWN
                ComputeTileLocations arrTileSheet8Map(), arrTile8Map(), TileCount%, TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, xOffset%, yOffset%, numTilesX%, numTilesY%
        end if
        
        ' ================================================================================================================================================================
    ' LOAD BACKGROUND IMAGE
    ' ================================================================================================================================================================
    if len(sError)=0 then
        imgScreen& = _NewImage(1024, 768, 32)
        Screen imgScreen& : _ScreenMove 0, 0
        Cls , bgColor ' set the background color
    end if
        
        ' ================================================================================================================================================================
        ' TILE TEST 2
        ' ================================================================================================================================================================
    IF TRUE=FALSE THEN
        'if len(sError)=0 then
        AddColors arrColor2()
                iColor = lbound(arrColor2)+2
                
                iCols = _Width(0) \ _FontWidth
        iRows = _Height(0) \ _FontHeight
                iStartX = iCols * 0.25
                iMaxX = iCols * 0.75
                iStartY = iRows * 0.25
                iMaxY = iRows * 0.75
                iX = iStartX
                iY = iStartY
                for iNextTile = 0 to 255
                        'DrawColorTile imgScreen&, imgTiles&, iNextTile, _
                        '       arrColor2(iColor).value, bgColor, _
                        '       iX, iY, _ 
                        '       iOffsetX, iOffsetY
                        
                        DrawTileBoxLine imgScreen&, arrTileData(), _ 
                            iNextTile, iX, iY, arrColor2(iColor).value, bgColor
                        
                        iX = iX + 1
                        if iX > iMaxX then
                                iX = iStartX
                                iY = iY + 1
                                if iY > iMaxY then Exit For
                        end if
                        iColor = iColor + 1
                        if iColor >= ubound(arrColor2) then iColor = lbound(arrColor2)+2
                next iNextTile
                
                bContinue = FALSE
    end if
        
        ' ================================================================================================================================================================
        ' BEGIN RUN TESTS
        ' ================================================================================================================================================================
        if len(sError)=0 and bContinue = TRUE then
        'if len(sError)=0 then
                ' SETUP TIMER + INITIALIZE TESTS
                timerhandle% = _FreeTimer ' get a timer number from _FREETIMER ONLY!
                On Timer(timerhandle%, 1) CheckTime
                Timer(timerhandle%) On
                
                iStartLine = 0
                iCols = _Width(0) \ _FontWidth
        iRows = _Height(0) \ _FontHeight
                iStartX = _Width(0) * 0.25 ' iCols * 0.25
                iMaxX = _Width(0) * 0.75 ' iCols * 0.75
                'iStartY = iRows * 0.25
                'iMaxY = iRows * 0.75
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' OTHER METHODS?
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TO TRY:
                ' 4-bit pattern (hexidecimal)?
                ' 64-bit pattern (would be lots of code, 4096 routines!)
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST COLOR TILES - PSET 8 BYTE 8-BIT PATTERN
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawTileBitPattern8PSET..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
        iStartColor = 1: iEndColor = 3 : iColor = iStartColor
                
                iNextTile = 65
                iStartRow = (iStartY \ 8)
                iStartCol = (iStartX \ 8)
                iMaxRow = (iMaxY \ 8)
                iMaxCol = (iMaxX \ 8)
                iRow = iStartRow
                iCol = iStartCol
                
                Do
                        DrawTileBitPattern8PSET imgScreen&, arrTileBytes(), _ 
                            iNextTile, iCol, iRow, arrColor(iColor), bgColor
                        iTileCount5 = iTileCount5 + 1
                        iCol = iCol + 1 : if iCol > iMaxCol then iCol = iStartCol : iRow = iRow + 1 : if iRow > iMaxRow then iRow = iStartRow
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST COLOR TILES - PSET PIXEL-BY-PIXEL
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawTilePSET..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
        iStartColor = 10: iEndColor = 12 : iColor = iStartColor
                
                iNextTile = 65
                iStartRow = (iStartY \ 8)
                iStartCol = (iStartX \ 8)
                iMaxRow = (iMaxY \ 8)
                iMaxCol = (iMaxX \ 8)
                iRow = iStartRow
                iCol = iStartCol
                
                Do
                        DrawTilePSET imgScreen&, arrTileData(), _ 
                            iNextTile, iCol, iRow, arrColor(iColor), bgColor
                        iTileCount4 = iTileCount4 + 1
                        iCol = iCol + 1 : if iCol > iMaxCol then iCol = iStartCol : iRow = iRow + 1 : if iRow > iMaxRow then iRow = iStartRow
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST COLOR TILES - LINE PIXEL-BY-PIXEL
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawTileBoxLine..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
        iStartColor = 4: iEndColor = 6 : iColor = iStartColor
                
                iNextTile = 65
                iStartRow = (iStartY \ 8)
                iStartCol = (iStartX \ 8)
                iMaxRow = (iMaxY \ 8)
                iMaxCol = (iMaxX \ 8)
                iRow = iStartRow
                iCol = iStartCol
                
                Do
                        DrawTileBoxLine imgScreen&, arrTileData(), _ 
                            iNextTile, iCol, iRow, arrColor(iColor), bgColor
                        iTileCount3 = iTileCount3 + 1
                        iCol = iCol + 1 : if iCol > iMaxCol then iCol = iStartCol : iRow = iRow + 1 : if iRow > iMaxRow then iRow = iStartRow
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST COLOR TILES - PRECALCULATED
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawColorTileFast..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                
        AddColors arrColor2()
                iStartColor = lbound(arrColor2)+2
                iEndColor = ubound(arrColor2)-2
                iColor = iStartColor
                
                iNextTile = 65
                iStartRow = (iStartY \ 8) + 1
                iStartCol = (iStartX \ 8) + 1
                iMaxRow = (iMaxY \ 8) + 1
                iMaxCol = (iMaxX \ 8) + 1
                iRow = iStartRow
                iCol = iStartCol
                iStartColor = 10: iEndColor = 12 : iColor = iStartColor
                
                Do
                        DrawColorTileFast imgScreen&, imgTiles&, _ 
                                arrTileSheet8Map(), arrTile8Map(), _ 
                                tileWidthPx%, tileHeightPx%, _ 
                                iNextTile, arrColor2(iColor).value, bgColor, _ 
                                iCol, iRow
                        iDrawPrecalcColorTileCount = iDrawPrecalcColorTileCount + 1
                        iCol = iCol + 1 : if iCol > iMaxCol then iCol = iStartCol : iRow = iRow + 1 : if iRow > iMaxRow then iRow = iStartRow
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST COLOR TILES
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawColorTile..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                
        AddColors arrColor2()
                iStartColor = lbound(arrColor2)+2
                iEndColor = ubound(arrColor2)-2
                iColor = iStartColor
                
                iNextTile = 65
                iStartRow = iStartY \ 8
                iStartCol = iStartX \ 8
                iMaxRow = iMaxY \ 8
                iMaxCol = iMaxX \ 8
                iRow = iStartRow
                iCol = iStartCol
                iStartColor = 1: iEndColor = 3 : iColor = iStartColor
                
                Do
                        DrawColorTile imgScreen&, imgTiles&, iNextTile, _
                                arrColor2(iColor).value, bgColor, _
                                iCol, iRow, _ 
                                iOffsetX, iOffsetY
                        iDrawColorTileCount = iDrawColorTileCount + 1
                        iCol = iCol + 1 : if iCol > iMaxCol then iCol = iStartCol : iRow = iRow + 1 : if iRow > iMaxRow then iRow = iStartRow
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST BOXES - PSET
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawBoxPset..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                iStartColor = 4: iEndColor = 6 : iColor = iStartColor
                Do
                        DrawBoxPset iX, iY, 8, arrColor(iColor)
                        iDrawBoxPsetCount = iDrawBoxPsetCount + 1
                        iX = iX + 8 : if iX > iMaxX then iX = iStartX : iY = iY + 8 : if iY > iMaxY then iY = iStartY
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST BOXES - DRAW
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawBoxDraw..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                iStartColor = 1: iEndColor = 3 : iColor = iStartColor
                Do
                        DrawBoxDraw iX, iY, 8, arrColor(iColor)
                        iDrawBoxDrawCount = iDrawBoxDrawCount + 1
                        iX = iX + 8 : if iX > iMaxX then iX = iStartX : iY = iY + 8 : if iY > iMaxY then iY = iStartY
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST BOXES - LINE
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawBoxLine..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                iStartColor = 7: iEndColor = 9 : iColor = iStartColor
                Do
                        DrawBoxLine iX, iY, 8, arrColor(iColor)
                        iDrawBoxLineCount = iDrawBoxLineCount + 1
                        iX = iX + 8 : if iX > iMaxX then iX = iStartX : iY = iY + 8 : if iY > iMaxY then iY = iStartY
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST CIRCLES fcircTopLeft
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing fcircTopLeft..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                iStartColor = 1: iEndColor = 3 : iColor = iStartColor
                Do
                        fcircTopLeft iX, iY, iDiameter, arrColor(iColor)
                        iCircleCount1 = iCircleCount1 + 1
                        iX = iX + 8 : if iX > iMaxX then iX = iStartX : iY = iY + 8 : if iY > iMaxY then iY = iStartY
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST BOXES - DrawCircleOutlineTopLeft
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawCircleOutlineTopLeft..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                iStartColor = 4: iEndColor = 6 : iColor = iStartColor
                Do
                        DrawCircleOutlineTopLeft iX, iY, iDiameter, arrColor(iColor), bgColor, 2
                        iCircleCount2 = iCircleCount2 + 1
                        iX = iX + 8 : if iX > iMaxX then iX = iStartX : iY = iY + 8 : if iY > iMaxY then iY = iStartY
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST BOXES - DrawCircleTopLeft
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawCircleTopLeft..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                iStartColor = 7: iEndColor = 9 : iColor = iStartColor
                Do
                        DrawCircleTopLeft iX, iY, iDiameter, arrColor(iColor)
                        iCircleCount3 = iCircleCount3 + 1
                        iX = iX + 8 : if iX > iMaxX then iX = iStartX : iY = iY + 8 : if iY > iMaxY then iY = iStartY
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST ARROWS - PSET
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing PsetLeftArrow..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                iStartColor = 1: iEndColor = 3 : iColor = iStartColor
                Do
                        PsetLeftArrow iX, iY, arrColor(iColor)
                        iPsetCount = iPsetCount + 1
                        iX = iX + 8 : if iX > iMaxX then iX = iStartX : iY = iY + 8 : if iY > iMaxY then iY = iStartY
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST ARROWS - DrawLeftArrow1
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawLeftArrow1..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                iStartColor = 4: iEndColor = 6 : iColor = iStartColor
                Do
                        DrawLeftArrow1 iX, iY, arrColor(iColor)
                        iDraw1Count = iDraw1Count + 1
                        iX = iX + 8 : if iX > iMaxX then iX = iStartX : iY = iY + 8 : if iY > iMaxY then iY = iStartY
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST ARROWS - DrawLeftArrow2
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawLeftArrow2..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                iStartColor = 7: iEndColor = 9 : iColor = iStartColor
                Do
                        DrawLeftArrow2 iX, iY, arrColor(iColor)
                        iDraw2Count = iDraw2Count + 1
                        iX = iX + 8 : if iX > iMaxX then iX = iStartX : iY = iY + 8 : if iY > iMaxY then iY = iStartY
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' TEST ARROWS - LINE
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                iStartLine = iStartLine + 1
                Locate iStartLine, 1: Print "Testing DrawLeftArrowLine..."
                iStartY = (iNumTests*16)+(iStartLine*( (iTestLines+1)*8)): iMaxY = iStartY + (iTestLines*8)
                m_iTimerCount = 0 : iX = iStartX : iY = iStartY
                iStartColor = 10: iEndColor = 12 : iColor = iStartColor
                Do
                        DrawLeftArrowLine iX, iY, arrColor(iColor)
                        'DrawA iX, iY, arrColor(iColor)
                        iLineCount = iLineCount + 1
                        iX = iX + 8 : if iX > iMaxX then iX = iStartX : iY = iY + 8 : if iY > iMaxY then iY = iStartY
                        iColor = iColor + 1 : if iColor > iEndColor then iColor = iStartColor
                Loop Until m_iTimerCount > iTimerMax
                
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                ' CONCLUDE TEST + SHOW RESULTS
                ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
                Timer(timerhandle%) Off
                Timer(timerhandle%) Free ' release timer
                
                Color cWhite, cBlack
                iRow = 1
                
                 
                Locate iRow, 1 : Print "DrawTileBitPattern8PSET : " + right$("          " + _Trim$(Str$(iTileCount5)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawTilePSET            : " + right$("          " + _Trim$(Str$(iTileCount4)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawTileBoxLine         : " + right$("          " + _Trim$(Str$(iTileCount3)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawColorTileFast       : " + right$("          " + _Trim$(Str$(iDrawPrecalcColorTileCount)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawColorTile           : " + right$("          " + _Trim$(Str$(iDrawColorTileCount)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawBoxPset             : " + right$("          " + _Trim$(Str$(iDrawBoxPsetCount)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawBoxDraw             : " + right$("          " + _Trim$(Str$(iDrawBoxDrawCount)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawBoxLine             : " + right$("          " + _Trim$(Str$(iDrawBoxLineCount)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "fcircTopLeft            : " + right$("          " + _Trim$(Str$(iCircleCount1)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawCircleOutlineTopLeft: " + right$("          " + _Trim$(Str$(iCircleCount2)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawCircleTopLeft       : " + right$("          " + _Trim$(Str$(iCircleCount3)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "PsetLeftArrow           : " + right$("          " + _Trim$(Str$(iPSetCount)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawLeftArrow1          : " + right$("          " + _Trim$(Str$(iDraw1Count)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawLeftArrow2          : " + right$("          " + _Trim$(Str$(iDraw2Count)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
                Locate iRow, 1 : Print "DrawLeftArrowLine       : " + right$("          " + _Trim$(Str$(iLineCount)), 10) + " in " + cstr$(iTimerMax) + " seconds." : iRow = iRow + 1
        end if
        ' ================================================================================================================================================================
        ' END RUN TESTS
        ' ================================================================================================================================================================
        
        ' SHOW ERRORS
        if len(sError) > 0 then
                print sError
        end if
        
        ' WAIT FOR USER TO PRESS A KEY
        Sleep
        
    ' =============================================================================
    ' FREE MEMORY
    ' =============================================================================
    'if len(sError)=0 then
        Screen 0
        IF imgScreen& < -1 OR imgScreen& > 0 THEN _FreeImage imgScreen&
        IF imgTiles& < -1 OR imgTiles& > 0 THEN _FreeImage imgTiles&
    'end if
        
End Sub ' Main
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub Main2
        Cls
        GetTilesTest2
End Sub
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub GenerateBitPatterns8Bit
        Dim iByte As Integer
        Dim iBit As Integer
        Dim sLine As String
        Dim iCount As Integer: iCount = 0
        Dim iPagesize As Integer: iPagesize = 23
        
        For iByte = 0 To 255
                sLine = ""
                For iBit = 7 To 0 Step -1
                        If iByte And 2 ^ iBit Then
                                sLine = sLine + "1"
                        Else
                                sLine = sLine + "0"
                        End If
                Next iBit
                Print sLine
                iCount = iCount + 1
                If iCount = iPagesize Then
                        iCount = 0
                        Sleep
                End If
        Next iByte
End Sub ' GenerateBitPatterns8Bit
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub GeneratePset8BitPatternCode
        Dim iByte As Integer
        Dim iBit As Integer
        Dim sTemplate1 As String
        Dim sTemplate2 As String
        Dim sCode1 As String
        Dim sCode2 As String
        Dim sLine As String
        Dim iByte
        Dim iCount As Integer: iCount = 0
        Dim iPagesize As Integer: iPagesize = 64
        
        sTemplate1 = ""
        sTemplate1 = sTemplate1 + "Sub DrawBitPatternPSET{byte}(  _ " + chr$(13)
        sTemplate1 = sTemplate1 + "    imgScreen&, iCol As Integer, iRow As Integer, _ " + chr$(13)
        sTemplate1 = sTemplate1 + "    iLine As Integer, _ " + chr$(13)
        sTemplate1 = sTemplate1 + "    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ " + chr$(13)
        sTemplate1 = sTemplate1 + "    )" + chr$(13)
        sTemplate1 = sTemplate1 + "    Dim iX As Integer : iX = iCol * 8" + chr$(13)
        sTemplate1 = sTemplate1 + "    Dim iY As Integer : iY = (iRow * 8) + iLine" + chr$(13)
        sTemplate1 = sTemplate1 + "{template2}"
        sTemplate1 = sTemplate1 + "End Sub ' DrawBitPatternPSET{byte}" + chr$(13)
        
        'sTemplate1 = ""
        'sTemplate1 = sTemplate1 + "Sub DrawBitPatternPSET{byte}(imgScreen&, iCol As Integer, iRow As Integer, iLine As Integer, fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long)" + chr$(13)
        'sTemplate1 = sTemplate1 + "    Dim iX As Integer : iX = iCol * 8" + chr$(13)
        'sTemplate1 = sTemplate1 + "    Dim iY As Integer : iY = (iRow * 8) + iLine" + chr$(13)
        'sTemplate1 = sTemplate1 + "{template2}"
        'sTemplate1 = sTemplate1 + "End Sub ' DrawBitPatternPSET{byte}" + chr$(13)
        
        sTemplate2 = ""
        sTemplate2 = sTemplate2 + "    PSET (iX+{bit}, iY), {color}" + chr$(13)
        
        sTemplate1 = Replace$(sTemplate1, chr$(13), "<br/>")
        sTemplate2 = Replace$(sTemplate2, chr$(13), "<br/>")
        
        For iByte = 0 To 255
                sCode1 = sTemplate1
                sCode1 = Replace$(sCode1, "{byte}", right$("000" + cstr$(iByte), 3))
                
                sCode2 = ""
                For iBit = 7 To 0 Step -1
                        sLine = sTemplate2
                        sLine = Replace$(sLine, "{bit}", cstr$(iBit))
                        If iByte And 2 ^ iBit Then
                                sLine = Replace$(sLine, "{color}", "fgColor")
                        Else
                                sLine = Replace$(sLine, "{color}", "bgColor")
                        End If
                        sCode2 = sCode2 + sLine
                Next iBit
                
                sCode1 = Replace$(sCode1, "{template2}", sCode2)
                
                DebugPrint sCode1
                DebugPrint ""
                
                iCount = iCount + 1
                If iCount = iPagesize Then
                        iCount = 0
                        Print "Press any key to continue"
                        Sleep
                End If
        Next iByte
        
        Print "Press any key to continue"
        Sleep
End Sub ' GeneratePset8BitPatternCode
 
' /////////////////////////////////////////////////////////////////////////////
' TEMPLATE:
'Sub DrawBitPatternPSET{byte}(  _ 
'    imgScreen&, iCol As Integer, iRow As Integer, _ 
'    iLine As Integer_ 
'    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
'    )
'    Dim iX As Integer : iX = iCol * 8
'    Dim iY As Integer : iY = (iRow * 8) + iLine
''    PSET (iX+{bit}, iY), {color}
'    PSET (iX+0, iY), {color}
'    PSET (iX+1, iY), {color}
'    PSET (iX+2, iY), {color}
'    PSET (iX+3, iY), {color}
'    PSET (iX+4, iY), {color}
'    PSET (iX+5, iY), {color}
'    PSET (iX+6, iY), {color}
'    PSET (iX+7, iY), {color}
'End Sub ' DrawBitPatternPSET{byte}
 
' /////////////////////////////////////////////////////////////////////////////
' DrawTilePSET imgScreen&, arrTileData(), _ 
'     iTileNum, iCol, iRow, fgColor, bgColor
 
Sub DrawTilePSET(  _ 
        imgScreen&, arrTileData() As Integer, _ 
        iTileNum As Integer, iCol As Integer, iRow As Integer, _ 
        fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
        )
        
        Dim iStartX As Integer : iStartX = iCol * 8
        Dim iStartY As Integer : iStartY = iRow * 8
        Dim iX As Integer
        Dim iY As Integer
        
        for iY = 0 to 7
                for iX = 0 to 7
                        if arrTileData(iTileNum, iY, iX) = 1 then
                                'Line (iStartX+iX, iStartY+iY)-(iStartX+iX, iStartY+iY), fgColor, BF ' Draw a solid box
                                PSET (iStartX+iX, iStartY+iY), fgColor
                        else
                                'Line (iStartX+iX, iStartY+iY)-(iStartX+iX, iStartY+iY), bgColor, BF ' Draw a solid box
                                PSET (iStartX+iX, iStartY+iY), bgColor
                        end if
                next iX
        next iY
End Sub ' DrawTilePSET
 
' /////////////////////////////////////////////////////////////////////////////
' DrawTileBoxLine imgScreen&, arrTileData(), _ 
'     iTileNum, iCol, iRow, fgColor, bgColor
 
Sub DrawTileBoxLine(  _ 
        imgScreen&, arrTileData() As Integer, _ 
        iTileNum As Integer, iCol As Integer, iRow As Integer, _ 
        fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
        )
        
        Dim iStartX As Integer : iStartX = iCol * 8
        Dim iStartY As Integer : iStartY = iRow * 8
        Dim iX As Integer
        Dim iY As Integer
        
        for iY = 0 to 7
                for iX = 0 to 7
                        if arrTileData(iTileNum, iY, iX) = 1 then
                                Line (iStartX+iX, iStartY+iY)-(iStartX+iX, iStartY+iY), fgColor, BF ' Draw a solid box
                                'Line -(iStartX+iX, iStartY+iY), fgColor, BF ' Draw a solid box
                        else
                                Line (iStartX+iX, iStartY+iY)-(iStartX+iX, iStartY+iY), bgColor, BF ' Draw a solid box
                                'Line -(iStartX+iX, iStartY+iY), bgColor, BF ' Draw a solid box
                        end if
                next iX
        next iY
End Sub ' DrawTileBoxLine
 
' /////////////////////////////////////////////////////////////////////////////
' Tile method v2, test #2
 
Sub GetTilesTest2()
        Dim RoutineName As String : RoutineName = "GetTilesTest"
        ReDim arrTileData(0 to 255, 0 To 7, 0 To 7) As Integer
        Dim sError As String
        Dim iLoop As Integer
        Dim iRow As Integer
        Dim iCol As Integer
        Dim sLine As String
        
        if len(sError)=0 then
                sError = GetTiles2$(arrTileData())
        end if
        
        if len(sError)=0 then
                for iLoop = 65 to 71
                        print "Char #" + cstr$(iLoop) + ":"
                        print "##########"
                        for iRow = 0 to 7
                                sLine = "#"
                                for iCol = 0 to 7
                                        if arrTileData(iLoop, iRow, iCol) = 1 then
                                                sLine = sLine + "*"
                                        elseif arrTileData(iLoop, iRow, iCol) = 0 then
                                                sLine = sLine + " "
                                        else
                                                sLine = sLine + "?"
                                        end if
                                next iCol
                                sLine = sLine + "#"
                                print sLine
                        next iRow
                        print "##########"
                        print 
                        print "Press any key to continue"
                        sleep
                next iLoop
        else
                print RoutineName + " failed: " + sError
        end if
End Sub ' GetTilesTest2
 
' /////////////////////////////////////////////////////////////////////////////
' Tile method v2
 
Sub GetTilesTest1()
        Dim RoutineName As String : RoutineName = "GetTilesTest"
        ReDim arrTileData(65 to 71, 0 To 7, 0 To 7) As Integer
        Dim sError As String
        Dim iLoop As Integer
        Dim iRow As Integer
        Dim iCol As Integer
        Dim sLine As String
        
        if len(sError)=0 then
                sError = GetTiles2$(arrTileData())
        end if
        
        if len(sError)=0 then
                for iLoop = 65 to 71
                        print "Char #" + cstr$(iLoop) + ":"
                        print "##########"
                        for iRow = 0 to 7
                                sLine = "#"
                                for iCol = 0 to 7
                                        if arrTileData(iLoop, iRow, iCol) = 1 then
                                                sLine = sLine + "*"
                                        elseif arrTileData(iLoop, iRow, iCol) = 0 then
                                                sLine = sLine + " "
                                        else
                                                sLine = sLine + "?"
                                        end if
                                next iCol
                                sLine = sLine + "#"
                                print sLine
                        next iRow
                        print "##########"
                        print 
                        print "Press any key to continue"
                        sleep
                next iLoop
        else
                print RoutineName + " failed: " + sError
        end if
End Sub ' GetTilesTest1
 
' /////////////////////////////////////////////////////////////////////////////
' Tile method v3
' Retrieves tile data and returns it by ref in 
' arrTileBytes(tile#, line#) containing 0-255, 
' corresponding to the 8-bit byte pattern for that line #
' Returns empty string if successful, else error message if not.
 
Function GetTiles3$(arrTileBytes() As Integer)
        Dim sError As String : sError = ""
        dim sNextError As String : sNextError = ""
    ReDim arrTileText(0 to 255) As String
        ReDim MyArray(-1,-1) AS INTEGER
        Dim iRowCount AS INTEGER
        Dim iColCount AS INTEGER
        Dim iLoop As Integer
        Dim iRowNum As Integer
        Dim iColNum As Integer
        Dim iByte As Integer
        
        if len(sError) = 0 then
                'GetTileText2 arrTileText()
                GetTileText arrTileText()
        end if
        
        if len(sError) = 0 then
                for iLoop = 0 to 255
                        sNextError = CharStringToArray$ ( _ 
                                arrTileText(iLoop), _ 
                                "2", _ 
                                ".", _ 
                                8, _ 
                                8, _ 
                                1, _ 
                                0, _ 
                                -1, _ 
                                MyArray(), _ 
                                iRowCount, _ 
                                iColCount)
                        if len(sNextError)=0 then
                                for iRowNum = 1 to 8
                                        arrTileBytes(iLoop, iRowNum-1) = 0
                                        for iColNum = 1 to 8
                                                if MyArray(iRowNum, iColNum)=1 then
                                                        iByte = iColNum-1
                                                        arrTileBytes(iLoop, iRowNum-1) = arrTileBytes(iLoop, iRowNum-1) + 2 ^ iByte
                                                end if
                                        next iColNum
                                next iRowNum
                        else
                                print "Error at " + cstr$(iLoop) + ": " + sError
                        end if
                next iLoop
        end if
        
        GetTiles3$ = sError
End Function ' GetTiles3$
 
' /////////////////////////////////////////////////////////////////////////////
' Tile method v2
' Retrieves tile data and returns it by ref in 
' arrTileData(tile#, x pixel, y pixel) containing 1 or 0 for each pixel.
' Returns empty string if successful, else error message if not.
 
Function GetTiles2$(arrTileData() As Integer)
        Dim sError As String : sError = ""
        dim sNextError As String : sNextError = ""
    ReDim arrTileText(0 to 255) As String
        ReDim MyArray(-1,-1) AS INTEGER
        Dim iRowCount AS INTEGER
        Dim iColCount AS INTEGER
        Dim iLoop As Integer
        Dim iRowNum As Integer
        Dim iColNum As Integer
        
        if len(sError) = 0 then
                'GetTileText2 arrTileText()
                GetTileText arrTileText()
        end if
        
        if len(sError) = 0 then
                for iLoop = 0 to 255
                        sNextError = CharStringToArray$ ( _ 
                                arrTileText(iLoop), _ 
                                "2", _ 
                                ".", _ 
                                8, _ 
                                8, _ 
                                1, _ 
                                0, _ 
                                -1, _ 
                                MyArray(), _ 
                                iRowCount, _ 
                                iColCount)
                        if len(sNextError)=0 then
                                for iRowNum = 1 to 8
                                        for iColNum = 1 to 8
                                                arrTileData(iLoop, iRowNum-1, iColNum-1) = MyArray(iRowNum, iColNum)
                                        next iColNum
                                next iRowNum
                        else
                                print "Error at " + cstr$(iLoop) + ": " + sError
                        end if
                next iLoop
        end if
        
        GetTiles2$ = sError
End Function ' GetTiles2$
 
' /////////////////////////////////////////////////////////////////////////////
 
'CharStringToArray  MyString, MyArray(-1,-1), iRowCount, iColCount
 
Function CharStringToArray$ ( _ 
    sInput AS STRING, _ 
        sPixel AS STRING, _ 
        sEmpty AS STRING, _ 
        iMaxRows AS INTEGER, _ 
        iMaxCols AS INTEGER, _ 
    iPixel AS INTEGER, _ 
        iEmpty AS INTEGER, _ 
        iUnknown AS INTEGER, _ 
    MyArray(-1,-1) AS INTEGER, _ 
    iRowCount AS INTEGER, _ 
        iColCount AS INTEGER)
    
    REDIM arrLines$(0)
    DIM iRow As Integer
    DIM iCol As Integer
    DIM sNextChar As String
    Dim sDelim AS STRING : sDelim = CHR$(13)
    DIM sError AS String : sError = ""
    
    ' SPLIT GRAPHIC INTO LINES
    if len(sError)=0 then
        split sInput, sDelim, arrLines$()
    end if
    
    ' COUNT ROWS, COLUMNS
    if len(sError)=0 then
        iRowCount = 0
        iColCount = 0
        FOR iRow = 0 TO UBOUND(arrLines$) ' LBOUND(arrLines$) TO UBOUND(arrLines$)
            IF iRow <= iMaxRows THEN
                iRowCount = iRowCount + 1
                FOR iCol = 1 TO LEN(arrLines$(iRow))
                    IF iCol <= iMaxCols THEN
                        IF iRowCount = 1 THEN
                            iColCount = iColCount + 1
                        END IF
                    ELSE
                        ' Exit if out of bounds
                        sError = "ERROR: Column " + cstr$(iCol) + " exceeds max specified columns " + cstr$(iMaxCols) + "."
                        EXIT FOR
                    END IF
                NEXT iCol
            ELSE
                ' Exit if out of bounds
                sError = "ERROR: Row " + cstr$(iRow) + " exceeds max specified rows " + cstr$(iMaxRows) + "."
                EXIT FOR
            END IF
        NEXT iRow
    end if
    
    ' POPULATE ARRAY
    if len(sError)=0 then
        ' SIZE ARRAY TO ACCOMODATE DATA
        REDIM MyArray(iRowCount, iColCount) AS INTEGER
        
        FOR iRow = 0 TO UBOUND(arrLines$) ' LBOUND(arrLines$) TO UBOUND(arrLines$)
            FOR iCol = 1 TO LEN(arrLines$(iRow))
                sNextChar = MID$(arrLines$(iRow), iCol, 1)
                IF (sNextChar = sPixel) THEN
                    MyArray(iRow+1, iCol) = iPixel
                ELSEIF (sNextChar = sEmpty) THEN
                    MyArray(iRow+1, iCol) = iEmpty
                ELSE
                    MyArray(iRow+1, iCol) = iUnknown
                END IF
            NEXT iCol
        NEXT iRow
    ELSE
        ' RETURN ZERO ROW / COLUMN COUNT IF ERROR
        iRowCount = 0
        iColCount = 0
    END IF
        
        ' RETURN RESULT
        CharStringToArray$ = sError
END Function ' CharStringToArray$
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub CheckTime
    m_iTimerCount = m_iTimerCount + 1
End Sub ' CheckTime
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub DrawBoxLine(iX As Integer, iY As Integer, iSize As Integer, fgColor As _UNSIGNED Long)
        Dim iX2 As Integer : iX2 = iX + (iSize-1)
        Dim iY2 As Integer : iY2 = iY + (iSize-1)
        Line (iX, iY)-(iX2, iY2), fgColor, BF ' Draw a solid box
End Sub ' DrawBoxLine
 
' /////////////////////////////////////////////////////////////////////////////
' Syntax: DRAW drawString$
 
' -----------------------------------------------------------------------------
' * The drawString$ can be DRAW instructions in quotation marks or a STRING variable using DRAW instructions.
' * DRAW starting coordinates can be set using PSET, PRESET, CIRCLE or LINE ending positions.
' * Other graphic objects can be located at or relative to the last DRAW position using STEP.
' * DRAW can inherit colors from other graphic statements such as PSET, LINE and CIRCLE.
' * Draw strings use letters followed by the number of pixels to move, an angle, coordinate or a color value.
' * Draw strings are flexible with spacing. Spacing is not required. DRAW will look for a number value after a valid letter.
' * DRAW statements are not case sensitive.
'   - "B" (blind) before a line move designates that the line move will be hidden. Use to offset from a "P" or PAINT border.
'   - "C n" designates the color attribute or _RGB string numerical color value to be used in the draw statement immediately after.
'   - "M x, y" can move to another coordinate area of the screen. When a + or - sign is used before a coordinate, 
'              it is a relative coordinate move similar to using the STEP graphics keyword. DRAW "M+=" + VARPTR$(variable%)
'   - "N" before a line move designates that the graphic cursor will return to the starting position after the line is drawn.
'   - "P f [, b]" is used to paint enclosed objects. f denotes the fill color and b the border color, if needed.
'   - "S n" changes the pixel move size of the lines. Default is 4 (1 pixel) minimum. "S8" would double the pixel line moves.
'   - "X" + VARPTR$(value) can draw another substring.
' * Certain letter designations create line moves on the SCREEN. Each move is followed by the number of pixels:
'   - "D n" draws a line vertically DOWN n pixels.
'   - "E n" draws a diagonal / line going UP and RIGHT n pixels each direction.
'   - "F n" draws a diagonal \ line going DOWN and RIGHT n pixels each direction.
'   - "G n" draws a diagonal / LINE going DOWN and LEFT n pixels each direction.
'   - "H n" draws a diagonal \ LINE going UP and LEFT n pixels each direction.
'   - "L n" draws a line horizontally LEFT n pixels.
'   - "R n" draws a line horizontally RIGHT n pixels.
'   - "U n" draws a line vertically UP n pixels.
' * Angles are used to rotate all subsequent draw moves.
'   - "A n" can use values of 1 to 3 to rotate up to 3 90 degree(270) angles.
'   - TA n" can use any n angle from -360 to 0 to 360 to rotate a DRAW (Turn Angle). "TA0" resets to normal.
'   - When VARPTR$ is used, DRAW functions such as TA angles use an equal sign: "TA=" + VARPTR$(angle%)
' * The graphic cursor is set to the center of the program window on program start for STEP relative coordinates.
' * DRAW can be used in any graphic screen mode, but cannot be used in the default screen mode 0 as it is text only.
 
'   - "B" (blind) before a line move designates that the line move will be hidden. Use to offset from a "P" or PAINT border.
'   - "M x, y" can move to another coordinate area of the screen. When a + or - sign is used before a coordinate, 
'   - "R n" draws a line horizontally RIGHT n pixels.
'   - "D n" draws a line vertically DOWN n pixels.
'   - "L n" draws a line horizontally LEFT n pixels.
'   - "U n" draws a line vertically UP n pixels.
'   - "N" before a line move designates that the graphic cursor will return to the starting position after the line is drawn.
'   - "P f [, b]" is used to paint enclosed objects. f denotes the fill color and b the border color, if needed.
 
Sub DrawBoxDraw(iX As Integer, iY As Integer, iSize As Integer, fgColor As _UNSIGNED Long)
        Dim sDraw As String : sDraw = ""
        'Dim iSizeMinus1 As Integer : iSizeMinus1 = iSize - 1
        
        ' set color
        sDraw = sDraw + "C " + STR$(fgColor)
        
        ' lift pen + go to start
        sDraw = sDraw + " BM" + cstr$(iX) + "," + cstr$(iY)
        
        ' draw horizontal line right
        sDraw = sDraw + " R" + cstr$(iSize)
        
        ' draw vertical line down
        sDraw = sDraw + " D" + cstr$(iSize)
        
        ' draw horizontal line left
        sDraw = sDraw + " L" + cstr$(iSize)
        
        ' draw vertical line up
        sDraw = sDraw + " U" + cstr$(iSize)
        
        '' lift pen + move inside box outline
        'sDraw = sDraw + "BM" + cstr$(iX + 1) + "," + cstr$(iY + 1)
        
        ' fill box
        ' ERRORS OUT FOR SOME REASON:
        'sDraw = sDraw + " P" + cstr$(fgColor)
        
        'locate 1,1 : print sDraw
        DRAW sDraw
End Sub ' DrawBoxDraw
 
' /////////////////////////////////////////////////////////////////////////////
' PSET (X, Y), Color
' draw will start where pset leaves off
 
Sub DrawBoxPset(iX As Integer, iY As Integer, iSize As Integer, fgColor As _UNSIGNED Long)
        Dim iSizeMinus1 As Integer : iSizeMinus1 = iSize - 1
        Dim iLoopX As Integer
        Dim iLoopY As Integer
        For iLoopY = iY to iY + iSizeMinus1
                For iLoopX = iX to iX + iSizeMinus1
                        PSET (iLoopX, iLoopY), fgColor
                Next iLoopX
        Next iLoopY
        PSET (iX+3, iY+3), fgColor
End Sub ' DrawBoxPset
 
' /////////////////////////////////////////////////////////////////////////////
' Uses built-in circle routine to draw a circle outline with line thickness 1.
 
' DrawCircleTopLeft iTopLeftX, iTopLeftY, iDiameter, fgColor
 
Sub DrawCircleTopLeft (iTopLeftX As Integer, iTopLeftY As Integer, iDiameter As Integer, fgColor As _Unsigned Long)
    Dim iRadius As Integer: iRadius = iDiameter \ 2
    Circle (iTopLeftX + iRadius, iTopLeftY + iRadius), iRadius, fgColor 'circle with radius of 110 and dark gray
End Sub ' DrawCircle1
 
' /////////////////////////////////////////////////////////////////////////////
' Uses fcirc routine to draw a circle outline 
' of the specified line thickness.
' 
' Works but you have to supply a background color and the inside of the 
' circle is not transparent (background color covers what's underneath).
 
' TODO: copy only the fgColor to the target image 
'       to preserve background inside the circle.
 
' DrawCircleOutlineTopLeft iTopLeftX, iTopLeftY, iDiameter, fgColor, bgColor, iThickness
 
Sub DrawCircleOutlineTopLeft (iTopLeftX As Integer, iTopLeftY As Integer, iDiameter As Integer, fgColor As _Unsigned Long, bgColor As _Unsigned Long, iThickness As Integer)
    Dim iRadius As Integer: iRadius = iDiameter \ 2
    Dim iCX As Integer: iCX = iTopLeftX + iRadius
    Dim iCY As Integer: iCY = iTopLeftY + iRadius
    fcirc iCX, iCY, iRadius, fgColor
        
        if iThickness <= 1 then
                fcirc iCX, iCY, iRadius, fgColor
                fcirc iCX, iCY, iRadius-1, bgColor
        elseif iThickness >= iRadius then
                fcirc iCX, iCY, iRadius, fgColor
        else
                fcirc iCX, iCY, iRadius, fgColor
                fcirc iCX, iCY, iRadius-iThickness, bgColor
        end if
End Sub ' DrawCircleOutlineTopLeft
 
' /////////////////////////////////////////////////////////////////////////////
' bplus: The Gold Standard is even better than THE QB64 CIRCLE sub in this respect!
' https://qb64forum.alephc.xyz/index.php?topic=1044.135
 
' from Steve Gold standard
 
' Example:
' Screen _NewImage(800, 600, 32)
' _ScreenMove 250, 60
' For r = 250 To 0 Step -60
'     fcirc 400, 300, r, _RGBA(255, 255, 255, 100)
' Next r
 
Sub fcirc (CX As Integer, CY As Integer, R As Integer, C As _Unsigned Long)
    Dim Radius As Integer, RadiusError As Integer
    Dim X As Integer, Y As Integer
 
    Radius = Abs(R)
    RadiusError = -Radius
    X = Radius
    Y = 0
 
    If Radius = 0 Then PSet (CX, CY), C: Exit Sub
 
    ' Draw the middle span here so we don't draw it twice in the main loop,
    ' which would be a problem with blending turned on.
    Line (CX - X, CY)-(CX + X, CY), C, BF
 
    While X > Y
        RadiusError = RadiusError + Y * 2 + 1
        If RadiusError >= 0 Then
            If X <> Y + 1 Then
                Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
                Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
            End If
            X = X - 1
            RadiusError = RadiusError - X * 2
        End If
        Y = Y + 1
        Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
        Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
    Wend
End Sub ' fcirc
 
' /////////////////////////////////////////////////////////////////////////////
' Same as fcirc but accepts coordinates for top left point instead of center
' and diameter for size, instead of radius.
 
' Example:
' Screen _NewImage(800, 600, 32)
' _ScreenMove 250, 60
' For iLoop = 5 To 1 Step -1
'     fcircTopLeft 10, 10, iLoop * 10, _RGBA(255, 255, 255, 100)
' Next iLoop
 
' fcircTopLeft iTopLeftX, iTopLeftY, iDiameter, fgColor
Sub fcircTopLeft (iTopLeftX As Integer, iTopLeftY As Integer, iDiameter As Integer, fgColor As _Unsigned Long)
    Dim iRadius As Integer: iRadius = iDiameter \ 2
    Dim iCX As Integer: iCX = iTopLeftX + iRadius
    Dim iCY As Integer: iCY = iTopLeftY + iRadius
    fcirc iCX, iCY, iRadius, fgColor
End Sub ' fcircTopLeft
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub DrawA(iX As Integer, iY As Integer, fgColor As _UNSIGNED Long)
        DrawBoxLine iX, iY, 8, fgColor
        Line (iX+4, iY+1)-(iX+1, iY+4), fgColor ', B ' B=outline, BF=solid
        Line (iX+4, iY+1)-(iX+6, iY+4), fgColor ', B ' B=outline, BF=solid
        Line (iX+1, iY+4)-(iX+6, iY+4), fgColor ', B ' B=outline, BF=solid
        Line (iX+1, iY+4)-(iX+1, iY+6), fgColor ', B ' B=outline, BF=solid
        Line (iX+6, iY+4)-(iX+6, iY+6), fgColor ', B ' B=outline, BF=solid
End Sub ' DrawA
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub DrawLeftArrowLine(iX As Integer, iY As Integer, fgColor As _UNSIGNED Long)
        Dim iStartY As Integer : iStartY = iY + 3
        Line (iX, iStartY)-(iX+7, iStartY), fgColor ', B ' B=outline, BF=solid
        Line (iX, iStartY)-(iX+3, iY), fgColor ', B ' B=outline, BF=solid
        Line (iX, iStartY)-(iX+3, iStartY+3), fgColor ', B ' B=outline, BF=solid
End Sub ' DrawLeftArrowLine
 
' /////////////////////////////////////////////////////////////////////////////
' This uses draw with "BM" to move to the start of each line
 
Sub DrawLeftArrow1(iX As Long, iY As Long, fgColor As _UNSIGNED Long)
        Dim sDraw As String
        sDraw = ""
        sDraw = sDraw + "C" + STR$(fgColor)
        sDraw = sDraw + "BM" + cstr$(iX) + "," + cstr$(iY)
        sDraw = sDraw + "R8"
        sDraw = sDraw + "BM" + cstr$(iX) + "," + cstr$(iY)
        sDraw = sDraw + "F3"
        sDraw = sDraw + "BM" + cstr$(iX) + "," + cstr$(iY)
        sDraw = sDraw + "E3"
        DRAW sDraw
End Sub ' DrawLeftArrow1
 
' /////////////////////////////////////////////////////////////////////////////
' This uses draw with "N" to return the cursor to the start of each line
' - "N" before a line move designates that the graphic cursor will return to the starting position after the line is drawn.
 
Sub DrawLeftArrow2(iX As Long, iY As Long, fgColor As _UNSIGNED Long)
        Dim sDraw As String
        sDraw = ""
        ' select color
        sDraw = sDraw + "C" + STR$(fgColor)
        
        ' lift pen + go to start
        sDraw = sDraw + "BM" + cstr$(iX) + "," + cstr$(iY)
        
        ' draw horizontal line + return to start
        sDraw = sDraw + "NR8"
        
        ' draw diagonal down + return to start
        sDraw = sDraw + "NF3"
        
        ' draw diagonal up
        sDraw = sDraw + "E3"
        DRAW sDraw
End Sub ' DrawLeftArrow2
 
' /////////////////////////////////////////////////////////////////////////////
' This uses PSET to draw the arrow pixel-by-pixel
 
' PSET (X, Y), Color
' draw will start where pset leaves off
 
Sub PsetLeftArrow(iX As Long, iY As Long, fgColor As _UNSIGNED Long)
        Dim iLoopX As Integer
        Dim iLoopY As Integer
        For iLoopX = iX to iX + 7 : PSET (iLoopX, iY), fgColor : Next iLoopX
        PSET (iX+1, iY-1), fgColor
        PSET (iX+2, iY-2), fgColor
        PSET (iX+3, iY-3), fgColor
        PSET (iX+1, iY+1), fgColor
        PSET (iX+2, iY+2), fgColor
        PSET (iX+3, iY+3), fgColor
End Sub ' PsetLeftArrow
 
' /////////////////////////////////////////////////////////////////////////////
' 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$
 
' /////////////////////////////////////////////////////////////////////////////
' Does a _PrintString at the specified row+column.
 
' iRow and iCol are 0-based.
 
Sub PrintString (iRow As Integer, iCol As Integer, MyString As String)
    Dim iX As Integer
    Dim iY As Integer
    iX = _FontWidth * iCol
    iY = _FontHeight * iRow ' (iRow + 1)
    _PrintString (iX, iY), MyString
End Sub ' PrintString
 
' /////////////////////////////////////////////////////////////////////////////
' Does a _PrintString at the specified row+column.
 
' iRow and iCol are 1-based.
 
Sub PrintString1 (iRow As Integer, iCol As Integer, MyString As String)
    Dim iX As Integer
    Dim iY As Integer
    iX = _FontWidth * (iCol-1)
    iY = _FontHeight * (iRow-1)
    _PrintString (iX, iY), MyString
End Sub ' PrintString1
 
' /////////////////////////////////////////////////////////////////////////////
' 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
 
' /////////////////////////////////////////////////////////////////////////////
' CIRCLE.BI
' https://wiki.qb64.org/wiki/Alternative_circle_routine
'**
'** QB64 replacement CIRCLE command.
'**
'** The CIRCLE command in QB64 has a few issues:
'**
'** - radian end points are not calculate properly when creating arcs
'** - center line to radian end points do not close properly due to previous bug listed
'**
'** This circle command replacement works very similiarly to the native CIRCLE command:
'**
'** SYNTAX: CIRCLES x%, y%, radius!, color~&, start_radian!, end_radian!, aspect_ratio!
'**
'**   x%            - center X coordinate of circle
'**   y%            - center Y coordinate of circle
'**   radius!       - the radius of the circle
'**   color~&       - the circle's color
'**   start_radian! - the radian on circle curcunference to begin drawing at
'**   end_radian!   - the radian on circle circumference to end drawing at
'**   aspect_ratio! - the aspect ratio of the circle
'**
'** NOTE: unlike the native CIRCLE command, all arguments MUST be supplied. For example,
'**       with the native command this will draw a perfect circle with the default color,
'**       start radian, end radian and aspect ratio:
'**
'**       CIRCLE (319, 239), 100
'**
'**       To do the same thing with this replacement command you must supply everything:
'**
'**       CIRCLES 319, 239, 100, _RGB32(255, 255, 255), 0, 0, 0
'**
'** ACKNOWLEGEMENTS: The FOR/NEXT step formula was was written by Codeguy for Unseen
'**                  Machine's Visual library EllipseXS command. Specifically:
'**                         MinStep! = 1 / (2 * 3.1415926535 * Radius!)
'**
'**
'** Includes performance tweaks made by SMcNeill on 02/02/13 - specifically removing a few redundant * -1
'** statements and converting the FOR/NEXT loop to a DO loop for a ~3% increase in performance.
'**
'** Corrected bug in which variables being passed in were being modified and passed back - 02/02/13
'**
SUB CIRCLES (cx%, cy%, r!, c~&, s!, e!, a!)
        DIM s%, e%, nx%, ny%, xr!, yr!, st!, en!, asp! '     local variables used
        
        st! = s! '                                           copy start radian to local variable
        en! = e! '                                           copy end radian to local variable
        asp! = a! '                                          copy aspect ratio to local variable
        IF asp! <= 0 THEN asp! = 1 '                         keep aspect ratio between 0 and 4
        IF asp! > 4 THEN asp! = 4
        IF asp! < 1 THEN xr! = r! * asp! * 4 ELSE xr! = r! ' calculate x/y radius based on aspect ratio
        IF asp! > 1 THEN yr! = r! * asp! ELSE yr! = r!
        IF st! < 0 THEN s% = -1: st! = -st! '                remember if line needs drawn from center to start radian
        IF en! < 0 THEN e% = -1: en! = -en! '                remember if line needs drawn from center to end radian
        IF s% THEN '                                         draw line from center to start radian?
                nx% = cx% + xr! * COS(st!) '                     yes, compute starting point on circle's circumference
                ny% = cy% + yr! * -SIN(st!)
                LINE (cx%, cy%)-(nx%, ny%), c~& '                draw line from center to radian
        END IF
        IF en! <= st! THEN en! = en! + 6.2831852 '           come back around to proper location (draw counterclockwise)
        stepp! = 0.159154945806 / r!
        c! = st! '                                           cycle from start radian to end radian
        DO
                nx% = cx% + xr! * COS(c!) '                      compute next point on circle's circumfrerence
                ny% = cy% + yr! * -SIN(c!)
                PSET (nx%, ny%), c~& '                           draw the point
                c! = c! + stepp!
        LOOP UNTIL c! >= en!
        IF e% THEN LINE -(cx%, cy%), c~& '                   draw line from center to end radian if needed
END SUB ' CIRCLES
 
' /////////////////////////////////////////////////////////////////////////////
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' BEGIN COLOR ARRAY FUNCTIONS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub AddColor (ColorValue As _Unsigned Long, ColorName As String, arrColor() As ColorType)
    ReDim _Preserve arrColor(0 To UBound(arrColor) + 1) As ColorType
    arrColor(UBound(arrColor)).name = ColorName
    arrColor(UBound(arrColor)).value = ColorValue
End Sub ' AddColor
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub AddColors (arrColor() As ColorType)
    AddColor cBlack, "cBlack", arrColor()
    ''AddColor cDarkGray, "cDarkGray", arrColor()
    ''AddColor cDimGray, "cDimGray", arrColor()
    AddColor cGray, "cGray", arrColor()
    AddColor cSilver, "cSilver", arrColor()
    ''AddColor cLightGray, "cLightGray", arrColor()
    AddColor cWhite, "cWhite", arrColor()
 
    AddColor cRed, "cRed", arrColor()
    AddColor cOrangeRed, "cOrangeRed", arrColor()
    'AddColor cDarkOrange, "cDarkOrange", arrColor()
    'AddColor cOrange, "cOrange", arrColor()
    'AddColor cGold, "cGold", arrColor()
    AddColor cYellow, "cYellow", arrColor()
    'AddColor cOliveDrab1, "cOliveDrab1", arrColor()
    AddColor cLime, "cLime", arrColor()
    'AddColor cMediumSpringGreen, "cMediumSpringGreen", arrColor()
    AddColor cCyan, "cCyan", arrColor()
    'AddColor cDeepSkyBlue, "cDeepSkyBlue", arrColor()
    AddColor cDodgerBlue, "cDodgerBlue", arrColor()
    'AddColor cSeaBlue, "cSeaBlue", arrColor()
    AddColor cBlue, "cBlue", arrColor()
    'AddColor cBluePurple, "cBluePurple", arrColor()
    AddColor cDeepPurple, "cDeepPurple", arrColor()
    'AddColor cPurple, "cPurple", arrColor()
    'AddColor cPurpleRed, "cPurpleRed", arrColor()
 
    ''AddColor cGainsboro, "cGainsboro", arrColor()
    ''AddColor cWhiteSmoke, "cWhiteSmoke", arrColor()
 
    'AddColor cDarkRed, "cDarkRed", arrColor()
    ''AddColor cBrickRed, "cBrickRed", arrColor()
 
    AddColor cDarkGreen, "cDarkGreen", arrColor()
    'AddColor cGreen, "cGreen", arrColor()
    ''AddColor cOliveDrab, "cOliveDrab", arrColor()
    ''AddColor cLightPink, "cLightPink", arrColor()
    AddColor cMagenta, "cMagenta", arrColor()
    AddColor cHotPink, "cHotPink", arrColor()
    'AddColor cDeepPink, "cDeepPink", arrColor()
 
    AddColor cDarkBrown, "cDarkBrown", arrColor()
    'AddColor cLightBrown, "cLightBrown", arrColor()
    'AddColor cKhaki, "cKhaki", arrColor()
 
    AddColor cEmpty, "cEmpty", arrColor()
End Sub ' AddColors
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub AddGrayscaleColors (arrColor() As ColorType)
    'AddColor cBlack, "cBlack", arrColor()
    AddColor cDimGray, "cDimGray", arrColor()
    AddColor cGray, "cGray", arrColor()
    AddColor cDarkGray, "cDarkGray", arrColor()
    AddColor cSilver, "cSilver", arrColor()
    AddColor cLightGray, "cLightGray", arrColor()
    AddColor cWhite, "cGainsboro", arrColor()
    AddColor cWhite, "cWhiteSmoke", arrColor()
    AddColor cWhite, "cWhite", arrColor()
End Sub ' AddGrayscaleColors
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' END COLOR ARRAY FUNCTIONS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' BEGIN COLOR FUNCTIONS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
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~&
 
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)
    'cWhite = _RGB32(254, 254, 254)
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~& = -1
    cEmpty = _RGB32(0, 0, 0, 0)
End Function ' cEmpty~&
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' END COLOR FUNCTIONS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' ################################################################################################################################################################
' BEGIN TEST 8X8 COLOR FONT
' ################################################################################################################################################################
 
' /////////////////////////////////////////////////////////////////////////////
' BASED ON DetectPixelTest3, ReShrinkImage$
 
Function CustomColorFontTest1$
    ' -----------------------------------------------------------------------------
    ' DECLARATIONS
    Dim sResult As String
 
    Dim imgScreen&
    Dim imgBackground&
    Dim imgCharset&
    Dim iX As Integer
    Dim iY As Integer
    Dim iOffsetX As Integer
    Dim iOffSetY As Integer
    Dim iTileNum As Integer
    Dim MyString As String
    Dim iLoop1 As Integer
    Dim iForeColor As Integer
    Dim iBackColor As Integer
    Dim fgColor As _Unsigned Long
    Dim bgColor As _Unsigned Long
    Dim bHaveForeColor As Integer
    Dim bHaveBackColor As Integer
    Dim iPos1 As Integer
    ReDim arrColor(-1) As ColorType
    Dim iCols As Integer
    Dim iRows As Integer
    Dim bFinished As Integer
 
    ' -----------------------------------------------------------------------------
    ' INITIALIZE
 
    ' LOAD BACKGROUND IMAGE
    imgBackground& = _NewImage(1024, 768, 32)
    Screen imgBackground&
    Cls , cBlack ' set the background color
 
    ' COPY BACKGROUND TO SCREEN
    imgScreen& = _CopyImage(imgBackground&, 32)
 
    ' LOAD TEXT FONT (16 cols x 16 rows of 8x8 tiles)
    sFile$ = m_ProgramPath$ + "Font_8x8_#1_128x128.png" ' 128x128 total, 16x16 of 8x8 tiles
    imgCharset& = _LoadImage(sFile$, 32)
 
    ' DISPLAY SCREEN
    Screen imgScreen&
 
    ' -----------------------------------------------------------------------------
    ' PLOT TO SCREEN
    'iCols = _Width(0) \ _FontWidth
    'iRows = _Height(0) \ _FontHeight
    iCols = _Width(0) \ 8
    iRows = _Height(0) \ 8
    
    'DebugPrint "iCols = " + cstr$(iCols)
    'DebugPrint "iRows = " + cstr$(iRows)
    
    MyString = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()-=_+[]{}\|;:'" + Chr$(34) + ",./<>?`~"
    AddColors arrColor()
    iOffsetX = 0
    iOffSetY = 0
    iForeColor = LBound(arrColor)
    iBackColor = LBound(arrColor)
    'iPos1 = 0
    iY = -1
    iX = -1
    iTileNum = 32
    bHaveBackColor = TRUE
    bFinished = FALSE
    Do
        iX = iX + 1
        If iX >= iCols Then
            iX = 0
            iY = iY + 1
            If iY >= iRows Then bFinished = TRUE
        End If
        If bFinished = FALSE Then
            ' GET TILE
            'iPos1 = iPos1 + 1
            'If iPos1 > Len(MyString) Then iPos1 = 1
            'iTileNum = Asc(Mid$(MyString, iPos1, 1))
            iTileNum = iTileNum + 1
            If iTileNum > 255 Then iTileNum = 33
            
            ' GET FORE COLOR
            bHaveForeColor = FALSE
            Do
                iForeColor = iForeColor + 1
                If iForeColor > UBound(arrColor) Then
                    iForeColor = LBound(arrColor)
                    bHaveBackColor = FALSE
                End If
                If iForeColor <> iBackColor Then
                    If arrColor(iForeColor).value <> cEmpty Then
                        bHaveForeColor = TRUE
                    End If
                End If
            Loop Until bHaveForeColor = TRUE
            
            ' GET BACK COLOR
            If bHaveBackColor = FALSE Then
                Do
                    iBackColor = iBackColor + 1
                    If iBackColor > UBound(arrColor) Then
                        'bFinished = TRUE
                        'Exit Do
                        iBackColor = LBound(arrColor)
                    End If
                    If iBackColor <> iForeColor Then
                        'If arrColor(iBackColor).value <> cEmpty Then
                            bHaveBackColor = TRUE
                        'End If
                    End If
                Loop Until bHaveBackColor = TRUE
            End If
            
            ' DRAW TILE
            If bFinished = FALSE Then
                'DebugPrint _
                '    "Tile " + _Trim$(Str$(iTileNum)) + " " + _
                '    "at (" + _Trim$(Str$(iX)) + "," + _Trim$(Str$(iY)) + ") " + _
                '    "fgcolor = " + arrColor(iForeColor).name + " " + _
                '    "bgcolor = " + arrColor(iBackColor).name
                
                DrawColorTile imgScreen&, imgCharset&, iTileNum, _
                    arrColor(iForeColor).value, arrColor(iBackColor).value, _
                    iX, iY, iOffsetX, iOffsetY
            End If
        End If
    Loop Until bFinished = TRUE
    
IF TRUE=FALSE THEN
    iTileNum = ASC("#")
    fgColor = cWhite
    For iX = 0 To iCols-1
        bgColor = cBlue
        iY = 0: DrawColorTile imgScreen&, imgCharset&, iTileNum, _
                    fgColor, bgColor, _
                    iX, iY, iOffsetX, iOffsetY
        bgColor = cRed
        iY = iRows-1: DrawColorTile imgScreen&, imgCharset&, iTileNum, _
                    fgColor, bgColor, _
                    iX, iY, iOffsetX, iOffsetY
    Next iX
    For iY = 0 To iRows-1
        bgColor = cYellow
        iX = 0: DrawColorTile imgScreen&, imgCharset&, iTileNum, _
                    fgColor, bgColor, _
                    iX, iY, iOffsetX, iOffsetY
        bgColor = cLime
        iX = iCols-1: DrawColorTile imgScreen&, imgCharset&, iTileNum, _
                    fgColor, bgColor, _
                    iX, iY, iOffsetX, iOffsetY
    Next iY
END IF
    
    ' -----------------------------------------------------------------------------
    ' UPDATE SCREEN
    _Display ' update screen with changes
 
    ' -----------------------------------------------------------------------------
    ' DONE
    LOCATE 10,10
    'Input "Press ENTER to continue"; in$
    SLEEP
    
    ' -----------------------------------------------------------------------------
    ' FREE MEMORY
    Screen 0
    IF imgScreen& < -1 OR imgScreen& > 0 THEN _FreeImage imgScreen&
    IF imgBackground& < -1 OR imgBackground& > 0 THEN _FreeImage imgBackground&
    IF imgCharset& < -1 OR imgCharset& > 0 THEN _FreeImage imgCharset&
 
    ' -----------------------------------------------------------------------------
    ' RETURN RESULT
    CustomColorFontTest1 = ""
End Function ' CustomColorFontTest1$
 
' ################################################################################################################################################################
' END TEST 8X8 COLOR FONT
' ################################################################################################################################################################
 
' ################################################################################################################################################################
' BEGIN GRAPHIC TILE FUNCTIONS
' ################################################################################################################################################################
 
' /////////////////////////////////////////////////////////////////////////////
' Draw entire array on screen.
 
Sub PlotTiles (arrTiles() As Integer, imgTiles&, imgScreen&)
    Dim dx%
    Dim dy%
    Dim TileNum%
        
    Screen imgScreen&
        
    For dx% = 1 To UBound(arrTiles, 1)
        For dy% = 1 To UBound(arrTiles, 2)
            TileNum% = arrTiles(dx%, dy%)
            DrawTile imgTiles&, TileNum%, imgScreen&, dx% - 1, dy% - 1
        Next dy%
    Next dx%
        
    '_Display ' update screen with changes
End Sub ' PlotTiles
 
' /////////////////////////////////////////////////////////////////////////////
' DIV and MOD:
' c% = a% \ b% ' DIV (INTEGER DIVISION)
' d% = a% MOD b% ' MODULO (DIVISION REMAINDER)
 
' tw% = tile width/height (in pixels)
 
Sub DrawTile (imgTiles&, TileNum%, imgScreen&, dx%, dy%)
    '_PUTIMAGE (0, 0), i ' places image at upper left corner of window w/o stretching it
    '_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) ' portion of source to the top-left corner of the destination page
    '_PUTIMAGE (64,  128), imgTiles&,      imgScreen&,   (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
    '_PutImage (64, 128), imgTiles&, imgScreen&, (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
        
    ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
    cols% = 16
    rows% = 16
        
    ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
    sc% = TileNum% Mod rows%
    sr% = TileNum% \ rows%
        
    'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
        
    ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
    'sx1% = sc% * tw%
    sx1% = sc% * 32
        
    ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
    'sy1% = sr% * tw%
    sy1% = sr% * 32
        
    ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
    'sx2% = sx1% + (tw% - 1)
    sx2% = sx1% + 31
        
    ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
    'sy2% = sy1% + (tw% - 1)
    sy2% = sy1% + 31
        
    ' GET THE DESTINATION X COORDINATE ON THE SCREEN
    'xDest% = dx% * tw%
    xDest% = dx% * 32
        
    ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
    'yDest% = (dy% * tw%) + 64
    yDest% = (dy% * 32) + 64
        
    'DebugPrint "Tile#" + cstr$(TileNum%) + " at r" + cstr$(sr%) + "c" + cstr$(sc%) + " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
        
    _Dest imgScreen&
    _PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%) ' portion of source to the top-left corner of the destination page
        
End Sub ' DrawTile
 
' ################################################################################################################################################################
' END GRAPHIC TILE FUNCTIONS
' ################################################################################################################################################################
 
' ################################################################################################################################################################
' BEGIN TILE DEFINITIONS
' ################################################################################################################################################################
 
' /////////////////////////////////////////////////////////////////////////////
' Loads tileset of 256 8x8 tiles into a 128x128 image (16 columns x 16 rows)
' where tiles are a single color.
 
' Parameters:
' imgTiles& = contains the resulting tileset image
' fgColor = tile color
' bgColor = tile background color
 
Function GetTiles$(imgTiles&, fgColor AS _UNSIGNED Long, bgColor AS _UNSIGNED Long)
    Dim RoutineName As String : RoutineName = "GetTiles$"
    Dim sResult As String : sResult = ""
    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 iTileX As Integer
    Dim iTileY As Integer
    Dim iToX As Integer
    Dim iToY As Integer
    Dim pixelColor As _UNSIGNED Long
    Dim bFinished As Integer
    
    ' Do not try to free image handles currently being used as the active SCREEN. Change screen modes first.
    ' _DISPLAY turns off the auto refresh screen default _AUTODISPLAY behavior. Prevents screen flickering.
    IF imgTiles& < -1 OR imgTiles& > 0 THEN _FREEIMAGE imgTiles&
    imgTiles& = _NewImage(128, 128, 32)
'    Cls , cEmpty ' set the background color as transparent
    
    'Screen imgTiles&
    'Cls , bgColor ' set the background color as transparent
    _Dest imgTiles&
    'DrawRect 0, 0, 128, 128, cEmpty
    'DrawBox 0, 0, 128, cWhite
    Cls , cEmpty ' set the background color as transparent
    
    GetTileText arrTileText()
    iTileX = 0
    iTileY = 0
    bFinished = FALSE
    For iTileNum = 0 to 255
        split arrTileText(iTileNum), chr$(13), arrLines()
        iToY = iTileY * 8
        if (iToY > _Height(imgTiles&)) then
            sResult = "iToY value " + cstr$(iToY) + " " + _
                "exceeded image height " + cstr$(_Height(imgTiles&)) + ". " + _
                "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
            bFinished = TRUE
            Exit For
        end if
        
        For iFromY = lbound(arrLines) to ubound(arrLines)
            sLine = arrLines(iFromY)
            if len(sLine) > 0 then
                iToX = iTileX * 8
                for iFromX = 1 to len(sLine)
                    sChar = mid$(sLine, iFromX, 1)
                    if sChar = "." then
                        pixelColor = bgColor ' cEmpty ' POINT(iFromX, iFromY)
                    else
                        pixelColor = fgColor ' cBlack
                    end if
                    PSET(iToX, iToY), pixelColor
                    iToX = iToX + 1
                    if (iToX > _Width(imgTiles&)) then
                        sResult = "iToX value " + cstr$(iToX) + " " + _
                            "exceeded image width " + cstr$(_Width(imgTiles&)) + ". " + _
                            "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
                        bFinished = TRUE
                        Exit For
                    end if
                next iFromX
                iToY = iToY + 1
                If bFinished = TRUE Then Exit For
            end if
        Next iFromY
        If bFinished = TRUE Then Exit For
                
        iTileX = iTileX + 1
        if iTileX > 15 then
            iTileX = 0
            iTileY = iTileY + 1
            'if iTileY > 15 then
            '    sResult = "Exceeded max 16 rows of tiles." + _
            '        "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
            '    bFinished = TRUE
            '    exit for
            'end if
        end if
    Next iTileNum
    
    GetTiles$ = sResult
End Function ' GetTiles$
 
' /////////////////////////////////////////////////////////////////////////////
' Returns an array of 256 8x8 tiles defined in text
' where each tile is defined by "." as blank and anything else is a pixel
' and each row is delimited by chr$(13)
 
Sub GetTileText(arrTileText() As String)
    ReDim arrTileText(0 to 255) As String
    
    m$ = ""
    m$ = m$ + "22....22" + chr$(13)
    m$ = m$ + "2..22..2" + chr$(13)
    m$ = m$ + "2..2...2" + chr$(13)
    m$ = m$ + "2...2..2" + chr$(13)
    m$ = m$ + "2..22..2" + chr$(13)
    m$ = m$ + "2..22..2" + chr$(13)
    m$ = m$ + "22....22" + chr$(13)
    m$ = m$ + "22222222" + 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$ + "22222.22" + chr$(13)
    m$ = m$ + "22222.22" + chr$(13)
    m$ = m$ + "22222.22" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "22.22222" + chr$(13)
    m$ = m$ + "22.22222" + chr$(13)
    m$ = m$ + "22.22222" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    arrTileText(241) = 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(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$ + "........" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "...2222." + chr$(13)
    m$ = m$ + "...2...." + chr$(13)
    m$ = m$ + "...2...." + chr$(13)
    m$ = m$ + "...2...." + chr$(13)
    m$ = m$ + "........" + chr$(13)
    arrTileText(244) = m$
 
    m$ = ""
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + ".222...." + chr$(13)
    m$ = m$ + "...2...." + chr$(13)
    m$ = m$ + "...2...." + chr$(13)
    m$ = m$ + "...2...." + chr$(13)
    m$ = m$ + "........" + chr$(13)
    arrTileText(245) = m$
 
    m$ = ""
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "...2...." + chr$(13)
    m$ = m$ + "...2...." + chr$(13)
    m$ = m$ + "...2222." + chr$(13)
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    arrTileText(246) = m$
 
    m$ = ""
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "...2...." + chr$(13)
    m$ = m$ + "...2...." + chr$(13)
    m$ = m$ + ".222...." + chr$(13)
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    m$ = m$ + "........" + chr$(13)
    arrTileText(247) = 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(248) = 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(249) = 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(250) = 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(251) = 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(252) = 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(253) = m$
 
    m$ = ""
    m$ = m$ + "22222222" + 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......2" + chr$(13)
    m$ = m$ + "22222222" + chr$(13)
    arrTileText(254) = m$
        
    m$ = ""
    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$ + "22222222" + chr$(13)
    m$ = m$ + "22222222" + chr$(13)
    arrTileText(255) = m$
        
End Sub ' GetTileText
 
' ################################################################################################################################################################
' END TILE DEFINITIONS
' ################################################################################################################################################################
 
 
' ################################################################################################################################################################
' BEGIN COLOR TEXT TILE FUNCTIONS
' ################################################################################################################################################################
 
' /////////////////////////////////////////////////////////////////////////////
' Calculates the tile locations ahead of time to save time copying them
' to the screen.
 
' TileSheetMapType
'   xStart
'   xEnd
'   yStart
'   yEnd
 
' TileMapType
'   xPos
'   yPos
 
'' DECLARATIONS
'Dim TileCount%
'Dim TilesheetCols%
'Dim TilesheetRows%
'Dim tileHeightPx%
'Dim tileWidthPx%
'Dim xOffset%
'Dim yOffset%
'Dim numTilesX%
'Dim numTilesY%
 
'REDIM arrTileSheetMap(255) AS TileSheetMapType
'REDIM arrTileMap(20, 20) AS TileMapType
 
'' # OF TILES
'TileCount% = 256
 
'' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
'TilesheetCols% = 16
'TilesheetRows% = 16
 
'' TILE HEIGHT/WIDTH
'tileHeightPx% = 32
'tileWidthPx% = 32
 
'' SCREEN OFFSET
'xOffset% = 0
'yOffset% = 64
 
'' HOW MANY TILES ACROSS
'numTilesX% = 20
'numTilesY% = 20
 
'ComputeTileLocations arrTileSheetMap(), arrTileMap(), TileCount%, TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, xOffset%, yOffset%, numTilesX%, numTilesY%
 
Sub ComputeTileLocations (arrTileSheetMap() AS TileSheetMapType, arrTileMap() AS TileMapType, TileCount%, TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, xOffset%, yOffset%, numTilesX%, numTilesY%)
    DIM TileNum%
    DIM sc%
    DIM sr%
    DIM sx1%
    DIM sx2%
    DIM sy1%
    DIM sy2%
 
    DIM dx%
    DIM dy%
    DIM xDest%
    DIM yDest%
 
    ' -----------------------------------------------------------------------------
    ' CALCULATE TILE SHEET COORDINATES FOR TILES 0-255
 
    FOR TileNum% = 0 TO (TileCount% - 1)
 
        ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
        sc% = TileNum% Mod TilesheetCols%
        sr% = TileNum% \ TilesheetRows%
 
        'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
 
        ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
        'sx1% = sc% * tw%
        sx1% = sc% * tileWidthPx%
 
        ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
        'sy1% = sr% * tw%
        sy1% = sr% * tileHeightPx%
 
        ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
        'sx2% = sx1% + (tw% - 1)
        sx2% = sx1% + (tileWidthPx% - 1)
 
        ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
        'sy2% = sy1% + (tw% - 1)
        sy2% = sy1% + (tileHeightPx% - 1)
 
        ' SAVE THE COORDINATES FOR TileNum% IN THE ARRAY
        arrTileSheetMap(TileNum%).xStart = sx1%
        arrTileSheetMap(TileNum%).xEnd = sx2%
        arrTileSheetMap(TileNum%).yStart = sy1%
        arrTileSheetMap(TileNum%).yEnd = sy2%
 
    NEXT TileNum%
 
    ' -----------------------------------------------------------------------------
    ' CALCULATE SCREEN COORDINATES FOR TILES
 
    FOR dx% = 0 TO (numTilesX% - 1)
        FOR dy% = 0 TO (numTilesY% - 1)
 
            ' GET THE DESTINATION X COORDINATE ON THE SCREEN
            'xDest% = dx% * tw%
            xDest% = (dx% * tileWidthPx%) + xOffset%
 
            ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
            'yDest% = (dy% * tw%) + 64
            yDest% = (dy% * tileHeightPx%) + yOffset%
 
            'Print "Tile#" + cstr$(TileNum%) + " at r" + cstr$(sr%) + "c" + cstr$(sc%) + " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
 
            ' SAVE THE SCREEN PIXEL COORDINATES FOR dx%, dy% IN THE ARRAY
            ' WHERE dx% and dy% ARE 1-BASED
            arrTileMap(dx%+1, dy%+1).xPos = xDest%
            arrTileMap(dx%+1, dy%+1).yPos = yDest%
 
        NEXT dy%
    NEXT dx%
 
End Sub ' ComputeTileLocations
 
' /////////////////////////////////////////////////////////////////////////////
' Like DrawColorTile but faster because it uses precalculated coordinates
' to find the tile on the tile sheet, and the destination on the screen.
 
' Receives:
' imgScreen& = handle to screen to draw tile on
' imgTiles& = handle to 16x16 tile sheet of 16x16 pixel tiles colored black (256 tiles)
' arrTileSheetMap() = array of TileSheetMapType which holds precalculated positions of tiles on tilesheet
' arrTileMap() = array of TileMapType which holds precalculated positions where tiles go on screen
' tileWidthPx% = width of tiles in pixels
' tileHeightPx% = height of tiles in pixels
' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
' TileColor~& = color to use for tile
' BackColor~& = color to use for background
' dx% = column # to draw tile at (where each column is 16 pixels wide)
' dy% = row # to draw tile at (where each row is 16 pixels high)
 
' *** QUESTION
' *** IF THE SUB RECEIVES IMAGE HANDLE PARAMETERS imgScreen&, imgTiles&
' *** ARE THESE BY REFERENCE?
' *** IF NOT, DO THESE LOCAL COPIES HAVE TO BE RELEASED WITH _FREEIMAGE ?
 
' TODO: support transparency?
'       Colors returned are always opaque as the transparency value is always 255. Use _ALPHA or _CLEARCOLOR to change it.
 
'DrawColorTileFast imgScreen&, imgTiles&, arrTileSheet8Map(), arrTile8Map(), tileWidthPx%, tileHeightPx%, TileNum%, TileColor~&, BackColor~&, dx%, dy%
 
Sub DrawColorTileFast (imgScreen&, imgTiles&, arrTileSheetMap() AS TileSheetMapType, arrTileMap() AS TileMapType, tileWidthPx%, tileHeightPx%, TileNum%, TileColor~&, BackColor~&, dx%, dy%)
    DIM ColorSprite&
    DIM UniversalSprite&
 
    ' -----------------------------------------------------------------------------
    ' PART 1: DRAW BACKGROUND COLOR
    IF BackColor~& <> cEmpty THEN
 
        ' CREATE A TEMPORARY TILE
        ColorSprite& = _NewImage(tileWidthPx%, tileHeightPx%, 32)
        _Dest ColorSprite&
 
        ' AND FILL IT WITH THE BACKGROUND COLOR
        CLS, BackColor~&
 
        ' COPY THE TEMPORARY BACKGROUND TILE TO THE SCREEN imgScreen&
        _SOURCE ColorSprite&
        _Dest imgScreen&
 
        '_PUTIMAGE (0  , 0  ), sourceHandle& ' places image at upper left corner of window w/o stretching it
        '_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) ' portion of source to the top-left corner of the destination page
        '_PUTIMAGE (64,  128), imgTiles&,     imgScreen&,  (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
        '_PutImage (64,  128), imgTiles&,     imgScreen&,  (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
        _PutImage (arrTileMap(dx%, dy%).xPos, arrTileMap(dx%, dy%).yPos), ColorSprite&, imgScreen&, (0, 0)-(tileWidthPx% - 1, tileHeightPx% - 1) ' portion of source to the top-left corner of the destination page
    END IF
 
    ' -----------------------------------------------------------------------------
    ' PART 2: DRAW FOREGROUND TILE IN SPECIFIED COLOR
 
    ' CREATE A TEMPORARY TILE TO COLOR
    UniversalSprite& = _NewImage(tileWidthPx%, tileHeightPx%, 32)
 
    ' COPY THE SOURCE (MASK) TILE TO THE TEMPORARY ONE
    _SOURCE imgTiles&
    _Dest UniversalSprite&
 
    '_PutImage(dx, dy)  sourceHandle&, destHandle&     , (sx1                             , sy1                             )-(sx2                           , sy2                           )
    _PutImage (0 , 0 ), imgTiles&,     UniversalSprite&, (arrTileSheetMap(TileNum%).xStart, arrTileSheetMap(TileNum%).yStart)-(arrTileSheetMap(TileNum%).xEnd, arrTileSheetMap(TileNum%).yEnd)
 
    ' COLOR IN THE TEMPORARY TILE
    ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
'    IF ColorSprite& < -1 THEN _FreeImage ColorSprite&
    IF ColorSprite& < -1 OR ColorSprite& > 0 THEN _FreeImage ColorSprite&
    DoColorSwap UniversalSprite&, cBlack, TileColor~&, ColorSprite&
    'ColorSprite& = swapcolor&(UniversalSprite&, cBlack, TileColor~&)
    ' ^^^
    ' PROGRAM CRASHED HERE, BEFORE FIXING swapcolor& AND CHANGING FROM FUNCTION TO SUB DoColorSwap
 
    ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
    _SOURCE ColorSprite&
    _Dest imgScreen&
    '_PutImage(dx                       , dy                       ), sourceHandle&, destHandle&, (sx1, sy1)-(sx2,              sy2              )
    _PutImage (arrTileMap(dx%, dy%).xPos, arrTileMap(dx%, dy%).yPos), ColorSprite&,  imgScreen&,  (0,   0  )-(tileWidthPx% - 1, tileHeightPx% - 1) ' portion of source to the top-left corner of the destination page
 
    ' -----------------------------------------------------------------------------
    ' PART 3: CLEANUP
 
    ' ADDED PER FellipeHeitor
    IF ColorSprite& < -1 OR ColorSprite& > 0 THEN _FREEIMAGE ColorSprite&
    IF UniversalSprite& < -1 OR UniversalSprite& > 0 THEN _FREEIMAGE UniversalSprite&
 
End Sub ' DrawColorTileFast
 
' /////////////////////////////////////////////////////////////////////////////
' Like DrawTile but faster because it uses precalculated coordinates
' to find the tile on the tile sheet, and the destination on the screen.
 
'OLD: DrawTileFast imgTiles&, TileNum%, imgScreen&, arrTileSheetMap(), arrTileMap(), dx%, dy%
'NEW: DrawTileFast dx%, dy%, TileNum%, imgScreen&, imgTiles&, arrTileSheetMap(), arrTileMap()
 
Sub DrawTileFast (dx%, dy%, TileNum%, imgScreen&, imgTiles&, arrTileSheetMap() AS TileSheetMapType, arrTileMap() AS TileMapType)
    _Dest imgScreen&
    ' portion of source to the top-left corner of the destination page
    _PutImage (arrTileMap(dx%, dy%).xPos, arrTileMap(dx%, dy%).yPos), imgTiles&, imgScreen&, (arrTileSheetMap(TileNum%).xStart, arrTileSheetMap(TileNum%).yStart)-(arrTileSheetMap(TileNum%).xEnd, arrTileSheetMap(TileNum%).yEnd)
End Sub ' DrawTileFast
 
' /////////////////////////////////////////////////////////////////////////////
' Draw entire array on screen.
 
' Like PlotTilesToScreen but faster because it uses precalculated coordinates
' to find the tile on the tile sheet, and the destination on the screen.
 
'PlotTilesToScreenFast imgScreen&, imgTiles&, arrTileSheetMap(), arrTileMap(), arrTiles()
Sub PlotTilesToScreenFast(imgScreen&, imgTiles&, arrTileSheetMap() AS TileSheetMapType, arrTileMap() AS TileMapType, arrTiles() AS INTEGER)
    Dim dx%
    Dim dy%
    Dim TileNum%
    
    'Screen imgScreen&
    For dx% = 1 To UBound(arrTiles, 1)
        For dy% = 1 To UBound(arrTiles, 2)
            TileNum% = arrTiles(dx%, dy%)
            'DrawTile imgTiles&, TileNum%, imgScreen&, dx%-1, dy%-1
            'DrawTileFast imgTiles&, TileNum%, imgScreen&, arrTileSheetMap(), arrTileMap(), dx%, dy%
            DrawTileFast dx%, dy%, TileNum%, imgScreen&, imgTiles&, arrTileSheetMap(), arrTileMap()
        Next dy%
    Next dx%
    '_Display ' update screen with changes
End Sub ' PlotTilesToScreenFast
 
' /////////////////////////////////////////////////////////////////////////////
' Original version which calculates coordinates on tile sheet and destination
' screen every time. For a faster version uses precalculated coordinates,
' see DrawColorTileFast.
 
' Receives:
' imgTiles& = handle to 16x16 tile sheet of 16x16 pixel tiles colored black (256 tiles)
' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
' TileColor~& = color to use for tile
' imgScreen& = handle to screen to draw tile on
' dx% = column # to draw tile at (where each column is 16 pixels wide)
' dy% = row # to draw tile at (where each row is 16 pixels high)
' xOffset% = offset tile this many columns over
' yOffset% = offset tile this many rows down
 
' TODO: support background color bcolor&
 
' TODO: support transparency?
'       Colors returned are always opaque as the transparency value is always 255. Use _ALPHA or _CLEARCOLOR to change it.
 
Sub DrawColorTile (imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%, xOffset%, yOffset%)
    Dim cols%
    Dim rows%
    Dim sc%
    Dim sr%
    Dim sx1%
    Dim sy1%
    Dim sx2%
    Dim sy2%
    Dim xDest%
    Dim yDest%
    Dim ColorSprite&
    Dim UniversalSprite&
 
    '_PUTIMAGE (0, 0), i ' places image at upper left corner of window w/o stretching it
    '_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) ' portion of source to the top-left corner of the destination page
    '_PUTIMAGE (64,  128), imgTiles&,      imgScreen&,   (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
    '_PutImage (64, 128), imgTiles&, imgScreen&, (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
 
    ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
    cols% = 16
    rows% = 16
 
    ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
    sc% = TileNum% Mod rows%
    sr% = TileNum% \ rows%
 
    'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
 
    ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
    'sx1% = sc% * tw%
    sx1% = sc% * 8
 
    ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
    'sy1% = sr% * tw%
    sy1% = sr% * 8
 
    ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
    'sx2% = sx1% + (tw% - 1)
    sx2% = sx1% + 7
 
    ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
    'sy2% = sy1% + (tw% - 1)
    sy2% = sy1% + 7
 
    ' GET THE DESTINATION X COORDINATE ON THE SCREEN
    'xDest% = dx% * tw%
    xDest% = dx% * 8 + (8 * xOffset%)
 
    ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
    ''yDest% = (dy% * tw%) + 64
    'yDest% = (dy% * 8) + 64 + (8 * yOffset%)
    yDest% = (dy% * 8) + (8 * yOffset%)
 
    ' IS THERE A BACKGROUND COLOR?
    If BackColor~& <> cEmpty Then
        ColorSprite& = _NewImage(8, 8, 32)
        _Dest ColorSprite&
        'SCREEN ColorSprite&
        'CLS , _RGB(0, 0, 0) ' makes the background opaque black
        Cls , BackColor~&
 
        'SCREEN imgScreen& ' SHIFT FOCUS BACK TO THE SCREEN
 
        ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
        _Source ColorSprite&
        _Dest imgScreen&
        'TODO: SHOULDN'T THIS BE 7,7 NOT 15,15 ?
        '_PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(15, 15) ' portion of source to the top-left corner of the destination page
        _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
    End If
 
    ' CREATE A TEMPORARY TILE TO COLOR
    'UniversalSprite& = _NewImage(tw%, tw%, 32)
    UniversalSprite& = _NewImage(8, 8, 32)
 
    ' COPY THE TILE TO THE TEMPORARY ONE
    _Source imgTiles&
    _Dest UniversalSprite&
    _PutImage (0, 0), imgTiles&, UniversalSprite&, (sx1%, sy1%)-(sx2%, sy2%)
 
    ' COLOR IN THE TEMPORARY TILE
    ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
    'If ColorSprite& < -1 Then _FreeImage ColorSprite&
    IF ColorSprite& < -1 OR ColorSprite& > 0 THEN _FreeImage ColorSprite&
    'ColorSprite& = swapcolor&(UniversalSprite&, cBlack, TileColor~&)
    DoColorSwap UniversalSprite&, cBlack, TileColor~&, ColorSprite&
 
    ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
    _Source ColorSprite&
    _Dest imgScreen&
    _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
 
    ' ADDED PER FellipeHeitor
    IF ColorSprite& < -1 OR ColorSprite& > 0 THEN _FreeImage ColorSprite&
    IF UniversalSprite& < -1 OR UniversalSprite& > 0 THEN _FreeImage UniversalSprite&
 
End Sub ' DrawColorTile
 
'' /////////////////////////////////////////////////////////////////////////////
'' Like DrawColorTile but faster because it uses precalculated coordinates
'' to find the tile on the tile sheet, and the destination on the screen.
'
'' Receives:
'' imgScreen& = handle to screen to draw tile on
'' imgTiles& = handle to 16x16 tile sheet of 16x16 pixel tiles colored black (256 tiles)
'' arrTileSheetMap() = array of TileSheetMapType which holds precalculated positions of tiles on tilesheet
'' arrTileMap() = array of TileMapType which holds precalculated positions where tiles go on screen
'' tileWidthPx% = width of tiles in pixels
'' tileHeightPx% = height of tiles in pixels
'' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
'' TileColor~& = color to use for tile
'' BackColor~& = color to use for background
'' dx% = column # to draw tile at (where each column is 16 pixels wide)
'' dy% = row # to draw tile at (where each row is 16 pixels high)
'
'' *** QUESTION
'' *** IF THE SUB RECEIVES IMAGE HANDLE PARAMETERS imgScreen&, imgTiles&
'' *** ARE THESE BY REFERENCE?
'' *** IF NOT, DO THESE LOCAL COPIES HAVE TO BE RELEASED WITH _FREEIMAGE ?
'
'' TODO: support transparency?
''       Colors returned are always opaque as the transparency value is always 255. Use _ALPHA or _CLEARCOLOR to change it.
'
''DrawColorTileFast imgScreen&, imgTiles&, arrTileSheet16Map(), arrTile16Map(), tileWidthPx%, tileHeightPx%, TileNum%, TileColor~&, BackColor~&, dx%, dy%
'
'Sub DrawColorTileFast (imgScreen&, imgTiles&, arrTileSheetMap() AS TileSheetMapType, arrTileMap() AS TileMapType, tileWidthPx%, tileHeightPx%, TileNum%, TileColor~&, BackColor~&, dx%, dy%)
'    DIM ColorSprite&
'    DIM UniversalSprite&
'
'    ' -----------------------------------------------------------------------------
'    ' PART 1: DRAW BACKGROUND COLOR
'    IF BackColor~& <> cEmpty& THEN
'
'        ' CREATE A TEMPORARY TILE
'        ColorSprite& = _NewImage(tileWidthPx%, tileHeightPx%, 32)
'        _Dest ColorSprite&
'
'        ' AND FILL IT WITH THE BACKGROUND COLOR
'        CLS, BackColor~&
'
'        ' COPY THE TEMPORARY BACKGROUND TILE TO THE SCREEN imgScreen&
'        _SOURCE ColorSprite&
'        _Dest imgScreen&
'
'        '_PUTIMAGE (0  , 0  ), sourceHandle& ' places image at upper left corner of window w/o stretching it
'        '_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) ' portion of source to the top-left corner of the destination page
'        '_PUTIMAGE (64,  128), imgTiles&,     imgScreen&,  (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
'        '_PutImage (64,  128), imgTiles&,     imgScreen&,  (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
'        _PutImage (arrTileMap(dx%, dy%).xPos, arrTileMap(dx%, dy%).yPos), ColorSprite&, imgScreen&, (0, 0)-(tileWidthPx% - 1, tileHeightPx% - 1) ' portion of source to the top-left corner of the destination page
'    END IF
'
'    ' -----------------------------------------------------------------------------
'    ' PART 2: DRAW FOREGROUND TILE IN SPECIFIED COLOR
'
'    ' CREATE A TEMPORARY TILE TO COLOR
'    UniversalSprite& = _NewImage(tileWidthPx%, tileHeightPx%, 32)
'
'    ' COPY THE SOURCE (MASK) TILE TO THE TEMPORARY ONE
'    _SOURCE imgTiles&
'    _Dest UniversalSprite&
'
'    '_PutImage(dx, dy)  sourceHandle&, destHandle&     , (sx1                             , sy1                             )-(sx2                           , sy2                           )
'    _PutImage (0 , 0 ), imgTiles&,     UniversalSprite&, (arrTileSheetMap(TileNum%).xStart, arrTileSheetMap(TileNum%).yStart)-(arrTileSheetMap(TileNum%).xEnd, arrTileSheetMap(TileNum%).yEnd)
'
'    ' COLOR IN THE TEMPORARY TILE
'    ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
''    IF ColorSprite& < -1 THEN _FreeImage ColorSprite&
'    IF ColorSprite& < -1 OR ColorSprite& > 0 THEN _FreeImage ColorSprite&
'    DoColorSwap UniversalSprite&, cBlack, TileColor~&, ColorSprite&
'    'ColorSprite& = swapcolor&(UniversalSprite&, cBlack, TileColor~&)
'    ' ^^^
'    ' PROGRAM CRASHED HERE, BEFORE FIXING swapcolor& AND CHANGING FROM FUNCTION TO SUB DoColorSwap
'
'    ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
'    _SOURCE ColorSprite&
'    _Dest imgScreen&
'    '_PutImage(dx                       , dy                       ), sourceHandle&, destHandle&, (sx1, sy1)-(sx2,              sy2              )
'    _PutImage (arrTileMap(dx%, dy%).xPos, arrTileMap(dx%, dy%).yPos), ColorSprite&,  imgScreen&,  (0,   0  )-(tileWidthPx% - 1, tileHeightPx% - 1) ' portion of source to the top-left corner of the destination page
'
'    ' -----------------------------------------------------------------------------
'    ' PART 3: CLEANUP
'
'    ' ADDED PER FellipeHeitor
'    IF ColorSprite& < -1 OR ColorSprite& > 0 THEN _FREEIMAGE ColorSprite&
'    IF UniversalSprite& < -1 OR UniversalSprite& > 0 THEN _FREEIMAGE UniversalSprite&
'
'End Sub ' DrawColorTileFast
 
' /////////////////////////////////////////////////////////////////////////////
' Latest version with NOVARSEG's changes.
 
' Based on code from:
 
' Image color swap?
' https://www.qb64.org/forum/index.php?topic=2312.0
 
' Like Function swapcolor& except returns new image in a parameter
' in case being a function causes a memory leak?
 
Sub DoColorSwap (imgOriginal&, oldcolor~&, newcolor~&, imgNew&)
    Dim m As _MEM
    Dim a As _Offset
    Dim c As _Unsigned Long
    a = 0
    imgNew& = _CopyImage(imgOriginal&, 32)
    m = _MemImage(imgNew&)
    Do Until a = m.SIZE - 4
        a = a + 4
        c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
        If c = oldcolor~& Then
            _MemPut m, m.OFFSET + a, newcolor~&
        End If
    Loop
    _MemFree m
End Sub ' DoColorSwap&
 
' ################################################################################################################################################################
' END COLOR TEXT TILE FUNCTIONS
' ################################################################################################################################################################
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' BEGIN DEBUGGING ROUTINES #DEBUGGING
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
Sub DebugPrint (s$)
    If m_bDebug = TRUE Then
        _Echo s$
        'ReDim arrLines$(0)
        'dim delim$ : delim$ = Chr$(13)
        'split MyString, delim$, arrLines$()
    End If
End Sub ' DebugPrint
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' END DEBUGGING ROUTINES @DEBUGGING
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' BEGIN PSET 8-BIT PATTERN PLOTTING CODE
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' /////////////////////////////////////////////////////////////////////////////
' DrawTileBitPattern8PSET imgScreen&, arrTileBytes(), _ 
'     iTileNum, iCol, iRow, fgColor, bgColor
' where arrTileBytes is
' arrTileBytes(0 to 255, 0 To 7) As Integer
 
Sub DrawTileBitPattern8PSET(  _ 
        imgScreen&, arrTileBytes() As Integer, _ 
        iTileNum As Integer, iCol As Integer, iRow As Integer, _ 
        fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
        )
        
        Dim iByte As Integer
        for iByte = 0 to 7
                Select Case arrTileBytes(iTileNum, iByte)
                        Case 0:
                                DrawBitPatternPSET000 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 1:
                                DrawBitPatternPSET001 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 2:
                                DrawBitPatternPSET002 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 3:
                                DrawBitPatternPSET003 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 4:
                                DrawBitPatternPSET004 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 5:
                                DrawBitPatternPSET005 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 6:
                                DrawBitPatternPSET006 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 7:
                                DrawBitPatternPSET007 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 8:
                                DrawBitPatternPSET008 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 9:
                                DrawBitPatternPSET009 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 10:
                                DrawBitPatternPSET010 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 11:
                                DrawBitPatternPSET011 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 12:
                                DrawBitPatternPSET012 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 13:
                                DrawBitPatternPSET013 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 14:
                                DrawBitPatternPSET014 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 15:
                                DrawBitPatternPSET015 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 16:
                                DrawBitPatternPSET016 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 17:
                                DrawBitPatternPSET017 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 18:
                                DrawBitPatternPSET018 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 19:
                                DrawBitPatternPSET019 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 20:
                                DrawBitPatternPSET020 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 21:
                                DrawBitPatternPSET021 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 22:
                                DrawBitPatternPSET022 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 23:
                                DrawBitPatternPSET023 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 24:
                                DrawBitPatternPSET024 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 25:
                                DrawBitPatternPSET025 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 26:
                                DrawBitPatternPSET026 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 27:
                                DrawBitPatternPSET027 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 28:
                                DrawBitPatternPSET028 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 29:
                                DrawBitPatternPSET029 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 30:
                                DrawBitPatternPSET030 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 31:
                                DrawBitPatternPSET031 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 32:
                                DrawBitPatternPSET032 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 33:
                                DrawBitPatternPSET033 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 34:
                                DrawBitPatternPSET034 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 35:
                                DrawBitPatternPSET035 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 36:
                                DrawBitPatternPSET036 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 37:
                                DrawBitPatternPSET037 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 38:
                                DrawBitPatternPSET038 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 39:
                                DrawBitPatternPSET039 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 40:
                                DrawBitPatternPSET040 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 41:
                                DrawBitPatternPSET041 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 42:
                                DrawBitPatternPSET042 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 43:
                                DrawBitPatternPSET043 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 44:
                                DrawBitPatternPSET044 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 45:
                                DrawBitPatternPSET045 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 46:
                                DrawBitPatternPSET046 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 47:
                                DrawBitPatternPSET047 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 48:
                                DrawBitPatternPSET048 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 49:
                                DrawBitPatternPSET049 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 50:
                                DrawBitPatternPSET050 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 51:
                                DrawBitPatternPSET051 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 52:
                                DrawBitPatternPSET052 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 53:
                                DrawBitPatternPSET053 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 54:
                                DrawBitPatternPSET054 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 55:
                                DrawBitPatternPSET055 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 56:
                                DrawBitPatternPSET056 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 57:
                                DrawBitPatternPSET057 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 58:
                                DrawBitPatternPSET058 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 59:
                                DrawBitPatternPSET059 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 60:
                                DrawBitPatternPSET060 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 61:
                                DrawBitPatternPSET061 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 62:
                                DrawBitPatternPSET062 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 63:
                                DrawBitPatternPSET063 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 64:
                                DrawBitPatternPSET064 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 65:
                                DrawBitPatternPSET065 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 66:
                                DrawBitPatternPSET066 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 67:
                                DrawBitPatternPSET067 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 68:
                                DrawBitPatternPSET068 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 69:
                                DrawBitPatternPSET069 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 70:
                                DrawBitPatternPSET070 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 71:
                                DrawBitPatternPSET071 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 72:
                                DrawBitPatternPSET072 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 73:
                                DrawBitPatternPSET073 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 74:
                                DrawBitPatternPSET074 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 75:
                                DrawBitPatternPSET075 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 76:
                                DrawBitPatternPSET076 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 77:
                                DrawBitPatternPSET077 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 78:
                                DrawBitPatternPSET078 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 79:
                                DrawBitPatternPSET079 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 80:
                                DrawBitPatternPSET080 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 81:
                                DrawBitPatternPSET081 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 82:
                                DrawBitPatternPSET082 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 83:
                                DrawBitPatternPSET083 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 84:
                                DrawBitPatternPSET084 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 85:
                                DrawBitPatternPSET085 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 86:
                                DrawBitPatternPSET086 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 87:
                                DrawBitPatternPSET087 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 88:
                                DrawBitPatternPSET088 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 89:
                                DrawBitPatternPSET089 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 90:
                                DrawBitPatternPSET090 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 91:
                                DrawBitPatternPSET091 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 92:
                                DrawBitPatternPSET092 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 93:
                                DrawBitPatternPSET093 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 94:
                                DrawBitPatternPSET094 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 95:
                                DrawBitPatternPSET095 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 96:
                                DrawBitPatternPSET096 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 97:
                                DrawBitPatternPSET097 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 98:
                                DrawBitPatternPSET098 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 99:
                                DrawBitPatternPSET099 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 100:
                                DrawBitPatternPSET100 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 101:
                                DrawBitPatternPSET101 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 102:
                                DrawBitPatternPSET102 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 103:
                                DrawBitPatternPSET103 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 104:
                                DrawBitPatternPSET104 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 105:
                                DrawBitPatternPSET105 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 106:
                                DrawBitPatternPSET106 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 107:
                                DrawBitPatternPSET107 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 108:
                                DrawBitPatternPSET108 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 109:
                                DrawBitPatternPSET109 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 110:
                                DrawBitPatternPSET110 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 111:
                                DrawBitPatternPSET111 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 112:
                                DrawBitPatternPSET112 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 113:
                                DrawBitPatternPSET113 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 114:
                                DrawBitPatternPSET114 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 115:
                                DrawBitPatternPSET115 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 116:
                                DrawBitPatternPSET116 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 117:
                                DrawBitPatternPSET117 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 118:
                                DrawBitPatternPSET118 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 119:
                                DrawBitPatternPSET119 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 120:
                                DrawBitPatternPSET120 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 121:
                                DrawBitPatternPSET121 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 122:
                                DrawBitPatternPSET122 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 123:
                                DrawBitPatternPSET123 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 124:
                                DrawBitPatternPSET124 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 125:
                                DrawBitPatternPSET125 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 126:
                                DrawBitPatternPSET126 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 127:
                                DrawBitPatternPSET127 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 128:
                                DrawBitPatternPSET128 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 129:
                                DrawBitPatternPSET129 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 130:
                                DrawBitPatternPSET130 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 131:
                                DrawBitPatternPSET131 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 132:
                                DrawBitPatternPSET132 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 133:
                                DrawBitPatternPSET133 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 134:
                                DrawBitPatternPSET134 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 135:
                                DrawBitPatternPSET135 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 136:
                                DrawBitPatternPSET136 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 137:
                                DrawBitPatternPSET137 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 138:
                                DrawBitPatternPSET138 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 139:
                                DrawBitPatternPSET139 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 140:
                                DrawBitPatternPSET140 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 141:
                                DrawBitPatternPSET141 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 142:
                                DrawBitPatternPSET142 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 143:
                                DrawBitPatternPSET143 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 144:
                                DrawBitPatternPSET144 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 145:
                                DrawBitPatternPSET145 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 146:
                                DrawBitPatternPSET146 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 147:
                                DrawBitPatternPSET147 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 148:
                                DrawBitPatternPSET148 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 149:
                                DrawBitPatternPSET149 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 150:
                                DrawBitPatternPSET150 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 151:
                                DrawBitPatternPSET151 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 152:
                                DrawBitPatternPSET152 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 153:
                                DrawBitPatternPSET153 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 154:
                                DrawBitPatternPSET154 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 155:
                                DrawBitPatternPSET155 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 156:
                                DrawBitPatternPSET156 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 157:
                                DrawBitPatternPSET157 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 158:
                                DrawBitPatternPSET158 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 159:
                                DrawBitPatternPSET159 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 160:
                                DrawBitPatternPSET160 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 161:
                                DrawBitPatternPSET161 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 162:
                                DrawBitPatternPSET162 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 163:
                                DrawBitPatternPSET163 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 164:
                                DrawBitPatternPSET164 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 165:
                                DrawBitPatternPSET165 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 166:
                                DrawBitPatternPSET166 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 167:
                                DrawBitPatternPSET167 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 168:
                                DrawBitPatternPSET168 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 169:
                                DrawBitPatternPSET169 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 170:
                                DrawBitPatternPSET170 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 171:
                                DrawBitPatternPSET171 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 172:
                                DrawBitPatternPSET172 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 173:
                                DrawBitPatternPSET173 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 174:
                                DrawBitPatternPSET174 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 175:
                                DrawBitPatternPSET175 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 176:
                                DrawBitPatternPSET176 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 177:
                                DrawBitPatternPSET177 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 178:
                                DrawBitPatternPSET178 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 179:
                                DrawBitPatternPSET179 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 180:
                                DrawBitPatternPSET180 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 181:
                                DrawBitPatternPSET181 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 182:
                                DrawBitPatternPSET182 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 183:
                                DrawBitPatternPSET183 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 184:
                                DrawBitPatternPSET184 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 185:
                                DrawBitPatternPSET185 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 186:
                                DrawBitPatternPSET186 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 187:
                                DrawBitPatternPSET187 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 188:
                                DrawBitPatternPSET188 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 189:
                                DrawBitPatternPSET189 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 190:
                                DrawBitPatternPSET190 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 191:
                                DrawBitPatternPSET191 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 192:
                                DrawBitPatternPSET192 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 193:
                                DrawBitPatternPSET193 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 194:
                                DrawBitPatternPSET194 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 195:
                                DrawBitPatternPSET195 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 196:
                                DrawBitPatternPSET196 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 197:
                                DrawBitPatternPSET197 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 198:
                                DrawBitPatternPSET198 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 199:
                                DrawBitPatternPSET199 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 200:
                                DrawBitPatternPSET200 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 201:
                                DrawBitPatternPSET201 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 202:
                                DrawBitPatternPSET202 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 203:
                                DrawBitPatternPSET203 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 204:
                                DrawBitPatternPSET204 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 205:
                                DrawBitPatternPSET205 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 206:
                                DrawBitPatternPSET206 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 207:
                                DrawBitPatternPSET207 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 208:
                                DrawBitPatternPSET208 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 209:
                                DrawBitPatternPSET209 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 210:
                                DrawBitPatternPSET210 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 211:
                                DrawBitPatternPSET211 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 212:
                                DrawBitPatternPSET212 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 213:
                                DrawBitPatternPSET213 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 214:
                                DrawBitPatternPSET214 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 215:
                                DrawBitPatternPSET215 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 216:
                                DrawBitPatternPSET216 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 217:
                                DrawBitPatternPSET217 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 218:
                                DrawBitPatternPSET218 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 219:
                                DrawBitPatternPSET219 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 220:
                                DrawBitPatternPSET220 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 221:
                                DrawBitPatternPSET221 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 222:
                                DrawBitPatternPSET222 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 223:
                                DrawBitPatternPSET223 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 224:
                                DrawBitPatternPSET224 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 225:
                                DrawBitPatternPSET225 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 226:
                                DrawBitPatternPSET226 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 227:
                                DrawBitPatternPSET227 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 228:
                                DrawBitPatternPSET228 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 229:
                                DrawBitPatternPSET229 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 230:
                                DrawBitPatternPSET230 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 231:
                                DrawBitPatternPSET231 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 232:
                                DrawBitPatternPSET232 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 233:
                                DrawBitPatternPSET233 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 234:
                                DrawBitPatternPSET234 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 235:
                                DrawBitPatternPSET235 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 236:
                                DrawBitPatternPSET236 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 237:
                                DrawBitPatternPSET237 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 238:
                                DrawBitPatternPSET238 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 239:
                                DrawBitPatternPSET239 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 240:
                                DrawBitPatternPSET240 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 241:
                                DrawBitPatternPSET241 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 242:
                                DrawBitPatternPSET242 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 243:
                                DrawBitPatternPSET243 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 244:
                                DrawBitPatternPSET244 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 245:
                                DrawBitPatternPSET245 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 246:
                                DrawBitPatternPSET246 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 247:
                                DrawBitPatternPSET247 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 248:
                                DrawBitPatternPSET248 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 249:
                                DrawBitPatternPSET249 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 250:
                                DrawBitPatternPSET250 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 251:
                                DrawBitPatternPSET251 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 252:
                                DrawBitPatternPSET252 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 253:
                                DrawBitPatternPSET253 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 254:
                                DrawBitPatternPSET254 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                        Case 255:
                                DrawBitPatternPSET255 imgScreen&, iCol, iRow, iByte, fgColor, bgColor
                End Select
        next iByte
End Sub ' DrawTileBitPattern8PSET
 
Sub DrawBitPatternPSET000(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET000
 
Sub DrawBitPatternPSET001(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET001
 
Sub DrawBitPatternPSET002(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET002
 
Sub DrawBitPatternPSET003(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET003
 
Sub DrawBitPatternPSET004(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET004
 
Sub DrawBitPatternPSET005(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET005
 
Sub DrawBitPatternPSET006(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET006
 
Sub DrawBitPatternPSET007(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET007
 
Sub DrawBitPatternPSET008(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET008
 
Sub DrawBitPatternPSET009(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET009
 
Sub DrawBitPatternPSET010(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET010
 
Sub DrawBitPatternPSET011(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET011
 
Sub DrawBitPatternPSET012(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET012
 
Sub DrawBitPatternPSET013(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET013
 
Sub DrawBitPatternPSET014(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET014
 
Sub DrawBitPatternPSET015(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET015
 
Sub DrawBitPatternPSET016(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET016
 
Sub DrawBitPatternPSET017(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET017
 
Sub DrawBitPatternPSET018(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET018
 
Sub DrawBitPatternPSET019(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET019
 
Sub DrawBitPatternPSET020(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET020
 
Sub DrawBitPatternPSET021(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET021
 
Sub DrawBitPatternPSET022(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET022
 
Sub DrawBitPatternPSET023(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET023
 
Sub DrawBitPatternPSET024(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET024
 
Sub DrawBitPatternPSET025(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET025
 
Sub DrawBitPatternPSET026(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET026
 
Sub DrawBitPatternPSET027(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET027
 
Sub DrawBitPatternPSET028(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET028
 
Sub DrawBitPatternPSET029(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET029
 
Sub DrawBitPatternPSET030(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET030
 
Sub DrawBitPatternPSET031(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET031
 
Sub DrawBitPatternPSET032(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET032
 
Sub DrawBitPatternPSET033(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET033
 
Sub DrawBitPatternPSET034(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET034
 
Sub DrawBitPatternPSET035(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET035
 
Sub DrawBitPatternPSET036(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET036
 
Sub DrawBitPatternPSET037(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET037
 
Sub DrawBitPatternPSET038(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET038
 
Sub DrawBitPatternPSET039(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET039
 
Sub DrawBitPatternPSET040(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET040
 
Sub DrawBitPatternPSET041(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET041
 
Sub DrawBitPatternPSET042(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET042
 
Sub DrawBitPatternPSET043(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET043
 
Sub DrawBitPatternPSET044(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET044
 
Sub DrawBitPatternPSET045(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET045
 
Sub DrawBitPatternPSET046(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET046
 
Sub DrawBitPatternPSET047(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET047
 
Sub DrawBitPatternPSET048(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET048
 
Sub DrawBitPatternPSET049(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET049
 
Sub DrawBitPatternPSET050(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET050
 
Sub DrawBitPatternPSET051(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET051
 
Sub DrawBitPatternPSET052(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET052
 
Sub DrawBitPatternPSET053(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET053
 
Sub DrawBitPatternPSET054(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET054
 
Sub DrawBitPatternPSET055(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET055
 
Sub DrawBitPatternPSET056(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET056
 
Sub DrawBitPatternPSET057(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET057
 
Sub DrawBitPatternPSET058(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET058
 
Sub DrawBitPatternPSET059(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET059
 
Sub DrawBitPatternPSET060(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET060
 
Sub DrawBitPatternPSET061(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET061
 
Sub DrawBitPatternPSET062(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET062
 
Sub DrawBitPatternPSET063(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET063
 
Sub DrawBitPatternPSET064(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET064
 
Sub DrawBitPatternPSET065(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET065
 
Sub DrawBitPatternPSET066(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET066
 
Sub DrawBitPatternPSET067(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET067
 
Sub DrawBitPatternPSET068(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET068
 
Sub DrawBitPatternPSET069(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET069
 
Sub DrawBitPatternPSET070(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET070
 
Sub DrawBitPatternPSET071(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET071
 
Sub DrawBitPatternPSET072(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET072
 
Sub DrawBitPatternPSET073(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET073
 
Sub DrawBitPatternPSET074(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET074
 
Sub DrawBitPatternPSET075(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET075
 
Sub DrawBitPatternPSET076(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET076
 
Sub DrawBitPatternPSET077(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET077
 
Sub DrawBitPatternPSET078(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET078
 
Sub DrawBitPatternPSET079(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET079
 
Sub DrawBitPatternPSET080(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET080
 
Sub DrawBitPatternPSET081(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET081
 
Sub DrawBitPatternPSET082(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET082
 
Sub DrawBitPatternPSET083(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET083
 
Sub DrawBitPatternPSET084(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET084
 
Sub DrawBitPatternPSET085(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET085
 
Sub DrawBitPatternPSET086(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET086
 
Sub DrawBitPatternPSET087(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET087
 
Sub DrawBitPatternPSET088(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET088
 
Sub DrawBitPatternPSET089(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET089
 
Sub DrawBitPatternPSET090(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET090
 
Sub DrawBitPatternPSET091(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET091
 
Sub DrawBitPatternPSET092(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET092
 
Sub DrawBitPatternPSET093(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET093
 
Sub DrawBitPatternPSET094(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET094
 
Sub DrawBitPatternPSET095(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET095
 
Sub DrawBitPatternPSET096(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET096
 
Sub DrawBitPatternPSET097(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET097
 
Sub DrawBitPatternPSET098(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET098
 
Sub DrawBitPatternPSET099(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET099
 
Sub DrawBitPatternPSET100(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET100
 
Sub DrawBitPatternPSET101(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET101
 
Sub DrawBitPatternPSET102(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET102
 
Sub DrawBitPatternPSET103(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET103
 
Sub DrawBitPatternPSET104(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET104
 
Sub DrawBitPatternPSET105(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET105
 
Sub DrawBitPatternPSET106(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET106
 
Sub DrawBitPatternPSET107(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET107
 
Sub DrawBitPatternPSET108(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET108
 
Sub DrawBitPatternPSET109(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET109
 
Sub DrawBitPatternPSET110(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET110
 
Sub DrawBitPatternPSET111(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET111
 
Sub DrawBitPatternPSET112(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET112
 
Sub DrawBitPatternPSET113(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET113
 
Sub DrawBitPatternPSET114(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET114
 
Sub DrawBitPatternPSET115(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET115
 
Sub DrawBitPatternPSET116(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET116
 
Sub DrawBitPatternPSET117(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET117
 
Sub DrawBitPatternPSET118(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET118
 
Sub DrawBitPatternPSET119(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET119
 
Sub DrawBitPatternPSET120(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET120
 
Sub DrawBitPatternPSET121(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET121
 
Sub DrawBitPatternPSET122(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET122
 
Sub DrawBitPatternPSET123(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET123
 
Sub DrawBitPatternPSET124(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET124
 
Sub DrawBitPatternPSET125(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET125
 
Sub DrawBitPatternPSET126(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET126
 
Sub DrawBitPatternPSET127(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), bgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET127
 
Sub DrawBitPatternPSET128(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET128
 
Sub DrawBitPatternPSET129(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET129
 
Sub DrawBitPatternPSET130(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET130
 
Sub DrawBitPatternPSET131(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET131
 
Sub DrawBitPatternPSET132(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET132
 
Sub DrawBitPatternPSET133(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET133
 
Sub DrawBitPatternPSET134(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET134
 
Sub DrawBitPatternPSET135(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET135
 
Sub DrawBitPatternPSET136(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET136
 
Sub DrawBitPatternPSET137(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET137
 
Sub DrawBitPatternPSET138(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET138
 
Sub DrawBitPatternPSET139(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET139
 
Sub DrawBitPatternPSET140(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET140
 
Sub DrawBitPatternPSET141(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET141
 
Sub DrawBitPatternPSET142(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET142
 
Sub DrawBitPatternPSET143(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET143
 
Sub DrawBitPatternPSET144(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET144
 
Sub DrawBitPatternPSET145(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET145
 
Sub DrawBitPatternPSET146(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET146
 
Sub DrawBitPatternPSET147(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET147
 
Sub DrawBitPatternPSET148(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET148
 
Sub DrawBitPatternPSET149(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET149
 
Sub DrawBitPatternPSET150(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET150
 
Sub DrawBitPatternPSET151(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET151
 
Sub DrawBitPatternPSET152(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET152
 
Sub DrawBitPatternPSET153(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET153
 
Sub DrawBitPatternPSET154(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET154
 
Sub DrawBitPatternPSET155(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET155
 
Sub DrawBitPatternPSET156(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET156
 
Sub DrawBitPatternPSET157(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET157
 
Sub DrawBitPatternPSET158(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET158
 
Sub DrawBitPatternPSET159(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET159
 
Sub DrawBitPatternPSET160(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET160
 
Sub DrawBitPatternPSET161(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET161
 
Sub DrawBitPatternPSET162(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET162
 
Sub DrawBitPatternPSET163(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET163
 
Sub DrawBitPatternPSET164(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET164
 
Sub DrawBitPatternPSET165(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET165
 
Sub DrawBitPatternPSET166(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET166
 
Sub DrawBitPatternPSET167(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET167
 
Sub DrawBitPatternPSET168(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET168
 
Sub DrawBitPatternPSET169(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET169
 
Sub DrawBitPatternPSET170(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET170
 
Sub DrawBitPatternPSET171(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET171
 
Sub DrawBitPatternPSET172(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET172
 
Sub DrawBitPatternPSET173(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET173
 
Sub DrawBitPatternPSET174(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET174
 
Sub DrawBitPatternPSET175(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET175
 
Sub DrawBitPatternPSET176(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET176
 
Sub DrawBitPatternPSET177(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET177
 
Sub DrawBitPatternPSET178(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET178
 
Sub DrawBitPatternPSET179(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET179
 
Sub DrawBitPatternPSET180(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET180
 
Sub DrawBitPatternPSET181(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET181
 
Sub DrawBitPatternPSET182(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET182
 
Sub DrawBitPatternPSET183(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET183
 
Sub DrawBitPatternPSET184(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET184
 
Sub DrawBitPatternPSET185(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET185
 
Sub DrawBitPatternPSET186(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET186
 
Sub DrawBitPatternPSET187(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET187
 
Sub DrawBitPatternPSET188(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET188
 
Sub DrawBitPatternPSET189(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET189
 
Sub DrawBitPatternPSET190(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET190
 
Sub DrawBitPatternPSET191(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), bgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET191
 
Sub DrawBitPatternPSET192(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET192
 
Sub DrawBitPatternPSET193(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET193
 
Sub DrawBitPatternPSET194(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET194
 
Sub DrawBitPatternPSET195(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET195
 
Sub DrawBitPatternPSET196(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET196
 
Sub DrawBitPatternPSET197(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET197
 
Sub DrawBitPatternPSET198(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET198
 
Sub DrawBitPatternPSET199(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET199
 
Sub DrawBitPatternPSET200(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET200
 
Sub DrawBitPatternPSET201(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET201
 
Sub DrawBitPatternPSET202(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET202
 
Sub DrawBitPatternPSET203(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET203
 
Sub DrawBitPatternPSET204(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET204
 
Sub DrawBitPatternPSET205(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET205
 
Sub DrawBitPatternPSET206(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET206
 
Sub DrawBitPatternPSET207(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET207
 
Sub DrawBitPatternPSET208(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET208
 
Sub DrawBitPatternPSET209(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET209
 
Sub DrawBitPatternPSET210(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET210
 
Sub DrawBitPatternPSET211(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET211
 
Sub DrawBitPatternPSET212(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET212
 
Sub DrawBitPatternPSET213(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET213
 
Sub DrawBitPatternPSET214(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET214
 
Sub DrawBitPatternPSET215(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET215
 
Sub DrawBitPatternPSET216(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET216
 
Sub DrawBitPatternPSET217(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET217
 
Sub DrawBitPatternPSET218(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET218
 
Sub DrawBitPatternPSET219(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET219
 
Sub DrawBitPatternPSET220(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET220
 
Sub DrawBitPatternPSET221(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET221
 
Sub DrawBitPatternPSET222(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET222
 
Sub DrawBitPatternPSET223(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), bgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET223
 
Sub DrawBitPatternPSET224(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET224
 
Sub DrawBitPatternPSET225(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET225
 
Sub DrawBitPatternPSET226(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET226
 
Sub DrawBitPatternPSET227(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET227
 
Sub DrawBitPatternPSET228(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET228
 
Sub DrawBitPatternPSET229(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET229
 
Sub DrawBitPatternPSET230(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET230
 
Sub DrawBitPatternPSET231(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET231
 
Sub DrawBitPatternPSET232(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET232
 
Sub DrawBitPatternPSET233(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET233
 
Sub DrawBitPatternPSET234(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET234
 
Sub DrawBitPatternPSET235(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET235
 
Sub DrawBitPatternPSET236(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET236
 
Sub DrawBitPatternPSET237(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET237
 
Sub DrawBitPatternPSET238(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET238
 
Sub DrawBitPatternPSET239(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), bgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET239
 
Sub DrawBitPatternPSET240(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET240
 
Sub DrawBitPatternPSET241(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET241
 
Sub DrawBitPatternPSET242(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET242
 
Sub DrawBitPatternPSET243(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET243
 
Sub DrawBitPatternPSET244(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET244
 
Sub DrawBitPatternPSET245(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET245
 
Sub DrawBitPatternPSET246(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET246
 
Sub DrawBitPatternPSET247(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), bgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET247
 
Sub DrawBitPatternPSET248(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET248
 
Sub DrawBitPatternPSET249(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET249
 
Sub DrawBitPatternPSET250(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET250
 
Sub DrawBitPatternPSET251(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), bgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET251
 
Sub DrawBitPatternPSET252(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET252
 
Sub DrawBitPatternPSET253(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), bgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET253
 
Sub DrawBitPatternPSET254(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), bgColor
End Sub ' DrawBitPatternPSET254
 
Sub DrawBitPatternPSET255(  _ 
    imgScreen&, iCol As Integer, iRow As Integer, _ 
    iLine As Integer, _ 
    fgColor As _UNSIGNED Long, bgColor As _UNSIGNED Long _ 
    )
    Dim iX As Integer : iX = iCol * 8
    Dim iY As Integer : iY = (iRow * 8) + iLine
    PSET (iX+7, iY), fgColor
    PSET (iX+6, iY), fgColor
    PSET (iX+5, iY), fgColor
    PSET (iX+4, iY), fgColor
    PSET (iX+3, iY), fgColor
    PSET (iX+2, iY), fgColor
    PSET (iX+1, iY), fgColor
    PSET (iX+0, iY), fgColor
End Sub ' DrawBitPatternPSET255
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' END PSET 8-BIT PATTERN PLOTTING CODE
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 

SMcNeill · « **Reply #1 on:** February 19, 2022, 05:52:59 pm »

You might consider making a tile screen and then using putimage to display what you need of it into your program:

Code: QB64: [Select]

Dim As _Unsigned Long Kolor(1)
 
DisplayScreen = _NewImage(640, 480, 32)
Pattern = _NewImage(640, 480, 32)
Screen DisplayScreen
 
Kolor(0) = _RGB32(255, 0, 0) 'Red
Kolor(1) = _RGB32(255, 255, 0) 'Yellow
 
 
_Dest Pattern
For y = 0 To _Height Step 8
    For x = 0 To _Width Step 8
        Line (x, y)-Step(8, 8), Kolor(k), BF
        k = k Xor 1
    Next
Next
 
_Dest DisplayScreen
Screen DisplayScreen
HardWareImage = _CopyImage(Pattern, 33)
_DisplayOrder _Hardware
_DontBlend
t# = Timer + 3.0 '3 seconds
Do
    count = count + 1
    offset = offset Xor 8
    _PutImage , HardWareImage, , (offset, 0)-(640, 480)
    _Display
Loop Until Timer > t#
 
 
_DisplayOrder _Hardware , _Software
_PutImage , Pattern
Print Using "################## hardware only putimages in 3 seconds."; count
 

A little over 10.7 million refreshes in 3 seconds on my laptop, for a whole page of refreshes. I think Line BF will generate faster numbers for partial areas, but _putimage with hardware images is the fastest way to go for whole screen replacement/copies. ;)

madscijr · « **Reply #2 on:** February 19, 2022, 07:05:10 pm »

Quote from: SMcNeill on February 19, 2022, 05:52:59 pm

You might consider making a tile screen and then using putimage to display what you need of it into your program:

Thanks for your reply.
I'm not at my PC where I can try out your code, but I have been using that method (copying tiles from a tile sheet image with putimage), but it is slow. Maybe the swap colors routine that changes the color is the bottleneck?

madscijr · « **Reply #3 on:** February 21, 2022, 02:26:21 pm »

Quote from: SMcNeill on February 19, 2022, 05:52:59 pm

You might consider making a tile screen and then using putimage to display what you need of it into your program:
...
A little over 10.7 million refreshes in 3 seconds on my laptop, for a whole page of refreshes.
I think Line BF will generate faster numbers for partial areas,
but _putimage with hardware images is the fastest way to go for whole screen replacement/copies. ;)

I tried your example and added a second test with a regular putImage to compare
and the results were dramatically faster for the hardware.
I added a third test for my draw tile routine (without swap color)
and that one was slightly faster than the putImage.

7,505,518 hardware putImage vs 1,433 regular (software?) putImage vs 1,562 DrawTile8 in 3 seconds.

The modified code is below - am I doing anything wrong for the regular non-hardware putImage to be so slow?

I'm not familiar with hardware putImage.
How would you just putimage for single tile (an 8x8 section) at a time?
I tried modifying the DrawTile8 to use hardware putimage, but it is giving an "invalid handle" error.

Also from your demo, I learned a much simpler way to do a timer, and togging between 2 numbers with xor is also a neat trick.

Thanks again!

Code: QB64: [Select]

Option _Explicit
 
' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
' https://qb64forum.alephc.xyz/index.php?topic=4674.0
'
' SMcNeill, QB64 Developer
' « Reply #1 on: February 19, 2022, 05:52:59 pm »
'
' You might consider making a tile screen and then
' using putimage to display what you need of it into your program:
' A little over 10.7 million refreshes in 3 seconds on my laptop,
' for a whole page of refreshes.
' I think Line BF will generate faster numbers for partial areas,
' but _putimage with hardware images is the fastest way to go
' for whole screen replacement/copies.  ;)
' https://github.com/SteveMcNeill/Steve64
' A github collection of all things Steve!
 
' BOOLEAN VALUES
Const FALSE = 0
Const TRUE = Not FALSE
 
' Declarations
Dim arrColor(0 To 8) As _Unsigned Long
Dim iColor1 As Integer
Dim iColor2 As Integer
Dim iColor3 As Integer
Dim iColor4 As Integer
Dim imgPattern1&
Dim imgPattern2&
Dim imgPattern3&
Dim imgPattern4&
Dim imgHardware&
Dim imgScreen&
Dim iY As Integer
Dim iX As Integer
Dim iOffsetX As Integer
Dim t#
Dim iHardwareCount As Long
Dim iPutImageCount As Long
Dim iDrawTileCount As Long
Dim iHwDrawTileCount As Long
Dim TileNum%
 
' Define colors
arrColor(0) = _RGB32(255, 0, 0) ' Red
arrColor(2) = _RGB32(0, 255, 0) ' Green
arrColor(1) = _RGB32(0, 0, 255) ' Blue
arrColor(3) = _RGB32(255, 255, 0) ' Yellow
arrColor(4) = _RGB32(255, 0, 255) ' Magenta
arrColor(5) = _RGB32(0, 255, 255) ' Cyan
arrColor(6) = _RGB32(255, 255, 255) ' White
arrColor(7) = _RGB32(128, 128, 128) ' Gray
arrColor(8) = _RGB32(0, 0, 0) ' Black
 
' Setup screen
imgScreen& = _NewImage(640, 480, 32)
Screen imgScreen&
 
' Create patterns
imgPattern1& = _NewImage(640, 480, 32)
imgPattern2& = _NewImage(640, 480, 32)
imgPattern3& = _NewImage(640, 480, 32)
imgPattern4& = _NewImage(640, 480, 32)
iColor1 = 0
iColor2 = 2
iColor3 = 4
iColor4 = 6
For iY = 0 To _Height Step 8
    For iX = 0 To _Width Step 8
 
        _Dest imgPattern1&
        Line (iX, iY)-Step(8, 8), arrColor(iColor1), BF
        iColor1 = iColor1 Xor 1
 
        _Dest imgPattern2&
        Line (iX, iY)-Step(8, 8), arrColor(iColor2), BF
        iColor2 = iColor2 Xor 1
 
        _Dest imgPattern3&
        Line (iX, iY)-Step(8, 8), arrColor(iColor3), BF
        iColor3 = iColor3 Xor 1
 
        _Dest imgPattern4&
        Line (iX, iY)-Step(8, 8), arrColor(iColor4), BF
        iColor4 = iColor4 Xor 1
    Next iX
Next iY
 
' =============================================================================
' Test #1: copy using hardware image
_Dest imgScreen&
Screen imgScreen&
imgHardware& = _CopyImage(imgPattern1&, 33)
_DisplayOrder _Hardware
_DontBlend
iOffsetX = 0
iHardwareCount = 0
t# = Timer + 3.0 ' 3 seconds
Do
    iHardwareCount = iHardwareCount + 1
    iOffsetX = iOffsetX Xor 8
    _PutImage , imgHardware&, , (iOffsetX, 0)-(640, 480)
    _Display
Loop Until Timer > t#
_DisplayOrder _Hardware , _Software
_PutImage , imgPattern1&
 
' =============================================================================
' Test #2: copy using non-hardware putImage
_Dest imgScreen&
Screen imgScreen&
iOffsetX = 0
iPutImageCount = 0
t# = Timer + 3.0 ' 3 seconds
Do
    iPutImageCount = iPutImageCount + 1
    iOffsetX = iOffsetX Xor 8
    _PutImage , imgPattern2&, , (iOffsetX, 0)-(640, 480)
    _Display
Loop Until Timer > t#
 
' =============================================================================
' Test #3: copy using DrawTile8 routine
_Dest imgScreen&
Screen imgScreen&
TileNum% = 0
iDrawTileCount = 0
t# = Timer + 3.0 ' 3 seconds
Do
    iDrawTileCount = iDrawTileCount + 1
    For iY = 0 To _Height \ 8
        For iX = 0 To _Width \ 8
            DrawTile8 imgPattern3&, TileNum%, imgScreen&, iX, iY
            TileNum% = TileNum% Xor 1
        Next iX
    Next iY
    _Display
Loop Until Timer > t#
 
' =============================================================================
' Test #4: copy using DrawTileHw8 routine
 
' DrawTileHw8 FAILS WITH "INVALID HANDLE" I MUST BE DOING IT WRONG!
' SO WE WILL SKIP THIS TEST
If TRUE = FALSE Then
    _Dest imgScreen&
    Screen imgScreen&
    TileNum% = 0
    iHwDrawTileCount = 0
    t# = Timer + 3.0 ' 3 seconds
    Do
        iHwDrawTileCount = iHwDrawTileCount + 1
        For iY = 0 To _Height \ 8
            For iX = 0 To _Width \ 8
                DrawTileHw8 imgPattern4&, TileNum%, imgScreen&, iX, iY
                TileNum% = TileNum% Xor 1
            Next iX
        Next iY
        _Display
    Loop Until Timer > t#
End If
 
' =============================================================================
' Show results
Print Using "###,###,###,###,###,### hardware only putimages in 3 seconds."; iHardwareCount
Print Using "###,###,###,###,###,### normal        putimages in 3 seconds."; iPutImageCount
Print Using "###,###,###,###,###,### DrawTile8     putimages in 3 seconds."; iDrawTileCount
'Print Using "###,###,###,###,###,### DrawTileHw8   putimages in 3 seconds."; iHwDrawTileCount
 
' =============================================================================
' FREE MEMORY
If imgPattern1& < -1 Or imgPattern1& > 0 Then _FreeImage imgPattern1& ' FREE MEMORY
If imgPattern2& < -1 Or imgPattern2& > 0 Then _FreeImage imgPattern2& ' FREE MEMORY
If imgPattern3& < -1 Or imgPattern3& > 0 Then _FreeImage imgPattern3& ' FREE MEMORY
If imgPattern4& < -1 Or imgPattern4& > 0 Then _FreeImage imgPattern4& ' FREE MEMORY
If imgHardware& < -1 Or imgHardware& > 0 Then _FreeImage imgHardware& ' FREE MEMORY
 
' /////////////////////////////////////////////////////////////////////////////
' Original version which calculates coordinates on tile sheet and destination
' screen every time. For a faster version uses precalculated coordinates,
' see DrawTileFast.
 
' tw% = tile width/height (in pixels)
 
' DIV and MOD:
' c% = a% \ b% ' DIV (INTEGER DIVISION)
' d% = a% MOD b% ' MODULO (DIVISION REMAINDER)
 
'_PUTIMAGE (0, 0), i ' places image at upper left corner of window w/o stretching it
'_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) ' portion of source to the top-left corner of the destination page
'_PUTIMAGE (64,  128), imgTiles&,      imgScreen&,   (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
'_PutImage (64, 128), imgTiles&, imgScreen&, (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
 
Sub DrawTile8 (imgTiles&, TileNum%, imgScreen&, dx%, dy%)
    Dim tw% ' width/height of tile
    Dim tw_minus1% ' width/height of tile -1
    Dim cols% ' # tiles across on tile sheet
    Dim rows% ' # tile rows on tile sheet
    Dim sc% ' source column on tile sheet
    Dim sr% ' source row on tile sheet
    Dim sx1% ' source start x
    Dim sx2% ' source end x
    Dim sy1% ' source start y
    Dim sy2% ' source end y
    Dim xDest% ' destination x
    Dim yDest% ' destination y
 
    ' SIZE OF TILE
    tw% = 8
    tw_minus1% = 7
 
    ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
    cols% = 16
    rows% = 16
 
    ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
    sc% = TileNum% Mod rows%
    sr% = TileNum% \ rows%
 
    'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
 
    ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
    sx1% = sc% * tw%
 
    ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
    sy1% = sr% * tw%
 
    ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
    sx2% = sx1% + tw_minus1%
 
    ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
    sy2% = sy1% + tw_minus1%
 
    ' GET THE DESTINATION X COORDINATE ON THE SCREEN
    xDest% = dx% * tw%
 
    ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
    yDest% = (dy% * tw%) '+ yOffset%
 
    'Print "Tile#" + cstr$(TileNum%) + _
    '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
    '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
    '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
 
    _Dest imgScreen&
 
    ' portion of source to the top-left corner of the destination page
    _PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
 
End Sub ' DrawTile8
 
' /////////////////////////////////////////////////////////////////////////////
' I'm not sure if I'm using hardware putImage right,
' this fails with "invalid handle" when setting _SOURCE
 
Sub DrawTileHw8 (imgTiles&, TileNum%, imgScreen&, dx%, dy%)
    Dim tw% ' width/height of tile
    Dim tw_minus1% ' width/height of tile -1
    Dim cols% ' # tiles across on tile sheet
    Dim rows% ' # tile rows on tile sheet
    Dim sc% ' source column on tile sheet
    Dim sr% ' source row on tile sheet
    Dim sx1% ' source start x
    Dim sx2% ' source end x
    Dim sy1% ' source start y
    Dim sy2% ' source end y
    Dim xDest% ' destination x
    Dim yDest% ' destination y
    Dim imgHardware&
 
    ' Copy tilesheet for hardware image
    imgHardware& = _CopyImage(imgTiles&, 33)
 
    ' SIZE OF TILE
    tw% = 8
    tw_minus1% = 7
 
    ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
    cols% = 16
    rows% = 16
 
    ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
    sc% = TileNum% Mod rows%
    sr% = TileNum% \ rows%
 
    'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
 
    ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
    sx1% = sc% * tw%
 
    ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
    sy1% = sr% * tw%
 
    ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
    sx2% = sx1% + tw_minus1%
 
    ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
    sy2% = sy1% + tw_minus1%
 
    ' GET THE DESTINATION X COORDINATE ON THE SCREEN
    xDest% = dx% * tw%
 
    ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
    yDest% = (dy% * tw%) '+ yOffset%
 
    'Print "Tile#" + cstr$(TileNum%) + _
    '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
    '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
    '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
 
    _Dest imgScreen&
 
    'THIS LINE FAILS WITH AN "INVALID HANDLE" RUNTIME ERROR:
    _Source imgHardware&
 
    _DisplayOrder _Hardware
    _DontBlend
 
    ' portion of source to the top-left corner of the destination page
    '_PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
    '_PutImage , imgHardware&, , (iOffsetX, 0)-(640, 480)
    _PutImage (xDest%, yDest%), , , (sx1%, sy1%)-(sx2%, sy2%)
 
    _DisplayOrder _Hardware , _Software
    _PutImage , imgTiles&
End Sub ' DrawTileHw8
 

SMcNeill · « **Reply #4 on:** February 21, 2022, 07:56:57 pm »

The line with the error is from this one:

_Source imgHardware&

Hardware images basically get their speed by being a sort of "Write Only" method for images. You can make them, you can put them on the screen, but you can't edit them or read information back from them. (In fact, most of our commands don't work with them, such as PSET, LINE, or CIRCLE. Those are drawing to software images and the way to use those is to use them on your software screen and then _COPYIMAGE that software screen to a non-changing hardware screen, before rendering them.)

_PutImage (xDest%, yDest%), , , (sx1%, sy1%)-(sx2%, sy2%)

What you want to do is use _PUTIMAGE to specify the hardware handle to place onto the screen, rather than trying to set it as the _Source as you have above.

A few pointers on hardware images:

1) You basically only create them; never edit or read from them.
2) You don't have to specify where they show up as a destination with putimage. The only place they ever show up is on the visible display.
3) Using this "always on display" feature of hardware images, you can layer the images to appear in front of, or behind, your software screen. We do this with the _DISPLAYORDER command. For a quick and simple example, try the following:

Code: QB64: [Select]

$Color:32
Screen 0
SoftScreen = _NewImage(60, 60, 32)
_Dest SoftScreen
Cls , SkyBlue
_Dest 0
 
Hardware = _CopyImage(SoftScreen, 33)
 
xchange = 2: ychange = 2
 
Color 20
For i = 1 To 25
    Locate i, 10 + i: Print "Hello World";
Next
_PaletteColor 0, 0
 
Do
    x = x + xchange: y = y + ychange
    If x > 640 Or x < 0 Then xchange = -xchange
    If y > 400 Or y < 0 Then ychange = -ychange
 
    k = _KeyHit
    Select Case k
        Case 32
            toggle = Not toggle
            If toggle Then
                _DisplayOrder _Hardware , _Software
            Else
                _DisplayOrder _Software , _Hardware
            End If
        Case 27
            System
    End Select
 
    _Limit 30
    _PutImage (x, y), Hardware
    _Display
Loop

A few important things to note about what I'm doing here:

First, this is a SCREEN 0 *TEXT* Screen. It doesn't allow us to use any sort of graphic commands with it, and it certainly won't work with _Putimage... And yet, how the heck am I using putimage with it here??

As I mentioned: Hardware images have their own distinct layer which they render to, and they're not related to our software screens at all. Screen 0 is a software screen. The hardware layer is separate; ergo, we can draw to ONLY the hardware layer -- no matter what the software layer might be; even if that's a text screen!

Point 2 here: Hit the space bar and watch how our box move in regard to the blinking text. It can either be rendered on top of the software screen, or below the software screen, depending on our wishes and the _DISPLAYORDER. Just hit SPACE to toggle the two modes.

4) Hardware images won't render onto their layer until _DISPLAY is called. Without a _DISPLAY in your code, you'll never see the images at all.

Umm... I'm not certain what else I might need to expand on with them at the moment. If you have any specific questions, feel free to ask them and I'll do my best to answer for you, if I can. ;)

madscijr · « **Reply #5 on:** February 21, 2022, 09:46:53 pm »

Quote from: SMcNeill on February 21, 2022, 07:56:57 pm

Hardware images basically get their speed by being a sort of "Write Only" method for images. You can make them, you can put them on the screen, but you can't edit them or read information back from them.
...
2) You don't have to specify where they show up as a destination with putimage.
...
If you have any specific questions, feel free to ask them and I'll do my best to answer for you, if I can. ;)

Thanks for taking the time to explain all that. When I'm back at the PC, I'll try out your example.

For now, just one question: if you can't read information from them or even specify where on the destination they go, how are they even useful? Maybe it will click when I run your example or read up on it, but I just don't see what the use of an image would be if you can't control where on the screen it is drawn? Or how it would help speed up drawing a map of colored tiles to the screen.

Thanks again...

SMcNeill · « **Reply #6 on:** February 22, 2022, 01:14:28 am »

Try this out and see if it doesn't help answer your questions:

Code: QB64: [Select]

$Color:32
Display = _NewImage(1024, 720, 32)
Software = _NewImage(1024, 720, 32)
 
 
Screen Display
Print "First, let's create a normal sortware screen and fill it with 40x40 tiles of random colors."
Print "Press <ANY KEY> to view this screen."
Sleep
 
_Dest Software
For y = 0 To 720 Step 40
    For x = 0 To 1024 Step 40
        Line (x, y)-Step(40, 40), &HFF000000 + Rnd * &HFFFFFF, BF
    Next
Next
_Dest Display
_PutImage , Software
Print
Print "As you can see, this is a simple software screen."
Print "Now, I'm going to copy that software screen and make it a hardware screen."
Print "Press <ANY KEY> for me to do so!"
Sleep
 
Hardware = _CopyImage(Software, 33)
Cls
Print "Now, I'm back to my blank screen, but I now have a hardware screen to work with."
Print
Print "To keep things simple, let's showcase the differences between using _putimage with a software screen, and then with the hardware screen."
Print
Print "First, the software screen!  Press <ANY KEY> to continue."
Sleep
 
_PutImage (0, 100)-Step(100, 100), Software, Display, (0, 0)-(40, 40)
Print: Print: Print: Print: Print: Print: Print
Print "As you can see, all I did here was copy a single tile from the software screen and then scale it to fit upon the current screen."
Print
Print "Press <ANY KEY> to continue, as I'll now do the same with a hardware image."
Sleep: _KeyClear
 
 
_PutImage (200, 100)-Step(100, 100), Hardware, , (0, 0)-(40, 40)
Print
Print "As you can see from the above, we have the same tile copied and scaled onto the screen, just to the right of the software image."
Print
Print "Doesn't really seem to be very different at all, now does it?"
Print
Print "Press <ANY KEY> to continue."
_Display
 
Sleep
_AutoDisplay
Print
Color Red
Print "BUT WAIT A MOMENT!!  What the heck happened to our hardware tile??!!??"
Color White
Print
Print "It's no longer on the screen, as it was previously.  Why??"
Print
Print "Because it was never on the software screen at all, but was instead on it's own hardware layer ABOVE the software screen."
Print
Print "Hardware images only display ONCE, once _DISPLAY is called, and then they flush from the graphics buffer."
Print "Draw.  Display.  Flush.  <-- that's the basic process of how a hardware image works."
Print
Print "If we want one to remain on the screen, we have to do it either by:"
Print "1) Not updating the screen after we draw and display the image, as I did above with the tile I displayed."
Print "2) Refresh displaying the image in our main loop (which is what we do even with software images for most games and such)."
Print
Print "Press <ANY KEY> to continue."
Sleep
 
Cls
Print
Print "So, as you can see, hardware images have a few drawbacks to them, with the most obvious being they only display once,"
Print "then flush from memory.  If you want persistant hardware images, they're best used in a loop."
Print
Print "But, if they've got drawbacks, then one has to ask, 'What's the advantages to using them?'"
Print "Press <ANY KEY> to find out!"
Sleep
 
 
t# = Timer + 3
Do
    count = count + 1
    _PutImage (0, 100)-Step(100, 100), Software, Display, (x, y)-Step(40, 40)
    x = x + 40
    If x > 1024 Then x = 0: y = y + 40
    If y > 720 Then x = 0: y = 0
    _Display
Loop Until Timer > t#
_AutoDisplay
Print: Print: Print: Print: Print: Print: Print: Print
Print "See lots of flashing tiles on the screen for the last three seconds?"
Print "That was us using _PUTIMAGE with the software screen, and we put"; count; "tiles on the screen in those 3 seconds."
Print
Print "Now press <ANY KEY> and we'll do the exact same thing with hardware images."
Sleep
 
 
count = 0: x = 0: y = 0
t# = Timer + 3
tempScreen = _CopyImage(Display, 33)
_DisplayOrder _Hardware
Do
    count = count + 1
    _PutImage , tempScreen
    _PutImage (300, 100)-Step(100, 100), Hardware, , (x, y)-Step(40, 40)
    x = x + 40
    If x > 1024 Then x = 0: y = y + 40
    If y > 720 Then x = 0: y = 0
    _Display
Loop Until Timer > t#
 
_FreeImage tempScreen
_AutoDisplay
_DisplayOrder _Hardware , _Software
Print
Print "Didn't seem very different at the rate of which we were running things, now did it?"
Print "Would you be surprised to find out that we put"; count * 2; "hardware images on the screen in those same 3 seconds?"
Print
Print "And if you look close, I counted each loop twice, as we didn't just put the hardware image to the screen, but also a"
Print "complete copy of the original software screen as well!"
Print
Print "The reason why I did this?"
Print
Print "So I could completely elimimate all software iamges and JUST work with the much faster hardware layer!"
Print
Print "Press <ANY KEY> to continue"
Sleep
 
Cls
Print "So, as you can see, hardware images are multiple times faster to display and render than software images."
Print
Print "But here's something else for you to notice -- I'm going to update the screen with constant, limitless tile refeshes."
Print "To start with, I'm going to do this in a LOOP with the software images."
Print "CTRL-TAB out of this demo program, open your task manager, and see how much memory and CPU processing power the program uses."
Print "Then TAB back to this program and hit <ESC> to do the same with the hardware images."
 
Do
    _PutImage (0, 100)-(1024, 720), Software, Display, (x, y)-Step(40, 40)
    x = x + 40
    If x > 1024 Then x = 0: y = y + 40
    If y > 720 Then x = 0: y = 0
    _Limit 60
    _Display
Loop Until _KeyDown(27)
 
Cls , 0
Print "PRESS <SPACE BAR> to stop the hardware iamges!!"
tempImage = _CopyImage(Display, 33)
x = 0: y = 0
_DisplayOrder _Hardware
Do
    _PutImage , tempImage
    _PutImage (0, 100)-(1023, 719), Hardware, , (x, y)-Step(40, 40)
    x = x + 40
    If x > 1024 Then x = 0: y = y + 40
    If y > 720 Then x = 0: y = 0
    _Limit 60
    _Display
Loop Until _KeyDown(32)
 
_DisplayOrder _Software , _Hardware
_AutoDisplay
Cls
Print "On my laptop, these two methods use the following amounts of CPU power:"
Print "Software, 60 FPS -- 3% CPU"
Print "Hardware, 60 FPS -- 0.1% CPU"
Print
Print "If I go in and change the limits to something much higher, these are the results (test them for yourselves, please):"
Print "Software, 600 FPS -- 10.3% CPU"
Print "Hardware, 600 FPS -- 0.1% CPU"
 
Print
Print
Print "So, as you can see, the disadvantage to hardware images are they display once, then flush from memory."
Print
Print "While the advantages to their usage is MUCH faster processing times, and an immense reduction on CPU usage.  (The GPU picks up the work for us!)"
Print
Print
Print "You basically use them just like you would any other normal image, though you have to keep in mind that they render"
Print "to their own hardware layer, which you can specify to go on below or above your software screen."
Print
Print "(Or, you can _DISPLAYORDER _HARDWARE and *only* display the hardware layer, removing software rendering completely!)"
Print
Print "And THAT, my friends, is basically the lowdown on hardware vs software images.  ;)"
Print
Print
Print "And this was another Steve(tm) Tutorial!  Enjoy!!"
 
 

madscijr · « **Reply #7 on:** February 22, 2022, 08:59:50 am »

Quote from: SMcNeill on February 22, 2022, 01:14:28 am

Try this out and see if it doesn't help answer your questions:
...

Wow, I really like your "tutorial" method, lol.
I will play with this as time allows today, and let you know how it went!
Thanks!

madscijr · « **Reply #8 on:** February 22, 2022, 04:54:22 pm »

Quote from: SMcNeill on February 22, 2022, 01:14:28 am

Try this out and see if it doesn't help answer your questions:

So I (think) I have a tile routine that uses hardware images ("DrawTileHw8"),
but testing it against a straight putImage ("DrawTile8"), the putImage is faster.
The routine that uses a color swap ("DrawColorTile") came out slowest, as I expected.

Here is the full test program. Am I using the hardware images wrong somehow?
Are they not suited for this kind of application (plotting variable-colored tiles to a row/column)?
Any insight appreciated...

Thanks again...

Code: QB64: [Select]

' ################################################################################################################################################################
' #CONSTANTS = GLOBAL CONSTANTS
 
' BOOLEAN VALUES
Const FALSE = 0
Const TRUE = Not FALSE
 
' ################################################################################################################################################################
' #VARS = GLOBAL VARIABLES
 
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)
Dim m_iScreen As Long
 
' =============================================================================
' START THE MAIN ROUTINE
MakeColoredTiles
'HardwareImageDemo2
 
' =============================================================================
' FINISH
Screen 0
'Print m_ProgramName$ + " finished."
'Input "Press <ENTER> to continue", in$
 
' ****************************************************************************************************************************************************************
' DEACTIVATE DEBUGGING WINDOW
If m_bDebug = TRUE Then
    _Console Off
End If
' ****************************************************************************************************************************************************************
 
System ' return control to the operating system
End
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' BEGIN TILE ROUTINES
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub MakeColoredTiles
    Dim sError As String: sError = ""
    Dim imgTiles As Long
    Dim imgTilesRed As Long
    Dim imgTilesGreen As Long
    Dim imgTilesBlue As Long
    Dim imgTilesYellow As Long
    Dim imgColorTiles As Long
    Dim imgHardwareTiles As Long ' the hardware image copy of the tileset
    Dim iTileNum As Integer
    Dim iColor As Integer: iColor = 0
    Dim iStartColor As Integer: iStartColor = 0
    Dim iCols As Integer
    Dim iRows As Integer
    Dim iY As Integer
    Dim iX As Integer
    Dim fgColor As _Unsigned Long
    Dim bgColor As _Unsigned Long
    Dim iMinY As Integer
    Dim iMaxY As Integer
    Dim iMinX As Integer
    Dim iMaxX As Integer
    Dim iCount1 As Integer
    Dim iCount2 As Integer
    Dim iCount3 As Integer
    Dim t#
 
    ' ================================================================================================================================================================
    ' INIT SCREEN
    ' ================================================================================================================================================================
    m_iScreen = _NewImage(1024, 768, 32)
    _ScreenMove 0, 0
    Screen m_iScreen
    Cls , cGray
    Color cWhite, cBlack: Locate 1, 1: Print "Press 1 to test DrawTile8 rooutine using 4 tilesets (1 per color) and regular _putimage...": Do: Loop Until InKey$ = "1"
 
    'for iY = 1 to 48
    '    LOCATE iY, 1
    '    print cstr$(iY);
    'next iY
 
 
    ' ================================================================================================================================================================
    ' INITIALIZE NEUTRAL COLOR GRAPHICS TILES (BLACK ON TRANSPARENT)
    ' ================================================================================================================================================================
    If Len(sError) = 0 Then
        '' LOAD TILES (16 cols x 16 rows of 8x8 tiles) FROM FILE
        'sFile$ = m_ProgramPath$ + "Font_8x8_128x128_v3.png" ' 128x128 total, 16x16 of 8x8 tiles
        'imgTiles = _LoadImage(sFile$, 32)
 
        ' LOAD TILES FROM TEXT DEFINITIONS IN Sub GetTileText
        sError = GetTiles$(imgTiles, cBlack, cEmpty)
    End If
 
    ' ================================================================================================================================================================
    ' CREATE COLORED TILESET COPIES
    ' ================================================================================================================================================================
    If Len(sError) = 0 Then
        MakeColoredTileset imgTiles, imgTilesRed, cRed, cBlack
        MakeColoredTileset imgTiles, imgTilesGreen, cLime, cBlack
        MakeColoredTileset imgTiles, imgTilesBlue, cBlue, cBlack
        MakeColoredTileset imgTiles, imgTilesYellow, cYellow, cBlack
 
        ' Make one big tileset with all colors
        imgColorTiles = _NewImage(512, 128, 32)
        _PutImage (0, 0), imgTilesRed, imgColorTiles, (0, 0)-(128, 128)
        _PutImage (128, 0), imgTilesGreen, imgColorTiles, (0, 0)-(128, 128)
        _PutImage (256, 0), imgTilesBlue, imgColorTiles, (0, 0)-(128, 128)
        _PutImage (384, 0), imgTilesYellow, imgColorTiles, (0, 0)-(128, 128)
    End If
 
    '' WRITE TILESETS TO SCREEN
    ''_PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
    '_PUTIMAGE (256,128), imgTiles, m_iScreen, (0,0)-(128, 128)
    '_PUTIMAGE (264,264), imgTilesRed, m_iScreen, (0,0)-(128, 128)
    '_PUTIMAGE (400,264), imgTilesGreen, m_iScreen, (0,0)-(128, 128)
    '_PUTIMAGE (264,400), imgTilesBlue, m_iScreen, (0,0)-(128, 128)
    '_PUTIMAGE (400,400), imgTilesYellow, m_iScreen, (0,0)-(128, 128)
 
    ' ================================================================================================================================================================
    ' METHOD #1
    ' WRITE TILES TO SCREEN
    ' ================================================================================================================================================================
    If Len(sError) = 0 Then
        iCols = _Width(m_iScreen) \ 8
        iRows = _Height(m_iScreen) \ 8
        iMinX = 1: iMaxX = 16
        iMinY = 3: iMaxY = 18
        iCount1 = 0
        t# = Timer + 3
        Do
            iCount1 = iCount1 + 1
            iStartColor = iStartColor Xor 1
            iColor = iStartColor
            iY = iMinY
            iX = iMinX
            For iTileNum = 0 To 255
                Select Case iColor
                    Case 0:
                        DrawTile8 imgTilesRed, iTileNum, m_iScreen, iX, iY
                    Case 1:
                        DrawTile8 imgTilesGreen, iTileNum, m_iScreen, iX, iY
                    Case 2:
                        DrawTile8 imgTilesBlue, iTileNum, m_iScreen, iX, iY
                    Case Else:
                        DrawTile8 imgTilesYellow, iTileNum, m_iScreen, iX, iY
                End Select
                iColor = iColor + 1: If iColor > 3 Then iColor = 0
                iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
            Next iTileNum
            _Display
        Loop Until Timer > t#
    End If
    _AutoDisplay
    Color cWhite, cBlack: Locate 11, 1: Print "Press 2 to test DrawColorTile routine using 1 tileset with DoColorSwap...";: Do: Loop Until InKey$ = "2"
 
    ' ================================================================================================================================================================
    ' METHOD #2
    ' WRITE COLOR TILES TO SCREEN
    ' ================================================================================================================================================================
    If Len(sError) = 0 Then
        iMinX = 1: iMaxX = 16
        iMinY = 23: iMaxY = 38
        iCount2 = 0
        t# = Timer + 3
        Do
            iCount2 = iCount2 + 1
            iStartColor = iStartColor Xor 1
            iColor = iStartColor
            iY = iMinY
            iX = iMinX
            For iTileNum = 0 To 255
                Select Case iColor
                    Case 0:
                        fgColor = cRed: bgColor = cBlack
                    Case 1:
                        fgColor = cLime: bgColor = cBlack
                    Case 2:
                        fgColor = cBlue: bgColor = cBlack
                    Case Else:
                        fgColor = cYellow: bgColor = cBlack
                End Select
                DrawColorTile m_iScreen, imgTiles, iTileNum, fgColor, bgColor, iX, iY
                iColor = iColor + 1: If iColor > 3 Then iColor = 0
                iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
            Next iTileNum
            _Display
        Loop Until Timer > t#
    End If
    _AutoDisplay
    Color cWhite, cBlack: Locate 21, 1: Print "Press 3 to test DrawTileHw8 rooutine using 1 big multi-tileset and hardware images...";: Do: Loop Until InKey$ = "3"
 
    ' ================================================================================================================================================================
    ' METHOD #3
    ' WRITE HARDWARE TILES TO SCREEN
    ' ================================================================================================================================================================
    If Len(sError) = 0 Then
        imgHardwareTiles = _CopyImage(imgColorTiles, 33) ' Copy tilesheet for hardware image
        iMinX = 1: iMaxX = 16
        iMinY = 43: iMaxY = 58
        iCount3 = 0
        t# = Timer + 3
        Do
            iCount3 = iCount3 + 1
            iStartColor = iStartColor Xor 1
            iColor = iStartColor
            iY = iMinY
            iX = iMinX
            For iTileNum = 0 To 255
                DrawTileHw8 imgHardwareTiles, iTileNum, m_iScreen, iX, iY, iColor
                iColor = iColor + 1: If iColor > 3 Then iColor = 0
                iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
            Next iTileNum
            _Display
        Loop Until Timer > t#
        _AutoDisplay
        'COLOR cWhite, cBlack: LOCATE 31,1 : PRINT "PRESS 4 TO SEE RESULTS..."; : Do : Loop Until InKey$="4"
    End If
 
    ' ================================================================================================================================================================
    ' SHOW RESULTS
    ' ================================================================================================================================================================
    Color cWhite, cBlack: Locate 33, 1
    Print ""
    Print "RESULTS:"
    Print Using "DrawTile8     ###,###,###,###,###,### refreshes in 3 seconds."; iCount1
    Print Using "DrawColorTile ###,###,###,###,###,### refreshes in 3 seconds."; iCount2
    Print Using "DrawTileHw8   ###,###,###,###,###,### refreshes in 3 seconds."; iCount3
    Print "PRESS ANY KEY TO CONTINUE"
    Sleep
 
    ' ================================================================================================================================================================
    ' CLEANUP AND EXIT
    ' ================================================================================================================================================================
    Screen 0 ' RETURN TO TEXT SCREEN
    If m_iScreen < -1 Or m_iScreen > 0 Then _FreeImage m_iScreen ' FREE MEMORY
    If imgTiles < -1 Or imgTiles > 0 Then _FreeImage imgTiles ' FREE MEMORY
    If imgTilesRed < -1 Or imgTilesRed > 0 Then _FreeImage imgTilesRed ' FREE MEMORY
    If imgTilesGreen < -1 Or imgTilesGreen > 0 Then _FreeImage imgTilesGreen ' FREE MEMORY
    If imgTilesBlue < -1 Or imgTilesBlue > 0 Then _FreeImage imgTilesBlue ' FREE MEMORY
    If imgTilesYellow < -1 Or imgTilesYellow > 0 Then _FreeImage imgTilesYellow ' FREE MEMORY
    If imgColorTiles < -1 Or imgColorTiles > 0 Then _FreeImage imgColorTiles ' FREE MEMORY
    If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
End Sub ' MakeColoredTiles
 
' /////////////////////////////////////////////////////////////////////////////
' Receives an image imgTiles of 8x8 tiles
' colored black on transparent background
' and returns a new image imgNew
' copied from the tiles in imgTiles,
' except colored to foreground color fgColor,
' and background color bgColor
 
' Usage:
' MakeColoredTileset imgTiles, imgNew, fgColor, bgColor
 
Sub MakeColoredTileset (imgTiles As Long, imgNew As Long, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
    Dim iTileNum As Integer
    Dim iY As Integer
    Dim iX As Integer
    If imgNew < -1 Or imgNew > 0 Then _FreeImage imgNew ' FREE MEMORY
    imgNew = _NewImage(_Width(imgTiles), _Height(imgTiles), 32)
    iTileNum = 0
    For iY = 0 To (_Height(imgTiles) \ 8) - 1
        For iX = 0 To (_Width(imgTiles) \ 8) - 1
            DrawColorTile imgNew, imgTiles, iTileNum, fgColor, bgColor, iX, iY
            iTileNum = iTileNum + 1
            If iTileNum > 255 Then Exit For
        Next iX
        If iTileNum > 255 Then Exit For
    Next iY
End Sub ' MakeColoredTileset
 
' /////////////////////////////////////////////////////////////////////////////
' Simple version which calculates coordinates on tile sheet and destination
' screen every time. For a faster version uses precalculated coordinates,
' see DrawColorTileFast. This version does not support offsetX, offsetY.
 
' Receives:
' imgScreen& = handle to screen to draw tile on
' imgTiles& = handle to 16x16 tile sheet of 8x8 pixel tiles colored black (256 tiles)
' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
' TileColor~& = foreground color to use for tile
' BackColor~& = background color to use for tile
' dx% = column # to draw tile at (where each column is 8 pixels wide)
' dy% = row # to draw tile at (where each row is 8 pixels high)
 
' Usage:
' DrawColorTile imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%
 
Sub DrawColorTile (imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%)
    Dim cols%
    Dim rows%
    Dim sc%
    Dim sr%
    Dim sx1%
    Dim sy1%
    Dim sx2%
    Dim sy2%
    Dim xDest%
    Dim yDest%
    Dim ColorSprite&
    Dim UniversalSprite&
 
    ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
    cols% = 16
    rows% = 16
 
    ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
    sc% = TileNum% Mod rows%
    sr% = TileNum% \ rows%
 
    ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
    sx1% = sc% * 8
 
    ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
    sy1% = sr% * 8
 
    ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
    sx2% = sx1% + 7
 
    ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
    sy2% = sy1% + 7
 
    ' GET THE DESTINATION X COORDINATE ON THE SCREEN
    xDest% = dx% * 8
 
    ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
    yDest% = dy% * 8
 
    ' IS THERE A BACKGROUND COLOR?
    If BackColor~& <> cEmpty Then
        ColorSprite& = _NewImage(8, 8, 32)
        _Dest ColorSprite&
        Cls , BackColor~&
 
        ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
        _Source ColorSprite&
        _Dest imgScreen&
        _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
    End If
 
    ' CREATE A TEMPORARY TILE TO COLOR
    UniversalSprite& = _NewImage(8, 8, 32)
 
    ' COPY THE TILE TO THE TEMPORARY ONE
    _Source imgTiles&
    _Dest UniversalSprite&
    _PutImage (0, 0), imgTiles&, UniversalSprite&, (sx1%, sy1%)-(sx2%, sy2%)
 
    ' COLOR IN THE TEMPORARY TILE
    ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
    If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
    DoColorSwap UniversalSprite&, cBlack, TileColor~&, ColorSprite&
 
    ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
    _Source ColorSprite&
    _Dest imgScreen&
    _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
 
    ' ADDED PER FellipeHeitor
    If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
    If UniversalSprite& < -1 Or UniversalSprite& > 0 Then _FreeImage UniversalSprite&
End Sub ' DrawColorTile
 
' /////////////////////////////////////////////////////////////////////////////
' Latest version with NOVARSEG's changes.
 
' Based on code from:
 
' Image color swap?
' https://www.qb64.org/forum/index.php?topic=2312.0
 
' Like Function swapcolor& except returns new image in a parameter
' in case being a function causes a memory leak?
 
Sub DoColorSwap (imgOriginal&, oldcolor~&, newcolor~&, imgNew&)
    Dim m As _MEM
    Dim a As _Offset
    Dim c As _Unsigned Long
    a = 0
    imgNew& = _CopyImage(imgOriginal&, 32)
    m = _MemImage(imgNew&)
    Do Until a = m.SIZE - 4
        a = a + 4
        c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
        If c = oldcolor~& Then
            _MemPut m, m.OFFSET + a, newcolor~&
        End If
    Loop
    _MemFree m
End Sub ' DoColorSwap&
 
' /////////////////////////////////////////////////////////////////////////////
' Draws an 8x8 tile at the specified column/row dx%, dy%
 
' Original version which calculates coordinates on tile sheet and destination
' screen every time. For a faster version uses precalculated coordinates,
' see DrawTileFast.
 
' tw% = tile width/height (in pixels)
 
' DIV and MOD:
' c% = a% \ b% ' DIV (INTEGER DIVISION)
' d% = a% MOD b% ' MODULO (DIVISION REMAINDER)
 
'_PUTIMAGE (0, 0), i ' places image at upper left corner of window w/o stretching it
'_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) ' portion of source to the top-left corner of the destination page
'_PUTIMAGE (64,  128), imgTiles&,      imgScreen&,   (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
'_PutImage (64, 128), imgTiles&, imgScreen&, (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
 
Sub DrawTile8 (imgTiles&, TileNum%, imgScreen&, dx%, dy%)
    Dim tw% ' width/height of tile
    Dim tw_minus1% ' width/height of tile -1
    Dim cols% ' # tiles across on tile sheet
    Dim rows% ' # tile rows on tile sheet
    Dim sc% ' source column on tile sheet
    Dim sr% ' source row on tile sheet
    Dim sx1% ' source start x
    Dim sx2% ' source end x
    Dim sy1% ' source start y
    Dim sy2% ' source end y
    Dim xDest% ' destination x
    Dim yDest% ' destination y
 
    ' SIZE OF TILE
    tw% = 8
    tw_minus1% = 7
 
    ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
    cols% = 16
    rows% = 16
 
    ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
    sc% = TileNum% Mod rows%
    sr% = TileNum% \ rows%
 
    'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
 
    ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
    sx1% = sc% * tw%
 
    ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
    sy1% = sr% * tw%
 
    ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
    sx2% = sx1% + tw_minus1%
 
    ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
    sy2% = sy1% + tw_minus1%
 
    ' GET THE DESTINATION X COORDINATE ON THE SCREEN
    xDest% = dx% * tw%
 
    ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
    yDest% = (dy% * tw%) '+ yOffset%
 
    'Print "Tile#" + cstr$(TileNum%) + _
    '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
    '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
    '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
 
    _Dest imgScreen&
 
    ' portion of source to the top-left corner of the destination page
    _PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
 
End Sub ' DrawTile8
 
' /////////////////////////////////////////////////////////////////////////////
' Draws an 8x8 tile at the specified column/row dx%, dy%
' using hardware images
 
' Usage:
' Dim imgHardwareTiles As Long ' the hardware image copy of the tileset
' imgHardwareTiles = _CopyImage(imgTiles, 33) ' Copy tilesheet for hardware image
' DrawTileHw8 imgHardwareTiles, iTileNum, imgScreen, iColumn, iRow, iSubTileset
 
Sub DrawTileHw8 (imgTiles&, TileNum%, imgScreen&, dx%, dy%, iSubTileset%)
    Dim tw% ' width/height of tile
    Dim tw_minus1% ' width/height of tile -1
    Dim cols% ' # tiles across on tile sheet
    Dim rows% ' # tile rows on tile sheet
    Dim sc% ' source column on tile sheet
    Dim sr% ' source row on tile sheet
    Dim sx1% ' source start x
    Dim sx2% ' source end x
    Dim sy1% ' source start y
    Dim sy2% ' source end y
    Dim xDest% ' destination x
    Dim yDest% ' destination y
    Dim xOffset%
 
    ' CALCULATE OFFSET
    xOffset% = 128 * iSubTileset%
 
    ' SIZE OF TILE
    tw% = 8
    tw_minus1% = 7
 
    ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
    cols% = 16
    rows% = 16
 
    ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
    sc% = TileNum% Mod rows%
    sr% = TileNum% \ rows%
 
    'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
 
    ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
    sx1% = (sc% * tw%) + xOffset%
 
    ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
    sy1% = sr% * tw%
 
    ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
    sx2% = sx1% + tw_minus1%
 
    ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
    sy2% = sy1% + tw_minus1%
 
    ' GET THE DESTINATION X COORDINATE ON THE SCREEN
    xDest% = dx% * tw%
 
    ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
    yDest% = (dy% * tw%) '+ yOffset%
 
    'Print "Tile#" + cstr$(TileNum%) + _
    '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
    '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
    '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
 
    _Dest imgScreen&
 
    ' portion of source to the top-left corner of the destination page
    '_PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
    '_PutImage (200, 100)-Step(100, 100), imgHardware&, , (0, 0)-(40, 40)
    _PutImage (xDest%, yDest%), imgTiles&, , (sx1%, sy1%)-(sx2%, sy2%)
 
End Sub ' DrawTileHw8
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' END TILE ROUTINES
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' ################################################################################################################################################################
' BEGIN TILE DEFINITIONS
' ################################################################################################################################################################
 
' /////////////////////////////////////////////////////////////////////////////
' Loads tileset of 256 8x8 tiles into a 128x128 image (16 columns x 16 rows)
' where tiles are a single color.
 
' Parameters:
' imgTiles& = contains the resulting tileset image
' fgColor = tile color
' bgColor = tile background color
 
Function GetTiles$ (imgTiles&, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
    Dim RoutineName As String: RoutineName = "GetTiles$"
    Dim sResult As String: sResult = ""
    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 iTileX As Integer
    Dim iTileY As Integer
    Dim iToX As Integer
    Dim iToY As Integer
    Dim pixelColor As _Unsigned Long
    Dim bFinished As Integer
 
    ' Do not try to free image handles currently being used as the active SCREEN. Change screen modes first.
    ' _DISPLAY turns off the auto refresh screen default _AUTODISPLAY behavior. Prevents screen flickering.
    If imgTiles& < -1 Or imgTiles& > 0 Then _FreeImage imgTiles&
    imgTiles& = _NewImage(128, 128, 32)
    '    Cls , cEmpty ' set the background color as transparent
 
    'Screen imgTiles&
    'Cls , bgColor ' set the background color as transparent
    _Dest imgTiles&
    'DrawRect 0, 0, 128, 128, cEmpty
    'DrawBox 0, 0, 128, cWhite
    Cls , cEmpty ' set the background color as transparent
 
    GetTileText arrTileText()
    iTileX = 0
    iTileY = 0
    bFinished = FALSE
    For iTileNum = 0 To 255
        split arrTileText(iTileNum), Chr$(13), arrLines()
        iToY = iTileY * 8
        If (iToY > _Height(imgTiles&)) Then
            sResult = "iToY value " + cstr$(iToY) + " " + _
                "exceeded image height " + cstr$(_Height(imgTiles&)) + ". " + _
                "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
            bFinished = TRUE
            Exit For
        End If
 
        For iFromY = LBound(arrLines) To UBound(arrLines)
            sLine = arrLines(iFromY)
            If Len(sLine) > 0 Then
                iToX = iTileX * 8
                For iFromX = 1 To Len(sLine)
                    sChar = Mid$(sLine, iFromX, 1)
                    If sChar = "." Then
                        pixelColor = bgColor ' cEmpty ' POINT(iFromX, iFromY)
                    Else
                        pixelColor = fgColor ' cBlack
                    End If
                    PSet (iToX, iToY), pixelColor
                    iToX = iToX + 1
                    If (iToX > _Width(imgTiles&)) Then
                        sResult = "iToX value " + cstr$(iToX) + " " + _
                            "exceeded image width " + cstr$(_Width(imgTiles&)) + ". " + _
                            "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
                        bFinished = TRUE
                        Exit For
                    End If
                Next iFromX
                iToY = iToY + 1
                If bFinished = TRUE Then Exit For
            End If
        Next iFromY
        If bFinished = TRUE Then Exit For
 
        iTileX = iTileX + 1
        If iTileX > 15 Then
            iTileX = 0
            iTileY = iTileY + 1
            'if iTileY > 15 then
            '    sResult = "Exceeded max 16 rows of tiles." + _
            '        "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
            '    bFinished = TRUE
            '    exit for
            'end if
        End If
    Next iTileNum
 
    GetTiles$ = sResult
End Function ' GetTiles$
 
' /////////////////////////////////////////////////////////////////////////////
' Returns an array of 256 8x8 tiles defined in text
' where each tile is defined by "." as blank and anything else is a pixel
' and each row is delimited by chr$(13)
 
Sub GetTileText (arrTileText() As String)
    ReDim arrTileText(0 To 255) As String
 
    m$ = ""
    m$ = m$ + "22....22" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "2..2...2" + Chr$(13)
    m$ = m$ + "2...2..2" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "22....22" + Chr$(13)
    m$ = m$ + "22222222" + 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$ + "22222.22" + Chr$(13)
    m$ = m$ + "22222.22" + Chr$(13)
    m$ = m$ + "22222.22" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22.22222" + Chr$(13)
    m$ = m$ + "22.22222" + Chr$(13)
    m$ = m$ + "22.22222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(241) = 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(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$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...2222." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(244) = m$
 
    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".222...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(245) = m$
 
    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(246) = m$
 
    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + ".222...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(247) = 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(248) = 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(249) = 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(250) = 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(251) = 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(252) = m$
 
    m$ = ""
    m$ = m$ + "22222222" + 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......2" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(253) = m$
 
    m$ = ""
    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$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(254) = m$
 
    m$ = ""
    m$ = ""
    m$ = m$ + "22....22" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "22.....2" + Chr$(13)
    m$ = m$ + "22222..2" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "22....22" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(255) = m$
 
End Sub ' GetTileText
 
' ################################################################################################################################################################
' END TILE DEFINITIONS
' ################################################################################################################################################################
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' BEGIN COLOR FUNCTIONS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function cWhite~& ()
    cWhite = _RGB32(255, 255, 255)
End Function ' cWhite~&
 
Function cEmpty~& ()
    cEmpty = _RGB32(0, 0, 0, 0)
End Function ' cEmpty~&
 
Function cBlack~& ()
    cBlack = _RGB32(0, 0, 0)
End Function ' cBlack~&
 
Function cRed~& ()
    cRed = _RGB32(255, 0, 0)
End Function
 
Function cYellow~& ()
    cYellow = _RGB32(255, 255, 0)
End Function ' cYellow~&
 
Function cLime~& ()
    cLime = _RGB32(0, 255, 0)
End Function ' cLime~&
 
Function cCyan~& ()
    cCyan = _RGB32(0, 255, 255)
End Function ' cCyan~&
 
Function cBlue~& ()
    cBlue = _RGB32(0, 0, 255)
End Function ' cBlue~&
 
Function cMagenta~& ()
    cMagenta = _RGB32(255, 0, 255)
End Function ' cMagenta~&
 
Function cOrange~& ()
    cOrange = _RGB32(255, 165, 0)
End Function ' cOrange~&
 
Function cGray~& ()
    cGray = _RGB32(128, 128, 128)
End Function ' cGray~&
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' END COLOR FUNCTIONS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' BEGIN GENERAL PURPOSE ROUTINES #GEN
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' /////////////////////////////////////////////////////////////////////////////
 
Function cstr$ (myValue)
    'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
    cstr$ = _Trim$(Str$(myValue))
End Function ' cstr$
 
' /////////////////////////////////////////////////////////////////////////////
' 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 HARDWARE IMAGES DEMO #2 (WORKS)
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' /////////////////////////////////////////////////////////////////////////////
' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
' https://qb64forum.alephc.xyz/index.php?topic=4674.0
 
' madscijr
' « Reply #5 on: Yesterday at 09:46:53 pm »
 
' Quote from: SMcNeill on Yesterday at 07:56:57 pm:
' Hardware images basically get their speed by being a sort of "Write Only"
' method for images. You can make them, you can put them on the screen,
' but you can't edit them or read information back from them.
' ...
' 2) You don't have to specify where they show up as a destination with putimage.
' ...
' If you have any specific questions, feel free to ask them and I'll do my
' best to answer for you, if I can.  ;)
'
' Thanks for taking the time to explain all that. When I'm back at the PC,
' I'll try out your example.
'
' For now, just one question: if you can't read information from them or even
' specify where on the destination they go, how are they even useful?
' Maybe it will click when I run your example or read up on it, but I just
' don't see what the use of an image would be if you can't control where on
' the screen it is drawn? Or how it would help speed up drawing a map of
' colored tiles to the screen.
'
' Thanks again...
 
' SMcNeill, QB64 Developer
' « Reply #6 on: Today at 01:14:28 am »
'
' Try this out and see if it doesn't help answer your questions:
 
Sub HardwareImageDemo2
    $Color:32
    Display = _NewImage(1024, 720, 32)
    Software = _NewImage(1024, 720, 32)
 
    Screen Display
    Print "First, let's create a normal sortware screen and fill it with 40x40 tiles of random colors."
    Print "Press <ANY KEY> to view this screen."
    Sleep
 
    _Dest Software
    For y = 0 To 720 Step 40
        For x = 0 To 1024 Step 40
            Line (x, y)-Step(40, 40), &HFF000000 + Rnd * &HFFFFFF, BF
        Next
    Next
 
    _Dest Display
    _PutImage , Software
    Print
    Print "As you can see, this is a simple software screen."
    Print "Now, I'm going to copy that software screen and make it a hardware screen."
    Print "Press <ANY KEY> for me to do so!"
    Sleep
 
    Hardware = _CopyImage(Software, 33)
    Cls
    Print "Now, I'm back to my blank screen, but I now have a hardware screen to work with."
    Print
    Print "To keep things simple, let's showcase the differences between using _putimage with a software screen, and then with the hardware screen."
    Print
    Print "First, the software screen!  Press <ANY KEY> to continue."
    Sleep
 
    _PutImage (0, 100)-Step(100, 100), Software, Display, (0, 0)-(40, 40)
    Print: Print: Print: Print: Print: Print: Print
    Print "As you can see, all I did here was copy a single tile from the software screen and then scale it to fit upon the current screen."
    Print
    Print "Press <ANY KEY> to continue, as I'll now do the same with a hardware image."
    Sleep: _KeyClear
 
    _PutImage (200, 100)-Step(100, 100), Hardware, , (0, 0)-(40, 40)
    Print
    Print "As you can see from the above, we have the same tile copied and scaled onto the screen, just to the right of the software image."
    Print
    Print "Doesn't really seem to be very different at all, now does it?"
    Print
    Print "Press <ANY KEY> to continue."
    _Display
    Sleep
 
    _AutoDisplay
    Print
    Color Red
    Print "BUT WAIT A MOMENT!!  What the heck happened to our hardware tile??!!??"
    Color White
    Print
    Print "It's no longer on the screen, as it was previously.  Why??"
    Print
    Print "Because it was never on the software screen at all, but was instead on it's own hardware layer ABOVE the software screen."
    Print
    Print "Hardware images only display ONCE, once _DISPLAY is called, and then they flush from the graphics buffer."
    Print "Draw.  Display.  Flush.  <-- that's the basic process of how a hardware image works."
    Print
    Print "If we want one to remain on the screen, we have to do it either by:"
    Print "1) Not updating the screen after we draw and display the image, as I did above with the tile I displayed."
    Print "2) Refresh displaying the image in our main loop (which is what we do even with software images for most games and such)."
    Print
    Print "Press <ANY KEY> to continue."
    Sleep
 
    Cls
    Print
    Print "So, as you can see, hardware images have a few drawbacks to them, with the most obvious being they only display once,"
    Print "then flush from memory.  If you want persistant hardware images, they're best used in a loop."
    Print
    Print "But, if they've got drawbacks, then one has to ask, 'What's the advantages to using them?'"
    Print "Press <ANY KEY> to find out!"
    Sleep
 
    t# = Timer + 3
    Do
        count = count + 1
        _PutImage (0, 100)-Step(100, 100), Software, Display, (x, y)-Step(40, 40)
        x = x + 40
        If x > 1024 Then x = 0: y = y + 40
        If y > 720 Then x = 0: y = 0
        _Display
    Loop Until Timer > t#
    _AutoDisplay
 
    Print: Print: Print: Print: Print: Print: Print: Print
    Print "See lots of flashing tiles on the screen for the last three seconds?"
    Print "That was us using _PUTIMAGE with the software screen, and we put"; count; "tiles on the screen in those 3 seconds."
    Print
    Print "Now press <ANY KEY> and we'll do the exact same thing with hardware images."
    Sleep
 
    count = 0: x = 0: y = 0
    t# = Timer + 3
    tempScreen = _CopyImage(Display, 33)
    _DisplayOrder _Hardware
    Do
        count = count + 1
        _PutImage , tempScreen
        _PutImage (300, 100)-Step(100, 100), Hardware, , (x, y)-Step(40, 40)
        x = x + 40
        If x > 1024 Then x = 0: y = y + 40
        If y > 720 Then x = 0: y = 0
        _Display
    Loop Until Timer > t#
 
    _FreeImage tempScreen
    _AutoDisplay
    _DisplayOrder _Hardware , _Software
    Print
    Print "Didn't seem very different at the rate of which we were running things, now did it?"
    Print "Would you be surprised to find out that we put"; count * 2; "hardware images on the screen in those same 3 seconds?"
    Print
    Print "And if you look close, I counted each loop twice, as we didn't just put the hardware image to the screen, but also a"
    Print "complete copy of the original software screen as well!"
    Print
    Print "The reason why I did this?"
    Print
    Print "So I could completely elimimate all software iamges and JUST work with the much faster hardware layer!"
    Print
    Print "Press <ANY KEY> to continue"
    Sleep
 
    Cls
    Print "So, as you can see, hardware images are multiple times faster to display and render than software images."
    Print
    Print "But here's something else for you to notice -- I'm going to update the screen with constant, limitless tile refeshes."
    Print "To start with, I'm going to do this in a LOOP with the software images."
    Print "CTRL-TAB out of this demo program, open your task manager, and see how much memory and CPU processing power the program uses."
    Print "Then TAB back to this program and hit <ESC> to do the same with the hardware images."
 
    Do
        _PutImage (0, 100)-(1024, 720), Software, Display, (x, y)-Step(40, 40)
        x = x + 40
        If x > 1024 Then x = 0: y = y + 40
        If y > 720 Then x = 0: y = 0
        _Limit 60
        _Display
    Loop Until _KeyDown(27)
 
    Cls , 0
    Print "PRESS <SPACE BAR> to stop the hardware iamges!!"
    tempImage = _CopyImage(Display, 33)
    x = 0: y = 0
    _DisplayOrder _Hardware
    Do
        _PutImage , tempImage
        _PutImage (0, 100)-(1023, 719), Hardware, , (x, y)-Step(40, 40)
        x = x + 40
        If x > 1024 Then x = 0: y = y + 40
        If y > 720 Then x = 0: y = 0
        _Limit 60
        _Display
    Loop Until _KeyDown(32)
 
    _DisplayOrder _Software , _Hardware
    _AutoDisplay
    Cls
    Print "On my laptop, these two methods use the following amounts of CPU power:"
    Print "Software, 60 FPS -- 3% CPU"
    Print "Hardware, 60 FPS -- 0.1% CPU"
    Print
    Print "If I go in and change the limits to something much higher, these are the results (test them for yourselves, please):"
    Print "Software, 600 FPS -- 10.3% CPU"
    Print "Hardware, 600 FPS -- 0.1% CPU"
    Print
    Print
    Print "So, as you can see, the disadvantage to hardware images are they display once, then flush from memory."
    Print
    Print "While the advantages to their usage is MUCH faster processing times, and an immense reduction on CPU usage.  (The GPU picks up the work for us!)"
    Print
    Print
    Print "You basically use them just like you would any other normal image, though you have to keep in mind that they render"
    Print "to their own hardware layer, which you can specify to go on below or above your software screen."
    Print
    Print "(Or, you can _DISPLAYORDER _HARDWARE and *only* display the hardware layer, removing software rendering completely!)"
    Print
    Print "And THAT, my friends, is basically the lowdown on hardware vs software images.  ;)"
    Print
    Print
    Print "And this was another Steve(tm) Tutorial!  Enjoy!!"
End Sub ' HardwareImageDemo2
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' END HARDWARE IMAGES DEMO #2 (WORKS)
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 

SMcNeill · « **Reply #9 on:** February 23, 2022, 05:50:37 am »

I made a few little subtle changes to your code -- see if this doesn't run a little bit differently for you:

Code: QB64: [Select]

' ################################################################################################################################################################
' #CONSTANTS = GLOBAL CONSTANTS
 
' BOOLEAN VALUES
Const FALSE = 0
Const TRUE = Not FALSE
 
' ################################################################################################################################################################
' #VARS = GLOBAL VARIABLES
 
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)
Dim m_iScreen As Long
 
' =============================================================================
' START THE MAIN ROUTINE
MakeColoredTiles
'HardwareImageDemo2
 
' =============================================================================
' FINISH
Screen 0
'Print m_ProgramName$ + " finished."
'Input "Press <ENTER> to continue", in$
 
' ****************************************************************************************************************************************************************
' DEACTIVATE DEBUGGING WINDOW
If m_bDebug = TRUE Then
    _Console Off
End If
' ****************************************************************************************************************************************************************
 
System ' return control to the operating system
End
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' BEGIN TILE ROUTINES
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' /////////////////////////////////////////////////////////////////////////////
 
Sub MakeColoredTiles
    Dim sError As String: sError = ""
    Dim imgTiles As Long
    Dim imgTilesRed As Long
    Dim imgTilesGreen As Long
    Dim imgTilesBlue As Long
    Dim imgTilesYellow As Long
    Dim imgColorTiles As Long
    Dim imgHardwareTiles As Long ' the hardware image copy of the tileset
    Dim iTileNum As Integer
    Dim iColor As Integer: iColor = 0
    Dim iStartColor As Integer: iStartColor = 0
    Dim iCols As Integer
    Dim iRows As Integer
    Dim iY As Integer
    Dim iX As Integer
    Dim fgColor As _Unsigned Long
    Dim bgColor As _Unsigned Long
    Dim iMinY As Integer
    Dim iMaxY As Integer
    Dim iMinX As Integer
    Dim iMaxX As Integer
    Dim iCount1 As Integer
    Dim iCount2 As Integer
    Dim iCount3 As Long
    Dim t#
 
    ' ================================================================================================================================================================
    ' INIT SCREEN
    ' ================================================================================================================================================================
    m_iScreen = _NewImage(1024, 768, 32)
    _ScreenMove 0, 0
    Screen m_iScreen
    Cls , cGray
    Color cWhite, cBlack: Locate 1, 1: Print "Press 1 to test DrawTile8 rooutine using 4 tilesets (1 per color) and regular _putimage...": Do: Loop Until InKey$ = "1"
 
    'for iY = 1 to 48
    '    LOCATE iY, 1
    '    print cstr$(iY);
    'next iY
 
 
    ' ================================================================================================================================================================
    ' INITIALIZE NEUTRAL COLOR GRAPHICS TILES (BLACK ON TRANSPARENT)
    ' ================================================================================================================================================================
    If Len(sError) = 0 Then
        '' LOAD TILES (16 cols x 16 rows of 8x8 tiles) FROM FILE
        'sFile$ = m_ProgramPath$ + "Font_8x8_128x128_v3.png" ' 128x128 total, 16x16 of 8x8 tiles
        'imgTiles = _LoadImage(sFile$, 32)
 
        ' LOAD TILES FROM TEXT DEFINITIONS IN Sub GetTileText
        sError = GetTiles$(imgTiles, cBlack, cEmpty)
    End If
 
    ' ================================================================================================================================================================
    ' CREATE COLORED TILESET COPIES
    ' ================================================================================================================================================================
    If Len(sError) = 0 Then
        MakeColoredTileset imgTiles, imgTilesRed, cRed, cBlack
        MakeColoredTileset imgTiles, imgTilesGreen, cLime, cBlack
        MakeColoredTileset imgTiles, imgTilesBlue, cBlue, cBlack
        MakeColoredTileset imgTiles, imgTilesYellow, cYellow, cBlack
 
        ' Make one big tileset with all colors
        imgColorTiles = _NewImage(512, 128, 32)
        _PutImage (0, 0), imgTilesRed, imgColorTiles, (0, 0)-(128, 128)
        _PutImage (128, 0), imgTilesGreen, imgColorTiles, (0, 0)-(128, 128)
        _PutImage (256, 0), imgTilesBlue, imgColorTiles, (0, 0)-(128, 128)
        _PutImage (384, 0), imgTilesYellow, imgColorTiles, (0, 0)-(128, 128)
    End If
 
    '' WRITE TILESETS TO SCREEN
    ''_PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
    '_PUTIMAGE (256,128), imgTiles, m_iScreen, (0,0)-(128, 128)
    '_PUTIMAGE (264,264), imgTilesRed, m_iScreen, (0,0)-(128, 128)
    '_PUTIMAGE (400,264), imgTilesGreen, m_iScreen, (0,0)-(128, 128)
    '_PUTIMAGE (264,400), imgTilesBlue, m_iScreen, (0,0)-(128, 128)
    '_PUTIMAGE (400,400), imgTilesYellow, m_iScreen, (0,0)-(128, 128)
 
    ' ================================================================================================================================================================
    ' METHOD #1
    ' WRITE TILES TO SCREEN
    ' ================================================================================================================================================================
    If Len(sError) = 0 Then
        iCols = _Width(m_iScreen) \ 8
        iRows = _Height(m_iScreen) \ 8
        iMinX = 1: iMaxX = 16
        iMinY = 3: iMaxY = 18
        iCount1 = 0
        t# = Timer + 3
        Do
            iCount1 = iCount1 + 1
            iStartColor = iStartColor Xor 1
            iColor = iStartColor
            iY = iMinY
            iX = iMinX
            For iTileNum = 0 To 255
                Select Case iColor
                    Case 0:
                        DrawTile8 imgTilesRed, iTileNum, m_iScreen, iX, iY
                    Case 1:
                        DrawTile8 imgTilesGreen, iTileNum, m_iScreen, iX, iY
                    Case 2:
                        DrawTile8 imgTilesBlue, iTileNum, m_iScreen, iX, iY
                    Case Else:
                        DrawTile8 imgTilesYellow, iTileNum, m_iScreen, iX, iY
                End Select
                iColor = iColor + 1: If iColor > 3 Then iColor = 0
                iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
            Next iTileNum
            _Display
        Loop Until Timer > t#
    End If
    _AutoDisplay
    Color cWhite, cBlack: Locate 11, 1: Print "Press 2 to test DrawColorTile routine using 1 tileset with DoColorSwap...";: Do: Loop Until InKey$ = "2"
 
    ' ================================================================================================================================================================
    ' METHOD #2
    ' WRITE COLOR TILES TO SCREEN
    ' ================================================================================================================================================================
    If Len(sError) = 0 Then
        iMinX = 1: iMaxX = 16
        iMinY = 23: iMaxY = 38
        iCount2 = 0
        t# = Timer + 3
        Do
            iCount2 = iCount2 + 1
            iStartColor = iStartColor Xor 1
            iColor = iStartColor
            iY = iMinY
            iX = iMinX
            For iTileNum = 0 To 255
                Select Case iColor
                    Case 0:
                        fgColor = cRed: bgColor = cBlack
                    Case 1:
                        fgColor = cLime: bgColor = cBlack
                    Case 2:
                        fgColor = cBlue: bgColor = cBlack
                    Case Else:
                        fgColor = cYellow: bgColor = cBlack
                End Select
                DrawColorTile m_iScreen, imgTiles, iTileNum, fgColor, bgColor, iX, iY
                iColor = iColor + 1: If iColor > 3 Then iColor = 0
                iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
            Next iTileNum
            _Display
        Loop Until Timer > t#
    End If
    _AutoDisplay
    Color cWhite, cBlack: Locate 21, 1: Print "Press 3 to test DrawTileHw8 rooutine using 1 big multi-tileset and hardware images...";: Do: Loop Until InKey$ = "3"
 
    ' ================================================================================================================================================================
    ' METHOD #3
    ' WRITE HARDWARE TILES TO SCREEN
    ' ================================================================================================================================================================
    If Len(sError) = 0 Then
        imgHardwareTiles = _CopyImage(imgColorTiles, 33) ' Copy tilesheet for hardware image
        iMinX = 1: iMaxX = 16
        iMinY = 43: iMaxY = 58
        iCount3 = 0
        t# = Timer + 3
        tempScreen = _CopyImage(0, 33)
        _DisplayOrder _Hardware
        Do
            iCount3 = iCount3 + 1
            iStartColor = iStartColor Xor 1
            iColor = iStartColor
            iY = iMinY
            iX = iMinX
            _PutImage , tempScreen
            For iTileNum = 0 To 255
                DrawTileHw8 imgHardwareTiles, iTileNum, m_iScreen, iX, iY, iColor
                iColor = iColor + 1: If iColor > 3 Then iColor = 0
                iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
            Next iTileNum
            _Display
        Loop Until Timer > t#
        _AutoDisplay
        _DisplayOrder _Software , _Hardware
        _FreeImage tempScreen
        'COLOR cWhite, cBlack: LOCATE 31,1 : PRINT "PRESS 4 TO SEE RESULTS..."; : Do : Loop Until InKey$="4"
    End If
 
    ' ================================================================================================================================================================
    ' SHOW RESULTS
    ' ================================================================================================================================================================
    Color cWhite, cBlack: Locate 33, 1
    Print ""
    Print "RESULTS:"
    Print Using "DrawTile8     ###,###,###,###,###,### refreshes in 3 seconds."; iCount1
    Print Using "DrawColorTile ###,###,###,###,###,### refreshes in 3 seconds."; iCount2
    Print Using "DrawTileHw8   ###,###,###,###,###,### refreshes in 3 seconds."; iCount3
    Print "PRESS ANY KEY TO CONTINUE"
    Sleep
 
    ' ================================================================================================================================================================
    ' CLEANUP AND EXIT
    ' ================================================================================================================================================================
    Screen 0 ' RETURN TO TEXT SCREEN
    If m_iScreen < -1 Or m_iScreen > 0 Then _FreeImage m_iScreen ' FREE MEMORY
    If imgTiles < -1 Or imgTiles > 0 Then _FreeImage imgTiles ' FREE MEMORY
    If imgTilesRed < -1 Or imgTilesRed > 0 Then _FreeImage imgTilesRed ' FREE MEMORY
    If imgTilesGreen < -1 Or imgTilesGreen > 0 Then _FreeImage imgTilesGreen ' FREE MEMORY
    If imgTilesBlue < -1 Or imgTilesBlue > 0 Then _FreeImage imgTilesBlue ' FREE MEMORY
    If imgTilesYellow < -1 Or imgTilesYellow > 0 Then _FreeImage imgTilesYellow ' FREE MEMORY
    If imgColorTiles < -1 Or imgColorTiles > 0 Then _FreeImage imgColorTiles ' FREE MEMORY
    If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
End Sub ' MakeColoredTiles
 
' /////////////////////////////////////////////////////////////////////////////
' Receives an image imgTiles of 8x8 tiles
' colored black on transparent background
' and returns a new image imgNew
' copied from the tiles in imgTiles,
' except colored to foreground color fgColor,
' and background color bgColor
 
' Usage:
' MakeColoredTileset imgTiles, imgNew, fgColor, bgColor
 
Sub MakeColoredTileset (imgTiles As Long, imgNew As Long, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
    Dim iTileNum As Integer
    Dim iY As Integer
    Dim iX As Integer
    If imgNew < -1 Or imgNew > 0 Then _FreeImage imgNew ' FREE MEMORY
    imgNew = _NewImage(_Width(imgTiles), _Height(imgTiles), 32)
    iTileNum = 0
    For iY = 0 To (_Height(imgTiles) \ 8) - 1
        For iX = 0 To (_Width(imgTiles) \ 8) - 1
            DrawColorTile imgNew, imgTiles, iTileNum, fgColor, bgColor, iX, iY
            iTileNum = iTileNum + 1
            If iTileNum > 255 Then Exit For
        Next iX
        If iTileNum > 255 Then Exit For
    Next iY
End Sub ' MakeColoredTileset
 
' /////////////////////////////////////////////////////////////////////////////
' Simple version which calculates coordinates on tile sheet and destination
' screen every time. For a faster version uses precalculated coordinates,
' see DrawColorTileFast. This version does not support offsetX, offsetY.
 
' Receives:
' imgScreen& = handle to screen to draw tile on
' imgTiles& = handle to 16x16 tile sheet of 8x8 pixel tiles colored black (256 tiles)
' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
' TileColor~& = foreground color to use for tile
' BackColor~& = background color to use for tile
' dx% = column # to draw tile at (where each column is 8 pixels wide)
' dy% = row # to draw tile at (where each row is 8 pixels high)
 
' Usage:
' DrawColorTile imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%
 
Sub DrawColorTile (imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%)
    Dim cols%
    Dim rows%
    Dim sc%
    Dim sr%
    Dim sx1%
    Dim sy1%
    Dim sx2%
    Dim sy2%
    Dim xDest%
    Dim yDest%
    Dim ColorSprite&
    Dim UniversalSprite&
 
    ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
    cols% = 16
    rows% = 16
 
    ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
    sc% = TileNum% Mod rows%
    sr% = TileNum% \ rows%
 
    ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
    sx1% = sc% * 8
 
    ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
    sy1% = sr% * 8
 
    ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
    sx2% = sx1% + 7
 
    ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
    sy2% = sy1% + 7
 
    ' GET THE DESTINATION X COORDINATE ON THE SCREEN
    xDest% = dx% * 8
 
    ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
    yDest% = dy% * 8
 
    ' IS THERE A BACKGROUND COLOR?
    If BackColor~& <> cEmpty Then
        ColorSprite& = _NewImage(8, 8, 32)
        _Dest ColorSprite&
        Cls , BackColor~&
 
        ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
        _Source ColorSprite&
        _Dest imgScreen&
        _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
    End If
 
    ' CREATE A TEMPORARY TILE TO COLOR
    UniversalSprite& = _NewImage(8, 8, 32)
 
    ' COPY THE TILE TO THE TEMPORARY ONE
    _Source imgTiles&
    _Dest UniversalSprite&
    _PutImage (0, 0), imgTiles&, UniversalSprite&, (sx1%, sy1%)-(sx2%, sy2%)
 
    ' COLOR IN THE TEMPORARY TILE
    ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
    If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
    DoColorSwap UniversalSprite&, cBlack, TileColor~&, ColorSprite&
 
    ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
    _Source ColorSprite&
    _Dest imgScreen&
    _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
 
    ' ADDED PER FellipeHeitor
    If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
    If UniversalSprite& < -1 Or UniversalSprite& > 0 Then _FreeImage UniversalSprite&
End Sub ' DrawColorTile
 
' /////////////////////////////////////////////////////////////////////////////
' Latest version with NOVARSEG's changes.
 
' Based on code from:
 
' Image color swap?
' https://www.qb64.org/forum/index.php?topic=2312.0
 
' Like Function swapcolor& except returns new image in a parameter
' in case being a function causes a memory leak?
 
Sub DoColorSwap (imgOriginal&, oldcolor~&, newcolor~&, imgNew&)
    Dim m As _MEM
    Dim a As _Offset
    Dim c As _Unsigned Long
    a = 0
    imgNew& = _CopyImage(imgOriginal&, 32)
    m = _MemImage(imgNew&)
    Do Until a = m.SIZE - 4
        a = a + 4
        c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
        If c = oldcolor~& Then
            _MemPut m, m.OFFSET + a, newcolor~&
        End If
    Loop
    _MemFree m
End Sub ' DoColorSwap&
 
' /////////////////////////////////////////////////////////////////////////////
' Draws an 8x8 tile at the specified column/row dx%, dy%
 
' Original version which calculates coordinates on tile sheet and destination
' screen every time. For a faster version uses precalculated coordinates,
' see DrawTileFast.
 
' tw% = tile width/height (in pixels)
 
' DIV and MOD:
' c% = a% \ b% ' DIV (INTEGER DIVISION)
' d% = a% MOD b% ' MODULO (DIVISION REMAINDER)
 
'_PUTIMAGE (0, 0), i ' places image at upper left corner of window w/o stretching it
'_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) ' portion of source to the top-left corner of the destination page
'_PUTIMAGE (64,  128), imgTiles&,      imgScreen&,   (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
'_PutImage (64, 128), imgTiles&, imgScreen&, (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
 
Sub DrawTile8 (imgTiles&, TileNum%, imgScreen&, dx%, dy%)
    Dim tw% ' width/height of tile
    Dim tw_minus1% ' width/height of tile -1
    Dim cols% ' # tiles across on tile sheet
    Dim rows% ' # tile rows on tile sheet
    Dim sc% ' source column on tile sheet
    Dim sr% ' source row on tile sheet
    Dim sx1% ' source start x
    Dim sx2% ' source end x
    Dim sy1% ' source start y
    Dim sy2% ' source end y
    Dim xDest% ' destination x
    Dim yDest% ' destination y
 
    ' SIZE OF TILE
    tw% = 8
    tw_minus1% = 7
 
    ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
    cols% = 16
    rows% = 16
 
    ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
    sc% = TileNum% Mod rows%
    sr% = TileNum% \ rows%
 
    'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
 
    ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
    sx1% = sc% * tw%
 
    ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
    sy1% = sr% * tw%
 
    ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
    sx2% = sx1% + tw_minus1%
 
    ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
    sy2% = sy1% + tw_minus1%
 
    ' GET THE DESTINATION X COORDINATE ON THE SCREEN
    xDest% = dx% * tw%
 
    ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
    yDest% = (dy% * tw%) '+ yOffset%
 
    'Print "Tile#" + cstr$(TileNum%) + _
    '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
    '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
    '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
 
    _Dest imgScreen&
 
    ' portion of source to the top-left corner of the destination page
    _PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
 
End Sub ' DrawTile8
 
' /////////////////////////////////////////////////////////////////////////////
' Draws an 8x8 tile at the specified column/row dx%, dy%
' using hardware images
 
' Usage:
' Dim imgHardwareTiles As Long ' the hardware image copy of the tileset
' imgHardwareTiles = _CopyImage(imgTiles, 33) ' Copy tilesheet for hardware image
' DrawTileHw8 imgHardwareTiles, iTileNum, imgScreen, iColumn, iRow, iSubTileset
 
Sub DrawTileHw8 (imgTiles&, TileNum%, imgScreen&, dx%, dy%, iSubTileset%)
    Dim tw% ' width/height of tile
    Dim tw_minus1% ' width/height of tile -1
    Dim cols% ' # tiles across on tile sheet
    Dim rows% ' # tile rows on tile sheet
    Dim sc% ' source column on tile sheet
    Dim sr% ' source row on tile sheet
    Dim sx1% ' source start x
    Dim sx2% ' source end x
    Dim sy1% ' source start y
    Dim sy2% ' source end y
    Dim xDest% ' destination x
    Dim yDest% ' destination y
    Dim xOffset%
 
    ' CALCULATE OFFSET
    xOffset% = 128 * iSubTileset%
 
    ' SIZE OF TILE
    tw% = 8
    tw_minus1% = 7
 
    ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
    cols% = 16
    rows% = 16
 
    ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
    sc% = TileNum% Mod rows%
    sr% = TileNum% \ rows%
 
    'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
 
    ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
    sx1% = (sc% * tw%) + xOffset%
 
    ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
    sy1% = sr% * tw%
 
    ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
    sx2% = sx1% + tw_minus1%
 
    ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
    sy2% = sy1% + tw_minus1%
 
    ' GET THE DESTINATION X COORDINATE ON THE SCREEN
    xDest% = dx% * tw%
 
    ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
    yDest% = (dy% * tw%) '+ yOffset%
 
    'Print "Tile#" + cstr$(TileNum%) + _
    '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
    '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
    '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
 
    _Dest imgScreen&
 
    ' portion of source to the top-left corner of the destination page
    '_PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
    '_PutImage (200, 100)-Step(100, 100), imgHardware&, , (0, 0)-(40, 40)
    _PutImage (xDest%, yDest%), imgTiles&, , (sx1%, sy1%)-(sx2%, sy2%)
 
End Sub ' DrawTileHw8
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' END TILE ROUTINES
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' ################################################################################################################################################################
' BEGIN TILE DEFINITIONS
' ################################################################################################################################################################
 
' /////////////////////////////////////////////////////////////////////////////
' Loads tileset of 256 8x8 tiles into a 128x128 image (16 columns x 16 rows)
' where tiles are a single color.
 
' Parameters:
' imgTiles& = contains the resulting tileset image
' fgColor = tile color
' bgColor = tile background color
 
Function GetTiles$ (imgTiles&, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
    Dim RoutineName As String: RoutineName = "GetTiles$"
    Dim sResult As String: sResult = ""
    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 iTileX As Integer
    Dim iTileY As Integer
    Dim iToX As Integer
    Dim iToY As Integer
    Dim pixelColor As _Unsigned Long
    Dim bFinished As Integer
 
    ' Do not try to free image handles currently being used as the active SCREEN. Change screen modes first.
    ' _DISPLAY turns off the auto refresh screen default _AUTODISPLAY behavior. Prevents screen flickering.
    If imgTiles& < -1 Or imgTiles& > 0 Then _FreeImage imgTiles&
    imgTiles& = _NewImage(128, 128, 32)
    '    Cls , cEmpty ' set the background color as transparent
 
    'Screen imgTiles&
    'Cls , bgColor ' set the background color as transparent
    _Dest imgTiles&
    'DrawRect 0, 0, 128, 128, cEmpty
    'DrawBox 0, 0, 128, cWhite
    Cls , cEmpty ' set the background color as transparent
 
    GetTileText arrTileText()
    iTileX = 0
    iTileY = 0
    bFinished = FALSE
    For iTileNum = 0 To 255
        split arrTileText(iTileNum), Chr$(13), arrLines()
        iToY = iTileY * 8
        If (iToY > _Height(imgTiles&)) Then
            sResult = "iToY value " + cstr$(iToY) + " " + _
                "exceeded image height " + cstr$(_Height(imgTiles&)) + ". " + _
                "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
            bFinished = TRUE
            Exit For
        End If
 
        For iFromY = LBound(arrLines) To UBound(arrLines)
            sLine = arrLines(iFromY)
            If Len(sLine) > 0 Then
                iToX = iTileX * 8
                For iFromX = 1 To Len(sLine)
                    sChar = Mid$(sLine, iFromX, 1)
                    If sChar = "." Then
                        pixelColor = bgColor ' cEmpty ' POINT(iFromX, iFromY)
                    Else
                        pixelColor = fgColor ' cBlack
                    End If
                    PSet (iToX, iToY), pixelColor
                    iToX = iToX + 1
                    If (iToX > _Width(imgTiles&)) Then
                        sResult = "iToX value " + cstr$(iToX) + " " + _
                            "exceeded image width " + cstr$(_Width(imgTiles&)) + ". " + _
                            "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
                        bFinished = TRUE
                        Exit For
                    End If
                Next iFromX
                iToY = iToY + 1
                If bFinished = TRUE Then Exit For
            End If
        Next iFromY
        If bFinished = TRUE Then Exit For
 
        iTileX = iTileX + 1
        If iTileX > 15 Then
            iTileX = 0
            iTileY = iTileY + 1
            'if iTileY > 15 then
            '    sResult = "Exceeded max 16 rows of tiles." + _
            '        "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
            '    bFinished = TRUE
            '    exit for
            'end if
        End If
    Next iTileNum
 
    GetTiles$ = sResult
End Function ' GetTiles$
 
' /////////////////////////////////////////////////////////////////////////////
' Returns an array of 256 8x8 tiles defined in text
' where each tile is defined by "." as blank and anything else is a pixel
' and each row is delimited by chr$(13)
 
Sub GetTileText (arrTileText() As String)
    ReDim arrTileText(0 To 255) As String
 
    m$ = ""
    m$ = m$ + "22....22" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "2..2...2" + Chr$(13)
    m$ = m$ + "2...2..2" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "22....22" + Chr$(13)
    m$ = m$ + "22222222" + 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$ + "22222.22" + Chr$(13)
    m$ = m$ + "22222.22" + Chr$(13)
    m$ = m$ + "22222.22" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "22.22222" + Chr$(13)
    m$ = m$ + "22.22222" + Chr$(13)
    m$ = m$ + "22.22222" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(241) = 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(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$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...2222." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(244) = m$
 
    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + ".222...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(245) = m$
 
    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2222." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(246) = m$
 
    m$ = ""
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + "...2...." + Chr$(13)
    m$ = m$ + ".222...." + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    m$ = m$ + "........" + Chr$(13)
    arrTileText(247) = 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(248) = 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(249) = 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(250) = 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(251) = 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(252) = m$
 
    m$ = ""
    m$ = m$ + "22222222" + 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......2" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(253) = m$
 
    m$ = ""
    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$ + "22222222" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(254) = m$
 
    m$ = ""
    m$ = ""
    m$ = m$ + "22....22" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "22.....2" + Chr$(13)
    m$ = m$ + "22222..2" + Chr$(13)
    m$ = m$ + "2..22..2" + Chr$(13)
    m$ = m$ + "22....22" + Chr$(13)
    m$ = m$ + "22222222" + Chr$(13)
    arrTileText(255) = m$
 
End Sub ' GetTileText
 
' ################################################################################################################################################################
' END TILE DEFINITIONS
' ################################################################################################################################################################
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' BEGIN COLOR FUNCTIONS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function cWhite~& ()
    cWhite = _RGB32(255, 255, 255)
End Function ' cWhite~&
 
Function cEmpty~& ()
    cEmpty = _RGB32(0, 0, 0, 0)
End Function ' cEmpty~&
 
Function cBlack~& ()
    cBlack = _RGB32(0, 0, 0)
End Function ' cBlack~&
 
Function cRed~& ()
    cRed = _RGB32(255, 0, 0)
End Function
 
Function cYellow~& ()
    cYellow = _RGB32(255, 255, 0)
End Function ' cYellow~&
 
Function cLime~& ()
    cLime = _RGB32(0, 255, 0)
End Function ' cLime~&
 
Function cCyan~& ()
    cCyan = _RGB32(0, 255, 255)
End Function ' cCyan~&
 
Function cBlue~& ()
    cBlue = _RGB32(0, 0, 255)
End Function ' cBlue~&
 
Function cMagenta~& ()
    cMagenta = _RGB32(255, 0, 255)
End Function ' cMagenta~&
 
Function cOrange~& ()
    cOrange = _RGB32(255, 165, 0)
End Function ' cOrange~&
 
Function cGray~& ()
    cGray = _RGB32(128, 128, 128)
End Function ' cGray~&
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' END COLOR FUNCTIONS
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' BEGIN GENERAL PURPOSE ROUTINES #GEN
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' /////////////////////////////////////////////////////////////////////////////
 
Function cstr$ (myValue)
    'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
    cstr$ = _Trim$(Str$(myValue))
End Function ' cstr$
 
' /////////////////////////////////////////////////////////////////////////////
' 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 HARDWARE IMAGES DEMO #2 (WORKS)
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
' /////////////////////////////////////////////////////////////////////////////
' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
' https://qb64forum.alephc.xyz/index.php?topic=4674.0
 
' madscijr
' « Reply #5 on: Yesterday at 09:46:53 pm »
 
' Quote from: SMcNeill on Yesterday at 07:56:57 pm:
' Hardware images basically get their speed by being a sort of "Write Only"
' method for images. You can make them, you can put them on the screen,
' but you can't edit them or read information back from them.
' ...
' 2) You don't have to specify where they show up as a destination with putimage.
' ...
' If you have any specific questions, feel free to ask them and I'll do my
' best to answer for you, if I can.  ;)
'
' Thanks for taking the time to explain all that. When I'm back at the PC,
' I'll try out your example.
'
' For now, just one question: if you can't read information from them or even
' specify where on the destination they go, how are they even useful?
' Maybe it will click when I run your example or read up on it, but I just
' don't see what the use of an image would be if you can't control where on
' the screen it is drawn? Or how it would help speed up drawing a map of
' colored tiles to the screen.
'
' Thanks again...
 
' SMcNeill, QB64 Developer
' « Reply #6 on: Today at 01:14:28 am »
'
' Try this out and see if it doesn't help answer your questions:
 
Sub HardwareImageDemo2
    $Color:32
    Display = _NewImage(1024, 720, 32)
    Software = _NewImage(1024, 720, 32)
 
    Screen Display
    Print "First, let's create a normal sortware screen and fill it with 40x40 tiles of random colors."
    Print "Press <ANY KEY> to view this screen."
    Sleep
 
    _Dest Software
    For y = 0 To 720 Step 40
        For x = 0 To 1024 Step 40
            Line (x, y)-Step(40, 40), &HFF000000 + Rnd * &HFFFFFF, BF
        Next
    Next
 
    _Dest Display
    _PutImage , Software
    Print
    Print "As you can see, this is a simple software screen."
    Print "Now, I'm going to copy that software screen and make it a hardware screen."
    Print "Press <ANY KEY> for me to do so!"
    Sleep
 
    Hardware = _CopyImage(Software, 33)
    Cls
    Print "Now, I'm back to my blank screen, but I now have a hardware screen to work with."
    Print
    Print "To keep things simple, let's showcase the differences between using _putimage with a software screen, and then with the hardware screen."
    Print
    Print "First, the software screen!  Press <ANY KEY> to continue."
    Sleep
 
    _PutImage (0, 100)-Step(100, 100), Software, Display, (0, 0)-(40, 40)
    Print: Print: Print: Print: Print: Print: Print
    Print "As you can see, all I did here was copy a single tile from the software screen and then scale it to fit upon the current screen."
    Print
    Print "Press <ANY KEY> to continue, as I'll now do the same with a hardware image."
    Sleep: _KeyClear
 
    _PutImage (200, 100)-Step(100, 100), Hardware, , (0, 0)-(40, 40)
    Print
    Print "As you can see from the above, we have the same tile copied and scaled onto the screen, just to the right of the software image."
    Print
    Print "Doesn't really seem to be very different at all, now does it?"
    Print
    Print "Press <ANY KEY> to continue."
    _Display
    Sleep
 
    _AutoDisplay
    Print
    Color Red
    Print "BUT WAIT A MOMENT!!  What the heck happened to our hardware tile??!!??"
    Color White
    Print
    Print "It's no longer on the screen, as it was previously.  Why??"
    Print
    Print "Because it was never on the software screen at all, but was instead on it's own hardware layer ABOVE the software screen."
    Print
    Print "Hardware images only display ONCE, once _DISPLAY is called, and then they flush from the graphics buffer."
    Print "Draw.  Display.  Flush.  <-- that's the basic process of how a hardware image works."
    Print
    Print "If we want one to remain on the screen, we have to do it either by:"
    Print "1) Not updating the screen after we draw and display the image, as I did above with the tile I displayed."
    Print "2) Refresh displaying the image in our main loop (which is what we do even with software images for most games and such)."
    Print
    Print "Press <ANY KEY> to continue."
    Sleep
 
    Cls
    Print
    Print "So, as you can see, hardware images have a few drawbacks to them, with the most obvious being they only display once,"
    Print "then flush from memory.  If you want persistant hardware images, they're best used in a loop."
    Print
    Print "But, if they've got drawbacks, then one has to ask, 'What's the advantages to using them?'"
    Print "Press <ANY KEY> to find out!"
    Sleep
 
    t# = Timer + 3
    Do
        count = count + 1
        _PutImage (0, 100)-Step(100, 100), Software, Display, (x, y)-Step(40, 40)
        x = x + 40
        If x > 1024 Then x = 0: y = y + 40
        If y > 720 Then x = 0: y = 0
        _Display
    Loop Until Timer > t#
    _AutoDisplay
 
    Print: Print: Print: Print: Print: Print: Print: Print
    Print "See lots of flashing tiles on the screen for the last three seconds?"
    Print "That was us using _PUTIMAGE with the software screen, and we put"; count; "tiles on the screen in those 3 seconds."
    Print
    Print "Now press <ANY KEY> and we'll do the exact same thing with hardware images."
    Sleep
 
    count = 0: x = 0: y = 0
    t# = Timer + 3
    tempScreen = _CopyImage(Display, 33)
    _DisplayOrder _Hardware
    Do
        count = count + 1
        _PutImage , tempScreen
        _PutImage (300, 100)-Step(100, 100), Hardware, , (x, y)-Step(40, 40)
        x = x + 40
        If x > 1024 Then x = 0: y = y + 40
        If y > 720 Then x = 0: y = 0
        _Display
    Loop Until Timer > t#
 
    _FreeImage tempScreen
    _AutoDisplay
    _DisplayOrder _Hardware , _Software
    Print
    Print "Didn't seem very different at the rate of which we were running things, now did it?"
    Print "Would you be surprised to find out that we put"; count * 2; "hardware images on the screen in those same 3 seconds?"
    Print
    Print "And if you look close, I counted each loop twice, as we didn't just put the hardware image to the screen, but also a"
    Print "complete copy of the original software screen as well!"
    Print
    Print "The reason why I did this?"
    Print
    Print "So I could completely elimimate all software iamges and JUST work with the much faster hardware layer!"
    Print
    Print "Press <ANY KEY> to continue"
    Sleep
 
    Cls
    Print "So, as you can see, hardware images are multiple times faster to display and render than software images."
    Print
    Print "But here's something else for you to notice -- I'm going to update the screen with constant, limitless tile refeshes."
    Print "To start with, I'm going to do this in a LOOP with the software images."
    Print "CTRL-TAB out of this demo program, open your task manager, and see how much memory and CPU processing power the program uses."
    Print "Then TAB back to this program and hit <ESC> to do the same with the hardware images."
 
    Do
        _PutImage (0, 100)-(1024, 720), Software, Display, (x, y)-Step(40, 40)
        x = x + 40
        If x > 1024 Then x = 0: y = y + 40
        If y > 720 Then x = 0: y = 0
        _Limit 60
        _Display
    Loop Until _KeyDown(27)
 
    Cls , 0
    Print "PRESS <SPACE BAR> to stop the hardware iamges!!"
    tempImage = _CopyImage(Display, 33)
    x = 0: y = 0
    _DisplayOrder _Hardware
    Do
        _PutImage , tempImage
        _PutImage (0, 100)-(1023, 719), Hardware, , (x, y)-Step(40, 40)
        x = x + 40
        If x > 1024 Then x = 0: y = y + 40
        If y > 720 Then x = 0: y = 0
        _Limit 60
        _Display
    Loop Until _KeyDown(32)
 
    _DisplayOrder _Software , _Hardware
    _AutoDisplay
    Cls
    Print "On my laptop, these two methods use the following amounts of CPU power:"
    Print "Software, 60 FPS -- 3% CPU"
    Print "Hardware, 60 FPS -- 0.1% CPU"
    Print
    Print "If I go in and change the limits to something much higher, these are the results (test them for yourselves, please):"
    Print "Software, 600 FPS -- 10.3% CPU"
    Print "Hardware, 600 FPS -- 0.1% CPU"
    Print
    Print
    Print "So, as you can see, the disadvantage to hardware images are they display once, then flush from memory."
    Print
    Print "While the advantages to their usage is MUCH faster processing times, and an immense reduction on CPU usage.  (The GPU picks up the work for us!)"
    Print
    Print
    Print "You basically use them just like you would any other normal image, though you have to keep in mind that they render"
    Print "to their own hardware layer, which you can specify to go on below or above your software screen."
    Print
    Print "(Or, you can _DISPLAYORDER _HARDWARE and *only* display the hardware layer, removing software rendering completely!)"
    Print
    Print "And THAT, my friends, is basically the lowdown on hardware vs software images.  ;)"
    Print
    Print
    Print "And this was another Steve(tm) Tutorial!  Enjoy!!"
End Sub ' HardwareImageDemo2
 
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' END HARDWARE IMAGES DEMO #2 (WORKS)
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
 

The main change with my code and yours, is that I removed the software rendering completely when I was running the hardware images.

tempScreen = _CopyImage(0, 33)
_DisplayOrder _Hardware

With this single, simple, change, my number of loops went up to such a number that it became NEGATIVE. (Overflow Error!) I had to swap the variable type from INTEGER to LONG for icount3, to have it finally tell me I was getting 43,582 refreshes in 3 seconds.

madscijr · « **Reply #10 on:** February 23, 2022, 10:02:23 am »

Quote from: SMcNeill on February 23, 2022, 05:50:37 am

I made a few little subtle changes to your code -- see if this doesn't run a little bit differently for you:
...
The main change with my code and yours, is that I removed the software rendering completely when I was running the hardware images.
tempScreen = _CopyImage(0, 33)
_DisplayOrder _Hardware
With this single, simple, change, my number of loops went up to such a number that it became NEGATIVE. (Overflow Error!) I had to swap the variable type from INTEGER to LONG for icount3, to have it finally tell me I was getting 43,582 refreshes in 3 seconds.

Wow. In my tests that change sped it up to 6-7 times faster.

Would you help me understand what's happening?

Code: QB64: [Select]

        tempScreen = _CopyImage(0, 33)
        _DisplayOrder _Hardware
 

So just by _CopyImage copying 0 (current screen) to hardware (33) and _DisplayOrder _Hardware, we are totally changing to a hardware image display.

Code: QB64: [Select]

            _PutImage , tempScreen

So this is just refreshing screen 0 (m_iScreen, the target screen the tile routine draws to) to the hardware layer? I'm kind of confused.

Code: QB64: [Select]

        _DisplayOrder _Software , _Hardware
        _FreeImage tempScreen
 

So we change the _DisplayOrder - to return control to the normal sofware graphics.
Why is _Hardware in that line at all?
How is tempScreen freed up to do a _FreeImage when _Hardware is still in the _DisplayOrder statement?

Anyway, this is an amazing increase in speed, thank you Mr. McNeill for taking the time to share this technique.

SMcNeill · « **Reply #11 on:** February 23, 2022, 11:18:18 am »

Quote from: madscijr on February 23, 2022, 10:02:23 am

Would you help me understand what's happening?

Certainly!

Let me start by breaking the process down to something non-computer related, so we can visualize what's going on. Let's begin by imagining (or taking out) two pieces of glass or clear plastic. On one of those sheets, we draw a square with red lipstick. On the other sheet, we draw a circle in bright green lipstick. These two sheets are our "layers", and how we stack them affects what we see on the screen.

Imagine, for a moment, that you place the sheet with the square on top of the sheet with the circle. If they overlap, the square is going to overwrite the circle, blocking it from view. If you swap the position of those sheets, so that the sheet with the circle is on top, it's going to block the view of the square. Which layer is on top greatly effects what we see, as it obscures what's beneath it.

Quick, easy test: grab a quarter and a nickel out of your pocket. Place the quarter on top of the nickel, look directly down on them and draw what you see. You're just going to draw the quarter as it completely hides the nickel! Swap their order, with the nickel on top of the quarter and then draw what you see -- the majority of the quarter is going to be obscured and hidden under that nickel!

_DISPLAYORDER works in that exact manner, as we're working with two distinct layers -- both a _HARDWARE and a _SOFTWARE layer. We can decide if we want to draw our images with the "nickel" (hardware) on top, or the "quarter" on top -- and the order will greatly affect what we actually end up viewing on our monitors!

Now, with this concept of "layering" out of the way, let me explain what I'm doing specifically here, and why it's so much faster:

Originally, you had a software screen, and -- by default -- you were drawing your hardware layer on top of it. The software screen was the one which you were using PRINT and other such commands on, and then you _PUTIMAGE a hardware image over top of it. In your loops, you were rendering BOTH screens each and every time you had a loop and called _DISPLAY.

Think of this:

PRINT "Hello World"
DO
'whatever else you want
_DISPLAY
LOOP

Now, even if we don't actually change the screen any with the above, isn't that _DISPLAY going to refresh it over and over and over, with the already existing image? To us, as folks using the program, we never think about it, but our monitor and the program keeps endlessly updating the screen with the same image (just a "Hello World" on a blank screen), seamlessly.

So, for your code, as it existed unchanged, you were constantly redrawing that software screen over and over, and then layering a hardware screen over top of it. Software screens run off the CPU and are, as such, relatively slow to process. This created an obvious bottleneck in your program flow.

So, I chose to make a copy of the software screen, while transforming it into a hardware image:

tempScreen = _CopyImage(0, 33)

Make a copy of the visible screen (the 0), and transform it to a hardware image (the 33).

As soon as that was done, I told our program to completely stop rendering any software screen:

_DisplayOrder _Hardware

Notice that there's no , _SOFTWARE in that statement at all? By using the command like this, I completely disabled drawing any software screens, letting the program *ONLY* draw hardware screens.

But wouldn't this leave me with a blank screen, hiding all the PRINT statements and previous drawings?

Absolutely it does!

Which is why I put that hardware copy of the screen back every loop cycle:

_PutImage , tempScreen

Now, my hardware layer would look *exactly* like the old software layer did, and as you run the program, you don't even notice that the software layer is completely gone. There's *absolutely* nothing being rendered to the software layer at this point -- everything we see on the screen is a hardware image!

After that is your code to draw the tiles on the hardware screen: DrawTileHw8 imgHardwareTiles, iTileNum, m_iScreen, iX, iY, iColor (and its relevant loop)

Then, when we're finished, we have the _AUTODISPLAY, which tells the program to update our screen automatically for us as we use PRINT statements and such...

But at this point, we still *don't* have any software screen visible!

Left as is, when we exit our code block (as defined by the IF... END IF statement we're in), all we'd have would be a blank screen for the user to stare at. We're not rendering the software screen, and the hardware images flushed themselves out of our GPU's memory with the last _DISPLAY... With no new hardware images to show, and since we're deliberately not doing anything software related, all we'd have is a completely blank display!

That's not what we want!

So we tell the program to start rendering those software images once again, and -- if we want them -- to draw any hardware images on top of the software layer:

_DisplayOrder _Software , _Hardware

From your questions here, "So we change the _DisplayOrder - does that mean the hardware image tileset is now permanently written to the software image m_iScreen ? How is tempScreen freed up to do a _FreeImage when _Hardware is still in the _DisplayOrder statement?", it appears that you're having a little problem understanding what _DISPLAYORDER does.

To explain, let's go back to the quarter and the nickel.

_DISPLAYORDER "nickel", "quarter" -- this type statement will, of course, toss all sorts of errors as we don't have nickels and quarters in QB64. BUT, let's pretend for a moment that we do! What would this statement actually *do* for us, if it could do anything??

It would tell us to put the nickel down on the table first, and then place the quarter down on top of it.

_DISPLAYORDER "quarter", "nickel"

And the above?

It'd just say to place the quarter down on the table first, and then lay the nickel down on top of it.

At no point are we turning the nickel into a quarter, nor are we turning the quarter into a nickel, with these commands. (We have _COPYIMAGE ,33 for that.) All we're doing is setting which one is on top of the other.

_DISPLAYORDER "nickel"

And, if we had the above?

We'd stick the quarter in our pocket and only place the nickel on the table!

And that's basically the whole concept of what I've did to speed things up here.

First, I made a hardware copy of the software image so the user wouldn't miss it. tempScreen = _CopyImage(0, 33)

Then I told our program that I wasn't going to render anything except hardware images: _DisplayOrder _Hardware

So the user didn't notice anything different, I then placed my "fake" hardware copy of the software screen down: _PutImage , tempScreen

Then I did my other hardware drawings: DrawTileHw8 imgHardwareTiles, iTileNum, m_iScreen, iX, iY, iColor

And, when I was finished with everything, I went back to our normal rendering method of Software screen, Hardware screen: _DisplayOrder _Software , _Hardware

And, I made certain to free up that tempScreen that I was using as a fake backdrop of the original software screen: _FreeImage tempScreen

And that's what's going on here! ;)

The reason why this is so much faster than what you had previously??

1) You were drawing BOTH software and hardware screens, and software screens are MUCH slower than hardware.
2) I disabled the software screens completely, *only* using the GPU and hardware images.

Hardware (GPU) processing is multiple times faster than Software (CPU) processing. By swapping everything that I was doing over from software images to pure hardware, and by turning off all software rendering, things run much, much faster for us -- as you can see for yourself quite easily. ;)

madscijr · « **Reply #12 on:** February 23, 2022, 11:57:22 am »

Quote from: SMcNeill on February 23, 2022, 11:18:18 am

Certainly!
...
Hardware (GPU) processing is multiple times faster than Software (CPU) processing. By swapping everything that I was doing over from software images to pure hardware, and by turning off all software rendering, things run much, much faster for - as you can see for yourself quite easily. ;)

That all makes sense, thanks for explaining it with that "dummies" version!

I do have one more possibly dumb question - since hardware imaging is so much faster, why doesn't QB64 just use that automatically by default for the visible display? Why is software rendering even used at all?

Thanks again!

SMcNeill · « **Reply #13 on:** February 23, 2022, 12:19:23 pm »

Quote from: madscijr on February 23, 2022, 11:57:22 am

That all makes sense, thanks for explaining it with that "dummies" version!

I do have one more possibly dumb question - since hardware imaging is so much faster, why doesn't QB64 just use that automatically by default for the visible display? Why is software rendering even used at all?

Thanks again!

The main reason we don't use hardware images as default is as you noticed before: We can't set them as a _SOURCE or _DEST. Circle, Line, PSET, PRINT, and all our other output commands don't work with hardware images.

Think of DATA statements. WHY is DATA included in a program, when we could use a text file and OPEN FOR INPUT (or OUTPUT/APPEND) when needed? DATA is read-only, with no way to write to or change. Hardware images tend to follow this same style -- we can't change them, add to them, draw or print on them.

If you want to PRINT to a program, by far the simplest way is to just use PRINT and a Software screen. To do the same with hardware images, you'd basically need to convert every letter into an image, _PUTIMAGE those images of the letters to the screen, and get them in the right place and order manually.

Now, don't get me wrong -- it *can* be done to render your own letters and such to the screen as hardware images. In fact, I've got a few programs floating around here somewhere that does it (if you search for "SUB PrintOut", I think it'd find one of the earliest ones I did for the forums here). The only thing is you can't do it as easily as you can just type PRINT text$!

One note here -- if you do go the route of drawing images of letters and putting them onto the screen, and you make them hardware images, you can also end up rendering those multiple times faster than PRINT normally works with the software screen. They're a lot more work, but if speed is an absolute concern for your program, then it might be worth drawing your own hardware letters and putting them to the screen. ;)

TLDR: Basically at the end of the day, we use software images by default as hardware images tend to be write only and not something which we can add to or edit once they're created. ;)

madscijr · « **Reply #14 on:** February 23, 2022, 12:35:19 pm »

Quote from: SMcNeill on February 23, 2022, 12:19:23 pm

...
TLDR: Basically at the end of the day, we use software images by default as hardware images tend to be write only and not something which we can add to or edit once they're created. ;)

Makes sense - thanks yet again!

News:

Author Topic: fastest way to draw a 2-color 8x8 tile (with variable colors)? (Read 10673 times)