[BINCOM.CNV] [Harold V. McIntosh, 22 March 1984] [[compare two binary files]] [bind <1>] (()()(1)( (<1>,(, (%T,Second file ) )(b,(&u,(%R,TTY:)))); )) a [bind <2>] (()()(2)( (<2>,(%Or,<1>)(%Or,<2>)(c,(1)(2))); )) b [read two] (()()(3)( ((^ZZZZ),); ((^ZZ),(, (%T,<1> shorter) )); (<[2]>(^ZZ),(, (%T,<2> shorter) )); (<3><3><>,(, (%T,match) )(, (%R,CTR:BYTE) )(1)(2)): (<3>,<< >>(, (%T,(&Dh,(%R,CTR:BYTE)): (&h,<3>) (&.,<3>)) )<< >>(, (%R,CTR:MISM) )<< >>(1)(2)): )) c [main] (()( ((%R,<1>,<[1]>)) 1 ((%R,<2>,<[1]>)) 2 )(9)( (<9>,<< >>(%Ow,(&u,<9>))<< >>(%Or,CTR:BYTE)<< >>(%Or,CTR:MISM)<< >>(, (%T,First file) )<< >>(a,(&u,(%R,TTY:)))<< >>(, (%T,(%R,CTR:BYTE) bytes read) )<< >>(, (%T,(%R,CTR:MISM) mismatches found) )<< >>(%E)); )) [end]