[BlackDragon]

Нет, только базовые функции.
Правда, результат все равно не пригодился )

Dim img(100)

m=-1

For n=0 To 6
	For i=0 To 9
		m=m+1
		img(m)=LoadImage ("00"+n+i+"_resize.bmp")
		If n>5 Exit
	Next 
Next

img_buff_H=ImageHeight(img(m))
img_buff_W=ImageWidth (img(m))

New_img=CreateImage(img_buff_W*(m-1),img_buff_H)

im_x_pos=-img_buff_W

	n_img_buff=ImageBuffer(New_img)
	SetBuffer n_img_buff
	
For n=1 To m-1
	im_x_pos=im_x_pos+img_buff_W
	;SetBuffer ImageBuffer(New_img,n)
	DrawImage img(n),im_x_pos,0
	Print n
Next	

SaveBuffer (n_img_buff,"new_img.bmp")

RuntimeError "img X= "+img_buff_W+" img Y= "+img_buff_H+" n= "+n+" N_X= "+ImageWidth (New_img)+" N_Y= "+ImageHeight(New_img)
End