anchor.diff:        deallocate( img_f, xg, yg )
   
         call plend()
  -      call exit(0)
  +      call myexit(0)
   
         contains
   
  
positive.code:         enddo
        enddo
        end
  
negative.code: 
            if (get_clip(xi, xe, yi, ye)) then
                call plend()
                call myexit(0)
            endif
  
  !
  