'定义略,大致意思:
same=true
open "file1" for input as #1
open "fiel2" for input as #2
while (not eof(1)) and (not eof(2))
input #1,a$
input #2,b$
if a$<>b$ then same=false
wend
if same=false then
?"not same"
else
if eof(1) and eof(2) then ?"same"
if eof(1) and not eof(2) then ?"1 short"
if eof(2) and not eof(1) then ?"2 short"
close #1
close #2