[St_AnGer]

что то старое нашёл в первых моих занятиях блицем... Может это то что тебе нужно.

If KeyHit(57)
	For w = 1 To 999
		name$ = "Screenshot" + w + ".jpg"
		If FileType(name$) = 0
			If done = 0
				SaveBuffer(FrontBuffer(), name$)
				done = 1
			EndIf
		EndIf
	Next
	done = 0
EndIf