ssegan@dasys1.UUCP (02/21/87)
I've been looking at UUDECODE, and decided to modify it for a 'prettier'
screen display. Below is a uuencoded version of my uudecode 0.6F(riendly),
hopefully the first of a number of p/d programs I'm throwing up here
in uuencoded form. By the way,it's in tokenized/saved BASIC.
+*+*+*+*+*+*+*+*+*+*Here Begins UUDECODE 0.6F*+*+*+*+*+*+*+*+*+*+*+*+*+*
begin 700 uudecode.bas
M 7\!@ %@ O41"Q+-555$04323T)51D1)S4]"54:D0EE41=-)0E5&I$]&a
M24Q%I$E&24Q%I$&D555$14-/1$6D555%3D-/1$6D555%043224)5QD]"5<95a
M541$2<W)S%!/2T%$TDU!6$%$TE!21U1/T-A,3[%(2;%,3[)(2;).15+24%!%a
M2ZA:6%79 $ @ ( # 0 a
M " !0 ( & @ < " " ( ) @ H a
M "P , T #@ / a
M ! $0 2 !, % 5 a
M !8 %P 8 !D ! &@ ;a
M !"0@!-;V1I9FEE9"!F;W(@*$8I<FEE;F1L:6YE<W,@8GD@4V%Sa
M8VAA(%-E9V%N(&]R('-S96=A;B%D87-Y<S&; 0 _#0H.0$( %#\ :G5Ma
M<"!A<F]U;F0@8W)I=&EC86P@<W1U9F8@=&\@<W1A<G0@=7 @<')O9W)A;2Z;a
M @ ,##: +3\Z@2P6"@ 7%P> (@X ;#D$@D !84 #()!X A@ALHa
M* \:1&EM96YS:6]N(&5R<F]R(&%T(&QI;F4@,C 4,@H.03 %AX &1$@a
M' Y @ 5@Q44&3:$+80E@!8H !H0 AP.0 $ $H44&@H.0 ( a
M%BH 2DH 5&AI<R!T:&EN9R!I<R!A(&YI9VAT;6%R92!T;R!R97!R;V=R86TAa
M($-A;B=T(&%N>6]N92!N=6UB97(@8GD@,3 G<S^;+0"7#2L.0 ( %!\?a
M#D$'$ !(. %#$?#D$'4@ !(.0 $ %#PH' Y !@ 4a
M6B@<#D & !4/$" @('5U9&5C;V1E(+"NML84>"@<#D & !4/$" @a
M0ED@2BX@4T%.1U-415(4ER@<#D & !4/$2 @(#8Q-RTR,S4M.#<U,R @a
M%F8 1!4?#D & !(.0 $ %$0 1FEX(&9O<B!I;7!R;W9E9"!/34Y)a
M5DE%5R\X,# @8V]M<&%T:6)I;&ET>2Z;:0 \/!2#.PY @ L$H4[#D" a
M "P2ACL.0!8 +!*'.PY %@ L$H@[#D ! "P6;@ ;&Q2)a
M.PY!! L$HH[#D$$ "P6> G##:!+4,ZB2P4%3:++4,ZBBP4'C:,a
M+4,ZA2P4)S:-+4,Z@RP6@@ ;#S:"+0Y @ 4&S:.+0Y!! 6] $8a
M& !#3TU-04Y$($1)4U!!5$-(15*;_@%)'B@/%2!7:&%T(&9I;&4@=&\@1&5Ca
M;V1E.A44*P(<#D 6 !*'%#PH#PL@3W5T<'5T('1O.A4420(<#D 6 a
M !*&%@,"8A\'0CJ'+"(. *4(ZABPB#@ !L^* \:_2 @($ENa
M=F%L:60@4W!E8VEF:6-A=&EO;B$44@B/+0Y 0 9#D$! !18* \!a
M?11B"@Y!!1 6" )5,P>'-PY 0 \#D ! "PP#P%$*88W#D !a
M #P.0 $ +# / 40;52@/'?T@("!-=7-T(%5S92!$:7-K($1R:79Ea
M(%-P96,A%CH":24R#D ! !(.0(4 $@Y $@ 2#D 5 !0Ya
M"(\M#D ! !D.0& %#T)CQ1?,@Y 0 2#@ !(. a
M $@X 4:0H.004@ %M '-!(H' Y !@ 5#P%]%#0H' Y a
M!@ 5#Q0@S,_!Q,G.QZ#3U<+2S]74R<[%H1;1!S$-(PY!0 4$S:1a
M+8$4(S:2+9$ECB8.0 $ %#$VDRV!)@Y 0 6T@<K!R*4%!,'E"(.a
M00)5 &Q<BE!0K!Y0B#D$"50 !L.02 $ %M,'5A H/CH.00$E a
M+!0Q* \<(" @(" @(" @3F]T(%5514Y#3T1%9"!F:6QE(11%")LM#D ! a
M !D.00$ %$D)FQ13*PX 45A46U <[#2*5$I82EQ*8%#,VA"V8a
M) Y! E8 EER8KEB0.00)6 )94L)0Y 0 4.S:3+9,EA!;5!V83a
M!X0@#@ "F$(8X;("@^.@Y! 24 L%$$H#QP@(" @(" @($EM<')Oa
M<&5R($)Y=&4@0V]U;G0A%%4(FRT.0 $ &0Y! 0 460F;%&,K#@ a
M !1F%1;6!SP1"(\M#D ! !F$%!4BE!0;'Y$2E!0I-I$MD24.0 $ a
M %"\'D2&2&SPH/CH.00$E +!;7!T4@* \8(" @(" @("!3=')I;F<@a
M3W9E<F9L;W<A%#0(FRT.0 $ &0Y! 0 4. F;%$(K#@ !1%a
M%1;8!T$'"8\4$0T.02 ) %!LBE1*6$I<2F!1!-H0M#D$"5@ "28)9<Fa
M*PY! E8 DEB65+"4.0 $ %MD'*0LVDRV3)804*0>5'@Y! B0 Ia
MEAX.0 ( &PY!( 8 6V@<Z&2@<#D & !4^.@Y! 24 L%#HHa
M' Y !@ 5#Q-35$%25$E.1R!43R!$14-/1$4A%ML'81PVA3<.0 $ a
M/ Y 0 L+@\!(!0I-H M/SJ!/(P\C2P4-0> '@X ;7B@/(D5Ra
M<F]R(&EN(&EN:71I86QI>FEN9R!5541%0T]$12$@33T5@!1A*!;C!RL.$1P.a
M0 $ %"L7' Y 0 2#D $ !(. $H<6Y <K#A$<#D "a
M !0K%QP.0 ( $@Y " 2#@ !*&%NX''! "' Y 0 a
M 2A10<-H0M#@ !;X!T<-#0Y!()4 4*@>%-PY 0 \#D %a
M "PP#P5B96=I;AL]* \.3F\@8F5G:6X@;&EN92$41PH.0 ( %OT'a
M2A H' Y !@ 5A10:"@Y 0 42@!0<FEN="!B96=I;B!L:6YE(&9Oa
M<B!D;V-U;65N=&%T:6]N+"!N;W)M86QL>2Z;*@A"$ (<#D ! !*%%"L'a
MA3<.0 $ / Y P L- \#96YD&S@@' Y !@ 5A11""@Y!, a
M 6+PA $C:9+48Z#D$!E0 "P4'@>9(@Y! 38 ;-B /$TUI<W-I;F<@a
M)V5N9"<@;&EN92$40 H.03 %C$(-!DH' Y !@ 5/CH.00$E a
M+!0T*!P.0 8 %0\+97)R;W(@8V]D93T5F1:X"V@6*!P.0 8 %0\%a
M1&]N92$4(1$<#D ! !0L$1P.0 ( %$,H' Y !@ 5A!4/!R!"a
M>71E<RX45PB;+0Y 0 9#D$! !1;"9L492L. %&@5%J /a
M%14!,C4U+#(U-2PX+#8L,RPWFZH/&QL!,3 T+#(T,"PV-RPQ-S L-38L,C,Sa
MF[0/&AH!,BPR-# L,30L,3 T+#$P-"PR,#*;O@\='0$R,#@L,C4Q+#$V.2PRa
M-30L,3,S+#(Q,IO(#QP< 3$V.2PR-34L,3,S+#(Q,RPY-BPQ,#2;T@\7%P$Qa
M-#$L,2PV+#$P-"PQ-#$L,)O<#Q<7 38L,3 T+#$T,2PS+#8L,3 TF^8/%Q<!a
M,30Q+#(L-BPQ-C4L-BPR-#";\ \='0$Q,# L,38U+#$S-"PQ,S,L,C S+#$Va
M-9OZ#QD9 3$S-2PQ,S,L,C T+#$W,RPR+#:;!! <' $U-BPR,CDL,30P+#$Sa
M,RPR,#@L,3<SFPX0&1D!,RPV+#(R.2PQ-#$L,3,S+#(P.9L8$!H: 3$V,BPQa
M,C@L,C X+#(L,C0P+#<RFR(0&QL!,38P+# L,3<W+#(P,RPR,#$L,3(YFRP0a
M&AH!,C X+#0R+#$V,"PR+#$W-RPR,#.;-A ;&P$U-BPR,CDL,C X+#(P."PSa
M,RPR,#";0! <' $Q-S<L,C S+#(R.2PR,#DL,C X+#(VFTH0&1D!,38U+#(Pa
M,RPQ-#$L-BPV+#$V-9M4$!<7 3(P-"PQ-#$L-RPV+#$V,"PVFUX0&1D!,3<Wa
M+#(P,RPQ-#$L-"PV+#(P,)MH$!@8 3$W-RPR,#,L,30Q+#4L-BPR-)MR$!L;a
M 3$T-"PR,BPR-"PQ-C4L,C S+#$P-9M\$!D9 3@L,3,S+#(P,RPQ-#0L,BPRa
M,S";AA ='0$R,#0L,C R+#(P."PQ.3(L,38Y+#(U-9N0$!P< 3$S,RPR,3(La
M,3,S+#(Q,RPY-BPR,S2;FA 9&0$Q-S,L,"PV+#$S,RPR,#0L,3<SFZ00%Q<!a
M,2PV+#$S,RPR,#4L,38P+#";KA <' $Q,S(L,C$S+#$W-RPR,#0L-38L,C,Sa
MF[@0&QL!,S(L,3,S+#(Q,BPR,#@L,C0L,38UF\(0%A8!-BPR-# L,3DL,3<Sa
M+#8L-IO,$!D9 3$S,RPR,#@L,3<S+#<L-BPQ,S.;UA 9&0$R,#DL,38P+#0La
M,38Y+# L,30UF^ 0'!P!,C X+#(P,"PQ-#4L,C X+#DV+#$V-9OJ$!86 38La
M,C0P+#0S+#$W,RPT+#:;]! 8& $U-BPR,CDL,C$R+#$W,RPU+#:;_A :&@$Ra
M,CDL,C$S+#$V+#DL,38Y+#(U-9L($1L; 3$S,RPR,3(L,3,S+#(Q,RPS,BPUa
M-)L2$1D9 3$X-2PQ-S,L-BPV+#$S,RPR,#B;'!$9&0$Q-S,L-RPV+#$S,RPRa
M,#DL,38YFR81&1D!,"PQ-C L-2PQ-#4L,C X+#$S-ILP$1T= 3$V-2PR,3(La
M,30U+#(P."PR,S L,C TFSH1&1D!,C X+#(L,C,P+#(P-2PQ-S,L,IM$$1<7a
M 38L,3,S+#(P-BPQ-S,L,RPVFTX1%Q<!-"PW+#$P,BPW+#$S,RPR,#>;6!$;a
M&P$Q-C8L,C$R+#$V,"PQ+#$W-RPR,#2;8A$9&0$U-BPR,S,L,S(L,3,S+#(Pa
M,RPVFVP1&QL!,C S+#8L,C S+#$S-BPQ-S<L,C TFW81&!@!-38L,C,S+#,Ra
M+#8L,C S+#0RFX 1&AH!-BPR,#,L-#(L,30U+#(P-BPR,#*;BA$:&@$R-# La
M-C0L,38Y+# L,3,S+#(P.)N4$1H: 3$V,"PR+#$W-RPR,#0L-38L,C,SFYX1a
M&AH!,S(L-S0L,3 R+#(P."PW-"PQ,#*;J!$;&P$R,#@L-2PR,#,L,3,V+#$Ta
M-2PR,#:;LA$:&@$R,#(L,C0P+#,Y+#$V,"PS+#$W-YN\$1D9 3(P-"PU-BPRa
M,S,L,S(L-2PR,#B;QA$<' $Q,S8L,30U+#(P-BPR,#(L,C0P+#(TF] 1&AH!a
M,C0L,38U+#(P-"PQ,#4L-"PQ,S.;VA$:&@$R,#0L,30T+#(L,C,P+#(P-2PRa
M-)OD$1L; 3$V-2PR,#8L,3 U+#,L,3,S+#(P-ION$1T= 3$T-"PQ-C8L,C,Pa
M+#(P-RPQ-S8L,38RF_@1%A8!.38L,C(T+#(L,C(U+#(L,)L @!86&0\.1#I5a
,541%0T]$12Y"05,6a
end
--
Sascha Segan {allegra,philabs,cmcl2}!phri\
Big Electric Cat Public Unix {bellcore,harpo,cmcl2}!cucard!dasys1!ssegan
New York, NY, USA {philabs}!tg/