SUBROUTINE MAIN
      LOGICAL*1 BUF(402)
      INTEGER N
      INTEGER GETLIN, GETARG
      LOGICAL*1 ST001Z(24)
      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)/9
     *8/,ST001Z(10)/97/,ST001Z(11)/110/,ST001Z(12)/110/,ST001Z(13)/101/,
     *ST001Z(14)/114/,ST001Z(15)/32/,ST001Z(16)/91/,ST001Z(17)/115/,ST00
     *1Z(18)/116/,ST001Z(19)/114/,ST001Z(20)/105/,ST001Z(21)/110/,ST001Z
     *(22)/103/,ST001Z(23)/93/,ST001Z(24)/0/
      CALL QUERY(ST001Z)
      CALL LODCHR
      IF (.NOT.(GETARG(1, BUF, 402) .NE. -1))GOTO 23000
      CALL BIGOUT(BUF, 2)
      GOTO 23001
23000 CONTINUE
      N=GETLIN(BUF, 1)
23002 IF (.NOT.(N .NE. -1))GOTO 23004
      BUF(N) = 0
      CALL BIGOUT(BUF, 2)
23003 N=GETLIN(BUF, 1)
      GOTO 23002
23004 CONTINUE
23001 CONTINUE
      RETURN
      END
      SUBROUTINE BIGOUT(BUF, OUT)
      LOGICAL*1 BUF(100)
      LOGICAL*1 CUPPER
      INTEGER OUT
      INTEGER N, I, J, K
      INTEGER INDEXC, LENGTH
      LOGICAL*1 LCHARS
      LOGICAL*1 ALPHA
      COMMON / CBANNR / LCHARS(133), ALPHA(6, 133, 5)
      N = LENGTH(BUF)
      IF (.NOT.(N .GT. 18))GOTO 23005
      N = 18
23005 CONTINUE
      CALL PUTCH(10, OUT)
      I=1
23007 IF (.NOT.(I .LE. 5))GOTO 23009
      J=1
23010 IF (.NOT.(J .LE. N))GOTO 23012
      K = INDEXC(LCHARS, CUPPER(BUF(J)))
      IF (.NOT.(K .EQ. 0))GOTO 23013
      K = INDEXC(LCHARS, 32)
23013 CONTINUE
      IF (.NOT.(J .GT. 1))GOTO 23015
      CALL PUTCH(32, OUT)
      CALL PUTCH(32, OUT)
23015 CONTINUE
      CALL PUTLIN(ALPHA(1, K, I), OUT)
23011 J=J+1
      GOTO 23010
23012 CONTINUE
      CALL PUTCH(10, OUT)
23008 I=I+1
      GOTO 23007
23009 CONTINUE
      CALL PUTCH(10, OUT)
      RETURN
      END
      SUBROUTINE LODCHR
      LOGICAL*1 FILE(36), BUF(402)
      INTEGER INT, N, I, IND SUB, J
      INTEGER OPEN, GETLIN, LOCCOM
      LOGICAL*1 LCHARS
      LOGICAL*1 ALPHA
      LOGICAL*1 CHRSET(8)
      LOGICAL*1 SUFFIX(3)
      LOGICAL*1 PATH(18)
      LOGICAL*1 ST002Z(37)
      COMMON / CBANNR / LCHARS(133), ALPHA(6, 133, 5)
      DATA CHRSET(1)/98/,CHRSET(2)/105/,CHRSET(3)/103/,CHRSET(4)/99/,CHR
     *SET(5)/104/,CHRSET(6)/97/,CHRSET(7)/114/,CHRSET(8)/0/
      DATA SUFFIX(1)/0/,SUFFIX(2)/10/,SUFFIX(3)/0/
      DATA PATH(1)/0/,PATH(2)/126/,PATH(3)/47/,PATH(4)/0/,PATH(5)/126/,P
     *ATH(6)/117/,PATH(7)/115/,PATH(8)/114/,PATH(9)/47/,PATH(10)/0/,PATH
     *(11)/126/,PATH(12)/98/,PATH(13)/105/,PATH(14)/110/,PATH(15)/47/,PA
     *TH(16)/0/,PATH(17)/10/,PATH(18)/0/
      DATA ST002Z(1)/67/,ST002Z(2)/97/,ST002Z(3)/110/,ST002Z(4)/110/,ST0
     *02Z(5)/111/,ST002Z(6)/116/,ST002Z(7)/32/,ST002Z(8)/108/,ST002Z(9)/
     *111/,ST002Z(10)/99/,ST002Z(11)/97/,ST002Z(12)/116/,ST002Z(13)/101/
     *,ST002Z(14)/32/,ST002Z(15)/98/,ST002Z(16)/105/,ST002Z(17)/103/,ST0
     *02Z(18)/32/,ST002Z(19)/99/,ST002Z(20)/104/,ST002Z(21)/97/,ST002Z(2
     *2)/114/,ST002Z(23)/97/,ST002Z(24)/99/,ST002Z(25)/116/,ST002Z(26)/1
     *01/,ST002Z(27)/114/,ST002Z(28)/32/,ST002Z(29)/115/,ST002Z(30)/101/
     *,ST002Z(31)/116/,ST002Z(32)/32/,ST002Z(33)/102/,ST002Z(34)/105/,ST
     *002Z(35)/108/,ST002Z(36)/101/,ST002Z(37)/0/
      IF (.NOT.(LOCCOM(CHRSET, PATH, SUFFIX, FILE) .NE. 12))GOTO 23017
      CALL ERROR(ST002Z)
23017 CONTINUE
      INT = OPEN(FILE, 1)
      IF (.NOT.(INT .EQ. -3))GOTO 23019
      CALL CANT(FILE)
23019 CONTINUE
      N = GETLIN(BUF, INT)
      IF (.NOT.(N .GE. 133))GOTO 23021
      N = 133
23021 CONTINUE
      BUF(N) = 0
      CALL SCOPY(BUF, 1, LCHARS, 1)
      I = 0
      N=GETLIN(BUF,INT)
23023 IF (.NOT.(N .NE. -1))GOTO 23025
      IND = I / 5 + 1
      IF (.NOT.(IND .GT. 133))GOTO 23026
      GOTO 23025
23026 CONTINUE
      SUB = MOD (I, 5) + 1
      I = I + 1
      J = N
23028 IF (.NOT.(J .LE. 5))GOTO 23030
      BUF(J) = 32
23029 J=J+1
      GOTO 23028
23030 CONTINUE
      J=1
23031 IF (.NOT.(J .LE. 5))GOTO 23033
      ALPHA(J, IND, SUB) = BUF(J)
23032 J=J+1
      GOTO 23031
23033 CONTINUE
      ALPHA(J, IND, SUB) = 0
23024 N = GETLIN(BUF,INT)
      GOTO 23023
23025 CONTINUE
      CALL CLOSE(INT)
      RETURN
      END