[HolyDel]

эмм. расшивровка формата файла зависит от самого формата6
вот набросла?

Graphics 640,480,32,2



w=100
h=50
bnk=CreateBank(w*h*3+8)
PokeInt(bnk,0,w)
PokeInt(bnk,4,h)

For i=1 To w*h*3
	PokeByte(bnk,8+i,Rand(0,255))
Next


img=GetImageFromBank(bnk)

DrawImage img,10,10
WaitKey

Function RGB(r,g,b)
	Return r Shl 16 Or g Shl 8 Or b
End Function

Function GetImageFromBank(bnk)
	w=PeekInt(bnk,0)
	h=PeekInt(bnk,4)
	img=CreateImage(w,h)
	buff=ImageBuffer(img)
	For i=0 To w-1
		For j=0 To h-1
			WritePixel(i,j,RGB(PeekByte(bnk,(j*w+i)*3+9),PeekByte(bnk,(j*w+i)*3+10),PeekByte(bnk,(j*w+i)*3+11)),buff)
		Next
	Next
	Return img
End Function