function convert16to4 ( srcArray () as int , destArray () as int ) 
 
' srcArray ( 0 to Zeilen, 0 to Spalten)  >> Bitmap  Datei mit zb. 
' 1024x768 x  12Bit /Pixel Graustufen als Integer   (0000 xxxx xxxx xxxx)
' DestArray ( 0 to Zeilen, 0 to Spalten)  >> Bitmap  Datei mit (wie src ) 
' x  4Bit /Pixel Farbindex aus BMP Farbtable.
 
for zeile = 0 to Zeilen 
   for spalte = 0 to spalten
        'kommt noch klein ein bisserl was zu is aber schon fast alles 
        dest Array(zeile,spalte) =  srcArray(zeile,spalte) / 16    
 
   next spalte
next zeile 
 
convert16to4 = true
 
end function