mirror of https://github.com/hsoft/collapseos.git
7 lines
194 B
Plaintext
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 ;
|