10 REM > BLib.Close 1.00 09Aug1998
   20 :
   30 REM Close Handling
   40 REM ~~~~~~~~~~~~~~
   50 :
   60 DEFPROCClose_All
   70 in%=in%:IFin%:A%=in%:in%=0:CLOSE#A%
   80 out%=out%:IFout%:A%=out%:out%=0:CLOSE#A%
   90 ENDPROC