Function ConvertImage(bmpfile$,mlpfile$)
image = LoadImage(bmpfile$)
temp_image = CreateImage(ImageWidth(image),ImageHeight(image))
SetBuffer ImageBuffer(temp_image)
DrawBlock image,0,0
file = WriteFile(mlpfile$)
WriteShort file,ImageWidth(image)
WriteShort file,ImageHeight(image)
LockBuffer ImageBuffer(temp_image)
For y = 1 To ImageHeight(image)
   For x = 1 To ImageWidth(image)      
      rgb=ReadPixelFast(x,y)
      a=(rgb And $FF000000)/$1000000
      r=(rgb And $FF0000)/$10000
      g=(rgb And $FF00)/$100
      b=rgb And $FF
      WriteByte file,a
      WriteByte file,r
      WriteByte file,g
      WriteByte file,b
   Next
Next
UnlockBuffer ImageBuffer(temp_image)
CloseFile file
End Function

Function DrawMLImage(imagefile$,x,y)
   file = ReadFile(imagefile$)
      width = ReadShort(file)
      height = ReadShort(file)
      LockBuffer BackBuffer()
      For y2 = -1 To height-2
         For x2 = -1 To width-2
            a = ReadByte(file)
            r = ReadByte(file)
            g = ReadByte(file)
            b = ReadByte(file)
            rgb=a*$1000000 + r*$10000 + g*$100 + b
            WritePixelFast x2+x,y2+y,rgb
         Next
      Next
      UnlockBuffer BackBuffer()
      Flip
   CloseFile file
End Function