anchor.diff:      does>
           2@ forth 2! \ restore FORTH and DP
   ;
  +
  +: ms 0 do 1490 0 do loop loop ;
  +: leds  4 io! ;
   
   ( ALL-MEMORY DUMP                            JCB 16:34 06/07/15)
   
  
positive.code:         type
      then
  ; immediate
  
  : unused
      $2000 here -
  
negative.code: 
  include core-ext.fs
  
  : marker
      forth 2@        \ preserve FORTH and DP
      create
  