FUNCTION BestCol(RF%,GF%,BF%,ER%,EG%,EB%)
 SHARED R%(),G%(),B%()
 LOCAL p%,BER&,CER&,CEG&,CEB&,BC%,CE&
 BER&=2^20
 FOR p%=0 TO 255
  CER&=ABS(R%(p%)-RF%)*ER%
  CEG&=ABS(G%(p%)-GF%)*EG%
  CEB&=ABS(B%(p%)-BF%)*EB%
  CE&=CER&+CEG&+CEB&
  IF CE&<BER& THEN BER&=CE&:BC%=p%
 NEXT p%
 BestCol=BC%
END FUNCTION