I'm so proud to have done this I had to share.


Code:
'****************************************************************
'*  Name    : buckets of grass clippings                        *
'*  Author  : Completely plagarized from picbasic.co.uk forums  *
'*  Notice  : Copyright(c) Melanie, Mister e, and others        *
'*          : All Rights Reserved                               *
'*  Date    : 9/19/2007                                         *
'*  Version : 666                                               *
'*  Notes   : Magu special in the works!                        *
'*          :                                                   *
'****************************************************************
'
'       Pic Configuration 
'       =================
'         (By Melanie)
'
'       Here we will set the PIC configuration fuses
'       to use the internal PIC oscillator and disable the MCLR
'       pin.
'
'@ __CONFIG  _INTRC_OSC_NOCLKOUT & _MCLRE_OFF  &  _LVP_OFF & _WDT_OFF & _PWRTE_ON  & _BODEN_ON  
'
'       This assume you're using MPASM to compile your code
'       For detailed information about Configuration fuse setting, 
'       have a look to "Presetting Configuration Fuses (PIC Defines)" thread
'       in the forum FAQ section.
'           http://www.picbasic.co.uk/forum/showthread.php?t=543
'
' Nomad - went there and stole the correct shtuff for psasm
'
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT
' System Clock Options 
@ DEVICE pic16F628A, WDT_ON
' Watchdog Timer
@ DEVICE pic16F628A, PWRT_ON
' Power-On Timer
@ DEVICE pic16F628A, MCLR_OFF
' Master Clear Options (Internal)
@ DEVICE pic16F628A, BOD_ON
' Brown-Out Detect
@ DEVICE pic16F628A, LVP_OFF
' Low-Voltage Programming
@ DEVICE pic16F628A, CPD_OFF
' Data Memory Code Protect
' Set to CPD_OFF for Development Copy
' Set to CPD_ON for Release Copy
@ DEVICE pic16F628A, PROTECT_OFF
' Program Code Protection
' Set to PROTECT_OFF for Development Copy
' Set to PROTECT_ON for Release Copy

        '                      
        '       Hardware assignment
        '       ===================
        GCB_1   VAR PORTB.0
        GCB_2   VAR PORTB.1
        GCB_3   VAR PORTB.2
                        
        '
        '       Hardware configuration
        '       ======================
        TRISB = 0               ' Configure all PORTB i/o to output
        
        '
        '       Software/Hardware initialisation
        '       ================================
        PORTB = 0  
' Nomad - bit confused by that bit there               
        '------------------------------< Main program >-----------------------------------
        '                                by Mister e
Start:  '
        '       Here will do the 'buckets of grass clippings' light show
        '       using a simple method... not the best
        '
        GCB_1 = 1
        PAUSE 500
        GCB_2 = 1
        PAUSE 500
        GCB_3 = 1
        PAUSE 500
        GCB_1 = 0
        PAUSE 500
        GCB_2 = 0
        PAUSE 500
        GCB_3 = 0
        PAUSE 500
        GOTO Start
        '
        '---------------------------------------------------------------------------------
' Mustard used on brats, find ssubstitute.
' Substituted kidney stones for rocks here but had to remove
' Sorry I had to go!
' Insert Stolen code from T. Jackson and Darrel here