[net.sources.mac] SetFileDA v3.3

csfred@violet.berkeley.edu (Frederick A. Huxham) (07/31/86)

Here is the latest version of the SetFile Desk Accessory.

The DA was written by Sam Roberts and is HFS compatable.
It allows you to set a file's type, creator, and various
bits (invisible, protected, locked, etc...).

Send any comments or bug reports to me and I will forward
them onto Sam.

Thanks,
Fred A. Huxham

(This file must be converted with BinHex 4.0)

:$8K'8k96CA4'D@aP4%%!4%C*6%406eB!N!JC)a`4!*!%!3#3!aK`!!!AF!#3!l2
rN#!05%C6T90PG%CTE'9%33)!N!0%4NP-4%e29J!!rj!%!!"%4NP-4%e29J!!rj!
%!*!5Qc9Ml!#3"KNMrj##!!!6XK3!N!-"DJ#3!a)!N!-D!*!$&R3!B!Cd!@!#G!*
)jarq)'N!&#!)CK"`!!4!r%+M)QB!!+JM5!!8S#NS8*Mmr%)J,`!8)JR83M3l)!C
1qb!#!!B!%!!S3Ucm3Nkk"#"J5Nkk",3L!#*[!"JJD3!8S#0#U3!8)!&JBP+Xr%*
1ZJ6-)'m!&!JS!!%!"QB+60prq#"i#2a1d#*[!"JJD3!8+&#Br2a#8kcm3QB`)J!
LE`!B#+N!"`!&##N!"J!%CK`JD3!8S#SJ55*T!!!JD2rmdIJ"'+!U)%QJ+L!"60p
rq$&!!""1G8kk!#`L#'FD)LJ!&'F8)%%8%+!T)K$#Z!-DF!#3!(cm3Y+!)Pm[$"m
#,`JS38l4,`SN,`!)a,J$'L4i!4`b1!(5B$JJ'QFd)N!J83JS!!8!"@FS##J!"J!
&Cb!J%'FF)N!L85!*`,J$'V##BJj4LG24)!R!Z!-DX)*L"P(*rmD4b#4I6R8LAb"
I%KmJ$'F)#!%!"fB#S#SSAdl45J&R"!"#"!""qJ!'-))J3!!!6R9#Ccm!,`%[!Lm
$6VS#1M!I6R9#Cbm!6VS#Y$!I6R9"l3)B-$`!*d*B8FMrr%(Y!KK1G6Y!!Ja1Z[r
Q-@d#$J!B3qd!##&*!#!KI!!!!J!!*$&m!!%!,$!Y!Jc!r!)!)8!!,LY!!JLJ!QF
%6[S"XNje6VVrV$&Y!Ji!'%2Y!!JK53!J)A`!!!)!!#3aI!!"!#`KE3))!#iLH!0
1dZd#$KmT!!3!+3!"!!5J!b*i!dl5l3)1%em!"%je51IJ`!aiIrm#MQFLF!"b!"!
B%KP#Cbm),`Nr!$m"2c`!#URY-"pR''X@98"J%R!!%"K)3"!CS&"+3'F%D`*93%c
I!`G1G8MR!1"85&4*XiKQ"%kkrka-h`F!6R8k+`!+)%[3r!)!-!AM5*!!`$!3)%[
3`#*+6VVrd'3fH!#k4'F`)%[3r!)!8N6M6*!!a1*--"!J5p$!6VVrX'F@C1"94#"
,d2`#!&*%idb3!-3`%#",d-"`!Y!3!J!!rY$!)""1G6SV!!Ti!,T%CJ4`!%je)%[
3r!)!8N6M6*!!a1*--"!J5p$!)NT1Z[pLCY`J#*!!Ldje51d2!!-%*%JQ565m*3"
F5(!"d"$3`()JNN"J"K$m!!"63@Ei-#d#$L"i!diJF!!L,#J!'L!'6VVq9!`V!*!
$#'F1$#X!r`!)C`a`"dlk!#T1Z[mFB1"1Z[pi61d2!!-%6R8JE`!)51JqrJ,-+NJ
JAbYI!d"B6dl3,Qd$4$k!,bd$3#"061JqrJ,-6R8JI!!!!eJJ8#))C`D`D!"1C[4
1G8kkrm!VA`0-+em$8$YI!e3V6`0%3Qd#%$!Y!e41Z[r1+dJ$2'B'F!41q[qZ1fJ
!6J081fJ!TJ)13qd#D%*C)Zd$8#"Y!da`!"!38N#J,N(Y!QK$l3!)6VVr#'B'F!*
1q[pi3Hd!#0$!+dJ!!(!#d"!#3!$qd-!V5!!%1h`!!`)3F!"1q[p86VVr1LY2!d3
-E3!$!K"R"R!'6[Vr2NkkrBa1q[mf6PErl%MZB!2rm#"Zrr3Z+!!HCJ!!JNKZrqb
SG#"Zrr3`+!!B8N$V5$)m`!#53$P"r*!!3UFr,2b3!%+R,ccrN!5T[5"I)Qlrp#0
)!"iZ#'B!!!S`22rr6Pj1G5"Zrr3LE[rd)QN!(M0S!"J!E#"Zrr3[+!!HU(0#E2b
53QcrpMPm!2rrq%*XrrT#E2rm3QcrrLmZrqbSFd*!B,a19[r`51jJ!rr`)'lrp#!
S!"j1ZJdi5S"R!!!8)'lrp#mS!"kT&#"Zrr4#U!!H3N"1ANje6PErdNMZB!2rm#"
Zrr3J+!!H6VS0"%U!C`!"Y%KZrqbSG#"Zrr3[+!!HU(-JE[r`-#J!'Nlk!@SJ,[r
`)Llrp%kkriT1qJ'#6[S"IL"Zrr!JD!!F-""1qJ%@2c`!!UR)6[S",#"Zrr!JD!!
F,bJ!!UNL)#lrp%kk!9SJE[r`)'J!(#mS!!+T)dlk!33JE[r`)'J!($!S!!i#3!!
"5N"R!!$'2LcrrQB!!,ijI!$rrriJ,[rd6VS"(%+RUA8J(`D!!*!$b#e!rqK#*cm
mrrp)E[r5UA!3(d+RUA8J(l#ZrqKX$JaZ!!(rdQF'%$`!!@!#3J"+!'E55'lriMm
m!&)r2!!FU)")HJ-'-#cmN!")`#m!5'lriL!I3IS-4#))3S*frd+%5(S&l#SI5'c
m4L`I6VS"`P"2)'lrp#mS!"kT&LmZrqbSFb"Zrr3#D2pr!!3J,[r`3S%N2!!!S!&
1Z[VB28$rjNjH6R91qJ!Q6[S!)JC!rrpR!2lQ98"R!2lJ98"R!2lD8d"R!2lH98"
R!2m!6[S!1$mm!!+Tb%lk!#j1qJ!U8N"R!2k8"%!!3@F!rU"63'F!rTCA3'ID98"
ReP0!Cp*63'I18d"RbLmZrqbSFd*!B*!!6PErp%MZB!(rp$mm!!1SKcmm!!bSLMm
m!"3r2!!FU*-r2!!"U)K)HJYM3QFr2!!(U)9#CkL)5(S,@d*R2c`!'+L&2c`!!DL
)5(S,BN*R2c`!!kL&3QHSL$mm!"3r2!!iU*0)HJY-3QFr2!!$U)8r2!!"U)K)HJX
q3QFr2!!1U)9#CkL)2c`!&$mm!&5SNcmm!!'SL%Kk#be#Ccmm!"bSK8*RU)Jr2!!
82c`!BUL65(S,-%*R2c`!(+L&2c`!&$mm!(#SNdKk#cG#Ccmm!"bSK6mm!"3r2!"
qU*0)HJXq3QFr2!!1U)8r2!!82c`!QUL62c`!!DL)5(S,-8*R2c`!*DL&3QHSL$m
m!"3r2!$%U*0)HJXp3QFr2!!XU)91ANje)%mL3#m4,`%[!Mm$,`3["5m'2bJ!"Lm
S!!Jr2!!%UHT1G8j@rqK)lQ!(rqa#E[rSh[crl%kkq()JE[r`$&!!!fB!!(!JE[r
`)#J!!J+!!!$r!1#)28$rkJaZ!#6rkQF'$'i!02rUC`B-EJ"-rqTQ!!!q)'lrl$!
S!+3%3!!P8N$L3&*!!N!!!H0)"N!!*6e!rp3[,[rX2blre%*R2carrkPq2AcrN!2
S)'lrp%*36[S!AL"Zrr!-8!!"CJ!!8LmZrq`r2!!(5'lrjNKZrq*)E[rDUBd%EJ!
3rq!JE[r`dI`!N!-+,9$reNKZrpDSF8)R,blreNKZrpUSV4!I5J"R"K!m!2pJ!N)
!5)!j32b56VVi($!ZrqK1ANje)&mN(b)I)"m[#%MR(aK1Z[li60mBq$p!!!41G8j
@rmj)lQ!$rr!pI!!"rmj1Z[GJ$'i!$2rbE3i-EJ!Err*Z"K!m!!&J!N)!5J"Q'Ja
Z!"crmQd1$'i!)rrbEJB32!!"B!*#!%S!C`!!2$iXrraR!!!`,blrp$mZrr*)E[r
Z5'lrk%KZrpbTM5mZrqK#CbmZrqLTB$!I-M`!!C*!2`'TBdlk!,i-EJ"Nrr*R"Ja
Z!!IrmQB!!#SH,2a3C`3q,2b5C`!!'%kk"#T+3'F!!!C1qJ)1)#lrp%kk!`41qJ#
%$'i!#rrbCJ!!6MiXrrCQ!!!m)#lrp%kk"K)p32r35N"R!!!Q$'lrd[r3C`B-E[r
8rp"Q"K!m!!*J""!m!!&)J$e!rmj1qJ'k6[S!#$em!'IrmNlk!#i-EJ!"rr*Q!!!
+3QlrmNlk!"`-EJ!Prr*R"JaZ!#IrmQF!!!SJ,[rd6VS"`"iXr&"R!!#12LcrpQB
82LcrqQF%2Lcrr&E!4!")J,"XrrKR!!"X,blrp$mm!!Y)E[rZ5'lrk%KZrpbTM5"
ZrqJJ8%)S!"![,[rS5(S)PUPI3QcrpLmZrqJq,2rkC`3q,2rm9X"%!%L!18$rq%T
!C`4#!'!%%$`!rdL!2`#TA5"ZrqJJ8"&m!2m!%%KZrpbT+%lk!1JZ,2a)C`!!G$i
XrrCR"$iXrrKQ!!"5,blrp$mm!!Y)E[rZ5'lrk%KZrpbTM5"ZrqJJ8%)S!"![,[r
S5(S)'UPI1A`!rrrf,blrk%*RU9djI!$rrrJJE[rS)&!4I!$r!"")E[rFU5Jq,2r
kC`!!#L!Zrr41ZJ#f6[S!EMiXrrCQ"$iXrrKR!!"3,blrp$mm!!Y)E[rZ5'lrk%K
ZrpbTM5"ZrqJJ8%)S!"![,[rS5(S(S+PI3QcrpLmZrqJr2!$rU9e#E2ri)'lrk#"
3%A`!r`!35'lrh+NS2LcrqQF!!!SJ,[rd6VS!4Nlk!"K#Cc!Xr*!!d'lrcMm!3UH
TKM!I28$rdN*Xr**1Z[8B-#lrmNjH6R8JAb)I-"m[#%MR(aK1Z[d+60mBq$p!!!4
1G8j@rq4)lQ!"rr4#E2rk3Qcrr$em!!crj!aZ!"crj'`!!#B[,[rd2blrj%KZrr*
)E[rZ5'lrjUQ0,blrlN*RU@05E[rNB0)pI!!Frq3-EJ!Nrq4X!!!Q,blrp$mZrq4
)E[rb5'lrlNKZrqDTM5mZrqj#CkPM8Qlrj'$5,blrp$mm!#9)E[rb5'lrlNKZrqD
TM5mZrqj)HJ@FUBm[,[rd2c`!*dKZrr*)E[rZ5'lrjUQ0,blrlNKk"AbTMdjH6R9
19[lN51jJ!Ird2A`!$2rb$'i!(2rbE!!!2#mZrr3r,[rb5'lrm%KZrqa)E[rNUBd
[,[rX)'crlM!Zrr)%3!!--LJ!#1"T!N%!!6m"U@05E[rbB,`pI!!Frr)-EJ!Nrr*
X!!!m,blrp$mZrr*)E[r`5'lrl%KZrq5TM5mZrq`JE2rb-#lrmJ4!!"`5%%L"i'N
#33!"2`'TBe*Zrr*J["em!!6qj#"Xrqj$l[lPF!5J,LmZrr3r2!!P5'lrm%KZrqa
)E[rNUBd[,[rX5'lqj+Q2(A`!"2lN)'crlPL)3qlqjA!%S#i[,[rd2c`!*dKZrr"
)E[rX5'lrj+Q0,blrl%KZrZ5TMcPm!2rrqMPm!2rrr%jH6R919[r`,8lrr$!i!K6
"r2rr18$rk%M!6VVeCLP)rp!Z#'B!!!S`22rr6Pj1G5"Xrp!-D0,A!!KQ!!!X6VS
!X#e)rr!Z#'B!!!J`22rrB0SJE[r`9)JT52rZ)'lrm#P)rr*1qJ#%)'crd!aS3N3
!#'B-2MJ$pQm'%$`!!@!#3J"+!'F!!&``,2rS5-!L1!1B5'cm8#3I5'cmP#BI6VV
bX%T!C`!!#M!mrrpJ!2pq,@cmQ2rd)'lrp!`3!!*R!!!+-$crrf!!rf3JE[rd@)J
T52rZ)'lrp&5)+8MrmNlk!!S`22rrB!$r4%*!B!$r2Nj@rqJY6[rm3HcqV#e)rr3
JE[rd3qcm8#&*!")JE[rd%@cm6`!D)'lrp$&XrqJ!&L"Zrr4#D!!F)#lrp%+"*$`
!!+!-6VVb"NT!C`!!#N(i!!"1ANje)'lrp#eS!$$rm#"Xrp!jD!!@rU!LE2r3-#J
!&Y"T!"Jp32rZ3S"1ZJ)Q5N"R!!!)3IJ!!'$'3Qlrl!aZ!J$rl'`D3HcmR0$Zrq`
Y52rS%"$Z#%S!C`B32!!"B!*#!%S!C`!!1#"ZrqJJ+!!5X+lrm'B!!!JJE[rSB))
`,[rX"N!!0#"ZrqJ5+!!b5)(333*!rrip32rX6[S!0P*XrU!`,2kJX'lrlQi!!"j
#J%kk!D"+3'F!!!T"q!!!B!$r3%*Zrqa1qJ!+3IJ!!'!!rc"J!2pUB!$r+%j@rZ4
)lQ!"rr4#E2rm2A`!$2rb$'i!(2rbE!!!8M!Zrr)%3!!--M`!!H&T4N%JE2rZ`fJ
!##mZrr3r,[rb5'lrm%KZrqa)E[rNUBe#CbmZrqbTB$!I-LlrmJ4"!!cMD#"Xrqk
"D!!)8QlrmQ#Q2A`!(2rb$'i!*2rbE!!!6M!Zrr)%3!!F-M`!!H&T4N%JE2rb`a!
[,[rd2blrmNKZrr")E[rX5'lrj+Q03QF[,[rXU@!`(c)Zrr)%33!FifJJE2rbJ4"
5E[rbB+S[,[rd2c`!*8KZrr")E[rX5'lrj+Q0,blrl%KZrZ5TN!!H,[lNC`!!&%(
ZrZ8LE2rZ%#lqj%L!5-#J,LmZrr3r2!!R5'lrm%KZrqa)E[rNUBd[,[rX5'lqj+Q
3!"iZrZ4R!!!@3Hlqj5*XrqjBL4!ZrZ4)J%M!S#iJE2r3$'M5e`!)CJ!!$(!"6VS
!*NjH6R8JE2r3$'K#4!!)CJ!!$NKXr*3J(dkklpKJiM!mrrpJh%j@rqj)lQ!"rr4
"l2kX,8Mrm#"Xrp!LE[r`-fJ!5!!@)'crd#*Zrr!cD!"+!"JJE[r`3qcmR#&*!#!
JE[r`)A`!!!)!!#3JE[r`-A`!!3!X-#cqS-(m!J!JE[r`)8!!,MiZrrCQ%L!Zrr"
#J53m!!#J!Nkklc4J%#!Zrr"#J53m!!#J!dkklb*1ANje6PErm%MZB!(rp#iZrr4
R!!!`,AJ*e[r`,Llrm'F!!#)JE[rdXHlrm'B!!!S32!$r6Pj1G5"Zrr!YD!#3!2r
`B0K#!'$X!&0PG%CTE'8!)%4PFfXJ3@0MCA0cEh*j)(CPFR0TEfiJ!$-Z-`"LH5!
!8f&Y)%dZ)&*[BQ9bG(-!4R*PC#`J8f&Y,#"KEQ3J4'&fC5"6EfCdGf&bC3!a0$3
b35"AB@aZGA3J8h3Z,#"6G@PdC5!M-68c!%*PFQYPE'9j,#"$B@aTCQpbEQPK)*!
$163h-$N!+$3a05NJ1$3j,6Na-63!8h9RCf9cG'9N)%CbC@9hBA*P)%0[ER4bD@*
eG'P[EMSJ)#3a-!"8D'&ZDh-JG'mJ5QPY)%CbD@9NE'&ZC'9b)'&ZC#"+EfKZ)%e
TG'0SC@aX,J!'8f9d)%Pd!!42F'9Z!&0PG%CTE'8J-bic!*!%$!"D!))!dJ&m`B&
993#3!``!@J##!0)"I-'#998!!!+X!#B!N!@+)3!!R#&3"!42F'9Z!*!%")!!1`6
3!%d%"NKTC'4PEJ#3"D-"!!#e!9!%"&&eDA3!N!8R!2`!1`&EJ!#3"N3"!!"@!9!
%"89UC@0djJ#3"9d"!!"[!9!%"84bDACP`!#3"5F!$!#j!1B!N!FR!18!Z3$f!*!
(I!$m!(d"9)!!N!8%&!!8"(N!G)J!N!D+!3!!R!&3"!C6CA3J5A3!N!3"$J"Q!4i
!YJ8(6fiJ4'9cD`#3"3%1)'B"(L#f"3#3"3%1)'B"(L#f"3#3"3%1)'B"(L#f"3#
3"3%1)'B"(L#f"3#3"3%1)'B"(L#f"3#3"[S!CJ%+!,B&"N0KBfKPC!#3"HB!CJ$
f!,B&"P0SBA*PC!#3"G)!CJ$L!,B&"NPZDA4PC!#3"Ei!CJ$1!,B&"d0SB@jRC@3
!N!8")J!-!6)!A!8%3R9cH3#3"!%1!!`"(J"F"34#EhT[!*!&qJ!-!3S!A!8'8hP
cG'9Y!*!&jJ!-!2B!A!8'3R9ZC'aP!*!&dJ!-!1)!A!8*5@jfDA0TBQaP!*!'[J!
-!-i!A!8'6'pMDf9N!*!&dJ$8!1)"*!8*4QPXC5"-Ef0V!*!&!3iJCJ%H),B&!*!
&!3iJCJ%H),B&!*!&!3iJCJ%H),B&!*!&!3iJCJ%H),B&!*!&!3iJCJ%H),B&!*!
'[J$8!-i"1!8-4QPXC5"3FQpdC@0d!*!%!3iJCJ%H),B&!*!'qJ$8!3S!piJ%9(P
`C3#3"IS"%3%+!8-3!*!&!3i!e!%H!3b)"d0bC@&dEh)!N!8"$J%4!4i"3a!!N!4
1!!%!N!9'!"J!@J"N"!C$B@jMC@`!N!81!$`!,J$`L#T")(0jFh4PE5"PFR*[FL"
[Bf0eFR*PC#i08'aPBA0P)(4bH5"KCf&TELi!N!03!!%!N!9'!"J!@J"N"!C$B@j
MC@`!N!81!$`!,J$`L#a$Eh9XC'iRG#"eF'4KG'8JC'PbC@0dEh*j,Je@EfaeE@8
JDA-JE'pMDf9N,J#3!aJ!(!"5!9!"U`!"!*!)`B!$)*!$!*!$*!"'!&)"'!'Z!!3
!N!J43@*[GA3J8f9d4QPXC5!c,M-!!!%!N!-BF!!!&h!!N!1c!!$-*!(B!*!$(!#
Q!!4%8PC5!*!$+N&-8P3!!3!f4%P86!!#!%j%6%p(!*!$FPG*6N3!N!0q!!`!!#!
!N!I"JIrr)!!6YJ#3"-'#rrmJ!"2'!*!%`B$rrb!!%pB!N!6"JIrr)!!@KJ#3"-'
#rrmJ!"EB!*!%`B$rrb!!&b`!N!6"J2rr!!!A5!#3"!`!8f9d4QPXC5!c,M-kS!: