Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!sun-barr!newstop!sun!grapevine!koreth@panarthea.ebay.sun.com
From: koreth@panarthea.ebay.sun.com (Steven Grimm)
Newsgroups: comp.binaries.atari.st
Subject: v08i002: undoub -- Remove duplicate lines from files
Keywords: arc, uue
Message-ID: <34441@grapevine.uucp>
Date: 3 Oct 89 21:14:13 GMT
Sender: news@grapevine.EBay
Reply-To: BD05@DKAUNI2.Bitnet (Roland Waldi)
Lines: 228
Approved: koreth@panarthea.ebay.sun.com

Submitted-by: BD05@DKAUNI2.Bitnet (Roland Waldi)
Posting-number: Volume 8, Issue 2
Archive-name: undoub

This is a very special utility, which I posted earlier within BITNET. I
use it when I merge two files containing data tables: I load both tables
into my editor, then sort the whole file to get the same order I had
before for each of them, and then I remove the double-entries with
UNDOUB. Thus I can merge table-files and get rid of redundant
information, which has been in both original files before. You may have
a different application for it, anyway: UNDOUB reads a file and removes
all lines from it, which are identical to their predecessor.
As I learned from Steve Grimm, this is the same that UNIX 'uniq' does.
So feel free to rename it to UNIQ.TTP, if you are unix fan!

