SUBROUTINE MAIN
      INTEGER FILES (4)
      INTEGER NF, INT, I
      INTEGER GETARG, CREATE
      LOGICAL*1 BUF(402)
      LOGICAL*1 GETCH
      LOGICAL*1 C
      LOGICAL*1 ST001Z(23)
      LOGICAL*1 ST002Z(15)
      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
     *16/,ST001Z(10)/101/,ST001Z(11)/101/,ST001Z(12)/32/,ST001Z(13)/91/,
     *ST001Z(14)/102/,ST001Z(15)/105/,ST001Z(16)/108/,ST001Z(17)/101/,ST
     *001Z(18)/93/,ST001Z(19)/32/,ST001Z(20)/46/,ST001Z(21)/46/,ST001Z(2
     *2)/46/,ST001Z(23)/0/
      DATA ST002Z(1)/116/,ST002Z(2)/111/,ST002Z(3)/111/,ST002Z(4)/32/,ST
     *002Z(5)/109/,ST002Z(6)/97/,ST002Z(7)/110/,ST002Z(8)/121/,ST002Z(9)
     */32/,ST002Z(10)/102/,ST002Z(11)/105/,ST002Z(12)/108/,ST002Z(13)/10
     *1/,ST002Z(14)/115/,ST002Z(15)/0/
      CALL QUERY(ST001Z)
      NF = 0
      I=1
23000 IF (.NOT.(GETARG(I,BUF,402).NE.-1))GOTO 23002
      NF = NF + 1
      IF (.NOT.(NF .GT. 4))GOTO 23003
      CALL ERROR (ST002Z)
23003 CONTINUE
      FILES(NF) = CREATE(BUF,2)
      IF (.NOT.(FILES(NF) .EQ. -3))GOTO 23005
      CALL CANT(BUF)
23005 CONTINUE
23001 I=I+1
      GOTO 23000
23002 CONTINUE
23007 IF (.NOT.(GETCH(C,1) .NE. -1))GOTO 23008
      CALL PUTCH(C,2)
      I=1
23009 IF (.NOT.(I.LE.NF))GOTO 23011
      CALL PUTCH(C, FILES(I))
23010 I=I+1
      GOTO 23009
23011 CONTINUE
      GOTO 23007
23008 CONTINUE
      RETURN
      END