INCLUDE '($IODEF)'
        COMMON/STUFF/LOCAL_CHANNEL,REMOTE_CHANNEL
        COMMON/CHARS/DATAIN
        CHARACTER*1 DATAIN
        BYTE BYTEIN
        EQUIVALENCE (DATAIN,BYTEIN)