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