XProfan

 {$iq}//xpse
cls
imprimer "is exact juste?: "+si(fle_compareexact ("org.txt","second.txt"),"Jo","Nö")
waitkey
end

proc fle_compareexact

    parameters fle1$,fle2$
    declare ex%,s$,ss$
    assign #1,fle1$
    assign #2,fle2$
    reset #1
    reset #2
    ex%=0

    whilenot ex%

        input #1,s$
        input #2,ss$

        si ($ Trim($ S)<>$ Trim(ss$))

            ex%:=2

        elseif ( eof(#1) & eof(#2) )

            ex%:=1

        elseif eof(#1)

            ex%:=2

        elseif eof(#2)

            ex%:=2

        endif

        cas ( eof(#1) & eof(#2) ) : casenot ex% : ex%:=1

    Wend

    close #1
    close #2
    return si(equ(ex%,1),1,0)

endproc