nres = ASfCreate("/text/unicode_text_to_create.txt",ASfoUnicode+ASfoTruncate)
IF nres = -1 THEN
Error(ErrorInfo())
RETURN
END
See example.