Directory of image this file is from
This file as a plain text file

       DIMENSION ISTIM(18,6),IPAT(4),ILET(9)
       CALL SRAND
       READ(1,101)(IPAT(I),I=1,4),NRAN
101    FORMAT(4A1,I3)
       PAUSE 1
       CALL OPEN
       READ(1,100)((ISTIM(I,J),J=1,6),I=1,18)
100    FORMAT(4A1,2I1)
       WRITE(1,100)((ISTIM(I,J),J=1,6),I=1,18)
       PAUSE 2
       CALL OPEN
       DO 19 K=1,NRAN
 19    IRAND(DUM)=0
       DO 20 N=1,18
       INT=ISTIM(N,5)
 27    DO 30 J=1,INT
 32    CALL SHUF1(IPAT,1,4,1)
       ILET(J)=IPAT(1)
       IF(J-1)98,30,31
 31    IF(ILET(J)-ILET(J-1))30,32,30
 30    CONTINUE
       IPAU=ISTIM(N,6)
       IF(IPAU)98,40,41
 41    IF(IPAU-1)98,42,43
 42    IX=1
       GO TO 44
 43    IX=5
 44    IY=IX+3
       DO 45 J=IX,IY
 45    ILET(J)=0-2016
 40    WRITE(1,102)(ISTIM(N,J),J=1,4),(ILET(I),I=1,INT)
102    FORMAT(4A2,18(A1,3X))
 20    CONTINUE
 98    STOP
       END