lnHandle = fopen(...)
fwrite(lnHandle, 'Close Tables')

fclose(lnHandle)

>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")