# vrec common - hold common variables for virtual record package
  common /vrec/ tmark, cc, vbp, vsiz, getsta, badbuf, vbuf

  integer*2 tmark(_arith(MARKSIZE,-,1))	# temporary buffer to mark records
  integer cc				# carriagecontrol type of file
  integer vbp				# pointer to next record in vbuf
  integer vsiz				# size of physical record in vbuf
  integer getsta			# holds status of last get
  logical badbuf			# .true. when vbuf buffer overflowed
  byte vbuf(BUFSIZ)			# holds physical record