Hello

You may want to try this too:

DEFINE OSC 4 ' 4 MHz Crystal

TRISB.4 = 0
PORTB.4 = 1

WHILE 1
IF PORTB.1 == 1 THEN
PULSOUT PORTB.4, 20000 ' Generates accurate 200 ms High-Low-High pulse
ENDIF

WEND ' Infinitly repeat this loop

END