      SUBROUTINE PLU.DOT.UNQUOTE(MSG)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      CRLF = CR : LF
*
      IF MSG[LEN(MSG)-4,5] = CRLF : '.' : CRLF THEN
         MSG = MSG[1,LEN(MSG)-5]
      END
      IF MSG[LEN(MSG)-2,3] = LF : '.' : LF THEN
         MSG = MSG[1,LEN(MSG)-3]
      END
      MSG = PL_REPL(MSG,CRLF,AM)
      MSG = PL_REPL(MSG,LF,AM)
      MSG = PL_REPL(MSG,AM:'.',AM)
*
      RETURN
   END
