OPTION,-ECHO,-TRACE,-DEBUG,-INTER,INFO,-WARN;

CALL,"vepp4.mad";

USE,RING;
SELECT,FULL;

BEAM,PARTICLE=ELECTRON,ENERGY=1.8;

TWISS,SAVE=TWISS,TUNES=TTNS;

BMPM;
EMIT;

HARMON;
HCHROMATICITY;
ENDHARM;

ARCHIVE,TABLE=TTNS,FILENAME="vepp4.tunes";
OPTIC,FILENAME="vepp4.optic",COLUMN=S,NAME,CLASS,L,K0L,K1L,K2L,&
BETX,BETY,ALFX,ALFY,MUX,MUY,DX,DPX,DY,DPY,X,PX,Y,PY,DMUX,DMUY;

STOP;