Select Code to Download

#!/usr/bin/perl -w

...
    #Difference $btoc = 0.5 so (($btoc < 1) && ($btoc > -1)) is true.
    #Difference $atoc = 3 so (($atoc > 1) || ($atoc < -1)) is true.
}