C RDBUFF     INPUT BUFFER
C
C KLINE(81	LIST OF CHARACTERS IN INPUT LINE (PLUS SEMICOLON)
C ITEM		Current character value     
C
      CHARACTER*1     KLINE(81), ITEM
      CHARACTER*80    KTEXT
      EQUIVALENCE     (KTEXT,KLINE(1))
C
      COMMON /RDBUFF/ KLINE, ITEM