!+
!      display command
! 
!-
 ON LOG;
ON RAD FLUC COD RFSW RADCOD; 
FFS;
  Get["modules4.n"];
  Get["modules5.n"];  

  $FORM = "15.10";
  PageWidth = 1999;
  datafile =OpenWrite["datas.txt"];


!USE NCELL;
!  cell calc;
!  disp;
!SAVE ALL;
!stop;
!stop;
!stop;
USE RING;
!  DP0=0.05;
  cell;
  calc;
!  disp;
  emit;
  fix;
  disp MARK*.*;
!  out 22 draw bx end;
  WriteGraphs[];
  $FORM="15.10";
!  Do[
!      Write[datafile,i,Twiss["S",i],Twiss["BX",i]];
!!      Print[i,Twiss["S",i],Twiss["BX",i]];
!!  ,{i,1,77,0.1}];
!  ,{i,1,125,0.1}];
!!  ,{i,LINE[LENGTH]}];
stop;
stop;
stop;
stop;