Open & Close

[Carl Distefano CLDistefano@xxxxxxxx]

Here's a revision of the Open and Close routines that I just posted,
including a usage frame. It's UUencoded below; I've also placed
it on the Web at

 http://users.datarealm.com/ammaze/xfer/OPENCLOS.ZIP

--------------
Carl Distefano
CLDistefano@xxxxxxxx


begin 644 OPENCLOS.PM
MKDQ-KZY23:\-"GM[-2Q(96QP-&]P96XL2&5L<#1C;&]S97U]($AE;'`@9F]R
M($]P96X@)B!#;&]S90T*`JY35C`Q+*Y&3*^N3$TR1$FOKE)--SA$2:\-"@T*
M3W!E;B`F($-L;W-E($9I;&5S(&9O5=R
M:71E(%-E2!-=6QT:71A7,@82!F:6QE(&EN(%)E860M3VYL>2!M;V1E(&EF(&ET(&ES(&]P96X@:6X@
M80T*8V]N8W5R5=R:71E('-E5=R:71E('-E2HZ($5V97)Y(&9I;&4@9&ES
M<&QA>65D('=I=&@-"D]P96X@*FUU3X-"@T*268@87)G=6UE;G0@:7,@;VUI='1E9"P@0TQ/4T4@=VEL
M;"!P6]U#0IF;W(@=&AE(&1EF4@-3`[($QE9G0D.B`E(`T*#0JN3$VOKD9,KZ\"#0I[>VU]?0T*#0I[
M>S5O<&5N?7T@0T%L;'Q216%D(&9I;&4@:6X@8V]N8W5R2!S97-S
M:6]N(%M#3$1=#0H"KE-8,#`LKDE3-3"OKZY,0F&O_X*G_X*K*&5S(#$I.RH[
M#0JN24:N5D%\,#"O/#&O4%)<-#$TKZY%6*^N14FOKE-8,#$LKE9!)%=!KZ^N
M24:N4%8P,:\\,:^N4%).;R!W:6YD;W>OKD58KZY%2:__@JLH9G5N8R`CKE!6
M,#&O*:Y36#`Q+*Y)4S`PKZ^N4U@P,BRN25,P,:^OKDE&KDE3,#&O\"(Z(J^N
M4U@P,2RN5D%`,#$Z,J^OKD5)KZY,0F*OKDE&KDE3,#&O\")<(J^N4U8P,RQ<
MKZY84S`Q+#`S+#`T+"PP-:^N4U@P,2RN25,P-*\KKDE3,#6OKZY'3&*OKD5)
MKZY36#`Q+$!U<'(HKDE3,#&O*:\[*CL-"CLJ.PT*_X*C*#(N1V5T1FEL94QI
MWLU8VQOOKD5)KZY35C`Q+%.OKD5)KZY,
M0F>OKE-6,#(L86*OKDE&(E,B[D!U<'(HKDE3,#&O*3T],*^N4U8P,BQ35*^N
M14FOKE-8,#$L(@T*(BNN5D$D1DFO*R(-"B*O_X*KKE!6,#*O_X)_KDE&KD52
MKZ^N3$)HKZY36#`Q+*Y6021%4J^OKE-8,#$L(JY605PB*ZY)4S`QKRLBKR*O
MKE-8,#$LKE!6,#&OKZY04D`P,:^N15@QKZY%2:\[*CL-"CLJ.PT*KDE&KE9!
M)%)%KSPQK_^"HR@R+D=E=$9I;&5,:7-T*3LJ.PT*.RH[#0JN24:N25,P-J_P
MKDE3,#&OKZY35C`T+*^N6%,P-BPP,2PP,BPL,#2OKE-8,#8LKDE3,#*O*R(-
M"B(KKDE3,#2OKZY%2:__@JMS82`E,#8LKE!6,#.O_X)_KDE&KD52KZ^N1TQH
MKZY%2:__@JLH=V%I="FN14FOKE-8,#$LKE9!)$U'KZ^N4%)`,#&OKD58KP(-
M"@T*>WLU1V5T1FEL94QI