mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-30 21:08:05 +11:00
6 lines
124 B
Plaintext
6 lines
124 B
Plaintext
|
: _chk ( c --, check _sel range )
|
||
|
|
_sel C@ DUP 0x7f > IF 0x20 _sel C! THEN
|
||
|
|
0x20 < IF 0x7f _sel C! THEN ;
|
||
|
|
: _nxtcls
|
||
|
|
;
|