      REM PLIP-BLD-URL-QUOTES
*PIC-LAN
*
*ALL
*PC
*Y
*
*
*
*
*
*
*
*
*
*
*
*
*
      OPEN 'PLIP.CTRL' TO CTRL.FD ELSE STOP 201,'PLIP.CTRL'
*
      S = ''
      S<1,-1> = '%'
      S<2,-1> = '%' : OCONV(SEQ('%'),'MCDX') 'R%2'
      FOR I = 0 TO 251
         CH = CHAR(I)
         BEGIN CASE
            CASE CH >= '0' AND CH <= '9'
            CASE CH >= 'A' AND CH <= 'Z'
            CASE CH >= 'a' AND CH <= 'z'
            CASE CH = '.'
            CASE CH = '_'
            CASE CH = '%'
            CASE YES
               S<1,-1> = CH
               S<2,-1> = '%' : OCONV(I,'MCDX') 'R%2'
         END CASE
      NEXT I
*
      WRITE S ON CTRL.FD , 'URL-QUOTES'
   END
