macro rad.kumac filename textfile tate=3 total=27
 
	 filename1 = 'hbk/inroom_201103231015.hbk'
	 filename2 = 'hbk/inroom_201103231157.hbk'
	 filename3 = 'hbk/inroom_201103231906.hbk'
	 filename4 = 'hbk/inroom_201103232029.hbk'
	 filename5 = 'hbk/inroom_201103240229.hbk'
	 filename6 = 'hbk/inroom_201103241308.hbk'
	 filename7 = 'hbk/inroom_201103241419.hbk'
	 filename8 = 'hbk/inroom_201103241520.hbk'
	 filename9 = 'hbk/inroom_201103241634.hbk'
	 filename10= 'hbk/inroom_201103241834.hbk'
	 filename11= 'hbk/inroom_201103242017.hbk'
	 filename12= 'hbk/inroom_201103251107.hbk'
	 filename13= 'hbk/inroom_201103251203.hbk'
	 filename14= 'hbk/inroom_201103251310.hbk'
	 filename15= 'hbk/inroom_201103251422.hbk'
	 filename16= 'hbk/inroom_201103251837.hbk'
	 filename17= 'hbk/inroom_201103251949.hbk'
	 filename18= 'hbk/inroom_201103252132.hbk'
	 filename19= 'hbk/inroom_201103252307.hbk'
	 filename20= 'hbk/inroom_201103260038.hbk'
	 filename21= 'hbk/inroom_201103260155.hbk'
	 filename22= 'hbk/inroom_201103261322.hbk'
	 filename23= 'hbk/inroom_201103260155.hbk'
	 filename24= 'hbk/inroom_201103260658.hbk'
	 filename25= 'hbk/inroom_201103260904.hbk'
	 filename26= 'hbk/inroom_201103261422.hbk'
	 filename27= 'hbk/inroom_201103261645.hbk'
	  
	 
	 
	 set hcol 1012
	 size 18 24
	 set lfon -132
	 zone 1 [tate]
	 lgy
	 opt nsta
* opt utit
	 hid = 3
	 j = 1
	 fileNO = [j]
	 
	 	 
	 
	 epson [filename]_[fileNO].eps
	 title 
	 do i = 1,[total]
		 cle f 
		 fetch [filename[i]]
* title[i] = $SUBSTRING([filename[i]],12,4)/$SUBSTRING([filename[i]],16,2)/$SUBSTRING([filename[i]],18,2)  $SUBSTRING([filename[i]],20,2):$SUBSTRING([filename[i]],22,2)
* title [title[i]] u
 title[i] = $SUBSTRING([filename[i]],12,4)-$SUBSTRING([filename[i]],16,2)-$SUBSTRING([filename[i]],18,2)-$SUBSTRING([filename[i]],20,2)-$SUBSTRING([filename[i]],22,2)
* title [title[i]] u
* set hcol 1+[i]
		 exe kumac/eg2 [hid] [textfile] [title[i]]
* hi/plo 3 e
		 atitle Energy//'"'//$quote(M)//'#'//keV//'"'//$quote(N)//'#' '"'//$quote(M)//'#counts/hour"'//$quote(N)//'#' ! -13
 		 IF ([i]< [total] .and. [j] = [tate]) then
			 epsoff
			 fileNO = [fileNO] + 1
			 epson [filename]_[fileNO].eps
			 j = 0
		 ENDIF
		 j = [j] + 1
	 enddo
	 epsoff
 return