[net.sources] PDFORTH for the ST - Part 3

franco@iuvax.UUCP (03/13/86)

MV#J Z[ZW0\MO#BV%W<?8!6+K@"#WG1U:&*_M\^EOJ31Q@=@Z@.N^MT-+T0XM
MA=W'V 5BZX @]YT=6BYW_'SZ6RI-7""V#N"Z[^W0<J%#2V'W,7:!V#H@R'UG
MQQC_^)]/?\OG9T*:.+S)_42Y I(.9W5U11!)N8(N[L73X:RNK@@BI*Z@BWOQ
M=(7A?X=B6X?HT>\3Y>'0>F-$SZ=^&;U/4/3H=$YMRWYT?R*BY]/?\EGWG1WC
M]\?_?/I;/A//TL3A3>XGRA60=#BKJRN"2,H5='$OG@YG=75%$.EYKB P]^+I
M"L/_#L6V#M&CWR?*PZ'UQHB>3_TR>I^@Z-'IG-J6_>C^1$3/I[_EL^X[.[20
M[OGTMWQ6FKAN=W/UI84<SNX8,W9U17]LYNIXNSL\W>'LCG'SKJYH_F8.Q<*]
M;W9 D OTU]67YG!U11#Y[UX\W>G:?6=W@;I.M9DH,:2)P]/=WPO=BZ?K,.2^
MLV/\@QW:/LAME2:NKFC^_^X")>X[NPL4>*KL!K65)JZN:/YF[@(E[CL[M&0I
MU6F]<TH35U>4!G 7*''?V<7\I?+>G9S2Q-45I5QW@1+WG5W,_U-E-Z@C35Q=
MT?RL[@(E[CN[F(NG(.)!EB:N6]P.9W?OFQS =7B3JRN"2(.N(#!7&+YQ(.)!
MCOZ6(>A$1,]Y!R@Z+J/6.ZK6VV;>%W)U1>E_]^+I.@RY9Y(.5=V];W9 D/O.
M+N9NF/WCO#?4ZBA-W-\+W8NGJRL:X";WXNDZ#+D.+/=BZ3H,N>_L8L86Z1^'
M5YJX'KFN^[%K/$EZZZXFZ0"NP]-=S"S==W89_)?J'X="TEN7P?":TF4P0*I_
MC%%*;UT&PVNV+H/]5/^X<Y#>N@R&5T27P6ZI_C&Y([UU&0RON"Z#C:;ZQZ&#
M]-9E,+Q.ET'V5/\8 Y+>N@R&UQRZ# :E^L<=2'KK,AA> 5T&;T+ZQY#26Y?!
M\();!MN0ZA^7F4AO70;#*Z8N@YFG^L>Q+>FMRV!XY>B:I5+]X^>6]-9E,+P6
MT34KE.H?_PU);UT&P^NG:Y8UTC^^5WKK,AA>:UVS_ZG^<:>4WKH,AM<&=<WB
MI/K'[U)ZZS(87E^Z9K&I_O'?@_3693"\%NB:,4[UCXF'-''-*NX[NYCY8+8Z
MG1+CT5&:N+JB%9BNPY#[SHXQZ8CR4$)*$U=7E))=AR'WG5VSN)'WB:PT<75%
M:2:NPY#[SNX"89LZ0">R-'%U12GA.@RY[^R:]8 04*DT<75%Z<%U&'+?V<5P
M-4) !Z6)JRM*\UR'(?>=73/00<2#_%=IXNJ*TK^NPY#[SBX&'A "(I0FKJXH
M;>LZ#+GO[)K!A92/-BM-')[N(![=BZ<+Q-8!7'>Z=M_9Q4!.O4N,;M+$U17]
MKXNA*_>=70Q!R+O$4)JXNJ+HNABZ<M_9-6.!A#J$TL35%;VHBZ$K]YU=#-?(
M^P0I35Q=T<*Z&+IRW]G%T","'2"EB:LK6M'%T)7[SJZ!+_4^#O6EB0O$U@%<
M][T=JKH+Q-8!0:ZN:'Y=#%VYC[$+Q-8!0>X[NP:*(^3RH31Q>7>XNJ+Y_[O3
MM?O.KH%F"/0X*$U<(+8.X+KO[5#572"V#@AR=44KK"Z&KMS'V 5BZX @]YU=
M _\1'@^$TL3EW>'JBM)F[G3MOK-K@$&$QV>RTL3EW>'JBE)6=[IVW]G%4!TY
MA$)*$U=7- ZKBZ$K]YU=ED7((710FKBZHG_"ZF+HRGUGEV6DR*',1&GBZHI>
M874Q=.6^L\LR+N=P+TU<75$XLKH8NG+?V649A!PP2J6)JRO*A]7%T)7[SB[+
M8D(.&)#2Q-45[9K5Q="5^\XNRT@BA]B6TL35%>V1U<70E?O.+LLN1 Z=4FGB
MZHJ&8W4Q=.6^L\NR'I!#YZ T<75%<V=U,73EOK/+,A;(H0,I35Q=T2I6%T-7
M[CN[HJY&#L\MI8FK*_IG5A=#5^X[NZ)X0 [O4FGBZHHVQ.IBZ,I]9U=4C\B!
MW%&:N+JB=[*Z&+IRW]D5]>8<(&GBZHH&8'4Q=.6^LRLJ0^3P]Z T<75%N:PN
MAJ[<=W9%P84<_H:4)JZN:,.PNABZ<M_9Q=!HJO7\W&9IXO CKEO<#F=W,73E
MOK,KBC5UR#MN21-75S2E*^H'[CN[HMJ0>O3[+6GBZHJ^=$7]P'UG5Q3,5.B9
MW)(FKJYHMJZH'[CO[+)*H53K^3FC-''X$=<M;H>S.SS=03RZMAU77_K?H5BX
M]\T."')ML77UI5@.9W=U11!A[.IX&;EN?8>SN[HBB)"Z.MX<[L73!6+K *X[
M7;OO[+(*/'(B6DH35U<$MZQRI_O.+JL$2#W>_98T<75%.;JL<J?[SBZK'$F5
M)Z(E35Q=45R75>YTW]EEE<8P#[&M>^A$5IHX/-W]O9NK+R6[%T^'I[N_=W/U
MI7P=GN[JBB 2N1=/AZ>[.M[?7;>X'<[N4-7=^V8'!+GW30[@NKHBB&"ZUV\N
MV(;<BZ<+Q-8!7/?BZ>IX*^X T^'I#F]R=440*>1>O[FZ(HB\'!'K\'175S0W
M,;O7;^[%T[UXNKHBB+"Z%T_78<A]9Y=E(L2IHS1Q=4714,@5W>Z^LRL:)D*<
M"*6)JRO*8"%7=+O[SH[W"J6(4[>.-'%U1=& <D6WN^_LBDXACT-':>+JBJ)!
M5W2[^\Z.]P(@CP.A-'%U11G4%=WNOK/C/?@4<>I&2!-75Y1!E"NZW7UGUP [
MTCETE":NKB@:/E=TN_O.CO?@0CH'0FGBZHHR^+FBV]UW=KR'?<<MZ$16FCC\
MB/M[-U=?RM<%VY"K*UKK7CS=BZ>KX_WGNL7M<'975_33O7@Z% OWOMD!00Y/
M=Q"/[G3MOK/CO3:DCJ$#)$U<71'<>.^(^\X.^\74\:&$I(FK*X((J^.](^X[
M.^Q=IXY#L1C2Q-450>2_X[TC[CL[[,&FCD,=0IJXNB*(-'.\=\1]9\=[G==S
M7@<ZD:6)P]/=WPM=L VY%T^'I[N\XNYT[;ZS*SI"0K$YE2:NKBCL9@Y[9NX[
M.]YC3?5;?P_2Q-45C8'58<_,?6>''6:JW_J;)TU<7=%FK Y[9NX[.^PW2CWG
M=0[2Q-45;1.KPYZ9^\X.;>!3SWF=/&GBZHJRLCKLF;GO[-"F$-(I'TH35U<4
M-JO#TUW;E*LO[>[JBB""Z5Z_N6 ;<B^>#D]W>7>XT[7[S@YM F ^B!84>R(K
M3=SW=G_OYNI+LQVJNJOC[>X.,!V>[OY>Z.J*UCH\W07;D'OQ="^>[F/L7CQ=
M(+8.X+K3M?O.#CN#R"'O6&GBZHJ"ZM"&U7UGAS8W0A[]OM+$U16]UJ$-J_O.
M+L.,WX-H0;&/$UF:.#S=M<W:U15!!-.]?G/!-N1>/%V@OZZ^-(>K*UKK7CS=
MZ=I]9Y=A]]0A[_@A35Q=45!6ER$?]YU=AC3UZ/<?TL35%;UF=1GR<=_991B7
M5.B9_) FKJYH$ZO+D(_[SB[#H#V?_I9DI8G[>S=77YJUP]-=H%^NK@@BF.[U
MFZLK6G_NQ=/AZ:Z.EPT7Z)>K*X((IGO]YNJ*UMC=BZ?#T]W?"UVP#;E ?UU]
M:0Y75S2E>_%TIVOWG1WVKI#C4'BEB>N1Z[H?N\:3I+?N:I(.X#H\W75@N>S@
M[L72X4T.$][5%4&DF2L@Z>I+L5RG:_?BZ3H,N3K>' Y/=QV&7(<A]YW=C4/(
M,?%0>NMNO%%EJ[OQ'I#C Z'TUMUXH_K0W3A#R'%L2^FMN_%&]5C7*(X<=PY*
M;]V--ZHA7:,!D>-02.FMN_%&M:]K-"-R'#HHO74WWJB6ND8+(\?O4NFMN_%&
M]5[7Z)W(<9F)TEMWXXTJAJ[1-W+\-Z3TUMUXHQJK:[0!Y/CO0>FMN_%&M:5K
MM"ODF-Q1>NMNO%'E4=<H2>3XN:7TUMUXHYI3UVAFR#%&J?36W7BCVM$UFHX<
M=R"EM^[&&]5G7:,_0(XQ(*6W[L8;U;>NT38BQYU2Z:V[\4;UI,OP.A4ZO?O2
MQ%VYR7UGEV'UUZ/3]A'H(+UU5W();HV48^_R;TDHO757<FFM0YL.)[8EO757
M<BE'UTC'G,Y!>NNNY%)$UTC_.*&0]-9=R:4I72,5S0D=I+?N2BZ=KI%^Y+Q+
MZ:V[DDM?ND;B@5-F(KUU5W(IIJZ12'+^AJ2W[DHN_72-E _G[T%ZZZ[DT@)=
M(T$<<D=ZZZ[D4ES72)><YY;TUEW)I45TC107#D8IO757<FFVKI%NYG0@Z:V[
MDDL!74S=.1B0]-9=R:4Y=#']XG1*Z:V[DDL;U,64XN0%E]ZZ*[F4HXNI:R2/
MM*=*;]V57(KH8B(C><%[JO367<FE*5U,17'R2*6W[DHNG2ZF'Y%JI,&5WKHK
MN?2EBXDDIUI/I;?N2B[%U,64&5(M>$^5WKHKN137Q73-J48JO757<FD172,Q
MR G>4^FMNY)+LW4QP:I)E=ZZ*[D4T,7$4!U<Z:V[DDMSZ#+].*0]E=ZZ*[FT
M05U,X3'YCXG'&Z-4FCB\R6'"N[HBB&30%03F"L/'>$P\WJ'8Z'1_?RBAZ)0'
M1:?[J,V]QX&@,B(>;XS2D^MT[;ZSRS3XZW1_?R@A:>+P=)<=W+U8NDQ_=-_9
M9=H<5NCT3.Z4S^4;Z@V=WOT6U#J]I8FK*UKK7C>Y[^PRO3IU3+3NI8FK*\I6
M]^+I.K <?L1E>H=[\70=AMQW=ID&[5!"K7NEB:LK&H#5O7BZ&+IRW]G%%)<]
MG_Z6F2A-W-\+7; -N;JB9-V+I\/37:=K]^+I.@RY[^Q ,[X>1 N*S42:.#S=
M01>Z%T^'I[NZ(HA@NM=O+MB&W(NG"\36 5SWXNDZ#+GO[$!C4X]^/Q-IXNJ*
M!M"!0NX[.U!4ZI!WG(DT<75%X:@#A=QW=IDRN.-0_T16FC@\W?V]FZLO+>2"
M;<B]>#H\W?V]T-7QMKN_?5=7!!%,]_K-!=N0>_%T>+K[VW=U11#YW(NG.UV[
M[^Q  T\=CD-]:>+JBL:@ [W9?6<'RB3U. [UI8FK*]HF'>C-[CL[M(U-/?K]
M;M+$U16]NRX06P=PW8NG [W9?6>'MC^F#GG'W:2)JRN*MKI ;!W =2^>#O1F
M]YT=VIZ1T#-9:>+^7NB";<B]>+JZHDVZ%T\7B*T#N.YT[;ZS0]NBD/)$*$T<
MQ*.K*]JSNA=/AZ>[OQ>Z8!MR+YXN$%L'<-WIVGUGA[9)*O1,?I8F+H^%JRN"
M"*9[_>:";<C5%>W9S[UX.CS=Y;%P=440P72OW]R+IPO$U@%<]^+I.@RY[^R:
M^Y"R&X;2Q/V]FZLO+>3P=/?W0E=7M$W_71UO<-<V:U=7!!%,]_K-X>GN[]U<
M?2G*U15M$W97Q\O(M<W:U15!!-.]?G-XN@NV(??BZ5X\78<A]YU=IEEC=DX8
MK=")K#1QW]O]O9NK+RWD\'275]SAZ0Y5W=7Q=G<'F Y/=W\O='5%:QV>[H)M
MR+UXNA=/]S%V+YXN$%L'<-WIVGUGUQPZ<B+:*DU<7=%FNBS_W7UGUQPVJ<>[
MWU::N+JBK+HL_]U]9Y?E\9S6O31Q'5@.;W+X$9=I/BY3;-UW=EG.-P7%EF]I
MXO FUX'E,KW#X>DNNYI[_MQW=ED>=ZKL'$IIXAJ)Z[*\,8>GNRS/W'UG!_J#
M'9<8K;?2Q'5@N>_LLKS1M8UM=4JEB<ORQMQW=L'D6-X;:G64)B[3?%RFV+KO
M[()I?Q$EN7Q TL3AZ:Z1N"Z8>Y?EF;OO[(*Y<P^,1^NM-'$W7MU]9Q<,>NK0
M]D&6)NX",>2^LPOFS#D1TL1E>5?N.[M@ND(>[[[2Q&7YC=QW=L% R/L$*4U<
M XS<=W;!I"-E-TAIX@*Q=0#7U15!I)DKZ.+J2[-=S/>NCO?E8F;DOK,+IHV<
M/+(T<>3&W'=VP?R 0Y"EB<LDA_O.+AC6NJW2Q)%[<-_9\38CIT66)H[,TGUG
MQ]N&. >R-'&9%'??V?$6?<3SZ6^I-'%H@>6^L^-MHZEWV0V2)HZW9)=)O"-G
MZ'@;%T?.T&42D\LRW'UGQ]M@AU%";;-6FKCO['A[MQSWK6Z]H5._[+UOE9V^
M-'%UA1E$VNBZ_^B^L^-M[%>^^[VA4[^4)NZ+W%TW.X#K"FYV]:7M#JN; [BN
M(08=^L<T?'2 'J&<4;\D0[%1*/;QQBC['AQ34'<7NP.X[B[L#@ARW]GQ-A].
M*-_2Q/'V[+K"<M_9=7Y;OD.G?NE_FK@*$U>(I&L\2<?;+NY/XEWC^;I.,_<<
MT'UGUU4#J="I7TH3UR/7\;9Y5VG.=9JYYX#N.[M.CZG.^P19F$141:]=5T&I
MT/L$63A-5$6O75=9XI"2&AW]=Q0-/0FKHRIZ[5H\.<&#&QW]=Y3!GH35416]
M=EVQ1$A)'QH=_7<4#;E96!U5T6M'(AL)'ORAT=%_1QG,S<+JJ(I>.Q(1TB$E
MU>CHOZ-HZ$E8'571:T?B1Z03/+A&1_\=9; G87541:\=B>-4AY3T873TWU$T
MY&9A=51%KQV);JE.\. /HZ/_CC*8FX75416]=B1B0GZ=[C4ZVD3B'H_32-'1
MJ(I>LWUUN3%1%;V.JNBUZ^H(YW3_GR:NK@@B*<?K2U>(I"/!Q!6^P]45063N
M.SL2-Z5"CT/YGR:.UPVYNVYV -=5FG-U11!)N>_L.N25[_[IWO\T<75%$)GC
M]:4K1-+5\:[P'0Y/=X4S<W5%$$FY[^SB$A"S?/=#CT/I?YJXNB*(I!RO+UTA
MD@YG=U_D[KK9 5Q7<+.K+\UVA3-S=3QS#^ZNFQT0Y+ZS(\'0"Z.$RFXAZ:VK
MO!X<FDF,?XK$G9\E,S-2%(V-\2;DIFJD,HT8*]+8ORQ4:W@XWL0,,T:8C. ;
MZH8TH[G)L87+D> !;R^[A4HRU#J]I8G[B7(DF%C(H7\%%_,.4<\0Q(GPY.IX
MF[F?_QP))O)UZ!\ N]\GRL,AZAF".!&"R.IX^;BZ(HBD' DF_G/HWUV-W.F4
M&(].U,CO T3DA:#6Z6TCNSK>=E=7!)$Y$DSDZ]"_'.BMOZU^&1T'BNXLB9.N
MCO?E<';WG5U<X/[>9=O>M@_B69JXJANYNJ)(W Y@=W%AX;ZS0WMW2_TM0S%*
M$X<WN>_MZHH@4LB1T+V.N(^QPYO<ZXC#F]SKB ."W'=V<8E'A1Y0*+:W[!8J
MR5#K]#Y($Q>7(/<3Y=!>XN(2Y'[^<V@O<7$)<G5%$$DYM)>XN 2YNB*(S*&]
MQ'UGA_8"QWR7W:#.*:3TUE5>@MM3UVL/=4XAI8DK5'%/'0=P'<!U=440*7 !
MV^A0S=Q3QP'M[CN[)WR'V%-;7I0FKJX((I]#57><E]GNJ0%7IS.S=$Q!W7=V
M3TT%A]A3VQ#Q.,0J35Q=4:29 V)=S8<1?$/=7,'-KC!\P#BQ910B'H?8J)_W
M3(X>1/F(6H>H]?[[Z+3ZNKJB2%'NJ>. (,<TU@%<5U_Z<DQ!'?I7B4"\6@1^
M;8[ +V,$?@R/P \^ C_>C\"/APC\>$?'%-2A?QST\+JG2X?^<6"'USU=.O0O
MNV>ZA4HRU#J]H[21KJXH$K<#V%U=$412+F ;75U1Y";WU'% D$/_ND<@\B>'
MDHARAQZAG%& 4^L-E42D>VK H7_=(Q#)/8]<$G];AQ,1Y0X]0CFC\)&.*:A#
M_SA1I'NZ=.@?)XIT3Y?N.[NG'EX'Z!'*&5Z:N!ZYKGM&U_W8=?_1?6=' JX4
M.>\0*TT<JCF'LSJ@W0%<!P2Y[^RPB?/B+Y_)4"!IXO F!W =_G;?V6'S%R&?
MR$H3AS<Y;'YSA>%1Y3,9"A3E'4HB.D"/4$X=WN0 K@.X#D]WJ.8<9K;#TQW0
M[KZSPR9?*>A$_B]-'-[DL/G-%89'E<]D*%"4=RB)Z  ]0CEU -<!7/>=':]>
M*>A$CE&:.+S)81.8P]D=-LW<=W;8/.&A3OD@#M CE%.:.+S) 4'N.SM>\7D=
M^B49BI4F#F]R -?AZ>[%TJ&:<U=?N^_L>!7L*^UQ(*@\2&]=Y26(<!ROX%I:
M\HE\4'KK*B_!C5<POK0'B&B],0[26U=Y"6Y/?U-$B9%6>NLJ+\&-5]<I-HD2
M0YHX7MWL *Y#L7                                              
M                                                            
M                                                            
M     "YS                                                    
M                                                            
M                                                        ,P  
M                                                            
M                                                            
M                                               N<P          
M                                                            
M                                                            
M                                     &)Y90                  
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M=S4?0>0".1),S'8_^;@ZWE\._<.Z^.A'4"!R&1W(9:AUWRJ)\)$.;W)8L!S.
M[NI+%OFX[^SNEEF-%J6)XU63 P(Z7EWH@(".5S<[(*#CU1\.".C8?^#8BW9W
MNW:\/;OO['AU9,?]TR&\TL2A6+@[FG/?V<&%?Z%PH=/[E <9'>67GU0.A<W-
M-*JBUPZN8\Q0N-#IW7HK/ZDUA1TGTS"C*GKMX&J6"I>S#"0_J36%'2=3UDM!
MA#G,J(I>.[BPP0R%"YW>K8/RDUJ$PHZ3:9A1%;UV[-U>Y'!023P;'>67G]0?
M*6QNIE$5O79PY?_NPQ'E^_%<^H^Q^\5+=)3>NM][^  $^N  !/LP  3ZY  $
M^S  !/KD               (       %,H  !3+6  4*H  %#C)1%;UVC3OK
M@GZX0PF1'U"L_F/L?O%";]WO/81]_*3FF\+FDVF8416]=G#=_-V'>T 0T3KV
M'V/WBQ=ZZW[O(3KZ[RA_S6_8QT]J,0H["V@4#S.JHM>N<3/^[L,=2J@//>0G
M]6H*FT^F416]=HV[Z;L/AU%"?>@A/ZEA%':<3,.,JNBU:]R!?_?A#O<MX@#Y
MC['[Q0N]=;_W$!WE-^SC)Y52V $R#3.JHM>N<?\ \S[<X5UV@Y2?U"Q0V'$R
M#3.JHM>N<0?X^N$P2JA/_)6?5%Y3V'$RS<\:9E1%K]UOU;Y^N$,)]8F_1D?Y
MY2<U!X7-S33,J(I>N]]H 10.HX3Z#ZA4?E)_I[#C9)J?-<RHBEZ[W]X%4+A#
M"?4?4*G147[Y2663PN9F&F941:_=;S$50.$P2@AJ/9?*3VK6%':<3/.SAAE5
MT6OW6U,!%.Y00E#KN=3H*+_\I/92V-Q,PXRJZ+6#"T;!(=S?DCBT3F_E)[4:
MA1TGT_RL8495]-K]=EU #@< !.+   3C0  $XL  !.+   3BP          !
M          ( !2WN  4MJ  %*TH !2Q8  3B0  $XL  !.)   3B0  $XD  
M         0         !  4M[@ %+:@ !2M*  4L6  $X<  !.)   3AP  $
MX<  !.'                        %+6  !2X4  4K2@ %+%A$A$J-COX[
MRE_SRT]J80J;3Z91%;UV=T3_____G<XII/RDYJ>P^60:9E1%KUU65'\]A[LG
MRE)^4AN9PN:3:9A1%;UV\=_W'.X02[3>_____\M/:H7"S@(:S0XSJJ+7+BN:
MO<CARFYER'^,W2]>HJ/TUOW>0]C'+S^IC:>PLX!&4?_____:947@WWVX_@-J
M/9=&1_\=+7Z4G\-?A\E/ZA4*.PMH%(^JZ+7[[6:L0PF%*[N%2C+______2U#
MT(DP.LHO/ZFC/P;(-,RHBEZ[>'1,<MX;>I0'Y2<53DKC9!I5T6L73RPX%(A<
M_____^G2P'1XNDN%=VE@.CS=8<%PW]G%7XC9>7X0&*VWTEM7>0EN\0QB$L\/
M J/U5GKK*B]!) LN_FG\G=:[5)HXIK$.X+K7$=<3> =P74%@KKZ4D6,*ZGK"
MUP%<Q_="]YU=3X(C_"%":>)0U5U/*NX[NY[$G.+G#Q'2Q#&-=0#7U9>^'%-0
M]YU=3W(40*?>T*F3]_Q6FCBFL0[@NA=+AV+A,/-Q?"]TW]GU)%\?]#@^0"?R
M07KK*B]!Y',]Z0KGATZ]H5,G[_DM3=QWZ5Y'7$_@'<!U!8&Y^E*^#F=W3$%=
M3_@Z@.OX7NCJ>!DYIK$.X+H72\?W0O>=74_82+5#CV-IXGH"[P"NZTGS#N"Z
MUQ'7$[X.X#K.RW;'(75,8QW =?C;U9?BCD/J.#RZGC3O *ZKJS/G<B1SN._L
M>L("\P 1K3=&1J6WKO+"/$!$ZXV1,;J'8B-!S#TZG1,4"?Y@/?D!YB^B?#^>
M2Z6)P],=JKIKW+K"\ !1OA_/973_:'7*OH3[SHXD]T64[\=S*4W<3WCWXX6.
MY$WN7^1(WN1^PKL?+W2-JS:X[^S.G%1[OT5($X>J[GYE=(V;U/W*Z'Z'X0+<
MX;!@N._LSO %[?>M3OE^/)=*$Y<&IJLK@DA ]SKB?H?A MSAL&"X[^P:5_GD
MZ+>(W@<$$:WC/*@\2&]=Y26XG=GB]RWB /7>MSJE-'%I8+K&G9D[_^8 KL/3
M7>-NWA5DN^_LXO\!C_<)BBV)WOM6I^17FKC?_KF";/>=W;FYUZ_[5J<\2!-7
M5P21'*XGS3L@R)U977TI7U=7!)$<CN2Q.Y/=F2%7QS/WX+ZS.S?MOM4I#TH3
M5ZPZ\GO[[W8<6J'<=W9HE4)^A?I*$]>XV;K"\-V+/=YP0E$H]O'&**-^BRA#
MT(D(I/O.CB0,3J@O3=Q/>/?CA0ZM(/>='5KQB/QZ[BM-7%;T76%XK&*/-YQ0
M]/S(64;]%E&&H!,12/>=W;D'SG-?FKB?\.['"QU:9>:^LT.K(.07T5>:N*R(
MR16&[U[L\883BHCR^?2WC/HMH@Q!)R*0[CL[M*IPB+XT<3_AW8\7.B8O]YT=
M6L%,_>J7'6GBV(QUA>%_%GN\X80BHGP^_2VC^U:G].2^LV-2&.F7':6)^PGO
M?KS0,0G@OK-C0B#]%N%_>NL>Q\Q@RJ%50XY)3 BY;=__]-8]CIG!E#L'=VC5
M ^?Y[W]ZZQ['S&#*G7,X)K]Q.H?_]-8]C@61VC&)BT.KIX5B^RW"__36/8Z9
MP91#J[LY)IGM.6>_1?B?WKK',3.8<FB%K6.2]8CG?HOP/[UUCV-F,.68P+N>
M$Y!#//^GM^YQS RF'!/&KN>DD))X^)_>NL<Q,YAR3!B[GL/+*]@'^5$>I(E#
ML7!U15,-."!N%Y^X[^R88 L<(*+UQNB];TNTH%)IXG!VUV"[^Q+WG5W/:33[
M !&M-T;O_8E<OJ6)8Z.+2\/6%62[PO# H].)[ON'*.]0]B,C][U=;AF[M$<<
MP'5XDRN.Y8 @EY:% X(<JKHK7K0#@EQN*ZXX'P<$N6(772_<KC@V#@ARQ2ZZ
MGL/NBM_( 4&NV$6'L[OB-SD@R!6[Z')D=,7_<$"0^QB[[^QZSHV*'""B]<;H
M[9P>?:6)ZSEQN^ 9W7=V/8?NN7-Z])4F+@U,UW77+@U,]UVZ%TO7<^)VW]M]
M&;K@&=W'V(77?6?')$E!QWGWTEM7>=7YCDQ!QWGW41E!L9&NZ2;,SH/ * ^0
MTL3AK Y5W>'I#C_B4-4=YR4/KD@UA\3L<%)77]K=?8G[$H<W.21FA[,Z)-:]
MCK@ZG3D?A[.[[^QZSOWK_M3IG-I*$]>4[F##Y9!8E[K)I<*[[^R:,OP>[Q,4
M6Q+\TL0UI3O8<+DFAAS>Y-!C=CCNZDLC]UTZ)&:'ISLD&,>P:_>3CZOCQ5V1
M@.XGX;ZSZUGZ!8=BB?+1/T@31[&[*_'N.[LF'AL\_2V)WK^GT.,XK_,@ BE-
M7,]V<3U[I^O9!EQ]*99C&$^'L[JZ*%?',__ ?6?7LT?6]D3T#TH3UY/F'<!U
M=440R>%ZTKP#@EQ/V-U=V!W =3U[I^O9!EQ]:7B'-SF W=450>2H>_WF2!Z[
MAAAT3"-77YK#]:1Y!P2Y[\G5\<RLKB?-.R#(?6>7D_':GHC^06GB;@3OOK.[
MT2_,T*%\$*%8I8G#TUV1:JZ@BZLO[>YP=H>S.YS=_23<]^3P)@>PNY__7)$&
M7,'-KKXTVZ%2KHYGOG1XNL/9'9[N<';WDX_[SNY&@6&V/90/(A2K-''X$9<C
M)E>$X_!T5Z2:*^CBZDN[.YS=X>P.9W>HZNY[<GB3 [JYG_]<D09<P<VNOC3;
MH;J[.I[YTN'I#F=W>+K#V=U//NX[NZ8CF-"A?!"A6*6)P]-=D6H.+]K5EW9W
M.+O#V1W.[E#5W??D\":7!G<__[DB#;B"FUU]:;9#=7=U//.EP],=SN[P=(>S
MNY]\W'=VN3G\ZU ^B%"L-'%XNBM2S15T<?6EW1W.[G!VA[.[GX3[GAS>Y "N
M^_G/%6G %=SLZDNS':J[J^.9+QV>[G!VAZ<[G-W]Y..^LPLJ7J3MB>CW'I_R
MWOV#TL11[*[81?>='<[JNF=TN3FK*\AV]:4OUSVC^\XN-[_1ZQ?Y 85BI8D+
M^LT%57/UI=D."')UO'P=^H<J=LKK]-]P0M%]Z]V/6I .9W??V06E8_YJ2WY 
MH5BEB0OZS>7F%UU]:;8#XG9UO'P=^H<J=LKK]-]P0M%]Z]V/6I .9W??V?5L
M8Z\W^0&%8J6)*Q; !?WAOK,+"N;5EOR 0K'2Q!4+X+)J<?>=75;M/O(#"L4J
M35RQ *Y8 )=58]UW=EF5S]YEV3\H3=Q/>/?CA0YVOMR7N)_P[L<+'9[NZDNS
M'<[NZGA?+GBL^\XNJ_[-/D!$ZXW1^R"(1R!IXGKD.E1UU_W8H:J[[L>N\23I
MK;N:I"M2S0%<AZKN\'27ILD59+O"\$=SAXC6&R-Z$,0C4-1Z]\MNT2D/BD[W
M$?%X8Y1&#A7> 5R'I[L&,W< UWUGU[,0JGSW>P\0T7IC]#X(XA%(FKCN&1VO
M<8?5S0%<QS!L'<7N4.%=]XP.9W5 D$.%=T6JN8+ 7'TIEL.;7/=C%R,+5\<S
M]^"*!'18W1S =0S#UE'L#F]RJ/ .X+KN&1V>[EXL':HY=_6UP],=$.2^L\NJ
MF6.&'1./=RA6Z:V[DDL0X3@T\7VE?71:&&_IK;N22Q#A.#3!%[0]$?U>*!"Y
M5)HXO,D!W5Q=49JX@BZNOA3+X>RNKBA-7!UO#O<3Y5Y''!#KOK/+JDP6O/^ 
M'DH3AS<Y--WI\"97[*)C%-RAZ4Y7T,7AZ0YO<L4N.J;9#DUWNH(N#D]W>),K
M=M%AW<VAZ4Y7T,7AZ0YG=R^>[L73U9>B',7NKL2[.MZ7H]C==W9HB@L2O'7P
M/[UUCV-F,.70!)?+5T#,X-"#P"@AI8E+ ^_P)@?$Y%Y'W'=V617TZY_*0V^+
MS"]-7!IXAS<YU-N]CK@T\ Y/=ZCN+@WNBEUT6'=S:+K3H;J[-+@KZ.*^L\L7
M#]]]Z]WO#=T_I(E#TW_W8NGP)I<&=\4NNNX971K<%71Q]25S&]QW=FBJ+'3J
ME_Q*$P=T<WB3JRM*;UW!S0YG=75%:6YR!3>[UV\.3W=U16GB"FYVK]_<=W8\
MNZUU^/L@E-ZZRDMPR]>=F/WROO4N":6)PYM<OJJ[^E)&#F=WQ2ZZKC)SWY-#
MTYVNV$77/:-#TYV.!!-1KMA%]V-A5\=[(U?LHON9WZ'I3D>"B2A7[**[<I.K
MXVW.%;OH;L,[--WI2# 1Y8I==%>JNSI>PA6[Z.X*W*'I3D>"B2A7[**[4K2K
MX^W1%;OHL& Y--WI2# 1Y8I==-RSJ^/-Z(I==%AW<VBZTY%@(LH5N^@:)HZK
MXV7D\":7KR"'ISN<W7UGER\&4R&B_9\T<<68.+S)]:3BL&"X[^SR]1O2WO[/
M_S1QA4@Z&'$<_]E]9P>C@ISR(*6)8PKJT+^K#WG'AQ#1(D/1*0^*3O<1\7AC
ME-'I'>GP)D?9</VK'?J'1R#R_.@6M0Z1+OK-H7\%$8A 1*OL1T8N(KL[F;CO
M[&[;D><'66GBBE1S -?AI*Z^%,NAPCL\W368N:OC?3D8H.X[.Q@W?\\/,G3*
M6;ZEB2M2S0%<AY.Z^E*^#A7>X>FN^Q\N=9-['7%UO"\' ]1]9P>CZ(4>AS*\
MTL1=N<E5>G -Y7"-)TEOW=4D76[@Q:7!75V4^\[N%AV 'H?#*=1Z0*V_97BE
MB;MRDVL\27KKKB;I\"8'<!W>Y+ZW*\)QJ/#N8^Q0U1WG)0^N2#67!G<%75Q]
MZ=6N2$"'LSL.J4-5=ZCJCL.C2P/OZG3F?%R1@.X[N]QPM]2O0UE*;QVWB]9L
MW>6O5VRKWR_?TEO7,#%IW7>=# 53F.^\3J??.BA-',[NT+^?I.]3U&\='H=#
M^7S<*8G@1NX["Z:*]%N'Q^%0/A]W2J6WCMM%:\A=-O0Z)LI'SH,T<6E@NN\L
MF,++=[_WF"@?.0_26U=Y"6Z7^2IX]/N]QT3YR*DT<9<W.8#K )@.U9S+CLE=
MWN2 =O>=W>7=\&.B?.3LA0*12^FMJ[P$MZQ,X<=$^<C9^^CW">FMJ[P$OR)M
M8TNB[#TFRD=.I;>N\A+<LC(@_BZ[0;W'1/G(*4U<76$&4RXKVQT0Y"YO<@#7
M73)QG%_&<1Q2!QQQ.*O+RG8'<!U.ZNI+B[NLQ') D,O*=@<$.0ZIR\J* X)<
M'>_+%0GH4,VY[)A<79VYR65ENP.XKJXP@RE7<+.K+PWHZ@HSF')UA1E,N:RL
M.(#K )CN.[NLC-/@_8EH^R#ZO<?$XQV*Y5>:.+S)Y0O=X:3N.[O,L+[C!U'V
MMN[YI8E#T^_NQ=)U_\.]6#J\R:7!'=[DBEUT=;PKZ.+J2QDYG-WA[.XGX;XG
M5^RBJR]=01=77YKM,OO=U?'B#F=W/_FX[^RRDI=7V]A6I^27)BY?Z Y-O[L7
M2]?]#_=BZ? FEP9WQ2ZZ.MX5=''UI2B7V>^N(-O5\>(.9W<_"?>=W67ZJ_7N
MEV](FCBFL0[@NI[P=0#7%03FZDM?CBFHZPE?!W =TU@'<-V+I>-[H?O.+K,;
M8;+9>O?+-Z0T<6C&<G5%$'FYGO!U0+O[S@[-'V9OZ]TOWY#2Q-459A!IH^L)
M7P>T.S1CN>_L+HO&)&V]^^4;4IJXNL(,(FUT/>'K@':'YJ[==W:9D;[:CTN,
MUEN:.#1W[6#$>1V7&*UWI/O.#LTWK1V*+=]*$X?FHAV,."\HMGQ'D>X[.S1W
M>Y7=H/(-26]=Y26XL6:G\IX?W:2)*U+-%9!T]:4OAZ<[G-U]9X?F )ALEMV@
M\@TI31QK(0=P'6O6CK60 X+<=W:L^3'9/"8>[U"LTL2E@7=H^MV]CKCO[%C)
M10ZAQ[OWF'B\0[%*$X<W.;S)9?:[JR_EQ>4+W>%-CK4AAS>YS"JNOA3+%;OH
MT,R0N^S!U?&^',[NZG@9N7RANV(7'9H3=]F#8XW9?6?'"EKD$'J\>_/>[_( 
M*4T<WN18"SF Z_"&7'TIRN'L#E7=U?&^7!IX]YT=FK'%;#\F'N]0K-+$X4TN
ML]]=?6DAAV8F#D:<5]DYE%&DJ^/%<F@NVL&(@TF4Y/(!11X<:\SN.[LVH7_M
M_,?$XQV*E28.;W*9_>[J2TD=WN0RR\S5EQ9R:&;B8,1YM8UM=<I(5\?+R*&Y

tynor@gitpyr.UUCP (Steve Tynor) (03/18/86)

In article <11700025@iuvax.UUCP> franco@iuvax.UUCP writes:
>
>MV#J Z[ZW0\MO#BV%W<?8!6+K@"#WG1U:&*_M\^EOJ31Q@=@Z@.N^MT-+T0XM
>MA=W'V 5BZX @]YT=6BYW_'SZ6RI-7""V#N"Z[^W0<J%#2V'W,7:!V#H@R'UG

etc, etc., etc.

Thanks for posting these programs, but could I suggest that you mention the
encoding scheme that you used?  I assume that it's uuencode, but I can't be
sure since there are so many encode/decode schemes out there...

Also, could you post a 2 or three sentence description of what the programs
do and how to get them onto my ST?

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Eschew Obfuscation.
                     
    Steve Tynor
    Georgia Instutute of Technology

 ...{akgua, allegra, amd, harpo, hplabs,
     ihnp4, masscomp, ut-ngp, rlgvax, sb1,
     uf-cgrl, unmvax, ut-sally}  !gatech!gitpyr!tynor