From: SMTP%"ALLAN@otago.ac.nz" 30-JUL-1991 21:26:44.61 To: hagood@scri1.scri.fsu.edu CC: Subj: GetDBPath Ext Date: Wed, 31 Jul 91 13:11 GMT +1200 From: Allan Udy Subject: GetDBPath Ext To: hagood@scri1.scri.fsu.edu X-VMS-To: IN%"hagood@scri1.scri.fsu.edu" GetDBPath GetDBPath will return in string the pathname of the current directory and the directorys ID in Longint. Use this ID with SetDBPath to set the directory back to where it should be. (This file must be converted with BinHex 4.0) :%NGPG#"%3L"3BA4S)%9iG'0`G!"338083e"$9!#3"!R'!*!%IHi"!HSb!!!*2B" 'D'KhH)PhJ'KlF)Z*QS#(5AT`F(L(LRCjJ)#UQAU!UAGRGiGSDAPCL(K`N!"jS!# (GjL(CSLCKfGDH(B*N!#JN!!!H+J!!)U3!!#)J*U!!(S+!!QTN!#VQES*#*!!J*S +!*!!J!!!J)!+QT!!J+#JLCU!QTUJUUQ3!+!!#C!!N!#jLC!!LV#!J*!!Q'B0!!% N9&CQF!J!N!5!$K4%499@B'"hGJ!!GJG`K#B",6rN)E%#3mq(-r0'ibG(9ak2#d0 ANB14QjNd,m)%El(mR0Q"qeIK[rIUrjplcJ4D@[&!fpQBFc$35EKiB2RB5AcS3XL %LJ'c8&f$#l#X)B-%8f2'"I5*&[j2,lrFTI0DlHMl-ZqS3NkXbIIC`-j6"Nl"Zlr b*BEV%KElUY#hKFdDY$`+0@6U`lZrZiK+M2!eY(fSB@l`)B9rNZ,-AYf1lZU8,Ra [2KYSEEa[5XfBEMGC%-)I@V(hBhph6i&6a9!9#f[-QKZSA0,mX+G$"KEdUhIlRMl q'`NkXlI4cXEYprZAHe#&Q6Ul$rF[MarY`rIXrE(*hGr$Mdq"9jq9mQhq@6LacZ& j8RCrMNCRPq9P5BX*Xc$&e'6bi3hQF#X1PT@B8Y+apXR9Xh)3N!!*`T+mR&NVM3a eLjN)AQG'lrAPB1Y*q5@&$CH*eTXC+mX-rZSakfj`HG*pPRk,c1RhFFkT1pHkcj[ XAAiYD6i)kF,5MI`m*TUdPfAVjqI1PfAXCk2+3UAcB@&IB-,Dq+X[F'%q6T`hFG+ aqb20PQ8rGf'fU`Kpqfm@%0Ki03Qq2Sl$E@r4mRKC2NJlFSG6rpK1%PbKPjb)6UI $"dk@'"L@1[6kGMVJl0aHpXTq0p0McTCqpq0P`D9MT)K(mp2fiEHTESK3RbG@E2c HK(`+Xk@CIDe2me@dM4Mdl(5%Pe9YM*Pd$YH@BSDci6,Tf-X,Dp65XFqVEd0rV'p 6Dfm)'DFaITXFrlY+&kL'!%,(Z1QX$N`Qf1Lq(@PMT2KfcXDkPbV[,dPc2fG!ba- a-hSC[Tdr8U3Xp`,Dl5flHPP2Ppdl(4Imq2,NrE#0A+THM$d6Lcj5N!$fh69lZS4 e)&!62QeVk(CeZccEc%rTp0MflkCmh0MX2Lj[aDdFEi1[,XEaQ#-[Q5l(UFbY#cm ,Q--VYfp[CqYEiq6,c1$*`Fb+e&%dp0eS@E0PGD3fL3I`c3kHNR0K4LDkYPVD@pq $VAY,2fP2e+YY3Qabj1MQp$c264Vpr[qE#cp"T,h#N!$5XHjiG''dCZMK5G(+lFk GClcBib&$FX&c&'fNVaS3RHYZ6Plkd+UhdF5mT6r"UlQjfYceTmbTh[dHr(CF6%Y eRZcTfNGqK%r@5aaj9ZBiNX*mr2R6rRK-+fq`pU-259lc6K1-$6$VcqB%l!%pkKX T1Vhlrb[UKG&@6j+p(fC1VBqaJErp9GJHP#(rA1XGkMpkar`#GaPpIr-$I1`0rKJ EirZHP#CBrUU8rm@#U@4LR$K!&#"*f$$Cp3lBdl3q,AAY@BhFR&`I9NVm6-bm[*a UANEILDZTbDe@1AS9UZM('j'Ma[2MLqETkQUBXqAjFEkSEM#m'2QEk(DSpUMm2AS iZA5cihZK4ShAKI$4Ym8XMD6J0dXAHRE'I0RrhiIBXrD9erU1K2jQ&iFH$fF6XiR CkfC5MkejcXVj,@e`Fk5ZAaE`QEl(c-L%c$ep(P"$pf6N0qmA$h`12SFRPFU1TSk YI8V4eH4SaieI8e0'YUaU9`a+)UfKTD-H6@L8G`C-Q1K@imH6UmXCe0%8mE4M@Vk AQk1SNH9TeU[*VDZ$FA',@db$G52!bmM)MTe"@V"UDQRTA&ajeIMajFUGkPaLe08 68Y1[UFZ2%dkQVk'KUD0a[I`4ap(M4m6a[&1kApr!RIUbTRj39Z)IMK0hf2NCS-m *P6`KIEkM*MJMHiHZcm(MqlKkjiC$Blq%lp2DD-hJ-rP2H@"Ihh%r$IC@k!!!J$C 9Gf"QCfF!B!"`J(#!F!"(F!#!!)"iCJKJKiJ!K`!!Kf#'KR"iCQ"JCf#!J!!(J!F )H!D(!!"RJ("S!)J!J("iF)!!KJ#3#JF!N!B)!*!'J)!!N!3)!*!&F!#3"R!!F!# 3!`L!L!!!J!#!!!B(!!%N998&"3-5!c#)S)*G!U#@ErfdGkahZVrf+mDL'5lXE2A cpU*TicSCTA2CPmYV"`jIEApd`aa@r6L[B0q8I2SU2$0ATcF(q"&'Kc4FT6a0MU5 b4UBIV@r!3('1P+eL3kf$U!1mlSjYBd3ZrZV9crbrkVr[r0[&ZHE"J`hr4%##P+[ &ABVa@eaC'Yhr*(Eepb*@+@lm)m&rlap0lRad9%@UaAlX8lh*NiIAb4bkG1pmGr, bmH6(+8[(+3-Xl@eYkF8Bd)lNG8e'I9F%G1Eql#`drB"Y"RUIpdH(jF9,+#YB'3E c#$+NrkcjaKSq,Qk`!*!$2J#3"!8!"J#3#8!!!!CR!&K`"T!!"`!!9j@!J'GBHCF !GfKSGQKf!*!$F!5'C'GP"eC8B&GAKjH3!!`!!M0$3e9QG`F!!!F()M-dB!C`GY@ %r6#2+(q5aXdDSimH[*NrAY,fSb8H%Z@cjjbpUIclfl[@c#2a6q0GYq2#RC1GaK1 U1le-*ea[Pej+-RmMJ$Rjeii@hqN)3UK!"RpGA8"h`qE,F1lI3`AljhqRGIL4U)* ZP[pm*&"[+GfQ2+@EbMK$CaNe+F58'56,(L9d#G)rkSP8b(0YQV4Ua`0q-@cN,GR GI`Qi-rI$#JKImD`&!5f5jFc%9RC#4-l@mA3Tcqj!+9EUV4ZcDCI"!qZhrj6iCL& ['@lSk")PJp9EN!"Ad`3C8cffimB)FHF0mmP#2&&XqbI,RG,'fGm+Up2GhJ[!XA! K4UVqbm%"Q9qpY[UVeD2pCeZC&URYMGl5*`8dUVbj@#"pE9@f#p0XpYKLMZFIara PcP(%4Gj4ml+3!,5AY+&*YZ+N[P+$1JVjH-Z'Rh(B1Z+#L%AD6pI[Pre9IdcS+@B (lr9@fBN--bMQ9'8l)iPi#h-Ch-c4E`&""9#Z'QFJ%BmC(2hGRf6[h4a8q+1*4I1 R,9PT8V05IYkCMCJ!`ppqVmEENGIlqSGMr4(0Qqr1rp'rFdTp@'-&I5!!N!2HQ$i 0!!-!LdGPG#"%3L"3BA4S!!)04f9d4%*3BA4S,N9B9!%!N!-)8%9B9$4%69LIhFC USa2,F`!!J(G)UJ!#!!!(AJ#3"JA!!*!%#dGPG%4#8'&dD#j`!3!!"FK849K869" 6)*q*AIDILI%L!!$MI4(r!!B!!!&q!!!$j!!!!A8!!!)!GV-!!!: