10
20
30 :
40 ON ERROR REPORT:PROCCloseAll:END
50 PRINT
60 PRINT"Checking..."
70 *Spool _
80 PRINT"minirom mini/rom";
90 in1%=OPENIN"minirom":IF in1%=0:PRINT "Can't open 'minirom'":END
100 in2%=OPENIN"mini/rom":IF in2%=0:PRINT "Can't open 'mini/rom'":PROCCloseAll:END
110 PRINT
120 REPEAT
130 b1%=BGET#in1%:b2%=BGET#in2%
140 IF b1%<>b2%:PRINT FNh0(PTR#in1%-1,4);" ";FNh0(b1%,2);" ";FNh0(b2%,2)
150 UNTIL EOF#in1%
160 PROCCloseAll
170 END
180 :
190 DEF PROCCloseAll
200 IF in1%:A%=in1%:in1%=0:CLOSE#A%
210 IF in2%:A%=in2%:in2%=0:CLOSE#A%
220 *Spool
230 ENDPROC
240 :
250 DEF FNh0(A%,N%)=RIGHT$("0000000"+STR$~A%,N%)