pro pr_pointer, infil_lun
;
;
rd_pointer, infil_lun, pointer
;
print, 'Pointer Stuff for ', infil_lun
print, '   File Header Pointer		= ', pointer.file_header
print, '   QS Section Pointer		= ', pointer.qs_section
print, '   Data Section Pointer		= ', pointer.data_section
print, '   Optional Section Pointer	= ', pointer.opt_section
print, '   Roadmap Section Pointer	= ', pointer.map_section
print, '   Total # bytes		= ', pointer.totbytes
print, '  '
print, '   Pointer Version		= ', string(pointer.pointer_version, format='(Z)')
print, '   File Header Version		= ', string(pointer.header_version, format='(Z)')
print, '   Roadmap Version		= ', string(pointer.roadmap_version, format='(Z)')
print, '   Data Version			= ', string(pointer.data_version, format='(Z)')
print, '  '
print, '   Type of integer		= ', pointer.type_integer
print, '   Type of real			= ', pointer.type_real   
print, '   '
print, '   File structure		= ', pointer.file_structure
print, '   VMS Record size		= ', pointer.vms_rec_size
print, '  '
print, '   Integer*4 test (16909060)	= ', pointer.itest
print, '   Real*4 test (1.234e+5)	= ', pointer.rtest
;
end