Dim Nsew_value As Single
Dim Nsew As String * 4

Call Lcd_text( "Windbearing:" , 5 , 272 , 2 , Crimson , Black , 1)
Nsew_value = Val(info(8))
Select Case Nsew_value
      Case 0 To 11.25 : Nsew = "N"
      Case 11.26 To 33.76 : Nsew = "NNE"
      Case 33.77 To 56.27 : Nsew = "NE"
      Case 56.28 To 78.78 : Nsew = "ENE"
      Case 78.79 To 101.29 : Nsew = "E"
      Case 101.3 To 123.8 : Nsew = "ESE"
      Case 123.9 To 146.4 : Nsew = "SE"
      Case 146.5 To 169 : Nsew = "SSE"
      Case 169.1 To 191.6 : Nsew = "S"
      Case 191.7 To 214.2 : Nsew = "SSW"
      Case 214.3 To 236.8 : Nsew = "SW"
      Case 236.9 To 259.4 : Nsew = "WSW"
      Case 259.5 To 282 : Nsew = "W"
      Case 282.1 To 304.6 : Nsew = "WNW"
      Case 304.7 To 327.2 : Nsew = "NW"
      Case 327.3 To 349.8 : Nsew = "NNW"
      Case 349.9 To 360 : Nsew = "N"
End Select

Tempstring = Nsew
Windbearing = Space(4)
Templen = 5 - Len(tempstring)
Mid(windbearing , Templen) = Tempstring
Call Lcd_text(windbearing , 200 , 256 , 1 , Yellow , Black , 1)
 

'*******************************************************************************
' Lcd show BGC File  X Start  Y Start
' Important that you first RESTORE the image before calling this sub
'*******************************************************************************
Sub Lcd_show_bgc_spec(byval Xoffset As Word , Byval Yoffset As Word)
   Local Ysize As Byte , Xsize As Byte
   Local Imagesize As Word
   Local L As Word , Pixel As Byte ,
   Local Pixelword As Word , Prevpixel As Word , Repeat As Byte
   Local X1size As Word , Y1size As Word , Yss As Word

   Read Ysize                                               'Read the first 4 bytes from the BGC, this contains info about the image
   Read Xsize
   Read Imagesize                                           'Byte 3&4 contains the image size
   X1size = Xsize + Xoffset
   Y1size = Ysize + Yoffset
   Decr X1size

   Call Lcd_set_window(xoffset , Yoffset , X1size , Y1size)
   Rs_disp = 1
   Do
      Read Pixel                                            'Read the value for the pixel
      If Pixel = &HAA Then                                  'BGC file is rle coded &HAA represents this, the byte after &HAA is the number of times that the byte before &HAA wil be repeated
         Read Repeat                                        'Byte after &HAA contains the number of times to repeat
         Repeat = Repeat - 1
         For L = 1 To Repeat                                'Loop the repeat
           ' Data_disp = Rgb16_high
           ' Data_disp_low = Rgb16_low
            !cBI Port_wr, Wrpin                             'Port_wr, Wrpin                                'WR Pin
            !SBI Port_wr, Wrpin                             'Port_wr, Wrpin
            Decr Imagesize                                  'Decrease the bytes still to be processed
         Next L                                             'Next repeat loop
      Else
         Rgb16 = 0
         If Pixel = &H00 Then
            Rgb16_low = Low(background_color)
            Rgb16_high = High(background_color)
         Else
            If Pixel.0 = 1 Then Rgb16_low = Rgb16_low Or 10    'Blue
            If Pixel.1 = 1 Then Rgb16_low = Rgb16_low Or 21
            If Pixel.2 = 1 Then Rgb16 = Rgb16 Or 288           'Green
            If Pixel.3 = 1 Then Rgb16 = Rgb16 Or 576
            If Pixel.4 = 1 Then Rgb16 = Rgb16 Or 1152
            If Pixel.5 = 1 Then Rgb16_high = Rgb16_high Or 32  'Red
            If Pixel.6 = 1 Then Rgb16_high = Rgb16_high Or 72
            If Pixel.7 = 1 Then Rgb16_high = Rgb16_high Or 144
         End If
         Data_disp = Rgb16_high
         Data_disp_low = Rgb16_low
         !cBI Port_wr, Wrpin                                'Port_wr, Wrpin                                'WR Pin
         !SBI Port_wr, Wrpin                                'Port_wr, Wrpin
         Decr Imagesize
      End If
   Loop Until Imagesize = 0                                 'Do until all bytes are processed
End Sub