Para crear un archivo y escribir en el usa:
MiArchivo="C:MITEXTO.TXT"
open MiArchivo for Output as #1
for i=1 to 10
print #1,i
next i
close(1)
Para leer el archivo usa:
MiArchivo="C:MITEXTO.TXT"
open MiArchivo for Input as #1
for i=1 to 10
input #1,Linea
print Linea
next i
close(1)