macro eps_off chopt=y pri_flag=y
	 
	 import *
 
	 IF ( [chopt] .eq. y) THEN
		 
		 Org_TXALIH = $GRAFINFO(TXALIH)
		 Org_TXALIV = $GRAFINFO(TXALIV)
		 Org_CHHE = $GRAFINFO(CHHE)
		 Org_TXCI = $GRAFINFO(TXCI)
		 Org_TXFP = $GRAFINFO(TXFP)
 		 XSIZ = $GRAFINFO(XSIZ)
		 YSIZ = $GRAFINFO(YSIZ)
	 
		 set txfp -2/2
		 set chhe 0.5
		 set TXCI 4
		 sel 1
		 set TXAL 10
		 
		 itx 0.5 [YSIZ]-1 filename : [current_epsname]
		 itx 0.5 [YSIZ]-1.5 anafile : [current_anafile]
		 itx 0.5 [YSIZ]-2 run : [current_runNO]
		 
		 set TXFP [Org_TXFP]
		 set TXAL [Org_TXALIH][Org_TXALIV]
		 set CHHE [Org_CHHE]
		 set TXCI [Org_TXCI]
		 
	 ENDIF
		 
	 for/close 67
	 IF ( [pri_flag] .eq. y ) THEN
		 sh lpr -lpt4 [current_epsname]
	 ENDIF
 return