CLEAR
X=-0.0E1
Y=-0.0E0

* EXPECTED EQUAL
? 0H+BINTOC(X,'F'),0H+BINTOC(Y,'F') AT 40
? 0H+BINTOC(X,'B'),0H+BINTOC(Y,'B') AT 40