From 7ceff6144c77f4dbf96cb4c726d17de0ed7b81ef Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Fri, 15 May 2020 21:18:32 -0400
Subject: [PATCH] sms: implement pad button B ( next class )

---
 blk/634 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/blk/634 b/blk/634
index 4054ca3..a399ba9 100644
--- 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 !
 ;