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:  DEC VAX/VMS
C
C	ORDER NUMBER:  5448-SE
C
C	PART NUMBER:  000-025522-001  OCTOBER 1985
C
C	PRODUCT:  DEC VAX/VMS 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	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
	INCLUDE 'IOCOM.CMN'
C
C
C...	INITIALIZE I/O COMMON
	IUNIT = 1
	LUNIT = 6
	LREC = 2048
	IOTYPE = 256
C
C...	OUTPUT VERSAPLOT RANDOM DATA
	CALL VRFPLT
C
	STOP
C
	END