program vfl
c
c	receive and print packets obtained from the vf: driver
c
	character*40	buf
	logical		logfil
	integer		rcvbuf(68)
	integer		iop1(20), iop2(20), mlnode(24), itask(2)
	integer		istat(2)
        equivalence	(rcvbuf(1),itask(1))
	equivalence	(rcvbuf(3),istat(1))
	equivalence	(rcvbuf(5),iop1(1))
	equivalence	(rcvbuf(25),iop2(1))
	equivalence	(rcvbuf(45),mlnode(1))
	external	aboast
	common	/abort/	iabflg
c
	call srea(aboast)
c
	iabflg = 0
        ipacks = 0
        write (5,140)
  140	format ('$Enter logfile name (<CR> = none): ')
	read (5,150) nin, buf
  150	format (q,a)
	if (nin .eq. 0) Then
	   logfil = .False.
        Else
	   logfil = .True.
           Open (Unit=1, name=buf, carriage control = 'list',
     *           type='new')
        Endif
	write (5,100)
  100	format (' VFL... on the air...'/)
c
 2000	call VRCS(,rcvbuf,68,ids)
        if (ids .lt. 0) Then
           write (5,120) ids
  120	   format (' ** VRCS Error code: ',i6)
        Elseif (ids .eq. 68) Then
           ipacks = ipacks + 1
           write (5,130) ipacks, istat, mlnode(1), mlnode(3)
  130      format (' Packet ',i5,', IOSB: ',2i6,' MLADD: ',o6,
     *		   ' ML.DNC: ',o6,'; Packets:')
	   if (logfil) write (1,130) ipacks, istat
c
	   write (5,132) iop1(5), iop1(6), (iop1(i), i=11,17)
  132	   format ('   UCB: ',o6,' FCN: ',o6,' PRM: ',7o7)
	   if (logfil) write (1,132) iop1(5),iop1(6),(iop1(i),i=11,17)
c
	   write (5,132) iop2(5), iop2(6), (iop2(i), i=11,17)
	   if (logfil) write (1,132) iop2(5),iop2(6),(iop2(i),i=11,17)
c
	Endif
        If (iabflg .eq. 0) Goto 2000
	if (logfil) close (unit=1)
c
	end
	subroutine aboast
	common	/abort/	iabflg
	iabflg = 1
	return
	end