Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!newstop!grapevine!panarthea.ebay.sun.com From: koreth@panarthea.ebay.sun.com (Steven Grimm) Newsgroups: comp.binaries.atari.st Subject: v12i073: etext -- Filter ASCII files into PageStream format Keywords: lharc, uue Message-ID: <538@grapevine.EBay.Sun.COM> Date: 3 Nov 90 07:37:18 GMT Sender: news@grapevine.EBay.Sun.COM Reply-To: steve@thelake.mn.org (Steve Yelvington) Lines: 232 Approved: koreth@panarthea.ebay.sun.com Submitted-by: steve@thelake.mn.org (Steve Yelvington) Posting-number: Volume 12, Issue 73 Archive-name: etext 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. [In the sources group. -sg] -- Steve Yelvington ...plains!umn-cs!thelake!steve September 1990 table !"#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ begin 644 etextb.lzh M'Y0M;&@Q+=,, D%0 ,'T\%2 "65T97AT+F%C8WC_]FFQF'GM9@P8[J77z M8@1=+ #=1@/TGT[2+:@KL<[QV7-U[73!_XI5N[XL]_$D60]u M*K-40WR\']^2D3^_(]K;!\!*[XR0^5E%+MS!&?-A2X]0I._Y:_#&_A<=NI_#t M2+8)X%B _D5>QU]N*K[ P[8^'S&1TK#,D3.Z"]^;'B.['B.[W8D\6]J2K+XEs M>025='?YC_7/01$:F5W1F=__[J%@O '(ZX1SJ=T\$I]_",:OA?B5J?K_GJM7DPZ/%"*K33(D=?-,K[F*]1[[(q MFV&/FF+@KR5[V:A]9M0^;,?:X8IG@F ;GA4X"IXK#UI4NK*A)!\)SMNV=71Yp M%3=!L*9I\<0UOB>W0=;M*5N1ZYKH:*HG)R=5(XZ &^D=2BALJE#*J4+9\H4No M+J:HJEH8ZL*[-#J(R*HI8PSJ^L+E5T:&?RZN[\,3R]*O^R9%4.3--^ 'UC!=n M77J#+]X/S1(%Y%9!^E T6WBHSUK.7KXG\0*S9Y>C/8<9P' =6"-7'+62j M+NN?$RB>9>C]J4]9M77#DCXV<)W=[P:@LO4,P5!@MPK7OKFI9#Z@_CWM'_#3i MO/HPF9_(6\UT0-]7\/,RR;Y Z\<8AY[ECTG+KSQ&D'K4I1GW5*/Z,(>WE3+Kh MM-1[^O8ZW45GNZ@3 ^"I!8O!ZK:1>Z"M%#G!M?7T=[[0!"Lg MJ9U_AN5SVVU1&D"0Y$NBR[OZA$&]$A'I>]BWCT8,*[_97C [=:f MIR+O/@5BS1L R(6+KRJD,"_K4:1'6MZ)V;"'N[?:EE.,BS9*PJQS.[=1@F*=e MS<8%%7)[&UNB7D>(*P_]P,6JKJ@$E_*_#<5@@7M.VA!M&(. .HA$_A"2QMF6d M3]^4@F.0$EQ3]P/F2?X_>*0+6>HWA[5^*?<7,?FS4T*7-$JC.4+FD>%3./1Hc M%6XH\DKIJ7*+I-P0=A9Z;/L.24>*CF=W;61XDA&3Y'*&%#A7MF%Z@?[SP:?_b M.2O4^]Z),TW^L%C'/%\:5V0C?3@A:;IIP9=4G8NG OILN?>3!:_>-T\\YOQ[O9z M+N]D7+PXV94E+5+C'*6O&U5LNB[.94-EM^VO1N4+I\+U*=Y&%QVFUE>25Y[Py M[@+U#^6&UEBI,GIMU/'MJ3T#]x MX59*@M=PW6ML#_) /S99T7&1KT8OAY1Q$\9!+EY-M1(C^@C&OT&ID0*G'8P5w MXI+]49:VY&5HS&[=[D9,M$=TN-RL\@=-6="6/>S9FE(0=_?7A<4v M-[#6W9NDT5W-;!4!7^RS\M-[%"EPX:;N%)Z><]4ZP?"51M4NFSIKVD>UVY 4u MV) P)O25"/IIN=S;5 <1$T3TSVSOZ6J7E,CXN+;3/\"L8H?R*HW:MRS\,UTLt MN./ANXD,"+\$!WI5_B,]D#;GD#\Z-F><;L4LJ97CO5(/5R;I_D(?0CF).-_1J%;Y1E?I7#VE.[q MV;81&X.G2.Q,X&S@2!Q('\F3&J@S'40)8G#p M,X.,_%'Q%\WWX^V96N'VKQ)2+VX%&HDB6(^_=IN%D#[+1#U^^E9RG90L,$A4o MWO7YMG&^Z!'<]AV=\D[PP<.CTU>(:TTYQ5WY,5FG]4!JYSUTZ.;B[YVOP;9Un MS;/5Z_.R%&$F6)G2X.=K]XZ)*-A-+=]_!2Y&_NIZ3$G2A6W3P'[6H\PCG!NLm M+J)LDQB-W$Y\_FF>=I+PXJ7-:!82%Z7%NU$WF%NVDJS&/M>&=N?. FH\E[4*l M7 OH&1*AW^#MB!3VN<*08I@P1C)(J#$NP_@9:T\#6HX!O7)&H>:C1BH-,VTKk MEMZ^"A6QW4=E!N=+_EJ[:(F#$[\5+%LO]]]<4W:#UCV\2T+WSC'C)6]5B_Y+j M]=B=!=&/[L#I3*;\R'[9"H'PZL+."U_[&&$JR&TFH $%L*5!GPAQ//"/N3[@i MV]F7"#(U-\NXIA41HI-G[XYOGKLA9LZ6\*%!%#*.BC#4PX24L?)"PD4A0!I#h MM)?F'Q) ]D: [+79B\Z3/)+]U8[SI]4U+CTT,A*8_[]IG[M7OY?U_.8_[(Q5g M+OBCNH!\*'*<\NWDI]JS;\=*$1 K/_6OO]M_5L?NU]7D>HP+?&;P]$#)-_JNf MVV6MWA3GL#"VA]Z?*6$^@UYQC(/7I*2.">[\3ZF')]#]]@7P\$SCRY-6_d MP9C5P"UC[W*W>G-N0P0MG^L[:LXK;P?T)2@[3.V]U7/I-O Y, <^N[;L@?Uc M;9;L &7IGV[^".>2IO[9V=>_W$:NU6B]-<^ TTVCG[L&].[V';6W=QOKJLD*b MG=;D#J<(:5DXE4C>U?F=_:]U^(R]M*^ZO&C4E&CC'OMD?F+&_K4D=XF"+/2Aa M:JYEA[6QX"K3")N;6/@#X\?#)]FXF.8NZ*?6F/-?;@X!>MP$PZAZT(*]7?7?z M*\.++*\RD]#F_M#MZ0G'/*'%?WP_^[-VY? '*4AN^=U'GWBWFK0P/Y810?MFy MH[6Z5.)7Q!\=*?#JX\U./S?]KP=H"./IW@^6=;NQOQUY7_]"KQG@L:E:HN4;WK5^X*PW+F?D?TW)=.?S-ETA%O7QB7WY\')D._E;6<:FL,R>^Wv M.3OQ[5?Y#Z5L?>-Q)S+5)++X.)R[0HF$_N\2/L)]*8<]9X#)_&'U7JSQ!M#Du MP:8Y!.MLG(D_\+!;K%<"JZ$+DS:HS+PHY#*KK0;V36MFO<5>CDS^,QJM?;(Kt M+?]E;OI1VGQD>U$W"U(R?NB?.KL7!8D?Z))X'+Q#+.VK!);C-??'WQR3G2^?s M>'(K.1L-S)3T:!]\!:Y$>'1%/ABNQ%[@7-=( NR3UU#K)J$[);;+G)8U3'@#r MIYY/C&@>0SX-< =?SYDX<6C?[R[,'5E>FINLI<7$;71%?[29N/:H3,T\P3EC%:YGM.#Q+A]=l MH[/\5>H,;8&M9&&(;N07$6UB"&%B\426;ZQ#A;>#\06P(TA"*J%"<-N[%1T\k MWJ%X> /'ZO,\ :>,N.X \P-/@N@/<%S^C0'O;!]X).<: Y/H#P] >2C(*O Mj MH#8F@-$[P.!6W[8FX6O]T!\6X8OS=T6+@S=0+Z0*4T1[\"W$Z_!AH9_:%\H:J7Z$g M .-10A&>BFQ?+SG >T;"!O__HY^YN@/)E^0)O[K_ =]YOY$K"@*/GD3*P-Q)f MC ;+I"9SYVDU.@>>BS@MOB$2JK/WB#[^C;GD42@S !\++6QH,2V! @ * 0 e M /!T/!4@ EE=&5X="YD;V.B[^CX,7R8FZ[G>Z>9RT>"N;S[J^O;-C*V/I]?d M_K/Y_OW\ZWV_FOVE92H?#XV'WI57OH**;/FTP7:QRIWZ I,( _'!"PY>CBP.c MZT0/9NWO?W,#R;_$J!W#1NJOP0F0197RL7YJ)3!NRJM1:VJ[4J-+T7^2UWZJ4B!>^V'KA"5/Ww MY00_+*/^(LH)OKE;XDTNB+DNVYU<\-,LVRC?94CECDZI86_30NM5ETT2\]""v MJ-0EGV]GB#5RJN_!&-S9E(%DJQ^!U&6,E2AY>S:3C=2>$I4DK&ND'$5'5A=Ju MEIE,JYN;<%>4G,[X5)UX>Y<.[Z8:(UBDR>O?*)L=TI-E*BHV-U&?)?JX]J>-t MXW6T?W[9)[!I$<(",EQJS<&9,TA=E*X's M4/4^A1I"MUFZNJD;LWVM0$)ZH[NT8@SV]E@.Y7%Y:Y8OY6"0C6$Y)4LK(*H.r ML>IA\1561W\CGR:#\#!*BT*QQ'IVUV'2&D[HRO2"W5^>NXIG/\q M[Y>PHV6-(W_2B%21 3EEOGFF.>^m MS+ /A@@*NT_$*VY#^!V5;^544<$X5_%L)Y6)CH2#2(\UAR@OL(4#-)]USKA*l M!SFFIT]N.$>LJ4OEE(/PF<*W(_UW,$%*3?H%("28'^Q0>P!/9^M<> DLZk MO ?Z(.J"F/V@*D ?8?\X)"WFANBKJYHZG:VD OWUWE^L=9*\^Z&GNQU$*_&Ej M.CB?%9$X)?RP[773=O_V4W/?!TU'[5@?*:!UNRJ"*0?_\(1KHW,H%7F),BISi MG M1Q NCS BDQZQ]&80F%HQ%_@/B7D"G2P/@,G*(!_<0NF4T4CKXDV.FID?Mh M8.XA!^&L4(5.79Y]]\.UJ\S-!T9).QXUTPT>YI#J89V_F;_-:PCCQ>4HCES1g MU&ZH/"XE1P,"+ZKY:)A 6O([D"[[f M9+5OG)!-# 0/TE7(Z^&8S;==9RXXK7G3>.:G0* O!>NR.N+(Z^JDGGO*)6A\e MJQ*L G5T=[L]:KWE(>ASM]-=ANRDU5X'RZ8&#LYZNW^Y+OIP35HE:5'URXUSd M,/^I1=2]G'7S/9YIQU>N'Q':<3T($9556XS#Y0#.JJWUWJIUJ^,S."R9W4\Rc M)FU)X%P?,9H\-5#IVE#H9CW8[+?A1>'T;'6,Z:8PS6?0L=&2"#FT2+&P+I9Rb MIMN5/L""WM&"MMAL=+,GLCYZH46GBYP[D_J10' ;:1JE,$[\H<'RA-ME#$[Oa MVFK:&<^*_M#".9&X)A\#:&%^+MU='2R?CMB=:M7_/]HK2M/+-^,'F#!3=JAQz M0"@5A,OMM!$PU\/K[+A0VC3+G-88"&=3NYG\C]R$_MW$W:O%?;A?W9*LMR58y M P'XI3_H=Y&O5VD(J7G\D\,<1)@QDM<-P065>(Z]_83!#ERI?)-/'I1VS+B(x MNGS 43QIRW5O@]4&7]@?S!P+&-ZA_X)F*PD4 =:9.Q-KDYLK=A>2(I+#&J>v MU" S#>UL\IV(]9?H<^F;#O%9I<7DDE1@,3J\V1;US[\,ATS-_6_\R5'FJ54/2__32.B-XY6DH7Y6SO_O.J!o MBLQ?DA&+XX,<,T3TGO,NHGPD/6B5+V1*^]TU.&7[[(EUV\@VE]T?A&4/2X43&U1Y%8*.C6?4P4 'OTC&#WW5+-7&30]!8./_1OLMUXL'.0S?92Om MSH7=>94:Z%'GRH9C(Z!OD5.N\TBAK!Y#__(]<"<, GN.!*^=X1N4l MY:&"%IQZD0$EX#!:NX_\* [E0X!!ML,FH6;:IF#!#-@[>IM@W:& MXG4E1W(k M: :) /*GXH],.QNU:0_^/8(?[.W]0SA$A#$'LDB=7Y!$Q[@'O#A9F#*_(Z\Pj M?3%9=,Y:LMGDW%V-KV[#CZDK:"?/JC<_ZF:7B$D NU._WI4;K0O>\?YV5RN8i M!X]>" 9S:,O7,"\AOL5E=O[ND9P H'T#ZG+CJ#4N_^L=)#HBU2??"NKB/XC]CS&"R6[^6%N$L7E"B7]],[U!MBKUC;g MV]:OW*W;@31F-0G&%Y8E-'TS+1U07_5#:$>I4A:E;!"*:[FR^5ON39@2NZCe MC;J73V=&=.[GII(%$6!A-(AOOB"?9RKO.HN^P ^N^@+M>XO7[U^E\MRF>5*Ud M O?>?[-_O96D??3"[-+QF/5>QJ;^ OT'8D #%#M75^::G^VNH+N@5GR+FYF?c M:*/WRK6L,I/Z=K[:@>SO3R]>^[NJ@3X%WS&%N[+W1LX$%$>^T/5/@NY2]7>Jb M17[IAW.Q.42E^+L_Q"GW+A T]3'K"'Y*P7EYZ;4-[X3/:KBW'"\6_7^+?F-La M6\Z&P\6X3;(9FN+?:G2E?2Y#2'9XLOW#+SCQ70y MCR)4XK)SM8V91E"2QC4=[$.Z<*!$9S(P0GB-A-RB"7TG!U'"]/1:V(W]B"1Q[\X;KU0v M\N'X?PM('[D>-)7G#*Y'H/N'Q8%YJ85G,*]\*E \\#>;Q',I\$76S1O7SAK2KZ(_7TF;C2KG^.9YT73[X+ZXKB::/$'8' VR>!K2t M4LWZOTY8)+X!-:YJYCYLGW#>PL"E\*-Y-[;F5/P\:-2)2\M.= 6A=]V<>%?>s M,^Y5^*/1:Z:KY196F-E5VPS&+5;?Q*<,BRSO^?JN6*1I$5]+"^^XW"q MG^8 !N1'R &0\)3+I:(P;7]SZ%TIIP]/5W;*CVFG2[OSAN["+LG%:]N[WW@7p M^DA2,_,'II9OP?W#7WD!W5?GPLI6L^%4Z815V5Y_A?G6?9=89+ :XG]=/\=9o M50-!5@PO.[/O,@EK7(7&4R">6\MU)[)"P%F1^-B!XX\?8G$8%:"S*H6O<$V_n M/__.O$>=!_?@(I'_=O?G"Z\+,X+!&L8W/3NRF/k MSB:IUO/R)?,]\0^ ]7I>V)PY1"ZY5M6;]>J>V;<4]2?S K*SA';FE-MDWEQ>j MOMGU>Z4Z(K"_+,F*,12,\,\_<61VRF@A11F#EVA)W+Z;'ZM E0UB/\L1LSKAi M66XL=)_X.HW>,8QO=]\&TWY<\:UMDL5E^E 8^^]#;Z&'6BV,6Z^"T8OR[,MJh MH/CGM;Y9C2L\"-[;\\!0Q[2Y?B1H5^A%WW%FCZ:G))K-JXV 6;*;%#Q=5TVNg M@NI.H%?"?<^H:]9C]X@@46VS\3?06U8]@"C93_*J[!L55/]V[]7]_JN+/W>5E2GUFS[b MEG15\*GS/]M"_O=([FPG_#\C=N3Q_L""K/S?B_>&N>W*>2<1;2/Z-)UCO;OPa M)QQF]F8E+OP$N7PWO'7]T+"QD+U=?JG$$F+U8A?,_X$M:(E;;V9=4?$I]@6<35RU6-J;B?LV!JX6VMPy M>T-T;!I.VW&.&A;JP( =E#?UZUL*UPx ML"6>2N=:PGMO>\K?9.F;+R;]2D6^TIG0=:GH.Z;TE"=2'"E@*OYO2)>OMKL1w M]_#?)I(]3M\XSF$'<3-'V^2G^W0/0/3\*.K97?7<GBVX^"$v M!-SW[_&WOQ0X#MJW2_DBAHT1XMC9RSR/%O<_,SOUQ[8>E\<_CW*C[497OE)1u MRRG8D(! .]LNI?Y[*,JN\TFPN 7$_X4A>5O"V(^L%_'U/:.JZW0]?X2+Q \.t M:MTYJMHOSX\V]'IZG]^LHN7=CRN2H'=4]X[[3K[:W1/@0S:FFA)T^@ME;Q>Ls M=$)?U__?F^4;O2D5_=>L:>D/3_[[Z0OJTH<'^X%__7KW%Z%3U'F:M14?<@?7r M=IWMUVNE*C,NCM7G5J!367W8"W<=.*)U[I6* ?-Z$8Y85]GJ;4.AM\]2"EA=q MP,Y#)U_O)K53^#OG0NJ7BW\068^XI=2&60- /.H#]H903RB[*V2PI:[_3[1[p MO4:BS, VX;WKG)[?W]5_TC=L7C_=E?YFK[,3H)O?OGX\89@+2@CVC),.]:"Do M!XL*30Y>T1WU37+B5P_H9EXD&QLP#;EL,B9Z4_>.+P=V&G,8AU6)"#9- _Q#n MPR<"8D\9*8MHSB72DZ<_3:V@W[J81<7_ZG&;FF/3[A&#RXG.J,&4<#Y:.X^Em M7TEJ#P6K$>%JKWE?$K[[X,"^:V8BFH9L[\899\R%[LS?N("C9/J*LW,0&=?Il MMD_S"07*2Y"[>L48)NOSJG9NNRI#Y%F=;5;_Q(RB=^_+JE@S+>8,2Y7C&TFV&0\=L#j MXG82O]O+]\\%MWL\YBZ\CE_SW$>+0)( #-$6P9V(4QO+/BYEL?\XMJM]Q1G^i M=!D:0.XYYOW,M!1G <;PO28K:7#[%BUNFZ$RAh MCL9IPG2._5PY.U1*74*J7P%U] WT=ASA57NT? 6,.VU%E^*54:L'7W*?>S?)g MT PRXI;<-R"VRG 4:U+&V3NRM>Z9L4%#-??GTP#G#>6!,*OX'!#"JH$$_17Z5O#/KO;:%8?G.XB0+JWX!U0;>Hd MRVMK'J9I.G!M'[W)3WP%B$JG_TSPZ8KH](>,5P%7b M/I*CI145IXMV3W^8>3]XMIR8([[F'3).2=%[[^_OG^4N4DHBPW6"7YK&19&&a MFC$]@]"S]SMO/ML2EI&1#:O4X\,[%#T/&9LCNQK"1NREP/_-$!M)N]H\1[26z MU*Z?[;;C6#2\TSV'K57F_$T=Q/HTF4.WT\<<=H<&?)U\#5.\?#)1>'ML^WIRy M["26DM\G+0%<<3]4)0U<3]IXYY:WF7;F'SMR_?(,L"Y%!IQ=;?,/C4+/"W*%x M<%1-K7w M)'35$3LO38@+BC]D)/FN?LRS1RP-N\F&I(RL\!^OWQv M&[:(44WWZ^B+9PP5\W(K,D]];$3G2G[+"Q.Z ?3C9=^^ X3&]KH!S''#2BQPu M'6,L6Q7> \SGEGI OQ2]CS9)U_.G'#,N"P6S^Cs M/F6_&H2:828H%-KUQ?:97*-JV4;@K3O88>5'@AYRS/'P<'O'R46^5]R^+KR,r M;SU+YYQ;R(2_+V4R>4+#Y*_!"EUX,>B+$)K/F@ML)Z1)!X-(W+A.#L^%BWL@q M7O:=8H0>7B*Z;3B/LJSE$B9?3QBLQL]_?Q7.'VC]<@YJC/R@5D(?#'_P9X];p M;Y\H2:S;B,BHS(MKK7EL P%NL.O;F3T,1MI(^IPG%,!8]YR,27JY<CK[\P_%BK>R%D&\;<&JO\,3<(&;S:9EQ'A8$U4n M CZSK^+:AWZIN:%'=7'ROU6-D"+ZIZN$3K?E? &TH N2 &Z $68 8*=A[@YCm MBLM(V\E? PD"I*U;<]/;!:JP+#FFF!>9N\&ZSB[JM?=Y8YZIL;\'5S!--I-Bl MVN(!S]!T@P$77T>#^NX!]1>N!X![N*;1X!]G$6ZN ?9V%J' /N02]ST5TX!Rk M_@&SF9WQ!3@'P#V3S-: /UO=%WE=5=C=L95*V'=&[-XUW@/N1VI*7 /N!N9\j M5>WF/A.E,Z."*_//T #[S &P#=D >1Q" %_4 : AO/ 'J48 "'Z#P!6L" #)i ME]HFVF 'B@-&3ORBYJ_X%(S:_UA/Y,8J9,F^.5 "8G< %5&HQYJWGQ8ZF>K2h MU5L%/%MJ5>"YS?4L^" .4J;B&03@O> 0U ]@9BQ!M^_PYS(06/*P'7M?4 4#*>9,A@ "f M.N!B]"2"E[3";"PP[N24$0O%+)B((BDK%0I0^LOY_2"/4IGUAI4B