      SUBROUTINE PLU.WRAP.TEXT(L,SRC,DST)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      DST = ''
      I1 = DCOUNT(SRC,AM)
      FOR I = 1 TO I1
         S = SRC<I>
         LOOP WHILE S <> '' DO
            IF LEN(S) <= L THEN
               DST<-1> = S
               S = ''
            END ELSE
               T = COUNT(S[1,L],' ')
               IF NOT(T) THEN
                  DST<-1> = S[1,L]
                  S = S[L+1,BIG.STR]
               END ELSE
                  DUMMY = FIELD(S,' ',T)
                  T = COL2()
                  DST<-1> = S[1,T-1]
                  S = S[T+1,BIG.STR]
               END
            END
         REPEAT
      NEXT I
*
      RETURN
   END
