Sorry your browser is not supported!

a$=""

do
Rem make the file
make file "newfile.txt"

wait 1000
Rem make sure the file exsists
if file exist ("newfile.txt")=1

	open to write 1,"newfile.txt"
	
else

	print "ERROR: File does not exist 'newfile.txt'"
	
endif
Rem make sure the file is open
if file open (1)=1

	write string 1,"Hello World!"
	
else

	print "ERROR: file failed to open to write."
	
endif
Rem self explanitory ;D
close file 1

wait 1000

open to read 1,"newfile.txt"
Rem make sure the file is open
if file open(1)=1

	read string 1,a$
	print a$
	
else

	print "ERROR: file failed to open to read."
	
endif
Rem close file
close file 1
Rem delete file, if I made it so the program writes differnt text based on a variable
Rem I would need to re-created the file to get it to work
delete file "newfile.txt"
loop
end

OpenToWrite(1, "MyFile.dat")
...

function OpenToWrite(FileId as integer, Filename as string)
   if file exist(Filename) then delete file Filename
   open to write FileId, Filename
endfunction