Function Konvert_Image_to_MVTI(ImagePfad$)
	Local ImageEndung$ = Right(ImagePfad,4)
	Local Image = LoadImage(ImagePfad)
	Local SaveMVTI = WriteFile(RequestFile("MVTI-Datei Speichern","",1,"")+".mvti")
	DrawImage(Image,0,0)
	Local IW = ImageWidth(Image)
	Local IH = ImageHeight(Image)
	WriteInt SaveMVTI,IW
	WriteInt SaveMVTI,IH
	For x = 0 To IW
		For y = 0 To IH
			RGBWert = ReadPixel (x,y)
			WriteInt SaveMVTI,RGBWert
		Next
	Next
	FreeImage Image
	CloseFile SaveMVTI
	Cls
End Function

Type MVTIImage
	Field Bank
	Field BankID
End Type

Function MVTI_LoadImage(MVTIImage$)
	Local BankPos%
	Local ImageSize% = FileSize(MVTIImage)
	Local Image% = ReadFile(MVTIImage)
	mi.MVTIImage = New MVTIImage
	mi\Bank = CreateBank(ImageSize)
	mi\BankID = Handle(mi.MVTIImage)
	PokeInt (mi\Bank,BankPos,ReadInt(Image)) : BankPos=BankPos+4
	PokeInt (mi\Bank,BankPos,ReadInt(Image)) : BankPos=BankPos+4
	Repeat
		PokeInt (mi\Bank,BankPos,ReadInt(Image))
		BankPos = BankPos+4
	Until Eof(Image) = 1
	CloseFile(Image)
	Return mi\BankID
End Function

Function MVTI_DrawImage(MVTIID,xx%=0,yy%=0)
	Local BankPos
	mi.MVTIImage = Object.MVTIImage(MVTIID)
	Local IW = PeekInt(mi\Bank,BankPos) : BankPos=BankPos+4
	Local IH = PeekInt(mi\Bank,BankPos) : BankPos=BankPos+4
	LockBuffer BackBuffer()
	For x = 0 To IW
		For y = 0 To IH
			WritePixel (x+xx,y+yy,PeekInt(mi\Bank,BankPos))
			BankPos=BankPos+4
		Next
	Next
	UnlockBuffer BackBuffer()
End Function

Function MVTI_FreeImage(MVTIID)
	mi.MVTIImage = Object.MVTIImage(MVTIID)
	FreeBank mi\Bank
	Delete mi.MVTIImage
End Function

Function MVTI_ImageWidth(MVTIID)
	mi.MVTIImage = Object.MVTIImage(MVTIID)
	Local Width = PeekInt(mi\Bank,0)
	Return Width
End Function

Function MVTI_ImageHeight(MVTIID)
	mi.MVTIImage = Object.MVTIImage(MVTIID)
	Local Height = PeekInt(mi\Bank,4)
	Return Height
End Function