[comp.sources.atari.st] v04i020: etext -- Filter ASCII files into PageStream format

koreth@panarthea.ebay.sun.com (Steven Grimm) (11/03/90)

Submitted-by: steve@thelake.mn.org (Steve Yelvington)
Posting-number: Volume 4, Issue 20
Archive-name: etext

[Binaries posted to the binaries group. -sg]

ETEXT.PRG
ETEXT.ACC

	This program (or desk accessory) converts standard
EMACS-style ASCII text files into a format that can be imported
into PageStream documents. The ASCII import function of PageStream
(at least in the version I use) can't deal with any normal ASCII
text file I have ever seen. Rather than whine at the authors
of PageStream, I wrote this GEM-based filter program, which
I am placing in the public domain. Sources are included.

-- 
 Steve Yelvington <steve@thelake.mn.org> ...plains!umn-cs!thelake!steve
 September 1990

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 etexts.lzh
M'R0M;&@Q+8D   #Z    ^94X%2  "61A<W1A<G0N;S1Z]FFQF'@[$8 [\ 9#z
M*7@)TH\%QH/W01>">'M(MP"^=X[7FZ]KJ!]]7L=WQ8X#@,@#^S> ?7D0_KJRy
M2?O.1*J1V<=3Z_G\?S\/W_Y2Z"3&<GO=]807+<@W6/P1Z#JH&T,;W_X%F #Vx
M_AV#>8U-P<=^GQ2*1#2R:LBK'P +L'P+) *P/N('/(-,AW@?6BUL:#$M@P, w
M !$'  #VE3@5(  )9&%S=&%R="YS]-3,Y;;8( C!UK/A[?^ 7W^O-U>X&YL;v
M-_\;7WN6??86UJ?]W8+/'!D!_D\ZOF4:?E*E4\W!%7UCW_!&M'5#6>[\356%u
M2?^;+[]34?=:)+5T-[Q>)&0EW4)E[1 E8>5IV_2I+YQ%&%9.]D.@.<FDJX\=t
MDHS7!F6BD/\^"1YY?9-6Z884$NLLY)M'P3:TE4B.MLE>+B95 7^(X!F9LI&As
MOU.![$QO__T?QDX5.(H0\I1N\WW &8?FOHOEITO\B3G]^\J*(-)DOXX<7<%.r
MHP+/ARQ8"?'/Q<JP$0-&63?8+L#PAN$TW[<9\-_J*-EM= A\O&3P,<;A3_UWq
MN^3'SCR;H)OW"F,;=W1,,/W(\0_==QT&^*;_YYU?7W3@YQY#/MF\Y\V/1EN8p
MD::=M@;[9NAO,:4S+.?2)N=%*0+PSNP]RQUPF=\V/;^<BB%QC5X"VT\_&%UUo
MZ63&JKU8_<C:I(1M?6RMU'C6V3I.EH':MK96IJW;(]UH<.7?A8V;T-'OFK&#n
M--.ZWVS7HHY5CD]KM7[)0X,_1(]?:*Z$NEMF"NS4V<VBTY+I!8%@G\,F]^*&m
M&RY-+H346^"66S;*.DN8U:&@%=IYAJ+8117+02I68>W;4RJ#")=#@UW<D@ZHl
M=C=>CL-]#KWJ1BMAX BX^3A$6BS0D93MA3JNQY9BY4]35@O0/ZF#-W&4/)85k
MC)=-),J:&2<M:F$]6IO>=\BN[G="I65DN>M""SSJT0DHE>79 9;EIX,2:CQ8j
M&SU:*"H&EG(CQ)"Z#]XR24PN.7@'=',=MP5/4)VY>?S;>=:V3MWZ50F=VKM'i
M=^R%^_*QE5JA5, 0B1X\?VEU&7I$9(>ZHV EV!]*YY491KL-9,EM',&,<S(,h
M[(&GHY=HN\'UJBAL"=BG;B:]B4@K$*!AH&UELJS1J[U3O!^+OY)U'?299*H'g
M1<LJ(^M-?<^--=QT]B0X)?^ ..7^%DR0[JU)FO">A23(3D@M@G$A9P6HT?JIf
MW5-]J(23CQ,(I7%4N:<7#VYWG52>/JUE,*I\=\*6AM.8%!,:I[W]_-_ ^?"%e
MH[RQ-TGUX44S;L?+D@N<-F\0S_&"=Y$+!O.0+I^Z,/@O?VK#^75CG+WL.Q2Vd
MA-E#&($VQRV!_WJV:8L[!GKD#\0JE'Y\_4"*T3\J/IRFN@<*(A[A5Z+F#Y$>c
M@6I'W5'$>"8AULAO$@K#NRP[,!DJA!W@+6QH,2V,"P  -1D  *Y[/!4@  =Eb
M=&5X="YC<\W=[;,Y;68F#\0# !+_=>^.!?-M?_Z_G^?BO<^5M8UK/^IK_NF\a
M^GM_7SEIZ/9NN?W]S;Q@M<#E=&$X(9HM,BIG1%5/L*RMM8$=V1TT!F1R?=#(z
M)\];!(R-%E9@U$[%'<8;P4"5H&FEZOJK^"D/9I=]T%0-QO5SSEI@3D0Q \8Zy
M.($)&T,(2W&"W+S<.D#Y@?(A/KGF=3%S5"F(P(3Z1#XQ)V&S%:DAQL/&K&2Fx
M+OJ]0_'H$EO#Z]1]O )LN8^_NT.8SZ!%!@>CO@B^(^PO1'@J&(^^_$#\02>2w
M1+[N$Y_>G7CT9@]^ O^"(D*L'L@E">*#63Z+HZ+Z6$@Q"?^51^H1C,X?T1S\v
MZ/M?IP]8L5B@9 +>BY>8R\%T2:V'\5@^$N33_?6O^ 0)8Z$]B#92M;9;?3(Cu
MNV%B:YY<>41HWQ#K]8TQ'MQ5OJ+VEY= 8WF")$H>M[4SCAONZ^9V2U4E-LL=t
M)]6R&4V\@R4D4XHSSM5<=5+KL[F2;NT]-LX(,&3L[W!KRE57>TE]W9KR3'1Ns
MG2'V,6=]5&;$V+R!%*O@%63Y%9_&VO=DPRAF[.J0L/"3DT<I[OI;GU0;K7[%r
MBL-U09+*>59!RQ5] 36V78O.>Z[3):M(SSQ'6R.&*R@WO<*+]<Z_^$TB0E6Hq
MPH[)5%)<@I(9MNPF2K<5TS-$0-M68&!J[QZ*0LBZP>_?3#- H)&G&)41^\VOp
M/^^R/SV7=M<*1R=BXFBL:4_HG82@)B%!9\^_5VD\=%8F.T*8E8=I#2 KZ:30o
MY>DFRE?6_HP TLBA-VC+#,$@KAASPKT !'3%.C4#G8M(-3IU6BE ^0S0PGZ1n
M)+Y3#/J;CKYT#ZNE9.8@N6CNHA?.>:6/EC.C_T(H0D;EN7X 2]"(SK]XQE7>m
M 00<O&?%RX+"'QO4UA!](*D'MXB=!'XT%J>UV=Y%%A CN/WR*64O=W#W)V\Jl
M3OJ%V$9'=R5+?N?V8B!>+DHDJ)0@&/L#9E&>^ HV#M[._X6<%[7%%FIZ6E/_k
MIQ CFCP@W[)>)[%?@D&8Q[2JA:%NF:BR%+^00^>>/7AFMXV/N,Q/!:L*=DW.j
MPV=J!DM!X03#9N9D%JK:PZ^SFXY>2D7#Q72\ZI&5N,T$?2_UZ@#8P%;GA9%Ri
M*5QD&"Z,.0I ]U&HZWAL^4LT.!'"T^FX([O<\9T9(.$VL@SMAKC^"\N/H0U"h
M>]1]Y_*0T80;$4UP50F..+7=PLRP +LT1U2N0K<.4Y!^$]S0Z6.?_IH@[,FWg
M/N5-U.\>"(=QJ.RD]8ZS')N[CF,\QPL9<,N0@9+/ I[*<T.K]5/N:LE,8^9>f
M9NJ7=N UNS'0J7PWB*7H?U2-U[J^($(O75L$9M:+\B)T1QA-P\6.%"W;:K!3e
M49/@=U:UFZS-X>99I;+)V_6XCZ;Y1H#8+MS*_G;T.&!(;]C-[M7@N;=H-))[d
M4>%VY#:Y-E5&[K)/F"\[.3U 7X>-RI+>$['#:RF<LP%^GH;@@)A\8ARM//JWc
MLP#=I.$=K+&^1_,#M4>5'MI(M(:=0MTIY$5@$Z26@THZ>J%]R8::!,>:1RTYb
M[FLRA]9W?"G>&T8.+.%QX_AF8U K-?Z>24U6\&#I>N+G48/8K5?4ME,DYZWSa
MNIOK%Z">S;ZIZ_C=[EEF:&P[1LHW"9NGD5H2G;7KT3^T]^<ES[.2#(MX,[8Xz
M)W\2TRRI-41XYVY-PPN3&\_:1[/O)>7*!>XNQ,%_G[(<2(Q9OZ)/&]'(C^+Iy
MBO=<YS>QJ!VN.T+[K9@4@!* H72XC9K^7:4I->AHW;R0#Z:=1:OSFMJ>FZE%x
MTS7LP7LTTMY?T/@\(WM;HRV"RR^*LE<YER?C\3:_4W&6%5MYA_Q942YODR$&w
M6V(-/Z+F1I*1;$(7H/TR^(?6<$"E*7IHPJ.-UT;0Z;D>)YX7RU:?>E=XNPL1v
MK--:1,Q;$4>EP)I-F^6U>)C$6JCPG\)/TYKGP$Y1V_3446W/XT_'/=K36C1Uu
M.WF2P[\3]6K0EP?#/&; S(5U,2[-*J0ET.]D)8;*G%GMAJ?RFM6K*KQWG+GNt
M 73^F\5O01_$-TB#$)6*^/ZY5-H14%YK:F1[(YV73@W],=.=LZ+XEN5^2FY+s
M9=0@G+KH06#UT>Q>/_8@\4<+\DIM?LO&/P<QUKU=Q."3]P-7+V4-:)3HLCR0r
M"_6%>#!RXT-6@'-E/&7L 02$0X[&7_L99*H^36.T.NS6:_;[!B1&<( HW'EJq
MHA$*7XPW_M9:/"IKV#XM-O_ 1_&K/H;7FFY]CTH99'P>DS^-\ASGH.YHQ"JTp
M&#S:U__BY)!'<I!O369*)8:U76!R.':DGS2";8]UB7;X+*6)1 TD652%7R_3o
M;=TQC;TM.H_ Y+Q#YY&>,R\U$]T.6=%>=17R4YG5HXTW?[^F2NGFXXF2Y.$:n
M4%M2U<M#7\S"*%:]#.<@AX9@74Q"0!7<[*GP]3V#+@"V8SZ)Q><FFO@U8:G7m
M@\5_3$.!)!_;6J KDZ26XOH&9Z*_-2PAX/:[8"%=G-Q5#I'9N&$;U-U;O(INl
MWS]8@]YRGT$M]-;"]8K^\W,MB4+)]GOSED[Z"ZM]]U/E,6LM%1<,SV&,=9*)k
MK!O+(MWZZ!SL6V8ME%:$%V-=UL.BI2*,#FUO5]]+L.(JG^(QBJ"/*QQ%:SXCj
M"/'CK]7()>24B)+13?3F,F+Y"+DQ%-Q5+ \MZ?$:X<*.D6I0]..7]24OB\PPi
M[S#]O&[2L?:7#,>70+S]?U1_#NL@N><W=D!)C-;V6WCF1 :/#U+SQ?F#L/@,h
MN) KO<5S5*/=*<#W40G!K<I"4"_B;\GY&)QOK%92 MZX%,:]+X=/ZB2Y>45*g
M<O5:<I&NQ?A#_T*^=;\"QO3,WZH1O$EC^H>N<\&E2]TK.UE,7\U&$[+IYJP:f
M<_67WQ0?%H9,%+W)U@9-*558XCG)B?^[UIIS%7=!UF8EJ7,""+_O$N;,.1XMe
M&PVS"(HLFFDP9=Y-JL<KNP_;=1^P%O2S .N%GR;6=U>>D71-9E,T3Z5=\0-Td
M1\Y;JQF\C[OIB8L8Y0(N_M^B!>&@I^N,YQ=>%BUAFY?.&G>_4\?M[,7HGMG(c
M'\:BP]HU5HS')+5'_>Z>)$AW/[4:7C>TXJ%QB\&>\0#HDW8C@*)QC^/.[07Wb
M,6P+$_KCW-(BK LC;+,";0IV=@=_,!\((08#D2:_X!<"UWSML$L[_LY&5IOWa
M'**]%OD&ZG+LIDY_+:W85LOOI":,TS!OL!S8OEYE+EA)N7D7XU8'?M)<1>:0z
M47'U$_C^M!6$E\TH2OWEX!&UP]X@,#\!]V;UQ$K,)+"7*=Y%J8'E+I1_Q37<y
MY<I![W=KR4BZ?S:MOF&T#\8#,0"%B_$';]3I7V$GNP!YDR]P^Z[BJ$OT7NT]x
MP[VLUJQKJ]^0= -&ZM!]%*,A[?UR'\Y.%M@>SSNM5/ZGLCGGQKZUZB5+DK*Uw
M724V7!?3J^BQ1.8;P,38H,8@@GP3!7TJTVJZ7EK/-B_&!TKZ#O.A("=KRDGMv
MX_#';4/ ]CK5[B>7X^33ID@;..GDI^" ZO_^DE9VJ](PS'V8#^%;VOX7LGOIu
MBW73NM(J@P:#JF3K!G:1)-;?^]:K#>!ESF?0M_&P;QU!@\CH8DC;VO#X<.%?t
M9RDE%\_-*]]8GJ^"*H=<)>=-KIFD[J^_DKP?'. ,\#$'HMXL_FL#5"9&W"N's
MX<'E!7=>O(?$WOT)(W<7WIB/#%WLHH/?]$S\<OYJ^+T:>*O3OWCWLB[//G]Vr
M# _? ''BL/0J$2!SU1$7LH9:A0J) ?)1Q2SQW72B0_*[Y=L_A6]F1X9OFN6Rq
M7ES4?^TN;K0-&JYV4TR[SC>@3#+1C359VH=#PXB3UULX+>8FKR/^&74%DDQVp
MK#I^N5_&V?;]K'#5%_MJW)]K ?P/#Y2@YOD@<U%1M^MH\)C0F D>I"DE0EG/o
MV.$Q"GG06K$"EX+_+SX!"(HYLKP[OZL\(]5I;>0L-/C1AFK)2."D'PLM;&@Qn
M+8$"   H!   \'0\%2  "65T97AT+F1O8Z+OZ/@Q?)B;KN=[IYG+1X*YO/NKm
MZ]LV,K8^GU_^L_G^_?SK?;^:_:5E*A\/C8?>E5>^@HIL^;3!=K'*G?H"DP@#l
M\<$+#EZ.+ [K1 ]F[>]_<P/)O\2H'<-&ZJ_!"9!%E?*Q?FHE,&[*JU%K:KM2k
MHTMRRC@),88K]RS'B6N6=,NC("]"/!;JQ*3#(J+>0L2X59BB@PF6DE]).\%Wj
MDR@8:47Y+WR:@#*Y;J/9,("\@.&6)93&Z@<H*V)P_1HC<'ORDPR\(;^B\XQ2i
MI_!V#_V,S4W!B?Y\J(>G@RUBEB_+X07Q9SSX?P!@)+;C/[KY+V"]U]10SX#&h
MC^>-_NG>)F<X EKR;\7T(R;+//]V'?V@(-92"D[6)0^+@]V B^PW;X;]9-=Kg
MH'\/UOHY_]V/6WT4747@G7X1VV./'?/<_.<>A7MR"S6,*]W+9[1?Y+7?JI2(f
M%[[8>N$)4_?E!#\LH_XBR@F^N5OB32Z(N2[;G5SPTRS;*-]E2.6.3JEA;]-"e
MZU6731+ST(*HU"6?;V>(-7*J[\$8W-F4@62K'X'498R5*'E[-I.-U)X2E22Ld
M:Z0<14=6%VJ6F4RKFYMP5Y2<SOA4G7A[EP[OIAHC6*3)Z]\HFQW2DV4J*C8Wc
M49\E^KCVIXWC=;1_?MDGL&D1P@(R7%P\:50IJ5H3YR4W*ZBR26-8-DD:EZK-b
MP9DS2%V4K@=0]3Z%&D*W6;JZJ1NS?:U 0GJCN[1B#/;V6 [E<7EKEB_E8)"-a
M83DE2RL@J@ZQZF'Q%59'?R.?)H/P,$J+0K'$>G;78=)S NQ'X1W1X:3NC*](z
M+=7YZ[BF<_SOE["C98TC?]*(5)$!Q\+A$0[1O0!O"+);Y5V2!?P>!RUL:#$My
M! $  ,P!   9>#P5(  (;6%K969I;&5F*.YWNGR?B 8()@;K^?[YYG+<WGV<x
M@#O;[[2ZN;'2[%QA]_"W(%K*[MU:FOG?2U_5W0K)E'0D6'5YU?.AHI]X"OO?w
MM^!#\OQ'2>CF9@!EQ_^2*'O:M2PB%WZ(9P#0/<H]@I3ZOR_X6 ",[YT>Z!1Tv
M9W*G%N97EE(H*+G'&RMV+\MJ-AAC8;1(;FUM@\P#JI%IEN&>"K'Q5QU(2IL6u
MP8W(BD@H-$O5!.C"Q+&Q$#11:.10Z;4<BDPAQ8HXFT!$DI@)2D<&$AT>VVH[t
M+="GP!F1*-_HM *J,#BCD_MC.EL+-VDQ^V2@/B@0J'<8%U$Q+=3XE5:A!EM;s
0_)9H'_KISX%A+B2"<@3" /MCr
 q
end