Trancparency in PUT?

[rdc]

Here is how I am doing it in a little program I was messing around with (.13b). It seems to work OK:

Code:

'define the array to hold the graphic (48 x 48, 24 bit)
dim shared sred((48 * 48 * 2) + 4) as ushort

'load the graphic into the array
bload "graphics\red.bmp", VARPTR(sred(0))

'put the graphic to the screen
put (x,y), sred, TRANS

The transparent color is pink (255, 0, 255).