marker.fr revision 40843 
1120945Snectar\ ** ficl/softwords/marker.fr
2120945Snectar\ ** Ficl implementation of CORE EXT MARKER
3120945Snectar\ John Sadler, 4 Oct 98
4120945Snectar\ Requires ficl 2.02 FORGET-WID !!
5120945Snectar
6120945Snectar: marker   ( "name" -- )
7120945Snectar    create  
8120945Snectar    get-current ,
990926Snectar    get-order dup , 
1090926Snectar    0 ?do , loop 
1190926Snectar  does>
1290926Snectar    0 set-order                     \ clear search order
1390926Snectar    dup body> >name drop 
1490926Snectar    here - allot                    \ reset HERE to my xt-addr
1590926Snectar    dup @                           ( pfa current-wid )
1690926Snectar    dup set-current forget-wid      ( pfa )
1790926Snectar    cell+ dup @ swap                ( count count-addr )
1890926Snectar    over cells + swap               ( last-wid-addr count )
1990926Snectar    0 ?do 
2090926Snectar        dup @ dup                   ( wid-addr wid wid )
2190926Snectar        >search forget-wid          ( wid-addr )
2290926Snectar        cell- 
2390926Snectar    loop
2490926Snectar    drop
2590926Snectar;
2690926Snectar