SUBROUTINE MAIN
      INTEGER GETARG, OPEN, DITOC
      LOGICAL*1 BUF(402), GETCH, C
      INTEGER I, NC(2), INT
      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
     *9/,ST001Z(10)/99/,ST001Z(11)/110/,ST001Z(12)/116/,ST001Z(13)/32/,S
     *T001Z(14)/91/,ST001Z(15)/102/,ST001Z(16)/105/,ST001Z(17)/108/,ST00
     *1Z(18)/101/,ST001Z(19)/93/,ST001Z(20)/32/,ST001Z(21)/46/,ST001Z(22
     *)/46/,ST001Z(23)/46/,ST001Z(24)/0/
      CALL QUERY(ST001Z)
      NC(1) = 0
      NC(2) = 0
      I=1
23000 CONTINUE
      IF (.NOT.(GETARG(I, BUF, 402) .EQ. -1))GOTO 23003
      IF (.NOT.(I .EQ. 1))GOTO 23005
23007 IF (.NOT.(GETCH(C, 1) .NE. -1))GOTO 23008
      NC(2) = NC(2) + 1
      IF (.NOT.(NC(2) .GE. 10000))GOTO 23009
      NC(1) = NC(1) + 1
      NC(2) = 0
23009 CONTINUE
      GOTO 23007
23008 CONTINUE
23005 CONTINUE
      GOTO 23002
23003 CONTINUE
      IF (.NOT.(BUF(1) .EQ. 45 .AND. BUF(2) .EQ. 0))GOTO 23011
23013 IF (.NOT.(GETCH(C, 1) .NE. -1))GOTO 23014
      NC(2) = NC(2) + 1
      IF (.NOT.(NC(2) .GE. 10000))GOTO 23015
      NC(1) = NC(1) + 1
      NC(2) = 0
23015 CONTINUE
      GOTO 23013
23014 CONTINUE
      GOTO 23012
23011 CONTINUE
      INT = OPEN(BUF, 1)
      IF (.NOT.(INT .EQ. -3))GOTO 23017
      CALL CANT(BUF)
23017 CONTINUE
23019 IF (.NOT.(GETCH(C, INT) .NE. -1))GOTO 23020
      NC(2) = NC(2) + 1
      IF (.NOT.(NC(2) .GE. 10000))GOTO 23021
      NC(1) = NC(1) + 1
      NC(2) = 0
23021 CONTINUE
      GOTO 23019
23020 CONTINUE
      CALL CLOSE(INT)
23012 CONTINUE
23004 CONTINUE
23001 I=I+1
      GOTO 23000
23002 CONTINUE
      I = DITOC(NC, BUF, 20)
      CALL PUTLIN(BUF, 2)
      CALL PUTCH(10,2)
      RETURN
      END