collapseos/blk/570

7 lines
194 B
Plaintext
Raw Normal View History

2020-05-09 20:54:47 -04:00
: (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 ;