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 ----