      SUBROUTINE STRVRF ( IDATA )
C
C     NAME:  STRVRF
C
C    LANGUAGE:  FORTRAN
C
C    OPERATING SYSTEM:  UNIVERSAL
C
C    ORDER NUMBER:  5428-SE
C
C    PART NUMBER:  000-026366  NOVEMBER 1985
C
C    PRODUCT:  UNIVERSAL VERSAPLOT COLOR RANDOM 2.0
C
C    VERSATEC, INC., SANTA CLARA, CALIFORNIA 95051
C    A XEROX COMPANY
C
C    Copyright (C) 1985 by Xerox Corporation.  All rights reserved.
C
C    "NOTICE. THIS PROGRAM IS THE EXCLUSIVE PROPERTY OF VERSATEC,
C    INC. AND IS ISSUED IN STRICT CONFIDENCE UNDER A PREARRANGED
C    LICENSE AGREEMENT AND IS NOT TO BE DISCLOSED IN ANY MANNER TO
C    PERSONS OUTSIDE THE LICENSED ORGANIZATION AND SHALL NOT BE
C    REPRODUCED OR DISSEMINATED, IN WHOLE OR PART, TO ANYONE OUTSIDE
C    THE LICENSED ORGANIZATION WITHOUT THE PRIOR WRITTEN APPROVAL OF
C    VERSATEC, INC. UNLESS OTHERWISE PROVIDED FOR BY SUCH LICENSE
C    AGREEMENT.  THIS WORK IS PROTECTED AS AN UNPUBLISHED WORK UNDER
C    THE COPYRIGHT ACT OF 1976."
C
C
C     STRVRF - THIS ROUTINE IS USED TO MOVE DATA INTO THE IVBUF
C             FOR OUTPUT.
C
C     ENTRY:  CALL STRVRF ( IDATA )
C
C                 IDATA - WORD TO MOVE INTO THE IVBUF ARRAY
C                         NOTE:  ONLY LOWER 16 BITS ARE MOVED.
C
C     EXIT:  RETURN.
C
C     CALLS:  OUTPUT
C
C     CALLED BY:  VRFPLT
C
C     COMMON USED:
C     /BSORT/
C            I IWRD    - INDEX INTO IVBUF
C            I KPTR    - POINTER TO CURRENT BUFFER
C            I NBYTS   - BYTE COUNT OF OUTPUT RECORD
C            I IVBUF   - ARRAY USED FOR SORT AND OUTPUT BUFFERS.
C     /IOCOM/
C            I LREC    - LENGTH OF DATA FILE RECORD IN WORDS
C
C     LOCAL VARIABLES:
C
C
C
C
C...  COMMON /BSORT/ -  BANDING VARIABLES
C
      INTEGER NEXTI,PRECIS,CANSTX,BYTCNT,FREMAX,FRENXT
      INTEGER BEGIN,NEXTO,MAX,NXDREC,MAXI,NCHUNK,MSKALL
      INTEGER IBUF,IVBUF
      LOGICAL EOF
C
      COMMON /BSORT/
     *    NEXTI, PRECIS, EOF, CANSTX, BYTCNT,
     *    MAXI,  NCHUNK, FREMAX, FRENXT, IWRD, NBYTS, KPTR,
     *    ISIZE, MSKALL, BEGIN(74), NEXTO(74), MAX(74),
     *    NXDREC(74), IST2, IBUF(128), IVBUF(9600)
C
C
C
C
C...  COMMON /IOCOM/ - INPUT/OUTPUT VARIABLES
C
      COMMON /IOCOM/
     *    IUNIT, LUNIT, LREC, IOTYPE
C
C
C
C...    MOVE LOWER 16 BITS
  100   CALL STOR16(IVBUF(KPTR),IWRD-1,IDATA)
        IWRD = IWRD + 1
C
 9999 RETURN
      END
