How to track changes in code

Miscellaneous Forums/General Discussion/How to track changes in code

CP510
 #1
How about we make one?

Im gonna type and think here.
Graphics 500,300,16,2
AppTitle "Comparing Docs"

file1=ReadFile("file1.bb")
out1=WriteFile("temp1.dat")
Repeat
   in$=Trim(ReadLine(file1))
   If in$>""
      WriteLine(out1,in$)
   EndIf
Until Eof(file1)
CloseFile(file1)
CloseFile(out1)

file2=ReadFile("file2.bb")
out2=WriteFile("temp2.dat")
Repeat
   in$=Trim(ReadLine(file2))
   If in$>""
      WriteLine(out2,in$)
   EndIf
Until Eof(file2)
CloseFile(file2)
CloseFile(out2)

comp1=ReadFile("temp1.dat")
comp2=ReadFile("temp2.dat")
Repeat
   in1$=ReadLine(comp1)
   in2$=ReadLine(comp2)
   If in1$<>in2$
      Print in2$
   Else If in1$="" Or in2=""
      Print "Pre-terminated file or empty line."
   End If
Until Eof(comp1) Or Eof(comp2)
CloseFile(comp1)
CloseFile(comp2)
Print "Done"
WaitKey()
End