blinking LED

[mackrackit]

I know, wrong chip and wrong pins... it is what I have on the bench...

'18F6680'07/14/09'BLINKY
   
    DEFINE OSC 20
    @ __CONFIG    _CONFIG1H, _OSC_HS_1H
    @ __CONFIG    _CONFIG2H, _WDT_ON_2H & _WDTPS_128_2H
    @ __CONFIG    _CONFIG4L, _LVP_OFF_4L
    CNT VAR BYTE
    FIRST6:HIGH PORTB.2 'SLOW
    FOR CNT = 1 TO 60:TOGGLE PORTG.4:PAUSE 100
    NEXT CNT:LOW PORTB.2:PAUSE 500:GOTO SECOND6
    
    SECOND6:HIGH PORTB.2   'FAST BLINK--REALLY FAST
    PWM PORTG.4,5,6000
    LOW PORTB.2:PAUSE 500:GOTO [color=#0000FF][b]FIRST6

[aratti]

PortA = 0
TrisA = 0

Seconds var Byte

LED_1      var PortA.0
LED_2      var PortA.1

Loop:
'Your gosub comand goes here
Goto Loop


Blink:
High Led_1
Seconds = 0
While Seconds <>5
High Led_2
pause 500
Low Led_2
pause 500
Seconds = Seconds + 1
wend
Low Led_1
Return

End

Here my contribution.

Al.