Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site ucbvax.ARPA
Path: utzoo!watmath!clyde!burl!ulysses!mhuxr!ihnp4!ucbvax!huxham
From: huxham@ucbvax.ARPA (Frederick Huxham)
Newsgroups: net.sources.mac
Subject: SetFile DA
Message-ID: <5405@ucbvax.ARPA>
Date: Sun, 10-Mar-85 17:02:50 EST
Article-I.D.: ucbvax.5405
Posted: Sun Mar 10 17:02:50 1985
Date-Received: Mon, 11-Mar-85 04:59:58 EST
Distribution: net
Organization: University of California at Berkeley
Lines: 177

The following is a desk accessory that I wrote along with Sam Roberts (yes, 
formerly of Dartmouth)

It does all that SetFile (software supplement) does plus

1) you can access files on both drives
 
2) you have the option to eject and insert a new disk

3) you can set/unset the protected and locked bits

mail all questions, comments, suggestions for other desk accessories to

Fred A. Huxham
huxham@BERKELEY 

It is converted with binhex 2.1


(This file must be converted with BinHex.Hex)
#DESKDAMV$0000
***COMPRESSED
***DATA FORK
(  3   *V @ 4V5T1FEL92!!8V-EI)"A?( QF"$AMOHBH46 .#&P  0!L
(&\&2&V^B*A1*%].7DYU3E8  $)G3KH$A! ?0JX #$Y>
("Z?3G5.5O[>3KK_LJFT0F<_//__2&W^<*EP'5___3 M
(/YP9P !W%- 9QQ50&<  9)50&<  8Q30&<  DAN_N*I+#U?__XP+O_^4T!G%%- 
(&<:4T!G  38O+O 20 0! R
(        "P   $!:@   %  5@!< &( : @ 4V5T1FEL
(&4  H@"M *X K8"H N\+S@(_$CG?_Y%^O_J*$K4P-CZ
(/_L( @B"2!*(DPD3"9,3I!,WW_^3G4P.O_*8-8P.O_&
(&#,,#K_PF#&,#K_OF# ,#K_
('Z_]8B7R 1 H $C5T[Z
(/_X(%1<2%&$:T@@&"(8.@!(0.!(/ #D"&<   Y3 &.)M(!E!)2 
(%)!4T=O!N*K_[B \?__$2! 3G5* 6<$ $($ $'Z
(  &,((@0   3G5"ITY6__1([@ #__1";/[Z0H!.7EB/
($YU0J=.5O_T2.X  __T0H!.7EB/3G5.=4YU0J=.5OPB
($CN  /_]#U\  '\(DIL_OIF  9:.7P  ?[Z0J>I>SU\
( !0__ ]? !D__)!^@?&( A.NO]0(@A![O_P( A"@B8\
(/____]"A$*%0>[_IBP(3KH&[$HN_Z9G  840>[_L"U(
(/]H'6[_K_]P/6[_K/]L0F[_[]2BU(_48@;OU&$!#N"$H 
(&<  #P@;OU&("@ $K"N_X9F   &3OH :B N_48&@   
(  T(&[]1A(H #)(@4C!T($"@/____XM0/U&3OH 0%)N
(/U$,"[]1+!N_4)N   L-"[]1$C"("[_3$'N_4HB"$ZZ
( 4,2D!G   &3OH$YD'N_4HM2/U&3OH !D[Z!-9.^O]X
($*G/SS"8$*G+SS_____J7P@7RU(_3XO+OT^/SP #4AN
(/TL2&[].DAN_3*IC2\N_3H@;OU&$!#L" (   %(@#\ 
(*EC/7P #O]*#&X %O]*;   3$[Z !!2;O]*,"[_2E- 
($[Z_^8O+OT^/R[_2DAN_2Q(;OTZ2&[],JF-+R[].B!N
(/U&,#P '9!N_THR*  *X&D"00 !/P&[Z_[P0M# 0^[\*M+N_TH2D$[Z
(/_:'7P !/PJ+R[]/C\\  1(;OTL2&[].DAN_3*IC2\N
(/TZ2&[\*JF/(&[]1ER(+4C\)CU\  '_2@QN  7_2FP 
(  N3OH $%)N_THP+O]*4T!.^O_F,"[_2E- (&[\)M# 
($/N_"K2[O]*$I!.^O_:'7P !/PJ+R[]/C\\  9(;OTL
($AN_3I(;OTRJ8TO+OTZ2&[\*JF/+R[]/C\\  A(;OTL
($AN_3I(;OTRJ8TO+OTZ(&[]1C H  Q(P$'N_"HB"$ZZ
( 0>+PBICR\N_3X_/  *2&[]+$AN_3I(;OTRJ8TO+OTZ
("!N_48P*  .2,!![O(ICR\N_3Z2&[]&[\*M#N_THP+O]*4T B;OPFTL 2D$[Z
(/_:+R[]/C\\  9(;OTL2&[].DAN_3*IC2\N_3I(;OPJ
(*F0(&[]1ER(+4C\)CU\  '_2@QN  7_2FP  "Y.^@ 0
(%)N_THP+O]*4T!.^O_F0>[\*M#N_THP+O]*4T B;OPF
(-+ $I!.^O_:+R[]/C\\  A(;OTL2&[].DAN_3*IC2\N
(/TZ2&[\*JF (3KH!I"!N_48Q0  ,+R[]/C\\
(  *2&[]+$AN_3I(;OTRJ8TO+OTZ2&[\*JF00>[\*B (
($ZZ 7(@;OU&,4  #B\N_3X_/  ,2&[]+$AN_3I(;OTR
(*F-+R[].DAN_"JID$'N_"H@"$ZZ 4 @;OU&,4  $#0N
(/U$2,(@+O],0>[]2B((3KH M#U _U1*0&<  "PO+OT^
(*F##&[_TO]49P8,;O_4_U1F!A \  )@!! \  %(@#U 
(/P3OH #"\N_3ZI@T[Z !A"9S N_"( 0&
(# ?/4#]+DY>6(].=4*G3E;_OD!(
(/_4(&[_\#UH $K_UBUN__3_WBU\   " /_B/7P  ?_J
(# N__K!_ ( +4#_[$'N_[X@"$*!)#P  * "3KKXVDY>
(%B/3G5"ITY6_[Y([@ '__ @;O_P/6@ 2/_4(&[_\#UH
( !*_]8M;O_T_]XM?    @#_XCU\  '_ZC N__K!_ ( 
("U _^Q![O^^( A"@20\  "@ TZZ^().7EB/3G4@0"\0
("\!+P(_ R\$+P4O!C\\  *IZDYU($ _/  !J>Y.=2!!
(#\\  "I[DYU0J=.5O_L2.X !__P0F[_["!N__0,4  #
(&<((F[_] Q1  5F  ! (&[_]" H  +@B *     _SU 
(/_N#&X )/_N9P8,;@ T_^YG!@QN $S_[F8  !(]?/__
(/_L('S_____+4C_^# N_^Q.7EB/3G4@7R0?(A\@'R\(
($CG'QA.NO^"3-\8^#]   1.=49I;&4          ,)@
(    A@$1$E43 !\2  'Z(  0 VF $!Z/       $   
(/____\   $%__\!ZP   !8  0'K      $% >L %@'K
(  !!(8  56&  $QQ@ '9

!UK0 =:T " !8!ZP$& >P !P! #%X 0 NV ( __\ 0 2@ X(D13##\ .D@ X(@ $ ,P< ( P $9SD13#$0 ! !3Y@ >8 FL ! ('2. #,' 0/( 0$3, $ T1 ! $'0 $#R $ ,7@! ( NV %0 V * .H 6@0&4V5T(&ET #8 ( "> .H [@0&0V%N8V5L 0 (( * "^B 14>7!E ( $ #& "( [I X (( 4 "^B =# * ) 9 4$0F]Z;P D * *@ 9 4$ ($)U2P@0T$@(" Y-#CP ! /__ (/__ !!?__ >L 6 $!ZP !!0'K !8!ZP ! ( 2& %5A@ !,<8 !V7, >FV*;8 >FV 0'Q( ( ! ?$@!!@ $ ! ! 0 0$& !8 !^B ?HO ( '@ =:T '6M @ 6 >L!!@'L < 0 Q> $ +M@ (/__ $ $H I( ."( #,' P ( 0 4^8 'F )K 72. ( S!P $#R $!$S ! -$0 0!!T ! \@! #%X 0 NV ( $ $8 & !: &0$!D-A;F-E; #@ \ ( N /"(+$-O=6QD;B=T('5P9&%T92!D:7)E8W1OL %@'K $$A@ !588 3'& ( '9

P !P! #%X 0 NV #__P ! !* #@B ($13##\ .D@ X(@ $ ,P< # 1G.1%,,1 ( ! !3Y@ >8 FL !=(X ,P< ! \@! ($3, $ T1 ! $'0 $#R $ ,7@! "[8 ! !& ( 8 %H 9 0&0V%N8V5L . #P +@#PB"I!('-Y ('-T96T@97)R;W(@;V-C=7)R960N#5!L96%S92!TL ( %@ ! >L 04!ZP 6 >L 02& %5A@ !,<8 ( =ES 'IMBFV 'IM@ $!\2 ! ?$@!!@ $ ( 0 0 $ $!!@ 6 ?H@ 'Z+P '@ =:T '6M ( ( %@'K 08![ ' $ ,7@! "[8 /__ $ $H .")$ (%,,/P Z2 #@B 0 S!P , !& $ +M@ %H @@#2 7S" (&)55<)A # 1!3%)4 'Q( ?H@ ! #:8 0'H\ ( $ _____P %! >L 04! (.L %@'K !588 3'& =ES 'IMBFV 'IM@ ( ! ?$@ 0'Q( 08 ! 0 0 $ $!!@ 6 ?H (( !^B\ !X '6M !UK0 ( %@'K 08![ ' $ , (%X 0 NV #__P ! !* #@B1%,,/P Z2 #@B ( $ ,P< # 1G.1%,,1 $ %/F !Y@ ( FL !=(X ,P< ($9I;&4@06-C97-S;W)I97, 3E;_]"\,2&[__*ER0J>I ("0H7R ,9@A(;;Z(J%%@#@QL $ ;&\&2&V^B*A1*%]. (%Y.=4Y6 !"9TZZ!(00'T*N Q.7BZ?3G5.5O[>3KK_ (+*IM$)G/SS__TAM_G"I