f=OpenToWrite("Media\textfile.txt")
WriteLine f,"Hello, this is the first line"
WriteLine f,var$
WriteLine f,1+2+3+4+5+6
WriteLine f,line1$+" "+line2$
CloseFile f
'READ FILE
f=OpenToRead("Media\textfile.txt")
For i=1 To 4
Print ReadLine(f)
Next i
CloseFile f