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