*
* $Id: zvautu.F,v 1.1.1.1 1996/03/06 10:47:13 mclareni Exp $
*
* $Log: zvautu.F,v $
* Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE ZVAUTU

C-    Push the user VID stack

#include "zebra/zvfaut.inc"
C--------------    END CDE                             --------------

      IF (IQVSTA.EQ.0)             RETURN

      IQVREM(1,6) = IQVREM(1,5)
      IQVREM(2,6) = IQVREM(2,5)

      IQVREM(1,5) = IQVREM(1,4)
      IQVREM(2,5) = IQVREM(2,4)

      IQVREM(1,4) = IQVID(1)
      IQVREM(2,4) = IQVID(2)
      RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"