sms: implement pad button B ( next class )

2020-05-15 21:18:32 -04:00 · 2020-05-15 21:18:32 -04:00 · 7ceff6144c
commit 7ceff6144c
parent b6c039589f
1 changed files with 3 additions and 0 deletions
--- a/blk/634
+++ b/blk/634
@ -1,5 +1,8 @@
 : _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,
 : _nxtcls
+    _sel @ _ BEGIN ( c a ) C@+ 2 PICK > UNTIL ( c a )
+    1- C@ SWAP DROP _sel !
 ;