You should use filepointer instead of the filename:

Private CodeLine
CodeLine = ""
lnfp=Fcreate("Begin.prg",0)
CodeLine = "Close tables"
Fwrite(lnfp,CodeLine)
....
Fclose(lnfp)

>I used to do this in my sleep a century or two ago. Now that I am an old guy . . . . . ??
>
>
>Private CodeLine
>CodeLine = ""
>Fcreate("Begin.prg",0)
>Fopen("Begin.prg",2)
>CodeLine = "Close tables"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Safety Off"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Talk Off"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Deleted On"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Exclusive On"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Century On"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Sysmenu Automatic"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Confirm On"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Set Cpdialog Off"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Do DefineVariables"
>Fwrite("Begin.prg",CodeLine)
>CodeLine = "Do InitializeVariables"
>Fwrite("Begin.prg",CodeLine)
>Fclose("Begin.prg")