      REM PL.SENTENCE.INCLUDE
*PIC-LAN
*INCLUDE
*
*
*Y
*
*
*
*
      S = SENTENCE()
      O = FIELD(S,'(',2)
      S = TRIM(FIELD(S,'(',1))
      SENT = ''
      FOR I = 1 TO DCOUNT(S,' ')
         W = FIELD(S,' ',I)
         IF W # '' THEN
            SENT<1,-1> = W
         END
      NEXT I
      FOR I = 1 TO DCOUNT(O,' ')
         W = FIELD(O,' ',I)
         IF W # '' THEN
            SENT<2,-1> = W
         END
      NEXT I
