fcreate( ) 函数示例

if file('errors.txt')  && 文件存在吗?
	gnerrfile = fopen('errors.txt',12)  	&& 如果存在，用“读写”方式打开
else
	gnerrfile = fcreate('errors.txt')  && 如果不存在，创建文件
endif
if gnerrfile < 0	  && 检查打开文件时是否有错误
	wait 'cannot open or create output file' window nowait
else  && 如果没有错误，写文件
	=fwrite(gnerrfile , 'error information to be written here')
endif
=fclose(gnerrfile )	  && 关闭文件
modify file errors.txt nowait  && 在编辑窗口中打开文件