[comp.sources.atari.st] v04i014: fcat -- Fast "cat" for Gulam

koreth@panarthea.ebay.sun.com (Steven Grimm) (10/23/90)

Submitted-by: ui0t@dkauni2.bitnet (Thomas Koenig)
Posting-number: Volume 4, Issue 14
Archive-name: fcat

Here are the sources for fcat, a cat replacement - faster
than Gemini 1.1's and more bug - free than gulam's (I hope).

I wrote it for gcc; should be relatively easy to port to other
compilers, though.

Enjoy
Thomas Koenig
UI0T@DKAUNI2.BITNET
UI0T@IBM3090.RZ.UNI-KARLSRUHE.DE
----------------------------------------
table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 fcatsrc.zoo
M6D]/(#(N,# @07)C:&EV92X:  #<I\3]*@   -;___\"  $        !W*?$z
M_0(!^0@  '$   !0%8&^=I#6$   B @   $           !F8V%T+F,     y
M    "@!_H6,             0"DC*   7Z@ 869,&#HNQH#0 6+,&S<&Z91Qx
M<[ ,P31LRLP!0><-B#ETPK@A$T8.&1!OZM"!HQ)$G3EIW)P!$0:$F#IFS)21w
M0_ -3SIHRC10H&(@B*-(D08)*2<-B"E47 PM.G5@$)5H?"X$025KFS ;EU!Rv
MD^9,U:1H051) H,*$")+@E1QDD2&"R%)J#@I0N5L6J1KVP))(J3)#!@Y8+B0u
MHL7%W"0MXDIA,D5*%21%JIXE4G%K#!LN8BB.D2.Q9J(#';:!@W&GRSEE3C(\t
M,T:A%1 Q7,RX<?9LUS0;X<AY<T9.F#8@@(. PR;,F-C)W7 ,NKR.&#9I%))Ys
M\S6F5*(OA@X=$7,,FSID+/( 22;-&Q=H?(PO?SX]B/5TR*0W U^^ O(0U:<>r
M2$W)U-]\ :*GWAMSB!$3&0<J,-Y^,5G41!).H! &"V*DD!0*&O+0(0@_T+15q
MAQ.684:%3U%!Q!=(!.$$$4P4<10*,:20XHIN6"1%$5,4(845-GX( QXRP*"Dp
MCO]1V",(1C01Q!1+_&5$$%](0<033C"1Q8XL&O$$$T0$"05:)W#!Q0E@/DF$o
M%$D0:692)^C 9I,JLB@E%E#4Z 1:."[9IH]%!/$BEUXBA0(,3 XE$ A.6M0&n
M<&.X ,).P_'D4'H;J1 >GCQ:]$055'SQA!%?-%%$$T](D86B+<R0 Y,C1 K"m
M%7!24<070DK1*J MB$:KK3\:RJL4ODJ1%@K!YB@>J&$&04403*! ( L@R#&&l
MA]N!L =!PL5$AQG6YH<I"R*4, =#ZG+AA@@LO'&'&U^D008+!*:P PA<#/77k
MOP G)4<9=-0AAW0HB.NAMOOV <(=:+0&PJ*-2JC HV;4 1$=[DDGW!L=T9$'j
M'!9Y.I0=;]B;U!@JP7$0&BB,@49)(*B@[[./BDSR?CWQE)+/\X) Q+0U?ZISi
M;"I^1(<<=8Q!!PA?D!&2T-/N@/- <*3LAD0_>22O=!2U4?*G,M.LPM?UDF&Uh
MQ>*"T)T;"6]-DQRTL5 V3RJ4=(8=6W3!Y![^(@63'F5\\31:8=@1!D8<XO3%g
MX&4T;L87 X/$0D>4EQ'&O0-OSL(=3=$AD1LLK)A1YB"MG=0<6<EQ.%IFS#$Pf
M':HCU?:_,X^44>U'H:SR7RK<E)-K/8#@1!5,,,'[I7AP+=W=-:-M[_)#!P$Pe
M$2$M#_U?+@.UQ9Y]%N%$%]K/S--?F!+X?1!\^@G""B D2?[50GMTAT5KN"'Od
MPUD];%%)%BF1R120E#2886)%T9L=0-"#XJ4)!B=@TK^D=Y+BB: @!Q'!\LK c
M!M@$+BT49&#-% B"M3EJ($P@V DV$I(U6 0H%G'0&<Z@D:?)3&-K0,D!Q=8&b
MG^3!?PT1"0AH^#0S:*4FPM,)WCYU0A @87\R3,Y&TO T 7XJ*8E;'!M$:*TTa
M$,YP'FI"&-C AC>,@5DY,B$!;7= #2D.(_>)GPI^%*0A%4&"5I(6M5 @ B> z
M[%+ZJ\,9T."V,O10#GEP%[Q&5:I3I6I5K<K"S2R6%.$]SHL6*5X6X=@"$-!1y
M2$12XZ."0$8S=@:&-L&)$BTU0"R^<8O%Z^(7Z1#&,9;QC):$W"0+V,9-;I$'x
M(&#4!]%RI6E5JX]_G$A*!EG(0R;R72Q@I*E0I2I6N6J2PTPB\2;FNY/8C":Ow
M7!X*NNDA(\ F/R%!@0FP%X9=(L62E7M:\7*)25$.9 H2@<-TAB-(0J)2;W40v
MF]RP Y*B#1-B$F-6"_2F$!\$$X]' =P:TQ*[V8G0G"N2 TA0H((5K$"!+(C2u
ME);@SK08<&(5)=A]A#E1@!5SCR(P@L3T5\24C 1>*:6E&O]%H#' (0\HZ!X:t
M6) WNMD!FQ=#X1O>H,\WV,$UMEP.@V!R'8N4 0\N<P-,'M*I%R!EF$E!:$90s
M*CN5^J '+/V71 -V%):MY&5!?5E) =;3@\05*"Q@IPND%H8OA*T,<\6=2,@Pr
MUN(9@:D3N>M0BW6H+DER>?\R7>'B*4*]\O62A+/GK2(V5A@.3(I*P\@6Y\ =q
M@D5,)M&9CD4DRQ&/=.Y>D/((%0W:TG^)U2(HD"SJGN;0M+)5HDV4@N9.HC&.p
M;7$B)WG# 5FK%6TN$:QLQ=QK17BA#.DVGI+;;6#9>E(42'>X(.@M1-D:4>B2o
M]RC3->QK49 [PD:NM9GS7"J')X?MGC<Y;9QN"(KWW<V-][[EK2V /T3.CX1Kn
M:^1*W]+0500Y9"I;PXW)3-0%+Z':=\!0TF.U%"P'%N J+[OJ5:LN3%Z'/:J[m
M^N7O&^)+!@\-T+SGA6<-12CC@G;RM9 %\'5G7+P=VQC"F\MQP$P\D.[V]R3Bl
MI6T3D\!"ZCB7('4@8XFZ,I&'A<XBLTT)0F@[X.[66)[%\^U]UXKAHX".BJ.[k
MZ)DE@@*HO"A&,ZH1MNA)N#FK<B<DYFX;UYSF_<X7LX"%\8!?>LPU6]7!/H'7j
MAW5UK&0AM<Q'^3*-'0<Y(0.,R/B=F*0;^% E"S@MF+XM2ENSV_!V^L6?!E2!i
MC6 >!I6!O8/-2)Z/DM.+SJ%'S4/!A4/-6=S6^JR,\G12>)W0%BR4;@T]-1.3h
M"@(FJ_:S(!'M1TH+% F#("-F>%I,5#M?)9;H"E=.SM.TS,HKLE'3E,8D"#HIg
M:?$.D\QIX7.5#6OH-KL(1C*B41'L/#G(K?O/V.TVGBW=77E+Q\]TM@B['1?/f
M_^;1F'P$-Q4/G2E%YRK$R!KQ3I&":2^GFW#_;K>RGR4P@AE,.C!86Q_HQ^0We
M-$<BW/ZK#KDM5((,!SDUD:S,!]C-AK0,KM!3@86' N^/8-)PUYY(^<PFD=5Ld
M_"@9D4[Q"!1UQ<[5B#SQKB'U6;R:PR_J_X[!OIJNS[,NYV4@,($):D9V$/A9c
M3&0RDZ AG12ULWWK;N_!F^($I"*<:>Q;-[;#C_+TFFE]->_#C8<<R 4(JOQ9b
M 0'<I\3] @&Z"@  0 D  % 5@;XU.P,"  !Z 0   0           &9C870Na
M;6%N       * '\WB             ! *2,H  "=!&E2!(2.!@I * 1A9DP8z
M.B!:@!CSQHU#.F7</"S#, V;,G,0(IR2Q<D3*%.23#&(<"'#BR"VF/$(LDM,y
M'S,_=A&I@$B1*4.D)(%")<D3)RP3+C0"DZ+%C1HQS@&1AL[4G!S#R#E3ITU&x
MJR#"N"$# HZ<-&[ TD%3I@T(.F] S*$CEHQ6,BT7OJE#!PY?%PJ/%&E"Y,E*w
MB7<\DG$HA\Q4%"K"C@7Q(T58.1SGU($#YXT<C&0 )S$#PDU<K%.UELFK< Z<v
M,F/2S"Q#AL7+AR#(O %9^LU:M&=V4(6HF[=IB)C#D#4CYXW;N77O4G7CEXX+u
MGE>"2'&2Q,F1E0>5*BPBI[D<$%[GS ESAK?JLF?3TGX;%TW=CR"<R $L0[ALt
M$'GL!<(=8D$$%PC)D;566RRPAB!M:6 V!D15T?<66W*-@5E&(  &0A)N@-#$s
M9F:4P89MOTWE4(AB<*2;&QPEMM:%JXDWD7-MU.6@2W.4 5$9Y7F&U8UNA(=0r
M0-RGQ/T" ;,+   !"P  4!6 OCRS^P   +(    !            ;6%K969Iq
M;&4       H ?XRQ             $ I(R@  $> :!)F31DS:=B4 6'FC1R&p
M8\+080$B#(B(=$#(*0.'39@Q9=J4<9.QX<,C(=.X2=- 0<LA0T#T '%FS)B6o
M3X0HF2(3HD07;UX:81+D",^9+9Z :'$E#!LV+5N:P>B"#ATX('2 (($BY\X4n
M+1-PA9EBZ1N?=*I>W=I5YY2R7)D,+?HVJH*I/\]JQ9OVI@*Q*,BR'3+7:-D6m
M8]"Z\"N5:IJLBOT"%MSB+%\7CUL4B=PR(-RGQ/T"                    l
D                                             /R#k
 j
end