9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
22 lines
346 B
Plaintext
22 lines
346 B
Plaintext
|
|
#require "hbnf"
|
|
|
|
#include "fileio.ch"
|
|
|
|
PROCEDURE Main( cPath, cHide )
|
|
|
|
LOCAL cFile, nHandle
|
|
|
|
cFile := ft_TempFil( cPath, cHide == "Y" )
|
|
|
|
IF ! Empty( cFile )
|
|
? cFile
|
|
nHandle := FOpen( cFile, FO_WRITE )
|
|
FWrite( nHandle, "This is a test!" )
|
|
FClose( nHandle )
|
|
ELSE
|
|
? "An error occurred"
|
|
ENDIF
|
|
|
|
RETURN
|