96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
21 lines
345 B
Plaintext
21 lines
345 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
|