dim a(100),b(100),c(100) as integer open "1long.txt" for input as #1 open "2long.txt" for input as #2 input #1,a(100) input #2,b(100) c(100)=a(100)+b(100) open "result.txt" for output as #3 print #3,c(100) close #1,#2,#3 end