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

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

Following is a new release from Clint Pulley. This is GED_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 TI-99 was posted immedately preceding
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 ged_enc.arc
M!U1)1DE,15,`&`("`(`P`,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.`$<BD0006
M#"``@``!LD0H`0(B%\B$\AP9(`,``H\E`%0Z/1^02&12.22632>42F52N62V
M720BDXB"&'AHA`0``0P!E,2^?3^@4&A4.B3XTE<8C(<`"D4JB@`!`@"N(#(^
MH@8`U4#)P'D0!"Z<F($,BI`!A6`"56H@`!@90!M"!,&5<#5JN$0"LZU@>[!Q
ME7FSU"U`@``%1`A1#YA!BR`1U8,#"F[!=45^<V0"@*W!M\!,1@8G,=08ZKB_
M)Y6T9C-6_.@_`YJK80!8?$XN[`A-7FM@Q/!`"5$".3&NS?<!O</7X.H;3%!B
M[`8:;I.;P"%TQCD<B`CF4W&4[&40=PQF\R&4Y"_R^/RG(0"4YQT[#$7#``%4
MYF$SF4==J!B`TFX<!U'07QF&D;'@&^`H!@.!8'1T:124E2X14YP&_"@`"!8T
M]%1`@0E::%HSJ,((`$.PT@8`DB'*&EFQ^!,`UK$D$`"6L1%V5UE@&:]C6/;$
M"!;:=E@$9A:6L!.-`(`@78@:)CE;CE:%[7U?UZDH?)-*`!5I)P%"VD-H)..R
M89:ER7I#B0!(<A@(C"$A8C6%J'2$CA>)6`1:6Q``@)99E6P4*R.G*`(!0(9L
MA`6`).@("R%F-.YC3P6)C3\`66EF"`!0`I,"`$/:9*>6N?%O(H$Y(`6EJ>FD
M]@0/*H#\FD[JI.Z*(J8FE`0.ZH#NFFL!^G&:3T8T\J<IZH#V6L@6;J4,@0`>
MJP"A@`V-JP\%;`V-XAJ%A`JBX%@*L=:Q7MX`EB!``3"`^III/*;IP%JH#TF2
M6Y_E]:+!L,$#/NR[@(G&\;SF:]DY3H!CXATDI]P*0W5`I[G^'-[1C$:$@@"@
M81R&,:!I=\*4='=&1%%(4A/%)^Q#&$;AN&\=`@&,<AE&$='@@UX'N1T/@^$(
M3Q&#P/$9%<;QR&M_QG"`+M(S@/A%SS/E0IV%P`%&&Z@.I40+*Z0FI5)JV<DC
M5RPEF3UWD.4R/5M?EYU<S=B8_9)2U!RJ&V>(9^ET/*"D=FB<`V-=Q;$"SD78
M'@@F"1P!N<$#?U>8]G7?:J=-9REUW1HMV!3>%@77>K7WX!#6K6*YZBU;Q^!9
M<^1Z%RKCZ6B;FN@#V;9V20+/[;905[<``7SCMI,Z/*=CYP.2XYE)#D7LM?`@
M#`D[?;TYV;:)55$#(WXY76`B6PJ=/*%G*%&?=[YC>=>WO??>;$#!2X/A5H\F
MBA@`N@=0I&Q:?MJR&$LJI`3#"SK06DM0""UA.`."HN%;BWEP/X7$N1UZZ0)@
M1?06M\#E4M/B<R```RCE.CP`@-%>*HF%)_60YI2RFD20H>TM%/;H3&C^6*K!
M[2CW[0(3VLM4P$%4&C'LJM5JKU8JS="K=3H_%<JO+6/\`H7@A`^4H55-+MBW
MEQ`Z]1>$%E-.X;*\M.D%@".V6T/R+3FGHB<=\3H!0##JAR9"R-DK)V4LK9:@
M4-P9`0,U/:>\C+#PTL1"(%8'`,&+'B/(&4,C'@`,Y9VSUGX"I%GA#<>,.H;F
M9LP#(1T!3(F2,FCR"`.X86(QR!`'`.1Y`ZACD,"`,0>00!4"23$(<F)-1O(*
MRAE3+&7,P9DS1`S-H]`*:"T-HK1VDR):6TUG\LY.,:#*&,-8<PZAM!`&2/K+
MPRAP92&.5A_P0,P/&'*.P)9+@`F\T(\H9`>@E#P"QEP;PVH+D-.D/!'5YM[`
MP&HW3=4N3W<@`P;"?8-//-^81WCTB\L-"+'4$`;PS'^0`@*.\O9V3BF[,V<S
M$3QAN.^')F<XRH@-`XG5R#NTJ4'"[,H_<DPRAX#A,VCLD`R`MH8"V/`;PW4.
M061U=BJ57"/32/!U2>FNC".4#^)<386`A&$K\+5.S1T]I^JFH"*71%K2,!L9
M1R@85'!]%!$M4T5'*JO41/0#ZN#BJZGJHT3`?5)J6L!$H\J>5>`(/"J502UM
M=JRGH'E7*Z5@JJ81S8&ZR%K`'6>M):ZUU(0Q4JIE3@"50J_7>JE1:N5NJ8=6
MG\-"QJ='PJ!@YA*KJE`I#I5(^$TCXA^MI7B)59&C5I51:(_QOUO"T!`=MD+)
M5ULI6&H1FZ]T_KQ:(S8PJT6VMU7^WM@2<W`K_<,P1;[C&*L?7&N=/K)FCL`Y
M.YUV+>7:=#<>S*3`G`$&\,('8`A$%Y42`4;QQ1$%?`L`$8XFP#!>*B`]/E/@
M'0L<H8$`AB4<"R2'28Y+O0.4F*>2`80#@"C(&$%@`P6!A`),660!XG$289="
MHDG0$AT8;$Y=`$JATD8`+(!P#6(E+8<LJV<4`'(=#.`@.`WV+<-`@PSB+$B+
M@)FN:WBK%@H,76^+=C(O($!A8\Q>6L%N/@$EK`#A@2&.,1`0`&IP!XD,F6^+
M6##'QF3"`PPP)(XIA`09ERZZ(K8'4J@'"0!/%>.A.8X+L!,/Q><,":S67;-Q
M><X`3AWCO.@$!XY8RUGS.ET`78^`UG9$.&2MYXST`@!XEL^N.S^,[0.@\<X9
MT-HBSNE\&X/PCA/"N%]+".OR*##`GLAY%$0!`)6K:O`/$=;;5H!1$+]3B!`)
MF&Q':O`@$=,FN-;..`DU8M`$`>;'U9I84#<L[@X1T!#1ND=H@/VFGI<#C@)[
M6<T!`$&T-DEK`AM7:X$CJ@0W3C$`@$0I``#&!$-P``Y@1#P``,@$1'``#>!$
M50``Z@1&,`#?8`(CZ1$\5L#V,\,"4PV)8"<"S1:DQT)2'``ETKG+$!,`G$^(
M['T4`_C1;^*<6R)R42@8@?*%SWJ+/>&Q(/)`CAL30!L=":T"`O%`",5;'83C
M'&8$!WX;XUQG0.0#+]`SF`\3V+1/5!R/T4=?-((\XYT`_GF<>?9!`T6O<N,,
MD8T'>3HUUFGW"/+%#@"6I<(!8`*)C5(2,G+`OZAA/)@0#*%J6,8)&`(H=K+7
MM_2>XH-'5&".XJ`P!70:,T!,.0!!B@$&"#P(X`@1``!@`(00``==A\U2080W
M1!`%$*,`0(%AY>+N:`8;KD@"@6'X'4:YU23&ONAN5TN@NX=S,7H;*19`)AZ]
MUDTPF3_>Y1,(`'F`"/B^_[H!CX^7C"`KQ]R'!PR/@`84X!,/GU<V"<TWH%1)
MA-OHD_`#HQ0"8H=Y)SA'X`"8AUM!0/\:'Q`^8U3)]$$'ZW[1U0!`X`%`J@PF
M]P`@%2SSFA=@&02%)A;@&3_@(0`A"1JP&`H`%@'`P`:0``$GCA.0!P8(!5\T
M&P@`0@$0`7J@P`*1&0P&]R.X*@PB,`W`<`!@`P%@_8(H)``@U`0UFBB@721(
M.PJ@$S?@_P_GN#NP((!8!Q4"^H3H"8"US3O0*H$`H($@$`$0P6]P!`T`=0$P
M!@"2R@G`%04`P@"`$0"`$%GX90<(:`$0`V`(`@P%FH"($3_@%H+Q.0@`@0%8
M*@@8>P!H+!&0P@`@R@0H'H-`,4&X.8%1;!;H&%\QU1482(=A4("G@F"(5X60
M((>W(0`0`@@1&1<@!@P8A`!`U'S@J14`@(K``B,`!8K">`70RH'0`H'HCQ;0
MH(D@!HMA&3!`Z14(E`"(E@70`!A`"0%0I@%0Y`%@(@%@8`%@G@%@W`%P&@%P
M6!)`\00&"Q10\0P(WA1`\HW8XA0@\HX8YA00\XY8ZA/P\XZ8[A/@]([8\A+@
M]8]8]A(@<@%`=P$@80%@4@!`513``@20!03P`0:0"`P!8``@T7G8N`"``@`P
M%PEGE`F`!`%PI@%@`PT08`%PIY$`P0\PD0Q&@HC0^Y$G"@1@!@QP\0Q2B@``
M4`T`4&/P!`Q"A!&0T`<(8P`@(7^`$0!XH@`(R@!`P`Q`.`Q0H3B"'```%9%P
MR``@A">V[(N`%0HA:W?5\0B(R`$B,917"@(`P@<`P`F0%@]@R@1```#@V@1S
MNPP3[HO`OGEHD8&0$0VH'0#XR`QH'0#HOQ'2>(PB-0``&`B@R```'0+H`P&`
M:(`@R)B)C82H46%8>`$`]8CQ68O!HPV5F@()C2*EF@BY.BAAH0A16T_`SG?0
M%@^0!`6@P&40($&HIHJ@!(PBC`(`%0D@T(+0"`"04`VHW2G06R-0&0!@!`PW
ME@T"'`@P80`&CP`@@P>A"R-00P7P``W`@X80!0@91`*`$@\1.@&`8(N(R(%9
MQ@P`B7HP%)%```*`Q`@P!0@IR$[`%0E`!`6X^A#H8@$640B8R`%`!@"@&0P@
M:94)9@$WS@RY^(7!4),H9QF0`)LF1W=@@0#0``$P%8H@&@`&'@R&[HHI70%I
M$Y5)-BLB=`!61PI`$`Z0W00:*IQP%@Y(CP"@U:+PP:*HE`X`\!4)B0`IB```
M_IY8*@0)A`!P!P`T[`&P.@!P0!<J0PP*18N`!Y]`(*2Z381@!)LJ/1;(CP!W
MJJ2@.@`@#@_P^@P`H``0*`$P2PT0HA4`"0A@8PA@!E_03H2`P03E1`!0Q@P`
MP@!0@RYZ?0!0PPP2-0)(R`W0<Q=7(`@0`P&@^PP&9@]`P@3@`@"@&U^`#'"F
M6`!0B0!GT`)@F`&0&P50$P^JH@&P5@$P#@S@B2E@&P6JG:GV<JJ`50%@^@U@
M8`&P60!@#`%@Z@$`$@QJK@NJKP6@!`QZLGT`"JJ*JI#PV8;`F`!P&P5P%@ZZ
MR`$`\ZG:N:NQH(N`&@WH%0&P7!HJL"82RAH0@``@H`PJZ@*@`$$IL@'@PQ4`
M+$&@PP3``@+9Y@`0&P))A`$@S(C`0HCA"@`:2@.)B`'`/`R``0'$3@`@'*10
M`4]&,0I`!P(`'0,!.J*140&VSX50P+&0+J"0!@D((K&@%D$@"`&Y+858N*$V
M,7=@09UXH@6:&"7P@03J'2'+%$&K%J6A"B80B*#`^R80BP!`5PP8205P`$63
MNP"AUQV5*P:0=```+04AYDDP/S%@60+P3@*9L@(`)P7*[QA0&P6+4C%@8[80
M,0.0.`-4[+;@.!V00P;!_S+04`=0;"!P>0+@@@/F/X6K@#IP$`#K@)_0$`"[
M@`%0"4.KC``[CP/H<8E0_Y^!8I^+@`&@^0$`^[@`$BK`^+@`&P\YE[@`%$'H
MZ`"`P@/B2I^`P+JP/@"IPPP0RQFPY@PA.;2KMA;[N``;20!P``P`?H*91P`0
MB`&2BH=0P9^(:(1KF"09PPP`.R,`@@.WM`!`4)^+1PP0X&*K21"AKPP`2(IJ
M.80@P:#0`H7R,**KG82I[IA0_P``7P"`("G;Z`BPV```'`1BS@`I0V$@!P%@
M#0B``P'`1",`P+W@1"-,"K_)A!JP'`EG1IY0!*2@-@%@[`F+#@0@$PZ0P@0<
M$,#I+6,0E@P`20!`5IY0)X%2UK"*#`RP`@00?[PJA0@1'0%I0XN"-0`P#2X,
M);29A)FL$K29#:#HW90P@!.9[(`[&J6",<2L`C\*X``ILF8`P+^@'450"`':
M`851.@&@Z!40'0'Q?0*K&+&L8`Z+41V!X0<@<@/8VL;!V07A%;5`=!'1'@`0
M@,?,?<?00,@,@,?L@\A,?8:V[LB,B<B@`<C,C<CLBF[@(LDLDR-<E<ELE\F,
MD`),F\G">,GLG\H,H<B:ZCNY8HN`!G"D50`+\@$'82>W"@%XN!"0$)[```%W
M"D$A.7"E_0``'W"@"XN`&'"I$P`!#4.L.W"IA!-`!00(>R-8HP@'821!U0T@
M(0'0,HB7BGC"BGW`B`T`-X.:GQU8GX(,W`T@$0\@$@$P!PT@,2*@T`\@"0@P
M8@`P$P]IC[[Y^L^L^\_!*0(1$`(!\1\P(+62!TH!X$<@93$1!0.0,`+P,`-P
M+P,0,P``2@4$I09P<@84TC*4=@9`;P8TT1W`=#,@:5-D[4E`<@:08B`DJ0=`
M;P(`=`:!X"`08K=P8TTT[@84W$JP(+=K>`(+>K?`90>0``3033*4K`92!P8P
M=$I0;@:=.`;=.P;$=P808R!K50:="@($T#&@($H-,=,P(`24E!YAW0=$[!]A
MW`93+='0(`50500P4-8#,`($<K\L_1+]2--AX-+],=&@;@<P;;5==U-@+3,P
M>$<TO4=S0M4P=#$0<],$I`;]&=&]D4IP:-8#$=,AX`5=4`>`("`M60=-6P<P
M3P=0=4A!Y=8%"MJ1Z4A0(`:`81WTJ@91W$GM*@=#,U-]?]4P:QX`8A_S&$K$
M>-3C*0<P9AYC$0<`;P<P<]*R!P+@2003$0;30AX$KMK4=AVQW=M0;P=QW0<C
M$09].U-]5TJ-S],=,-2U+M3]40(-4R!D[-G==]MT=@9C0M>1+P/MT-A`;#&$
MH]&-&@;3$0=S&]7P<DDU"U-R"1[`<P>0<S,^!=LM808E%@;1X`80<$V#,$E!
M8`3-`$?=8#+AV`+P31$P4^`ME>!-C1[-]030>3&-.-W1WAX!XT[]+1[.!]4=
MFM4TK.%]H@<]+@;P2-J^&@;DK`1#%!2E"Q[`2>3`.%$2!S%N,S&QWP<T[-^1
M[%*]&P<"![8;>-,`80($?T@0(`004P0P202=^X]@3C,$I-"M(])=)^/-7^/]
MMM@-R-A-NTJ=/=[=3=[]4M5-VTTU%DYTJM5P:]ZP3=]30@:09]P]5>6]'#+=
M]1Y>$MP]I5-@+DK=8^1]^-C.E3,C$!_AY4E-408=5=+P.=,NI0=>0T=M/=]4
MK@+>)@-`0=`=R])N#5#=,N(]E-EDT@*$KA`P*18.;HZ@.05-8^PN+>(P;`;P
M8>B09DI4TN,.*4[0;=4U"ME$[S+>L310.@``(N(E#R#$O0;M&R"""B`B!.ZN
M[-1@3TD1X$W%*TS=HU-M].SN`]&TD!ZM7#0NA_`=G-8S-3$0*!Y5+4=4P])]
MG03`=`>5+5"^O]8Q_R"^4P9;8=;^<30MD-8M"$T>%Q[%#`(#%4JS,TJNTDSM
MS$I=Z>L@+NR@2-``=]NM7.9`<U+=6.J]LC,1ZTGN"-FMA4Y09]4`>O`E-]L$
MU`;C1MDA_C+>(T<@31W08_,-Q-ZQX4U.E^H$D4A>HN5.%^6QX/2TP]8=2=,5
M*S+><DJ/3#1MG0$M,^U!YNIND3*TEA8`2`1#,N9.(^H1Z.B$J>XO3>)-T-H=
MPM;@;`9^D-,DT@+1X=5]FN:>:P23+ML]&M31YNRA(`35&=)!_]D0:?A[53$?
M)O&%$`9/?$J@:=!^LTK`,P,P*`,0,+8=?QW$T-=NK_7!X#,$T`;-I?303#&C
M&-5TE>IDI+>`8=?>G@1?D0(-&2"0</%=8C,-?O:@(+=QW>64[<;]"MS?#?A-
M?R$@2O*?`E#?IS+?J=)$[.(TE=A.ZU+P=[5=FN9$S/+4T4J@>3,^G@25#=`!
MY1`#H93D;32;C*<W^`(7#(;#H?#2<=#083H((F91`<C*8S><C(93((#&:(X:
MSF=3:(#$>8$(#(;X0(#<;XL93B=3";(O)9&;S:<#K`I%))-*#:+!`83<((&<
MH\,3;"#F83/&32<Y?6#@;#">9#2C=(C*>(Y0C2;Z96(O`X*;HK(1<`"25#0,
M:R<*>9SD895:XZ;CH<C28J%8#H;YY&:"8C8:3'+Y^88,(,I&!`:#><(S$XKE
M8L=S2;#9"HAIM/J-3#B:9C"8]$:3I<,J;C'&S"<[!'3:;3J;L?%;13*7(CF;
MS,=#N88W33Q)*75I69>293+3"H21:.1R+QH0;"9":1^L93M&3>=X.<CF+A`0
M=&("32CF:\K6<[%CR;SK2C&:YH.XV)"Z(ZMR$#CL4$"\C>O:^I6/*+CD/*##
M.'+$!`W*Q*:-K)IW"ZI*4BRTO.,T$C",@R(V.;<JRQPYJ&Z0V/0N0&"&QS`A
M`*`ZM&,H\@`TK5-4#8A-B@Z+!`$`=!`*H8!@&(@"&(8DBN%PA+H)PBBH#0DL
M"@<C22$`ZR;)XQO8,;7CN%PQC"(`JBJ(8H21.4E3+-4T34,(0R9)P@#JWSIA
M=/P72^CP00Y,XYA#.LSC3-,USU,<?R#2=*4K2U+TQ3*%H""&-TT\22EU:5F7
MDF4RTPJ$D6CD<B\:$&PF0FD?K&4[1DWG>#G(YBX0$'1B`DTHYFO*UG.Q8\F\
MZTHQFN:#N-B0NB.K<A`X[%!`O(WKVOJ5CRBXY#R@PSARQ`0-RL2FC:R:=PNJ
M2E(LM+SC-!(PC(,B-CFW*LL<.:AND-CT+D!@AL<P(0"@.K1C*/(`-*U35`V(
M38H.BP0!`'00"J&`8!B(`AB&)(KA<(2Z"<(HJ`T)+`H'(TDA`.LFR>,;V#&U
MX[A<,8PB`*HJB&*$D3E)4RS5-$U#"$,F2<(`ZM\Z873\%TOH\$$.3..80SK,
1XTS3-<]3''\@TG2E*TM2],75
`
end