PRO ini_test

	filename = 'axis.ini' 
		openr,iunit,filename,/get_lun 
;	  	on_ioerror, user_define 
  		readf, iunit, CodePath 
		readf, iunit, Gr_Dev 
		readf, iunit, Print_Dev 
		readf, iunit, DefPath 
		readf, iunit, gr_scale 
		readf, iunit, ColTbl 
		readf, iunit, location 
		readf, iunit, Print_file 
		readf, iunit, BufLblFont 
		readf, iunit, Pr_Command 
		readf, iunit, Help_cmd 
		readf, iunit, Net_command 
		print, 'Initialization info taken from ', ini_file 
;		close, iunit 
print,'CodePath :'+CodePath+'*',size(CodePath, /type)
print,'Gr_Dev :'+Gr_Dev+'*',size(Gr_Dev, /type)
print,'Print_Dev :'+Print_Dev+'*',size(Print_Dev, /type)
print,'DefPath :'+DefPath+'*',size(DefPath, /type)
print,'gr_scale :'+gr_scale+'*',size(gr_scale, /type)
print,'ColTbl :'+ColTbl+'*',size(ColTbl, /type)
print,'location :'+location+'*',size(location, /type)
print,'Print_file :'+Print_file+'*',size(Print_file, /type)
print,'BufLblFont :'+BufLblFont+'*',size(BufLblFont, /type)
print,'Pr_Command :'+Pr_Command+'*',size(Pr_Command, /type)
print,'Help_cmd :'+Help_cmd+'*',size(Help_cmd, /type)
print,'Net_command :'+Net_command+'*',size(Net_command, /type)

  		CodePath = strtrim(CodePath,2)
  		Gr_Dev = strtrim(Gr_Dev,2)
  		Print_Dev = strtrim(Print_Dev,2)
  		DefPath = strtrim(DefPath,2)

  		
  		user_define :
  		print,'end'
  		
 close,iunit
 free_lun,iunit
  		
  return
  END