Function SaveImageAsJPEG(filename$, image, quality = 75)
   Local i, x, y, width, height
   Local buffer, bank
   Local c
   Local result
   
   width = ImageWidth(image)
   height = ImageHeight(image)
   buffer = ImageBuffer(image)
   
   bank = CreateBank(width * height * 3 + 1)
   
   LockBuffer buffer
   For y = 0 To height - 1
      For x = 0 To width - 1
         c = ReadPixelFast(x, y, buffer)
         c = ((c And $FF) Shl 16) Or (c And $FF00) Or ((c And $FF0000) Shr 16)

         PokeInt(bank, i, c)
         
         i = i + 3
      Next
   Next
   UnlockBuffer buffer
   
   result = SaveJPEGFile(filename$, bank, quality, width, height)
   
   FreeBank(bank)
   
   Return result
End Function