Dim col, r, g, b, a As Int, Jpg As Jpeg, in As InputStream
in=File.OpenInput(dir,filename)
Jpg.LoadJpegArea(in,0,0,240,180)
col=Jpg.GetBmpPixel(1,1)
r = Bit.And(Bit.ShiftRight(col,1), 0xff)
g = Bit.And(Bit.ShiftRight(col,8), 0xff)
b = Bit.And(Bit.ShiftRight(col,16), 0xff)
a = Bit.And(Bit.ShiftRight(col,24), 0xff)