anchor.diff:  
     if(lout == output_unit) return
   
  +  flush(lout)
     rewind(lout)
     nLines = 0
   10 continue
  
positive.code:   if(st_debug .and. pTurn > 0) then
      write(lout,"(a,i0)") "CRKILLSW> Kill switch previously triggered on turn ",pTurn
      write(93,  "(a,i0)") "CRKILLSW> Kill switch previously triggered on turn ",pTurn
    end if
  
    do i=1,size(st_killturns,1)
  
negative.code: 
      write(lout,"(a,i0)") "CRKILLSW> Triggering kill switch on turn ",iTurn
      write(93,  "(a,i0)") "CRKILLSW> Triggering kill switch on turn ",iTurn
      flush(lout)
      flush(93)
  
      open(iUnit,file="crrestartme.tmp",form="unformatted",access="stream",status="replace",action="write")
      write(iUnit) 1
  