DIM Game$(6)

setdirect$ = get dir $()
SET DIR setdirect$
GOSUB Game

Game:
DATA "Modify at your own risk"
DATA "Check#"
DATA "3"
DATA "Save1.ini"
DATA "Save2.ini"
DATA "Save3.ini"
FOR a = 1 to 6
READ Game$(a)
OPEN TO WRITE a,"Game.ini"
WRITE STRING a,Game$(a)
NEXT a

:::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::

The resultant file has only the first line of text and says i cannot open the file for writing.
Any ideas?