Path: utzoo!mnetor!uunet!lll-winken!csustan!polyslo!mdella From: mdella@polyslo.UUCP (Marcos R. Della) Newsgroups: comp.binaries.ibm.pc Subject: head/tail command utility... Message-ID: <1378@polyslo.UUCP> Date: 2 Mar 88 17:21:41 GMT Organization: Cal Poly State Univ,CSC Dept,San Luis Obispo,CA 93407 Lines: 255 Keywords: a semi-unix lookalike for the PC The following file is a unix head/tail command look-alike program that was written in Turbo Pascal 4.0. The source code is included. You can use it to display the top x lines of a text file, bottom x lines, or not the top/bottom x lines of the file. It will also take re-directed input as well as filenames/paths for its input... My reason for making this program was to strip out the top 4 lines of a program that was running in a batch file that I wanted displayed. Its looked something like this: today | head -h4 > welcome.txt If you like the program, let me know... ---- ..!csustan ->!polyslo!mdella | mdella@polyslo | Whatever I said doesn't ..!sdsu ---/ Marcos R. Della | (805) 543-0135 | mean diddly as I forgot ..!csun --/ 225 N. Chorro St / it even before finishing ..!dmsd -/ San Luis Obispo, CA 93401 / typing it all out!!! :-) ----------------Cut Here------------------- begin 644 head.arc M&@A(14%$+D5810`E)24EM1@``&(0$`3R\3`>```,3;3````!0"4`)P`L(;"$ MU`$!`(```!##P$0.$P$,HS+VRB@LX[&,X3*:R[@N8X$`$Q7`!/!@ M)HJ9+6;*F+ED)I2956:ZF3EG)IZ9@&92FJEJIKR9^F8*@`A``=4*5$%0+4&5 M"=5&5%]1-4;5&E5P5-U153!@HHZV`)S`90-7#MP[<`O![01W%%QG<-G!G0)"BC,I1J5XEV)IBM$IOJ?X08&)-DX#2*.: MCNH\JAVI+J7ZF>IQJM&IOJ>:GVH:%@'\"%XEN);@7X*?";XH>*;@HX(7"]XL M>+7@W8*+"\XO.($#$QF`!Q!A?(CQ*<;3&)]C_)?Q=<8/&G]K/*_QUL:#&U]N M?``$$QD`(``+#,C#@(T,*,F`EPP8RX"V#+C+@/X,.$`"$R&`(0`A;&C"ABML M>,:&;&P8QX:*;/C(AI1LV,N&$R@P$08R`M!!C3;4N$.-0-3(28VAU&A*C;_4 M2$R-R=1X3HT/+#`1!4[:&"5,L@"`3P!5(E"$''*\(0<(+8`001)NV!$&&VF0 M`0(<8<@11AMET%&&'!"0:2:::IJ1!AMEN/%F&1K8>6:::X9!!QH@S`%'&6.D MH><8AJ;QAAL1./$&"'KRF>BBC>I9!AD3&+%G&2"0\489EK+JZ:AUG(`IG&U[F444BY<0`C":M"%#E+UX,X,$5OTSDP!7"0J$)-`Y4 MJ4D;U0*@R1W&`K"($03T`%,='R"K++,8/AOMM-EJ0D6[W%:9CBL`]``1N>8N M^\L&`*@+C+346ONNM?$"D(XB];95AP?Y,LM"O]#^RZ[`\':[SAD]'+9PP[\< M`?&Z`6L[L+8%KT-$#Z=MG*R^67PL<"BA[;%5CD(.WH0XPZ[:UM&\'40L/8_WBX>N"EU;#*('ZP$ ML/7Q`/R"2`#/?AWV%9KX84"5<*ORO"H)_*'#^`'00+;[7/N.Q#0!X^P?2E'88`;C` M!0'@0@!T\#1@X4(*`B!6MP+!#A!JC6M>\\,KQ$8VLVD";55JA"]H(@/1$SA%4\D!Q*4Z(IU3,,8!G#`1-#XA8G\(A0^3"$.N\?`!`###V>0 MH2OZ84`U+DL3.HSA#&LH1Q;"!`IOC.,0N>>]*N6.@4!DX"_\.+8BOG"'B_P; M(N&8/16*KI$N#,/JUF$(4*B1BX#HA1JY4(<-`,(':@R`'2@P20`LRY0`V!L4 M-*D)40J2AC;TY-@.^8L>=G*.H$3"(X_5QF6UT(C'&D4KNZ5!=%!'4CP M2C4*H`X=`,4#7&C%*NVM!1)!Y#HM28H'J+.;ORA%'#6QP"K5(0*P^.9"7=A0 M\"5-&(=)7P#0$(`60`T7=:!:MZY6AQ-V+9.6A&'UAD&`8W[RFGXH`!H'`)%? M%*.FA;1FE>SH!P>\DJ?M.X`FT<&%?,/%#`I:Z@WVL M0Z<&((```G`,(ZP")DC<6^!6P0YJ1#JQH`KA:`5QH`(G2@I1<$\$<(.)1DW5+B/]8A@5\$(`"U MO2W0JJ3;"$YP&"BHPAS"<(8RZ``$($!#&<*@IBVTH`M;0`,=L.N&.K2A"R#8 M`IL.U85,]>E/FI@(^,I!0@`$0!-KN*T=]\DQ!*0Q8CVC&,&"!A&B&>T8!JBL MC'8Z5C2*%0!HS"@`9`B`?QC2A4JX[2\:0-M*NE"F:'RMMN);)7%E=@#IV`6" M#?#:UL)2`"VHPPT$*@"Y@J.NL`/![%B'AAG#@@XSUD1?,ZN`"5<8'=OHQSKL M8,H6?PT8,#9=C36A.M/AF,FKTW'PZ)`#%LL5%$EFG8RA?-?;`8^O4X[`*RE< M@#GTF,++0D@BW#=VRHV9QT18H MH,,6F_ZMON:Y"C,/@!9%=:$K/=KK2$, MH$I2@$(H*IL+!P3@'NG(1!:VL(-I_,$`?%C`#H)A!Z5:Q-14P`<:"]#3B3@S MP-("1K>($1Q&"&,4ATF$!2PBK%$\I-X)$``ZW-`/2M,!Q#Q]);D_G(Y\!"`4 M#P&"O070:SJ0`-C+(H8/#A,(J@*@:[A`GK0NT:X#R`P`ZY`JK"5.<8MC7..: MX+BU/$YL`"!<`"0'@`D2@1D3(Y4.9'CE@>O0A9?O(,`"^,,3?`[T.HR@83&O M^&&Z!K)V8:OE-$/ZQ`&@](OC=V(B^_A7QSW6H\)V"SJ'+16(7ED_+`$=>."' MOX^^LBLDW>17A]G3<3NS$$B]Y$N/N\\^[G6"-RL4^?YY9?N0`L`+0.'YCCG& MT:T)=5^CS=M@C0``NR?B;L@GH@`SKP+,V_WN>%\^[)D].S/V ML7:I3Z3J3'^9T[5N][9+_/5P;[I^Z:YYTH\"0/*6T>UE+GG*3T3>$$G'/`[M M@YN#F!(`0/V_#[9:'^0;`'\`,2"JGV_IL?U]WG<_7)#7'OP^P'W>=:^M MN9=_^)&??.DM;Y%FO9/Q\EAW6`%@?,M#Q/!(,`KYE@YV\`^]5@>_!FN:X`:S MQGM((RS^524`H`N\$`".H`V,8`!>0`"+('D3``"Q0`#3@`Z,(`T#\&YB0`"C M8`8$8`)P!``M0!"CH`8$`&"6T0W\YP!P4(,&(`<$(`XY2`?&8P"4(%8S``RC M``8J2`8J2!FCP`8JR` M0`A@:`"&<(4C4(9=B`AIJ`A72`)NZ`&,D(:.<(5U4(>DE8:20``>X``?H`OI M$`!86`);J`OP8(@C@(@AH`N^A0LDX(@?@`NSY0%0@(FXP`W]`@4.@`[8D`"? M2`0*8(G*DHF[Q(D.X(GH0`RBB`XUH`#+``!'J`P088FTQ8J#4(HKPXIZH``> M4`P6\(6'N(4?$(P6@(:71HG("(>XT(C&B(QW*(G,*(Q]B%*4&`IX0``+8`!Z M0`!TD`*[<`H!@`XDX')V0`#H\#"[8`OEB`$N]XWHP$&PH`/H\`0NMXWH\`(` ML`N[4(XPL0PNH`@'H`"W9@#H@`,`,`3K,`_#$`MD@`[@$0L*@`YU1@`R0`[V M$`\$4#OHX`$`@`6*0`S#``4CB0XP@050$(+2@`[HT!980`(/T)$\H`-R(`#? MD46T8`!;.`Q24`=N0`=I`">NPB5>`@(```*&@I0NT``RL@^#P&Y8$`CG\`%4 M=PR6$'W\D`-S,`"_\`__<`6T0`5;N`CL``A.8`$!@`5;D`5:X`5?T`4?<`#/ M@`O(``#3M@Y*A3PSD`PSL`T4:(':L`C1L`#3H%DKX`$;.`CK``&.H($M*'`` M,`QTT``F\)@6('.2.0QU`'K_X`$6,0KIF`@.L(U=^(W$X`$^R`C`L`"4.0%' M.`H^.`I"6(57*`,^!`4&,`7+\)@;:`*;60<+8`+C-A$F\`\N8!&AD(ZTP`1; M&`I6"&!6.!'+,`@^,)UU$`#+`)T$D`YG\`^+0`\VX`A$(``FL`.B]P<'P`<4 M<)X%(`@<]B``[@`P^N`C!L`C3(*F4:JDM&0[:B0[/$`"BN@[QR:.ON@*QJ@US M0`3,6JEUT`[HD`:?Z@R+\`V)2:<.<*>\ZJO`J@W"*@YZW>@P:0^82X,5 M1Q##4+Q0.`<",`/@>0^!8`X#%0WOH+W<^PX#X`.IZP,L"+=&J[IWB@"TRX28 MJ[C\4P+9JP[1`+_R^Y`B*`R+H`R!$`[P\`^!(`X#M0#!,`S\D*2,H`U;B@`V M4`QW0`"LH`J*@`PRT`[S0`H7>*8#S`T%G,!WH`!;:@`VL`A/P,`ZP&T"H`C! MX,`0+,$4K`W*("-:RJ0MJ`@%D)$63,`&S*0,H,$(((<9^<%/8``+D`S9EPLP M,0#QL`+!(`<3``0^S(W)T`?3FPS;EJ'(N@[3"PRJL`C(,,$5#"`7G,%,BL`* M',,-$,&L8`(`4&8F:@P%\`\F;`_0,`#Y<`0/S,4L?!@7[`$ZO*4$H`@,$,$F MH`@5(`/VL`+1(`<8\#=!3`<3(`1&<`118`57,`^F\`5>D`5T8`!`H`1U$`]' M^`'*X,4VO,O`C"G,5;O,(M^C1FV5X"@&=BHS4*@'&" M900&H$R?6`[^H#4.T#6?V`'_P&"$A,U=@Z$&D'%F\XG&X`^?F#CJ?`48B@"? M2`A(6@XLR@#2S`[4_#P6X0=#8,UNYP?9[$U0\"T(X,WHL`C^@,[7C-!=P]`# MP,V[I'&?&`?RC`XT5,_NS(HNL,\L*LH8?,-_D,S"^L%?T,?/$,$R``SSX,#+ M,,&Q``(JL`PJ\`PS7<$6L30"@ MW0KW``TC0-KB@`^H;V#<:=G=N@/0^GD,M?C-*K MW=JC_0JU/-NY?`4#C`T+(`U]T`#W,`WW(`V#,`P!,`C2P#HMH`J^\`4)$`L) MX`([0`4)>@!WP`#JS0%S<`"#8`P$X`_)4`?LX`_!``LOX`_`X`(KP`$NL`'L M/0?UX`(#0.`3P-[U/C4@\"T.L`A6``%?\V('@`Y'Z@&@:P$?4**H;@#?P@`!Y`=K M*@P[H`RZ?K_;!L7(R@^J@,1T@`!1H,6P``(SG043_`&+P,_*X,\UBLV!7,;M M<`3C,+*`T`,@8+)P?@\O^0\WN>T4O@).H``T+@U:\ZJ06]+>P@UZC-MCS`]' MN`JX``O7@._;MPKWO@J,501TL`JLB>^_L``$CPS^#@S-!@!%S0H\\`2M#`M/ M\,"S3`HQK0J@#"!(S<',3+GX^<%'X.Y%D,/,;**)4`0.<(15BO)%H``M/(&Q M<`WK@`"Z(`LT/P"Z,`O7@-1X:Z4],/-T(`$]@/.5V0/Z7IG220!F8'Y2X*,` MH`4L7[GFF?(NKP"[4!!,E5FO>@Q6JN]GZO/H8)4FBPXQH.%9VMA-B@YJ)++K M*'->+P!@?Q@F$`A0+/0.4/=0;/0&L/1G,)F[0`$R9_?&<@V:M;CQ\`^[@!%= MTS7'F0$L.P"V^1Z7*^\)W*1]";E8V`.$+_0-``L"\`\%0/@\3P<"0`L\``A] M,!!TD`"-4`4PL(5RL`2?APN\,EG M6N-]N0B_+P!"L(4ML'V#H`T`L*OK?K_\H_Y8V/XAT`B5L'VYL'WJ3PL_L(72 M2^/;L`/8T"J`\/\`H`'_QI#RH*PK``VY`);XS_Y;F/X=0`M`T).U"!`$`"SB MYL$&L3\$3!2KPL#$HB8)%W6@]:-9"#D03"0JHF`&,!/'BB```."#LH`@.9)< MYVY@P8,)%S9\B,#A1"`6Y1Q8$8S.`%QE`*0<6?*D0((&$2IDZ+!)38FT<%X4 MX'$H29,!!R:-V&'0/@)V"-#R8=&C41.!^@B(=:U.AD$^*@6L@\&+!P-7''9Y M6D6!"6)]&/PS=\R`7#0`ANW01J>`"44!\`V+XL&*(R_^B/G1IW$O7A/_NE!8 M`,SG*+F:.2_:Z[#OW\!>/F197&<9+`WYAGGY?M. MM'=PE47L-!M`!^)?G0OH#/$/#QK0T<`0/#10!SWHW#"@`G5@APX;H6D%DW!K MM44!7'(!4(<"XW6!`6EU&&`4+HBAMTX]]^7GQWY"^-<`+`V@,\8_L"B`CA?_ MH!-)A=QLA2%Q=6QXG(<@YA7:B,"4>")U*K*(GV8,H`,)`/[444(Q=B`P0S+H MN.)/@G0X0"`="@P1A!&($+"#$P;4L4B+6&'``M+XA$X&??J!@`>. M>.`%`?RH$LD\I'R@IP``S"`-.OQ.LHPC!LS["R!"*=*`#.T<,<,VXR1@`B`] M1#O`$>+C!CSLJ,YT M&#"$=0&(4X]U'7RP2#EZCM3RRP"@4X5`1@#"M0>`\*-#D3R$(8<`+(#`0A!" MT^*`18#X(0@`C=&R`SI+"(2V46LCS!\`M.2`C@V.ZQE0Y&TO0+D.Z(20N5$> M<&E`(W[0+"HK//RQ-RQ_8/(IOM>J\L$P,5M!\P<6?1`U>L-HI<@1R>IM``]Z MW,$W",KP"PD$&@A(14%$+E!!4P`E)24E!@X``&(0)@2COT4H```,>UI`8M*G M@8(](`86/`BB84,D18(0<5$$2Y&&+5HT'/(&3AXY:F;;MZ0K.G&#.2S2&\[E*J8+6@0=LK(F9-FK&'3BIGZ!BZ\ MC4Y()@@798@TR%^KKYW1F6%\M?&&DN5&3''#L519X4SD6 MGUN_!3=<0@>(U]`<:!S&!EH01N9&8L>U%888;Z3GEGK&@>48A%-Y%H9/&-K8 MEG.>18<8@R"(:%5',+T!7V\=UG??#/H19%1A5M!()`PQN``##%K"`()&6#81 MA!0L%78%2'28!=8<<)0Q1FD*^@234WQM2$031X`@A!!3A#?E?@$!FI"4_#FT M5!AH;=%"%UN,Q*@;=;31!0A;P%$6&ETDR,97PS$%R0E1&HG&ER!P5,>*3?U& MW(:'HJ4D6TQIRA0*D+:!DEQN#`@)!D:2I)&IJ)JA*JQIX<7&>\3*6E*MMTZE M*Z]3(J611KF><2&Q+\8H64(RA!JM0T7@<1\1^BG0*@AHM"2K;H)AM!-H22WA.N"K&RH+B6U_FEL&HFG9T%0:F[(K[;MLRDLO4S]Y!D*^SM[$ M;[T(>QIBP.>V0(?!ZW;JD$9$P.MP7Y9)EUA;$9-DL+XW0;)`N1VC<JG&P:]X)P,\P)*>!MH0TYH5T9.C04Q,I,&;C;BK)M.)^'Q$EE M678DA3'&=GLQ-C8;,)4&*V-]L5WDGPP8R+9H8,E00PT`SB2V6>O-R)>^DQF! M6!ULI[<>@Q8O>9Z?#$'"P-;U@>#UL5.-P48=6`V-AUYUHG'>?'&585]"$BQ- M%`-*?=[DAY.C;%RQK)%&QTU3O462-856V(M))10]*`Z0E-8*T<8H0A(`A\H#LP6BV@00,(/DC> M4TV[94D''B3MRKWCJ=_4.AUAQ+[A872P';)$\+WP"4@$?7$#6M:0G3&LX3U+ MBA71)/:VQC%@?=>#3QGHET"T"'!#C)%8AEHDP4V!0`1W>)]=RB`_^B&P(:83 M"*$,0H4L0.$BZ'H*&>``'1#T``1>*-&)HK<#@]1&B,ZAB@]Q4H0A/$$*1#`B M)";`0[[\*VI(K&(1%=`]-N2J-E&;`A6DD`0G'&$+=JM!%[;8O9J^[A%@UAA3(8Z7V&PJ$,M+K**8,SAB5Q) M20-4,0:KE.4.H?-'I,7Q,DZ@HQWQN$@S*.R7Z_IC)YD"RES]<79T,`TFDU(1 M*O3R*[&<8QWO^,R.Q%((3W@"$R+BA#]6ZUH-B1HXQ4G./XKEB]-:-(A19+@0@T!!"D\80A&(4`5(@D`]OY'#%^8P+UI%"J$"O6,*MBB$.I;1 MB`VY`AGIB((3%$$.*275"6:*TU(%80H7J14(GF"$1>(R:CI-`AV9X(2>)L$- M=MA1&CRHM^>I9ZA_E`%"HSK5JI[@JEF5"UJ6"=9%SF"L.RT"5:V*5:URM3QL M@*GX8PI>7U3@L[RU]K@3;!2E:M9C9"QN@P(;"?% MPW,:^R^#0;:L/74:2;YR&)&H1G1[R<-0B\I'/Q85"4%@`A50$(,4&*2UI3P( M1S6J`"-4P0E#H$(2GN`$`+EI#5]8)@J,*;)FE@$EZ@SG/.NI@%-*P2$)2Z>> MLD!'RO!)G%7H+G-WXT[MW`2B"IUH;<020)A&=*`,G69,)VJ0FA[AIEQLB&N. MF]R,*4P'/QQC%8K`QH:P][P_A$&!+V,$$&2W?5ZB`D29*45#6%-]['3V&R?HG4\`U`OE=(H7N()AAIC+\]Y*6&VUILNR=MU/WR.:,MG M?/F+=#[TI0^#\,M][+=UN`(V&FP%?#2D(RWI101$AR]8JCYSP&RBTV<.YBS1 MADKZ=2#,E%`2]4<-%5#OM5`*,'FX!P*`1P(8)P0"H)W0#2'0-M7`]QP!9 M*(9\5'5P1X9YQ`"GQ`0":%$LD#`L'@-!@5=!2PDD6"\2(='2%:2U5-5,`?B`S4-<2Z*PBB.L@6U,BF5[ MP5D)`%NRA0+)IV;R-VT(IV$*5E0O6&96N&!3R$P_Q&M7>'?VJ)#AIG$$.8`V MQHWU,07005ODIXMHL6LBN&"(UXV'@2H:%HZW>(0<6852,&`\YG1JJ(,MQF1= M5Q)J*`-%5EQ;`&--=H)*AH%;)H<,P'_^UU4!2(91F(Q02$D,X)(#N`4Z:&0Y MR9,GX),SF8@#9Y-LF)/AIF1N"(=;)D4/$'Q?%XCH1H:3"`(U8'9&^`!"^7_# M490:.&-("9;B*`$8EQ8#F$<2D)(>^81@V5K^.$G@XI>U)(X)<)<6.1P8*0?\ MV',)T)9$:96<^"_5B(L@T((@D)*6N$B&>6R,H6R=LEP/Z9AMAIET)F:L5P;$ M%WI`F8E+V)@;=X1[0`))T`)]4"I(L'[9-WX[``*SF00KL!`DUF;#%4)UP`8D M08D@P(',QP"NV5*M%IL)<%13D`1'4%709`;NIWFAQV._:9M,A%2SE9TSY9NT M&9Q12)Q/8)S(.8F5&'G."50S^)II&9@@F8ME@$]HL9FU!$GB28QN8#N&5H$H MD%TJ``(R<`->TCZ[<1=9A3!JR7R]*)]*V%(V,*"']DX0R9`+Y@1%<`4HT"KD M!TMEUBH+9E`V-I"'5E`C21)EIJ(X`)>]%Q.J(Q'F*1$,%?9V:30\:11VG.V MM*4N`*0_9%!$VF`OF*,TFI!RV&,E@:)A&&\1.F.1V*)+E%W\F1`/0(XHX*10 MFBN3R0!S24EY.EA5Q:==>I2$68<[:I`K>87_DH;>%'QJ*I8HVCX)$Z>4A`!M MQHPW"I1Z:JA^BJA4R@#D.%>@^HB\Y8,^1J,O>*='V&8L^D9G::?P*8X/$*NH M4J)"NF-@Z:$@RJ=5U',/0*(_!*R\))>E2$D)$*AU:*O&RACYY-*P]%*V( M,JUMIJ:N*@&;:J/')8<5H*>MPJ6A2DD2P*R0$*Z$&J+G0ZZH*JBW9&,F"I;G M8JUD\*15A*R"B8S_J(TSZH*1RH)I6@;60H6N:@!="&^X2A(F5V\^FIX-MK!$ MZ*GK.JY]*J7*BJZD&E?LBBCNZIC$:CX>&W''JJS0-P4?%W`BRF/U6JPE2V(2 >JZMTNG#V68&8::1&:`!#P`2`%G#D:8HN8!`:`!H` ` end -- ..!csustan ->!polyslo!mdella | mdella@polyslo | Whatever I said doesn't ..!sdsu ---/ Marcos R. Della | (805) 543-0135 | mean diddly as I forgot ..!csun --/ 225 N. Chorro St / it even before finishing ..!dmsd -/ San Luis Obispo, CA 93401 / typing it all out!!! :-)