saving image

 fn% = Input$("save as: ")

You seem to be taking text from the user and turning it into an integer. That can't be right!