[comp.binaries.ibm.pc] v05i031: comp_pv, replaces MS-DOS COMP.COM

vojta@math.berkeley.edu (Paul Vojta) (10/30/89)

Checksum: 1331737863  (Verify with "brik -cv")
Posting-number: Volume 05, Issue 031
Submitted-by: vojta@math.berkeley.edu (Paul Vojta)
Archive-name: comp_pv/comp_pv.uue

The COMP.COM supplied with messy-dos is a pain.  So I wrote my own long
ago; here it is, source included.  It functions much the same as the
original, but it is much less verbose, and has an option for maximum
number of errors per file to report.

--Paul Vojta, vojta@math.berkeley.edu


[
Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.

checksum     size (bytes)  file (between BEGIN--cut and END--cut lines)
   29408         9458      comp_pv.uue

checksum     size (bytes)  file
   26806         6841      comp_pv.zoo

-- R.D.
]

comp_pv part01/01
BEGIN--cut here--cut here
begin 644 comp_pv.zoo
M6D]/(#(N,#`@07)C:&EV92X:``#<I\3]*@```-;___\"``$````````!W*?$
M_0(!A14``'$````%$^FI)7NB*@``%!4```$```````````!C;VUP+F$X-@"-
M@(V`"@!_')X`````````````0"DC*```=R08\J0)E`12RL!A$V9,F39EW-`!
M8>:-'!!TT)0!`7'.G#PMR+R9`V+,FS9MPK@A`^*-&8P:0<P)`Q&$&YIE7#10
ML%-@E9EGRNA(8+(-'!!;7HSH0C$-FS(QD)IQ6D9&EYX)$MS1*&?CU*=15;+\
M6I5CF#P@Q&PDDZ;K&#H6TY0A:=$L6I,2PZ1Q@U6K4S)CPL@A0Q*%F#H3W;R9
M*&8QFA0N0("@$I-,&3-AZK"96/$B61D@TI#,N'%,'3E=)?9EZQ:N'+1OW,`L
M?3KU1+9SUD2>''/.G31TQJ`!<2:-G;FSS>))TZ9.F[YNG*N]Z!)$&=061[\!
MT16.Q8EPKC=]NIO(Y<R;0Y.T4:/&C!JA7Y*-T;>KF>O:0821N??,T_%EL`!"
M##"T1)H<O\V14U^4;73""R>$)AMI,OT6W'#VX8?1=A3Z!IQP):$A6$-T7*<3
M3PH(%`1B:%BD@V10H`>"%6^H04<8.^TT!QTB(99`&7'4D0!]"NQH&6H_!IF`
M##DJ,(0420H9PPP[,6%$E$/"L!,500B!90Y-FN%&#%C>81%+6]0@7!<)[$#6
M335Y)P<=:<36TDL[RM'?@#K2(8<,99Z)5`UEH,'F#GGNR:0"8@(*I)!F#H:4
M#3`8NA,<8=#AJ)(VR(!&5CM@2D>)<LC6V7AL[+D7"+^QP5)@@Y&TZILX@;!H
MGF0^FL`-E3:9J9]8RD!FFV+D4:*$^G45!@TS@(""@ANIQ<8;=Z2PDQELP%D&
MEC/``"I;H[[1I$!"E%&<&[M-4<9MHJV!D1PJS7'?16&00497'NFWDDP,S8'&
MB3LET,8;=B1`!AXLN&2&@A,)5L:R5"H@,,$)A($&"S%8'/!>="P9`QH!#UQP
M&`C/P&NO$G/L,<@2CV&4P6RP\.`)`:OAQK9F$#EQP<4>.T>_%Y_`!<V,QC#4
M&*Z..]!)<"`6;1UFS,N?'@NBN'/%",\!1\!SU"$&U@E'S7!:4*]`(,H)^"L'
MV#J+7'',6DKL=J0L'89M1"R0K/04-\XI4V!NN+$GIO!"1.H<`,M-\1QIL(##
MQ]?*,-2TA'T-:FYI'*5U0W,%[#(<;\L,`M$)J($SH&VF@2>F#GG^<A@Q<RE$
MS:>#JCI&88CA.NBPLT`&&S7?G(`9-]C^DF(3>7AAP'A8E(`8"$,/JAVPU[%1
M=83C1&K(%(^!,('7SC#Y&Y5S[77H)\!`NAI?FT&#\38M!@);Q=&Q>^@Y)%!S
M&,._WR:X<&&><,X`-NB%3#-$P0/W>':QN%7,7L]#F-XDIH:7F2%BUZ+!4-R6
M$CQ<1PYS8('T$!6&XR3K#,Z)B/U2YH8QI"T-H#))'21R'1*!@"&D`@$8+#,&
MTGT.?:-K0?K6A[/BI>XE$;$,2RPTG,VUKF6OBUV7A*@^V@W/B#NX71++L$3@
M#.=&NE-<P0X6MH6MBR-S.`.9LLB&IYP!=A7Z$,N($D46/(F*ZQ.>&6P`J@_6
M)4C`N58--D@Q,BIL;&U((Z"RZ(:N12T-8Y"+1$"0/</AYUHV&$H%0??!)(;I
M!D/AX0M!%13.M&5'E!R1)>6P0(,U#E>>@QT;$E!*PCV'@GH87@W@IYA4%FY=
MXH$#OE08L*;YRPS%K(._*J8L9JW@5ZP4X_#&)$(\@$HMYQ*<&\YP)P#9I%8Z
M>PK_V,*"+4#/;#2XBC3S)`/?P;!-.Q+,1*JC(+RP)%';C&4;:;DN6[:R4=5L
M)>.J>;DSUN$HHEK4U<B9T%9ZCP4W"%AW=N:;8KZ!=\V<P3-'%<T$>`<.R*1@
M(X>7OR.RZB\E$0QA[D<WY7PPA`ZT62[-@`/X=?"EQ#%.1%K9TINB)H0M6*-E
M,*.9B?0`!$%M9<\V@H8\P*&!_XO-"<"CITDV]:D1F<.U<'`T61KL#8&DX,O\
M]1T0`'*%6!D"TQS&D:)F[C]D05R8<G"TE_649"]E04S=,%,"V12O/\WI<?@B
MS;MZ\*<8\]8.AHH>HPXH;CF#`2''F#4_M:U[WVNEQ5A`@T*!:BK[F@H(3?F4
MC4ED935S8<Y0E\7CR:\B,R0#3P7UAC4D\@QE'-L8Y,"&D%XK!D:[VD`/>4:'
M06P%V-)6*\DIILL6[*$1E=A$1591:9(1EBWSJC`YIL]9BB2L5]LL#<SPJ3:!
MEB4WPP-IRV#:C@EKCC93+7";=-;)@HT&8X`!VE3VWC#%0'(+11AQ)W+;&9B7
M*O'CS!MB6[.7=7(E2CM"$:@`A2!(H0D).,(9TPL>50)3#KNI@G=DH\+7"(AQ
ME`2K1/)#(0Z':$1ON4Y?5D6AHJ1D7_CDIECFEX84<XPD6[G.1N!"2<2$A@Z[
M>0*)ET,'%O0%Q=[Y\8:2PV&SO1A>,;X(C6-BXQVGZF8"8HN/5]P7(E,HB=VD
M4"4_+*`=0V_,=&!Q3+"Y%VURTR5EC@FMXB3/-/?&3_W931"0T(,"W:Z7:R:5
M@**BNKZTZE4J)0E;A3D7%;9Y7SBH5'R.K![]`&@W1F#(&23=%9FLJR\-,<E@
M]D3D02>NEH)I@P[<QDYW-ND,<)!L`B@W!\LA:@V9,W7V7*-5*/(N9A$B(C_I
MX$]CATYV5H2U'&Y)QV/;40J:;6"TX5!3DP[A!=A&$:Z#NZ.1^-HD<$#+#.G$
M!F&/R#4!XW48JPW$$\10(V-PUZD4-&R+;%NA/^P=M"FX+5P#O(Y/"E[!X:`S
M43).:5"0PQL<DB\U>YA4KX8#@-VV5*2PI0MZ52K"V))MQWWL<H"C2%WBZ;?J
MD.6;$+DU',1GL#*XT(#.AAX+V%FS6>)ZER;%%"KI'+C^:#9FYL2#.NG=NY^%
MP5_;YJ-)A1:ANLSL?KT[P0_LW2;AV%S?=7ET2F.U;1I@'=DJR./"(X9K#59L
M)16[V`W(&T-Q7D0Q+1"[&,"[25K.7.:#I'?'D[X"J\A,!_;>02]9$YGB#'8'
MW'D(P=:B)Q,^950R%NG";6#:FRN0A9Z7>283L)?02\QYF]682.?@]Y*V]J2N
M&OM*<S[R-)1<9Z;S>[=?W\N7*U>:).-LMRH%SS)LY':LL;EK\K#<ROZIO:@%
M_L4R#5\7XMKUAW[M@B$LL1+MB"@Q(U!Y=^#]AG$T#8<YUJF2_Q:+,!^7K8<?
M6926!#J<0-(\;HW[$Q?>F#D=ZA)3;KUV>S+'51ZE3)\R05>C<VP!*O7"$B*@
M`BZ@`B*@60AS`A-(.@)X!UP#%P,H38/W<2$G,1^%-4J3$'1P&N@B<W25`*AW
M,1934)PA:L66`%V!5BF2`$3P!$E`!3JX'<"1+I9U8G[23OK"$@F5+!OQ=%T#
M$2Q!9&IA:A-Q4(GS771@7P/54""(,,VU7(W3*`Z%,#C075]%.!W3)GX2+SBT
M$6('*X2A<A>1$JMBAMWD>S@1,`YG>PI`!L$E;UD!3\!V%$3V<F6@7EE5)X3E
M@FO3.[!3,[E$!@9F4FCF<E1Q=C+C`FIG,#HC@)8#3Z[A()BX$V2P<133.X,'
M/8>".8*X'858(HV$B,@B6JADAS'G;+T34X\H`S@">A%DB1B8B:,HBKIH7TC#
M`I%(?O#22&L(>Y`6*W#H3:UXB+%!AB)AAGMC4$<15U5(<QQG+!NQ!2*H6.56
M:J32!GN1*7M"-1+7?#MG6:!R41$!(!9HC&2@7W/$7Y"3,B_A0GWW09*('1U%
M:XVC@&X3?#-0C\2W`_!H*I5H7<ZG4/@(7RUD,#/`/R;52W[440&',!!Y/-O2
MCZBQ1MFW7BV`/"T`6]Q'%%YU51K12.PX8.-!AMNE&@[9CL^77?LTDRL48+EU
M1@6V`C2P`Q&"/"H76Z&(D[.DDR4W`Y[5==.B(`;"%?*XA3NGAZ1W6OVECR51
M.@Z&&A)U:B@"B6%@7SI'D!334G:C&"-X-2WU06,@$2.(%4SP!A?UC$5!.($F
M&0.5%G@``D?U<B*R$D\A5V'I=F[S4';S%&[0)LHR%A+7!M[D7`8C8&)S1G8C
M0&A`0#KW<-)GC.0%?5E)>OO(E9R$)*^7D;,E*8H9`WGS>0>X3#BW@%ECE0+I
M.Z[Y@)/)`MX#*HU)$8_I30I5D!<S`Y_)0NZ5CZ*YE2`9D&<I*(K93@IH3)\2
MFVY#3@>#=0BSFCVW+61``[ET8/MBCH+3')"IF&>0$?.HG7OHG77%.]$#-8K9
M)D%V(#`A&IU&(?VRD]+I6SE8+N=R0W1Y%),7AWN1!BU@-_-2;*(8>(?)D37`
M>;:(,-ZS/]Q9`[MX-0\U061@H4/1-5\3?!-*@@AH@B@B$$2P'7<I&*(1&U4X
M>MV12Y_S@:7#G<`%/PBJ(8_2B"6:`!'',=8!D!PQ%T!1-<FT3"'ZFI]"<L[6
MEJCQEDVV5]R)12.9'+(X$:A9DS")!O?2)CH)`AI1+YFGDCE952M$!J!TE2[$
MI'+@I%[8DQ/!!GEP,^RHI.'UGF(B+K:H;01G,+LWI?N!!G40%%.)I"3:?WDS
M1X&Q3QKAFAMH4>XIB@:8J+.TJ!TX$AP(?+-I/A]*F6;$&&6C,Y*:`)0:@!YX
MJ1YU41'TCK%'IP6)=(P35(>"%\?A-V20*?NQ5/DQJ@O5.#`)IS>S`A`JIM[E
M''"P5$=73M`#J]1(K,:ZHU2@)Y#I1,AA!K^Y%TWSIGM!I'O8@J)$IS\4@FD`
M<LEF162`?:O#.9WG2O/X)(7WH"I@)95:78;J0)S8IK$9JCH)*EV*G]GJJ`DT
MCVY)DTR',#X%0C7S-7SH+2;%1*N2*N889R]9F>8G3CLBDV3JK]%Y42%UJJ`3
MFR7(F:29-BU"JS%@=F%)($/A/`]UI#)E,%+W>@-3:BFJ)W,0&_DA$DW"A\%5
M>EHA*&GY!FV"9N)IH#?:426H@*@G0:YY:+G4=QMJ4Q9Q?!."!O99M(ZZL24H
M/6U22MX4F+_3.22(JB"K12';G;PD/V50'7D`EG7*`L^IJ6"CGAB*;#*P/@3$
MAZRE17A`<22!JRW!D/^A4+G'A_YSFGA@0RFQ/!(C2D>ZMYD90549,#=#0!.$
M%46PMT*:%MY(%[)1LS5!%E7X7V3IC2"`!W-0>#:@F\`C3:O9FF$H0O"Y4U@J
ML63#GWS(C:4XG'3'F`_#$H7(MYKK?:")G&K@0A\4,+C9N@JXD;KIFH,[)5!+
MCMMQ!GAZK*MI-N9E$9"Y8UWZNT)ZH)L;I!X1!D%!AKKJ-J;KNL`7,W(;JN=+
M,:9;>.I+J-192)PZ-J9KL=P5MAV[M!.IIFPJ,6GUE%Y!%9*V+]T+I#(D$:%K
MF+EKC$VY`T@S$@5<6L89?:5CO%[9F4PY1XZKF9EZP:%9O#^RP2]I6VFTM6?T
M!$O0`ATQI/IA+_A2@P6),`&[DTD[OVKPB#$@I:[UHQ)GL%0)/A+3/&NSLI\G
MBC$0>$:<FP<30[$QJQ-!9#S$'#KJ2CQSFQ#T.S)312*Z3-?)BT>:PPK8LGP(
M=#`;M3Q6/S3\P(NBQ*-7@D_,I61*9=(1IA$9;P&JB<%:G?>[82^E-&J%$G:2
M1'LB<8B1K:%[IGU'5GZ3KQ(L2Y14QSMV@RH(<1('O!E)F#OQ0<'%O#6@<"6\
M-A<I/WM!/:F"A)F"J"OI5"W9QI3EIFAT!B8;LHYLI:CA22CR0?9E2+1;8`?V
M'T2)DK(5H2P@N-OR8&0@?P@VS-M7S,(JJJZ<51';J;.\2SN0!"_P!$#L;SG8
MR".+RZFQS#N``GCA)V_0;IC11J.!!HA\!H^A-$6P$GNR(U!C!HFCS&1964>B
MD=I%I@Y4PYR57\B9QSN*!%D`!4A0!$XP!3Q:QRR95<Z2?G\+IYN6$?9IG_O1
M')OQ5J7!-)"!%5`@!4G@!#[8HY/$KS>C'Q.!`D2`!9`A&>:1)V^0!R01!%A@
M1UAP(@(QTB5-!=XR!;7R=/K1&,<A(!0-.S4;>8"$+R`@!%C@ERV!&-?JI6)!
M'DT2T8TT:_8KRRQY*62ZS^W8(RNDD[HFG>IJ78T3QAB*,$FUOGKU67O!$N:)
MGM*E$'R5-H$AH\CSKXMK<WX=7A=#`_N%E<@IQU9Y@TJS@Q4F!3ZH5NDF$X"V
M3;YY$DC!.$Q!9.`8K@(B'"IQ+MS4AI$V91E!P7U!:0HR2:N2=%VP&Y1AG^@F
M%R1Q4%,V!%'MV5AV.%5X4?(T/N5CB\AVE#-J,'"`QEJT+]6!T21AC<"]EH-;
MW/"CRTR'=L#(<'@(V"#;JC*S=:+(<.V)/MRM><2=MZXU$:(]&,?*VKXHW,\=
M,=/MW-SY=WNH<1WJ@6%$!C/WW:>H=)>8>/5"/2WTC:B(U$9&E$(W$;_8$A<Q
MB7@RV6=`KG!0R]]*NJP-W\1=RSR+<_CM=M."JM4H3^G*F?@=>(J]HT10!08A
M!%E`!44``BC=,,$KM5Y:B&`:22G1;CM&&K)!U/N!VR1B(CG+K-ZH`VAMEB-S
M@9*A@:6*L:Y9Y*[IOH48KZ:JW>-*JN;&Y)884]PI!N1M$YK1;CZ>9;XX.@=K
M,&(P+*]WSA('YB*2VV$:<.$G`]%5.N/$Y6<+XV&^/9UYQ51^`GY^.26T$8HQ
M;7"4YV':J%8NHR4NBF<^%+B9=4%P`D'5=;&!SFP.8WHNV'FSNH9Z`EZP/B]#
M!F*`07O(Y?85?!$R.J"B!LH$'D8FK<4FZC2'Z)U.YHD^;XN>@PN-!4OC!E+L
M:1U'9(M:XU;,!N4Q%^ALT\XR!$P0TBBRJ*>NIW/+65R#!K,$HIRN-J&#-,@+
M0;V3`\2'AAH!E;"E98WD)W7P%HA($IZ]34.V'4\723VFJ[5ZH?7B0KU#V'-4
M[YA)N3&C>@^TS-^.-OPN,?<>.OJ.AV%PH;G^?TGZ-5>G`+=%)J*>`">0!&UD
M+G"D/,*!B=?&`E8R@K<%*!5_\8UTSY`D21WV2[I]`A\?\G$#S"5O!,VL?4;I
M\D\"\D8@\FGT/B4?!&,`O)8A.%SD\3D/\SMQ6[M4\MK,S1EI]%*@\R/X%69N
M\33_'RX?-RQ9]9(N1".HI6M3\4>_\R<@!*0K&2!P]1L1%6F/8'7[\CL?-[ZZ
MY1:/!W;?EVB_\&B/]F(@!B`@`G@@`C@?]4BO`*;+]8$3.-:!N?GBMW;R<G@`
M]5(?-S?S4US?S7+P+)`Q^)._$[7%]6K/[FM5:BR,B6UBSI6^%]:#."[@`M:B
M`+O56U4_]B.8*13;,3__I@^#2EG?)+5U6P9S!RZX!DD/6"`4_`D0-YV\$D;C
M*QF%)4E$)#<<*)(2_4`9,3]+_;[+_$`9R@JPFMIO'=Q/`]'UG.%O_30`)@J0
MF!%Q_MQ?`T1B-]#__J3^(]P7$-RGQ/T"`8$:``#,%0``!1-'JB1"XP0``+4$
M```!````````````8V]M<"YC;VT`C8"-@`H`?^4"`````````````$`I(R@`
M`'6-*T!+0[,0N`#<.`A(WXLZ!8P9T$>`"[]$X%I@.!`-'2P`HRP8\!4(`"L>
M(.CLXY&`SCT<T.K$F+$MEP*3+&#(:<#R3H))]\+=`A!@V#IWB3R$*V"$!SPZ
M$7ADH]-`USX"/+K5&:"K08%T^@0X^04'`#I#`.C$X_3/!KX"2;D`:/3'02(?
M7LS&`9`4#%]OO\0`R'4`P+Q2CPR\[93GPB`?2P'467#,P-)__R1Z*6#6&(!U
M.AY'KF.@\M*;NLKF"@"`EI.#<DQ4_E9`6@%?`0PL\B&7L.%2J<T^$H`.4NLG
M!^>42\CDH"X47]L(N)OW9,I[+.G,X]&`5MHNJJS329"]`/<Z\IP8XYQH'ZU`
M2W9XR,NG@J(#.B82H%.!QP\Z6*E01SJ`D//'.N0`\H<`.M0AP!`0*D!.'BKL
M\`TM`="!04)#+&)!7@?1`H@<%]@3#`1T2``*1:I@"$5[N*C@PBJJK`<`%A(.
MXXM@BW@@UVY^Y8*`60&(Q8H"P/#'@PMUW*/*?3RD5<`02]913RP#H&-.`#8&
MEU`/R0V0#BD!+`+/EQZ"&,(<*O0@0%IB"A(`.J4$H`L6!:`C2ID?FK6)G2SD
M64D`M/B0R#QAIN-&48M@4QD$!@``0&4.1`K`(@Z(I`L&!APR#RT_)-I$`*-(
M8,`4AR9B30#*@)JH#J12<&HBU^Q@@*E^#!"*J;:*Q$DN1.T0S!S3!;-",%#,
M8PH=<D1QQ6.52F:`+F'D.4(`_QA0Z2]\P*5/*)`"PD]:"$"!"#CH#!+`*EB@
MX\>ZBQC30@8&H%/'NELH0L0_OPB2YPT!*'+$/^C$$,`3@/20DCY'X-*``JM\
MI$HBWZ"C#0!9A%*IK4O)P8`NU>2IS(V=;.'%.F0LD$P=BF0+*18+)"FF'/^4
M[,56Z<3P3RBRKG"K`;'(\,<!=/R0A*?W8(.(`Z\44*INF4[+J:LAR*%&;KP&
M0X<\H$Q0[SL@55(`**9J"=(E!4RAB]CHE`'`%ME66BAL/A3J*6PV>$B;Q@;$
M3`<'N]PT0S(S2'///(`(`X,40<1<QZ<":'&0./OH0DL!ZZ30`V=U((".!P#H
MH@/F#CQ7@)MIU>M`Z$L4L,N;Z"P``"X!-!>"+IOMPMH5M.:"V4?RN')/-$G0
M`L1!7PQSD@MTH!`E'23P(.``3L#R@W]U*``E\^:E%8`J@/S`O`'A>S^$.-08
M,0P4N(```KM0H),"`!&#H`H6SV.`DAP+\/#''1!`!#%@<0(:#8,`0!`@++R0
MC@',SGWU4\4PO!,+`DP#'-)`!P$@<0(*`.$$A@#'!COXP6&\(`EL8$,9SA`&
M-H!@#G=(`QW&@`87/`P`27##'.I@!C.D80QI*(,;Z``".(1!#F%H0QGH4`8Y
MS,&&-S%"&E0(`C>\@8AF>$,=W$`&*`(@"&,80QGF,`<0D$&(0>SB#9/P@B>`
MH(ER>(,<O"A%*@*@!2T`P,.$D`<FNL]]=2P#"&(`R"D*4@8WQ(,B\?!'$(0A
M#(UTGQC$``(1X$$$-W2#)MWP1CR(D8P@$$,?QPB"-W#2AU3$@Q??*(<XR@$%
M<T@!'0U9QC&\H0U&E(,@G[`$+P:!B"H,PQR("(!@<`8``0'<I\3]`@``````
M``````````````````````````````````````````````````````````#\
!@P``
`
end
END--cut here--cut here