The kumac is reproduced below with explanation for each line.

MACRO CET_TEST [N]=1 <------ MACRO is setup and [N] is the event which one wants to look at.

** CREATE NEW READONLY FILESTREAM FROM EVGEN.XDF

dio/newfile VENUS evgen.xdf r <------- Newfile VENUS is defind and is connected to evgen.xdf.

** LIST ALL DIO STREAMS

dio/list <--------- List of the Dataset Input/Output.

** GET ONE EVENT

DO I=1,[N] <-------- Do loop over each event up to event [N].

dio/stream/getevent VENUS <----- Get event from file.

ENDDO <----------------- End of the do loop.

** LIST DATASET AND TABLES AND CHANGE DIRECTORY

ls <------------------ List the directory of the Dataset.

cd evgen <----------------------- Set to the directory.

ls <------------------ List the subdirectories of the Dataset.

** SHOW AND PRINT TABLES AND COMPARE TO GST FILE

table/show gener <---------- This shows the table structure.

MESS '>>>>> xdf file <<<<<' <-------- Message to the screen.

table/print gener <---- This prints the first several contents for event [N].

table/show event <---------- This shows the table structure.

MESS '>>>>> xdf file <<<<<' <-------- Message to the screen.

table/print event <---- This prints the first several contents for event [N].

table/show track <---------- This shows the table structure.

MESS '>>>>> xdf file <<<<<' <-------- Message to the screen.

table/print track <---- This prints the first several contents for event [N].

table/show vertex <---------- This shows the table structure.

MESS '>>>>> xdf file <<<<<' <-------- Message to the screen.

table/print vertex <---- This prints the first several contents for event [N].

** MAKE SOME SAMPLE PLOTS FROM TRACK TABLE

fortran/file 77 plot.ps <------ Opens Postscript file plot.ps.

graph/meta 77 -111 <----------- Defines the type of file.

newcwn 666 track <----------- Create a Column Wise Ntuple.

CWN/APPEND 666 track <--------- Bug of 97a need to append.

zone 2 2 <--------------- Makes four plots on one page.

nt/plot 666.p(3) <----------- Plot the z componet of momentum.

nt/plot 666.sqrt(p(1)**2+p(2)**2) (0.ne.p(1)) <---- Plot transverse momentum.

nt/plot 666.log(tan(0.5*atan(p(3)/sqrt(p(1)**2+p(2)**2))+.7854)) (0.ne.p(1)) <-- Eta.

nt/plot 666.log(tan(0.5*atan(p(3)/sqrt(p(1)**2+p(2)**2))+.7854)) (ge_pid.eq.8 .or.ge_pid.eq.9) <-- Eta of pi+ and pi-.

close 77 <---------------- Close plot file.

RETURN <------------------- Back to staf.