*DECK CLOBIN
          IDENT  CLOBIN 
          TITLE  CLOBIN -  CLOSE BINARY FILE
*CALL     COBIOM
**        CLOBIN -  CLOSE BINARY FILE 
* 
*         CLOBIN; 
  
  
          ENTRY  CLOBIN 
 CLOBIN   CON    *
          SA2    BINFILE     42/LFN, 18/MISCELLANEOUS 
          MX0    42          77777777777777000000B
          BX2    X0*X2       42/LFN, 18/0 
          ZR     X2,CLOBIN   IF CONTROL CARD HAD B=0,  EXIT 
          SX2    A2 
          RETRN  X2 
          EQ     CLOBIN 
          SPACE  4
          USE    /BINFET/ 
 BINFILE  BSS    0
 BINFET   BSS    #LENFET# 
          USE    *
          SPACE  4
          END 
