anchor.diff:  ! Need to add a loop over each structure
   outer: do js = 1,rows
      do is = 1,cols
  -      xoff = 2*(is-1)*Nspots
  -      yoff = 28/scale - (js-1)*(Nspots+3)
  +      xoff = 1.05*(is-1)*Nspots
  +      yoff = 28/scale - (js-1)*(Nspots+1)
         !if ((js-1)*cols+is>160) exit outer ! Ternary
         !if ((js-1)*cols+is>155) exit outer ! binary
         if (yoff < 0) exit outer
  
positive.code:    if(dummy(1:5)=="start") exit
  enddo 
  
  scale = .10
  Nspots = 12
  rows = 19
  cols = 6
  spotsize = .40
  call init(scale,-10.0,20.0)
  call init_colors
  
  
negative.code:             label = (iD-1)*indx+(temp(2)+temp(1)*diag(3))+1  
              !write(*,'("i,j:",2(1x,i2),5x,"g coords:",2(1x,i1),5x,"label:",i1)') i,j,temp,label
              if (labeling(label:label)=='1') then
                  call color('yellow')
                  call bullet(point(1),point(2),spotsize)
              else if (labeling(label:label)=='2') then
                    call color('cyan')
                    call bullet(point(1),point(2),spotsize)
              else
                 if (diag(2)==1) then; call color('red');
  