SUBROUTINE MAIN
      LOGICAL*1 BUF(402)
      INTEGER PAT(132), I, K, L, SIZE
      INTEGER GETLIN, MATCH, PATSIZ
      INTEGER J
      INTEGER LSTPTR
      INTEGER PTR
      INTEGER MEM(5000)
      LOGICAL*1 CMEM(10000)
      LOGICAL*1 ST001Z(26)
      COMMON / CXFIND / LSTPTR, PTR(200)
      COMMON /CDSMEM/ MEM
      EQUIVALENCE (CMEM(1),MEM(1))
      DATA ST001Z(1)/117/,ST001Z(2)/115/,ST001Z(3)/97/,ST001Z(4)/103/,ST
     *001Z(5)/101/,ST001Z(6)/58/,ST001Z(7)/32/,ST001Z(8)/32/,ST001Z(9)/1
     *20/,ST001Z(10)/102/,ST001Z(11)/105/,ST001Z(12)/110/,ST001Z(13)/100
     */,ST001Z(14)/32/,ST001Z(15)/112/,ST001Z(16)/97/,ST001Z(17)/116/,ST
     *001Z(18)/102/,ST001Z(19)/105/,ST001Z(20)/108/,ST001Z(21)/101/,ST00
     *1Z(22)/32/,ST001Z(23)/46/,ST001Z(24)/46/,ST001Z(25)/46/,ST001Z(26)
     */0/
      CALL QUERY(ST001Z)
      CALL INIPAT(BUF, PAT)
23000 IF (.NOT.(GETLIN(BUF, 1) .NE. -1))GOTO 23001
      I=1
23002 IF (.NOT.(I .LE. LSTPTR))GOTO 23004
      J=PTR(I)
      K=1
23005 IF (.NOT.(MEM(J) .NE. 0))GOTO 23007
      SIZE = PATSIZ(MEM, J)
      L=0
23008 IF (.NOT.(L .NE. SIZE))GOTO 23010
      PAT(K+L) = MEM(J+L)
23009 L=L+1
      GOTO 23008
23010 CONTINUE
23006 J=J+SIZE
      K=K+SIZE
      GOTO 23005
23007 CONTINUE
      PAT(K) = 0
      IF (.NOT.(MATCH(BUF, PAT) .EQ. 1))GOTO 23011
      CALL PUTLIN(BUF, 2)
      GOTO 23004
23011 CONTINUE
23003 I=I+1
      GOTO 23002
23004 CONTINUE
      GOTO 23000
23001 CONTINUE
      RETURN
      END
      INTEGER FUNCTION ENTER(PAT)
      INTEGER PAT(132), I, SIZE, PATSIZ
      INTEGER NODE, J
      INTEGER DSGET
      INTEGER MEM(5000)
      LOGICAL*1 CMEM(10000)
      LOGICAL*1 ST002Z(39)
      COMMON /CDSMEM/ MEM
      EQUIVALENCE (CMEM(1),MEM(1))
      DATA ST002Z(1)/84/,ST002Z(2)/111/,ST002Z(3)/111/,ST002Z(4)/32/,ST0
     *02Z(5)/109/,ST002Z(6)/97/,ST002Z(7)/110/,ST002Z(8)/121/,ST002Z(9)/
     *32/,ST002Z(10)/112/,ST002Z(11)/97/,ST002Z(12)/116/,ST002Z(13)/116/
     *,ST002Z(14)/101/,ST002Z(15)/114/,ST002Z(16)/110/,ST002Z(17)/115/,S
     *T002Z(18)/32/,ST002Z(19)/102/,ST002Z(20)/111/,ST002Z(21)/114/,ST00
     *2Z(22)/32/,ST002Z(23)/105/,ST002Z(24)/110/,ST002Z(25)/116/,ST002Z(
     *26)/101/,ST002Z(27)/114/,ST002Z(28)/110/,ST002Z(29)/97/,ST002Z(30)
     */108/,ST002Z(31)/32/,ST002Z(32)/115/,ST002Z(33)/116/,ST002Z(34)/11
     *1/,ST002Z(35)/114/,ST002Z(36)/97/,ST002Z(37)/103/,ST002Z(38)/101/,
     *ST002Z(39)/0/
      SIZE = 1
23013 IF (.NOT.(PAT(SIZE) .NE. 0))GOTO 23015
23014 SIZE = SIZE+PATSIZ(PAT,SIZE)
      GOTO 23013
23015 CONTINUE
      NODE = DSGET(SIZE)
      IF (.NOT.(NODE .EQ. 0))GOTO 23016
      CALL ERROR(ST002Z)
23016 CONTINUE
      I=1
      J=NODE
23018 IF (.NOT.(I .NE. SIZE))GOTO 23020
      MEM(J) = PAT(I)
23019 I=I+1
      J=J+1
      GOTO 23018
