collapseos/blk/570
2020-05-09 20:54:47 -04:00

7 lines
194 B
Plaintext

: (key)
_dtbl 0 ( dummy ) BEGIN ( tbl 0 )
DROP DUP ( tbl ) _gti + C@
DUP 0x80 = IF ( alpha ) 2DROP _atbl 0 THEN
DUP UNTIL ( tbl c -- loop if null ) SWAP DROP
_wait ;