15 lines
166 B
Plaintext
15 lines
166 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// Testing Harbour file io features
|
|
|
|
function Main()
|
|
|
|
local h := FCreate( "test.txt" )
|
|
|
|
FWrite( h, "This is a test" )
|
|
|
|
FClose( h )
|
|
|
|
return nil |