10CLOSE#0
   20ON ERROR GOTO140
   30J=0
   40I1=OPENIN(":1.newECFG")
   50I2=OPENIN(":1.Etweak")
   60REPEAT
   70    C1=BGET#I1
   80    C2=BGET#I2
   90J=J+1
  100PRINT~J;": ";~C1;" ";~C2   
  110UNTIL C1<>C2
  120PRINT"Differ at ";J
  130END
  140PRINT"Same"