mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-28 10:48:05 +11:00
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 ;
|