Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!utgpu!water!watmath!clyde!rutgers!ames!ucbcad!ucbvax!DHDIHEP1.BITNET!WALDI From: WALDI@DHDIHEP1.BITNET.UUCP Newsgroups: comp.sys.atari.st Subject: UNDOUB utility Message-ID: <8711301414.AA23943@ucbvax.Berkeley.EDU> Date: Mon, 30-Nov-87 09:15:10 EST Article-I.D.: ucbvax.8711301414.AA23943 Posted: Mon Nov 30 09:15:10 1987 Date-Received: Wed, 2-Dec-87 05:30:03 EST Sender: daemon@ucbvax.BERKELEY.EDU Organization: The ARPA Internet Lines: 225 Date: 30 November 1987, 13:13:50 SET From: Roland Waldi phone (6221) 564334 WALDI at DHDIHEP1 Inst. fuer Hochenergiephysik Schroederstr. 90 D-6900 Heidelberg To: INFO-ATA at SCORE.ST Here is a short utility, which removes double or multiple successive identical lines from a text file with line length of at most 255 characters. I use it after merging and resorting two tables into one, to remove double entries (BTW: I never use database programs for simple tables, a good editor does things much faster). You may think of other applications. The program uses a file UNDOUB.$W$ as temporary output. It may be called from a shell: UNDOUB FILENAME or from desktop (fill in filename as parameter), or without argument (filename is prompted). Those who have use for this, enjoy Roland Waldi table !"#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ begin 644 UNDOUB.ARC M&@A53D1/54(N5%10 22( 'T/G7RIU0\M ,8#0 + "SL =@8J0 < z MD@,G^1H.L %Q( 1B%0$\ ) Q@I>,$#" 5)7Q@::26C*B<*;BB8HV B : & y M ;16 "C_R -\.
1x M 0B8&$2 G=:.Y\R<4P"],3 !1!1D__A]!0#A+(>T0C"\C8L")H1L93FD:!+Ww M)0 $3G#" ,$F+A(T YT56!"99'+UC\L_=#L[[) #1P>51UX.0%6DH'*2T@v MZV4G=9Q8^8>'.Q1\=Z![(EQV11 ^ &"0$P@@B #J8(0 8"$QQ! -'#.2&-?-A8*(<("" Q#'0'/(4>P0Lr MN!L)]5E&&@_$O0!=;8WQ1P NWG"E@(0!ZA( "P7N)D-](EP&PP%G$ #&0/;,q M9P.#NDC Q'O,Q?5<7&8@X ,/_^QQ)@#65/6=;OX@J,L .HPF(8T#>6$,,R$&p M *@<\^'@9%R3?:!/E37I8%4 ?N;&1C^"#H" H375" ;+^H@A1&Z@?KH9",Po M\)X20)Q!0JN0LA$HK#P8&>A\/$S*3Z6H8,J %$6 X ' ,,.0P Q !)#0'%IS5J5\<;P>0P;R$*)#$(2#& AGZ#,%(D( k M$A(# X71A@)$ Z"'&P000!P($@!CACH*QYC(+,B<@0 #0?%LCQ2)"!$!" E j M @ B!<\\FRVV'0!#:2^\ZP$5C\3)CY-TE:;!NPR,%H0[_]ARJPDBO[# 9/\@i M MP"+R@P60C 80_*0#" M0D3D00I@N8N./6S.:$H" (#!A803."AV2$"03'NNC]5VA&IL_'>\R&@<=E0N",1##2!5#\G/FG1f MWF'G(I[AE1NT,4Q;[;\KSY,>IX'W3,5PI7%"ZD#P'@F-R45@D,,4B@"# IC!e M3 ,!Q-\"=RN\,6 R_F#$9:P" P-,P0BT@J 8/ @\78! &N^Q'!*, 0U#V$]%d M(1J1!V1(0QMN[GXKTH'^YK-"Q[G0!.=[4@M!4$#X , ?O'@.77PBD>-!98 Nc MY$,2XZ*WR5A $*,94\ 8(+.##<0V X !#UC0#S1PXE-J(-QA0,!&-]B C6I b MPC"@,0@21,@%-=D3-$IHA@S2L1]@,(,&< >+AB% .G?ZQS\ZTP\R3*8 G*#;a MGGQQ2##(@(UFA8(S*4"p M=GG W"YTEP;J%2\ 0D2%U@%@ >BU;WMCHM_YUA "X&o M!8 .YD)!Q&<2 #>8^P 44PX:S)W#9K3&W"4\UP/,19D\WB"!*1!V"HZ X0QAYFH$'5.%2G*;]3O?*0 2 9,(4@P"((;)" % A+m M,A_MAA)$=L*1!> %YAYAQA!@[AV8S-PP/!<)/H"./$HW'TP0.4R/ /)A&FHJl M-Z@CNH4]@F(9^Z,@018"DCT 96MBV?EP8C+Y<,>1 ^ /YG+@N0KH08C(T.$ k MT(.Y 7BN"Q*[6$ VUM&\@_01&.U8^YF!'/,!!:9-L6E;,-D2>:^*)'RN: ^D^1/U^*(**'T,:CPT"! !!:!MYP\H[F[8N\.$)@RLCX6Q@f MN,,!X(R$>V'BL[:YNB&0\?E((^%$Z"P5F"N&YV) U HPX77.^$!P!?L9O Oe M#R#P)'$:%058UG)-NOQE-BQ29&6& &!KPS]\)/PWCQ@S7]T:@$+R P7SL<9Dd M[L$-,4'''WC5*\**@VU=/ %=./.( :" #<8P*Y@\, /7%T:'TP& FJX#"R)c M"5\U2G*5=I6\='43 !0(/0/NF%6MP$![%]P^ I*WO\9!R @\YZP*T"D#L#A,&'a MI6J08D)W@#1&$V'Q?VSRHS],ORR/BM?<7[J&8R'W@ ,F@ 1@8 $PL +C5'9:z M\SP H *780U<(1X+(( X( ((( T_ 0 %0 NCU ;8D']!]0^N0# L H \'D*>(4A4CQ6w M8(43)@#EQ(1V@(;N-3$6(P2G0(0U<1K(P#P'\ (\2(=&J $BP$O-\0]K.(-@v M 0"L ;_\ ?C-":I% U@Z 4P@!"J!0,\ 8<4!H!8(,$0 3Z 0SB4X2GH46/u M< +$X0 F (;F)(0D)1P!@P"2\7]WLP!RI !"H(IN2#GE! !"2!P*<(NU8DJ$t MZ!T* 92<(OYM4,5R X#:#:($ @3:"'VP [1 Q! T]8@* 0(IA" 8J8(/As MY(D ,F':1P7/XP]<'\A,TY3 !DD=1X$,'T o MT 88<)3D(0*09C8@H'-*"0@D&5IX8Y2 ))* 0#$@9 BC 84@( #&E10# 7n M) 1# 8F, 5#, Z"0 ;Z0 5# -PR0<*B8"#*0 2XP#4L($" !D8 #BH A2m M<)?B$)G@H C&H)/O, 1(( 2$$)@0T%[J2 CZ(00@( @!,P#_ (4T8QOPD#DVl M$Q9U858D@ $F '$HP8(8 2 8 2!@ # ?H 2"H)M&( A&, @(( S"*0F#k M$ FH^0T!\ % P3L8 _4H#9G= [_ Q5(P*T"0'A( CG( C+*9PP0)6719HVj M 'H, 29>0 2,Q#>X (1$ Z'< Z'@ #'@)XI$!.7Y0A H ,1@ Y%H Q\()]Gi M,!# 8 E%8 U\L!1"8 B>Z58?, Z!X N"4 8&8 8*@ N&( 8&( 5!P F$4 F'h M( Z/( Z4L!?H0 *9& &Q 5GXBBMR9W>*3(D()[D:9[,^0'I":!(P)[N"9\)g M*C%D )XU89_XJ9_\Z9]"*J $:J (JJ!$8 D1^@_64 0H( !(0 0J< !(4 0Rf M0 #"4 R""0S'X S$0 S%@ 3B(@2>*02%@ ,'H ,"$"YR&B330 C0( C34 C$e M4R8($ S> :,P(*,T.A"\( 2"L"?X-GFVT9U*R@!JI(ZK)PVQ$ 5[(@$W2JEFd M=4[V( U5PP+B:0CG8 @(8 SHJ9Y(P A @ /N203(<*0N,J%,FI_[V9] ^I\$c M$* #6J ':JMY>@@R 'BX @J2@(&8 ,D10!F4P1N0 $7Q N'P ;D5P L<*<#b MX ("X*S,"@.1H 2'< 8< /0"@!%H#4K\@%N '@\ J).@M @ #\0!G( !$a M< C4< A8I:E1\)9QJ11T:4Z!X*B\IY=\Z9> F::$:52&V5Z(>0:*N8'?\9B1z M.9E@( [$P ?^(!0DI@B7&9__D Z<*00=JQ&?"0.AR0>C69H@( SI$ 1($ 1"y M$ 0@$ BIN9K_ER;G,%S=!YQ\\ \ @%X" %&'P1U+)5UF (*XP LFTIQDB;\x M8P^@@0N7L4'VT )( "0Z /<<1[216/OBC+^8 8N\+0M<&+V$+9F&U [M1F@w M00B=I0!Q:[6Z<%=9"SA;V[4.@#=_"TB]Z&KEH$'7Z0K0X)U0X 1F\QX!$P"Wv MY04O< 7CA"D*0 37F9VQX911" RP>1A"$ @@0'4$$#1@@ 'B CB$ FIN[JMu M&PG&]0ARZ1,X(!$@X)TZ*YT9P[F3FJ.'L:/E9)<(BP%NH*^"8 ,\0 =(+!(t M0;#E-)Y8VE3ZX ]Z('ORT#8PP((D$*K\HP\MH 1RL@":(U;VH PI()7VX PMs MP ;ERU?KF[Z;(01%< 2 (P\^, 'H\ 3.<*0+&AF>D*5*< 1N@ "^,+3]T 82r MT)/(HAOV0 [/PP]2 5/ ;4,$$,[,"FQ0_ (,%@0 PF, 'A, CG, B:>%F&q M4*_#()P!7";/Y ZKX%8P, Z#0 8"8%X4 S=1P$W*\/C$ 4L, ^$ \' 5#p M; V&, U'( TA @,4$ Q[(0Y"D, $('CZH%[Z8#S;&Q="< C+1 %< 0-2\%@'o M('<4($J!T ;N$,5@( 9SP@\V $AEO$>#@#E^-!YQP3DK @,N@E!:P),&0 2n M,$Y2P)7AA#]I!0]VS ]XO,1F %9+!>7 P@F 04L UFP \3U,9OG!-ZQ$>/m MIC 0 .%,$9EM%?\8!N9*$<,$%V*K#WX(P9U(FI+"\&+D#WB) ?&8\OX "NE P,J<(, , 09 '4k M,(&68X$8J($#T8$?^',*X,T9N('B?,8*,,SKN">%Q0K*+ 1J,$[1Y0\0H(".j M@C\K$%!@AY@?.\]S:92NO")W8 88,'IQ(73VH 6D @#SW)C#B :_'")A8 9"i M@'Z P#_\ '^55P!F0RJ])$F-C-!W4WGVP &DPAIRN"^3,0!R\!X.'8;P>*Z/h ME]%
0043O3-Ge M@ *-G0"Y/- AT@"]W-@6*=#BQ !F0-.!)1WJQ0]E@M<:L$I>O#-[8L^4+11Fd M0=D6KZ$+S=RXVAW;16K$A@!]NG%%A2T!CZ4+A_,UV)"P*D0P"GS9,#@0N-c M?0)FH%W=@9BQ;4ZSW8W;8MO0$=L:T,^!M=OZT-N!!=SN(-S>6=RG?0(15-O7b M=-UF0 :Y?<>KS0,>:CG4TQSV 9*T-@^@+:X,SL_)$[Y71<*H#MQ(@_M#0\-a M)]^ ,.#19> 2P-W>_=L:%-Y@,-R*0 '3L-^+,":11EG2!1/^8 I1/"?V< 8Lz M8($@@ 0QT"CC9.(HS@>-^=6Z,8"TYP23@K?V;"QS(@\+*8!,<.(I3CGC%.-,y MH%[PH#46$@!0T"/+=.12T"/2IF>3T0_88"P.#@3!P!4$D$KB8Q7',2BJ,!HIx M0-]WXAT!,2;@+=ZC*P,'4 ZBVQCV W! * L.&^W08_Y^;$S=V%RQB;D;A"w M8#9B+7O^X)H 0 *NYJ& P!4 $#2A:]\U5Q/UK 2!8$Q6P#_^0 2!0)S&)'B7v M+@AV$ "T$ B/R9 V]H0G9#ERL,>YS6.X" @CIOEZHYK72,3_0s MT# *P!SP2 +,U9@.4.\8=N_CI._#"+6 Y !:,\S.OL92I "-M%YOX %Q*P\-r MCU+K)3[,-QP"H@'&PB[3+KC5+B $8+G;3@!= P3%@"KAPK"C"?%# ;#B "Bq MB@H-#X5 91SU\1]SS;DW;Q7WHB6RT);_YP_U# 8VH%[^ -SL4 ]XD+@L:P8Bp M@/1*S_1.[TA2;[CUH =5#X_'8NG,Q00=SG%#7_0F460O4X# &3]D@&+UU3o MW_3 ( 10P.E?W^%7-_3[LG(((&J9*%UGCP?R(0V\[@M0 %]8@ 188P;V$*0"n M$'E#3WLF67D*T+@PZ*&BMGD=!@">0'M:('0*0 >Z9_E\( B2-%T#(0BT!P:>m MCP6AO_>C[P_^U59;EO)G -"MP ^H))+2(A@L'SZUWR@ ?JD43%W!1KJ\PC=l MQP!EQ]&_7[2@ 07O@5XK;Y5718@8D/S?5QR4)UT@Y >.Q_T&DP))4 ]TD )*k M4 ]PD )?4 ]LH#$BP ;D3P+P#P>9P?ZP(?[D;_[HK_[V'P3O'__S7__MWU(Xj M(H54R+U:&K0K0@;Y"B-C/HPN ",K4@?Y"B-C/HP> ",K\@;Y"B-CC@"*!2,Ki M@@?YNDIC'F<- 4BA>5P#< !XB2A4YQ6 %)K'-0 / ;B 4@0\!2,"(Z:!0W/g M]@%:IJ6"9PT8ND'8 . 1'4H P=@8 3'9@WJ90WC$.'_@ V)e M*ROCA)7J90WC$.'_@ U.#P'CI0 .%@2AI5[6, X1_@_8X/00X&"+\8])J5[6d M8 :TT(ICW5+>@$94:%;<\1WC5$Y@9P#C9-804+YF30'I2WNAQ+[*4!4(0 "3c M00]&(I_UO_X W==SG>DQO\ PYQ*PX[11>340]&@"D.P';_X T)_X\!^1,Mb MP';_( [BI,<2P';_, X!A91Z]P_B4*-*P%R%]$@# 0YY]@_@X WD0>?V8 UKa M@576 8",":'8BK53^8","84$[?@$+?BL%-T,1GT V8X@#4=+HEM"H;) Z)z MRR%(N7,R
W_&) _y MX0*E@Y0 !,;\ PX^MHB"2[9R"0YM( [QX5!O$,HC:@0;) Z)RSE-" "+\8])x MB4^"ZV/CE$+2 8]^8\!"5CBT'T6Z>W_&) _X0)C'@"AI>%'L$'BD+@<@I0[w MUWT*X&/CE$+B@)0 5 0(#0ZTYP8O, $MK0.6^P(3,!D&H!WH @S1, FMN%)Cv M;^GQ@?17[I V P46T" U#,%XP8-AXYY4V P6+# PT :S.4=0L,@ D -Ou MX M(+WOL=@YII,HM(#+AJSDD 58L @I)@4P+]B.! &: $XZZ$_X4P)F@ [^t MA#\E4$@"P ((%5WLP/ [XQD;Z9D;Z94;X[I7_0@0XL+508@"D0 6+T'!C(MB.M'.,9?'XP.'Jm M($R.H%[L8"L\ !WJ\.@(( E[QPE!L&AXYTAZ]P_O<$*$Y X,_R1:]@_JT&7Nl M S]Q0@]Q @\LX&J )-B.i MQ#EJJ0OL( 2C,6545\JS\6%NL'F'44@!H .G5 \: OPCP&%]!UV!4OU@ &Ph M5 ^E/1#H8%N8!@%THUP?)C)TTHTL4 \:< ;^"/\:4!H;P!H)QP[X815$P!H)g MYPU'!@"HP%P-0" ?5 \:T-OUH %GWQ/!L',DS1H)1P-BLBF%] \48]d ML?19"40AH@^'H-S@+U@ &]70\ZLO0] 0R< P8<$!#<0?J'(1T8LWCLH$D&c MT(22)'NG? X D+WDT7T.8%P#(4EV,_.:QWENT)F Q0^A)X(@I 9T SLX)-)Fb M0@'+) 47!5C\T'T.X&->FT+6T,99&(P ( [?/A#: :^)[C"(H*E\0.+QP7&a M8C?3[TML (RO-Q"J(()KC0%*6$@ ( EMO%I>V_"(#01@P 8G!0#XGDH/SP]Mz MH 2-TWT.8%P#(4D8W_P_L-;X8"S3[TO5_WI*@%6H $$NT'T.8#;LBPK&-1"2y M% F Q0\F<-^K#5!3O A=O T^YK7=]^^.8#DH%>3 8# PX D+TZ:E9[,J(7w MI0C9T[\<,@$2$$Z!H")!L*#_H ZZ; 'A- AF PX#0(4BLW(,L"=37,L3u MP %&-1 , '/\B%'4$C_X X0D(^ +J"[4B DB.!GR( Y*6$@ 8 I[0@G^A#_D-! V-/D %CZL"( \ 9 8#D6KP]2n MVQSR,"GZ,"E]E?% ,!GS S&LO*I]/ Z#HRO-Q"H@%6H$ V67N/!(1$7D_% m M,!GSH C&,OW$(0"M1XATP.D(93F[!08UK B68S:+,&D.4 8H0P:E@SN;[ #&l ML(&2Q$=U//D %CZ(+7-(0^3H@^3TE<9#P23,0\H8"PKGTH/K^,R^'JAW$S1k M8.DSC_1CQ!$&\], 3LT ]0PQ4;( %<<0<2P!4;( %<8082P!4;( %