A new project I've been busy with :-)

[Anonymous]

Thanks for the link, but I have already figured it out, like I said. Here's code proof:

Code:

Sub curses_InitColorTable()
    
    Dim As Integer y, x, c
  
    For y = 0 To 15
      
      For x = 0 To 7
      
          c += 1
          init_pair( c, x, y )
  
        Next
        
      Next
    
  End Sub

  Private Sub con_Blitter( conBlit As con_Core Ptr )
  
    
    Dim As Integer y, x
    
    With *( conBlit )
  
      Dim As chType charBlit
      
      move( 0, 0 )
  
      For y = 0 To .con_y - 1
        '' rows
          
        For x = 0 To .con_x - 1
          '' columns
          
  
          With .con_Data[y][x]
  
            charBlit = IIf( _
                            .char = 0, _
                            32    Or color_pair( ( .bcol Shl 3 ) + 1 ), _
                            .char Or color_pair( ( .bcol Shl 3 ) + 1 + ( .fcol And &b0111 ) ) Or IIf( .fcol And &b1000, a_bold, 0 ) _
                          )
            
            addch( charBlit )
            
                      
          End With
          
      
        Next
        
      Next
  
    End With
    
    refresh '' curses ...
  
  End Sub

One thing MS did right was making that formula for hitting all colors so easy