      SUBROUTINE PLW.TO.URL(SRC,O)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      DIM X(3)
      EQUATE X1 TO X(1)
      EQUATE X2 TO X(2)
*
      OPEN 'PLIP.CTRL' TO CTRL.FD ELSE STOP 201,'PLIP.CTRL'
*
      MATREAD X FROM CTRL.FD , 'URL-QUOTES' ELSE STOP 202,'URL-QUOTES'
*
      O = SRC
      I1 = DCOUNT(X1,VM)
      FOR I = 1 TO I1
         O = PL_REPL(O,X1<1,I>,X2<1,I>)
      NEXT I
*
      RETURN
   END
