Sub Lcd_text(Byval S As String , Byval Xoffset As Word , Byval Yoffset As Word , Byval Forecolor As Word , Byval Backcolor As Word)

Sub Lcd_text(byref S As String , Byval Xoffset As Word , Byval Yoffset As Word , Byval Forecolor As Word , Byval Backcolor As Word)

Lcd_text "Hello World" , 0 , 0 , Color_white , Color_black

Dim Mystring As String * 12
Mystring = "Hello World"
Lcd_text Mystring , 0 , 0 , Color_white , Color_black
 

Sub Lcd_text(byval S As String , Byval Xoffset As Word , Byval Yoffset As Word , Byval Fontset As Byte , Byval Forecolor As Word , Byval Backcolor As Word)
   Local A As Word , Pixels As Byte , Count As Byte , Carcount As Byte , Temp As Word
   Local Row As Byte , Block As Byte , Byteseach As Byte , Blocksize As Byte , Dummy As Byte
   Local Colums As Byte , Columcount As Byte , Rowcount As Byte , Stringsize As Byte
   Local Pixelcount As Byte , Offset As Word
   'Local Pointer As Word
   Local X As Word , Y As Word
   Local Tempstring As String * 1
    Local Xpos As Word , Ypos As Word , Pixel As Word

   Stringsize = Len(s) - 1                                                      'Size of the text string -1 because we must start with 0


   Select Case Fontset
      Case 1 :
         Block = Lookup(0 , Color8x8)                       'Add or remove here fontset's that you need or not,
         Byteseach = Lookup(1 , Color8x8)
         Blocksize = Lookup(2 , Color8x8)
         Dummy = Lookup(3 , Color8x8)
      Case 2 :
      Block = Lookup(0 , Color16x16)
      Byteseach = Lookup(1 , Color16x16)
      Blocksize = Lookup(2 , Color16x16)
      Dummy = Lookup(3 , Color16x16)

   End Select

    Colums = Blocksize / Block                              'Calculate the numbers of colums
   Row = Block * 8                                          'Row is always 8 pixels high = 1 byte, so working with row in steps of 8.
   Row = Row - 1                                            'Want to start with row=0 instead of 1
   Colums = Colums - 1                                      'Same for the colums
   For Carcount = 0 To Stringsize                           'Loop for the numbers of caracters that must be displayed
      Temp = Carcount + 1                                   'Cut the text string in seperate caracters
      Tempstring = Mid(s , Temp , 1)
      Offset = Asc(tempstring) - 32                         'Font files start with caracter 32
      Offset = Offset * Blocksize
      Offset = Offset + 4
      Temp = Carcount * Byteseach
      Temp = Temp + Xoffset
      For Rowcount = 0 To Row Step 8                        'Loop for numbers of rows
         A = Rowcount + Yoffset
         Xpos = Temp
         For Columcount = 0 To Colums                       'Loop for numbers of Colums
            Select Case Fontset
               Case 1 : Pixels = Lookup(offset , Color8x8)
               Case 2 : Pixels = Lookup(offset , Color16x16)

            End Select
            Ypos = A
            For Pixelcount = 0 To 7                         'Loop for 8 pixels to be set or not
               Pixel = Pixels.0                             'Set the pixel (or not)
               If Pixel = 1 Then
                  Pixel = Forecolor
               Else
                  Pixel = Backcolor
               End If

                  Call Lcd_set_pixel(xpos , Ypos , Pixel)

               Shift Pixels , Right                         'Shift the byte 1 bit to the right so the next pixel comes availible
               Incr Ypos                                    'Each pixel on his own spot
            Next Pixelcount
            Incr Offset
            Incr Xpos                                       'Do some calculation to get the caracter on the correct Xposition
         Next Columcount
      Next Rowcount
   Next Carcount
End Sub
 

Const Lcd_enable_spi = True
Const Lcd_use_soft_spi = True
Const Lcd_ctrl_port = Portk
Const Lcd_reset_pin = 0
Const Lcd_pin_dc = 1
Const Lcd_pin_cs = 2
Const Lcd_pin_sdo = 3
Const Lcd_pin_clk = 4
 

' Select the port of the display control pins (XMega: PortC-PortF, ATMega: for HW SPI)
#if Not Varexist( "Lcd_ctrl_port")
   #if _xmega = True
      Const Lcd_ctrl_port = Portc
   #else
-->  Const Lcd_ctrl_port = Portb
   #endif
#endif
 

' Port where the display reset is connected to
#if Not Varexist( "Lcd_reset_port")
-->   Const Lcd_reset_port = Lcd_ctrl_port
#endif

' Pin of the display reset signal
#if Not Varexist( "Lcd_reset_pin")
-->   Const Lcd_reset_pin = 0
#endif

#if Lcd_enable_spi = True
   ' SPI mode pin assignments
   #if Not Varexist( "Lcd_pin_dc")
      #if _xmega = True
         Const Lcd_pin_dc = 1
      #else
         Const Lcd_pin_dc = 4
      #endif
   #endif
   ' (HW: fixed, SW: select any)
   #if Not Varexist( "Lcd_pin_cs")
      #if _xmega = True
         Const Lcd_pin_cs = 4
      #else
-->         Const Lcd_pin_cs = 0
      #endif
   #endif
   #if Not Varexist( "Lcd_pin_sdo")
      #if _xmega = True
         Const Lcd_pin_sdo = 5
      #else
         Const Lcd_pin_sdo = 2
      #endif
   #endif
   #if Not Varexist( "Lcd_pin_clk")
      #if _xmega = True
         Const Lcd_pin_clk = 7
      #else
         Const Lcd_pin_clk = 1
      #endif
   #endif
'   Const Lcd_pin_sdi = 6
#else