Mirror of CollapseOS
選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。

9 行
251B

  1. : _chk ( c --, check _sel range )
  2. _sel C@ DUP 0x7f > IF 0x20 _sel C! THEN
  3. 0x20 < IF 0x7f _sel C! THEN ;
  4. CREATE _ '0' C, ':' C, 'A' C, '[' C, 'a' C, 0xff C,
  5. : _nxtcls
  6. _sel @ _ BEGIN ( c a ) C@+ 2 PICK > UNTIL ( c a )
  7. 1- C@ NIP _sel !
  8. ;