SUBROUTINE SETCF  
      INTEGER GCHAR 
    
      INTEGER  QUOTEX   
      INTEGER  CONTF
      INTEGER  CONTRL   
      INTEGER  HEAD 
      INTEGER  EJECT
      INTEGER  BLANK
      INTEGER  SLASH
      INTEGER  CARDC
      INTEGER  FLINCT (8)   
      INTEGER  EOCC 
      INTEGER  ENDCRD (3)   
      INTEGER  RECORD (66)  
      INTEGER  RECPTR   
      INTEGER  SOURCE (150) 
      INTEGER  SRCEND   
      INTEGER  SLEN 
      INTEGER  TF (3)   
      COMMON   /SRCE/   QUOTEX  
      COMMON   /SRCE/   CONTF   
      COMMON   /SRCE/   CONTRL  
      COMMON   /SRCE/   HEAD
      COMMON   /SRCE/   EJECT   
      COMMON   /SRCE/   BLANK   
      COMMON   /SRCE/   SLASH   
      COMMON   /SRCE/   CARDC   
      COMMON   /SRCE/   FLINCT  
      COMMON   /SRCE/   EOCC
      COMMON   /SRCE/   ENDCRD  
      COMMON   /SRCE/   RECORD  
      COMMON   /SRCE/   RECPTR  
      COMMON   /SRCE/   SOURCE  
      COMMON   /SRCE/   SRCEND  
      COMMON   /SRCE/   SLEN
      COMMON   /SRCE/   TF  
      CONTF = ISHFT (GCHAR (RECORD, RECPTR), 8) + GCHAR (RECORD, RECPTR 
     1+1)   
      RETURN
      END