anchor.diff:  
   include core-ext.fs
   
  -: ms 0 do 1490 0 do loop loop ;
  -: leds  4 io! ;
  -
   : marker
       forth 2@        \ preserve FORTH and DP
       create
  
positive.code:     does>
          2@ forth 2! \ restore FORTH and DP
  ;
  
  ( ALL-MEMORY DUMP                            JCB 16:34 06/07/15)
  
  
negative.code: : /         /mod nip ;
  : mod       /mod drop ;
  
  : ."
      [char] " parse
      state @ if
  