subroutine CompareFloats(float Float1, float:Float2, boolean:Equal) is

string Str1

string Str2

    copy Float1 to Str1

    copy Float2 to Str2

    copy (Str1 = Str2) to Equal