>>388
const file1="hoge"
const file2="piyo"
dim ff1 as integer
dim ff2 as integer
dim ls as string
ff1=freefile(): open file1 for input access read lock read write as ff1
ff2=freefile(): open file2 for output access write lock read write as ff2
do until eof(ff1)
  line input #ff1, ls
  print #ff2, ls;
loop

こんなの？