#undef Tab
	'+------------------------------------------------------------------------------------------+
	'|   Header: Bestimmen der �bergabeparameter                                                |
	'|           AnzeigeCheck:|Il1 sind Alt-0124, Gro�es i, kleines L, Eins ������ߎę֚�񱸩��|
  Const Author="fbColours.Bas v017f �2007 by ytwinky, MD"'                                    |
	'|           (Tastenkombination: keine)                                                     |
	'|                                                                                          |
	'|   Zweck : Schablone f�r neue Dateien                                                     |
	'+------------------------------------------------------------------------------------------+
Type ColourRec
  ColourName As String*20
  ColourValue As uInteger
End Type
Const Tab=!"\9", Lf=!"\10"
Dim ColourArray() As ColourRec, s As String, m As String, t As String
Dim As Integer fno=FreeFile, i=0, j, k
Open "fbColoursOri.Bi" For Input As #fno
  While Not Eof(fno)
    Line Input #fno, s
    If InStr(s, "=") Then
      ReDim Preserve ColourArray(i)
      j=InStr(lcase(s), "const")
      k=InStr(s, "=")
      m=lcase(Mid(s, j+5, k-j))
      j=Instr(m, " as ")
      If j Then m=Left(m, j-1)
      For j=1 To Len(m)
        If m[j]<33 Then Exit For
      Next
      ColourArray(i).ColourName=Trim(Left(m, j)) 'this is okay now
      j=Instr(m, "'")
      ColourArray(i).ColourValue=Val(Trim(Mid(s, k+1, j-1-k))) 'this is okay
      i+=1
    End If
  Wend
Close #fno
Print LBound(ColourArray), UBound(ColourArray) 'wow they're all read in..
'now sort them by colour-values

For k=0 To i-1
  For j=0 To i-1
    If ColourArray(k).ColourValue<ColourArray(j).ColourValue Then Swap ColourArray(k), ColourArray(j)
  Next
Next

For j=0 To i-1
  k=ColourArray(j).ColourValue
  s="  Const " &ColourArray(j).ColourName &"=&h" & Hex(k, 6)
  t+=s &" ' RGB(" &((k And &hFF0000) Shr 16) &", " &((k And &h00FF00) Shr 8) &", " &(k And &h0000FF) &")" &Lf
Next
Open "fbColoursNew.Bi" For Output As fno
  Write #fno, t
Close #fno
Print "Eniki..";
GetKey
End