: ,call         , ;
: ,enter        ['] docol ,call ;
: ,next         $cf20 h, $682c h, $46a7 h, ;
: ,exit         ['] exit ,call ;

: ,dodoes       ['] dodoes 1+ , ;
: ,dodata       ['] dodata , ;
: ,docon        ['] docon , ;

: (does>)       r> latest @ link> ! ;
: does>         ['] (does>) , $4C00 h, $47A0 h, ,dodoes ; immediate