<table><td><img SRC="http://www.picbasic.co.uk/forum/attachment.php?attachmentid=1629&stc=1&d=117919107 7"></td>
<td>
  • Jar of mustard = +5V
  • RCK 1, RCK 2 = Gnd
  • GCB1, GCB2, GCB3 = LED + 330 OHM Resistor
  • PIC16F84 = something that should be removed from the market since 10 years, can happilly be replace by a 16F628. If you do it, remove the crystal + both 22pF capacitor and try the code bellow
</td></table>
Code:
<font color="#000000">        <font color="#008000">'
        '       Pic Configuration
        '       =================
                '
                '       Here we will set the PIC configuration fuses
                '       to use the internal PIC oscillator and disable the MCLR
                '       pin.
        </font>@ __CONFIG  _INTRC_OSC_NOCLKOUT &amp; _MCLRE_OFF  &amp;  _LVP_OFF &amp; _WDT_OFF &amp; _PWRTE_ON  &amp; _BODEN_ON  
                <font color="#008000">'
                '       This assume you're using MPASM to compile your code
                '       For detailed information about Configuration fuse setting, 
                '       have a look to &quot;Presetting Configuration Fuses (PIC Defines)&quot; thread
                '       in the forum FAQ section.
                '           http://www.picbasic.co.uk/forum/showthread.php?t=543

        '                      
        '       Hardware assignment
        '       ===================
        </font>GCB_1   <font color="#000080">VAR </font>PORTB.0
        GCB_2   <font color="#000080">VAR </font>PORTB.1
        GCB_3   <font color="#000080">VAR </font>PORTB.2
                        
        <font color="#008000">'
        '       Hardware configuration
        '       ======================
        </font>TRISB = 0               <font color="#008000">' Configure all PORTB i/o to output
        
        '
        '       Software/Hardware initialisation
        '       ================================
        </font>PORTB = 0
               
        <font color="#008000">'------------------------------&lt; Main program &gt;-----------------------------------
        '
</font>Start:  <font color="#008000">'
        '       Here will do the 'buckets of grass clippings' light show
        '       using a simple method... not the best
        '
        </font>GCB_1 = 1
        <font color="#000080">PAUSE </font>500
        GCB_2 = 1
        <font color="#000080">PAUSE </font>500
        GCB_3 = 1
        <font color="#000080">PAUSE </font>500
        GCB_1 = 0
        <font color="#000080">PAUSE </font>500
        GCB_2 = 0
        <font color="#000080">PAUSE </font>500
        GCB_3 = 0
        <font color="#000080">PAUSE </font>500
        <font color="#000080">GOTO </font>Start
        <font color="#008000">'
        '---------------------------------------------------------------------------------
</font>