;enter your imagefilename here:
Image$=\"icon_mycomputer.bmp\"


img=LoadImage(Image)
file=WriteFile(SystemProperty(\"TEMPDIR\")+Image$+\".bb\")

;remove fileending
For i=1 To Len(Image$) Step 1
	If Mid(Image$,i,1)=\".\" Then Exit
	filename$=filename$+Mid(Image$,i,1)
Next

;begin data-field
WriteLine file,\".\"+filename$
WriteLine file,\"Data \"+ImageHeight(img)+\",\"+ImageWidth(img)

;create data-field
For y = 0 To ImageHeight(img)-1
	textline$=\"Data \"
	For x = 0 To ImageWidth(img)-1
		If x = ImageWidth(img)-1 komma$=\"\" Else komma$=\",\"
		textline$=textline$+Str(ReadPixel(x, y, ImageBuffer(img)))+komma$
	Next
	WriteLine file,textline$
Next

;write restore algorythmn
WriteLine file,\"\"
WriteLine file,\"Restore \"+filename
WriteLine file,\"Read imgHeight,imgWidth\"
WriteLine file,filename$+\"= CreateImage(imgWidth,imgHeight)\"
WriteLine file,\"For y = 0 To imgHeight-1\"
WriteLine file,\"	For x = 0 To imgWidth-1\"
WriteLine file,\"		Read RGB\"
WriteLine file,\"		WritePixel x, y, RGB, ImageBuffer( \"+filename$+\" )\"
WriteLine file,\"	Next\"
WriteLine file,\"Next\"

;clean up
CloseFile file
FreeImage img

;open file within notepad for copy-pasting
ExecFile \"notepad.exe \"+SystemProperty(\"TEMPDIR\")+Image$+\".bb\"
End