Show Posts

QB64 Discussion / fastest way to draw a 2-color 8x8 tile (with variable colors)?

« 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

News:

Topics - madscijr

QB64 Discussion / programmatically choose file details Windows Explorer displays for a given path?

QB64 Discussion / converting a number to a string, formatted like with "print using"

QB64 Discussion / how to time something (ie do loop for n seconds)

QB64 Discussion / Nintendo Switch or Wii or 32k Atari 2600 support?

QB64 Discussion / fastest way to draw a 2-color 8x8 tile (with variable colors)?