Sub Main Dim File$, Hnd% 'write contents to a new file File$ “C:\TEMPFILE.TMP” FCreate File$ Hnd% = FOpen(File$,1,0)'Write-only, not shared FPut Hnd%, “Hello World!” & vbCrLf FClose Hnd% 'test the file Hnd% = FOpen(File$,0,0)'Read-only, not shared FSeek Hnd%, 0 While Not FEof(Hnd%) PrintFLInput(Hnd%) Wend FClose Hnd% EndSub