macro eps_on filename= chopt=d 
	 IF  [filename] = '' THEN
		 for/file 67
	 ELSE
		 global/create current_epsname
		 IF ( chopt .ne. 'n') THEN
			 hiduke_org = $DATE
			 hiduke = $SUBSTRING([hiduke_org],7,4)-$SUBSTRING([hiduke_org],4,2)-$SUBSTRING([hiduke_org],1,2)
			 current_epsname = eps/[hiduke][filename].eps
		 ELSE
			 current_epsname = eps/[filename].eps
		 ENDIF
		 for/file 67 [current_epsname]
		 mess eps file name : [current_epsname]
	 ENDIF
	 gra/meta 67 -113
 return