collapseos/blk/449
2020-05-02 20:32:20 -04:00

11 lines
174 B
Plaintext

( returns negative value on error )
: _ ( c -- n )
( '0' is ASCII 48 )
48 -
DUP 0< ( bad ) OVER 2 < ( good ) OR IF EXIT THEN
( bad )
255 -
;