macro daq file=test min=1 max=2000 fname=[file]_file1.hbook f1 [fname] a5 opt utitle hi/pl 1([min]:[max]) atitle 'ADC kanali' 'Stevilo zadetkov N' mf [file].eps *len = $hinfo(1,'xbins') len=2049 vec/cr x([len]) vec/cr y([len]) get_vect/contents 1 y get_vect/absc 1 x vec/write x,y [file].dat 'F10.5,2X,F10.5' sh dir [file].* return