Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!husc6!think!ames!lll-tis!ptsfa!varian!cw
From: cw@varian.UUCP (Carl Weidling)
Newsgroups: comp.sys.atari.st
Subject: Program to reformat list for printing from 1 column to 2
Message-ID: <650@varian.UUCP>
Date: Mon, 13-Jul-87 12:09:46 EDT
Article-I.D.: varian.650
Posted: Mon Jul 13 12:09:46 1987
Date-Received: Wed, 15-Jul-87 01:26:14 EDT
Organization: Varian, Walnut Creek CA
Lines: 182


	Here is a program that takes a file and writes out a
2nd file double columned.  You can print the 2nd file and maybe
save some paper.
--------------------cut here---------------------------
begin 644 double.arc
M&@A$3U5"3$4N5%10    4!X  *L.'+8FWE\J   ,8#0  , !T$ #! :&8 $ 
MD@,5;P 0 -$& (9H[0B2J,A""" 12)1(. -%A"(32DAD4:+!##^3(L_P8+ !
M0! S[&@"D&+&G,XC9L#IM&)&F\X>9A0HF7#&P(AE T78$)()1 *3*%6R= E3
M@AEY)@"8D4'5J@A^4;$4R0B(@@8D@H3(  % #@BW9RS0"G &WQ0E(I3A5;#7
M##XA*O[] V..JH@$T_)%U3(BV&07258DD?BBP0AD SLP>('@!0!)@,@%FA+D
M1X!)S5XDZ"SDS \> )0X">(-+0,E@\RXN"V1N  GN096@.,#$'+EOG[P 2" 
MNI KSP$L;YZ]@B\L3S@YRQY 1&\ "GX R$Z!#'$FNYU8&IL@*&,9DB ^7X#GAA1-UR/>/*D*X
M\8\K$Z+Q*!L#X=+H/ZQ," 6F;)@ @PN/!H,6%*9]BBD2P$1S"0@?@ !$-&@!
M( (V<(   2!2./HGAGBJ" <4ZIGJBJ@ 0&& 0;)B8YJ(:)RG%"!G<'%IIO9M
MR@H;2 A++*D F,H*JJJRZBJL46'#  0 @, &"-J.6BJHWZ:Z:JNOQCIKK;?F
MBBD8L.CKBH+_"!'IHV8,9,^T$]+ Z4# 7*K*A"@LR@8+(#@!C3N+>KOMNXN"
M.Z\(0$QC+S811/%/OXZJ @8SFDH,0\479PRO 4  0,/&W8*JBL>L@BQR5+"4
M?+*^*B/C<,NJK LSQ@^#",+);#"P]**U1@#$T"F#0:L"'5P=L 5(. K+G7X*
M*$J)^OX)P#\ZD*TD*W P *>5"_ BI]M+PI'>>G3;_82" G"@A*.NF,$ ' ',
M/5![5$AHG\*N1!0 %-,*2T#--,"BJX4-IPRQQ!1;S+3&[N;RJ5'UU\%KK
MW;5B0H M-MZLF(VVK@#3D/#" - S?+$2&W$\Z<5RK'NXO*M>+NO',^"T\L<[
MC[7KLDCO=?5AGXR]]D](&Q@(43EX:6Y2/:_JSGOUYESTH&.%L N4<([,5-<0"HV]U,J#<8RO )
MB(,AXQP' $FYX@P X <'#(4H1?&C,RJP#P*44(DS<. %RWG3>H)P-_^$0 9N
M@A,5GX"%1H !'"KX A$3-1\ O, %^!P-&HN$PC[.Z5!D_(.VQCDC/G)3@.$X:Q ,I*/)6)D
M;3CTCT%! @!R^N,_*(&$:\  $"VP#P/^P0].\@,%4,""*U@) 0X@ 1 ^   #
M:E:",VA "4< X@#, $D$_.  +D( "-    DXX9-R H,V:M6#J\$##O^HYC_8
M@4UMNJ.6M\PE XX @!:8P0&(TZ8\P(E+ ("! )>2QSB[93@XP$";\&"G.,FI
M C.8P)54F"4_>K I=K ! NF\FCQ,Q0XB $&;[-"G.U5PJ9R0$P9M ,$\<^ &
M#3"46 J QA$NURV(2E2:\W2!&90@T7GVDP( %2A!__%-6[83#!1UE#OFB5&-
MDI.C'@65.T J4I+>\VHU#:<[C4).-OBSI>0DPQDD,,\WG($!\ZQ#4^:)!S,@
M  8'J-,_OI%+$#B   :!Q # T(*KT4,%0$CH/] !5A!,AR"(D %N'  & 6 !
M";# PA62\0]]@  *%E-0 )004U;.%!R#^P^  +.'0ATG077WO+#1Z20
M+1B\85MINM)6(@ 1 =HJV18$X1_D@() .Q-:FC*7',P%QS'9XX?SP'9M4K@4
M.G*[*7QXM05W+4@GO3O<3K+WK4!00@>F&EEWM,$>(&C )V>)CP.ZXPWJF((7
M42#@UL(  IT%@P6LB]U!8O)O:\-"@^G!,79(\).-T*8ZV !/1ZDCLO(P Q,B
MBXXSP&!",/@'/%C$27J5_7#G+@-BR$KOL3&C^#1M !B(_8"'F
M*9#9S$$413'5S&5F]AG,8. &$TSI'$0J2AVE! $P?(!&!JC "4(H 5@%@"S%
M ,(= '  ;LX@@E&7^A^G3C42@#!K(= :"..*%0?$L0$(^,  8'#&,3?Y!7(1
MA-<04$(%KIK,*N<' IT  SR&FY]):UJ4XBCE*9.8'TX#  ))P%C 2 "';AW 
M-)!D0'8R8(42L=<=9R"WN='=Z75SHD2Y'LBN,P"!5-)4EV @AHL88.Q])YL"
M9R" !K@!!GQD>-*G%"4],KWI3G,; 5,XPAM$ $GAVD>XS'3 E\&#FUTJYLPP
M,$!G=XF>H@BA @PP@F*2L@M4(\ ,\ 3$.ZF- &L#0Y1'; "W/=2 T.:'(E[V
M?O
MXX'0 Y,-%HBL/\P @1\8X.Q6LH 7Y)3+UT?84;,W0&3Y<08:W"8 ML"]P!D-.;W\>5^K40!833.]LH'@.Z;#\R* , 6PS<]' 2@'B&<8OH#L8 -\-V 
M*,-! S#< !H:!]<,&P[] *A^X\# !\1MH&:QYRCZT!3EE"[:5VXK4#,$H * 
MD(#Y(005P0 K<%I2_^H"#^
M8 XCR')AX$_Z\ET X _4T((ULP)8)P&@@@]($ @C" LW80!\(  JZ P>86W@
MP'1"]W$\QX .B  8F&KSX0!"T +:]RFZY% [4#-8U0: @!\,<% [P =_\ ^Z
M%(6JUDQ@ (5WY0 4T$P9%G=%-'=!-W13$(%L@  0J$O8! 8*  )5( 65@(4(
M<"MRF$AUV"& *(B$:(AB)'>LA$1*) 41^ 9Z&(%]J$R!6 FVAF6':$22F!]*
MT KY808G9H5=]W4"8 82 %:QC?I9P&-4V9GX %1IQ!J8 86$(40H VX.! 3@ =P:(6S90+22(T.
M$(420 ;--(S%*"8PT#BH @VDB !.J(![Z&F/.(>1>  Y! #F9W2$E'[K]P2=
M!@C_  D$@'.V!@:5%5:O!@C\4!VSY@(?H(07EUVIQ@<%T@!()W*?!!Z?.'<\
M> T@@$N#-'00Z0 2^03TA4P5\6AR8FV5)H]UZ'3ND 6-  )-$ M2YPEED&Q-
MQ" 5(";J !Y@0 X9V4F9!@@7YXNI6#,!@'-]:"<-D!T/ AZY1(YY9HSY9WU/
M,(KY<0888)3 6#.K.!K:"(N  !Y5>(4'H)*BM)$=>7'OR)5>5S,08 9F  (5
M\$FD2 "Y] ;P=VY62 !2"4,70 TE @M 00+=QP%(AP!!@ [5$0O58#@@H(WM
M*!'OM )5(!$#R2YXT@$*@"H,D%8#  )>)01Y$!H*  8&4(#H8@'8A):0J)9$
M.8F5.!"2 )%/>95 4##?QP!6( "RI$KF4CZ$(H(P)O6B(T $ + J296M$=6
M"9JBJ8?AR9D$J9K:AYH%B  .&I2PZ6WLV"'SI !F0 (]6C,@H)6= 0=%1Y7A
M*"T)8T^G5QZ000.0%QBIMF
M$%=R-*(E:B6!B:)(B7-@!0::::3
M"J8-(*8P=(V4.G,$T(<\\(Z)N9B-^9AJ\J8#<9MSZ@WV":@DV'+/.IQRFIO"
M %:V"HI+^&R^*A%GUAD5.7)/\)Z.*0:C :W?1IQ_0P/U2)=YBBJF4:KZB*+^
M")!HZH>6B9D1:&L9.1!BP@OXR!ZN0$=R-Q!KX@ZP: W@48_L008*.X<$2WU^
M\$<#@8]PP 1:5"@+JTOV40#YX0:MZ&)6@@$ T#@L-P1G@ )P\ /J<; IBP7@
MP;$^\+$D29480 \^*0"VQG0'4!O%! <\H$4E@D9MH -@A2I*NUI&$"P' $,8
M8+-_HU&'\(\#T ]M@ $,D+4 V8M@1;6,@([ @$8O< #9T;/@P9!"R[%%H+.Y
M=%!-"PS+DK(^^S)H%::\\F[>):[&@A;)]F[DM
MJY0!T%=!&[)&-[B#!$D*  ="H$7.W @$=<$LZH$M%   M00!^X$XPU2'.I@ 04 A28 0,,,-:NC9N
MD&%H);\;+"N$, ''$!6%D')@0 *XBX4.8+H<*[-3I".^:Q%YBX0::T:.2\56
M/$AP  2\JR6G"[+RB*OY 596  0L)P!BP 'ED"WUHF_R<%B)I0*_ @8F  =!
M  8B  =#  8>T'T/$9Y2D7%ML$0=8!B9J&Q] 0$5<$O?JI&%.DB(K **; .,
M[,B0O!A*L6SX,+H:  B7+)00:J5N#,=>*09(4,Q X9]DE6(A4PM!S[YP!^4,C.X >!K Q^  6  @?;<,D#
M\5OY<5 \5UPSD"2PTX  @N,$A0< A?NS:2)08#80AGG1\ 0 8#
MXA]2VKU6P@%5^P3U-Y/\\(\$< 9@H 3)# BL: )-  (+<")1(0:(+2M>X,<@
MH,B X&9)$06-4-8F4!$Z+0$H -E1P @@P 0FP$P$D )-4)\'$ 4&@90," ('
M  V-L-@B  @H  2=_=E"\$DIL 02,6EA+4I?#0/ <,,\QP6 , 5O&:,,P0NN
MD!]P[1$^8@R9P RYS-@9=@9V40%H1&K>R1=(H%%8Q]IBY0_10 EW@48JP 0H
MT 2^8 AC( .>8 BLW9UJ10!D\(<5$-X," 84H +P;0"N#=M>\-A1$>"'D&%8
MH'-D$-U*< C,%E97XP^NG5H+B-F[(!F,;0:.X-U.P0P#+@6*;(KM:SA>608*
M, 4?#C!8\ (&L&[44""L2\-X@)% 8.)1,9<- '$_%[+E1HA;K $Q?DAK/)0\
MEP5$&6&58 8T<,,H;&PB@ 8L=0;L<@!2< 2SS.1H@&7%.,&39\'K@<%_0PT(
M"P"5L-VIG(BBN&P:H$>\/)4"GJ%\\&5R0LQ@( YZQ%KAJ:%PCM?Q>*NE! !G
MJ\F'D(<@P -\#08PL.!>!0(YH+4Z30)24. .'J-H2X](H$5RPA!G0 T@X-^'
M<"*,ONF3YN=?3(BFFQUVK<9UL =.4 5,P 1]X)U$,! (H P \ 0#D0!T<9D 
MD  #@06W3@( , :WK@EO+>MZ  !E<.L@HIL) ") M.L@8B$(( QU<>NL  !S
M<.M<  !U(.NR   8B@#&  "Q#@#(! ,Q( ,S0 ,U8 ,W@ ,Y$ 1", 1$4 1&
MT+=A81$JT+=H9!'FT+?BT+?>T! (T %0$!K'_A^_,! >D!  X $S_/ ;^/#4
M,! ?(!  P#L-80 ?((X9?PH6OPX' @,'<@<-00!4@ 9I, <@  =R8%5R$ 89
M=0=AP/)W( =I0 =T4 9%+ 9Y  )#$ 9RL"Y74 9I0 9LD 9N $0IO_(@0/,L
M/P9OT 9PD 9L4 9P5@=SH/10W@1"OP8@< 56G_0RS_)#  )AX 9P)O5N0 =A
MH/0L+P=UT/9IT 9EH"YI( 8Q+P>E^?)U0 =*7P8LWP9AL 9<#P)TH/(L'P8@
M(/54_P9;O_,M__+6+?-HK_8@D 1HGU%R4 9Q4 =IT/EP1@=O  )SX/8['\-0
M\ 9R /AOX 8L_P9SF?A.[_(P+_,4(_5PD +P=@
M+_9L0/9M8/93#P=IGP=H=/S)/_9I4/9 __S1C_=CP/-S=__FA+_B(K_B-
M_P:[W_N_SR%O /C=#P*O#P)E@ <[C_.LW\!A( 9EP :Q/Y=DL/)K4 8Z3_YW
MD/-H4/ZU3_DQWP84D_9P%O]2\ 1-8/,YCP;E7_N4'_-M@$8I?_>OSP8_W_YH
M4 9V$?Z@W_EVW_8@X/2)'P; G_AW;_N5GU%NT/X@H/\@\/^GC_-B\/=8+YKW
M;_MFD/-H9 2L?_GRCP=PP 9I'P:N7\2ROTQO< >(7_I:?_,W_E2+P=P)OOE?_[?_Y4__=@&4L@ !P0 (*@ D.@  >P  (
M@  .4(@N8 ,J( (*X  N( &'?&(N<%8(8  D0 $0X 8$@  & 'H08 0:P 4@
MP $2  % 0 (<@&LHP,,&<"XN8 $6@ ,>\!!N" ,60 $60 ,VX $.H $2H  *
M8 $&8  L8  *H  V8  &X"DFP $RX ,*P %?A0\4P  &@  P%6$&0 (,8  &
MP !JI0 R0L+( 9U()=?T! +4 '>B0TBP :$
MO_QO, 9?0/#HHE9XH &$K_1?T! +@"YJ)0(!4 9R( =N\ 9?T! *\(9JQ35?
M8 9G4 9T( 9?T! )@"YJI0T0\ 5F< 9E0 =C\ 4-D0#HHE:\$ %?8 95[P8Y
M_P4$CRYJY0@/\ 5DL/-F< 9?T! )@"YJY0<4\ 6G__)PP/-?T! '@"YJ)0S!
MBO-M+P9U8 9?T! '4 '>B05#8 !D\ 8Y_P4-L0#HHE9 
M( !SH/=K\ 4-L0#HHE9HP 'HS_-?T! +@"YJY046\ 6G3P9E( =R\ 4$_X9J
M10@A\ 5A\ 5S, 9I#P=?T! '\(9JY04B\ 5CT 9DX 8R7P9?T! '\(9JA04B
M\ 5F  =?T! ,\(9JY0DA\ 5A0/9S8 9H\ 4-<0#HHE:,@ %?8 ;HS_-?T! )
M@"YJA0(,0/C+_P9C\ 4-D0#HHE9HL %FX/)*3P=F\ 4$CRYJ)0H&,/\Y_P4-
ML0#HHE9D0 %?\/UT8 :_GP=P4 9?T! %@"YJA0480 8]+0-?T! +@"YJY0L5
ML/S_;P<-L0#HHE86D %F, 9L /EE\ 4-D0#HHE;J\ #+W_D5 0D+@"YJI089
MD 9F  =?T! ,4 '>B0I#\ 5F  =_+P9?T! )@"YJ1082\ 5F  =_/P9?T! )
M@"YJ90T2\ 6G__]N\ 4-D0!OJ%90$ (\;P>A__I?0/!OJ%8,T %L( ?_;P<-
ML0#HHE8=7Q&0L #HHE::0,6, 9L /EE\ 4-P*0P48 ;H
MS_-?T! \[)W:L !?,/\Y_P4-PZ0H48 9G4 9T, =?T! \[)UHL !V\/]V
MT!!/IE:PD %FH/0Y_P4-PR0<.T/EA0 9?T! +@"YJ)0P6\ 5F  ??7P9K
M\ 4$CRYJ90\3P/]ZOP9?T! \[)T8P $K'P8ZGP=?T! )@"YJ90$6\ 5F< 9E
M0 >G+P=?T! '@"YJ904.\ 5FH/0KCP9?0/#HHE:\\ !?8 9GH/0Y_P4$CRYJ
&I08/ !H 
 
e16