home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol268 / exa11x.f86 < prev    next >
Encoding:
Text File  |  1986-05-22  |  1.9 KB  |  67 lines
  1. C    [EXA11.F86]
  2. C
  3. C    PROGRAM    EXA11 for FORTRAN-86
  4. C////////////////////////////////////////////////////////////////
  5. C/                                /
  6. C/    Program-id.    Example 11x, Information Service System    /
  7. C/    Date-written.    Feb. 11th 1984                /
  8. C/    Date-updadted.    Feb. 17th 1984 for FORTRAN-86        /
  9. C/    Remarks.    A main program of Information Service    /
  10. C/            System from page 269.            /
  11. C/            This program uses GASP IIex version.    /
  12. C/                                /
  13. C////////////////////////////////////////////////////////////////
  14. C
  15.     CHARACTER*12    FILE
  16. C
  17.     DIMENSION    NSET(120), QSET(30)
  18. C
  19.         COMMON /C1/ ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,
  20.      1            NHIST,NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,
  21.      2            ISEED,TNOW,TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4),
  22.      3            IMM,MAXQS,MAXNS
  23.     COMMON /C2/ ATRIB(10),ENQ(4),INN(4),JCELS(5,22),KRANK(4),
  24.      1            MAXNQ(4),MFE(4),MLC(4),MLE(4),NCELS(5),NQ(4),
  25.      2            PARAM(20,4),QTIME(4),SSUMA(10,5),SUMA(10,5),
  26.      3            NAME(6),NPROJ,MON,NDAY,NYR,JCLR,JTRIB(12)
  27.     COMMON /U1/ NARC,NSCAN,JBUFF,NSTA(10),JRPLY(10)
  28.     COMMON /U2/ XL,NTER,IBUFF,CDIAL(2),CREAD(2),SRTIM,SCTIM,
  29.      1            TRTIM,DLTIM,COMTIM(2)
  30. C
  31. C    --- Start of Main program of Information System.
  32. C
  33.     NCRDR = 6
  34.     MODE = 2
  35.     IDRIVE = 0
  36.     WRITE(1,90)
  37.    90    FORMAT(1H0,'Output GASP data file to Display(1) or Printer(4)'
  38.      1         /1H ,'Enter Output Device number (1 or 4): ') 
  39.     READ(1,95) NPRNT
  40.    95    FORMAT(I1)
  41.     WRITE(1,100)
  42.   100    FORMAT(1H ,'Input GASPex data file name (max 12 characters):')
  43.     READ(1,200) FILE
  44.   200    FORMAT(A0)
  45.     WRITE(1,210) FILE
  46.   210    FORMAT(1H ,'INPUT GASPEX DATA FILE NAME : ',A0)
  47. C
  48.     IF (IOREAD(NCRDR,MODE,IDRIVE,FILE)) GO TO 300
  49. C
  50. C
  51. C    --- Initial conditions for he simulation are no customers in
  52. C        the system. the scanner is at position (1), the buffer sto-
  53. C        rage is not blocked, all stations have no customers in them
  54. C        and all lines are free.
  55. C
  56.     NARC = 0
  57.     NSCAN = 1
  58.     JBUFF = 0
  59.       DO 10 I=1,10
  60.     NSTA(I) = 0
  61.         JRPLY(I) = 1
  62.    10 CONTINUE
  63. C
  64.     CALL    GASP(NSET,QSET)
  65.     CALL    EXIT
  66.     END
  67.