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