Help for this page

Select Code to Download

Select or download this

# -------------------------
sub DBFile_Compare_Distance
...
    else            { $val = 0; }
    $val;
}