!include sbbsdefs.inc
!INCLUDE FILE_IO.INC
!include userdefs.inc


int file log
str line1

:top
cls
print "\r\n Would you like to add some text to a file"

yes_no
IF_false
 GOTO END
END_IF


print "\r\n Enter your text:"
getstr line1 55 K_MSG|K_NOCRLF|K_LINE
compare line1 ""
  if_true
  goto end
  end_if


:write

# will write to sbbs\data\filename.txt

fopen file O_CREAT|O_RDWR|O_APPEND "%j\\filename.txt"
fprintf file "\r\n%s" line1

# VERY IMPORTANT TO CLOSE THE FILE THAT WE OPENED!
fclose file

:end