afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome\ ** ficl/softwords/marker.fr

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome\ ** Ficl implementation of CORE EXT MARKER

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome\ John Sadler, 4 Oct 98

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome\ Requires ficl 2.02 FORGET-WID !!

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( loading MARKER ) cr

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: marker ( "name" -- )

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome create

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome get-current ,

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome get-order dup ,

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome 0 ?do , loop

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome does>

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome 0 set-order \ clear search order

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome dup body> >name drop

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome here - allot \ reset HERE to my xt-addr

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome dup @ ( pfa current-wid )

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome dup set-current forget-wid ( pfa )

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cell+ dup @ swap ( count count-addr )

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome over cells + swap ( last-wid-addr count )

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome 0 ?do

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome dup @ dup ( wid-addr wid wid )

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome >search forget-wid ( wid-addr )

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome cell-

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome loop

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome drop

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome;