collapseos/blk/634

9 lines
251 B
Plaintext
Raw Permalink Normal View History

2020-05-15 15:41:06 -04:00
: _chk ( c --, check _sel range )
_sel C@ DUP 0x7f > IF 0x20 _sel C! THEN
0x20 < IF 0x7f _sel C! THEN ;
CREATE _ '0' C, ':' C, 'A' C, '[' C, 'a' C, 0xff C,
2020-05-15 15:41:06 -04:00
: _nxtcls
_sel @ _ BEGIN ( c a ) C@+ 2 PICK > UNTIL ( c a )
2020-05-22 14:03:12 -04:00
1- C@ NIP _sel !
2020-05-15 15:41:06 -04:00
;