; 16 jly 85 esj converted
;;;;;;;;;;;;;;;;;;;;          SPAR            ;;;;;;;;;;;;;;
      E'F A:S(NWLS)
      E'O SPAR.(XDATA)

/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
      I'R XZERO
      I'R XDATA(5)

      XZERO=0
      XDATA(0)=TOCHAR.(PAKSIZ)
      XDATA(1)=TOCHAR.(XZERO)
      XDATA(2)=TOCHAR.(XZERO)
      XDATA(3)=CTL.(XZERO)
      XDATA(4)=TOCHAR.(MYEOL)
      XDATA(5)=MYQUOTE

      F'N
      E'N