Date: Thu, 9 Feb 95 10:01:24 CDT From: John Sudderth Subject: PutDefaultFile; an XFCN which will open a standard SFPutFile An XFCN which will open a standard SFPutFile dialog box at a given path. This will override the "Documents" setup in the General Controls Control Panel when using System 7.5. (This file must be converted with BinHex 4.0) :%P"eG%4PCQ&eE(4'D@aP,R0TG!"6594%8dP8)3#3""'i!*!%m&G6593K!!%!!"' iFNaKG3*T!*!$&J!!$3d18(9d4'9QBA9XG%CTE'A3!"5,kJ#3!i!!N!3#32&qfPm !N"VrN!469%&,9dP-4!%!UR`%iUYHU[)!!!ZT!!!Ji!!!"X%!!!TaU4qTK3#3"Zf 9)d31)[*8%*@MNSr&Y(4'i5CAKTM1-iS8ibbQU5CA6B0T#D*aiD`Cj!NTUjLYXX) 9*d4c*0f-Y%HR!HT#Zpqh0Mafd%DmpP(&Ud39Ea)9Ia(pBA!%SKA,b,([S+-Thbq fHm8eGUmYcrFeGUrlUGelll&lrCCmrj,G'cED[A'4hIZZcrHlV4iXerdKUICAHaK +-#Y,Y[ppGA%43lerIAr0i!l8,m2RQNG(+q*h51"r%6Afhc,)B',89P,!h`S!aQD LAINHF3Ak1N`aUECe81pIRRT,ccLLpDf"8&(+CU5qPAXYY#QdUBH+2m3dFY9S9-E +UVk61"6+MZ+CNa1()VZ1XDUSalA+ND`B2rQ"%j*[p$VA$(F2ffcIHR*El-"Nb30 9L6GCQFfVbR82MjqFV"$UrLFNAhr3NAJccb6J'I1mmi+AYkZJ+VS"(kb9`i@#BN% *G,5@)l@YA2SDZ0(N%XbCCGh$V%R`I%p)PNbFR2KTKQafD3QV+c16$Ijlbdc@C,X 3bZ$L9-%&B,j(XKM89QEk@5LEb3RRZF0)SF91)He9FL!lBpAq+ZKmj3P@0S'BZj! !N!#aUXG9"B8*MqIHmPF*lpRCd&VXi#5L[EIHh9TI*T!!pCqm[I92ANL1BckUq2J RDe3UUpR9FfVc@l5SBGP2cU`"DmF0bC*90b6(pl`4H)[B0`k%[QkTe2QEPMG49HJ FYL&mCHJ!e(*lAZ[RZS'a,NK,-6(KaFD3!0'2[MkMDc(dpb3b@E%m(YJ8Ck)reGF E4mqF+*P+(hTc1Lhi6&bAdU+[9`"J,fq3!#T(crNeJmll-Ui+QE*8PKaI)6[lU5c KkXBX'4GAI2T$`cf8kmP3`f,(f8!QB3j'11V"*VP9&B[*jDK2,Lj$le@6A-#kAXF 1HfGQ`r'qYSUQUC16ae8dVF!QJ'j%FK`B)j*LcqMK@TYapT4NLRUF`%Q1+JCAj*a AU#Fh,"16&'T0dVH+lQi928-2lNU83"&f"1)X&0ZHUPVXR)+T#UKT`hb6`mmm3)N ha-3#GdI4")r689,U+Ljc8iC@,ACHeAIFq-@1hcSG9&RK)%HLM!dk[eG95k93@iB 8@8GpqML4V1j2F0E"&S515lXL6ABqE6e(FYPm*A)Ci5KlF&Hbr+`VF4B&l,f56B9 +SYJ'd6iU#chmpJ1KFqcY)1&2&A$,+d99Tf,HSceJ,9j'@fRpP6f6+qD6P+(d123 ,-k5@Z1B6be$hbNG@+MrXH+&XriJE,hXL(USjYBej%QA@8EDRjd5fHNmFG4$FkZS RK"iqj',`f'meq8p9FiGXGGXKIl*qQGJJ&X(CqAD3!2PbKjbB@!20EFSGUJ#LSZL 9LYM'E-CKUlBph2C++9*D**,83CQ%([lYAAC[Ur+[@e&DAb*3LhVii3DNXE9lk96 K2Hfe``pRUYKhX#eE'll6m4UpH2Lq3SSk0CHMUN6*mLfN8Y9b9$*Hl,ha2kIbd)( 3fVH[DA[&)DC%ljr3YTPfYkP[A`2A-Ff[(EjQEP[ZVVR`ChXcI#@8GEPlPQr*jA, hce9cEqDqh2aDlTU-qlDH-fM9bU6,2k'R$EQ!GZXCm*&KBbe[LPlde2)phk9jj,M SF5TE(VGe,Vk'2%)cc[[[bhdjF3fQX%lNPiLYQEhfcI*m3ZUj5YRJQq[E0MYICAh NV+q#rVC96H%V%bH#mj`p*beLiQ"fXamq[+b((0m#Fr1)@Yf)fU5m'Q3QUHQKYKP pqLUb&'$+U%*B3H(56k'`[#*#MR3*1Nk$#R0cAS@U8CAG8#Q`(9[8hl`9H[Jh2l6 lPN0R%!XGH+bLPTEqjMI)@jHXJS2X[-T,i5YlaJ'2cq02KDm8L%9pXabZ6M5rpTX 2"9jlXhadcS'a13#@Ji(Cj&bTeF+p8VK[3c,[*d4[83m*E+VGY`c$[Ar2C-`T6!e PTZ5CT5)Am-&D,V6#a5A"&d4[8AmV-(qlEeNkiQ+4c@K'@T3T#"IS#(&)F31fBC5 Bh%ZUrfllJffUf[H69ElIh*CX%,16l2[0hRVIEqj"eZ93h)Bp%Z8EYUHVqB(#G,@ Qi+ahafYP`fmk3qIiEJePa@89dp$3f0JiEpim@MS+NFL3!'T+Jd[CXGp#i@aC4M* 6Cp5KVmBIT4U"&)rbXk8d2i20SKCGer4ha1((daHcXXi0&KNb6*jQTrN'QDBc46+ jl[[r1%kQ9Ej)0KlRZTPLM8Z@,#6l4a9XA0Xlrm*BjbRKbLSJ*MU((1f"VK"109r aG`)i#A6qf)q,fl$a#Hf`X'AL*aC6*L"1TJC'MXZFcT-V+T[9T-)lH-,dpH+rfNh rLRIqDEX+!!!0!&h(EVdYE5f68kjbX`5QH&SdMqZNlaeXYYQY%djEQCbfFNUBaYd HiDRQ!D`$hRTH'rp9P-I)CRM@HC+9A@m44MMCalU1E#PKqmKQK00pV-k1r*D`fmH mHV,2)mI*E8)j'I!"i4R&XmMa*mFl4MJCm!MGM&$#m-"GAE,Vr$dJQpcfb#Dhb5D hM``iQ@`bfQ4'p`(MJI&kARB53YbN,qUreF)JGPa"#%baZ[-KBYNKqlmQ3NM9i8V T`K[ilcbX[0#ah"L-$r1ERDrdmm+p*#rF*I+@`T4Sr+ReR$AKD59N`5EbUM!kYma 8-!&KLP8NNTf,NX6cQ$6'mNYMUhNq-hE#cLG1R'(C1Q'9Xm@b851#i2BjQ4kb+%V fYdJ+&9PqhPL3!!k+R8e2GcUZHA9L`F0Ma2k+8Mpf`G`[pE1mmpIf9aDfXAllFq` 0Gbi3"H(qd,V3rB)J&1XNIp%[e4Q'Ik2EAIH@j(a)PqS2ej`dLZlhh%AMqKG@l8m XkcPdj&[qNcHm@2HH$kIHL3TYq)#)6MFL0j!!Ei0BKKhZTG)T3a#Gl0ebZph6ZV6 jNAVTbq0NI2a('0EZNemmiMI)f3r1IM$D1pSlYib'c-d5E@h39dJNU+URBH@kG6G jX+#hS)GS-PE)kPfC,'f'$IQBRYlBL[qUNX[Vl#94UBr%FR3MY-$J-15Sak2)S1N a9Hr2Hc5U3d'MDTB1d5cS#YcNSA+LA2i2DZLpZLH6"$e0SrJ%'3eN43H+$!bc)YQ 6,qM3,"GbJe3&*3RaG%c9f%-f)e0Bb3#cPmKXJfFpf"D'BYN#CFrif*@Kf35XJ*8 Y!"NC'b)r3B6K55JJD64,icU("FfP3QL$,*96HVUj4%Y,#m0CVPD5%U*XDTV&aJR 2*'hH1ClYD59,Hj!!&mqF%3SJNUhq[ZMjrIq[m5MZrlfipdp[)Z3XlU$IIT13!"R Fr8rL2H!RRb(NPCF*LGlj(ra[i$hJqcqINdDDjdi)SfG,Ar6m68FShAj%%X9F4a` q)ZEi1imVlbbrc"83EY,Vhh`,am@Mk[#Va(NVZc0004aSV!2"F)P268$00Fph[q9 [##`5AG)MdX"J#c6@R(UCl&Rak"A16QJ6[BCiUZTl$EIh%DH[bcYr#c&UL`q6rKF Jlh3eH'ljfYVjEq"GUhpUqClDKl`VhYdD[RUbBHdc[bcqBD*PiNTb[95rkZh6cI8 RVc81,AVJ`6U(ljZ(PbdQ9ereHZ0Y(laqlGjl'U3AQKY#6V(B'K+DIEA59FBhk%p $ccdjTj0ZrFq`%))[F1[Q8-PIJP'0Gb@lN!#3!!Dm#f%@53Zq2e1UZiXdBHNmB4r a#SpeXSVl@5qb!(00Q'EaXSK(b*b#TdFm3JjPY%)X#iQ-TLRC)HT*+4"2J"4AD5+ MDa+rc*9kF@c0(&X@X4NFf`-IBf-33)ZVQEc1$j!!#4M8CC!!G(8B-RV$*@cB@-P 614K6%r`dLSf9E,E81)Ph5(kbl14GCa[pFhj'!e[pH-HIR4Xq16c+(K(f,q$hL[$ %aGlKKfTmEp8+06l6kcD[GRahh`(*GDjapp4DKf@BRlGQb)15@fLFU2%kcBL!FhJ J+)c@cccVmeU26(ZGSV&lJLam9l$-p5k$c$[PqKN4V#HQ0fKIQ5$98`iXUr+4TFR 6VNE"U(rZp)dH(j(UV6A#(U1abM)hSZY(UMqA%-pe['hjX%+D0l--eTUZ0&DBeZK bI2EY-ZXFiV,1cPT[i!Tbqr`9NXqmbL''VTXLZdqpEaP1mVQCV`DVhc'Ye6H6Pd` AdQQ'hA8$,jP"`A!i$TK,h1BYJR@1Q#[%DI0'*04FAa2)Qkl[l,1Chc1bRrf,arI KEkG)42D,6)q22$e5,KNI'4rjmFK"FkR6V"2%KmfPE[0kJpKpRbRKq(JqLDe[6-Y B,-*EDAP+QHCK&XKbVMec)HME"3eLjr2+p9a2ii%G1q2a@Q*RE2b[&-F6'Yl(l4j i[Spr#DrFr&iqQ1,+*H9M+@TM,F1Vm$pJkp-XljrUdp+jBr4TI&rj1hP4F4`3p'p $I@'q2"DeH)Hr%1bZLKVM)%kFTfSfHm*"0%J*iMab)c(*#AaePD(B'X2IZSR)1p3 4M8c1JR%30XABjE`#-4faA4PF%Y!%mT(Q(#%1"2dBf8Kq5)k-)JXP"H"BSrDZp!Q JdRDdLYGGp+C)@iFKM'S$)68c40Gh+9QdXNJYGQ-Q9l`Tekf2X&bJb,+%rFCmC%2 dbr#&VQ!%GUBcm66Xc,$e$28-BNcej!3$fYH&&$$X+,QaV*+#3H9HL1RB)S8-b-# m-Zd3CBMYrN0896-*LL43N!"#5Vb3!+-b#M2D3I4#hPC9#TZT6&@8mD!LklJ9DZ8 (k)h*k*hCLABAY0*Nj"6d$@XkcF'DpT[D2CjJ,)X@Pa4S`l)HZaI@Aa`2q,Ghaq1 *)JFDM5Xi&FJc'aLN1Kp6X9kRk+U*U@LCbHXC4BjP%AFrTd*UN!"i0fN6rQ125N1 EHK8C9R&iF1H3!0Zi+5H0f`XdUe6,Yd0Fb3qVQ93D4`Faf!bfY([)4a4HhPMq,!` IEXbA9qE5IRaH&brY(b`Z+CdGdB1eER-jN!!pqpQr3ID-r2Fl@#Xb"*I$BGMk$EB [pR)`rFEGdF&9qJ$M6VbE0"-RUV1%AYeI#9qrT-j"HrGM&8fi4mlZN[#AA4*M!jP IZAV`qVfIA$dZU,Xe)pjaF@5C8`YRRJZTRNCTr*H1AYE3,GccTD"Xf'BYb-ANB8$ 2&994K64)+J9NSL5J3389+SMh&,4BS8V"d-VfQa%#T"%hD%U1-Kc*M-`@@Hj+5aD BN!#Kfkf(TP"iqr4#-SNbL)KR)6,id+95ZKhPVa93Dj@G62F+FMD6bqJd`A!`!KJ [-QTFA-RPU"T(2ZdYZ4hZ8!T`6d($4CYLZr)+(BpKAliUbC`X4Q#XS+F9G6QDh&" #Z54@"",l$LX&Y3c+Mh$23f8Nj"M'3BU'YcL90B6+!'!c@GQCTBN8&U!pV`)6QAq 5frh!Mk1jMB(8B"Y&Vpi36AMi,)@BD8r*-iTJXkS8mUf`4BkhHlDV'9h('3d-3lH 5PL[Z`8m$)HEbb"[#A3pV9UeHZDCepDV90`0d!2K[keN2hG[lX!XT+pQ&*D!XpR% ZpRqrK!cL#&cF4[mB[VjSS)GlUL[EJB0YJq90JA[M+YH,brflH(rQbqC4FNF&FBH -T46%`TDlSGMIlTqpfb,S[bVjk+[%d`4)*fC!Da3hBJPj!8KB%-Ka'pp!Z2XTDcT 9'dKeY&[6(4YkYh9&)mHUacjlA8IEj10B-a-iQPr@33*()mFDDL%hqAKcEep@N!! #U8fY!Q#@)XIJd,SG!S4cNdrKfr'Hhp3BNEXMKFMYeTQ1"@(C1K-jjMSE10Ua!G% [``i[VpJaqAK5(1KQY3`4p(Dimp8G*(+XDBQ0d2pE8Khmh5q@`'[`fVTG*%`@VpZ &R(N$V@4*RV6JS39I)2!$!DlC4B6*qjThP"$r2[b1`aYSQlb[qpMBiU3lFYbkEi# 3!%1)[QeX-@-hJZ`ZV'hD!9A*@KaKR-NVhkrhQYk"HLqE8iMkYr58rBX,)`8iS%+ #h9Hc"Ih&r`-!fG8!!!: