function ChooseFile() local spr ret$=ChooseRawFile("*.jpg;*.png") if ret$="" spr = CreateSprite(0) else spr = LoadSprite(ret$) endif SetSpriteDepth(spr,20) SetSpriteSize(spr,-1.0,GetVirtualHeight()) SetSpritePosition(spr,0,0) endfunction spr