If you have use for it, enjoy it!         R. Waldi

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 undoub.arc
M&@A53D1/54(N34%.  #_:@$  $$30;3,>K$!   ,59P0>5)%" @0=LK(F9/Fz
MC1L0,5S @-$"QXT7,6(T4  "$@(Q>4!(><,FC!LR(*Z$84,F#0L00HC J $"y
M" @B2X($3"+#A9 D5)P4H;)Q(YPZ2$&4-'H5LX"M.N+0,"Q6 ;;\>P<0%BB!003(RD**J@SIPP9YH"'A!Pv
M8$$0<>>Z"=.F#.DQ;^#DD9/F#!HZ3CD&;DW08!JWN'7S]@T6Q9 4$'-8! %2u
M)$F3*%6R3.-B-14TE.'(>7-&<1L0;<*$%$/9=!DR+Y.G>:_W) BI+?WR%E.Gt
M,#D!5I*!RDM(.ME)W6<6/F'#\FY P"0m
ML#&M2X"&RR^L @ "H#22R1J8C6X!A#8(%[3-.*CZ+UMI)LAI76;@!D" PV\Hl
M@.BNX 6*F+K_T9I,PA"41V!$Z(XY.0"SRZ6!I%^OJP"RT?M-)@ !E^V7GASLk
M4?'>@>R)<=D40/@  !@D!,'./W) H2  L%[B9#?2)$D"<04*KD+(1**P\f
M&!GH?#Q,RD^EJ&#*@!1%@.'*#P7\8,!\^GTJZ >F&(LK:%@ !]VPNB1@RV5"e
M'+&?:I-E(.(C!C8FQU2E63$9!NP8*^&D^)26Q+O:C/;# =>]Z\QE3'P# #A.d
M?!2;%0.-=Y@4KAS&H0#$_4/B#\59)4!I SC1Q&A@$&RP; EWAP###D, ,0 2c
M0T!Q:8R"S(G($  T'Q;(\4B0@1 0@)0 ( (@7//)LMMAT 0VDOa
MO.L!%8_$R8^3=)6FP;L,C!:$.__8X94;M#%,6^V_w
M*\^3'J>!]TS%<*5Q0NI \!X)CYT 3G>U(+05! ^ # '[QX#EU\(I'C066 +N1#$N.BM\E80!"C&5/ t
M&""S@PW$-@.  0]8T \T<.)3:B#<84# 1C?8@(UJ0,(PH#$($D3(!379$S1*s
M:(8,TK$?8#"#!G 'BX8A0#IW^L<_.M,/,DRF )R@VYY\<4@PR("-9G ?+ +Qr
M!@3  )1(  889,)&,%@E!T!HH[,RTP\W4-*2NO  !][# .*+.n
M;(X<(S#2=K!_4&-?P1Q()=^@@%M.A@"@H!L2^$>-^9 !;XC1!3_D(2\ E*FDm
M4J@*"*YXF,E00 *C^2@98@J 2AKSE,J4P0:IT2,J*F610$@!%!"9@NXPH)8Yl
MZ X$^F$&-0[DHVKX*!H^R@:W L ''V"I;/XACWT)P17_T(<0^" ,!C! =R@@7?6R-T0(@*]\ 8 "Z7H6",RE G9YP-PN=)<&ZA4O $)$g
MA=8!8 'HM6][8Z+?^=87.O<]3(7YZU_*\8.Y2'@N!@6 #N9"0<1G$@ WF/L f
M%%,.&LR=PV:TQMPE/-<#S$69/-X@@2D0=@J.G(_9)J,/27269J!!U3A4IRF_4[WRD $@&3"%(, B"&R0@!0(2S(?[8821';"D07@!>8>d
M8<808.X=F,S<,#P7"3Z CCQ*-Q],$#E,CP#R81IJ*C>H([J%/8)B&?NC($$6c
M I(] &5K8MGY<&(R^7#'D0/@#^9RX+D*Z$&(R-#A -"#N0%XK@L2NUA -M;1b
MO(/T$1CM6/N9@1SS 06F3;%I6S#7 <]E0X[Y^@8P^)BO@C8S $B!:4!PI0)\.!76+&U9@6(;IV0Q)=Y$,+X%(T ^;C"DPKR:"TAC65S3$?66!:!IL6z
M G.G\%PNS,<6F.; LUT=;:8&=0.X2&)3O8V"+@% %Y/!ASW"#89Q[\87"4?'y
M9=#MZD8_]H=F8/=NA)'P?SD1 -Y@KA2>F\'Y&"/AWWI$GFOBB1\KF@/I/D3]x
M?BB"BA]#&H\- @0 06@;>",A'MAXK.VN;HAw
MD/'Y2"/A1.@L%9@KAN=B0-0 *,.%USOA < 7[&;P+P\@\"1Q&A4%6-9R3;K\v
M938L4F1EA@!@:\,_?"3\-X\8,U_=&H!"\@,%\['&9.[!#3%!QQ]XU2O"BH-Mu
M73P !73CSB &@@ W&,"N8/# #UQ=&A],!@)JN PLB0E?-4IRE7:5O'1U$P 4t
M"#T#[IA5KQ?G%Y6CT!O+PFK1WJ2M[_&0<@(/.>L"M I [ X3!AZ5JD&)"=X T1A-A\7]Lr
M\J,_3+\LCXK7W%^ZAF,A]X #)H $8& !,+ "XU1V6O,\ * "EV$-7"$>"R" q
M." """ -/P$ !4 +H]0&V)!_0?4/KD W)O %DC<0AB-'"." 61=\M?)Y>*)]p
M,)" "Q@B$' &Y:& !C 9#> &X+(&X_0#"OA!NN /9B-;,9A]L"<<)YB"N7$.o
M 0 !+&B#"E!V=<*$ X$)+C !GK * /!Y"GB%(5(\5F"%$R8 Y<2$=H"&[C4Qn
M%B,$IT"$-7$:R, \!_ "/$B'1J@!(L!+S?$/:SB#8  $ K &__ 'XS0FJ10-m
M8.@ %,( 0J@4#/ &'% : 6"#!$ $^@$,XE.$IZ%%CW "Q.$ )@"&YB2$)"42)'*$+#" !EX&-VF@ j
M#  (#4$ =:*+AS%.R^2.$#!.# "&D%  !G &I&",) ("4R %DZ!W )  [JB.i
MP\@#;O@=9R #!3E._@B0 ID ;#>0XJ0 9X !(# !9H.*L""$$B!L$YD 'C)Ah
MVD<%S^,/7' 9LT4TN[B(A(B08]A> 9!?$E"+,1&2(QDBVB<"8 !/"MAC0' #g
MQ$$ #:D (?F0 0D(.8DR3WA_(3-.4P 9)'4>!#!] - &&'"4Y"$"D&8V(*!Sf
M2@D()!E:>&.4@"22@$ Q(&0(HP&%("  QI44 P  %R0$0P &)C %0S .@D &e
M^D %0P #<,D'"HF @RD $N, U+"! @  9&  XJ (4G"7XA"9X* (QJ"3[S $d
M2" $A!"8$-!>ZD@(^B$$(" ( 3, _P"%-&,;\) Y-A,6=6%6)( !)@ !Q*,&c
M"& $@& $@8  P   'Z $@J";1B (1C ("" ,PBD)@Q )J/D- ?  !0,$[& /b
MU* V9W0._P ,52,"M D!X2 (YR (RRF<,$"5ET6:-@ !Z# $F7D $C,0WN "a
M$1 .AW .AX  QX">*1 3E^4(0* #$8 .1: ,?""?9S 0P& )16 -?+ 40F (z
MGNE6'S .@> +@E &!F &"H +AB &!B %0< )A% )AR .CR .E+ 7Z$ "F1@!y
ML0 %9^(HKY&F>S/D!Z0F@2,">[@F?"2HQ9 ">-6&?^*F?_.F?x
M0BJ@!&J@"*J@1& )$?H/UE $*"  2$ $*G  2% $,D  PE ,@@D,Q^ ,Q$ ,w
MQ8 $XB($GBD$A8 #!Z # A NR(!-TJI9G5.]B -5<,"XFD(YV (u
M"& ,Z*F>2, (0( #[DD$R'"D+C*A3)J?^]F?0/J?!!"@ UJ@!VJK>7H(,@ !t
MXN (*DH"!F #)$4 9E,$;D !%\0+A\ &Y%< +'"G ^ " N"LS H#D: $AW &s
M'  #T H 1: U*_(!;@ !X/ *B3H+0(   _$ 9R  1' (U' (6*6I4?"6<:D4r
M=&E.@>"HO*>7?.F7@)FFA&E4AME>B'D&BKF!W_&8D3F98" .Q, '_B 4)*8(q
MEQF?_Y .G"D$':L1GPD#H @!1A\$=2R5=9@ ""N, +)M*<9(F_&,/H($+E[%!]M "2   o
MD.@#W'$>TD5C[XHR_F &+O"T+7!B]A"V9AM0.[49H$$(G:4 <6NUNG!760LXn
M6]NU#H W?PM(O>AJY:!!U^D*T."=4. $9O,> 1, M^4%+W %XX0I"D $UYF=m
ML>&440@,L'D80A (($!U!! T8( !X@ (XA )J;NZK1L)QO4(6-I4^N />B![k
M\M V,,"")!"J_*,/+: $%  ,W4R$.0I# !"!X^J!>^F \VQL70G (RT0!7 $#4O!8!R!W%"!*@= &[A#%8" &f
M<\(/-@!(9;Q'@X Y?C0><<$Y*P(#+H)06L"3!D  $C!.4L"5X80_:04/=LP/e
M>+S$9@ !62P7EP,()@ $%+ -9L /$]3&;YP3>L1'CZ8P$  #A3!&9;17_& ;d
MF2A'#!!=BJP]^",&=2)J2PO!BY ]XB0'QF/+^','9T !NKPB8:"#(& 5D(!!c
M 6 $=&0/JN!'Z;B.9J "%G@KI0,#*G"# #  $&0!U#"!EF.!&*B! ]&!'_ASb
M"N#-&;B!XGS&"C#,Z[@GA<4*RBP$:C!.T>4/$*" CH(_*Q!08(>8'SO/#AV&\'BNCY?17.1OE^0$#3W/WX$Ty
M;R:(JSS/ZTS,9@(#-5 C01T3[%S,)  ()4 3^VU-< &x
M]V # " !EC-&KZB= %!6=*',> ,!DV$/@J M-2%T_O FCR!YTX7*,,#*T258w
M@&4/?\57 ^4=@54U>7<_)(E>C#7)?I18WD$%$[TS9X "C9T N3S0(=( O=S8v
M%BG0XL0 9D#3@24=ZL4/98+7&K!*7KPS>V+/E"T49D!@W9%J^A"\W8##\* U%A( 4- CRW3Dp
M4M CTJ9GD]$/V& L#@X$P< 5!)!*XF,5QS$HJC :*4#?=^(= 3$FX"W>HRL#o
M!U .HML8]@ -P0 "@+#AOMT&/^?FQ,W=AJ.:UTC$_T- P"L <\$@"S-68#E#Oj
M&';OXZ3OPPBU@.0 6C/,SK[&4J0 C;1>;^ !<2L/#8]2ZR4^S#<< J(!QL(Ni
MTRZXU2X@!&"YVTX 70 ,$Q8 JX<*PHPGQ0P&PX@ HHH*#0^%0&4<]?$?<\VYh
M-V\5]Z(ELM"6_^_@#<[% />)"X+&L&(H#T2L_T3N](4F^X]: 'g
M50^/QV+IS,4$'c
M*V^55T6(&)#\WU<_QB0/]$"4@0!OZ[O$*!8W4=.""  #8,R1!MG-?)(7@%(H7E(DH5.<5@!2:QS4 #P &X@%($/ 4C B.F@4-S_8!6J:E@F<-&+I!V #Gx
M,  (B,+V4@0!YB"6O/ !<@D&*( H5-=J=($.8LD++:848" >@ 0!3\&(X*A9w
M@@ "'W 9^EX7@$1U* ,'8& $QV8-ZF4-XQ#A_X -B2LKXX25ZF4-XQ#A_X -v
M3@\!XZ4 #A8$H:5>UC .$?X/V.#T$.!@B_&/2:E>UF &M-"*8]U2WH!&5&A6u
MW/$=XU1.8&< XV36$%"^9DT!Z4M[H<2^RE 5"$  DT$/1G#R*?];_^ -W7O?8/X. -Y$'G]F -:X%5U@ & C FAV(JU4_Fr
M C F%!.WX!"WXK!3=#$9]  -F.( U'2Z);0J&R0.B%0;Q#*(VH$&R0.B,>.>5-@,%BPP ,- &LSE'4+#( ) #;^ +2"][['8.::3*+2 Rl
MX:LY)  %6+ (*28%,"_8C@0!F@!..NA/^%,"9H ._H0_)5!( L ""!5=[,#Wk
M*(,.T64.'1 B(/ /[^!/^-,"L=PH_\ .".5/^*/'"- !2_P/[X!0W_L/\!"Wj
M\( X)*!:S:$.60P/_H0_+F#0"/6]_P /<0L/B", JM4<+\H_\.!/^,,&L=PHi
M_V ." 5.9>(!&H $A] "(D,;B$(&9R !B/(&^H,H> !?B%('%JU>YI#PX@L$h
MHPLCN*,Y40N..Z5_T&$.+*T+^V %5 X=YM!Z5F$FJT@YJ70-JC00I( H8V#0g
M^[T['"+8CK1S5+ (>V((B#('488[FK.VZX4%B\ #T($.!VC']. _], A@NU(f
M.W=")93P_$,/5.8-]HTH9: _B&(&\(4H9V &$B6^804%Y7N^,9&^F9&^F5&^e
M.Z5_T($.+"U4&( I$  %B]!P8R+8CK1SC&7Q^,#AZB!,CJ!>[& K/  =ZO#Hd
M"" )>\<)0;!H>.=(>O<_^*!W__ .\_/P]/ &5 ,=b
M\##?#B,!A=0/K% UO<-8%L\/*D77_N!!<1N.;13]0. /_@!4<1N. ( #[P%>a
M_N /4+A3;UUY_V ,[P&%._76E=<-1P8 J,!<#4 G-<@"x
M]: !O5T/&G#V/0$, %135M$ K)%PLH ?5E%3%I-PI-!9=E#K=%)3%C,9Z  /w
MF=<=&D GW[4MGU0/&M#;]: !9]\3P;!SI=$ K)%P9H ?5E%3%I-PV0(?U!T7v
MGU0/&M#;]: !9]\3P;!S),T:"4<#8K(IA?0/%'#V/;'T60E$(:(!@_AZ#"(*0&= ,[."329D(!RR0%%P58_-!]#N!Cs
M7IM"UM#&61B, " .WSX0V@ &OB>XPB*"I?$#B\<%QF(WT^]+; ",KS<0JB""r
M:XT!2EA( " );;Q:7MOPB T$8, &)P4 ^)Y*#\\/;: $C=-]#F!< R%)&-_\q
M/[#6^& LT^]+U?]Z2H!5J !!+M!]#F V[(L*QC40DA0)@,4/)G#?JPU04[P(p
M7;P-/N:UW??OCF Y*!7DP& W,]_&8\01L&@; )"].FI6+6!C_+ G @ !&U!(o
M<6%1>Z)0VE!(R( 8\01O'L. )"].FI6>S*B%Z4(V=._'#(!$A!.@: Bn
M0;"@_Z .NFP!X30(9G.7 R$ 8\01G%LU/5*I?U%(E,*[YP  V:NC2[ G4US+m
M$U!(@;T 9D,Z R$ 8\01O'L. T"%(K-R#+ G4US+$\ !1C40#  !S_(A1U!(l
M_^ .$)"/G(<[>^+M1+TG M"**\6[YY!&++AR#$ "(?+R%@$!S_(A1U!(,4$"k
M2R %B\ !$U!(_^ .EK,G J!2-I_Q03 9]2 $404$K >,KV< 36@:G L&4B8Rj
MBSQ.TE$:#< :DU$/"O!L>.=(G+,R%C,9]" /CC=W9I5"*\6YIRO8CL0Y*V,5i
M!# 9],!9R+]E/E83*<0-4'BZ@NU(G+,R5E$ DT$/EN!X "W"$('_M(%A#MS_,/<$!_W0%LIC^%+6!C@F7I(C@9\B .2EA(f
M & *>T()_H0_Y#00-C3Y  !8^K B / &0& Y%J\/4ML<\C I^C I?97Q0# 9e
M\P ,QK+RJ?3P.@Z,KS<0J(!5J! -EE[CP2$1%Y/Q0# 9\Z (QC+]Q"$ K4>(d
M=,#I"&4YNP4&-:P(EF,VBS!I#E &*$,&I8,[F^P QK"!DL1'=3SY  !8^B"Uc
MS2$/DZ(/D])7&0\$DS$/*& L*Y]*#Z_C,OAZH=Q,T6#I,X_T8\01!O/7 = /b
M7C $[- /4,,5&R !7'$'$L 5&R !7&$&$L 5&R !7)$%$L 5." !7 $U7+$!a
M$L 5<" !7&$$$L 54R !7 $U7-$"$L 56" !7-$"$L 54,,54,,54,,54,,5z
M4,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,5y
M4,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,5x
M4,,54,,54,,54,,54,,54,,54,,54*/H0\ ._$ /$L 5&R !7&$&$L 5&R !w
M7)$%$L 5." !7 $%$L 5&R !7 $'$L 54,,502 !7!$&$L 54,,54,,54,,5v
M4,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,54,,5u
M4,,54,,54,,54,,54,,54,,54,,54,,54,,54B !7'$%$L 5&R !7!$'$J#Ht
M0\ ._, .$L 5&R !7&$&$L 5&R !7)$%$L 54,,54*/H0Z",%\@5Q2P#BBX"s
M7%',,L 5"2 #_+!Y(L 5Q2P#BBX"7%',,J#H(L 5Q2P#_!  Z<#!0C=G5q
M*< & : ##9P";!  /F /Z) ";!  0F /X) ";'#,]H -*< & : $]L -?WT p
M]F -0W"X05 6!B "R! $9>$!(H ,05 688$,05 6)" "R! $9:$"(H ,05 6o
M$B "R! $9<$ (H ,*1 BQ:S,?PT ]: !?PT ]2 2=; !13 0TDH'9< C9I &n
M;% &XV$T9: ##:   U$%3D $3U %AD4"5T " Y$$;@ '=4 '(& &:< &97 [m
M ]$ "C 0=P  )3 '"@  )3 '"M!<91 &9  ")4 &C)$&;E &  ")3 #9"!1 [$!2S 0&U & S$$3^ $.C 005 %6* # S'W5* # P$$f
M)- 0!< IZE@<\- 0!B ' ! & ' ' # $3^ $.C 005 %6* # S'W5* ##:$ e
3)4 & ]$ "M 0!2  !@ )]@H: ' 'd
 c
end