	SUBROUTINE	EVNTS( I,NSET,QSET )
C////////////////////////////////////////////////////////////////
C/								/
C/	Program-id.	EVNTS.FOR				/
C/	Date-written.	11th,Feb,1984				/
C/	Remarks.	The user defined events routine for 	/
C/			Information system, from page 270	/
C/								/
C////////////////////////////////////////////////////////////////
	DIMENSION	NSET(1),QSET(1)
        COMMON/C1/ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST,
     $  NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,ISEED,TNOW,
     $  TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4),IMM,MAXQS,MAXNS
	COMMON /C2/ATRIB(10),ENQ(4),INN(4),JCELS(5,22),KRANK(4),
     $  MAXNQ(4),MFE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),
     $  QTIME(4),SSUMA(10,5),SUMA(10,5),NAME(6),NPROJ,MON,NDAY,NYR,
     $  JCLR,JTRIB(12)
	COMMON /U1/ NARC,NSCAN,JBUFF,NSTA(10),JRPLY(10)
	COMMON /U2/ XL,NTER,IBUFF,CDIAL(2),CREAD(2),SRTIM,SCTIM,
     $  TRTIM,DLTIM,COMTIM(2)
C
C
C	--- SET INITIAL USER VARIABLES.
C
	NTER = PARAM( 1,1 )
	IBUFF = PARAM( 1,2 )
	XL = PARAM( 1,3 )
	CDIAL(1) = PARAM( 2,1 )
	CDIAL(2) = PARAM( 2,2 )
	CREAD(1) = PARAM( 3,1 )
	CREAD(2) = PARAM( 3,2 )
	SRTIM = PARAM( 4,1 )
	SCTIM = PARAM( 4,2 )
	TRTIM = PARAM( 5,1 )
	DLTIM = PARAM( 5,2 )
	COMTIM(1) = PARAM( 6,1 )
	COMTIM(2) = PARAM( 6,2 )
C
	GO TO (1,2,3,4,5),I
1	CALL	ARRVL( NSET,QSET )
	RETURN
2	CALL	RQEST( NSET,QSET )
	RETURN
3	CALL	SCAN( NSET,QSET )
	RETURN
4	CALL	ANSER( NSET,QSET )
	RETURN
5	CALL	ENDSV( NSET,QSET )
	RETURN
	END
