0001 ! COMPARE two EPROM files --Michael Markov
0002 ! for files created with READEP by Sam Chau
0003 ! prints differences in the files.
0004 ! REQUIRED LEX FILES: STRBOOL, HEXLEX7, EDLEX, STRINGLX
0009 INPUT "FILE1,FILE2 ? ","V15516,V15515";F$,G$
0010 ASSIGN #1 TO F$
0020 ASSIGN #2 TO G$
0030 RESTORE #1 @ RESTORE #2
0040 DIM A$[2048],B$[2048]
0041 PRINT "Differences between "&F$&"(col. A) & "&G$&" (col. B)"
0042 PRINT "ADDR. HEX     ASCII"
0043 PRINT "      A  B    A B"
0045 I=0
0050 READ #1;A$ @ READ #2;B$
0060 I=I+1 @ IF A$=B$ THEN 50 ELSE 61
0061 J=0
0070 K=SPAN(EXOR$(A$[J+1],B$[J+1]),CHR$(0)) @ J=J+K
0080 M=(I-1)*2048+J-1
0085 IF NOT K THEN 50
0090 PRINT DTH$(M);" ";HEX$(A$[J,J]);" ";HEX$(B$[J,J]);"   ";ASC$(A$[J,J]);" ";ASC$(B$[J,J])
0111 GOTO 70