[net.sources.mac] Squeeze program

info-mac@uw-beaver (01/24/85)

From: mss%dartmouth.csnet@csnet-relay.arpa

Enclosed is a compressed binhex format file of a "Squeeze File"
program, which reads a text file and replaces all isolated (single)
carriage returns by a space. This is useful when moving a text file
onto the Macintosh for conversion to MacWrite format. The program was
written by a student of mine, David Cohn, for practice but since it's
done, we are letting it go to anyone who wants it. By the way, I have a
number of students who are trying to learn how to program the Macintosh
(with the Lisa). To help them along, I usually suggest some simple (but
I hope useful) programs to write. If people have suggestions, I'll be
glad to pass them on to willing students to play with.
			-Mark

(This file must be converted with BinHex.Hex)
#APPL????$2000
***COMPRESSED
***RESOURCE FORK
(    0   !     /     ,8                     
(                                           
(                                           
(                                           
(                                           
(                                           
(                                           
(                                           
(    "X  0          ____^P$4$D%B;W5T(%-Q=65E
('IE($9I;&4      2T          "\!            
(/____L$1FEL90=#;VUP86-T $,   $M      11=6ET
(           /@$!          #____!!$5D:70$56YD
(&\      2T      T-U=      $0V]P>0     %4&%S
('1E           : #( * $L <(   $         !T-O
(&UP86-T    )21%9&ET(%9E<G-I;VX@,2XP(" @("T@
(#$R($1E8V5M8F5R(#@S    'P!0 !0 @P'L  $!    
(      ! 0I297!O<G0@0F]X    (  !       9 !X 
("X 9 0"3TL       4 ;  4 <*(     !@    H   $
($X    (    ( CN/SP  :GP   ,5@    %.5O[L+PP@
(&X "$/N_P!*$'! (MA30&[Z2&W\$*A10J<_/ $!0J=P
(/\O *E\*%\O##\\  )(;O[X2&[^]$AN_NRIC2\N_O1!
(.[_ !\0/SP _TZZ"YHO"*F/0J=(;O[^J9$O#*F#*%].
(%XNGTYUTD503U)4("   $Y6__XO!ZDP0J<_/  !J;\K
(%__^"\M__@O.@!"J4U"IS\\ 0"IORM?__Q^ 6 6, =3
($!!O  !( ?E0"\U /1"9ZDU4D<,1P ";^2I-RX?3EY.
('7315154$U%3@ $1%)64DY6_NP]? !D_NP]? !N_NY!
(.[_ $/Z $IP!2#94T!N^C"1+7Q415A4_O O+O[L0>[_
(  ?$#\\ /].N@K<+PA"IS\\  %(;O[P0J=(;?Z*3KH*
(%1.7DYUQT541DE,14X %A4@0V]N=F5R="!W:&EC:"!F
(&EL93\@3E;^NCU\ &3^_#U\ &[^_D'N_P!#^@!>< 4@
(-E30&[Z,)$O+O[\0>[_ !\0/SP _TZZ"FXO"$AM_I1(
('H -DAN_KH_/  "3KH*9$'N_KH?$#\\ /].N@I*+PA"
(*=(;?[43KH)PDY>3G73059%1DE,10 8 3$4(%-A=F4@
(&%S('=H870@9FEL93\@ $Y6_OI(YP<8*&X #B9N  @Z
("X #$)&( 530#U _OI"1V   )9/O ( $#1P  )  /]R
( U#O #_LD!F7DI'5\!/O ( $C1P  )! /]T#46\ /^T
($%7P< !P!-G!%)'8#H@!5- L$=>P"('4D%#O ( %#00
(  "0@#_<@U#O #_LD)7P< !9P121V 03[P" " '<B!#
(+P _QF!  "Z1V\83;P" " &3[P" !(T<  "00#_&8$ 
( !21E)':0B^;O[Z;P#_9B &4T!!O ( $C0   )! /]P
( U!O #_L$%F!A:\  %@ D(3/48 $DS?&.!.7B!?WOP 
( I.T,-/35!!0U0@  !.5O_Z2.<# $(N__M![?R (FX 
( XC2  @(&X #B%\   "   D(&X #C%\  $ +"!N  Y"
(*@ +D'M_( B;@ *(T@ ("!N  HA?    @  )"!N  HQ
('P  0 L(&X "D*H "Y"9R\N  Y"9TZZ!V ^'TI'5L ,
($?_V5;!P %G"$AZ -A.NORJ$"X "&<H(&X "B\(0F=(
(&W\@")N  X_*0 J2&[_^TZZ_EXP'R!?2, A0  D8 X@
(&X #B)N  HC:  H "1"9R\N  I"9TZZ!Q(\'S &!$#_
(-)G(%5 9QP$0  *9PH$0  B9P)@&& 62'H 2$ZZ_#Q^
(-E@"DAZ "A.NOPP?MD,1__99@#_6DS? ,!.7B!?WOP 
( I.T,1!5$%#3U!9 $H31&ES:R]&:6QE(&ES($QO8VME
(&0@1&ES:R!I<R!&=6QL+B!5;F%B;&4@=&\@8V]N=&EN
('5E !)%<G)O<B!I;B!F:6QE(')E860 3E;]3$CG P!.
(+K\CA M_HIG!$ZZ_/H0+?[4P"W^BF<$?@%@ D('0J[_
(%I![OU.+4C_8#UM_I#_9#U\____:D)G0>[_3B\(0F=.
(+H&.DI?9PI(>@.&3KK[;$('0>W^E"U(_V!"+O]H/6W^
()#_9$(N_VE"KO]J0F=![O].+PA"9TZZ!;Q*7U; (@?"
( !G"DAZ R).NOLP0@="9T'M_I0?$#\\ /].N@<*+P@_
("W^D$AN_^Y.N@7V2E]6P"('P@!G"DAZ L).NOK^0@="
(&=![?Z4'Q _/ #_3KH&V"\(/RW^D$AN_^Y.N@7$2E]6
(, B!\( 9PI(>@)\3KKZS$('0F=![?[>'Q _/ #_3KH&
(*8O"#\M_MHO+O_R+R[_[DZZ!<H\'S &!$#_T&<L54!G
(!Y50&<:!$  "V<(!$  (6<88!9(>@(.3KKZ@$('8 I(
('H!ZDZZ^G1"!T'M_MXM2/^P/6W^VO^T0B[_N$(N_[E"
(*[_ND)G0>[_GB\(0F=.N@3$2E]6P"('P@!G"DAZ 99.
(+KZ.$('$ =G$$AN_TY(;O^>'SP  4ZZ_/9"9T'N_TXO
( A"9TZZ!*!*7V<&/SP  :G(0F=![O^>+PA"9TZZ!(A*
(%]G!C\\  &IR$(N_VA"+O]I0J[_:D)G0>[_3B\(0F=.
(+H$K$I?5L B!\( 9PI(>@#^3KKYQD('0F=![?Z4'Q _
(#P _TZZ!: O"#\M_I!(;O_N3KH$C$I?5L B!\( 9PI(
('H L$ZZ^91"!T'M_MXM2/^P/6W^VO^T0B[_N$(N_[E"
(*[_ND)G0>[_GB\(0F=.N@0^2E]6P"('P@!G"DAZ %Q.
(+KY6$('$ =G#DAN_TY(;O^>0F=.NOP80F=![O].+PA"
(&=.N@/"2E]G!C\\  &IR$)G0>[_GB\(0F=.N@.J2E]G
( 8_/  !J<A,WP# 3EY.=<=%5$9)3$4@ 3(717)R;W(@
(&EN($]U="!F:6QE(%)/<&5N&T5R<F]R(&EN("!297-O
('5R8V4@1V5T1DEN9F\D56YA8FQE('1O(&]P96X@<F5S
(&]U<F-E(&9O<FL@;V8@9FEL90 617)R;W(@:6X@3W5T
("!&:6QE(&]P96X %T1I<VL@:7,@=W)I=&4@<')O=&5C
('1E9"%.;R!2;V]M(&EN($1I<F5C=&]R>2!F;W(@3F5W
("!&:6QE$D5R<F]R(&]N($EN9F\@<F5A9  L4WES=&5M
("!%<G)O<CH@56YA8FQE('1O(&=E="!F:6QE(&EN9F]R
(&UA=&EO;@ G4WES=&5M($5R<F]R.B!5;F%B;&4@=&\@
(&]P96X@:6YP=70@9FEL91M3>7-T96T@17)R;W(Z(&EN
("!'9716;VQ);F9O3E;_ $)G+RX "*AJ.U__(D)G+RX 
( BH:SM?_R0P+?\B4T!G" 1  /]G/&!4#&T  ?\D9@I(
('H 7DZZ]Y1@)B\M__@_+?\D2&[_ *E&0F=![O\ 'Q _
(#P _TZZ V O"*FV.U__S& :,"W_)%- 9P950&<(8 Q.
(+K[EF &&WP  ?_>0F>I.$Y>+I].=<1/0T]-34%. "@G
(%-Q=65E>F4@1FEL92 Q+C$N(&)Y($1A=FED($-O:&X@
(#$O,C$O.#5.N@*03E8  "Q?3E7\@)_M !!.N@*&0>W\
('PO"$ZZ 6RH_C\\__]"9TZZ DZI$DZZ]UBIS$*GJ7NH
(%!"+?_>J;1"9S\\__](;?_.J7 0'V<  1@P+?_.4T!G
(!Q50&<  (I50&<  (130&<  ,Y50&<  *Y@  #T0F<O
("W_V$AM_RJI+#M?_\HP+?_*4T!G$E- 9QQ30&<T4T!G
("!30&<L8$1"IR\M_]BI/4ZZ_II@-DAM_\XO+?\JJ;-@
("HO+?\J+RW_V$AM_^BI)6 :0J>I)" M_RJPGV<(+RW_
("JI'V &2&W_V*AQ8   @D*G,"W_W$C +P O/    0"H
(%A*GV<>0J<O+?_0+SP   $ 3KH!E" ?0;P _S\ J3Y.
(+K^*F!*$"W_W0)   %G""\M_QZIV& &+RW_'JG98# O
("W_)JAS+RW_)JDB(&W\?"!H !@@4$AH  *HHR!M_'Q(
(&@ $"\M_QZITR\M_R:I(Q M_]YG /[03KH!D$Y=3KH!
("!.=4Y>3G7-04E.(" @(   K&XB7S ?(%]F!*  8 *D
(  ^@$[1(E\P'R!?9@2@ 6 "I $^@$[1(E\P'R!?9@2@
( )@ J0"/H!.T2)?,!\@7V8$H -@ J0#/H!.T2)?,!\@
(%]F!* 48 *D%#Z 3M$B7S ?(%]F!* *8 *D"CZ 3M%.
(%;_L$'N_[ A;@ . !(Q;@ , !9"*  :0F@ '* ,/4  
(!)!Z  @(FX "# \ !"@+DY>(E_?_     I.T4Y6_[!!
(.[_L"%N !( $C%N !  %D(H !J@"$I 9A9":  <H P@
( A#Z  @(NX ""*N  R@#3U  !9.7B)?W_P    .3M$B
(%\@'R\)H#).=70!(%\_ B\(K>IT D[Z__1"KP 03G5.
('4@7TY=3M O "\!("\ $"(O  Q.N@ 2+T  $"(?(!\O
(%< !%B/3G5(YSX *@!J D2 + %J D2!)  F 4* 0H%X
(!_CDN.0XXFP@VT$D(-2@5-$;.Y*A6H"1("[AFH"1(%,
(-\ ?$YU+I].=2!?3E4  $[02.?@X# O !P@;P >0^\ 
("(T .5*TL)"05*(8! D84)"%!K20F "$-I30FKZ4T!J
(.P@;P >$(%#[P B,"\ '.5(TL C+P 8+TD &$S?!P<N
(%].=8$   @   Q*    #     !.5O[L+PP@;@      
(                                           
(                                           
(                                           
(                                           
(                                           
(                                           
(                                           
(                                           
(                                           
(                                           
(                                  < ,8 !4-/
($1%  ( ,D1)5$P   !61$Q/1P   &)%1$E4    ;E=)
($Y$    >DU%3E4  @"&  #__R   34       '__S0 
( %1       "__\P  VK      $!__\   $1      $!
(/__    [@       /__    Q0     ! /__    IP  
(     '__P           0#__P   #(      0'__P  
( !E     -QP+RL $"\N  A.NMQD#"L !@ &9A)P 2\ 
(#\\  (O+@ (3KK2&& 0</\O #\\  (O+@ (3KK2!B\K
(  4+RX "$ZZ]YX_/ #++RX "$ZZS1A@  "@+PLO#DZZ
(/#80F<O"R\.3KKQ<! ?9PHO"R\.3KKQ\& (+PLO#DZZ
(/.D8'0H:P (2FP "&P(/7P Q/_N8 8]? #%_^X_+O_N
("\N  A.NLS&/RP !"\N  A.NLT$/RP !B\N  A.NLSX
($IL  AM##\L  @O+@ (3KK,YB\K  PO+@ (3KKW"F 8
(#\\ ,XO+@ (3KK,@C\K  XO+@ (3KK,P"938 #V^DS?
(!CP3EX@7U!/3M#$54U04U1-5   2F_/ADY6WX1(YP\8
("AN  H,+  & !IF4C\\ /1.K024?@%@$! T< $"0 #_
***END OF DATA
***CRC:1AE2