anchor.diff:    call date_and_time(tsDate,tsTime)
     timeStamp = tsDate(1:4)//"-"//tsDate(5:6)//"-"//tsDate(7:8)//" "//&
                 tsTime(1:2)//":"//tsTime(3:4)//":"//tsTime(5:10)
  +  cDate = timeStamp(3:10)
  +  cTime = timeStamp(12:19)
   
     write(lout,"(a)") ""
     write(lout,"(a)") "    SixTrack :: Version "//trim(version)//" :: Released "//trim(moddate)
  
positive.code: #ifdef CR
        if(.not.restart) then
  #endif
          call writebin_header(ia,ia+1,90,ierro,cdate,ctime,progrm)
  #ifdef CR
          flush(90)
          binrecs(ia2)=1
  
negative.code: #ifdef CR
        if(.not.restart) then
  #endif
          call writebin_header(ia,ia,91-ia2,ierro,cDate,cTime,progrm)
  #ifdef CR
          flush(91-ia2)
          binrecs(ia2)=1
  