      SUBROUTINE PLH.BLD.CHECKBOX(OPT,NAME,CAPTION,VAL,RES)
*PIC-LAN
*
*ALL
*PC
*Y
*
*
*
      T = ' ' : OCONV(OPT,'MCU') : ' '
      Q.OPT = ( INDEX(T,' Q ',1) <> 0 )
*
      IF VAL THEN
         CHK = ' checked'
      END ELSE
         CHK = ''
      END
*
      IF Q.OPT THEN
         CAPT = PL_QUOTE(CAPTION)
      END ELSE
         CAPT = CAPTION
      END
*
      RES = '<input type="checkbox"' : CHK : ' name="' : NAME : '">' : CAPT
*
      RETURN
   END
