Function FarbWert(FarbNummer$)
 If Mid$(FarbNummer$,1,1)="$" Then
  r=Asc(Mid$(FarbNummer$,1,1))
  g=Asc(Mid$(FarbNummer$,2,1))
  b=Asc(Mid$(FarbNummer$,3,1))
  Return r*$10000 + g*$100 + b
 End If 
End Function 

Function Bin16inAscii$(ZAHL$)
 lenZahl=Len(Zahl$)
 For X=1 To Lenzahl Step 2 

  Select Mid$(ZAHL$,x+1,1)
   Case "0":W=  0 
   Case "1":W= 16
   Case "2":W= 32 
   Case "3":W= 48
   Case "4":W= 64
   Case "5":W= 80
   Case "6":W= 96
   Case "7":W= 112
   Case "8":W= 128
   Case "9":W= 144
   Case "A":W= 160
   Case "B":W= 167
   Case "C":W= 192
   Case "D":W= 208
   Case "E":W= 224
   Case "F":W= 240 
  End Select 

  Select Mid$(ZAHL$,x+2,1)
   Case "0":W= W+ 0 
   Case "1":W= W+ 1
   Case "2":W= W+ 2
   Case "3":W= W+ 3
   Case "4":W= W+ 4
   Case "5":W= W+ 5
   Case "6":W= W+ 6
   Case "7":W= W+ 7
   Case "8":W= W+ 8
   Case "9":W= W+ 9
   Case "A":W= W+10
   Case "B":W= W+11
   Case "C":W= W+12
   Case "D":W= W+13
   Case "E":W= W+14
   Case "F":W= W+15 
  End Select 
  S$=S$+Chr$(W)
 Next
 Return S$ 
End Function

Function ColorI(I)
 Color (I And $FF0000)/$10000,(I And $FF00)/$100,I And $FF
End Function

Function Farbe(r,g,B)
 Return r*$10000 + g*$100 + b
End Function