      INTEGER A$BUF(200)
      INTEGER BUF1(102),BUF2(102)
      INTEGER T,COUNT
      INTEGER GETLIN,EQUAL
      INTEGER PARSCL
      INTEGER AAAAA0(2)
      DATA AAAAA0/238,0/
      IF((PARSCL(AAAAA0,A$BUF).NE.-3))GOTO 10000
        CALL ERROR('Usage: uniq [-n].')
10000 T=GETLIN(BUF1,-10)
10001 IF((T.EQ.-1))GOTO 10002
        COUNT=1
        T=GETLIN(BUF2,-10)
        GOTO 10005
10003   T=GETLIN(BUF2,-10)
10005   IF((T.EQ.-1))GOTO 10004
          IF((EQUAL(BUF1,BUF2).NE.0))GOTO 10006
            GOTO 10004
10006     COUNT=COUNT+(1)
        GOTO 10003
10004   IF((A$BUF(238-225+1).EQ.0))GOTO 10007
          CALL PUTDEC(COUNT,5,-11)
10007   CALL PUTLIN(BUF1,-11)
        IF((T.NE.-1))GOTO 10008
          GOTO 10002
10008   COUNT=1
        T=GETLIN(BUF1,-10)
        GOTO 10011
10009   T=GETLIN(BUF1,-10)
10011   IF((T.EQ.-1))GOTO 10010
          IF((EQUAL(BUF1,BUF2).NE.0))GOTO 10012
            GOTO 10010
10012     COUNT=COUNT+(1)
        GOTO 10009
10010   IF((A$BUF(238-225+1).EQ.0))GOTO 10013
          CALL PUTDEC(COUNT,5,-11)
10013   CALL PUTLIN(BUF2,-11)
      GOTO 10001
10002 CALL SWT
      END
C ---- Long Name Map ----
