Dear Darrel, sorry for the trouble again, below is the code that I'm trying to work with but it doesn't light up the led as expected. Please kindly advise. Thanks in advance.

@ DEVICE HS_OSC
DEFINE OSC 4
include "bs1defs.bas"

CMCON = 7 ' PortA = digital I/O
VRCON = 0 ' A/D Voltage reference disabled
TRISB = %00000000 ' B.3=PWM,B.0,B.1,B.2 blink LEDs
PR2 = 25 ' Set PWM for approximately 38KHz
CCPR1L = 13 ' Set PWM Duty-Cycle to 50%
CCP1CON = %00001100 ' Mode select = PWM
T2CON = %00000100 ' Timer2 ON + 1:1 prescale

d2pin var portb.0
c2pin var portb.3
latch var portb.4
'oe var portb.1


funct var byte
rvar var word
gvar var word
bvar var word

funct = 0
gvar = %0011111111
rvar = %0000000000
bvar = %0000000000

begin:
high porta.0
pause 1000
low porta.0

CCPR1L = 0
shiftout d2pin, c2pin, 1, [funct\1,gvar\10,rvar\10,bvar\10]
gosub latching

pause 1000
gosub bringpwm


goto begin




bringpwm:
PR2 = 25 ' Set PWM for approximately 38KHz
CCPR1L = 13 ' Set PWM Duty-Cycle to 50%
CCP1CON = %00001100 ' Mode select = PWM
T2CON = %00000100 ' Timer2 ON + 1:1 prescale
return

latching:
high latch
pause 500

low latch
return