C     NAME:  RANDOM
C
C     RANDOM - CALLS THE PHASE II SUBROUTINE VRFPLT TO PROCESS
C               A VERSAPLOT RANDOM FILE.
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     REVISION HISTORY:
C     REV. B  1/18/84      RE-INITIALIZE VARIABLE IFIRST FOR
C                          MULTIPLE COPIES.
C             8/22/84      INITIALIZE VARIABLES IMPASS,INPASS,
C                          IM3FF, CHANGE ISPASS IN CODE TO INPASS.
C     REV. C  1/21/85      CALL VRFPLT TO PROCESS THE VRF FILE.
C                          (FORMERLY PROGRAM RANDOM)
C     CALLS:  VRFPLT
C
C     COMMON USED:
C     /IOCOM/
C            I LUNIT   - LOGICAL UNIT NUMBER OF LISTING DEVICE
C            I IUNIT   - LOGICAL UNIT NUMBER OF VERSAPLOT DATA FILE
C            I LREC    - LENGTH OF DATA FILE RECORD IN WORDS
C            I IOTYPE  - INDICATES TYPE OF OUTPUT (PRINT OR PLOT)
C
C     LOCAL VARIABLES:  NONE
C
C
C...  COMMON /IOCOM/ - INPUT/OUTPUT VARIABLES
C
      COMMON /IOCOM/
     *    IUNIT, LUNIT, LREC, IOTYPE
C
C...  INITIALIZE I/O COMMON
      IUNIT = 1
      LUNIT = 6
      LREC = 128
      IOTYPE = 256
C
C...  OUTPUT VERSAPLOT RANDOM DATA
      CALL VRFPLT
C
      STOP
C
      END