Sub Main Dim hnd%, File$, x% File$ = “C:\TESTFILE.TMP” FCreate File$ Hnd% = FOpen(“C:\TESTFILE.TMP”, 1, 4) 'Write-only, shared For x% = 1 To 1000 FPut Hnd%, “Hello!” If x% Mod 100 = 0 Then FFlush Hnd%'write all pending i/o to disk EndIf Wend FClose Hnd% EndSub