SUBROUTINE SPAR(XDATA)
      IMPLICIT INTEGER (A-Z)
      COMMON /KER/ N,RPSIZ,SPSIZ,PAD,NUMTRY,OLDTRY, FD,RMTINFD,RMTOUTFD,
     *STATE,PADCHAR, EOL,ESCHAR,QUOTE,FILNAM(132),RECPKT(94 ), PACKET(94
     * ),SIZE,MOREFD,IBM,HOST, LOCALINFD,LOCALOUTFD,SPEED
      INTEGER XDATA(1)
      INTEGER CTL,TOCHAR
      XDATA(1)=TOCHAR(94 )
      XDATA(2)=TOCHAR(0)
      XDATA(3)=TOCHAR(0 )
      XDATA(4)=CTL(0 )
      XDATA(5)=TOCHAR(13 )
      XDATA(6)=35
      RETURN
      END