/jonesforth/test_number.f
<< Back( -*- text -*- )
: TEST
123 . CR
[ HEX -7F ] LITERAL DECIMAL . CR
[ HEX 7FF77FF7 ] LITERAL HEX . CR
[ HEX -7FF77FF7 ] LITERAL 2 BASE ! . CR
[ 2 BASE ! 1111111111101110111111111110111 ] LITERAL HEX . CR
;
DECIMAL ( restore immediate-mode base )