[comp.sys.ti] New from Clint Pulley - TI Encode/Decode

dave@compnect.UUCP (Dave Ratcliffe) (07/19/90)

Following is a new release from Clint Pulley. This is TID_ENC, a program
to convert binary code to hexadecimal code for transfer over systems
like uunet, bitnet, internet, etc. This program differes from a recent
release in that it does it all with one program, both encode AND decode.

Since I don't know how many of y'all have any versions of this, I am
shipping this as a UUENCODE file. If you don't have UUDECODE in your
system, I can re-post using this program to encode itself (the way Clint
sent it to me). If you want it that way, just ship me Email.  

A companion version for the Geneve will be posted immedately following
this. Encoded files from BOTH programs are compatible. First the .sig
for Email path.. then the archived and uuencoded file:

[------: Dave Ratcliffe :--------:-: 2832 Croyden Rd. Harrisburg Pa. 17104 :-] 
:   dave@compnect.uucp    -or-   :           The Data Factory BBS            :
: uunet!wa3wbu!compnect!dave -or-:   Data: (717)657-4997 - (717)657-4992     :
:   compnect!dave@uunet.UU.NET   :...........................................]
[........use what works..........]


- - - - - - - - - - - - - - - Snippety Snip - - - - - - - - - - - - - - -

begin 644 tid_enc.arc
M!U1)1DE,15,`&@("`(`T`,I3RE/*4\I3RE/*4\I3RE/*4\I3RE/*4\I3RE/*
M4\I3RE/*4\I3RE/*4\I3RE/*4\I3RE/*4\I3RE/*4\I3RE/*4\I3RE/*4\I3
MRE/*4\I3RE/*4\I3RE/*4\I3RE/*4\I3RE/*4\I3RE/*4\I3RE.`%0DD4B""
M#0<(@``!L@0H`0*"%\B$\AP9(`,``IA%`%0Z/1^02&12.22632>42F52N62V
M720BDXB"&%!H@*``,@%J`S`)P(,0`<0*QU`90*QV,@`*`R`(`&`*T96/QH&!
M,``#,&JU<!($B$4+!("."B4XX.@!`$0/H!6UA5)^-RK5@!!9^4X1%JE"`#,`
M04RX4(0`!A.">`0P*MV/]]MX#OY,,-`+]_O].OX=`<"Y5_CI_"`J&'.!9_$$
M!(O*M\!OX9!-`/\_O\"OX$A!F9P#/X!E(!9PO/YN!\*YP1/X>J,)YP0/X")A
MUXQ_@3F.(L95?O!_$D@DC.!Q_&TLB/.(9_!(I);.-Q_(Q*!'."3(&=C9S'@P
MT*#.`)_"E@A+.&8_C$``L6<'`_4.)$O'2']#A)*(/#^/]#@1)`:(10H`CR*4
M&C^/Y#C+((-(70HAPB$*(P`(8R`*/X[T.&D5PQ#(.``C&,TH"0P!EB@)3DAR
M$@"`@H3>`8CY!*$_Y%`8G"T/``@N``!!B`@R)"%R02B`2198`N2B<*L(I/E&
M52A%Y1BM-8$P9D<$I;`@H@1EXL0@F(!)DF8H)H!,!9+*0?I+*@?@0`21Q"F0
M2*#D</*'DLH@6H`?@$%T8PY#EH!)""E0O#000@&4;AC&\9!E'(+ZCJ&HQR"`
M)1S1T=@Q"X,$9$D;AP'4=``&D4HRC2NXWD$H!H`(*``(&9!0D$I`>FXH9M(\
MP@@*$2#2!@"2(FZN9G#P$P#D$`!)!!;0(``1)>DV8@&LD-YN*0/Y>F"=9D&"
M9YI`^R1!LRSI+N>4)2`B7BP(8!3.LF\R/`83C'*`H;S)PLQ`G7",*M+$L+PW
M#YUM`H;(L0(C"$B4S6%JR1HN8\,#L#)9&N,@)*PG"YFPX@+HM@`@%O^>1"!8
M`F(*0",IF02ID$R4YD%@!<+%S&A<T60A2Q4H6\RR9Q(!,$P0`72-1QH4@0/+
M4!8QH2M:$JU+6*(/M&!`[M0$K&MA'[(L:%"9!.TW4=0U*Q=4!,,@0`?7+#``
M`YDUT\)+*D(MYMX*K:!8"N+N,5^.`*4P0`$P@/U;&A.Q_(1:U`4-0Q?$+]W/
M=00,_G.>`C(NAZ.2\8OUB"B-2R1VR[$^DG6D@*JP(!I'.JQC$:O`@"@81R&,
M:!I'890I1T"A/K>MJX'=&1%%(4A/%(.@@$,81N&X;QT"`8QR&481T&4(!F&D
M;/LJQ'0^#X0A/$8/`\1D5QO'(:QI#<&<$`+H"/S!\$5^[^0`,I<$%%8Z;$W"
MG$,G).B_4[KT`FO8!`IUKLK6:R9.J4V`,"8)!L4J^80+]92MA?[!V7IE26+(
M83-$\II`$H`<$*V5BG%XN]F:_8,`!<N!`;Z013C$9,RA(3D&5E8=RS"&,,TH
M`&@Q#<3@J(<Q+;-!U;P:7'`,2.`J+:V')IY!XSMRSF`'P8@T*<:T*&#I,2<O
MV$4<6`Q*%./Q9D3$EKP@LD)><-8,I!%0EJ#R^HY0AA:DN.\)14`DB2,YTZ0@
MG0Z6\%&)\,!.0RAHGJ*T6)+`(%0#*'S$9!,\#`*<0C0$A-$2HTYR+>T\M5!@
MW]P*Q'"-.`@X<3@JI20O;TXV,SCY8QE%;&=RH"'+N9`F!&4(`),0N8FS&3D4
MY6"A"8!`:+H5O,MFDQ9V(BET-::4M&<K&W!"`BVF0+3=VPK1;HD()3=VGS`F
MZWQJ[66%A2:XUYL#8FR1;;0VIMD+PL+>-D%X(3:4A!82*QIT#.0)@<D(#J3(
M7%]QS2C(0,DF704&HRNB.LC(2&(%*.920<GL/:>X]Y\#XGR/M@`&2F3\%5JM
M(R[]X((`B!6!P#!XZGU4!E#(]``#]'[/X?T`JI*GE0!O#J&Y];Z`R/1>R]M[
MM-P0!W#"\)\;Y0X!R5$'4,=1`0!B#RI<F(0WHO3#H]6E=6'O/??#5]\SZ'U/
ML?=39^3^W^O_@#`.`M1X#P)?U5>EKY@T!E#&&L.8=0V@@#(\%\X90X/A#'6F
M``('T*A#E30$M50`6=?ZJ,,@/02AX!8^8-X;7JU$M0'@CK4&8BQ&<P-V`G+;
M1*%0+:B](8Z2+$Y(UWH10W4T#>&9X"M5;TU#+:NT-G+&6E>$J$-SS@Y/KM%(
M0?4D5O`'A&P-25B*LU1#*'@.%C+M5.#("VY(+:]OL#>&ZY;U2.N<:T$ZAZT0
MF1CB;#=/,WEO`_`+0H'S@@0C";B%J_#"[]+/OXUJ_JU8N+C2TGG"H``88%H7
M?N;%_EO87%;@)<8#\.`^'$#Y;&!,#8(P4W):(3K\X>"9A+$"X\`"MPR#S$^-
M,;Q.P"M@`>)\4XKQ/B[!>#10X/8UC5A>$UK9&Q:L3!."U)9-:"W<*C4`J8A;
MX!1K#6@J,:"I/Z%[;EHMC86V7"BPQ_C?Q>%H"`[<E9,PCD_'^.8.Y-Q_B(0&
M*<XYUQIC;"BV,19[OYGE,^?P?:!QCC/"$V-"91B;%3#&@\\84T!E8+K"!A13
M2\*X/T2A5ATU#J.$L'XXBN!)$I9L8Y!`#2G>(+L$%GZ@CBG-.NM+G!N#"&T,
MH/S!Z?2C?[8@!-83'`F!78]_H11F`G,G*X#G!`$`*)@80&!A`.`*,C:^V8B;
M-T+K?8N%`Q`^9NI)B0B`"!;&"/MB0BP"!7&"<P*Y.A6!V)\(,K!1RD@`%:`H
M`@P`"#!+@5L``!69B``N/\#<8!`@/``!8>_".%%='AQ,>X!@@%*%:`PHPKQ=
M%.`"/``@(`0@<+Z-@``@W;```./3D_*2G"L#P`(!P/Q_#'9F*`83,P5``F<8
M,#PPX%@L*P,,)@`@6@`9^`$58VBV@``D,P&(!F=#],0*$,1E4@BL&AJ<OPL!
MA`3`"`82'7QM:G*,*X8P`@@A?@6($+(``)C#*Z$[B8]N0BZ+&(,/@!PP%$VC
MR<A1?N`EPWV.`PN^2,0+W:`I2BEKSAI5P"T*2I*H["!0%D%X3@4F#(<-`$`F
M(;C`])Z8OH!DHA;Y8)ST_K_3[M(]Z008<P$LS!`(,`0Q`0<?Y7RT.8P`=C`"
M7XK@`-O%F(``&K?:40HB"!]!D"`$?I`6`8!`!WT@(FU`7]("IM0"_@`&UC[B
MW0$&5W:E/=OT@-#Y`@/OZ0$A[`0'Q](#8\P(#U^D!0>#7@P`"`P@/@"`"&[8
M`8`P"H!F[@RR9PI`PB46](#2>8#P`6\W`V"@P`20!P00P`B`$P"@!P0@/``@
MP@"`%0`0!1A`20%3-G"8%@6W`W!6[6\0P0X`K0U&\Q"H)FT7[`6P!H"WQ"W`
M@@.Q=@!`4(-`H';@P@`2UG<"#!71@P&@`W(0'"DA70#7$P!RW@"A:5LPH`KX
M5FM0@0&G$P_`!TR@]@P0;D"S/```4`PB?(2G;P@866RQ70FG$S/`R`$"X0@2
MXP%C/PA(;P$S)PA`!H<H80$`ZPW2^(8'*@!`%@YA:1&0U2^'!HCV5R4``@P`
M2!6852DG!8:T"PT`=2W(57\2D@``I0HP40_QE"$@)`@P$!G"$@M0U0A!E0_2
M$@Y@Q0T(M0``C0J``&;QE1'RQ#@PP!"@`PP``@!P``QQ?@KG?G*`%`V``0K@
MN`!0AW,P"`P`H'@``@0A@P%FT0AP``9`%@`Q58V0$"Z8YPR`%@!0!`QQ:07P
M(',P#'CP`GCP``$`Y8[`N(^7!150@P=6[83W<X@`#1:1!HTHU`(0#`B```K@
MOH*(-`((TY"`@1'0%@)X-@K@P`80X`K@O`@9)`N@%`!`J)&0O(TP$`'XT@OA
M:0K@D(WY)0H#/'*`&`8).@(0$).9.9$Y(0&@]@P`0A3A!@8(2@P`!0`@P8$P
MKP^`P@QP$"W8=7$P#7`PP`8(TPP`P08)70OI-PO()`8`P0R``Y&@6Q70#)69
M-PO@R``I7I797)2``!!I4'(0^&\Q70'Q"Q;0`07`()#X^9-PP"Z0@`@`%`MG
M"A2I:SE1#0!@P@V``@C$-YE)E@`@$``'+`C!6``81@6PP(FPP(;&%PL`=ICW
M?@70P`KD"X^X_8W0TGNP=83I$P_S.R=BD@P`@@$P_0`I$Q=0\1B'-II$"WK`
M`A#0#YIB40!@`7<```#P"@00X)T!0247*(8GK)SP.)70O)09&0PH!XFYNG@W
M-Q#86P@',)Y@K`J``A@P,'P0L`OR00L%OFJRD7@P@GDBE2G@<@<@/06!'@L`
MS`L`V`L`Y`L'&1"P<!"@'!(0&PE!"@':$0N!"@'J$0W!"I?Q'P`0&P71"@<@
M%`=0$`=P$@80%@4@!`52-0`@20!03P`0:2XQ(Q3@L`Q"=@!0B)P240%3G0<`
MP`F0%@^9QP`@T0,'4P"8_`L3/`Q0F`!`L0%(Z@T08`L0%:2`P`<PD`1(IQ=0
M^P$"ZPP0\`10V@05&X1P``T`4#5P!`Q(+@"@T`<`"0@0`@(0_PT`$86P@0``
M"0%7`PQ`.`Q0H40@]`"@A`R*40&@R`*16`L0&`P40`H`M`G'!11@M`>`$P$I
M\!C',P%*9G":=`Q@00R@:16'3@!`Z1&13@M`8A2G9(H:B070PH;()0":EPV'
M]HE'9ZDP>`!`V65ZM0%85`G`K0[FZJDZN0+@!JC0"@$0#0$P"0P*C8!HU:=(
M3`!0J:J&M2XW`FM0`9R*O0$P#JTX;1@X\ZU@@0!0@0RJ9P"JI:ITR@W0VA#0
M!7N0`IZP!8\B07Z@7:]'":_!S*LZPC@$0&JP<&M*N$NYS0!(3!71&0$P#16:
MY:U9$:V1&0@*V@"BW+%X!IK:ICD`P:Y1;:YX^8E(5*X@S:\'K(!JJJWA8PLV
MC;!&Q$5&JVK0SJR`M*N0*(E&`*F`$P(;(Y\'":GJ=)KB47@K,0%G9Z^`0@$0
M`0P`@:Y1?8;!?9OI/@&+20/@%K#0`0H`0@U`0F5S/*_J]2=K6FT;`8JB40X+
M,:M$"P%;!9SI^;":R0$`Z8HP!(I0$P!J=$,0>()@$0X']D,0FK@0VVQRDA0K
M;JM0$`J+B[,JX;.AMK#`@`@8*+49S1?:C0!G,P$+0JYY1T,Q6;)JX+*+/PL:
MP9SK=@"YS8G*C;)!6(^168UYGXH0X*CQ8PL0&JD8;0"0L$>JDWL*X%X*O;JK
M/JN0`PTJC:]F[`72=K;[R'VHE*MZO;H*J(U7<*X'9J.[Q["@!ZEC#G4JX&%Z
MF&5PBX+B6C"0A22UNPSHB*1`!`6K([I'*`#'"@T*I@!+)A@R5'+05G,[_8![
ML!:0L3.Q3G`G*"@PPY!`]``@@P80``&I3@@P>I@``@0W<@V``YGVT:ZS7K0Z
MMPP9`X/P"7W0`@B240%`!@"@&0P@::.*0KW`RX-`3@!`W@P@.YP3`S.P!0WB
MB:/`+K2PQPFP!@7B00M0+%#VU"Q+-6QS:"7@M<1R_6M&Q$-[!VM*&`E`(HQA
M#@(P22$A#@M:=L70``%*X,90J@-&VVW0PE#C80"6V250M02"T,=$6YY@N`EL
M=BTVXRW@)29P0C5VQR58.,?#2,=VXR9PRC`P$+@VU@H,=,?,?&/\@&T`#\A`
M",A@(,=,B,?6E,B\C0PLE,?BXP+2VJT2W@`<<V/,D<=<G"B&LDKPM0/,I&E"
MWI\FT)3BXP,,<P/BB2XP(,OLMD'22PN`F#`P!S50&LA\KB7@N`[#`\<P1LQ,
MS\R`SLRB>\GL?`$`\95C30M<U,L&/ZRVT,$\SC+\=,QLT0SL<P0LU4<<Q\R3
M54^LDLL,W<W\L\[VW`R,;@!L<,<@"`M0.L2`3,<V:,G<KD6P$`2]!5^]`V<=
M!:.R124V<0$`3,=@.M!P$`1S%=`]#D<0N0JB=0$`/-'M!-`@3$+"7@N0^"Z`
M$*R\Z=*`M=*D34?`G-+=+Q?-,M("WH[M(=+D4P$!8@78?29PX@MB'@8PMZ$`
M<PMP)HZ`MS^@;PMZ`P=0MRN`>!"C:]'@2LQ@OLTM`@0,=L@CD,Z<[\G`0#?(
M)0#SER4P$[#<G"AM8M'LX@M=:B>05((-=<=@0&YS-\T\^<T\=M)D@@$<=@1@
M!LG`1LV0"\F8.-'F*B><C`S@$`[]?=BM=\V<F$?\FPM6:MGU_LH=E0Z]A$S=
MB-F=C#5=CMG3MLP22MD\C0[QB`M0;HFIR$30.29V3+!LN"9P6F)[:\5H0"50
MN`O#2-QBT-QD6W9KA#+]R4=&Z+'IT@``'L5F/Q?,NL;&WFV`&,W<JMQ0Z-U\
MI0`,IVT*2RXX*4KPN-XL_&WVVHFV/P*\J+#=[MW330N`ZMX\H`G,\LV#53.Z
MW5^]^0.FC:MRS\3"4<;FWP"5`F!P**>-Q0ZLCC%=[-R@ZN!0P@"=MTAFSPK3
M50$MV^"VV,<02"W@+3<N"4AK-#-V"@QL=;!FQRV--].44RD@P0[D"[1RZ0!@
MN@,@!`Q7!0/`1P`@(F&@`@@@``.@&A;>1EX`P@W0@@!0A;40%@\N.)S@!@W4
M;Z^@_`=0URD@,PF(P`1!+^9N9^:.:>:N:^:`(A$!!2KRL0('F3\%73[%7P93
MPA!@.0,`+P,`-P+P,0,P``2@4%8@9P<FOP(#X5-`9`;P8UD"GP=#Z@:5\UK%
M4@<@:08BMU9@=`;P(`=%BP("M@8@;`:08UDEK085FU:#W^IE4@(`4`=0;#\`
M>0``3033X5:093\`8P=%8@;NIP(`;>JP;#[0808S[WE@:>>0(%CSR^BSPNH3
M["M%4P;@90=%JP50<RG^V.BUQP(`50500P4.BSZ`(%7\8>;.ZQ(.N>I3[.GN
MH.B0;@<P;7ENZ%\P+3ZP>#Y5\3[3_>Q`=#P@<^GU80;^B&O_`U9`:.T>H.H@
M5>P0>`("M^R@=.S`<STP=50BHC[.C/$P=2I_'`(`:`83SE9P92GU6^F0=#ZU
M].\>Q`:S[`8D`#R5:>_NOSX0<P9BI#P@<`;P<P<^FC\`+AVCP@;3_3[!`NWU
M-`1^W?)@;P=^UP<CP@9^JU].R%9?0.H.G^O%ZNP.PNQ#[UJ^T^Z/*%-`9C_>
MZA+@/O0>]@;#R>H^A^B0;3P@=SS.T`<E40(.EE4"J@<P>0<SZ_=/(U7?)RH6
MP.BP<%ESZ%4B4`3^;SP#P@83YI_O!O"%D?:"JO9!`@+2FBG%K%KNG"JO=NI_
M#.Q%:08C[`=>W%-.\?&RH^WP>03`1#Q2,_>RJ@2?M0.%SCQSR3RSS>>5J_F2
MG@>&OP<#\'H4`.\?DU/5/P(`004P0P22F#Z%8>>>DNE%\_:N[`3/I.T/I_)^
M\O.>]O+%9NK?7>OO7^J/8>QO'O(5IE9^R`:_6_#E\NF09_-`;`3?F5D3ZO]5
MDA`#*<SH:3<88(;S<+A`5#091`93<8S>9#*9!`9C2;(>9C><C;!Q`:3G(HJ;
MH(8S";!`=#?+#1(3J<XL(#$>12=(<("/$3*=H?/SD<S3"1`;S-+Y&(#@<C>9
MSD83:(!01R*1!2+@`_P!7*[7J_8+#8K'9*X2X;#Z93JA4J4;#>88K%S-3:E.
M8>13(:9:<A>03G,S:8HV<A`3SA"#<(!J()G&S'B863XE#X*2S*>#*8SKB19+
M[33:?4:7=<1)([A;N((,;8%1J1JH*<,X(#";HN;\YLSI&(U`A838J=#+'X+K
MM4=#R<(?1](;S'`J&;C.(#D93B=33UHO-J-RS=!>IL3=N][&\]$8G%3G6[+[
M@`28\((KZN/.HS&Y)MHOUCA'CHDC5#<.K!.(UX0!B&0<)J/+AIJMXQC6DBU.
M@P"+!<)(J"2JP0#N.2]M<,+&N6,8TI4$"'+C`P[C0-(QC0D3>.LB8SO`/37*
M*^B*/"QJ7+VD22#<-XZ":-S-0J.8PCD/*6)<BT?M4]**)H_"'C$,K4(?'2].
MFVK]#=)CACPWBF,U)\NKN"44HJPJE#3&J/0NK2QB0(B#Q$I4I+D%\MIHF4>1
M$H8\)K'Z5#.CR]C0J06H@,,7A`((IB&)(DA!%\E4<X8Y":B:3C"@J24%0D`0
M.V3:#).]"#"F;N28&89A0&(8!3)J(#<.8ZNLEZ0M4ZU<#8@CIB92ZH,A`RE*
M8@HZ#"P8RH6(M'1@I[<CA`Z<NLA\Q-X-CC#FSR)CE7S_-O'B6P1!3VO>]PEI
MLX:2.;4S>519;/*530VH*@Z:#O1+:TLAT(UPJ5VV<$`DJ0*BK"&^8RWO;HG)
MS7B=1FCRY7^S4)0)!D'#(-[72$WCKCK$[5(F-K=II%^,8$SS;(A<*/!BUK`#
M",[*I(O0YC@-@PCRFC]H@S+-L3("6.)?"#.&,BLW3=6G:>^"&AC";0K9HM.C
MI#XQ,XFES-4V;!Q<^8WI`@J1,4U0T#>Y==MY']^#8-@FC-1R-+W?6SC&ZU5Y
M3L@VCJ\"4Z)H`YJ..@[R4A[,4NZ<K8:.XRHBA@DA:'(<A>&@@MJVXFIY(R?J
M,.\C*$A8@[C@TO#7HN(MX/+<MK",A#NC8R9L$"9.8V"=+4T6!S#);PZ;J"O!
MS<R9MNB&RI7<S6MJWB$]RS[:C(,E?)FDEN(&FDKK>.ZL@8(=N).$`H#KN(RC
MR``-B$O<C-X$`0!T$`JA@&`8B`(=)BN%PA0R)PBA4`T$DDYQ'W/Q?F_5^X8P
MY@N#&B5[Q*0@!5"J$,*#\(+OR@7`V!\#0P@A?H_8(`=7`,-!=",%T!CY$@@<
M',$,&H'!I@A!Z$`,4YO#AO#@KI`0<C2]WULXQNM5>4[(-HZO`E.B:`.:CCH.
M\E(>S%+NG*V&CN,J(H8)(6AR'(7AH(+:MN)J>2,GZC#O(RA(6(.XX-+PUZ+B
M+>#RW+:PC(0[HV,F;!`F3F-@G2U-%@<PR6\.FZ@KP<W,F;;HALJ5W,UK:MXA
M/<L^VHR#)7R9I);B!II*ZWCNK(&"';B3A`*`Z[B,H\@`#8A+W(S>!`$`=!`*
MH8!@&(@"'28KA<(4,B<(H5`-!)).<1]S\7YOU?N&,.8+@QHE>\2D(`50JA#"
B@_""[\H%P-@?`T,((7Z/V"`'5P##070C!=`8^1(('!S!#!HE
`
end