Code:
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.