23020 CONTINUE
      MEM(J) = 0
      ENTER=(NODE)
      RETURN
      END
      SUBROUTINE FERROR(FILE, BUF, REASON)
      LOGICAL*1 FILE(100), BUF(100), REASON(100)
      LOGICAL*1 ERR1(24)
      LOGICAL*1 ERR2(11)
      LOGICAL*1 ERR3(17)
      DATA ERR1(1)/69/,ERR1(2)/114/,ERR1(3)/114/,ERR1(4)/111/,ERR1(5)/11
     *4/,ERR1(6)/32/,ERR1(7)/112/,ERR1(8)/114/,ERR1(9)/111/,ERR1(10)/99/
     *,ERR1(11)/101/,ERR1(12)/115/,ERR1(13)/115/,ERR1(14)/105/,ERR1(15)/
     *110/,ERR1(16)/103/,ERR1(17)/32/,ERR1(18)/102/,ERR1(19)/105/,ERR1(2
     *0)/108/,ERR1(21)/101/,ERR1(22)/58/,ERR1(23)/32/,ERR1(24)/0/
      DATA ERR2(1)/44/,ERR2(2)/32/,ERR2(3)/114/,ERR2(4)/101/,ERR2(5)/97/
     *,ERR2(6)/115/,ERR2(7)/111/,ERR2(8)/110/,ERR2(9)/58/,ERR2(10)/32/,E
     *RR2(11)/0/
      DATA ERR3(1)/79/,ERR3(2)/102/,ERR3(3)/102/,ERR3(4)/101/,ERR3(5)/11
     *0/,ERR3(6)/100/,ERR3(7)/105/,ERR3(8)/110/,ERR3(9)/103/,ERR3(10)/32
     */,ERR3(11)/108/,ERR3(12)/105/,ERR3(13)/110/,ERR3(14)/101/,ERR3(15)
     */58/,ERR3(16)/32/,ERR3(17)/0/
      CALL PUTLIN(ERR1, 3)
      CALL PUTLIN(FILE, 3)
      CALL PUTLIN(ERR2, 3)
      CALL PUTLNL(REASON, 3)
      CALL PUTLIN(ERR3, 3)
      CALL PUTLNL(BUF, 3)
      CALL ENDST(-3)
      RETURN
      END
      SUBROUTINE INIPAT(BUF, PAT)
      LOGICAL*1 BUF(100), PATFIL(36)
      INTEGER PAT(132), I, J
      INTEGER GETARG, GETLIN, LENGTH, MAKPAT
      INTEGER FD
      INTEGER OPEN
      INTEGER ENTER
      INTEGER LSTPTR
      INTEGER PTR
      INTEGER MEM(5000)
      LOGICAL*1 CMEM(10000)
      LOGICAL*1 ILLPAT(16)
      LOGICAL*1 PTROVF(39)
      COMMON / CXFIND / LSTPTR, PTR(200)
      COMMON /CDSMEM/ MEM
      EQUIVALENCE (CMEM(1),MEM(1))
      DATA ILLPAT(1)/73/,ILLPAT(2)/108/,ILLPAT(3)/108/,ILLPAT(4)/101/,IL
     *LPAT(5)/103/,ILLPAT(6)/97/,ILLPAT(7)/108/,ILLPAT(8)/32/,ILLPAT(9)/
     *112/,ILLPAT(10)/97/,ILLPAT(11)/116/,ILLPAT(12)/116/,ILLPAT(13)/101
     */,ILLPAT(14)/114/,ILLPAT(15)/110/,ILLPAT(16)/0/
      DATA PTROVF(1)/84/,PTROVF(2)/111/,PTROVF(3)/111/,PTROVF(4)/32/,PTR
     *OVF(5)/109/,PTROVF(6)/97/,PTROVF(7)/110/,PTROVF(8)/121/,PTROVF(9)/
     *32/,PTROVF(10)/112/,PTROVF(11)/97/,PTROVF(12)/116/,PTROVF(13)/116/
     *,PTROVF(14)/101/,PTROVF(15)/114/,PTROVF(16)/110/,PTROVF(17)/115/,P
     *TROVF(18)/32/,PTROVF(19)/102/,PTROVF(20)/111/,PTROVF(21)/114/,PTRO
     *VF(22)/32/,PTROVF(23)/105/,PTROVF(24)/110/,PTROVF(25)/116/,PTROVF(
     *26)/101/,PTROVF(27)/114/,PTROVF(28)/110/,PTROVF(29)/97/,PTROVF(30)
     */108/,PTROVF(31)/32/,PTROVF(32)/115/,PTROVF(33)/116/,PTROVF(34)/11
     *1/,PTROVF(35)/114/,PTROVF(36)/97/,PTROVF(37)/103/,PTROVF(38)/101/,
     *PTROVF(39)/0/
      LTRPTR = 0
      CALL DSINIT(5000)
      I=1
23021 IF (.NOT.(GETARG(I, PATFIL, 36) .NE. -1))GOTO 23023
      FD = OPEN(PATFIL, 1)
      IF (.NOT.(FD .EQ. -3))GOTO 23024
      CALL CANT(PATFIL)
23024 CONTINUE
23026 IF (.NOT.(GETLIN(BUF, FD) .NE. -1))GOTO 23027
      J = LENGTH(BUF)
      BUF(J) = 0
      IF (.NOT.(MAKPAT(BUF, 1, 0, PAT) .EQ. -3))GOTO 23028
      CALL FERROR(PATFIL, BUF, ILLPAT)
23028 CONTINUE
      LSTPTR = LSTPTR + 1
      IF (.NOT.(LSTPTR .GT. 200))GOTO 23030
      CALL FERROR(PATFIL, BUF, PTROVF)
23030 CONTINUE
      PTR(LSTPTR) = ENTER(PAT)
      GOTO 23026
23027 CONTINUE
      CALL CLOSE(FD)
23022 I=I+1
      GOTO 23021
23023 CONTINUE
      RETURN
      END