And your code is flawed. Here's a better version:
ImageBlur("Sunset.jpg","Sunset2.bmp")
Do
Loop
Function ImageBlur(Image$,NewImageName$)
if image exist(1)=1 then delete image 1
if image exist(2)=1 then delete image 2
Load image Image$,1
Sprite 6,0,0,1 : Paste Sprite 6,0,0
Sprite 1,5,0,1
Set sprite alpha 1,100 : Paste Sprite 1,5,0
Sprite 2,10,0,1
Set sprite alpha 2,80 : Paste Sprite 2,10,0
Sprite 3,15,0,1
Set sprite alpha 3,60 : Paste Sprite 3,15,0
Sprite 4,20,0,1
Set sprite alpha 4,40 : Paste Sprite 4,20,0
Sprite 5,25,0,1
Set sprite alpha 5,20 : Paste Sprite 5,25,0
Get image 2,0,0,Screen Width(),Screen Height()
if file exist(NewImageName$)=1 then delete file NewImageName$
Save image NewImageName$,2
EndFunction