home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol268 / evntsx.for < prev    next >
Encoding:
Text File  |  1986-05-22  |  1.4 KB  |  51 lines
  1.     SUBROUTINE    EVNTS( I,NSET,QSET )
  2. C////////////////////////////////////////////////////////////////
  3. C/                                /
  4. C/    Program-id.    EVNTS.FOR                /
  5. C/    Date-written.    11th,Feb,1984                /
  6. C/    Remarks.    The user defined events routine for     /
  7. C/            Information system, from page 270    /
  8. C/                                /
  9. C////////////////////////////////////////////////////////////////
  10.     DIMENSION    NSET(1),QSET(1)
  11.         COMMON/C1/ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST,
  12.      $  NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,ISEED,TNOW,
  13.      $  TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4),IMM,MAXQS,MAXNS
  14.     COMMON /C2/ATRIB(10),ENQ(4),INN(4),JCELS(5,22),KRANK(4),
  15.      $  MAXNQ(4),MFE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),
  16.      $  QTIME(4),SSUMA(10,5),SUMA(10,5),NAME(6),NPROJ,MON,NDAY,NYR,
  17.      $  JCLR,JTRIB(12)
  18.     COMMON /U1/ NARC,NSCAN,JBUFF,NSTA(10),JRPLY(10)
  19.     COMMON /U2/ XL,NTER,IBUFF,CDIAL(2),CREAD(2),SRTIM,SCTIM,
  20.      $  TRTIM,DLTIM,COMTIM(2)
  21. C
  22. C
  23. C    --- SET INITIAL USER VARIABLES.
  24. C
  25.     NTER = PARAM( 1,1 )
  26.     IBUFF = PARAM( 1,2 )
  27.     XL = PARAM( 1,3 )
  28.     CDIAL(1) = PARAM( 2,1 )
  29.     CDIAL(2) = PARAM( 2,2 )
  30.     CREAD(1) = PARAM( 3,1 )
  31.     CREAD(2) = PARAM( 3,2 )
  32.     SRTIM = PARAM( 4,1 )
  33.     SCTIM = PARAM( 4,2 )
  34.     TRTIM = PARAM( 5,1 )
  35.     DLTIM = PARAM( 5,2 )
  36.     COMTIM(1) = PARAM( 6,1 )
  37.     COMTIM(2) = PARAM( 6,2 )
  38. C
  39.     GO TO (1,2,3,4,5),I
  40. 1    CALL    ARRVL( NSET,QSET )
  41.     RETURN
  42. 2    CALL    RQEST( NSET,QSET )
  43.     RETURN
  44. 3    CALL    SCAN( NSET,QSET )
  45.     RETURN
  46. 4    CALL    ANSER( NSET,QSET )
  47.     RETURN
  48. 5    CALL    ENDSV( NSET,QSET )
  49.     RETURN
  50.     END
  51.