$Header: /home/radek/cvs/forth-book/dictionary/qf/dict-old/string>Handle,v 1.1 2003-12-28 18:21:58 radek Exp $
string>Handle — jednořádkový popis
string2anyfield
string>Handle ( str u → handle. ) ;
Definováno v modulu xref linkend="QF.MODULE.ezUI"/.
FIXME:
Příklad 107. Definice slova string>Handle
: string>Handle (str u → handle. ) DUP 1+ S>D MemHandleNew 2DUP 2>R MemHandleLock 2>R DUP 0 SWAP 2R@ ROT M+ C!A S>D ROT >ABS 2R> MemMove DROP 2R> 2DUP MemHandleUnlock DROP ;